0100 ;SAVE#D:SPYPT5.M65
0120 ;
0130 ;-------------------;
0140 ;   Secret Agent    ;
0150 ;     (c) 1988      ;
0160 ;  by Barry Kolbe   ;
0170 ;-------------------;
0180 ;
0190 ;Table of Verbs (Commands)
0200 ;
0210 CMDTBL .WORD DGET ;get
0220     .WORD DDRO  ;drop
0230     .WORD DOPE  ;open
0240     .WORD DREA  ;read
0250     .WORD DINS  ;insert
0260     .WORD DWEA  ;wear
0270     .WORD DTUR  ;turn
0280     .WORD DFLI  ;flip
0290     .WORD DEXA  ;examine
0300     .WORD DWAV  ;wave
0310     .WORD DSHO  ;shoot
0320     .WORD DGET  ;take
0330     .WORD DLIF  ;lift
0340     .WORD DMOV  ;move
0350     .WORD DPUS  ;push
0360     .WORD DOPE  ;unlock
0370     .WORD DPUS  ;press
0380     .WORD DINS  ;put ($12)
0390 ;
0400 ;Table of Room Descriptions
0410 ;
0420 DESTAB .WORD D0
0430     .WORD D1
0440     .WORD D1
0450     .WORD D3
0460     .WORD D4
0470     .WORD D5
0480     .WORD D1
0490     .WORD D7
0500     .WORD D8
0510 APEROM .WORD DE
0520     .WORD DE
0530     .WORD D5
0540     .WORD DC
0550     .WORD DD
0560     .WORD DE
0570 SAFROM .WORD DF
0580     .WORD D10
0590     .WORD D11
0600     .WORD D12
0610     .WORD D13
0620     .WORD D14
0630     .WORD D15
0640     .WORD DFAKE
0650     .WORD D17
0660     .WORD DE
0670     .WORD D19
0680 ROBROM .WORD D1A
0690     .WORD D1B
0700     .WORD D1C
0710     .WORD D1D
0720     .WORD DFAKE
0730     .WORD DFAKE
0740     .WORD DFAKE
0750 ;
0760 ;Room Names
0770 ;
0780 R0  .BYTE "Outside",0
0790 R1  .BYTE "Entrance",0
0800 R2  .BYTE "Reception area",0
0810 R3  .BYTE "Conference room",0
0820 R4  .BYTE "Kitchen",0
0830 R5  .BYTE "Security area",0
0840 R6  .BYTE "Experiment room",0
0850 R7  .BYTE "Storage room",0
0860 R8  .BYTE "Animal room",0
0870 R9  .BYTE "West end of hallway"
0880     .BYTE 0
0890 RA  .BYTE "Hallway",0
0900 RB  .BYTE "Cafeteria",0
0910 RC  .BYTE "Stairwell",0
0920 RD  .BYTE "Office",0
0930 RE  .BYTE "Chemical Lab",0
0940 RF  .BYTE "X-ray Lab",0
0950 RG  .BYTE "Computer Lab",0
0960 RH  .BYTE "Photo Lab",0
0970 RI  .BYTE "Electronics Lab",0
0980 RJ  .BYTE "Small room",0
0990 RK  .BYTE "Tunnel",0
1000 RL  .BYTE "Cage",0
1010 ;
1020 ;Messages
1030 ;
1040 XNOR .BYTE "North, ",0
1050 XSOU .BYTE "South, ",0
1060 XEAS .BYTE "East, ",0
1070 XWES .BYTE "West, ",0
1080 XUP .BYTE "Up, ",0
1090 XDOW .BYTE "Down, ",0
1100 ;
1110 YOUH .BYTE "You have: "
1120 NOTH .BYTE "Nothing ",0
1130 YOUS .BYTE "You see: "
1140 M1  .BYTE "What?",0
1150 M2  .BYTE "Done.",0
1160 M3  .BYTE "It's not here. ",0
1170 M4  .BYTE "Taken. ",0
1180 M5  .BYTE "You don't have that"
1190     .BYTE ". ",0
1200 M6  .BYTE "Dropped. ",0
1210 M7  .BYTE "You can't carry "
1220     .BYTE "anymore. ",0
1230 M8  .BYTE "You can't go that "
1240     .BYTE "way. ",0
1250 M9  .BYTE "The exits are: ",0
1260 M10 .BYTE "You see: ",0
1270 M11 .BYTE "You already have "
1280     .BYTE "that. ",0
1290 M12 .BYTE "You see nothing "
1300     .BYTE "special. ",0
1310 M13 .BYTE "It's open. ",0
1320 M14 .BYTE "Not yet. ",0
1330 M16 .BYTE "It won't fit. ",0
1340 M17 .BYTE "You are wearing the"
1350     .BYTE " scuba gear. ",0
1360 M18 .BYTE "Nothing happens. "
1370     .BYTE 0
1380 M19 .BYTE "You can't do tha"
1390     .BYTE "t. ",0
1400 M20 .BYTE "'The blue button tu"
1410     .BYTE "rns off the lasers"
1420     .BYTE ".' ",0
1430 M21 .BYTE "The title is: The "
1440     .BYTE "Effect of Bio-Agents"
1450     .BYTE " on Mammals. ",0
1460 M22 .BYTE "It says: 'Tighten "
1470     .BYTE "security on all fl"
1480     .BYTE "oors.' ",0
1490 M23 .BYTE "You can't read tha"
1500     .BYTE "t. ",0
1510 M24 .BYTE "You can't get tha"
1520     .BYTE "t! ",0
1530 M25 .BYTE "You can't open t"
1540     .BYTE "hat. ",0
1550 M27 .BYTE "What for? ",0
1560 M28 .BYTE ".. Click.. ",0
1570 M29 .BYTE "The safe opens. ",0
1580 M30 .BYTE "There's an ON/OFF s"
1590     .BYTE "witch on it. ",0
1600 M31 .BYTE "You are wearing the"
1610     .BYTE " gas mask. ",0
1620 M33 .BYTE "You missed. ",0
1630 M34 .BYTE "A laser blast from "
1640     .BYTE "the robot atomizes "
1650     .BYTE "you! ",0
1660 M35 .BYTE "The robot fires, but"
1670     .BYTE " misses. ",0
1680 M36 .BYTE "The ape crushes your"
1690     .BYTE "bones.. Crack.. ",0
1700 M37 .BYTE "The ape is charging "
1710     .BYTE "at you! ",0
1720 M38 .BYTE "The floor is electr"
1730     .BYTE "ified. Zzzit.. ",0
1740 M39 .BYTE "You choke as poison"
1750     .BYTE "ed gas seeps into y"
1760     .BYTE "our lungs! ",0
1770 M40 .BYTE "Deadly radiation mel"
1780     .BYTE "ts your flesh. ",0
1790 M41 .BYTE "You failed your miss"
1800     .BYTE "ion. ",0
1810 M42 .BYTE "You escaped from the"
1820     .BYTE " lab. ",0
1830 M43 .BYTE "Suddenly laser burst"
1840     .BYTE "s cut through you. "
1850     .BYTE 0
1860 M44 .BYTE "Your mission was suc"
1870     .BYTE "cessful. ",0
1880 M45 .BYTE "Water floods the com"
1890     .BYTE "partment. ",0
1900 M46 .BYTE "You drown in the mur"
1910     .BYTE "ky waters..blub.. ",0
1920 M47 .BYTE "Secret Agent: Missi"
1930     .BYTE "on 1 ",0
1940 M48 .BYTE "  (c) 1988 by Barry"
1950     .BYTE " Kolbe ",0
1960 M49 .BYTE "Press START to try "
1970     .BYTE "again. ",0
1980 M50 .BYTE "Shoot at what? ",0
1990 M51 .BYTE "There's no room. ",0
2000 M52 .BYTE "The escaping viurs a"
2010     .BYTE "ttacks your body. ",0
2020 M53 .BYTE "A steel door blocks "
2030     .BYTE "the east door. ",0
2040 M54 .BYTE "It has a gravity con"
2050     .BYTE "trolled switch. ",0
2060 ;
2070 ;They Gotcha!
2080 ;
2090 DEADTAB .WORD M34 ;robot
2100     .WORD M36   ;ape
2110     .WORD M38   ;floor
2120     .WORD M39   ;gas
2130     .WORD M40   ;x-ray
2140     .WORD M43   ;lasers
2150     .WORD M46   ;flood
2160     .WORD M52   ;drop vial
2170 ;
2180 ;Descriptions of Rooms
2190 ;
2200 D0  .BYTE "The entrance to the "
2210     .BYTE "Hanover-Tyler resea"
2220     .BYTE "rch facility lies to"
2230     .BYTE " the west. ",0
2240 D1  .BYTE "A desk is in the co"
2250     .BYTE "rner of the room. "
2260     .BYTE 0
2270 D3  .BYTE "There is an oval ta"
2280     .BYTE "ble with chairs. ",0
2290 D4  .BYTE "A food cabinet is "
2300     .BYTE "on the east wall. ",0
2310 D5  .BYTE "Hanging on the wall"
2320     .BYTE " is a metal cabinet "
2330     .BYTE "with a slot. ",0
2340 D7  .BYTE "Red and blue button"
2350     .BYTE "s are near the door"
2360     .BYTE ". ",0
2370 D8  .BYTE "Shelves make up the"
2380     .BYTE " south wall. ",0
2390 D9  .BYTE "An albino ape is in "
2400     .BYTE "a cage. ",0
2410 DC  .BYTE "There are tables, "
2420     .BYTE "chairs, and a vend"
2430     .BYTE "ing machine. ",0
2440 DD  .BYTE "A decorative plant"
2450     .BYTE " sits in the corne"
2460     .BYTE "r. ",0
2470 DE  .BYTE "There is a knob on"
2480     .BYTE " the wall. ",0
2490 DF  .BYTE "A scenic picutre h"
2500     .BYTE "angs on the east wa"
2510     .BYTE "ll and a table lies"
2520     .BYTE " to the west. ",0
2530 D10 .BYTE "Chemicals lie on "
2540     .BYTE "the tables. There's"
2550     .BYTE " a switch by the do"
2560     .BYTE "or. ",0
2570 D11 .BYTE "Looks dangerous i"
2580     .BYTE "n here. ",0
2590 D12 .BYTE "There is a hole "
2600     .BYTE "near the west door"
2610     .BYTE ". ",0
2620 D13 .BYTE "There is a coat ha"
2630     .BYTE "nging on a hook. ",0
2640 D14 .BYTE "There is an ATARI "
2650     .BYTE "130XE computer, driv"
2660     .BYTE "e and printer here."
2670     .BYTE " ",0
2680 D15 .BYTE "A photo-enlarger r"
2690     .BYTE "ests on a lab table"
2700     .BYTE ". ",0
2710 D17 .BYTE "A door in the east"
2720     .BYTE " wall. ",0
2730 D19 .BYTE "The furniture cons"
2740     .BYTE "ists of a desk and a"
2750     .BYTE " cabinet. ",0
2760 D1A .BYTE "A robot guards the"
2770     .BYTE " exits. ",0
2780 D1B .BYTE "A 36 inch high cab"
2790     .BYTE "inet is in the cor"
2800     .BYTE "ner. ",0
2810 D1C .BYTE "Lots of resisters"
2820     .BYTE " and chips clutter "
2830     .BYTE "the tables. ",0
2840 D1D .BYTE "There is a blue bu"
2850     .BYTE "tton by the door. "
2860     .BYTE 0
2870 ;
2880 ;These replace the regular
2890 ;descriptions when the 'ape'
2900 ;and 'robot' are eliminated
2910 ;
2920 D1F .BYTE "A mangled robot l"
2930     .BYTE "ies on the floor. ",0
2940 D20 .BYTE "A dead ape lies "
2950     .BYTE "on the floor. ",0
2960 DSAF .BYTE "There is a safe her"
2970     .BYTE "e. ",0
2980 ;
2990 ;No description on some rooms
3000 ;
3010 DFAKE .BYTE $FF