
Chapter 7 559
Language Reference
PLOTSRC Plot Source
Query Response
Figure 7-208 PLOT SRC Query Response
Example
10 OUTPUT 705;"OP;"
20 ENTER 705;P1x,P1y,P2x,P2y
30 OUTPUT 718;"PLOTSRC TRA;RQS 16;PLOT
";P1x;",";P1y;",";P2x;",";P2y;";RQS 0;"
40 Done=0
50 IF Done=0 THEN GOSUB Wait_plot
60 Done=0
70 OUTPUT 718;"PLOTSRC ANNT;RQS 16;PLOT
";P1x;",";P1y;",";P2x;",";P2y;";RQS 0;"
80 IF Done=0 THEN GOSUB Wait_plot
90 PRINT "COMMAND IS COMPLETE"
100 STOP
110 Wait_plot: Done=1
120 ON INTR 7 GOTO Go_back
130 ENABLE INTR 7;2
140 SEND 7;UNL LISTEN 5 TALK 18 DATA
150 Idle: GOTO Idle
160 Go_back: S_poll=SPOLL(718)
170 RETURN
180 END
Comments to this Manuals