The Trident

Timex Computer Corporation

Developer(s): George Green

Date: 1983

Type: Cassette

Platform(s): TS 1000

The Trident is a text adventure game set in an underwater world where the player must recover Poseidon’s lost trident. The engine uses a compact bytecode-like command table stored in string arrays, with a central dispatcher at line 2227 that walks through condition/action pairs encoded as character codes in the string K$. Player state — including room number, inventory flags, and counters — is tracked via N$(), M$(), and C() arrays, and a snapshot system at lines 6410–6447 serializes the full game state into an S$() array for save/restore without tape access. The game features an air-supply countdown (C1), a darkness counter (C2), and a move counter (C3) that triggers periodic random events, as well as PEEK of the system variable at address 16398/16399 to detect when the screen is nearly full before prompting “MORE…”. Room exits are encoded as single characters in E$ strings, with their ASCII values directly used as room numbers via GOTO A*10 dispatch.

Program Analysis

Program Structure

The Trident is organized into several functional zones:

Lines 5–19: Room display loop — prints the current room description and visible objects by scanning N$() for items whose location matches A (current room).
Lines 20–42: Input parsing and single-character direction handling.
Lines 62–421: Room-specific action stubs that load E$ and dispatch to a movement or action handler.
Lines 500–586: Darkness, underwater air, and drowning sequences.
Lines 900–944: Full verb/noun parser (three-letter verb matching against V$(), noun matching against F$()).
Lines 945–982: TAKE logic.
Lines 990–1020: Main print/status loop with screen-full detection.
Lines 1200–1266: DROP, inventory, and SAVE game routines.
Lines 2190–2440: Bytecode dispatcher (the core engine).
Lines 3000–3175: Condition subroutines (GOSUB dispatch table).
Lines 5000–5085: Action subroutines (GOSUB dispatch table).
Lines 6000–6630: Response message blocks and complex action handlers.
Lines 6699–6706: Scrolling print utility.
Lines 7000–7006: Per-turn counter decrement (C1, C2, C3).
Lines 9400–9445: Exit display subroutine.
Lines 9800–9912: Game initialization and title/intro sequence.

Room Dispatch via GOTO A*10

The current room number is stored in A. Line 9 executes GOTO A*10, so room 6 jumps to line 60, room 16 to line 160, and so on. Each room stub loads an eight-character E$ string encoding exits and metadata, then jumps to a handler label (J, L, K, B, or N). This is a memory-efficient way to avoid a large IF/THEN chain or ON/GO TO table.

Exit Encoding in E$

The eight characters of E$ encode the six directional exits (N, S, E, W, U, D) plus two additional bytes. Exits are stored as single characters whose CODE values equal the destination room number. A space character (code 32) means no exit in that direction. Lines 31–42 handle single-letter direction commands by reading CODE E$(X) and assigning it to A before jumping to the turn-end handler T. The exit display routine at line 9400 prints human-readable direction labels from Y$ for any non-space exit slot.

Bytecode Engine (Lines 2190–2440)

The heart of the game is a bytecode interpreter stored in the string array K$(). Verbs map via V(X) to an offset in K$. Each entry consists of:

A three-character noun field (P$) — “ANY” matches any noun.
A length byte (so the interpreter can skip to the next entry via NX+CODE K$(NX)).
A sequence of condition bytes and action bytes terminated by "." (condition phase ends) then ":" (entry ends).

Conditions are dispatched by GOSUB 2620+CODE K$(C)*10, which maps to lines 3000–3175 (offset 2620 + 0–15 × 10). Actions are dispatched by GOTO 4620+CODE K$(C)*10, mapping to lines 5000–5085 (offset 4620 + 38–… × 10, where action codes start at 38). Each condition subroutine sets boolean D and returns; the dispatcher skips to the action block only if all conditions pass.

Condition and Action Dispatch Tables

