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

ME OF MISSION =";
4101 PRINT (INT((T-T0)*10))/10;"STARDATES"
4105PRINT\PRINT\PRINT
4106 PRINT "DO YOU WANT TO TRY AGAIN";\INPUT R$
4107 IF R$="YES" THEN 180
4110  GOTO 5820
4111REM *** SHORT RANGE SENSOR SCAN AND STARTING POINT CODE
4120FOR I=S1-1TO S1+1
4130FOR J=S2-1TO S2+1
4140 IF I<1 GOTO 4200\IF I>8 GOTO 4200\IF J<1 GOTO 4200\IF J>8 GOTO 4200
4150A$=">!<"\Z1=I\Z2=J
4180GOSUB 5680
4190IF Z3=1 THEN 4240
4200NEXT J
4210NEXT I
4220D0=0\GOTO 4310
4240D0=1\C$="DOCKED"\E=3000\P=10
4280PRINT "SHIELDS DROPPED FOR DOCKING PURPOSES"
4281 REMEMBER TO GET REPAIRS
4282 FOR I=1 TO 8
4284 IF D(I)=>0 GOTO 4288
4286 D(I)=0
4288 NEXT I
4290S=0\GOTO 4380
4310IF K3>0 THEN 4350
4320IF E<E0 *.1 THEN 4370
4330C$="GREEN"
4340GOTO 4380
4350C$="RED"\GOTO 4380
4370C$="YELLOW"
4380IF D(2)>=0 THEN 4430
4390PRINT\PRINT"*** SHORT RANGE SENSORS ARE OUT ***"\PRINT
4420GOTO 4530
4430 O1$="------------------------"
4435 PRINT\PRINT O1$
4445 PRINT SEG$(Q$,1,24)
4455 PRINT SEG$(Q$,25,48);TAB(41);"STARDATE";TAB(57);T
4465 PRINT SEG$(Q$,49,72);TAB(41);"CONDITION";TAB(58);C$
4475 PRINT SEG$(R$,1,24);TAB(41);"QUADRANT";TAB(57);Q1;",";Q2
4485 PRINT SEG$(R$,25,48);TAB(41);"SECTOR";TAB(57);S1;",";S2
4495 PRINT SEG$(R$,49,72);TAB(41);"TOTAL ENERGY";TAB(57);E
4505 PRINT SEG$(S$,1,24);TAB(41);"PHOTON TORPEDOES";TAB(57);P
4515 PRINT SEG$(S$,25,48);TAB(41);"SHIELDS";TAB(57);S
4520 PRINT O1$\PRINT
4530RETURN
4620REM *** LIBRARY COMPUTER CODE BEGINS HERE
4630IF D(8)>=0 THEN 4660
4640PRINT "COMPUTER DISABLED"\GO