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 