Code range	GOSUB target	Meaning
0	3000	Current room = E
1	3010	N$(E) = current room or “USR ” (carried)
2	3020	N$(E) not in room and not carried
3	3030	N$(E) = “USR ” (in inventory)
4	3040	M$(E) = “S” (flag set)
5	3050	M$(E) ≠ “S” (flag clear)
6	3060	C(E) = 0
7	3070	Noun matches F$(E)(4 TO 6)
8	3080	E$(7) code = E
9	3090	Current room ≠ E
10	3100	N$(E) = ” ” (absent)
11	3110	N$(E) ≠ ” ” (present)
12	3120	N$(E) ≠ “USR ” (not carried)
13	3130	Noun matches F$(E) and N$(E) present
14	3140	Noun does not match F$(E)
15	3150	Inventory count > E
16	3160	N$(E) = CHR$ A (in current room)
17	3170	Room is 13, 17, or 20 (special locations)

State Snapshot System

Lines 6410–6447 implement an in-memory save/restore. The snapshot action serializes all of N$() (item locations, 29 entries), M$() (flags, 9 entries), and the scalars C1, C2, C3, I, and A into a block of S$() starting at offset GM. Restore simply reverses the copy. The variable GM is set to 1 (line 6450) or 44 (line 6460), allowing two independent snapshot slots. The game also supports tape saving at lines 1256–1266 with a SAVE "TRIDENT" call, and a full reset at line 9995.

Screen-Full Detection

Line 991 uses PEEK 16398+256*PEEK 16399 to read the system variable DF_CC (display file current cursor), comparing it against 27975. When the cursor is near the bottom of the screen, the game pauses and prints “MORE… (PRESS ENTER)” before clearing and continuing. This avoids text scrolling off before the player can read it.

Air and Darkness Counters

Three per-turn counters are decremented at line 7000: C1 is the underwater air supply (triggers drowning sequence when it reaches C(2) at line 550), C2 is the darkness penalty counter (incremented in dark rooms at line 512 until it reaches 3, then the player is dragged to the land of the dead), and C3 is a global move counter that wraps at 250 and triggers scripted events at specific values via line 1015.

Inventory Representation

Item locations are stored in N$(X) as single characters: CHR$ A means the item is in room A, "USR " means it is in the player’s inventory, and " " means it has been permanently removed. The inventory count I is maintained manually and capped (the player can carry 7 items, checked at line 1234 and condition code 15).

Notable Techniques

Three-letter abbreviation matching for both verbs (V$(X)) and nouns (F$(X)(4 TO 6)) keeps the parser compact and forgiving of full-word variations.
Room description text is stored packed in Q$() as a single long string, with start/end offsets retrieved by the subroutine at line 900 reading two-byte encoded positions from F$(X).
GOSUB V and GOTO J/K/L/B/N use single-letter variable names as line number aliases, a common ZX81 BASIC technique for computed jumps without a lookup table.
Line 421 uses LET E$=" 8 WRND" — the extra characters beyond position 8 suggest the engine only reads the first 8 characters of E$ for exits and metadata, and the trailing characters are unused padding or a development artifact.
The cookies-in-jar cross-reference check at line 1237 directly tests two inventory slots (N$(12) and N$(3)), showing that item indices are hardcoded for puzzle-critical logic outside the bytecode engine.

Anomalies and Observations

Line 9902 contains a date reference in the copyright string embedded in a PRINT statement; this is display text, not metadata.
Line 584 accepts “GS1”, “GS2”, or “RES” after drowning but the subsequent GOTO 21 jumps to the main input loop without actually branching on which option was chosen — all three responses behave identically, suggesting “GS1″/”GS2” (presumably “go to save 1/2”) were planned but not implemented differently.
Line 421’s E$=" 8 WRND" is longer than 8 characters; only the first 8 are used by the exit/handler system, so “ND” is dead data.
Line 75 references LET C=EEL and line 152 references LET C=COOK — these appear to be unquoted string variable names used as numeric labels, which would cause an error unless EEL and COOK are defined numeric variables pointing to bytecode offsets. The same pattern applies to BREATH, SOG, WG, LION, and CSF elsewhere — these are all numeric variables initialized in the program’s data setup (not shown in this listing) that serve as named entry points into the K$ bytecode table.

