9000 PRINT "PLTL" 9005 REM HP 36840A, 6/74 9010 READ #Z3,Z2;Z5 9020 FOR Z4=1 TO Z5 9025 Z8=1 9030 READ #Z3;Z6,Z7 9040 IF Z6 >= 0 THEN 9050 9045 Z8=2 9050 IF Z7 >= 0 THEN 9060 9055 Z8=3 9060 Z6=X1+(Z1*ABS(Z6)) 9070 Z7=Y1+(Z1*ABS(Z7)) 9074 IF NOT (Z6<1 OR Z6>9999 OR Z7<1 OR Z7>9999) THEN 9080 9076 Z9=0 9080 GOTO Z8 OF 9090,9110,9130 9090 PRINT USING 9150;INT(Z6),INT(Z7) 9100 GOTO 9180 9110 PRINT "PLTP" 9115 PRINT USING 9170;INT(Z6),INT(Z7) 9120 PRINT "PLTL" 9125 GOTO 9180 9130 PRINT USING 9170;INT(Z6),INT(Z7) 9140 GOTO 9180 9150 IMAGE 4D,X,4D 9170 IMAGE 4D,X,4D,"^" 9180 NEXT Z4 9190 PRINT "PLTT" 9200 Z9=1 9210 RETURN