**TI86** ! BOYLEFuncÖFnOff ÖClLCDÖClDrwÖAxesOnÖ20dimL L4Ö0xMinÖ21xMaxÖ1yMinÖ5yMaxÖClLCDÖDisp "SET PLUNGER TO 20 CC"ÖDisp "THEN OPEN CLOSE"ÖDisp "RELIEF VALVE."ÖDisp "PRESS CBL TRIGGER."ÖSend({1,0})ÖSend({1,1,1})ÖSend({3,1,1,1})ÖGet(L1)ÖL1(1)CÖDrawF 20/xÖ1YÖ20XÖYL4(1)ÖLine(X-1/6,Y,X+1/6,Y)ÖLine(X-1/6,Y-6/62,X+1/6,Y-6/62)ÖLine(X-1/6,Y+6/62,X+1/6,Y+6/62)ÖFor(X,19,1,1)ÖSend({1,0})ÖSend({1,1,1})ÖSend({3,1,1,1})ÖGet(L1)ÖL1(1)/CYÖYL4(21-X)ÖLine(X-1/6,Y,X+1/6,Y)ÖLine(X-1/6,Y-6/62,X+1/6,Y-6/62)ÖLine(X-1/6,Y+6/62,X+1/6,Y+6/62)ÖEndÖStopÖ¤