The objective is to destroy all Klingon warships on the map within a given time limit. The map is divided into 8x8 quadrants, which are in turn divided into 8x8 sectors. UFP star bases provide supplies of photon torpedoes and navigation is manual, i.e. one must take care not to plot a course into a star accidentally.
- Source code (works in GCL, CLISP, and Allegro)
- Alternate version, conversion of Ahl's C code (also works in SBCL)
- Wikipedia article
Sample gameplay (CLISP):
[1]> (load "trek.lsp")
;; Loading file trek.lsp ...
;; Loaded file trek.lsp
T
[2]> (trek)
THE USS ENTERPRISE --- NCC-1701
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
YOUR ORDERS ARE AS FOLLOWS:
--------------------------
DESTROY THE 56 KLINGON WARSHIPS WHICH HAVE INVADED
THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS
ON STARDATE 3857.00. THIS GIVES YOU 57 DAYS.
THERE IS 1 STARBASE IN THE GALAXY FOR RESUPPLYING YOUR SHIP.
ARE YOU READY TO ACCEPT COMMAND? ('N' FOR End)y
YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED
IN THE GALACTIC QUADRANT, 'CANOPUS I'.
COMBAT AREA CONDITION RED
SHIELDS DANGEROUSLY LOW
+0-1-2-3-4-5-6-7-+
0|. . . . . . . K | STARDATE 3800.00
1|. . . . . . * . | CONDITION *RED*
2|* . . . . . . . | QUADRANT 4 0
3|. . . . . . . E | SECTOR 3 7
4|. . . . . . . . | PHOTON TORPEDOES 10
5|. . . . . . . . | TOTAL ENERGY 3000.00
6|. . . * * * . . | SHIELDS 0.00
7|* . . . . . . . | KLINGONS REMAINING 56
COMMAND
com
ENTER ONE OF THE FOLLOWING:
--------------------------
W (WARP)
S (FOR SHORT RANGE SENSOR SCAN)
L (FOR LONG RANGE SENSOR SCAN)
P (TO FIRE PHASERS)
T (TO FIRE PHOTON TORPEDOES)
Z (TO RAISE OR LOWER SHIELDS)
R (FOR DAMAGE CONTROL REPORTS)
C (TO CALL ON LIBRARY-COMPUTER)
XXX (TO RESIGN YOUR COMMAND)
(zzz break for debug)
COMMANDc
COMPUTER ACTIVE AND AWAITING COMMAND
a
FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:
-----------------------------------------
G = CUMULATIVE GALACTIC RECORD
S = STATUS REPORT
T = PHOTON TORPEDO DATA
B = STARBASE NAV DATA
N = DIRECTION/DISTANCE CALCULATOR
Z = GALAXY 'REGION NAME' MAP
COMMANDc z
COMPUTER ACTIVE AND AWAITING COMMAND THE GALAXY
0 1 2 3 4 5 6 7
+-----+-----+-----+-----+-----+-----+-----+-----+
ANTARES SIRIUS
RIGEL DENEB
PROCYON CAPELLA
VEGA BETELGEUSE
CANOPUS ALDEBARAN
ALTAIR REGULUS
SAGITTARIUS ARCTURUS
POLLUX SPICA
COMMANDL
LONG RANGE SCAN FOR QUADRANT 4,0
*** 005 108
*** 106 102
*** 204 101
COMMANDS
+0-1-2-3-4-5-6-7-+
0|. . . . . . . K | STARDATE 3800.00
1|. . . . . . * . | CONDITION *RED*
2|* . . . . . . . | QUADRANT 4 0
3|. . . . . . . E | SECTOR 3 7
4|. . . . . . . . | PHOTON TORPEDOES 10
5|. . . . . . . . | TOTAL ENERGY 3000.00
6|. . . * * * . . | SHIELDS 0.00
7|* . . . . . . . | KLINGONS REMAINING 56
COMMANDz
ENERGY AVAILABLE =3000. NUMBER OF UNITS TO SHIELDS ?1000
DEFLECTOR CONTROL ROOM: 'SHIELDS NOW AT 1000 UNITS PER YOUR COMMAND.'
COMMANDw
COURSE (0-8, -1)0
WARP FACTOR (0-8).1
Klingon at 0,7 moves to 1,7
261 UNIT HIT ON ENTERPRISE FROM SECTOR 1,7 .
<SHIELDS DOWN TO 739 UNITS>
DAMAGE CONTROL: 'WARP ENGINES DAMAGED BY THE HIT'DAMAGE CONTROL REPORT: WARP ENGINES REPAIR COMPLETED.
DAMAGE CONTROL REPORT: SHIELD CONTROL DAMAGED
(2,7)
+0-1-2-3-4-5-6-7-+
0|. . . . . . . . | STARDATE 3800.00
1|. . . . . . * K | CONDITION *RED*
2|* . . . . . . E | QUADRANT 4 0
3|. . . . . . . . | SECTOR 2 7
4|. . . . . . . . | PHOTON TORPEDOES 10
5|. . . . . . . . | TOTAL ENERGY 2728.00
6|. . . * * * . . | SHIELDS 739.00
7|* . . . . . . . | KLINGONS REMAINING 56
COMMANDT
PHOTON TORPEDO COURSE (0-8, -1)0
TORPEDO TRACK:
*** KLINGON DESTROYED ***