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
Hw 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M !,O&,MkM LKUfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] 0OxRC `0&
cd0cdaf>atHf666b&bC n PhbP8b(J . Jhb&.fJ(b8J~&}f}a(]z
PJ|(2z{H/zy"P0
0!c (bbcoz n r`gK?OM3S @`?M|