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 ***