gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2026-01-03 08:37:59 -08:00
Code Issues Packages Projects Releases Wiki Activity

Clean up ON

Browse Source
This commit is contained in:
Andrew Regan
2022-01-16 18:51:00 +00:00
parent c17bfa5dd0
commit 55edf21693
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
84_Super_Star_Trek/superstartrek.bas
View File

@@ -90,7 +90,7 @@
2050 PRINT "-CIRCUITING TO ENGINE ROOM!!":GOTO 6220
2060 INPUT"COMMAND";A$
2080 FOR I=1 TO 9:IF LEFT$(A$,3)<>MID$(A1$,3*I-2,3) THEN 2160
2140 ONIGOTO 2300,1980,4000,4260,4700,5530,5690,7290,6270
2140 ON I GOTO 2300,1980,4000,4260,4700,5530,5690,7290,6270
2160 NEXT I:PRINT "ENTER ONE OF THE FOLLOWING:"
2180 PRINT " NAV (TO SET COURSE)"
2190 PRINT " SRS (FOR SHORT RANGE SENSOR SCAN)"
@@ -296,7 +296,7 @@
6730 PRINT:PRINT "*** SHORT RANGE SENSORS ARE OUT ***":PRINT:RETURN
6770 O1$="---------------------------------":PRINT O1$:FOR I=1 TO 8
6820 FOR J=(I-1)*24+1 TO (I-1)*24+22STEP3:PRINT " ";MID$(Q$,J,3);:NEXT J
6830 ONIGOTO 6850,6900,6960,7020,7070,7120,7180,7240
6830 ON I GOTO 6850,6900,6960,7020,7070,7120,7180,7240
6850 PRINT " STARDATE ";INT(T*10)*.1:GOTO 7260
6900 PRINT " CONDITION ";C$:GOTO 7260
6960 PRINT " QUADRANT ";Q1;",";Q2:GOTO 7260
@@ -309,7 +309,7 @@
7280 REM LIBRARY COMPUTER CODE
7290 IF D(8)<0 THEN PRINT "COMPUTER DISABLED":GOTO 1990
7320 INPUT"COMPUTER ACTIVE AND AWAITING COMMAND";A:IF A<0 THEN 1990
7350 PRINT:H8=1:ONA+1GOTO 7540,7900,8070,8500,8150,7400
7350 PRINT:H8=1:ON A+1 GOTO 7540,7900,8070,8500,8150,7400
7360 PRINT "FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:"
7370 PRINT " 0 = CUMULATIVE GALACTIC RECORD"
7372 PRINT " 1 = STATUS REPORT"