Every time I think I’ve said all I have to say about this game… I haven’t! I recently found a simh emulator for the Altair 8800 (Z80), and it has Microsoft Basic. Well it didn’t have any Basic programs on it.
Surprisingly I don’t have a MicroSoft version of Star Trek. So I went looking and found one here! I’m sure the multiple Starships below, looked like it was flying in on a much, much slower computer!
A>DIR
A: ASM COM : BDOS MAC : SYSCPM2 SUB : BOOT MAC
A: SYSCPM2Z SUB : CBIOSX MAC : CCP MAC : CCPZ MAC
A: CCPZ TXT : CFGCCP LIB : CFGCCPZ LIB : COPY COM
A: CPU COM : CPU MAC : CREF80 COM : DDT COM
A: DDTZ COM : MOVER MAC : DO COM : DSKBOOT MAC
A: DUMP COM : ED COM : ELIZA BAS : EX MAC
A: EX SUB : EX8080 COM : EXZ80ALL COM : EXZ80DOC COM
A: FORMAT COM : GO COM : HALT COM : PRELIM MAC
A: HDSKBOOT MAC : L80 COM : LADDER COM : LADDER DAT
A: LIB80 COM : LOAD COM : LS COM : LU COM
A: M80 COM : MBASIC COM : MC SUB : MCC SUB
A: MCCL SUB : OTHELLO COM : PIP COM : EC8080 LIB
A: PRELIM COM : ECZ80ALL LIB : RSETSIMH COM : RSETSIMH MAC
A: ECZ80DOC LIB : SID COM : SPEED COM : STAT COM
A: SUBMIT COM : SURVEY COM : SURVEY MAC : BOOT COM
A: BOOTGEN COM : DIF COM : TIMER COM : TIMER MAC
A: UNCR COM : UNERA COM : UNERA MAC : USQ COM
A: HDIR COM : WM COM : WM HLP : WORM COM
A: SHOWSEC COM : XSUB COM : ZAP COM : ZSID COM
A: ZTRAN4 COM : SYSCOPY COM : URL COM : W COM
A: XFORMAT COM : R COM : STARTREK BAS : TREKINST BAS
A: LOOP BAS
A>MBASIC
BASIC-80 Rev. 5.21
[CP/M Version]
Copyright 1977-1981 (C) by Microsoft
Created: 28-Jul-81
32824 Bytes free
Ok
LOAD "STARTREK"
Ok
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 2428. THIS GIVES YOU 28 DAYS. THERE ARE
3 STARBASES IN THE GALAXY FOR RESUPPLYING YOUR SHIP.
ARE YOU READY TO ACCEPT COMMAND ('N' FOR INSTRUCTIONS)? Y
�
YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED
IN THE GALACTIC QUADRANT, 'CAPELLA I'.
+--1---2---3---4---5---6---7---8-+
1 | <E> * | 1 STARDATE 2400.0
2 | | 2 CONDITION GREEN
3 | * * | 3 QUADRANT 3, 5
4 | * | 4 SECTOR 1, 7
5 | | 5 PHOTON TORPEDOES 10
6 | * | 6 TOTAL ENERGY 3000
7 | * * * | 7 SHIELDS 0
8 | | 8 KLINGONS REMAINING 19
+--1---2---3---4---5---6---7---8-+
COMMAND?
A: XFORMAT COM : R COM : loop BAS : strek BAS
A: STREK BAS : TREKINST BAS : LOOP BAS
A>KILL "strek.BAS"
KILL?
A>delete "strek.BAS"
DELETE?
A>mbasic
BASIC-80 Rev. 5.21
[CP/M Version]
Copyright 1977-1981 (C) by Microsoft
Created: 28-Jul-81
32824 Bytes free
Ok
delete "strek.BAS"
Syntax error
Ok
kill "strek.BAS"
Ok
There is a command. That slows the emulator down, but in my limited playing, I couldn’t make it look right
SET THROTTLE 350/1
I made the following 2 changes to the “STARTREK.BAS” code to make it look better on a fast machine. This gave the best results! But the Altair 8800 runs like a bat out of hell.
220 FOR XX=1 TO 11:PRINT:NEXT:PRINT TAB(20);"THE USS ENTERPRISE --- NCC-1701":FOR XX=1 TO 11:PRINT:NEXT:FOR I=1 TO 200000:NEXT I:FOR YY=1 TO 40 STEP 2
226 PRINT:PRINT:FOR ZZ=1 TO 7:PRINT CHR$(11);:NEXT ZZ:FOR I=1 TO 9000:NEXT I:NEXT YY
I also made the following changes. Otherwise the game play is exactly the same each time. It asks for a seed. You must enter a different value each time if you want a different game than the last time.
Added… 215 CLEAR 600:RANDOMIZE
Removed… 260 CLEAR 600