Content

Appears On

Related Products

The Trident

A stimulating and intriguing adventure game. You’ll marvel at the many hidden dangers, concealed aids, and possible timely escapes. 16K....

Image Gallery

Source Code
CLS
PRINT "==========>";D$
PRINT "YOU ARE:"
GOTO A*10
FOR X=1 TO TN
IF CODE N$(X)=A THEN GOTO 15
NEXT X
LET M$(8)="N"
GOTO 990
GOSUB V
IF M$(8)="N" THEN PRINT "YOU SEE..."
LET M$(8)="S"
PRINT Q$(S TO F),
GOTO 12
INPUT D$
LET ACT=0
IF LEN D$=1 THEN GOTO 29
IF LEN D$<7 THEN LET D$=D$+"       "
GOTO 910
IF D$="I" THEN GOTO 1220
FOR X=1 TO 6
IF D$=Z$(X) THEN GOTO 36
NEXT X
GOTO W
IF E$(X)<>" " THEN GOTO 40
LET P$="YOU CANT GO THAT WAY."
GOTO T
LET A=CODE E$(X)
GOTO T
LET E$="▞8▛3 4W▘"
GOTO J
LET E$="(8(▞D(W▖"
IF C(3)<>13 THEN GOTO J
LET C=EEL
GOTO 2227
LET E$="3     L▛"
GOSUB M
GOTO B
LET E$="  ,,   L~~"
GOSUB M
GOTO B
LET E$="    ? L$"
GOSUB M
LET C2=0
GOTO B
LET E$="<<< )DW("
GOTO J
LET E$="  ▛   L<"
LET C1=0
GOTO K
LET E$="     "+CHR$ 11+"L-"
LET C=COOK
IF N$(12)="?" THEN GOTO 2227
GOTO L
LET E$="6666▛5W;"
GOTO J
LET E$="<<< >$W0"
GOTO J
LET E$="<=< <)W3"
GOTO J
CLS
LET A=16
PRINT AT 10,2;"A CURRENT SWEEPS YOU AWAY."
PAUSE 100
GOTO T
LET E$=">     W6"
GOTO J
LET CC=CODE E$(8)
LET C=CODE J$(CC)*100
PRINT H$(C+CODE J$(CC+1) TO C+CODE J$(CC+2))
IF A=30 THEN GOTO 230
IF A=15 THEN GOTO 235
RETURN
IF M$(9)="S" THEN PRINT "THERE IS A ROPE HANGING HERE."
RETURN
IF M$(9)="S" THEN PRINT L$
IF M$(9)<>"S" THEN PRINT U$
RETURN
LET E$="      L9"
GOTO L
LET E$=" ,,4   LC"
GOSUB M
LET C1=0
GOTO B
LET C1=0
LET E$="4453▞ WF"
GOSUB M
GOTO N
LET E$="5564( WI"
GOSUB M
LET C1=0
PRINT TAB 9;"""FINS TO THE EAST""===>"
GOTO N
CLS
PRINT AT 11,5;"A SHARK EATS YOU."
GOTO U
LET E$="▞8▛3 4WL"
GOTO J
LET E$="  A   LO"
GOTO L
LET E$="   9  LR"
GOTO K
LET E$="      LU"
GOTO K
LET E$="DD( $▛WX"
GOTO J
LET E$="   8  WRND"
GOTO J
LET C=BREATH
GOTO AB
IF A=14 THEN GOTO 502
IF N$(2)<>CHR$ A AND N$(2)<>"USR " THEN GOTO 510
LET C2=0
GOSUB M
GOTO B
CLS
LET C2=C2+1
PRINT "YOU ARE IN A DARK PLACE."
PAUSE 100
PRINT 
IF C2=1 THEN PRINT "SOMETHING IS COMING..."
IF C2=2 THEN PRINT "SOMETHING IS BREATHING ON YOU."
IF C2=3 THEN GOTO 530
PAUSE 100
GOTO 1000
PRINT "YOU ARE GRABBED BY DOZENS OF ICYHANDS AND DRAGGED-OFF TO THE    LAND OF THE DEAD."
LET C=WG
GOTO AB
IF N$(16)="USR " THEN GOTO 544
LET B=1000
PRINT "UNDERWATER, YOU SEE BLURRY      SHAPES."
GOTO 546
GOSUB M
LET C1=C1+1
IF C1=C(1) THEN LET C$="UMMMMMPPPPPHHHH..."
IF C1=C(2) THEN GOTO 560
LET C=SOG
GOSUB 2190
GOTO B
CLS
PRINT AT 6,0;"YOUR LUNGS ARE CRYING FOR AIR..."
GOTO 576
IF M$(1)="S" AND M$(2)="S" THEN GOTO 572
GOTO L
CLS
PRINT AT 6,0;"A WALL OF RUSHING WATER..."
PAUSE 100
PRINT AT 8,7;"CARRIES YOU OFF..."
PAUSE 100
PRINT AT 10,14;"YOU HAVE DROWNED."
PAUSE 100
PRINT AT 20,1;"ENTER...GS1, GS2, OR RESET."
INPUT D$
LET D$=(D$+"   ")(1 TO 3)
IF D$="GS1" OR D$="GS2" OR D$="RES" THEN GOTO 21
CLS
GOTO U
LET S=CODE F$(X)(2)+CODE F$(X)(3)
LET F=CODE F$(X+1)(2)+CODE F$(X+1)(3)-1
RETURN
FOR X=1 TO LEN D$
IF D$(X)=" " THEN GOTO 920
NEXT X
GOTO W
LET A$=D$(1 TO 3)
LET B$=D$(X+1 TO X+3)
IF A$<>"GO " AND A$<>"ENT" THEN GOTO 936
FOR X=1 TO 9
IF B$=G$(X)(1 TO 3) THEN GOTO 933
NEXT X
GOTO W
LET C=CODE G$(X)(4)
GOTO AB
IF A$="DRO" OR A$="LEA" THEN GOTO 1200
FOR X=1 TO TV
IF A$=V$(X) THEN GOTO 943
NEXT X
LET P$="???......THAT DOES NOT COMPUTE."
GOTO SS
LET C=V(X)
GOTO 2200
FOR X=1 TO TN
IF N$(X)=" " OR B$<>F$(X)(4 TO 6) THEN GOTO 950
IF F$(X)(1)="Y" AND A=CODE N$(X) THEN GOTO 966
IF N$(X)="USR " THEN GOTO 956
IF F$(X)(1)="N" AND A=CODE N$(X) THEN GOTO 970
NEXT X
GOTO Z
GOSUB V
LET P$="YOU HAVE THE "+Q$(S TO F)
GOTO T
LET N$(X)="USR "
LET I=I+1
LET P$="O.K., TAKEN."
GOTO T
GOSUB V
IF N$(X)<>CHR$ A THEN GOTO Z
LET P$=Q$(S TO F)+" CANT BE CARRIED"
GOTO T
LET P$="YOU CANNOT CARRY ANY MORE."
GOTO T
PRINT 
IF PEEK 16398+256*PEEK 16399<27975 THEN GOTO 1000
PRINT ,,,,"MORE... (PRESS ENTER)"
INPUT T$
CLS
PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PRINT C$
LET C$=""
LET T$=""
LET D$=""
LET ACT=0
PRINT P$
LET P$=""
LET B=9400
LET C3=C3+1
IF C3>250 THEN LET C3=105
LET C(3)=0
IF C3=1 OR C3=100 THEN GOTO 9850
IF PR>0 THEN GOSUB PR
PRINT W$
LET W$=""
LET PR=0
GOTO 20
FOR X=1 TO H
IF N$(X)=" " THEN GOTO 1204
IF B$=F$(X)(4 TO 6) AND N$(X)="USR " THEN GOTO 1209
NEXT X
LET P$="YOU DONT HAVE IT."
GOTO T
LET I=I-1
LET N$(X)=CHR$ A
LET P$="O.K."
LET C(3)=X
IF A=15 AND A$="THR" THEN GOTO 1216
LET C=LION
GOTO AB
LET N$(X)=" "
LET P$="SPLASH..."
GOTO T
CLS
PRINT "HMMM..LETS SEE (FUMBLE). I HAVE:"
PRINT 
FOR X=1 TO H
IF N$(X)<>"USR " THEN GOTO 1229
GOSUB V
PRINT "===> "+Q$(S TO F)
IF N$(X)="USR " THEN LET IV=1
NEXT X
IF IV=0 THEN PRINT "===> NOTHING AT ALL"
LET IV=0
PRINT 
PRINT "I CAN HANDLE ";7-I;" MORE ITEM(S)."
PRINT 
IF N$(12)="USR " AND N$(3)="USR " THEN PRINT "THE COOKIES ARE IN THE JAR."
PRINT 
PRINT "ENTER COMMAND..."
INPUT D$
IF D$="" THEN GOTO T
GOTO 23
CLS
PRINT AT 10,0;"DO YOU WANT TO SAVE THIS GAME?  ANSWER Y OR N"
INPUT D$
IF D$<>"Y" THEN GOTO T
PRINT "PRESS <ENTER> TO RECORD"
INPUT D$
LET P$="STOP RECORDER"
SAVE "TRIDEN[T]"
LET D$="""TRIDENT"" SAVED"
GOTO T
LET ACT=0
GOTO 2227
LET C=V(X)
LET P$=K$(C)+K$(C+1)+K$(C+2)
IF B$=P$ OR P$="ANY" THEN GOTO 2225
LET P$="THAT DOES NOT WORK."
GOTO 2430
LET C=C+3
LET NX=C
IF K$(NX)=":" THEN GOTO Z
LET C=NX
LET NX=NX+CODE K$(NX)
LET C=C+1
IF K$(C)="." THEN GOTO 2360
LET E=CODE K$(C+1)
GOSUB 2620+CODE K$(C)*10
IF NOT D THEN GOTO 2310
LET C=C+2
GOTO 2250
IF ACT=1 THEN GOTO 2430
GOTO 2230
IF ACT=0 THEN GOTO Z
GOTO 2430
LET ACT=1
LET C=C+1
IF K$(C)=":" THEN GOTO 2310
LET E=CODE K$(C+1)
GOTO 4620+CODE K$(C)*10
LET C=C+2
GOTO 2380
LET ACT=0
GOTO T
LET D=(E=A)
RETURN
LET D=(N$(E)=CHR$ A OR N$(E)="USR ")
RETURN
LET D=(CODE N$(E)<>A AND N$(E)<>"USR ")
RETURN
LET D=(N$(E)="USR ")
RETURN
LET D=(M$(E)="S")
RETURN
LET D=(M$(E)<>"S")
RETURN
LET D=(C(E)=0)
RETURN
LET D=(B$=F$(E)(4 TO 6))
RETURN
LET D=(CODE E$(7)=E)
RETURN
LET D=(E<>A)
RETURN
LET D=(N$(E)=" ")
RETURN
LET D=(N$(E)<>" ")
RETURN
LET D=(N$(E)<>"USR ")
RETURN
LET D=(B$=F$(E)(4 TO 6) AND N$(E)<>" ")
RETURN
LET D=(B$<>F$(E)(4 TO 6))
RETURN
LET D=(I>E)
RETURN
LET D=(N$(E)=CHR$ A)
RETURN
LET D=(A=13 OR A=17 OR A=20)
RETURN
GOTO 6000+(E-38)*10
LET M$(E)="S"
GOTO G
LET M$(E)="N"
GOTO G
LET T$=STR$ E
LET C(VAL T$(1))=VAL T$(2)
GOTO G
LET T$=N$(E)
LET N$(E)=N$(E+1)
LET N$(E+1)=T$
GOTO G
LET N$(E)=CHR$ A
GOTO G
LET N$(E)=" "
GOTO G
LET A=E
GOTO G
LET I=I-1
GOTO G
LET P$="NOT FROM HERE."
GOTO T
LET P$="ITS LOCKED."
GOTO T
LET P$="THE DOOR IS HELD TIGHT BY HUGE  ""DOGS"", YOU MUST ""FREE"" THEM BE-FORE YOU CAN GO IN."
GOTO T
LET P$="IT WONT BUDGE."
GOTO T
LET P$="THE TANK IS TOO LARGE."
GOTO T
LET P$="GRRRRRRRR, FORGET IT."
GOTO T
LET P$="THE EEL WONT LET YOU."
GOTO T
CLS
PRINT AT 10,0;"SNAP...YOU HAVE BROKEN YOUR NECK"
GOTO 579
LET P$="WITH WHAT, YOUR TOENAILS?"
GOTO T
LET P$="CREEEEEEK...A COLD, DANK, DRAFT PUSHES THE DOOR OPEN."
GOTO G
LET P$="ITS NOT LOCKED."
GOTO T
LET P$="I DONT SEE A KEYHOLE."
GOTO T
LET P$="IT IS CLOSED."
GOTO T
LET P$="CLICK..."
GOTO G
GOTO Y
LET P$="YOU CANT CARRY ANY MORE."
GOTO T
LET P$="ITS TIED TO THE ANCHOR."
GOTO T
GOTO 945
GOTO AC
LET P$=X$(96 TO 181)
GOTO J
LET P$="SPLASH..."
GOTO T
LET P$=X$(182 TO 253)
IF N$(24)=" " THEN LET W$="HE THEN YAWNS AND TROTS INTO THECAVERN."
GOTO T
LET P$="SCARF, LICK, WAG, WAG, WAG, ..."
GOTO 154
LET P$="A SEA LION GRABS SOMETHING AND  SWIMS AWAY."
LET N$(C(3))="E"
IF A=42 THEN LET P$="A SEA LION NODS IN APPROVAL."
IF X=15 THEN LET C1=-1
IF X=17 THEN LET C1=3
IF X=12 THEN LET N$(X)=" "
GOTO T
GOTO AC
LET P$="TIIIMBERRR...CRASH."
GOTO G
LET P$="O.K."
GOTO G
LET P$="WHATEVER YOU SAY (HEH, HEH)"
GOTO T
LET P$="SHAME ON YOU."
GOTO T
LET P$="YOU CAN KNOT DO THAT...GORDIUS"
GOTO T
LET C(3)=6
GOTO 6230
LET P$="THE HATCH IS SECURE"
GOTO T
LET P$="THAT DOES NOT WORK"
GOTO T
LET P$="GULP..."
GOTO GI
LET P$="YUCK...THE CLAMS ARE SPIT OUT."
GOTO GI
LET P$=X$(1 TO 95)
LET N$(18)="E"
GOTO GI
LET P$="NO SNACKING BETWEEN MEALS."
GOTO T
LET P$="TRY TO GO THERE."
GOTO T
LET P$="THE DOGS ARE LOOSE (ARF, ARF)."
GOTO T
LET P$="YOU FOUND SOMETHING."
GOTO T
LET CT=GM-1
FOR X=GM TO GM+28
LET S$(X)=N$(X-CT)
NEXT X
FOR X=GM+29 TO GM+37
LET S$(X)=M$(X-29-CT)
NEXT X
LET S$(GM+38)=CHR$ C1
LET S$(GM+39)=CHR$ C2
LET S$(GM+40)=CHR$ C3
LET S$(GM+41)=CHR$ I
LET S$(GM+42)=CHR$ A
LET P$="SNAPSHOT TAKEN."
GOTO SS
LET CT=GM-1
FOR X=GM TO GM+28
LET N$(X-CT)=S$(X)
NEXT X
FOR X=GM+29 TO GM+37
LET M$(X-29-CT)=S$(X)
NEXT X
LET C1=CODE S$(GM+38)
LET C2=CODE S$(GM+39)
LET C3=CODE S$(GM+40)
LET I=CODE S$(GM+41)
LET A=CODE S$(GM+42)
LET P$="SNAPSHOT RETRIEVED"
GOTO SS
LET GM=1
GOTO G
LET GM=44
GOTO G
CLS
PRINT "AS YOU ENTER THE CAVE YOUR LIGHTGOES OUT..."
PRINT 
PAUSE 200
GOTO 530
LET W$="THE COOKIES FALL APART AND ARE  EATEN BY SWIMMING CRABS."
RETURN
GOTO 9800
GOTO 1256
GOTO U
PRINT 
LET S=O
LET F=P
SLOW
GOSUB 6699
LET S=Q
LET F=R
GOSUB 6700
FAST
GOTO U
GOTO 1017
LET P$="THE LIGHT CANNOT BE TURNED OFF."
GOTO T
LET P$="A PLATE ON THE HATCH READS...   ""SECURE BEFORE PRESSURIZING."""
GOTO T
LET P$=X$(254 TO 336)
GOTO T
LET P$="DOGS HOLDING THE DOOR SHUT CAN  BE FREED WITH THE PROPER TOOL."
GOTO T
LET P$="YOU SEE A SMOOTH DOOR."
GOTO T
LET P$="IT WINKS AND HAS LONG EYELASHES."
GOTO T
LET P$="POOR THING LOOKS HUNGRY."
GOTO T
LET P$="LOOKS LIKE A DOGWOOD."
GOTO T
LET P$="YOU SEE NOTHING SPECIAL."
GOTO T
PAUSE 200
FOR X=S TO F
PRINT K$(X);
NEXT X
PRINT 
PRINT 
RETURN
IF C2>0 THEN LET C2=C2-1
IF C1>0 THEN LET C1=C1-1
LET C3=C3-1
GOTO T
PRINT 
IF E$(1 TO 6)="      " THEN GOTO 10
PRINT "VISIBLE EXIT(S)..."
FOR X=1 TO 5
IF E$(X)<>" " THEN PRINT Y$((X*6)-5 TO X*6);
NEXT X
IF E$(6)<>" " THEN PRINT "UP"
PRINT 
IF A=15 THEN GOTO 10
PRINT 
GOTO 10
FOR X=1 TO TN
LET N$(X)=I$(X)
NEXT X
FOR X=1 TO 9
LET M$(X)="N"
NEXT X
LET C3=0
LET A=31
LET I=0
GOTO T
IF C3=1 THEN GOTO 9900
LET C3=105
LET C=CSF
GOTO 2227
CLS
PRINT AT 5,7;"""THE TRIDENT"""
PRINT AT 7,1;"COPYRIGHT GEORGE GREEN, 1983"
PRINT AT 10,0;"PRESS ENTER OR NEW LINE TO CONT."
INPUT D$
LET PR=9910
CLS
GOTO 7
PRINT "A VOICE BOOOOOOOOOOOOOOOOOOOOOMSOUT FROM OVER THE WAVES...,     ""I, POSEIDON, GOD OF THE SEAS,  HAVE LOST MY TRIDENT. RETURN IT AND I WILL MAKE YOU RICH BEYOND YOUR WILDEST DREAMS."""
RETURN
SAVE "TRIDEN[T]"
GOTO 9800

Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.