Directory of image this file is from
This file as a plain text file

 *** INSERTION IN STRING ARRAY FOR QUADRANT ***
5520S8=Z1*24+Z2*3-26\IF S8>72 THEN 5560
5540 Q$=SEG$(Q$,1,S8-1)&A$&SEG$(Q$,S8+3,72)
5550GOTO 5600
5560IF S8>144 THEN 5590
5570  R$=SEG$(R$,1,S8-73)&A$&SEG$(R$,S8-69,72)
5580GOTO 5600
5590 S$=SEG$(S$,1,S8-145)&A$&SEG$(S$,S8-141,72)
5600RETURN
5610REM *** PRINTS DEVICE NAME FROM ARRAY***
5620S8=R1*12-11\IF S8>72 THEN 5660
5640 PRINT SEG$(D$,S8,S8+11);\GOTO 5670
5660 PRINT SEG$(E$,S8-72,S8-61);
5670RETURN
5680REM ***STRING COMPARISON IN QUADRANT ARRAY***
5690S8=Z1*24+Z2*3-26\Z3=0\IF S8>72 THEN 5750
5720 IF SEG$(Q$,S8,S8+2)<>A$ THEN 5810
5730Z3=1\GOTO 5810
5750IF S8>144 THEN 5790
5760 IF SEG$(R$,S8-72,S8-70)<>A$ THEN 5810
5770Z3=1\GOTO 5810
5790 IF SEG$(S$,S8-144,S8-142)<>A$ THEN 5810
5800Z3=1
5810RETURN
5820 END