*** 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
5820PRINT"     INSTRUCTIONS"
5821PRINT\PRINT"THE GALAXY IS DIVIDED INTO AN 8,8 QUADRANT GRID"
5822PRINT"WHICH IS IN TURN DIVIDED INTO AN 8,8 SECTOR GRID."
5823 PRINT\PRINT"THE CAST OF CHARACTERS IS AS FOLLOWS:"
5830PRINT"<*> = ENTERPRISE"
5840PRINT"+++ = KLINGON"
5850PRINT">!< = STARBASE"\PRINT " *  = STAR"
5870 PRINT "COMMAND 0 = WARP ENGINE CONTROL:"
5880PRINT"  COURSE IS IN A CIRCULAR NUMERICAL      4  3  2"
5890PRINT"  VECTOR ARRANGEMENT AS SHOWN.            ";
5895 PRINT CHR$(28);" ^ /"
5900PRINT"  INTEGER AND READ VALUES MAY BE           ";
5905 PRINT CHR$(28);"^/"
5910PRINT"  USED.  THEREFORE COURSE 1.5 IS        5 ----- 1"
5920PRINT"  HALF WAY BETWEEN 1 AND 2.                ";
5925 PRINT "/!";CHR$(28)
5930PRINT"                                          ";
5935 PRINT "/ ! ";CHR$(28)
5940PRINT"  A VECTOR OF 9 IS UNDEFINED, BUT        6  7  8"
5950PRINT"  VALUES MAY APPROACH 9."
5960PRINT"    COURSE"
5970PRINT"  ONE WARP FACTOR IS THE SIZE OF"
5980PRINT"  ONE QUADRANT.  THEREFORE TO GET"
5990PRINT"  FROM QUADRANT 6,5 TO 5,5 YOU WOULD"
6000PRINT"  USE COURSE 3. WARP FACTOR 1"
6005PRINT
6010PRINT"COMMAND 1 = SHORT RANGE SENSOR SCAN"
6020PRINT"  PRINT THE QUADRANT YOU ARE CURRENTLY IN.  INCLUDING"
6030PRINT"  STARS, KLINGONS, STARBASES, AND THE ENTERPRISE, ALONG"
6040PRINT"  WITH OTHER PERTINATE INFORMATION."
6045PRINT\PRINT"COMMAND 2 = LONG RANGE SENSOR SCAN"
6060PRINT"  SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE"
6070PRINT"  OF THE ENTERPRISE IN THE MIDDLE OF TH