That's right, I can finally test out the Super Star Trek program. My older copy 101 BASIC Computer Games has the program under the title SPACWR possibly to avoid copyright infringement, but in later copies of that book under the title of Super Star Trek.
A scan of the title page from my original copy of 101 BASIC Computer Games.
I wasn't able to use the version out of my original 1978 copy of 101 BASIC Computer Games because it would take too long to type in, so I downloaded a very similar version.
I had to edit a lot of lines because they were too long.
10 REM SUPER STARTREK - MAY 16,1978 - REQUIRES 24K MEMORY
30 REM
40 REM **** **** STAR TREK **** ****
50 REM **** SIMULATION OF A MISSION OF THE STARSHIP ENTERPRISE,
60 REM **** AS SEEN ON THE STAR TREK TV SHOW.
70 REM **** ORIGIONAL PROGRAM BY MIKE MAYFIELD, MODIFIED VERSION
80 REM **** PUBLISHED IN DEC'S "101 BASIC GAMES", BY DAVE AHL.
90 REM **** MODIFICATIONS TO THE LATTER (PLUS DEBUGGING) BY BOB
100 REM *** LEEDOM - APRIL & DECEMBER 1974,
110 REM *** WITH A LITTLE HELP FROM HIS FRIENDS . . .
120 REM *** COMMENTS, EPITHETS, AND SUGGESTIONS SOLICITED --
130 REM *** SEND TO: R. C. LEEDOM
140 REM *** WESTINGHOUSE DEFENSE & ELECTRONICS SYSTEMS CNTR.
150 REM *** BOX 746, M.S. 338
160 REM *** BALTIMORE, MD 21203
170 REM ***
180 REM *** CONVERTED TO MICROSOFT 8 K BASIC 3/16/78 BY JOHN GORDERS
190 REM *** LINE NUMBERS FROM VERSION STREK7 OF 1/12/75 PRESERVED AS
200 REM *** MUCH AS POSSIBLE WHILE USING MULTIPLE STATEMENTS PER LINE
205 REM *** SOME LINES ARE LONGER THAN 72 CHARACTERS; THIS WAS DONE
210 REM *** BY USING "?" INSTEAD OF "PRINT" WHEN ENTERING LINES
215 REM ***
220 ?:?:?:?:?:?:?:?:?:?:?
221 ?" ,------*------,"
222 ?" ,------------- '--- ------'"
223 ?" '-------- --' / /"
224 ?" ,---' '-------/ /--,"
225 ?" '----------------'":?
226 ?" THE USS ENTERPRISE --- NCC-1701"
227 ?:?:?:?:?
30 REM
40 REM **** **** STAR TREK **** ****
50 REM **** SIMULATION OF A MISSION OF THE STARSHIP ENTERPRISE,
60 REM **** AS SEEN ON THE STAR TREK TV SHOW.
70 REM **** ORIGIONAL PROGRAM BY MIKE MAYFIELD, MODIFIED VERSION
80 REM **** PUBLISHED IN DEC'S "101 BASIC GAMES", BY DAVE AHL.
90 REM **** MODIFICATIONS TO THE LATTER (PLUS DEBUGGING) BY BOB
100 REM *** LEEDOM - APRIL & DECEMBER 1974,
110 REM *** WITH A LITTLE HELP FROM HIS FRIENDS . . .
120 REM *** COMMENTS, EPITHETS, AND SUGGESTIONS SOLICITED --
130 REM *** SEND TO: R. C. LEEDOM
140 REM *** WESTINGHOUSE DEFENSE & ELECTRONICS SYSTEMS CNTR.
150 REM *** BOX 746, M.S. 338
160 REM *** BALTIMORE, MD 21203
170 REM ***
180 REM *** CONVERTED TO MICROSOFT 8 K BASIC 3/16/78 BY JOHN GORDERS
190 REM *** LINE NUMBERS FROM VERSION STREK7 OF 1/12/75 PRESERVED AS
200 REM *** MUCH AS POSSIBLE WHILE USING MULTIPLE STATEMENTS PER LINE
205 REM *** SOME LINES ARE LONGER THAN 72 CHARACTERS; THIS WAS DONE
210 REM *** BY USING "?" INSTEAD OF "PRINT" WHEN ENTERING LINES
215 REM ***
220 ?:?:?:?:?:?:?:?:?:?:?
221 ?" ,------*------,"
222 ?" ,------------- '--- ------'"
223 ?" '-------- --' / /"
224 ?" ,---' '-------/ /--,"
225 ?" '----------------'":?
226 ?" THE USS ENTERPRISE --- NCC-1701"
227 ?:?:?:?:?
...
9040 G2$="ANTARES":GOTO9210
9050 G2$="RIGEL":GOTO9210
9060 G2$="PROCYON":GOTO9210
9070 G2$="VEGA":GOTO9210
9080 G2$="CANOPUS":GOTO9210
9090 G2$="ALTAIR":GOTO9210
9100 G2$="SAGITTARIUS":GOTO9210
9110 G2$="POLLUX":GOTO9210
9120 ONZ4GOTO9130,9140,9150,9160,9170,9180,9190,9200
9130 G2$="SIRIUS":GOTO9210
9140 G2$="DENEB":GOTO9210
9150 G2$="CAPELLA":GOTO9210
9160 G2$="BETELGEUSE":GOTO9210
9170 G2$="ALDEBARAN":GOTO9210
9180 G2$="REGULUS":GOTO9210
9190 G2$="ARCTURUS":GOTO9210
9200 G2$="SPICA"
9210 IFG5<>1THENONZ5GOTO9230,9240,9250,9260,9230,9240,9250,9260
9220 RETURN
9230 G2$=G2$+" I":RETURN
9240 G2$=G2$+" II":RETURN
9250 G2$=G2$+" III":RETURN
9260 G2$=G2$+" IV":RETURN
A extract from a full run...
RUN
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
THE USS ENTERPRISE --- NCC-1701
YOUR ORDERS ARE AS FOLLOWS:
DESTROY THE 19 KLINGON WARSHIPS WHICH HAVE INVADED
THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS
ON STARDATE 3326 THIS GIVES YOU 26 DAYS. THERE ARE
4 STARBASES IN THE GALAXY FOR RESUPPLYING YOUR SHIP
YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED
IN THE GALACTIC QUADRANT, 'CANOPUS II'.
COMBAT AREA CONDITION RED
SHIELDS DANGEROUSLY LOW
---------------------------------
* * STARDATE 3300
CONDITION *RED*
QUADRANT 5 , 2
* SECTOR 6 , 7
PHOTON TORPEDOES 10
* <*> TOTAL ENERGY 3000
SHIELDS 0
+K+ +K+ KLINGONS REMAINING 19
---------------------------------
COMMAND? LRS
LONG RANGE SCAN FOR QUADRANT 5 , 2
-------------------
: 103 : 002 : 005 :
-------------------
: 003 : 204 : 008 :
-------------------
: 007 : 001 : 008 :
-------------------
COMMAND? SHE
ENERGY AVAILABLE = 3000 NUMBER OF UNITS TO SHIELDS? 1000
DEFLECTOR CONTROL ROOM REPORT:
'SHIELDS NOW AT 1000 UNITS PER YOUR COMMAND.'
COMMAND? TOR
PHOTON TORPEDO COURSE (1-9)? 7.5
TORPEDO TRACK:
7 , 8
8 , 8
*** KLINGON DESTROYED ***
132 UNIT HIT ON ENTERPRISE FROM SECTOR 8 , 2
<SHIELDS DOWN TO 868 UNITS>
COMMAND? TOR
PHOTON TORPEDO COURSE (1-9)? 5.3
TORPEDO TRACK:
6 , 6
7 , 5
7 , 4
7 , 3
8 , 2
*** KLINGON DESTROYED ***
COMMAND? SRS
---------------------------------
* * STARDATE 3300
CONDITION GREEN
QUADRANT 5 , 2
* SECTOR 6 , 7
PHOTON TORPEDOES 8
* <*> TOTAL ENERGY 2864
SHIELDS 868
KLINGONS REMAINING 17
---------------------------------
COMMAND? NAV
COURSE (0-9)? 3
WARP FACTOR (0-8)? 1.5
WARP ENGINES SHUT DOWN AT SECTOR 5 , 7 DUE TO BAD NAVAGATION
---------------------------------
* * STARDATE 3301
CONDITION GREEN
QUADRANT 5 , 2
* SECTOR 5 , 7
<*> PHOTON TORPEDOES 8
* TOTAL ENERGY 2842
SHIELDS 868
KLINGONS REMAINING 17
---------------------------------
COMMAND? NAV
COURSE (0-9)? 4
WARP FACTOR (0-8)? 1.5
NOW ENTERING VEGA I QUADRANT . . .
COMBAT AREA CONDITION RED
---------------------------------
<*> * STARDATE 3302
* CONDITION *RED*
+K+ QUADRANT 4 , 1
SECTOR 1 , 3
PHOTON TORPEDOES 8
TOTAL ENERGY 2820
SHIELDS 868
* KLINGONS REMAINING 17
---------------------------------
COMMAND? TOR
PHOTON TORPEDO COURSE (1-9)? 8.6
TORPEDO TRACK:
1 , 4
2 , 5
2 , 6
3 , 7
3 , 8
*** KLINGON DESTROYED ***
COMMAND? LRS
LONG RANGE SCAN FOR QUADRANT 4 , 1
-------------------
: *** : 002 : 307 :
-------------------
: *** : 003 : 002 :
-------------------
: *** : 003 : 004 :
-------------------
COMMAND? NAV
COURSE (0-9)? 1.5
WARP FACTOR (0-8)? 1.2
DAMAGE CONTROL REPORT: SHIELD CONTROL STATE OF REPAIR IMPROVED
NOW ENTERING PROCYON II QUADRANT . . .
COMBAT AREA CONDITION RED
---------------------------------
* STARDATE 3303
* CONDITION *RED*
+K+ QUADRANT 3 , 2
* <*> SECTOR 4 , 5
* * PHOTON TORPEDOES 7
* TOTAL ENERGY 2798
* +K+ SHIELDS 868
+K+ KLINGONS REMAINING 16
---------------------------------
COMMAND? PHA
PHASERS LOCKED ON TARGET; ENERGY AVAILABLE = 1930 UNITS
NUMBER OF UNITS TO FIRE? 1000
182 UNIT HIT ON KLINGON AT SECTOR 7 , 8
*** KLINGON DESTROYED ***
336 UNIT HIT ON KLINGON AT SECTOR 3 , 3
*** KLINGON DESTROYED ***
221 UNIT HIT ON KLINGON AT SECTOR 8 , 6
*** KLINGON DESTROYED ***
COMMAND? LRS
LONG RANGE SCAN FOR QUADRANT 3 , 2
-------------------
: 105 : 004 : 103 :
-------------------
: 002 : 007 : 008 :
-------------------
: 003 : 002 : 005 :
-------------------
...
COMMAND? COM
COMPUTER ACTIVE AND AWAITING COMMAND? 7
FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:
0 = CUMULATIVE GALACTIC RECORD
1 = STATUS REPORT
2 = PHOTON TORPEDO DATA
3 = STARBASE NAV DATA
4 = DIRECTION/DISTANCE CALCULATOR
5 = GALAXY 'REGION NAME' MAP
COMPUTER ACTIVE AND AWAITING COMMAND? 5
THE GALAXY
1 2 3 4 5 6 7 8
----- ----- ----- ----- ----- ----- ----- -----
1 ANTARES SIRIUS
----- ----- ----- ----- ----- ----- ----- -----
2 RIGEL DENEB
----- ----- ----- ----- ----- ----- ----- -----
3 PROCYON CAPELLA
----- ----- ----- ----- ----- ----- ----- -----
4 VEGA BETELGEUSE
----- ----- ----- ----- ----- ----- ----- -----
5 CANOPUS ALDEBARAN
----- ----- ----- ----- ----- ----- ----- -----
6 ALTAIR REGULUS
----- ----- ----- ----- ----- ----- ----- -----
7 SAGITTARIUS ARCTURUS
----- ----- ----- ----- ----- ----- ----- -----
8 POLLUX SPICA
----- ----- ----- ----- ----- ----- ----- -----
COMMAND? COM
COMPUTER ACTIVE AND AWAITING COMMAND? 0
COMPUTER RECORD OF GALAXY FOR QUADRANT 1 , 4
1 2 3 4 5 6 7 8
----- ----- ----- ----- ----- ----- ----- -----
1 004 002 001 002 001 *** *** ***
----- ----- ----- ----- ----- ----- ----- -----
2 005 004 003 003 201 *** *** ***
----- ----- ----- ----- ----- ----- ----- -----
3 002 007 008 001 *** *** *** ***
----- ----- ----- ----- ----- ----- ----- -----
4 003 002 005 *** *** *** *** ***
----- ----- ----- ----- ----- ----- ----- -----
5 003 004 008 *** *** *** *** ***
----- ----- ----- ----- ----- ----- ----- -----
6 007 001 008 *** *** *** *** ***
----- ----- ----- ----- ----- ----- ----- -----
7 *** *** *** *** *** *** *** ***
----- ----- ----- ----- ----- ----- ----- -----
8 *** *** *** *** *** *** *** ***
----- ----- ----- ----- ----- ----- ----- -----
COMMAND? COM
COMPUTER ACTIVE AND AWAITING COMMAND? 1
STATUS REPORT:
KLINGONS LEFT: 10
MISSION MUST BE COMPLETED IN 19.6 STARDATES
THE FEDERATION IS MAINTAINING 4 STARBASES IN THE GALAXY
DEVICE STATE OF REPAIR
WARP ENGINES 0
SHORT RANGE SENSORS .16
LONG RANGE SENSORS 0
PHASER CONTROL 0
PHOTON TUBES 0
DAMAGE CONTROL 0
SHIELD CONTROL 1.73
LIBRARY-COMPUTER .59
...
COMMAND? LRA
ENTER ONE OF THE FOLLOWING:
NAV (TO SET COURSE)
SRS (FOR SHORT RANGE SENSOR SCAN)
LRS (FOR LONG RANGE SENSOR SCAN)
PHA (TO FIRE PHASERS)
TOR (TO FIRE PHOTON TORPEDOES)
SHE (TO RAISE OR LOWER SHIELDS)
DAM (FOR DAMAGE CONTROL REPORTS)
COM (TO CALL ON LIBRARY-COMPUTER)
XXX (TO RESIGN YOUR COMMAND)
COMMAND? LRS
LONG RANGE SCAN FOR QUADRANT 8 , 6
-------------------
: 002 : 006 : 007 :
-------------------
: 004 : 003 : 018 :
-------------------
: *** : *** : *** :
-------------------
COMMAND? SRS
---------------------------------
STARDATE 3320.1
CONDITION GREEN
QUADRANT 8 , 6
SECTOR 8 , 7
* PHOTON TORPEDOES 4
* TOTAL ENERGY 1758
* SHIELDS 625
<*> KLINGONS REMAINING 3
---------------------------------
COMMAND? NAV
COURSE (0-9)? 1.3
WARP FACTOR (0-8)? .6
DAMAGE CONTROL REPORT: LONG RANGE SENSORS DAMAGED
NOW ENTERING SPICA III QUADRANT . . .
---------------------------------
* * STARDATE 3321.1
CONDITION GREEN
* QUADRANT 8 , 7
* SECTOR 6 , 4
* PHOTON TORPEDOES 4
<*> TOTAL ENERGY 1743
* * SHIELDS 625
* >!< KLINGONS REMAINING 3
---------------------------------
COMMAND? LRS
LONG RANGE SENSORS ARE INOPERABLE
COMMAND? NAV
COURSE (0-9)? 8
WARP FACTOR (0-8)? .2
WARP ENGINES SHUT DOWN AT SECTOR 7 , 5 DUE TO BAD NAVAGATION
SHIELDS DROPPED FOR DOCKING PURPOSES
---------------------------------
* * STARDATE 3321.3
CONDITION DOCKED
* QUADRANT 8 , 7
* SECTOR 7 , 5
* PHOTON TORPEDOES 10
TOTAL ENERGY 3000
* * <*> SHIELDS 0
* >!< KLINGONS REMAINING 3
---------------------------------
COMMAND? LRS
LONG RANGE SENSORS ARE INOPERABLE
...
COMMAND? COM
COMPUTER ACTIVE AND AWAITING COMMAND? 0
COMPUTER RECORD OF GALAXY FOR QUADRANT 4 , 8
1 2 3 4 5 6 7 8
----- ----- ----- ----- ----- ----- ----- -----
1 004 002 001 002 001 001 002 004
----- ----- ----- ----- ----- ----- ----- -----
2 005 004 003 003 001 004 006 002
----- ----- ----- ----- ----- ----- ----- -----
3 002 007 008 001 004 007 007 006
----- ----- ----- ----- ----- ----- ----- -----
4 003 002 005 001 002 003 014 006
----- ----- ----- ----- ----- ----- ----- -----
5 003 004 008 003 003 007 006 003
----- ----- ----- ----- ----- ----- ----- -----
6 007 001 008 002 005 007 005 006
----- ----- ----- ----- ----- ----- ----- -----
7 *** *** 006 005 002 006 007 002
----- ----- ----- ----- ----- ----- ----- -----
8 *** *** *** 008 004 003 018 002
----- ----- ----- ----- ----- ----- ----- -----
COMMAND? NAV
COURSE (0-9)? 5.5
WARP FACTOR (0-8)? 6.5
NOW ENTERING SAGITTARIUS I QUADRANT . . .
---------------------------------
STARDATE 3324.6
CONDITION GREEN
QUADRANT 7 , 1
SECTOR 5 , 7
<*> PHOTON TORPEDOES 10
* * TOTAL ENERGY 2632
SHIELDS 800
KLINGONS REMAINING 2
---------------------------------
COMMAND? LRS
LONG RANGE SCAN FOR QUADRANT 7 , 1
-------------------
: *** : 007 : 001 :
-------------------
: *** : 002 : 207 :
-------------------
: *** : 006 : 007 :
-------------------
COMMAND? COM
COMPUTER ACTIVE AND AWAITING COMMAND? 1
STATUS REPORT:
KLINGONS LEFT: 2
MISSION MUST BE COMPLETED IN 1.3 STARDATES
THE FEDERATION IS MAINTAINING 4 STARBASES IN THE GALAXY
DEVICE STATE OF REPAIR
WARP ENGINES .18
SHORT RANGE SENSORS 3.21
LONG RANGE SENSORS 0
PHASER CONTROL 0
PHOTON TUBES -2.31
DAMAGE CONTROL 0
SHIELD CONTROL 1.73
LIBRARY-COMPUTER .13
COMMAND? NAV
COURSE (0-9)? 1
WARP FACTOR (0-8)? .7
DAMAGE CONTROL REPORT: LONG RANGE SENSORS STATE OF REPAIR IMPROVED
NOW ENTERING SAGITTARIUS II QUADRANT . . .
COMBAT AREA CONDITION RED
---------------------------------
* * STARDATE 3325.6
* * CONDITION *RED*
* QUADRANT 7 , 2
+K+ +K+ SECTOR 5 , 5
* <*> PHOTON TORPEDOES 10
* TOTAL ENERGY 2616
SHIELDS 800
KLINGONS REMAINING 2
---------------------------------
COMMAND? TOR
PHOTON TUBES ARE NOT OPERATIONAL
COMMAND? PHA
PHASERS LOCKED ON TARGET; ENERGY AVAILABLE = 1816 UNITS
NUMBER OF UNITS TO FIRE? 500
144 UNIT HIT ON KLINGON AT SECTOR 4 , 1
(SENSORS SHOW 98.4407 UNITS REMAINING)
282 UNIT HIT ON KLINGON AT SECTOR 4 , 3
*** KLINGON DESTROYED ***
63 UNIT HIT ON ENTERPRISE FROM SECTOR 4 , 1
<SHIELDS DOWN TO 737 UNITS>
DAMAGE CONTROL REPORTS LIBRARY-COMPUTER DAMAGED BY THE HIT'
COMMAND? LRS
LONG RANGE SCAN FOR QUADRANT 7 , 2
-------------------
: 007 : 001 : 008 :
-------------------
: 002 : 107 : 006 :
-------------------
: 006 : 007 : 004 :
-------------------
COMMAND? SRS
---------------------------------
* * STARDATE 3325.6
* * CONDITION *RED*
* QUADRANT 7 , 2
+K+ SECTOR 5 , 5
* <*> PHOTON TORPEDOES 10
* TOTAL ENERGY 2053
SHIELDS 737
KLINGONS REMAINING 1
---------------------------------
COMMAND? PHA
COMPUTER FAILURE HAMPERS ACCURACY
PHASERS LOCKED ON TARGET; ENERGY AVAILABLE = 1316 UNITS
NUMBER OF UNITS TO FIRE? 200
126 UNIT HIT ON KLINGON AT SECTOR 4 , 1
*** KLINGON DESTROYED ***
CONGRULATION, CAPTAIN! THEN LAST KLINGON BATTLE CRUISER
MENACING THE FDERATION HAS BEEN DESTROYED.
YOUR EFFICIENCY RATING IS 550.083
THE FEDERATION IS IN NEED OF A NEW STARSHIP COMMANDER
FOR A SIMILAR MISSION -- IF THERE IS A VOLUNTEER,
LET HIM STEP FORWARD AND ENTER 'AYE'? NAY
OK
Next I discuss the future of the ETA-3400X...
No comments:
Post a Comment