Directory of image this file is from
This file as a plain text file
COMMON IGX1, IGX2 DIMENSION IGX1(1600), IGX2(1600) CALL IOPEN('DSK','PLOT') JRDSW = -2 CALL GCLEAR S OPDEF KRS 6034 10 CALL GSTART 15 CONTINUE S KSF S JMP \20 S KRS S TAD (-203 S SNA CLA S JMP \100 20 IF (IRDSW(0) - JRDSW) 30,15,30 30 CALL GSTOP CALL GCLEAR 40 READ(4,50) IX, IY, IFL 50 FORMAT(3A2) JRDSW = IRDSW(0) IF (IFL) 10,60,60 60 CALL GPLOT(IX,IY,IFL) GO TO 40 100 CALL GSTOP STOP END