Notes

Disk info for Cyborg_1981_Sentient_Software.do:

File Name: a2_Cyborg_1981_Sentient_Software/Cyborg_1981_Sentient_Software.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 256
Used Space (bytes): 143104
Physical Size (KB): 140
Free Space (KB): 0
Used Space (KB): 139
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 1
Used Sectors: 559
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Cyborg_1981_Sentient_Software.do:

a2_Cyborg_1981_Sentient_Software/Cyborg_1981_Sentient_Software.do DISK VOLUME #254
A 002 HELLO
A 086 W
T 015 G
T 003 A
T 058 O
T 011 K
T 011 H
T 050 I
B 006 S1
B 006 S2
T 022 R$
I 002 APPLESOFT
T 004 R
B 014 L(ML)
T 197 D
B 002 RESET
B 006 S3
DOS 3.3 format; 256 bytes free; 143,104 bytes used.

Text found in Cyborg_1981_Sentient_Software.do/A.txt:

VICIOUS SNAKE
19
17
CRAZY SMADA
150
150
BERSERK SERVO ROBOT
103
150
CRABBETTE
150
150
79
20
150
WATER
BEAKER
65
83
75
ID CARD
PERMANENT POWER CELL
9
9
56
HARNESS
27
28
140
141
100
THE DIAL IS NOW FULLY OPERATIONAL.
56
A LITTLE METAL GRILL IS MOUNTED IN THE WALL.
THE VIEWSCREENS SHOW A
WANDERING BERSERKCLEANING ROBOT
TOTALLY DISABLED CLEANING ROBOT
ROWS OF 'SLEEPERS' IN CAPSULES AND
REVIVED 'SLEEPERS' IN A BIG ROOM AND
A HULL BREACH IN THE CARGO HOLD.
A REPAIR PATCH ON THE HULL BREACH.

Text found in Cyborg_1981_Sentient_Software.do/APPLESOFT.int:

0 POKE 1012,0
10 PRINT "RUN HELLO"

Text found in Cyborg_1981_Sentient_Software.do/D.txt:

WE HAVE ENTERED WHAT COULD ONLY BE AN OBSERVATION BUBBLE. THE BUBBLE IS MADE OF A THICK, UNBREAKABLE, CLEAR PLASTIC THAT SHOWS AN INCREDIBLE VIEW: BEFORE US IS A BEAUTIFUL PLANET, DEFINITELY NOTEARTH, SLOWLY ROTATING ON ITS AXIS.
WE'RE IN A TRANSPARENT BUBBLE-ROOM.
000!HOME SWEET HOME.
000* THE PLANET LOOKS HABITABLE.
000
000
*000*000*000*000*000*000*079*000*000*000
WE ARE IN THE SOUTH END OF THE DOMED ROOM. A SMALL DOORWAY GOES TO THE SOUTH,BUT IT'S TOO NARROW FOR US TO FIT THROUGH. SCANNING THE OPENING REVEALS A SMALL, WHITE ROOM WITH ROWS OF HOOKS ON THE WALL.
WE'RE IN SOUTH END OF DOMED ROOM.
109*11*5*51*86
000$* NO WAY WE COULD SQUEEZE THROUGH.
000
000
*079*000*000*000*000*000*000*000*000*000
WE'VE ENTERED AN AIRLOCK. A RED BUTTON ON THE WALL HAS THE FOLLOWING INSCRIBED IN IT: "PRESS BUTTON TO CYCLE AIRLOCK." WE CAN SEE THE DARKNESS OF SPACE THROUGHTHE 5" THICK GLASS.
WE'RE IN THE AIRLOCK.
096*11*7*45*96
000!FRONTIER CITY!
000* THIS IS NO PLACE TO ASK ME ABOUT. YOU HAD BETTER KNOW WHAT'S GOING ON.
000
*000*000*079*000*000*000*062*000*000*000
WE'RE IN THE EAST END OF THE RUINED HYDROPONICS ROOM. A QUICK SCAN REVEALS NONE OF THE TANKS ARE OPERATIONAL. THEREIS A SMALL RENT IN THE EAST WALL THAT ISEXPOSING SEVERAL WIRE HARNESSES AND LOOSE CABLES. THE FLOOR IS A MESS.
WE'RE IN EAST END OF HYDROPONICS ROOM.
114BUNCH OF WIRE
000
000
000
*000*000*000*000*000*000*075*000*000*000
WE'RE MIDWAY DOWN A NW/SE, RED-STRIPED CORRIDOR. SCANNING TO THE NORTHWEST REVEALS THE END OF THE CORRIDOR IS BATHED IN INFRARED LIGHT.
WE'RE MIDWAY DOWN NW/SE, RED CORRIDOR.
000$* THE RED MUST INDICATE SOME IMPORTANCE TO THIS GENERAL AREA.
000
000
000
*000*000*000*077*000*000*000*085*000*000
WE'RE STANDING IN A NORTH/SOUTH PASSAGE THAT HAS A TALL, UNCLIMBABLE METAL WALL TO THE WEST. A SOUTHEAST CORRIDOR CUTS THROUGH THE EAST WALL. HIGH OVERHEAD, TOTHE WEST, AN AREA IS VISIBLE.
WE'RE BY WEST WALL IN N/S RED PASSAGE.
099*11*9*26*103
000$* THE PLACE HIGH AND TO THE WEST SHOULD BE EXPLORED.
000
000
*086*000*000*084*087*000*000*000*088*000
WE'RE AT THE END OF THE N/S RED-STRIPED PASSAGEWAY. BEFORE US, TO THE NORTH, IS A SMALL ROOM. THE ROOM IS A MESS AND IS CLUTTERED WITH EQUIPMENT AND DEBRIS FROMWHAT LOOKS LIKE AN EXPLOSION.
WE'RE AT NORTH END OF RED-STRIPED HALL- WAY.
000
000
000
000
*097*000*000*000*085*000*000*000*000*000
WE'RE AT THE SOUTH END OF A RED-STRIPED,NORTH/SOUTH PASSAGEWAY. TO THE SOUTH IS A DOORWAY LEADING INTO A SMALL ROOM.
WE'RE AT SOUTH END OF N/S HALLWAY.
000
000
000
000
*085*000*000*000*098*000*000*000*000*000
WE'RE IN THE EAST END OF A HUGE, SQUARE,LOW-CEILINGED ROOM. TO THE EAST IS A SHEER WALL GOING DOWN INTO A N/S PASSAGEWITH A LADDER ON THE FLOOR. THE WALLS OFTHE ROOM ARE WHITE AND LINED WITH DIALS,SWITCHES, CONTROLS AND VIEWSCREENS.
WE'RE ON EAST EDGE OF "BRIDGE".
000$* THIS APPEARS TO BE A SHIP'S BRIDGE.
000!PRETTY DIALS!
000
000
*000*000*085*000*000*000*055*000*000*085
WE'RE HALFWAY UP THE SLOPING, YELLOW- STRIPED, NORTH/SOUTH CORRIDOR. SCANNING DETECTS A STRANGE RAY EMANATING FROM THETOP OF THE HALL, TO THE NORTH, SCANNING US.
WE'RE HALFWAY UP YELLOW, N/S CORRIDOR.
000
000
000
000
*090*000*000*000*074*000*000*000*090*074
WE'RE AT THE TOP OF THE RISING, N/S CORRIDOR. TO THE NORTH IS A ROOM WITH LIGHT-YELLOW WALLS; LAB WORKBENCHES AND STRANGE EQUIPMENT FILL THE ROOM. THE CORRIDOR HEADS DOWNWARD TO THE SOUTH, AND A SMALL PASSAGE CONTINUES EAST.
WE'RE AT TOP OF YELLOW, N/S HALLWAY.
000
000
000
000
*091*000*092*000*089*000*000*000*000*089
WE'VE ENTERED A LABORATORY. WORKBENCHES AND EQUIPMENT ARE SCATTERED AROUND IN DISARRAY, MANY OF THE GLASS PIECES SHATTERED OR BROKEN. A DOORWAY TO THE SOUTH LEADS OUT TO A DESCENDING CORRIDORWHILE ANOTHER ONE LEADS TO THE EAST.
WE'RE IN A LABORATORY.
074EMPTY BEAKER
000$* THIS AREA SEEMS TO HAVE SUFFERED THE MOST.
000
000
*000*000*093*000*090*000*000*000*000*000
TO THE NORTH, THROUGH A DOORWAY, IS A LARGE ROOM FILLED WITH PADDED TABLES. THE EAST/WEST CORRIDOR ENDS HERE.
WE'RE AT THE END OF AN E/W CORRIDOR.
000$* ENTRY TO THE NORTH MAY BE PRODUCTIVE.
000!I DON'T LIKE DOCS!
000
000
*094*000*000*000*000*000*090*000*000*000
WE'VE ENTERED A SMALL STORAGE ROOM OFF THE LABORATORY. THE SHELVES ARE EMPTY, AND BROKEN BOTTLES AND CHEMICALS LITTER THE FLOOR AS IF AN EXPLOSION OCCURRED NEARBY. A RUPTURED PIPE ON THE WALL IS LEAKING LIQUID OXYGEN THAT BOILS IN A PUDDLE.
WE'RE IN THE STORAGE ROOM OFF LAB.
067LIQUID OXYGEN
000$* JUST BE CAREFUL.
000!KABOOM!
000
*000*000*000*000*000*000*091*000*000*000
00
AROUND US ARE WHAT LOOK LIKE EXAMINATIONTABLES. MEDICAL SUPPLIES AND EQUIPMENT ARE SCATTERED ABOUT THE ROOM AND WORK TABLES. THE ROOM, MOST LIKELY A SICKBAY,IS "L" SHAPED AND BRANCHES OFF TO THE WEST.
WE'RE IN THE SOUTH END OF "SICKBAY".
000!LET'S PLAY DOCTOR.
000$* WE MAY BE ABLE TO REPAIR SOME DAMAGE HERE.
000
000
*000*000*000*000*092*000*095*000*000*000
WE'RE IN THE WEST "L" IN THE SICKBAY. A TALL AND NARROW GLASS CYLINDER STANDS BEFORE US. THE ROOM BENDS AROUND TO THE EAST WHERE EXAMINATION TABLES AND RUINEDMEDICAL EQUIPMENT ARE SCATTERED ABOUT.
WE'RE IN WEST END OF "SICKBAY".
138*11*7*16*137
137*16*-1*111
000$* THE CYLINDER CAN HEAL OUR FLESH.
000
*000*000*094*000*000*000*096*000*000*000
BEFORE US, AT WAIST HEIGHT, IS A SMALL LEVER MOUNTED ON A PEDESTAL. A LITTLE SIGN OVER THE LEVER SAYS "PULL LEVER TO ACTIVATE PHYSICAL RESTORATION CYCLE." WE'RE INSIDE THE GLASS CYLINDER.
WE'RE INSIDE THE GLASS CYLINDER.
135*45*58*138
000!INSIDE! INSIDE!
000$* THE GLASS PANEL LOOKS FRAGILE.
000
*000*000*095*000*000*000*000*000*000*000
WE'RE IN A SMALL RED CABIN THAT'S IN A TREMENDOUS STATE OF DISARRAY. A DOORWAY TO THE SOUTH LEADS OUT INTO A HALLWAY. BEFORE US, SITTING ON A TABLE, IS WHAT LOOKS LIKE AN ULTRAFICHE READER WITH TWOSLOTS IN IT.
WE'RE IN A MESSY CABIN.
133*29*26*83
000!BEDTIME STORY?
000$* FOLLOWING THE PROPER SEQUENCE SHOULD YIELD GOOD DATA.
000
*000*000*000*000*086*000*000*000*000*000
WE'RE IN A SMALL ROOM WHOSE WALLS ARE BATHED IN RED LIGHT. THE ROOM IS BARE BUT FOR A SINGLE, EERILY-LIT TABLE. ON THE MIDDLE OF THE TABLE IS A "TRIP BALANCE", A SET OF SCALES WITH A DISH ONEACH SIDE OF A NEEDLE-FULCRUM.
WE'RE IN AN EERILY-LIT BARE ROOM.
113POWER CRYSTAL
132*25
000$* THE SCALES ARE DANGEROUS...
000
*087*000*000*000*000*000*000*000*000*000
000*000
WE'RE STANDING OUTSIDE THE CARGO HOLD, LOOKING THROUGH A THICK, GLASS WINDOW. THE DOORWAY HAS A SMALL HORIZONTAL SLOT MOUNTED IN IT, AND A SIGN OVER THE DOOR SAYS "AUTHORIZED PERSONNEL." A SMALL, ALIEN SHIP CAN BE SEEN PAST THE DEBRIS.
WE'RE STANDING OUTSIDE CARGO HOLD.
131AIRTIGHT PORTAL*11*1*26*83
000
000
000
*116*000*000*000*073*000*000*000*000*000
BEFORE US IS A DOORWAY THAT LEADS INTO AVAST, SOUTHERN CHAMBER. THE WALLS REACH UP TO A HIGH CEILING AND ARE LINED WITH ROW AFTER ROW OF CLEAR GLASS CAPSULES. TO THE NORTH IS THE BOTTOM OF THE VERTICAL SHAFT.
WE'RE STANDING BEFORE THE 'SLEEPERS' CHAMBER.
000!LET'S CHECK IT OUT.
000$* THE SLEEPERS... I'M REMEMBERING.
000
000
*073*000*000*000*102*000*000*000*000*000
WE'RE STANDING IN A WIDE, WEST HALLWAY. BEHIND US, TO THE EAST, IS THE VERTICAL SHAFT THAT LEADS UP TO THE OTHER LEVELS.THE LIGHTING HERE IS VERY DIM, AND MY SCANNERS DETECT A LARGE ENCLOSED AREA TOTHE WEST.
WE'RE IN WIDE WEST HALLWAY.
000!WEST WIDE WEST.
000$* THIS AREA FEELS WARM AND FRIENDLY.
000
000
*000*000*073*000*000*000*106*000*000*000
WE'VE IN THE NORTH END OF THE "SLEEPERS"CHAMBER, STANDING ON A NARROW, NORTH/ SOUTH PATH THROUGH ROWS OF ENCLOSED CAPSULES. EACH CAPSULE HOLDS A HUMAN, FROZEN IN SUSPENDED ANIMATION. A DOORWAYLIES TO THE NORTH.
WE'RE IN N END OF "SLEEPERS" CHAMBER.
079
000!SLEEPY-TIME!
000$* I'M REMEMBERING WHEN WE PUT THEM TO SLEEP.
000
*100*000*000*000*103*000*000*000*000*000
WE'RE MIDWAY DOWN A NORTH/SOUTH PATH THAT LEADS THROUGH THE ROWS OF CAPSULES FILLED WITH FROZEN PEOPLE, PASSENGERS WAITING FOR THE CHANCE TO POPULATE THE NEARBY PLANET.
WE'RE MIDWAY DOWN THE "SLEEPERS" ROOM.
000$* THE ROBOT MAY HAVE SOMETHING WE CAN USE.
000
000
000!BAD 'BOT!
*102*000*000*000*104*000*000*000*000*000
WE'RE IN THE SOUTH END OF THE "SLEEPERS"CHAMBER. CAPSULES FLANK US ON BOTH SIDESAND ARE FILLED WITH PEOPLE. TO THE SOUTHIS A DOORWAY LEADING INTO WHAT APPEARS TO BE AN EQUALLY LARGE ROOM.
WE'RE IN SOUTH END OF CHAMBER.
000$* SCANNING DETECTS A LIFE FORM TO THE SOUTH.
000
000
000
*103*000*000*000*105*000*000*000*000*000
WE'RE IN THE NORTH END OF WHAT MUST BE THE ENGINEERING SECTION OF THE SHIP. TO THE NORTH IS A DOORWAY. THE WALLS ARE MOSTLY PIPES AND TUBES. A SMALL IGUANA- LIKE CREATURE SITS HERE, PLAYING WITH SOMETHING. IT APPEARS TO BE BORED.
WE'RE IN ENGINEERING SECTION BY IGUANA.
110SLEEPER'S MANUAL*25*26*104
145
000!BUSY LITTLE GUY!
000
*104*000*000*000*000*000*000*000*000*000
WE'RE AT A JUNCTION IN THE WEST HALLWAY.BEFORE US IS A DOORWAY INTO A LARGE ROOMWHILE THE HALLWAY TO THE EAST GOES BACK TO THE SHAFT. THE HALLWAY CONTINUES TO THE NORTH AND SOUTH.
WE'RE AT THE HALLWAY JUNCTION.
000!THRU THE DOOR.
000$* SCANNING DETECTS NOTHING OUT OF THE ORDINARY.
000
000
*107*000*101*000*108*000*109*000*000*000
WE'RE IN A NARROW, NORTH/SOUTH HALLWAY THAT IS COMPLETELY DARK. THE WALL TO THEWEST, UNDER A SONAR SCAN, REVEALS A HUGEENCLOSED AREA BEHIND IT.
WE'RE IN NARROW, N/S HALLWAY.
000!KEEP ON!
000$* THE LARGE CHAMBER MAY BE A RESTING AREA.
000
000
*110*000*000*000*106*000*000*000*000*000
00*000
WE'RE IN THE SOUTHERN HALF OF THE NORTH/SOUTH, NARROW HALLWAY THAT CONTINUES TO THE SOUTH. THE HALLWAY NARROWS HERE, ITSWALLS PAINTED A DARK, WARM BLUE.
WE'RE IN SOUTHERN HALF OF HALLWAY.
000
000
000
000
*106*000*000*000*114*000*000*000*000*000
06*000*000*000*114*000*113*000*000*000
WE'RE IN THE CENTER OF A VERY LONG HALL THAT LOOKS LIKE A DORMITORY. BEDS AND CHAIRS AND DRESSERS ARE SCATTERED ABOUT,NO DOUBT THROUGH SOME EXPLOSION. A DOOR-WAY LEADS OUT TO THE EAST.
WE'RE IN CENTER OF DORMITORY.
079
000!DORM CITY!
000
000
*111*000*106*000*113*000*000*000*000*000
000*000*000*000*000*000*000*000*000
WE'VE COME TO THE END OF THE NORTH/SOUTHHALLWAY. BEFORE US, TO THE WEST, IS A LARGE, OPEN DOORWAY LEADING INTO A HUGE ROOM. SCANNING DETECTS THE REMNANTS OF HUMAN HABITATION.
WE'RE AT NORTH END OF HALLWAY.
000!IN IN IN!
000
000
000
*000*000*000*000*107*000*112*000*000*000
BEFORE US ARE BEDS, WRENCHED FROM THEIR MOUNTINGS ON THE FLOOR. BENEATH ONE OF THEM IS A LARGE STORAGE LOCKER, TILTED ON ITS SIDE. THE ENTIRE DORMITORY LOOKS LIKE IT COULD USE THE SERVICES OF A CLEANING SERVO-UNIT, AND BADLY.
WE'RE IN NORTHERN DORMITORY SECTION.
130*16*-1*111
000!UNLOCKER LOCKER.
000
000
*112*000*000*000*109*000*000*000*000*000
WE'RE IN THE NORTHERNMOST SECTION OF A DORMITORY. THE PLACE IS IN A HORRIBLE MESS. THOUGH THE DORMITORY IS LARGE, IT IS A WARM AND CHEERY PLACE WITH WALLS AND CEILING A WARM BLUE. A DOORWAY LEADSOUT TO THE EAST.
WE'RE IN NORTHERN END OF DORMITORY.
122POWER-BATTERY
000$* WE SHOULD EXPLORE THIS CHAMBER.
000
000
*000*000*110*000*111*000*000*000*000*000
BEFORE US ARE A SERIES OF TABLES AND CHAIRS SCATTERED ABOUT BY THE EXPLOSION.BEDS AND PERSONAL BELONGINGS ARE MIXED AMONGST THE DEBRIS, THOUGH NOTHING LOOKSSALVAGEABLE. A FEW HALF-EATEN SCRAPS OF BREAD LIE ABOUT, MOLDY AND ROTTEN.
WE'RE IN SOUTHERN DORMITORY SECTION.
065ROTTEN MOLDY BREAD
000!UGH!
000
000
*109*000*000*000*115*000*000*000*000*000
WE'VE REACHED THE SOUTH END OF A NORTH/ SOUTH HALLWAY. SCANNING THE DOORWAY TO THE WEST REVEALS A HUGE ROOM AND THE REMNANTS OF HUMAN HABITATION.
WE'RE IN S END OF N/S HALLWAY.
000!LET'S CHECK IT OUT!
000
000
000
*108*000*000*000*000*000*115*000*000*000
WE'RE IN THE SOUTHERN END OF A DORMITORYTHAT STRETCHES OUT TO THE NORTH. THERE'SA BULLETIN BOARD MADE OF CORK HANGING UPON A NEARBY WALL, THOUGH NOTHING IS ON IT. A DOORWAY LEADS OUT OF THE DORM TO THE EAST.
WE'RE IN SOUTHERN END OF DORMITORY.
079
000$* THERE'S NOTHING HERE OF USE TO US.
000
000
*113*000*114*000*000*000*000*000*000*000
WE'RE BY RUBBLE AND DEBRIS IN THE HOLD. TO THE EAST WE CAN SEE THE LITTLE SHIP.
WE'RE BY RUBBLE AND DEBRIS IN THE HOLD. TO THE EAST WE CAN SEE THE LITTLE SHIP.
129*11*3*52*67
000!WHAT A MESS!
000$* I DON'T THINK WE SHOULD GO TOO FAR IN THIS PLACE.
000
*117*118*127*119*099*120*121*122*000*000
0*000*000*000*000*000*000
WE'RE IN A MAZE OF DEBRIS AND RUBBLE THAT MAKES KEEPING OUR BEARINGS NEXT TO IMPOSSIBLE.
WE'RE IN A MAZE OF DEBRIS AND RUBBLE THAT MAKES KEEPING OUR BEARINGS NEXT TO IMPOSSIBLE.
000!LOST CITY.
000$* MY SCANNERS ARE DISORIENTED.
000
000
*124*125*118*119*116*121*122*123*000*000
0*000*000*000*000*000*000*000*000*000
WE'RE IN A MAZE OF RUBBLE AND DEBRIS THAT MAKES KEEPING OUR BEARINGS NEXT TO IMPOSSIBLE.
WE'RE IN A MAZE OF RUBBLE AND DEBRIS THAT MAKES KEEPING OUR BEARINGS NEXT TO IMPOSSIBLE.
000!I WANT OUTA HERE!
000$* THE LONGER WE KEEP THIS UP THE WORSE IT BECOMES.
000
000
*125*123*122*121*119*120*117*124*000*000
000*000
WE'RE IN A MAZE OF DEBRIS. RUBBLE IS ALLOVER THE PLACE MAKING GOING DIFFICULT.
WE'RE IN A MAZE OF DEBRIS. RUBBLE IS ALLOVER THE PLACE MAKING GOING DIFFICULT.
000!WHO'S GONNA CLEAN THIS?
000$* I'M TOO DISORIENTED.
000
000
*118*121*120*125*124*122*120*122*000*000
OM
000
000
000
000
000*000*000*000*000*000*000*000*000*000
WE'RE IN A MAZE OF RUBBLE. DEBRIS IS ALLOVER THE PLACE MAKING GOING DIFFICULT.
WE'RE IN A MAZE OF RUBBLE. DEBRIS IS ALLOVER THE PLACE MAKING GOING DIFFICULT.
000!INSANITY CITY.
000$* WE MUST FIND OUR WAY BACK TO THE HOLD BEFORE IT'S TOO LATE.
000
000
*121*118*119*125*123*118*121*122*000*000
00*000*000*000*000*000*000
WE'RE IN A DEBRIS-LITTERED PASSAGE. THE GOING IS DIFFICULT HERE.
WE'RE IN A DEBRIS-LITTERED PASSAGE. THE GOING IS DIFFICULT HERE.
000!DEBRIS TO THE KNEES.
000
000
000
*122*124*117*119*120*118*124*125*000*000
TEN YET.
THIS IS THE SHORT DESCRIPTION OF THE DUMMY ROOM
000
000
000
000
000*000*000*000*000*000*000*000*000*000
WE'RE IN A RUBBLE-STREWN PASSAGE. THE GOING IS VERY DIFFICULT THROUGH HERE.
WE'RE IN A RUBBLE-STREWN PASSAGE. THE GOING IS VERY DIFFICULT THROUGH HERE.
000!RUBBLE RUBBLE.
000$* WE MAY NEVER MAKE IT OUT OF HERE.
000
000
*123*124*117*119*121*118*125*124*000*000

000
000
000
000
000*000*000*000*000*000*000*000*000*000
WE'RE IN A PASSAGE FILLED WITH RUBBLE AND DEBRIS MAKING THE GOING DIFFICULT.
WE'RE IN A PASSAGE FILLED WITH RUBBLE AND DEBRIS MAKING THE GOING DIFFICULT.
000!DEBRIS AND RUBBLE.
000$* WE'RE NOT GETTING ANYWHERE.
000
000
*119*118*124*118*122*123*123*125*000*000

000
000
000
000
000*000*000*000*000*000*000*000*000*000
WE'RE IN A RUBBLE-FORMED CORRIDOR WITH DEBRIS SCATTERED ALL AROUND US.
WE'RE IN A RUBBLE-FORMED CORRIDOR WITH DEBRIS SCATTERED ALL AROUND US.
000!CO-REE-DOR.
000$* I CANNOT GET MY SCANNERS TO PRODUCE ACCURATE DATA.
000
000
*120*119*125*118*122*121*123*117*000*000
00
000
000
000*000*000*000*000*000*000*000*000*000
WE ARE TRAPPED IN A MAZE OF RUBBLE. CORRIDORS SNAKE OFF IN ALL DIRECTIONS.
WE ARE TRAPPED IN A MAZE OF RUBBLE. CORRIDORS SNAKE OFF IN ALL DIRECTIONS.
000!TRAPPED?
000$* WE MUST FIND OUR WAY BACK OUT.
000
000
*120*123*122*121*118*121*124*123*000*000
MY ROOM
000
000
000
000
000*000*000*000*000*000*000*000*000*000
YOU ARE IN A ROOM WITH DUMMY VARIABLES ALL AROUND YOU. THIS IS A TEST TO SEE WHAT WILL HAPPEN IN WRITING MORE THAN JUST 7 Z'S TO EACH FILE. THIS IS A TEST -- THIS IS JUST A TEST. THIS ROOM HASN'T BEEN WRITTEN YET.
THIS IS THE SHORT DESCRIPTION OF THE DUMMY ROOM
000
000
000
000
000*000*000*000*000*000*000*000*000*000
WE'RE CLEAR OF THE RUBBLE, STANDING IN THE EAST END OF THE CARGO HOLD. A PIECE OF THE HULL IS A DIFFERENT SHADE OF GREYWHERE THE REPAIR PATCH WAS APPLIED. TO THE EAST, DIRECTLY BEFORE US, IS A SMALLSHIP, THE SHIP THE LIZARDS CAME IN.
WE'RE IN CARGO HOLD, WEST OF TINY SHIP.
000
000
000
000
*000*000*128*000*000*000*116*000*000*000
WE'RE INSIDE THE TINY SPACESHIP, HUNCHEDOVER AND VERY CRAMPED. A LITTLE REPTILE SAYS "HI. I'M LONELY AND NEED SOMEONE TOTALK TO." SCANNING THE SURROUNDING AREASREVEALS THEY ARE FAR TOO SMALL TO ENTER.THE WAY OUT IS TO THE WEST.
WE'RE INSIDE SHIP BY REPTILE.
107
116SMALL CPU
000
000
*000*000*000*000*000*000*127*000*000*000
000*000*000

Text found in Cyborg_1981_Sentient_Software.do/G.txt:

234
56
0
0
-128
707
1992
15
0
0
0
0
1
0
0
1
1
1
1
1
1
1
1
1
1
1
1
1
0
1
1
0
0
0
0
1
1
1
1
1
1
1
1
0
0
0
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
0
0
0
0
0
0
0
0
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
0
1
1
1
1
1
1
1
1
1
1
0
0
1
0
1
1
0
0
0
1
0
0
0
0
0
0
0
0
0
0
1
1
42

0

41

46

0

17
WATER
93
LIQUID OXYGEN
0

-2
SHOULDER HARNESS
-2
SET OF LENSES
0

-5
APPLE
-5
JUICY PEACH
56
EMPTY BEAKER
56
PERMANENT POWER CELL
56
PACK OF MATCHES
-2
MICROLASER
0

17

0

56
PRESSURE SUIT
0

-2
ID CARD
98
PAIR OF SNEAKERS
0

56
MINI-DROID
56
ULTRAFICHE
-5
STRANGE FRUIT
-5

70

29

67

67

0

42

82

54

10

85

42
BLACK PLASTIC CUBE
56
ROBOT POWER CASING
0

85
STEP LADDER
105
STRING IN PIECES
9

68

128

0

81

-1
SLEEPER'S MANUAL
-1
SET OF TOOLS
56
BROKEN CONTROL DIAL
-1
POWER CRYSTAL
-1
BUNCH OF WIRE
-1
LOOP OF SOLDER
-1
SMALL CPU
0

0

0

-5
POWER-PACK
-5
POWER-UNIT
-5
POWER-BATTERY
0

0

0

0

0

0

116

111

99
AIRTIGHT PORTAL
98

97

0

0

55

95

95

-5

19

74

103
DISABLED CLEANING ROBOT
0

0

105

1
0
0
0
25
69
0
42
0
0
34
47
88
0
0
89
11
16
90
0
0
0
0
0
93
45
83
0
0
0
0
0
0
0
11
45
96
11
84
0
11
84
0
11
26
103
0
0
100
0
0
0
0
0
0
0
0
0
0
0
104
0
0
88
22
45
106
0
0
0
0
0
0
0
0
86
0
0
104
0
0
0
59
20
112
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
67
16
111
0
0
0
83
25
0
0
0
0
83
0
0
0
0
0
0
44
59
112
16
111
0
11
16
137
25
0
0
0
0
0
0
0
0
0
0
142
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
-2
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
9
0
0
0
0
0
5
0
0
0
0
0
0
0
0
0
0
0
1
0
0
0
0
0
-2
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
7
0
0
0
0
0
3
-2
0
0
0
0
9
-2
0
0
0
0
9
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
5
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
3
0
0
0
0
0
-1
0
0
0
0
0
1
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
-1
0
0
0
0
0
7
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
150
0
0
SMALL CPU
POWER CRYSTAL
SLEEPER'S MANUAL
LOOP OF SOLDER
SET OF TOOLS
BUNCH OF WIRE
SET OF LENSES
ID CARD
SHOULDER HARNESS
MICROLASER





0
11
0
0
1
0
5

1
0
5
D CARD




0
12
0
0
1

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
2
0
19
0
0
0
0
0
150
0
0
PACK OF MATCHES
BEAKER OF LIQUID OXYGEN
ID CARD



SET OF LENSES
MICROLASER
PERMANENT POWER CELL






0
14
0
0
1

















Text found in Cyborg_1981_Sentient_Software.do/H.txt:

* I HOPE I'M NOT GIVING YOU TROUBLE. WHEN MY ENERGY LEVEL GETS LOW I BECOME CRANKY. IF YOU'RE HAVING TROUBLE MOVING FROM PLACE TO PLACE TYPE IN A COMMAND LIKE 'GO' FOLLOWED BY A COMPASS POINT--
AND DON'T FORGET 'UP' AND 'DOWN'. * EACH OBJECT WE FIND HAS A USE AND MOST HAVE RAMIFICATIONS -- SIDE EFFECTS WHICH MAY BE SUBTLE. WE MAY NOT BE ABLE TO DO SOMETHING (LIKE OPENING A DOOR)
IF THERE ARE OTHER REQUIREMENTS WHICH MUST BE FULFILLED FIRST. FOR EXAMPLE -- WE CAN'T OPEN A LOCKED BOX UNTIL WE ARE HOLDING A 'KEY'. SEVERAL DIFFERENT CONDITIONS MAY HAVE TO BE FULFILLED TO
ACCOMPLISH ONE ACTION. I KNOW MANY WORDSAND OBJECTS. A LOT OF THESE OBJECTS CAN BE INSPECTED BY TYPING 'SCAN' AND THE NAME OF THE OBJECT.
* COMMANDS CAN BE FOUND BY TYPING 'HELP' THEN SELECTING OPTION 3. OPTIONS 1 AND 2 ALLOW YOU TO ASK MY OPINION ON OBJECTS WE FIND OR LOCATIONS WE VISIT. * WE MAY COME ACROSS CREATURES WHO
MAY OFFER US HELP. SIMPLY 'ASK' THE CREATURE AND IT WILL RESPOND. * I MAY NOT SEEM VERY HELPFUL AT TIMESBUT I DO WHAT I CAN. MY VOCABULARY IS PRETTY LARGE CONSIDERING THE STATE MY
CHIPS ARE IN. THE CIRCUITS USED TO MAKE LOGICAL DECISIONS AND CARRY OUT ORDERS ARE DIFFERENT CIRCUITS THAN THOSE USED TO DESCRIBE LOCATIONS. I TELL YOU THIS SO YOU WILL UNDERSTAND THAT ALTHOUGH I
MAY USE A WORD IN ONE SENSE THAT DOESN'TMEAN I'LL UNDERSTAND IT IN ALL CASES. IT WILL HELP US BOTH IF YOU ARE AS SPECIFIC AS POSSIBLE WHEN COMMUNICATING WITH ME. AVOID WORDS LIKE 'USE' OR
CONTINUE. IF YOU WANT TO DO SOMETHING I SAY WE CAN'T DO TRY A SIMILAR VERB. I DOKNOW QUITE A FEW AND I KNOW SYNONYMS FORMOST OF THEM. FINDING OUT WHAT THEY ARE IS HALF THE FUN.
* IF I SHOULD ASK A QUESTION PLEASE ANSWER WITH A NUMBER OR A SINGLE WORD. HMMM... I CAN'T THINK OF ANYTHING ELSE YOU HAVE TO KNOW. IF YOU GET REALLY STUCK GIVE YOUR SITUATION SOME THOUGHT AND ASK MY OPINION.

Text found in Cyborg_1981_Sentient_Software.do/HELLO.bas:

0 POKE 1012,0: ONERR GOTO 30
1 HOME : FOR A = 1 TO 19
2 PRINT SPC( A)"CRACKED BY THE WHIP"
3 NEXT
5 HIMEM: 35055
10 PRINT "BLOAD S1"
15 POKE 34,23: POKE 35,24: HOME
17 PRINT "BLOAD L(ML)"
18 PRINT "BLOAD RESET"
20 PRINT "RUN W"
30 PRINT : PRINT "PR#6"

Text found in Cyborg_1981_Sentient_Software.do/K.txt:

273
11
GO
1
NORTH
2
NE
3
EAST
4
SE
5
SOUTH
6
SW
7
WEST
8
NW
9
UP
10
DOWN
11
WALK
11
RUN
15
SCAN
25
GET
25
TAKE
24
FULL
40
BODY
41
WAVE
41
SHAKE
26
DROP
16
OPEN
1
N
3
E
5
S
7
W
9
U
10
D
42
READ
43
SAY
27
ENTER
28
LEAVE
24
COMPLETE
29
ON
30
OFF
29
LIGHT
139
GRILL
71
TUBE
15
AREA
70
LENS
28
EXIT
27
IN
16
UNLOCK
28
OUT
25
CATCH
35
SWIM
32
FILL
38
DRINK
33
EMPTY
33
POUR
33
SPILL
31
KICK
31
HIT
36
KILL
36
ATTACK
79
WORKBENCH
79
EQUIPMENT
79
GLASS
77
LASER
44
THROW
36
SHOOT
31
STRANGLE
34
EAT
37
FEED
72
FOOD
74
BEAKER
66
WATER
67
OXYGEN
43
SING
49
FLY
48
BREAK
48
SMASH
12
CLIMB
13
CROSS
17
TIE
17
LACE
69
HARNESS
26
FREE
26
RELEASE
39
FOLLOW
99
STEPS
99
STAIRS
99
STAIRCASE
14
JUMP
14
LEAP
20
REPAIR
20
FIX
50
WEAR
34
BITE
51
REMOVE
31
PUNCH
46
FIND
46
LOCATE
21
HELP
56
SCORE
55
WHY
55
WHAT
54
SAVE
53
QUIT
112
CONTROLS
45
TOUCH
45
FEEL
47
CHOP
47
CUT
52
IGNITE
52
EXPLODE
25
TRAP
140
SNAKE
177
CAR
72
PACKET
77
MICROLASER
99
RUNGS
25
HOLD
45
PUSH
29
ACTIVATE
30
DEACTIVATE
19
FUCK
25
BRING
43
YELL
43
SCREAM
2
NORTHEAST
4
SOUTHEAST
6
SOUTHWEST
8
NORTHWEST
19
SHIT
26
GIVE
11
TURN
45
TRY
49
TASTE
84
SNEAKERS
98
TREE
98
TREES
49
PISS
43
CALL
49
KISS
25
GRAB
79
AROUND
79
ROOM
79
HALL
79
HALLWAY
79
CORRIDOR
79
PASSAGEWAY
79
TUNNEL
108
MACHINERY
31
SQUASH
25
LIFT
45
RUB
106
AIRLOCK
21
OPINION
216
CABINET
51
UNHARNESS
21
HINT
135
BAG
22
ASK
105
LIZARD
0
1
0
2
0
3
0
4
22
QUESTION
23
MEDICAL
23
BIOLOGICAL
23
BIO
43
SHOUT
120
PACK
120
POWER-PACK
55
WHICH
79
GRASS
79
WALL
79
WALKWAY
88
FRUIT
47
PEEL
97
PUDDLE
106
TOGRAM
79
BRICKS
79
CRUTCH
79
SPACESUIT
141
SMADA
76
MATCHES
79
SIGN
121
BALL
89
TRAPDOOR
99
RINGS
99
ROPES
45
PRESS
96
BUTTON
95
PORTAL
26
INSERT
83
ID
83
CARD
57
RESTORE
86
DROID
90
HATCH
86
MINI-DROID
65
BREAD
76
MATCH
79
FOREST
79
LEAF
79
LEAVES
79
PATH
50
ATTACH
91
RAILING
104
STRING
47
LASE
18
UNTIE
92
PARTITION
103
LADDER
137
LATCH
138
PANEL
79
INSECTS
104
PIECES
100
CUBE
18
UNTANGLE
189
CUBICLE
217
STATION
93
PLATE
93
TOUCHPLATE
77
WEAPON
79
BOOKCASE
87
FICHE
87
ULTRAFICHE
45
PET
70
LENSES
81
SUIT
109
OPENING
72
APPLE
246
CYLINDER
189
BOOTH
111
TOOLS
136
SWITCH
58
CLOSE
58
SHUT
45
PULL
135
LEVER
142
ROBOT
112
DIAL
59
TWIST
62
PARTS
133
READER
113
CRYSTAL
132
BALANCE
132
SCALES
95
SLOT
61
MACHINE
63
WINDOW
64
BLEACHERS
142
CHEST
101
CASING
75
CELL
121
UNIT
121
POWER-UNIT
79
DOME
73
PEACH
110
MANUAL
145
IGUANA
18
UNLACE
104
LACES
130
LOCKER
114
WIRE
115
SOLDER
122
BATTERY
122
POWER-BATTERY
79
BED
79
BEDS
79
BOARD
79
TABLE
79
CHAIR
79
DRESSERS
116
CPU
107
REPTILE
79
RUBBLE
79
DEBRIS
26
PLACE

Text found in Cyborg_1981_Sentient_Software.do/O.txt:

1
* LET'S GET OUT OF HERE. AND FAST.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
* IT LOOKS LIKE A VENDING MACHINE.
31
* NOTHING HAPPENS.
21
* THERE MIGHT BE SOME FOOD INSIDE.
47
* IT'S A LITTLE CHARRED.
AL ABOUT IT.

15
* THERE'S NOTHING WORTH NOTING.
46
* IMPOSSIBLE. THEY'RE TOO SCATTERED.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
* IT'S ACTUALLY A HOLOGRAM.
21
* I DON'T UNDERSTAND WHAT IT'S DOING HERE.
31
* NOTHING HAPPENS.
47
* NOTHING HAPPENS.
IAL ABOUT IT.
15
* THEY'RE JUST BLEACHERS.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
T IT.
15
* IT'S COVERED WITH MOLD AND IS AS HARD AS A PIECE OF WOOD.
21
* IT'S CERTAINLY NOT EDIBLE.
31
* IT CRUMBLES INTO CRUMBS.*
47
* NO MORE BREAD!*
15
* SCANNING PRODUCES NO ADDITIONAL DATA ON THE WATER.
1
W
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
SEE NOTHING SPECIAL ABOUT 15
* I LIKE THE WAY IT BOILS.
21
* IT'S VERY EXPLOSIVE.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
IAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
FOUR TINY FOOT-STIRRUPS ARE MOUNTED ON ITS TOP WHILE THE BOTTOM IS MOLDED TO FIT A HUMAN SHOULDER.
1
W
4
1
21
* IT'S THE LATEST STYLE.
UT IT.

15
* WE MUST HAVE LOST THESE SOMETIME. THEY HAVE INFRARED AND OTHER FEATURES.
21
* I LIKE THEM WELL ENOUGH.
31
* THEY'RE PULVERIZED!*
48
* THEY'RE HISTORY.*
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
21
* IT'S NOT A POWER-PACK BUT WE DO SHARE THIS BODY. IT SCANS AS EDIBLE.
15
* IT'S WHAT IT APPEARS.
37
* IT ATE IT BUT STILL LOOKS HUNGRY.
1
W
15
* IT WAS MADE IN THE HYDROPONIC TANKS.
21
* LOOKS EDIBLE TO ME. BUT THEN IT'S YOUR BODY TOO.
48
* SQUISH!*
47
* THAT'S NOT NECESSARY.
.
15
* IT'S A 2-LITER BEAKER MADE OF PYREX.
47
* IT SHATTERS UNDER THE INTENSE HEAT.*
48
* NO PROBLEM. SHATTER CITY.*
31
* NOTHING HAPPENS.
ABOUT IT.
15
* THIS LOOKS LIKE OUR PERMANENT POWER.
21
* THE ROBOT PROBABLY STOLE IT FROM US.
47
* SAY BYE TO POWER.*
48
* SAVE BYE BYE TO OUR POWER.
15
* THEY'RE REGULAR MATCHES. 15 TO A PACK
21
* CYBORGS WHO PLAY WITH FIRE MIGHT GET BURNED.
1
W
1
W

15
I SEE NOTHING SPECIAL ABOUT IT.
15
* IT'S A SMALL LASER ATTACHMENT FOR MY FOREFINGER.
21
* THIS THING MAY COME IN VERY HANDY.
31
* NOT A GOOD IDEA.
48
* THE LASER IS NOW JUST A MEMORY *
21
* DON'T JUST STAND THERE LIKE A STATUE-- GRAB THE THING AND LET ME CHARGE!
1
W
46
* I WISH I COULD.
15
I SEE NOTHING SPECIAL ABOUT IT.

21
* NO OPINION FORMULATED BY HIGHER LEVEL LOGIC CIRCUITS.
15
* NOTHING ABNORMAL DETECTED.
1
W
15
I SEE NOTHING SPECIAL ABOUT IT.
ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
* IT'S SKIN TIGHT AND HAS AN AUTO-OXYGEN VALVE FOR E.V.A.
21
* IT COULD BE A LIFE SAVER.
47
* THE SUIT IS NOW WORTHLESS.*
1
W
ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
* IT'S MADE OF UNBREAKABLE PLASTIC AND HAS CODED DATA STRIPS IMBEDDED IN IT.
21
* OUR ID CAN BE WORN OR INSERTED INTO ID SLOTS.
1
S
1
E
15
* NICE LOOKING PAIR OF SNEAKERS.
21
* I PREFER THEM IN BLUE. BUT THESE'LL DO NICELY.
48
* FORGET IT.
31
* AFRAID OF SNEAKERS? COME ON!
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
* IT'S GOT FOUR TINY FEET.
21
* I HAPPEN TO THINK IT'S CUTE.
48
* WELL... SO MUCH FOR THAT. *
31
* ASK FOR HELP.
DROID.
31
* ASK FOR HELP.
OR HELP.
15
* THE PRINT ON IT IS MICROSCOPIC.
21
* IT STORES 2.6MB OF DATA.
47
* THE PLASTIC IS TOO TOUGH.
42
* IT'S A SHIP'S LOG. THAT'S ALL I CAN MAKE OUT.
47
* CONSIDER IT PEELED.
15
* ITS COVERED WITH PRICKLY NEEDLES.
48
* UGH. WHAT A MESS! CONSIDER IT GONE. *
31
* NO. WE DON'T NEED TO MAKE IT ANGRY.
16
* IT'S RUSTED SHUT. OR IT'S BEYOND OUR STRENGTH.
48
* GREAT! THAT SEEMED TO DO IT. *
21
* DON'T ASK ME.
31
* OW! THAT HURT!
OCKED.
31
* OW! THAT HURT!
16
* IT CREAKES OPEN LIKE A RUSTY GATE.
48
* NOTHING DOING.
31
* BROKEN BONES AREN'T MY IDEA OF FUN.
15
* I SEE NOTHING ABNORMAL ABOUT IT.
UT IT.
L ABOUT IT.
45
* SIZZLE! OUCH! MY FINGERS!
21
* WITH ALL THOSE DEAD INSECTS THERE'S A GOOD CHANCE IT'S ELECTRIFIED.
15
* IT'S METAL AND BUZZES.
48
* FORGET IT.
IT.
21
* FORCE ISN'T GOING TO WORK.
48
* NOT EVEN A DENT.
31
* I'M NOT IMMUNE TO PAIN.
26
* THE PARTITION SLIDES OPEN AND THE SLOT EJECTS THE CARD.
45
* AN ANTISEPTIC MIST CLEANSES US AND A DOORWAY TO THE NORTH APPEARS.
15
* IT'S A UL APPROVED TOUCHPLATE.
31
* OK. NOTHING HAPPENS.
48
* BYE BYE PLATE!*
ABOUT IT.
NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
21
* IT MUST BE A LOCKING/UNLOCKING MECHANISM.
31
* NOTHING HAPPENS.
47
* NOTHING HAPPENS.
15
* IT'S A THIN AND NARROW SLOT.
OF PAPER YOU KNOW.
1
W
45
A WHINE PENETRATES THE AIRLOCK AS AIR ISPUMPED OUT AND THE DOORS CYCLE.
31
* I THINK WE JUST DESTROYED IT.*
47
* NOTHING HAPPENS.
48
* BYE BYE BUTTON!*
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
47
* THE BARK SEEMS UNHARMED.
21
* IT MAY BE CLIMBABLE.
45
* THE BARK IS SMOOTH.
15
I SEE NOTHING SPECIAL ABOUT IT.
THING SPECIAL ABOUT IT.
26
* WE SHOULD BE ABLE TO REACH UP THERE NOW.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
16
* SOMETHING DROPPED OUT.
48
* SO MUCH FOR THAT. IT'S NOW POWDER.*
47
* I'VE SLICED A NEAT SEAM IN IT.
15
* IT'S SOLID BLACK PLASTIC.
ID BLACK PLASTIC.
16
* A PERMANENT POWER CELL DROPPED OUT!
21
* IT DOES US LITTLE GOOD AS IS.
48
* SO MUCH FOR THAT.*
47
* IT SIZZLES BUT NOTHING HAPPENS.
T.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
26
* WE JUST MIGHT BE ABLE TO REACH NOW.
15
* IT'S ABOUT A METER HIGH.
21
* IT WILL PROVIDE US WITH A LEG-UP WHEN NEEDED.
1
S
SPECIAL ABOUT IT.
48
* IT'S TOO TOUGH.
26
* IGUANAS LOVE PLAYING 'IGUANA'S CRADLE' AND IT GLADLY TRADES.
47
* IT'S SLICED INTO SEVERAL PIECES.
21
* IT'S EXTREMELY STRONG.
.
31
THE LIZARD SHAKES ITS HEAD IN DISGUST.
21
* IT'S A SENTIENT ALIEN CREATURE.
48
* THE LIZARD IS STARTING TO LOOK ANGRY.
37
* IT SMACKS ITS LIPS AND BOWS.

37
* IT GOBBLES IT UP.
21
* IT'S AN INJURED FRIENDLY CREATURE.
45
* THAT SEEMS TO SOOTHE HER. TRY ASKING.
31
* SHE'S SCARED ENOUGH!
CE.
ATS VIOLENCE.
21
* IT SEEMS FRIENDLY ENOUGH.
15
* IT'S JUST ANOTHER ONE OF THOSE ALIENS
31
* THERE'S NO CAUSE FOR THAT.
37
* IT SAYS 'MMMMMMMMM GOOD!'
T.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
47
* NOT EVEN A SINGE MARK.
51
THE DROID RUNS THROUGH THE OPENING AND RETURNS TO OUR FEET DRAGGING A PRESSURE SUIT.
1
W
1
W
WS.
1
W
1
W
L ABOUT IT.
15
* IT'S AN AUTO-REPAIR MAINTENANCE MANUAL FOR THE DIAL.
1
W
26
* IGUANAS LOVE PLAYING IGUANA'S CRADLE MORE THAN LIVING AND IT GLADLY TRADES.
1
W
IT.

15
* IT'S A SET OF ALL-PURPOSE TOOLS.
21
* THESE WILL OPEN A LOT OF THINGS.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
* IT'S JUST A CIRCULAR DIAL.
21
* IT SEEMS TO BE MISSING SOME PARTS.
31
* THAT DIDN'T DO ANY GOOD.
15
I SEE NOTHING SPECIAL ABOUT IT.
T.
15
* THIS CRYSTAL PULSATES WITH ENERGY.
21
* IT'S SHAPE INDICATES IT IS USED IN THE DIAL'S MECHANISM.
1
W
15
I SEE NOTHING SPECIAL ABOUT IT.
15
* IT'S DELICATE CIRCUITRY WIRE.
21
* IT SHOULD HELP US REPAIR SOME DAMAGE.
47
* MINCED WIRE! NOTHING LEFT!*
15
I SEE NOTHING SPECIAL ABOUT IT.
15
* IT'S JUST SOME SOLDER. THIN AND SOFT.
21
* JUST WHAT WE NEED FOR THE DIAL!
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
21
* A NEEDED PART FOR REPAIRING THE DIAL!
15
* IT'S JUST A SMALL CHIP.
47
* FRIED CHIPS!*
48
* CRUNCH!*
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
21
* POWER FOR THE 'BORG!
15
* JUST GET IT AND I'LL TAKE OVER.
48
* SO MUCH FOR THAT!*
15
I SEE NOTHING SPECIAL ABOUT IT.
ABOUT IT.
AL ABOUT IT.
15
* MORE POWER FOR THE 'BORG!
21
* ALL RIGHT! I LOVE IT! THANKS.
48
* SO MUCH FOR THAT.*
15
I SEE NOTHING SPECIAL ABOUT IT.
CIAL ABOUT IT.
21
* MORE AND MORE POWER. I NEED POWER.
15
* JUST GET IT AND I'LL DO THE REST.
48
* BYE BYE BATTERY.*
15
I SEE NOTHING SPECIAL ABOUT IT.
PECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
52
* WE BLEW A LARGE HOLE IN THE RUBBLE TO THE EAST. SCANNING DETECTS AN OPEN AREA AND A SMALL SHIP THERE.
1
W
1
W
1
E
IAL ABOUT IT.
15
* IT'S A LARGE METAL LOCKER.
21
* WE NEED SOME TOOLS TO GET IT OPEN.
16
* THE LOCKER IS OPEN FOR THE MOMENT.
47
* NOTHING HAPPENS.
NOTHING HAPPENS.
26
* THE ID IS EJECTED FROM THE SLOT AND THE DOOR OPENS.
1
W
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
IT.
15
* THE SCALES ARE MOUNTED ON THE TABLE.
21
* THE RIGHT DISH IS A PRESSURE-SENSITIVE PAD CONNECTED TO A TRIGGER-DEVICE.
1
W
1
W
ABOUT IT.
15
* IT'S WELDED TO THE TABLE.
21
* TRY ACTIVATING IT.
26
* IT SLIPS INTO THE READER AND IS EJECTED.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
31
* WE DID BUT NOTHING HAPPENED.
48
* IT'S TOO STURDY.
45
* WE'RE BATHED IN SOOTHING RADIATION.
21
* THERE'S PROBABLY AN INTERLOCK SENSOR.
45
* NOTHING HAPPENS. TRY THROWING IT.
21
* THIS IS IT -- OUR GOAL. LET'S DO IT.
15
* IT'S A SIMPLE TOGGLE SWITCH.
15
I SEE NOTHING SPECIAL ABOUT IT.
16
* THE LATCH IS UNLOCKED AND THE PANEL OPENS.
47
* THE LATCH IS NOW CINDERS.*
31
* WE'VE UTTERLY DESTROYED IT.*
21
* IT'S A VERY DELICATE MECHANISM.
.
31
* THE GLASS PANEL SMASHES.*
48
* SO MUCH FOR THE PANEL.*
47
* THE GLASS COULDN'T WITHSTAND THE HEAT AND SHATTERED.*
15
* IT'S A DELICATE GLASS PANEL.
48
THE GRILL HAS BEEN SMASHED. *
21
* SCANNERS DETECT A LIFE FORM BEHIND IT
31
* IT'S WEAKENING A LITTLE.
47
* THE METAL'S TOO STRONG.
STRONG.
T.
1
THE SNAKE SLITHERS OFF TO DIE IN PEACE.
36
WE DELIVER GLANCING WOUNDS.
21
* THE ONLY WAY TO KILL IT IS TO SHOOT IT.
31
* IT DOESN'T DO ANY GOOD.

1
IT'S WOUNDED AND RUNS OFF TO DIE.
36
WE DON'T DO ENOUGH DAMAGE TO STOP IT.
31
* A BAREHAND ATTACK ISN'T GOING TO WORK
48
* IT DODGED OUT OF THE WAY.
E
1
* THE ROBOT EMITS A SIZZLE AND STOPS.
36
ITS METAL CASING WASN'T AFFECTED.
15
* ITS CHEST CAVITY IS HOLLOW.
48
* SOME THINGS FELL OUT OF THE CHEST.
46
* NO WAY. THIS IS SOMETHING BETTER LEFT UNFOUND.
15
E
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
31
* IT LEAPS TO ONE SIDE.
47
* IT LEAPS OUT OF THE WAY.
26
* THIS COMMENT IS THE TRADE (FROM IGUANA)
37
* IT GOBBLES IT UP.
ND IT GLADLY TRADES.
1
W
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.
15
I SEE NOTHING SPECIAL ABOUT IT.

Text found in Cyborg_1981_Sentient_Software.do/R$.txt:

* I PUT THEM ON BUT THEY KEEP FALLING OFF.

* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* IT SCAMPERS AROUND IN LITTLE CIRCLES AND APPEARS TO BE AFRAID OF US.
* THE PRINTING IS FAR TOO SMALL TO BE READ WITHOUT THE PROPER EQUIPMENT.
* SHADES OF PRICKLY LIPS! WE CAN'T EAT IT- IT'S COVERED WITH TINY NEEDLES!
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET. THE HATCH IS CLOSED.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T WALK THROUGH THE CLOSED PARTITION.
* NOTHING HAPPENS. WE MUST NOT HAVE THE PROPER ID.
* SOME INVISIBLE FORCE STOPS US FROM GOING IN THAT DIRECTION.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* THE DOOR THAT LEADS OUT OF THE AIRLOCK IS SEALED FOR HULL INTEGRITY.
RITY)
* AN INVISIBLE FORCE SCANS US THEN STOPS US FROM PROCEEDING.
* WE TRY BUT WE ONLY GET UP A FEW FEET BEFORE SLIPPING BACK DOWN.
* WE CAN'T REACH UP THAT FAR TO PULL OURSELVES UP.
* I'M NOT SURE IT CAN BE OPENED. I CAN'T FIND A TOP OR AN OPENING.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* IT'S IN A TANGLED MESS AND LOOPED AROUND THE TREE TRUNKS.
* IT POINTS TO ITS MOUTH AND BARES TWO ROWS OF TINY TEETH WHILE GROANING.
* SHE'S TREMBLING TOO MUCH TO ANSWER. THE FEAR IS EVIDENT IN HER EYES.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T FIT THROUGH THE OPENING.
O THAT YET.
* WE CAN'T. THE IGUANA'S FINGERS ARE IN CONSTANT MOTION AS IT PLAYS WITH IT.

* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE DID BUT NOTHING HAPPENED. IT SEEMS TO BE INOPERATIVE.
* NO WAY. IT SITS ON A PRESSURE-PAD ON THE SCALES.
ICE WILL BE SET OFF.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
THE RUBBLE AND DEBRIS MAKING GOING EAST IMPOSSIBLE. BUT THE TINY SHIP IS THERE.
* WE CAN'T. WE CAN'T OPERATE THE LOCK ON IT.
.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE SHOULDN'T DISTURB THE SCALES. THEY MAY GO OFF.
* I TRIED BUT NOTHING HAPPENED. MAYBE IT'S BROKEN OR SOMETHING.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE PULLED THE LEVER BUT NOTHING HAPPENED. MAYBE IT'S BROKEN.
* WE THREW THE SWITCH BUT NOTHING HAPPENED.
* THE LATCH IS REALLY A COMPLICATED LOCK THAT CAN'T BE JUST 'OPENED'.
* WALKING THROUGH A GLASS PANEL ISN'T A GOOD IDEA.
THAT NEEDS TO BE HANDLED.
* THE GRILL IS PART OF THE WALL.
THE WALL.
.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* OUR LASER ATTACK HAS RUINED THE STUPID MECHANISM THAT OPENS ITS CHEST.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.
* WE CAN'T DO THAT YET.

Text found in Cyborg_1981_Sentient_Software.do/R.txt:

**** CYBORG LOG: STARDATE 098-22 LOCATION: ORBITING AURIANTA STAR SECTOR: TAU CETI
DAMAGE REPORT, CODE RED, PRIORITY 1 WHILE IN A STABLE ORBIT AROUND AURIANTA OUR LIFE-SHIP WAS STRUCK BY AN ALIEN VESSEL. AS CAPTAIN OF THIS SHIP, MY RESPONSIBILITY WAS CLEAR.
MOMENTS BEFORE IMPACT I MANAGED TO SECURE THE VALUABLE CARGO OF THIS EARTH-BASED SHIP, THE PEOPLE IT CARRIES, IN THEIR SUSPENDED ANIMATION CAPSULES. THE SLEEPERS SHOULD BE SAFE UNTIL I MANAGE
TO REPAIR AND LAND THE SHIP. I AM MAKINGTHIS LOG ENTRY AND PLAN TO CARRY IT WITHME TO THE REC LEVEL WHERE I HOPE TO RIDEOUT THE COLLISION SAFELY.
*** END OF LOG ENTRY.

Text found in Cyborg_1981_Sentient_Software.do/RESET.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 A2 00 20 75 FD A0 02 8A 91 69 C8 A9 00 91 69 C8 ". u} .. .iH)..iH
$000010 A9 02 91 69 60 A9 25 8D F2 03 A9 03 8D F3 03 49 )..i`)%. r.)..s.I
$000020 A5 8D F4 03 60 68 A8 68 A6 D6 9A 48 98 48 20 EA %.t.`h(h &V.H.H j
$000030 03 4C 12 D4 .. .. .. .. .. .. .. .. .. .. .. .. .L.T
** END **

Text found in Cyborg_1981_Sentient_Software.do/W.bas:

10 ONERR GOTO 5110
20 IN$ = "X": GOTO 4920
25 PRINT "VERIFICATION: TYPE " CHR$(34)"Y" CHR$(34)" TO "T$" GAME.";: GOTO 4340
30 IF Q = 19 OR (Q >44 AND Q <50) THEN RETURN
40 S1$ = "":S = INT( RND(1) *4) +1:S$ = LEFT$(O$(Q),1): IF S$ = "A" OR S$ = "E" OR S$ = "I" OR S$ = "O" OR S$ = "U" THEN S1$ = "N"
50 GOSUB 80: ON S GOTO 60,70,70,60
60 PRINT "THERE IS A"S1$" "O$(Q)" HERE.": RETURN
70 PRINT "A"S1$" "O$(Q)" IS NEARBY.": RETURN
80 IF NOT OP% THEN CV = PEEK(37): IF CV >20 THEN VTAB 23: HTAB 6: PRINT "< PRESS ANY KEY FOR MORE > ";: GET S$: VTAB 23: HTAB 1: CALL -958: VTAB CV +1: HTAB 1:OP% = 1: RETURN
90 RETURN
100 F$ = "O": RETURN
110 F$ = "D": RETURN
120 PRINT "* UNABLE TO COMPLY. ";: RETURN
130 IF L% <84 OR L% >150 THEN RETURN
140 H% = L% -84:V% = Q%(H%) -60: IF C%(H%) < >K% THEN RETURN
150 IF N%(H%) >60 THEN IF O%(N%(H%) -60) = D%(H%,1) THEN 170
160 I% = H%: POP : GOTO 450
170 IF NOT Q%(H%) THEN RETURN
180 IF D%(H%,2) < > -5 AND D%(H%,2) = O%(V%) THEN RETURN
190 IF D%(H%,2) = -5 AND -1 < >O%(V%) THEN RETURN
200 GOTO 160
210 PRINT "OK": RETURN
220 Z% = RND(1) *4 +1: ON Z% GOTO 230,240,240,230
230 GOSUB 120: PRINT "VOCABULARY CHIP SCAN REVEALS WORD "QU$T$QU$" UNKNOWN.": RETURN
240 PRINT "* I DON'T KNOW WHAT "QU$T$QU$" MEANS.": RETURN
250 IF O%(A%) = -1 THEN RETURN
260 POP : GOTO 310
270 PRINT "* DO YOU REALLY THINK WE SHOULD "T$: PRINT " THE "U$"?";: GOSUB 4490: RETURN
280 PRINT "* IT'S BEYOND OUR POWER TO "T$".": RETURN
290 PRINT "* WHAT SHOULD WE DO WITH THE "T$"?": RETURN
300 PRINT "* NOTHING HAPPENS.": RETURN
310 PRINT "* WE CAN'T DO THAT YET.": RETURN
320 PRINT "* IT'S BEYOND OUR POWER TO DO THAT.": RETURN
330 GOSUB 120: PRINT "I DON'T KNOW WHAT YOU WANT US TO "T$".": RETURN
340 PRINT "* TO "T$" THE "U$" WOULD": PRINT " ACCOMPLISH NOTHING.": RETURN
350 FOR Q = 0 TO 5: IF IV$(Q) = "" THEN IV$(Q) = O$(A%): RETURN
360 NEXT Q
370 FOR Q = 0 TO 5: IF IV$(Q) = O$(A%) THEN 390
380 NEXT Q
390 H% = Q: FOR Q = H% TO 5:IV$(Q) = IV$(Q +1): NEXT : RETURN
400 FOR Q = 0 TO 9: IF IW$(Q) = "" THEN IW$(Q) = O$(A%): GOTO 370
410 NEXT Q
420 FOR Q = 0 TO 9: IF IW$(Q) = O$(A%) THEN H% = Q: GOTO 440
430 NEXT Q:H% = 8
440 FOR Q = H% TO 8:IW$(Q) = IW$(Q +1): NEXT : GOTO 350
450 PRINT OP$"R$,L80": PRINT RE$"R$,R"I%: INPUT S$: PRINT CL$"R$": PRINT S$: RETURN
460 DP% = DP% +DM%: POKE 254,20: CALL 36515: GOTO 1390
470 POKE 254,6: FOR Q = 1 TO 3: CALL 36515: FOR S = 1 TO 10: NEXT S,Q: RETURN
480 PRINT OP$"D,L391": PRINT RE$"D,R"R%: FOR Q = 1 TO 2: CALL 768:IN$ = MID$ (IN$,1):A$(Q) = IN$: NEXT Q: FOR Q = 3 TO 7: INPUT A$(Q): NEXT : PRINT CL$"D":T% = T% +1: IF R% = 97 THEN Y% = 151
490 FOR Q = 3 TO 6:Z%(Q) = VAL( LEFT$(A$(Q),3)):H% = 0:J% = 0: IF Z%(Q) = 0 THEN NEXT : GOTO 620
500 A% = Z%(Q) -60:V% = Z%(Q) -84: IF Z%(Q) >89 AND Z%(Q) <100 THEN C%(V%) = 0:N%(V%) = 0:Q%(V%) = 0: GOTO 520
510 IF O%(A%) < >0 THEN 610
520 FOR T = 4 TO LEN(A$(Q)):S$ = MID$ (A$(Q),T): IF LEFT$(S$,1) = "*" THEN S$ = RIGHT$(A$(Q), LEN(A$(Q)) -T):J% = VAL(S$)
530 IF NOT J% THEN 580
540 IF NOT C%(V%) THEN C%(V%) = J%: GOTO 580
550 IF J% <11 THEN H% = H% +1:D%(V%,H%) = J%: GOTO 580
560 IF NOT N%(V%) THEN N%(V%) = J%: GOTO 580
570 Q%(V%) = J%
580 J% = 0:S$ = "": NEXT T: FOR T = 4 TO LEN(A$(Q)):S$ = MID$ (A$(Q),T): IF LEFT$(S$,1) = "*" THEN O$(A%) = MID$ (A$(Q),4,T -4): GOTO 600
590 NEXT T:O$(A%) = MID$ (A$(Q),4)
600 O%(A%) = R%
610 NEXT Q
620 IF O%(10) > -2 AND ML% <1 THEN S% = 0
630 IF R% > = Q% AND NOT S% AND R% 28 AND Q <40 THEN 690
680 IF O%(Q) = R% THEN GOSUB 30
690 NEXT : GOSUB 1090: IF C% AND R% = R7% THEN PRINT SS$
700 IF O%(26) < > -2 THEN 740
710 IF INT( RND(1) *10) +1 <5 THEN 740
720 FOR Q = 3 TO 6: IF MID$ (A$(Q),4,1) = "!" THEN GOSUB 80: PRINT "THE DROID SAYS "QU$ MID$ (A$(Q),5)QU$
730 NEXT Q
740 IF M%(W) = R% THEN GOSUB 80: PRINT "A "M$(W)" IS LURKING NEARBY."
750 IF R% <95 OR R% >96 THEN RETURN
760 IF O%(78) = -5 THEN RETURN
770 GOSUB 80: PRINT "THE GLASS PANEL ON THE CYLINDER IS": IF NOT PN% THEN PRINT "LATCHED AND LOCKED."
780 IF PN% THEN PRINT "UNLATCHED AND OPEN."
790 O%(78) = R%: RETURN
800 PRINT "* WHERE? IN WHICH DIRECTION?": RETURN
810 PRINT "* THAT MAKES NO SENSE TO ME.": RETURN
820 PRINT "* UNABLE TO ACCOMPLISH TASK. WE CAN'T": PRINT " "T$" THE "U$".": RETURN
830 Y = 0: FOR U = 0 TO 66: IF N%(U) < >K% THEN NEXT : RETURN
840 IF Q%(U) < >L% THEN NEXT
850 M% = U +24: IF -1 = O%(M%) OR R% = O%(M%) THEN C%(U) = 0:N%(U) = 0
860 IF C%(U) THEN NEXT
870 V% = U +84:Y = 1: RETURN
880 PRINT "* I DON'T KNOW THE WORD "QU$U$QU$".": RETURN
890 POKE 254,90: PRINT " > > > > KABOOM!! < < < <": CALL 36515: RETURN
900 IF U$ = "" THEN POP : GOTO 330
910 IF L% = -1 THEN POP : GOTO 880
920 IF L% <61 OR L% >150 THEN POP : GOTO 810
930 IF L% = 79 THEN POP : GOTO 340
940 RETURN
950 R% = J%:F$ = "O":DM% = 3: GOSUB 4580: GOSUB 460:EL = -5:BL = EL: GOTO 110
960 A% = L% -60:F$ = "":H% = 0:W% = 0:Q = 0: IF NOT K% THEN 1310
970 IF K% <12 THEN 1570
980 IF K% >150 THEN 2830
990 IF K% -11 >27 THEN 1010
1000 ON K% -11 GOTO 3670,3760,3860,2620,2720,2450,3920,1300,2140,1420,1310,1390,1410,1830,2510,2830,2890,2940,2940,3030,2290,2200,3400,280,3080,3480,2390
1010 ON K% -37 GOTO 2390,3010,2040,3050,3360,3060,3190,4200,3300,4200,3790,280,3990,4080,1140,4440,4320,4330,1390,1560,3630,3600: GOTO 290
1020 IF O%(79) < >R% THEN 1040
1030 GOSUB 80: PRINT R$(0): RETURN
1040 IF R% < >55 THEN RETURN
1050 A$(0) = R$(1):S$ = R$(2): IF NOT M%(3) THEN S$ = R$(3)
1060 A$(0) = A$(0) +S$ +", ":S$ = R$(4): IF C% AND SA% THEN S$ = R$(5)
1070 A$(0) = A$(0) +S$:S$ = R$(6): IF AP% THEN S$ = R$(7)
1080 A$(0) = A$(0) +S$: FOR Q = 1 TO LEN(A$(0)) STEP 40: GOSUB 80: PRINT MID$ (A$(0),Q,40);: NEXT Q: PRINT : RETURN
1090 IF R% < >98 THEN RETURN
1100 GOSUB 1120: IF H% >1 THEN PRINT "THEY SIT ON THE SCALES, AND THE SCALES ARE NOT BALANCED.": RETURN
1110 PRINT "IT SITS ON THE SCALE AND THE SCALE IS INPROPER BALANCE.": RETURN
1120 H% = 0: FOR Q = 5 TO 68: IF O%(Q) = R% THEN H% = H% +1
1130 NEXT : RETURN
1140 IF U$ = "" THEN 330
1150 IF L% < >67 THEN 1250
1160 IF X < >R% AND B% < >2 THEN 1970
1170 IF O%(16) < > -1 THEN 310
1180 IF MA% <1 THEN 820
1190 IF B% = 2 THEN O%(14) = -5
1200 MA% = MA% -1: PRINT "* LIGHTING MATCH...": PRINT : IF B% = 2 THEN GOSUB 890: IF O%(14) = -5 THEN PRINT "* OOPS! NOT A GOOD IDEA.": GOTO 4510
1210 IF B% = 2 THEN O%(14) = -5
1220 K% = 52:L% = 67: GOSUB 830: GOSUB 890: IF X < >R4% THEN X = 0
1230 IF Y THEN O% = U +24: GOTO 100
1240 PRINT "* THAT DIDN'T DO MUCH BUT IT WAS FUN.": RETURN
1250 IF L% < >76 THEN 820
1260 GOSUB 250:MA% = MA% -1: IF MA% <1 THEN O%(16) = -5: GOSUB 370: PRINT "OK. OUT OF MATCHES.": PRINT "* BUMMER. IT WAS A DUD!": RETURN
1270 GOSUB 210:ML% = 2: IF O%(14) = -1 AND B% = 2 THEN 1180
1280 IF NOT S% AND R% > = Q% AND R% < = Q1% THEN 650
1290 RETURN
1300 PRINT "* INTERESTING IDEA BUT INAPPROPRIATE.": RETURN
1310 IF L% = -1 THEN 330
1320 IF VAL(U$) OR VAL(T$) THEN 1370
1330 IF L% = 86 AND O%(26) = -2 THEN PRINT "* WHY BOTHER? SMART, IT ISN'T.": RETURN
1340 IF L% <105 OR L% >109 THEN 820
1350 IF O%(A%) < >R% THEN 1970
1360 GOSUB 130:I% = 27 +(5 *(L% -104)): GOSUB 4640:S% = INT( RND(1) *4) +1: PRINT "* LOGIC CIRCUITS RECOMMEND ASKING "S%: RETURN
1370 FOR Q = 105 TO 109: IF O%(Q -60) < >R% THEN NEXT : GOSUB 310: GOTO 1970
1380 L% = Q: GOSUB 130:I% = 27 +(5 *(L% -104)):I% = I% + VAL(U$): PRINT "IT SAYS:": GOTO 4640
1390 IF EF% THEN POKE 254,7: CALL 36515: PRINT "*** WARNING! ENERGY LEVELS CRITICAL! *****";: IF EF% = 2 THEN CALL 36515: PRINT "* APPROACHING TERMINAL LEVEL (500) *****";
1400 PRINT "* MEDICAL SCANNERS:": PRINT " CYBORG LEVEL DAMAGE % BIO LEVEL": PRINT TAB( 8)EL% TAB( 21)DP% TAB( 33)BL%: RETURN
1410 HOME :OP% = 0: PRINT "****" TAB( 13)"ALL SCANNERS ON" TAB( 36)"****": GOSUB 1390: PRINT "* BODY SCAN REVEALS WE ARE CARRYING:": GOSUB 2060: GOTO 2660
1420 I% = 52: GOSUB 4640: PRINT : PRINT "* ENTER YOUR CHOICE, OR PRESS RETURN.";: GOSUB 4340:S = VAL(T$): IF NOT S OR S >4 THEN RETURN
1430 IF S = 4 THEN PRINT "HELP IS ON IT'S WAY...": GOTO 4180
1440 IF S = 3 THEN F$ = "I":I% = 7: GOTO 4640
1450 IF EL% <800 THEN GOSUB 120: PRINT "HIGH-LEVEL LOGIC CIRCUITS SHUT DOWN TO CONSERVE POWER.": GOSUB 1390: RETURN
1460 PRINT :EL = -1: IF S = 2 THEN 1530
1470 PRINT "* ON WHAT THING?";: GOSUB 4340:L% = -1: FOR Q = 1 TO N%: IF T$ = K$(Q) THEN L% = K%(Q): GOTO 1485
1480 NEXT Q: GOTO 220
1485 IF L% <61 THEN GOSUB 810: GOTO 1470
1487 IF L% >150 THEN 1530
1490 A% = L% -60: IF A% = 19 THEN PRINT "* I DETECT NOTHING ABNORMAL.": RETURN
1500 IF O%(A%) = -1 OR O%(A%) = R% OR O%(A%) = -2 THEN K% = 21:O% = A%: GOTO 100
1510 GOTO 1970
1530 OF% = 0: FOR Q = 3 TO 6: IF MID$ (A$(Q),4,1) = "$" THEN PRINT MID$ (A$(Q),5):OF% = 1
1540 NEXT : IF NOT OF% THEN PRINT "* LOGIC CIRCUITS OFFER NO FURTHER HELP."
1550 RETURN
1560 GOSUB 25: IF T$ < >"Y" THEN 4470
1563 PRINT "RESTORING SAVED GAME. ";: POP : GOTO 4980
1570 IF K% <11 THEN L% = K%:K% = 11
1580 IF L% = 112 THEN K% = 59: GOTO 3600
1590 IF R% = 99 AND NOT AP% AND L% = 1 THEN PRINT "* IT'S VACUUM CITY IN THERE.": RETURN
1600 IF L% = -1 THEN GOSUB 120: PRINT "DIRECTION NEEDED.": RETURN
1610 IF L% = 28 THEN 2890
1620 IF L% = 27 THEN L% = -1:K% = 27: GOTO 2830
1630 IF L% >10 THEN 810
1640 H% = 0: FOR Q = 1 TO 10:G%(Q) = VAL( MID$ (A$(7),Q *4 -2,Q *4)): IF G%(Q) THEN H% = H% +1
1650 NEXT :J% = G%(L%): IF O%(43) < >R% AND (R% = 85 OR R% = 35) AND (J% = 29 OR J% = 88) THEN H% = 15: GOSUB 160
1660 IF O%(43) = R% AND (R% = 85 OR R% = 35) AND (J% = 29 OR J% = 88) THEN 1740
1670 IF NOT J% THEN GOSUB 120: PRINT "SCANNING REVEALS WE CANNOT GO IN THAT DIRECTION.": RETURN
1680 IF R% = 96 AND NOT PN% AND O%(78) < > -5 THEN I% = 54: GOTO 450
1690 FOR U = 1 TO 66: IF C%(U) < >K% THEN NEXT : GOTO 1740
1700 IF O%(U +24) < >R% THEN IF O%(U +24) < > -1 THEN NEXT
1710 FOR Q = 1 TO 6: IF D%(U,Q) <0 AND N%(U) >60 THEN IF O%(N%(U) -60) = D%(U,Q) THEN 1740
1720 NEXT : FOR Q = 1 TO 6: IF D%(U,Q) = L% THEN I% = U: GOTO 450
1730 NEXT
1740 IF NOT S% AND R% >Q% AND R% R% THEN NEXT : GOTO 1790
1770 O%(79 +W) = J%: IF H% <2 THEN I% = 11 +(W *5): GOSUB 4640: GOTO 110
1780 M%(W) = J%
1790 IF J% = 66 THEN O% = 0:K% = 1: GOTO 950
1800 IF R% = 100 AND J% = 102 AND SA% THEN PRINT "* WE CAN'T ENTER THE CHAMBER FOR FEAR OF CONTAMINATING THE SLEEPERS.": RETURN
1810 IF (J% = 35 AND R% = 29) OR (J% = 29 AND R% = 35) THEN O% = 31:K% = 45: GOTO 950
1820 R% = J%:BL = -5:EL = BL: GOTO 110
1830 IF L% = 40 THEN 2040
1840 IF L% = 61 THEN PRINT "* IT'S TOO BIG TO LIFT.": RETURN
1850 IF L% = 65 THEN IF O%(A%) < >R% AND R% = 113 THEN PRINT "* ONE PIECE IS BAD ENOUGH.": RETURN
1860 IF K% = 25 AND L% = 104 AND R% = 105 THEN PRINT "* IT WON'T TRADE AGAIN.": RETURN
1870 IF L% >65 AND L% <69 THEN 2290
1880 IF L% = 79 OR L% >129 OR L% <65 THEN 820
1890 IF L% = 86 AND O%(9) <0 THEN 4310
1900 IF L% = 91 THEN K% = 45: GOTO 4200
1910 IF R% < >98 OR A% = 72 THEN 1940
1920 GOSUB 900: IF O%(A%) < >R% THEN 1950
1930 GOSUB 1120: IF H% = 1 THEN PRINT "OOPS! A LASER BEHIND THE WALL JUST BLEW A HOLE IN OUR CHEST.": GOTO 4510
1940 IF L% = 112 THEN 820
1950 GOSUB 900: IF L% <61 OR L% >139 OR L% >89 AND L% <100 THEN GOSUB 820: GOTO 320
1960 IF O%(A%) = R% THEN 1980
1970 GOSUB 120: PRINT "SCANNERS FUNCTIONING NORMALLY BUT I DON'T SEE IT.": RETURN
1980 R = R%:R% = -1: GOSUB 1120:R% = R: IF H% >5 THEN GOSUB 120: PRINT "WE'LL HAVE TO DROP SOMETHING FIRST"
1990 IF H% >5 THEN RETURN
2000 IF L% >104 AND L% <110 THEN PRINT "* WE SHOULDN'T INTERFERE WITH LIFE FORMS WE DON'T UNDERSTAND.": RETURN
2010 IF L% >84 THEN GOSUB 130
2020 GOSUB 210: GOSUB 830:O%(A%) = -1:EL = -1:BL = EL: IF L% >119 AND L% <123 THEN EL% = EL% +425:O%(A%) = -5: POKE 254,7: CALL 36515: PRINT "* THIS HELPS, BUT WE MUST STILL FIND THE PERMANENT ONE.": PRINT "* "U$" PROPERLY ATTACHED.": GOTO 1390
2030 GOTO 350
2040 PRINT "* WE ARE CARRYING THE FOLLOWING:": PRINT
2060 IF IV$(0) = "" THEN PRINT TAB( 5)"NOTHING": GOTO 2090
2070 FOR Q = 0 TO 5: IF IV$(Q) < >"" THEN PRINT TAB( 5)IV$(Q): IF IV$(Q) = O$(16) THEN VTAB PEEK(37): HTAB 21: PRINT "("MA%" LEFT)"
2080 NEXT
2090 IF IW$(0) = "" THEN RETURN
2100 IF K% = 24 THEN PRINT "* WE ARE WEARING:": GOTO 2120
2110 PRINT : PRINT "* WE ARE WEARING:": PRINT
2120 FOR Q = 0 TO 8: IF IW$(Q) < >"" THEN PRINT TAB( 5)IW$(Q)
2130 NEXT : RETURN
2140 IF C% THEN PRINT "* WE ALREADY DID THAT.": RETURN
2150 GOSUB 900: IF L% < >112 THEN GOSUB 820: GOTO 320
2160 IF -1 < >O%(50) THEN 310
2170 IF O%(51) < > -1 THEN 310
2180 FOR Q = 52 TO 56: IF O%(Q) < >R% THEN 310
2190 NEXT : FOR Q = 53 TO 56:O%(Q) = -5: NEXT :C% = 1:O$(52) = "REPAIRED DIAL": GOSUB 210: GOSUB 830: PRINT "* DIAL FULLY REPAIRED AND OPERATIONAL.": GOTO 2660
2200 IF L% >65 AND L% <69 OR L% = 74 OR L% = -1 THEN 2220
2210 GOSUB 820: GOTO 320
2220 IF O%(14) < > -1 THEN 310
2230 L% = B% +65: IF L% <66 THEN 2710
2240 PRINT "* THE "V$" IS NOW EMPTY.": GOSUB 830: FOR Q = 0 TO 5: IF IV$(Q) = O$(14) THEN O$(14) = X$ +V$:IV$(Q) = O$(14): GOTO 2260
2250 NEXT Q
2260 IF B% = 2 THEN X = R%
2270 B% = 0: IF Y THEN O% = U +24: GOTO 100
2280 RETURN
2290 GOSUB 900: IF L% < >74 THEN GOSUB 820: PRINT " AT LEAST NOT WITH BARE HANDS.": RETURN
2300 IF -1 < >O%(A%) THEN 2710
2310 IF B% THEN 310
2320 IF R% = 17 THEN B% = 1: GOTO 2360
2330 IF R% = 93 THEN B% = 2: GOTO 2360
2340 IF R5% = R% THEN B% = 3: GOTO 2360
2350 GOSUB 820: PRINT "* I SEE NOTHING HERE TO FILL IT WITH.": RETURN
2360 FOR Q = 0 TO 5: IF IV$(Q) = O$(14) THEN O$(14) = V$ +" OF " +O$(B% +5):IV$(Q) = O$(14): GOTO 2380
2370 NEXT Q
2380 GOSUB 830: GOTO 210
2390 IF L% = -1 OR L% >65 AND L% <69 OR L% = 74 THEN 2410
2400 GOTO 820
2410 IF NOT B% AND O%(14) = -1 THEN GOSUB 310: PRINT "* THE "V$" IS EMPTY.": RETURN
2420 IF O%(14) < > -1 THEN 310
2430 IF B% < >1 THEN PRINT "* NOT A GOOD IDEA. THE "V$" WAS FILLED WITH "O$(B% +5)".": GOTO 4510
2440 PRINT "* YOUR THIRST HAS BEEN QUENCHED, HOWEVER":BL = 35: GOTO 2200
2450 IF L% = 104 OR L% = 84 THEN 2470
2460 GOSUB 900: GOTO 820
2470 IF O%(44) < > -1 OR O%(24) < > -1 THEN 310
2480 IF L% = 104 AND O%(24) < > -1 THEN PRINT "* WE CAN'T "T$" THE STRING TO ANYTHING": PRINT " IN THE AREA.": RETURN
2490 IF O%(24) < > -1 AND O%(44) < > -1 AND L% = 104 THEN 310
2500 GOSUB 130: GOSUB 830: GOSUB 210:A% = 24: GOSUB 370:O$(A%) = "LACED SNEAKERS": GOSUB 350:A% = 44: GOSUB 370:O%(A%) = -5:O$(A%) = "":C%(0) = 0: RETURN
2510 GOSUB 900: IF -1 < >O%(A%) THEN GOSUB 820: PRINT "* WE'RE NOT CARRYING IT.": RETURN
2520 GOSUB 130: IF L% = 86 THEN O$(9) = X$ +C$
2530 IF L% = 69 AND -1 = O%(26) THEN O%(9) = R%:A% = 9: GOSUB 370:O$(9) = X$ +C$:L% = 86
2540 IF L% = 76 AND U$ = "MATCH" THEN 3190
2550 O%(A%) = R%: GOSUB 370: GOSUB 830: IF O%(U +84) >89 AND O%(U +84) <100 THEN O%(U +84) = -5:O% = A%: GOSUB 210: GOTO 100
2560 IF L% = 100 THEN 210
2570 GOSUB 210: IF Y THEN O% = U +24: GOTO 100
2580 IF L% = 65 THEN PRINT "* SOME REPTILE JUST WHIZZED BY AND STOLE THE "O$(A%)".":O%(A%) = -5: RETURN
2585 IF L% < >83 THEN RETURN
2590 IF R% = 42 AND O%(12) THEN PRINT "* A SIGN ON THE FRONT PANEL SAYS ";: FLASH : PRINT "EMPTY";: NORMAL : PRINT ".": RETURN
2600 IF R% = 42 THEN O%(12) = R%:O$(12) = "APPLE": PRINT "* THE VENDING MACHINE JUST WHIRRED AND AN APPLE BOUNCED OUT OF IT.": RETURN
2610 RETURN
2620 IF L% = 79 OR K% = L% THEN 2650
2630 IF U$ < >"" AND -1 = L% THEN 880
2640 IF -1 < >L% THEN 2670
2650 HOME :OP% = 0
2660 L%(R%) = 0: PRINT "* AREA SCAN REVEALS:": GOTO 490
2670 IF L% <61 THEN 810
2680 IF L% >60 AND L% <150 AND (O%(A%) = -1 OR O%(A%) = -2 OR O%(A%) = R%) THEN O% = A%: GOSUB 830: GOTO 100
2690 IF L% -150 = R% THEN 2650
2700 IF L% >150 THEN 310
2710 GOSUB 310: GOTO 1970
2720 IF L% -150 = R% THEN PRINT "* IT'S NOT CLOSED.": RETURN
2730 GOSUB 900: IF L% >88 AND L% <100 AND O%(A%) = R% THEN 2780
2740 IF O%(A%) < > -1 AND O%(A%) < >R% THEN 310
2750 IF L% = 137 AND O%(51) = -1 THEN PN% = 1
2760 IF L% = 138 AND R% = 96 THEN PN% = 1: GOSUB 830: GOTO 210
2770 IF L% = 100 OR L% = 101 THEN IF O%(B%(L% -99) -60) < >0 THEN PRINT "* FORGET IT. IT'S EMPTY.": RETURN
2780 GOSUB 130: GOSUB 830:O% = A%: GOSUB 100: IF Y AND L% <100 AND L% >89 THEN O%(A%) = -5
2790 IF L% = 130 AND NOT O%(55) THEN O%(55) = R%:O$(55) = "LOOP OF SOLDER": PRINT "* SOMETHING FELL OUT.": RETURN
2800 IF L% = 130 AND O%(55) THEN PRINT "* THE "U$" IS EMPTY."
2810 IF L% = 100 OR L% = 101 THEN O%(B%(L% -99) -60) = R%
2820 RETURN
2830 IF K% >150 THEN L% = K%:K% = 27
2840 IF L% <151 THEN 800
2850 IF C% AND R% = R7% THEN J% = X%: GOTO 1340
2860 FOR Q = 1 TO 10:J% = VAL( MID$ (A$(7),Q *4 -2,Q *4)): IF J% = L% -(150) OR J% = V1 OR J% = V2 OR J% = V3 OR J% = V4 THEN 2880
2870 NEXT Q: PRINT "* WE CAN'T DO THAT FROM HERE.": RETURN
2880 L% = Q:K% = 11: GOTO 1570
2890 IF L% < > -1 THEN 2920
2900 FOR Q = 1 TO 10:J% = VAL( MID$ (A$(7),Q *4 -2,Q *4)): IF J% >0 THEN K% = 11:L% = Q: GOTO 1570
2910 NEXT : PRINT "* I NEED A DIRECTION HERE.": RETURN
2920 IF L% >150 AND R% = L% -150 THEN 2900
2930 GOTO 800
2940 IF A% < >73 THEN 2980
2950 IF O%(A%) < >R% THEN 1970
2960 IF O%(A%) = R% THEN GOSUB 130: IF O%(27) < >R% THEN PRINT "* OK. THE READER IS ACTIVE.": RETURN
2970 PRINT "OK. READING IT NOW.": PRINT : PRINT OP$"R": PRINT RE$"R": FOR Q = 1 TO 5: CALL 768:IN$ = MID$ (IN$,1): PRINT IN$: NEXT : PRINT CL$"R": RETURN
2980 IF L% = 76 THEN K% = 52: GOTO 1140
2990 IF L% = 67 THEN K% = 52: GOTO 1140
3000 GOSUB 900: GOTO 320
3010 IF L% >60 THEN GOSUB 280: PRINT "* PLEASE GIVE ME A DIRECTION TO GO IN.": RETURN
3020 GOTO 330
3030 GOSUB 900: IF O%(A%) < >R% THEN 1970
3040 GOSUB 830:O% = A%:EL = -10:BL = EL: GOTO 100
3050 GOTO 300
3060 IF U$ = "" THEN 330
3070 PRINT "OKAY, "QU$U$QU$".": RETURN
3080 FOR Q = 1 TO 4: IF M%(Q) = R% THEN H% = Q: GOTO 3120
3090 NEXT : GOSUB 900: IF L% <140 THEN 340
3100 IF L% >144 AND O%(A%) = R% THEN PRINT "* ATTEMPTING TO "T$".":O% = A%:BL = -7:EL = BL: GOTO 100
3110 PRINT "* I SEE NOTHING HERE TO "T$".": RETURN
3120 IF O%(17) = -2 THEN 3150
3130 IF K% = 47 OR T$ = "SHOOT" OR T$ = "FIRE" THEN 310
3140 MK% = MK% -1:EL = -10:BL = EL: GOTO 3160
3150 GOSUB 1390: PRINT : PRINT "* HOW MUCH ENERGY SHOULD WE CHARGE THE LASER WITH (0-"EL%")?";: GOSUB 4340:R = VAL(T$):EL = -R:BL = -5:MK% = MK% -R
3160 O% = 79 +W: IF MK% >0 THEN F$ = "O":K% = 36: GOSUB 4580: GOTO 110
3170 K% = 1:M%(W) = 0:MK% = 0: IF W = 3 THEN O%(82) = R%:O$(82) = "DISABLED CLEANING ROBOT":C%(58) = 16:N%(58) = 48:Q%(58) = 142
3180 GOTO 100
3190 GOSUB 900: IF L% = 136 AND R% = 55 AND C% AND SA% AND NOT M%(1) AND NOT M%(2) THEN FOR R = 1 TO 12: GOSUB 470: NEXT R: PRINT "BLOAD S3": FOR R = 1 TO 15: GOSUB 470: NEXT R: VTAB 22: NEW
3200 IF L% = 136 AND R% = 55 THEN 300
3210 GOSUB 250: IF L% = 74 AND B% THEN O%(A%) = R%: GOSUB 370: PRINT "* THE GROUND BY OUR FEET IS NOW WET WITH "O$(B% +5)".":B% = 0:O$(14) = X$ +V$: GOTO 830
3220 IF L% < >76 THEN 3290
3230 IF ML% < = 0 THEN ML% = 0
3240 IF ML% THEN GOSUB 210: IF X = R% THEN 1220
3250 IF ML% AND Y THEN O% = U +24: GOTO 100
3260 IF ML% THEN RETURN
3270 IF NOT ML% THEN MA% = MA% -1: IF MA% = 0 THEN A% = 16: GOSUB 370:O%(16) = -5:MA% = 0: PRINT "OK": PRINT "* OUT OF MATCHES.": RETURN
3280 GOTO 210
3290 K% = 26: GOTO 2510
3300 IF L% >150 THEN 3340
3310 GOSUB 900: IF O%(A%) = R% THEN PRINT "* IT'S RIGHT HERE.": RETURN
3320 IF O%(A%) = -1 OR O%(A%) = -2 THEN PRINT "* TRY A BODY SCAN.": RETURN
3330 O% = A%: GOTO 100
3340 H% = L% -150:H% = H% -R%: IF ABS(H%) <10 THEN PRINT "* WE'RE FAIRLY CLOSE TO IT.": RETURN
3350 IF ABS(H%) >9 THEN PRINT "* WE'VE GOT SOME TRAVELING TO DO YET.": RETURN
3360 GOSUB 900: GOSUB 130: IF A% = 27 AND R% < >97 THEN 310
3370 IF A% = 27 THEN A% = 73: GOTO 2940
3380 IF L% = 80 THEN GOSUB 830:O% = A%: PRINT "* OKAY, WHY NOT?": GOTO 100
3390 GOTO 820
3400 IF L% = 72 OR L% = 88 OR L% = 73 THEN 3450
3410 GOSUB 900: IF L% = 65 AND O%(A%) = -1 THEN PRINT "* UGH! HOW COULD YOU DO THAT?": POP : GOTO 4510
3420 IF L% < >79 AND L% <150 AND L% >60 THEN IF O%(A%) = -1 THEN 3440
3430 IF L% >60 THEN IF L% < >79 AND L% <150 AND O%(A%) < >R% THEN 1970
3440 GOSUB 340: PRINT " EXCEPT MAYBE MAKING US VERY ILL.": RETURN
3450 GOSUB 250: IF L% = 88 THEN GOSUB 130
3460 IF -1 = O%(A%) THEN PRINT "* WE NEEDED THAT.": GOSUB 470: GOSUB 830:O%(A%) = -5: GOSUB 370:BL% = BL% +475: GOTO 1390
3470 GOTO 2710
3480 GOSUB 900: IF -1 < >O%(12) AND -1 < >O%(13) AND O%(28) < > -1 THEN 310
3500 IF L% < >145 AND L% < >142 AND L% < >141 AND L% < >140 AND L% < >105 AND L% < >106 AND L% < >107 THEN GOSUB 820: GOTO 810
3502 IF O%(A%) < > -1 AND O%(A%) < >R% THEN GOSUB 310: GOTO 1970
3505 IF L% >139 AND L% <145 THEN 3590
3510 GOSUB 2040:F$ = U$:R = L%: PRINT : PRINT "* FEED THE "U$" WHICH ITEM?": GOSUB 4340:U$ = F$:F$ = "": FOR Q = 1 TO N%: IF T$ = K$(Q) THEN Q = K%(Q): GOTO 3530
3520 NEXT : PRINT : GOTO 220
3530 PRINT : IF Q <61 THEN 810
3540 IF O%(Q -60) < > -1 THEN 2710
3550 IF Q < >73 AND Q < >72 AND Q < >65 AND Q < >88 THEN PRINT "* THE "U$" LOOKS AT US ASKANCE AND": PRINT " GRACIOUSLY REFUSES OUR OFFERING.": RETURN
3560 K% = 37:L% = Q: GOSUB 130: GOSUB 210: GOSUB 830:A% = Q -60:O%(A%) = -5: GOSUB 370:L% = R:A% = L% -60: IF Y THEN A% = U +24
3580 O% = A%: GOTO 100
3590 PRINT "* THE "U$" DOESN'T WANT TO EAT": PRINT " ANYTHING. EXCEPT MAYBE US.": RETURN
3600 GOSUB 900: IF L% < >112 THEN 300
3610 GOSUB 130: GOSUB 830: GOSUB 210:O$(A%) = "REPAIRED DIAL": IF Y THEN O% = U +24: GOTO 100
3620 SA% = NOT SA%: RETURN
3630 GOSUB 900: IF A% < >78 THEN GOSUB 820: GOTO 320
3640 IF O%(A%) < >R% THEN GOSUB 820: GOTO 1970
3650 IF PN% = 0 THEN PRINT "THE "U$" ISN'T OPEN.": RETURN
3660 GOSUB 130: GOSUB 830:PN% = 0: GOTO 210
3670 IF L% = 9 THEN K% = 11: GOTO 1570
3680 IF L% = 10 THEN K% = 11: GOTO 1570
3690 IF L% = 98 OR L% = 99 OR L% = 91 THEN 3710
3700 GOSUB 900
3710 IF L% = 91 AND O%(31) = R% AND O%(20) < > -2 THEN GOSUB 210:K% = 45: GOTO 4250
3720 IF O%(A%) < >R% AND L% = 98 AND R% <31 THEN GOSUB 820: PRINT " THE TRUNKS ARE TOO SLENDER.": RETURN
3730 IF O%(A%) < >R% THEN 1970
3740 K% = 11: FOR Q = 9 TO 10:J% = VAL( MID$ (A$(7),Q *4 -2,Q *4)): IF J% THEN L% = Q: GOTO 1690
3750 NEXT : GOTO 1670
3760 IF U$ = "" THEN 330
3770 IF -1 = L% THEN 880
3780 IF L% = 96 AND O%(36) = R% THEN PRINT "* PLEASE GIVE ME A DIRECTION.": RETURN
3790 IF L% = 79 OR L% >150 THEN 340
3800 GOSUB 900:S$ = "": IF O%(A%) = -2 THEN PRINT "* WE'D BETTER TAKE IT OFF FIRST.": RETURN
3810 IF O%(A%) < >R% AND O%(A%) < > -1 THEN GOSUB 120: PRINT "I DONT SEE THE": PRINT " "U$" HERE.": RETURN
3820 GOSUB 270: IF S$ = "N" THEN 210
3830 IF L% = 139 THEN W(2) = 1:MK% = ( RND(1) *25) +25:M%(2) = R%:W = 2
3840 IF L% = 142 AND NOT M%(3) AND NOT O%(41) THEN O%(41) = R%:O%(51) = R%:O$(41) = "ROBOT POWER CASING":O$(51) = "SET OF TOOLS": GOTO 3850
3842 IF L% = 142 AND NOT M%(3) AND O%(41) THEN PRINT "* IT'S EMPTY.": RETURN
3850 GOSUB 130: GOSUB 830:O% = L% -60: PRINT "* OK. I'LL TRY.": PRINT :EL = -4:BL = EL: GOTO 100
3860 IF O%(31) < >R% THEN 3890
3870 PRINT "* I DOUBT WE'LL MAKE IT. YOU STILL WANT TO TRY?";: GOSUB 4490: IF S$ = "Y" THEN PRINT : PRINT " OKAY. HERE GOES...": GOTO 4510
3880 IF S$ = "N" THEN 210
3890 IF L% = 9 THEN PRINT "* THAT WAS FUN! (IT DIDN'T DO MUCH, BUT I DID ENJOY IT.)": RETURN
3900 IF L% = 10 OR L% = -1 AND U$ = "" THEN K% = 11:L% = 10: GOTO 1570
3910 GOSUB 820: PRINT : GOTO 320
3920 GOSUB 900: IF A% < >44 AND A% < >24 THEN 820
3930 IF A% = 44 AND R% = 30 THEN 820
3940 IF O$(24) < >"LACED SNEAKERS" THEN 820
3950 IF O%(24) < > -1 AND O%(24) < > -2 THEN 310
3960 A% = 44:O%(A%) = R%:O$(A%) = "STRING IN PIECES": GOSUB 1830: IF O%(A%) = R% THEN O%(A%) = -5: RETURN
3970 A% = 24:O%(A%) = R%:H% = 0: GOSUB 420: GOSUB 370: GOSUB 370:O$(A%) = "PAIR OF SNEAKERS":R = R%:R% = -1: GOSUB 1120:R% = R: IF H% >5 THEN RETURN
3980 H% = 0: GOSUB 350:O%(A%) = -1: RETURN
3990 GOSUB 900: IF A% = 21 AND IW$(0) < >O$(22) AND IW$(1) < >"" THEN 310
4000 IF O%(A%) = -2 THEN GOSUB 820: PRINT "* WE'RE ALREADY WEARING IT.": RETURN
4010 IF O%(21) = -2 THEN 310
4020 IF L% < >69 AND L% < >70 AND L% < >75 AND L% < >77 AND L% < >81 AND L% < >83 AND L% < >84 THEN GOSUB 820: GOTO 320
4030 GOSUB 250: IF O%(21) = -2 THEN 310
4040 IF L% = 75 THEN GOSUB 210: FOR R = 1 TO 3: GOSUB 470: NEXT R:O%(15) = -2: GOSUB 400:EL% = 2000: GOTO 1390
4050 IF A% = 24 AND O%(44) < > -5 THEN 310
4060 GOSUB 130: GOSUB 210: GOSUB 830:O%(A%) = -2: IF A% = 10 THEN S% = 1
4070 GOTO 400
4080 GOSUB 900: IF O%(A%) < > -2 THEN GOSUB 820: PRINT "* WE'RE NOT WEARING IT.": RETURN
4090 IF L% = 69 AND O%(26) = -2 THEN 310
4100 IF O%(21) = -2 AND A% < >21 THEN 310
4110 GOSUB 130: GOSUB 830:R = R%:R% = -1: GOSUB 1120:R% = R:R = H%: IF A% = 26 THEN GOSUB 420: GOSUB 370:O%(26) = R%:A% = 9: GOSUB 420: GOSUB 370:O$(9) = HA$: GOSUB 400
4120 IF L% = 86 AND Y THEN O%(21) = R%:O$(21) = "PRESSURE SUIT"
4130 IF L% = 86 THEN 4160
4140 O%(A%) = -1: IF R >5 THEN O%(A%) = R%
4150 GOSUB 420
4160 GOSUB 210: IF Y THEN O% = U +24: GOTO 100
4170 RETURN
4180 PRINT OP$"H,L255": FOR Q = 0 TO 9: PRINT RE$"H,R"Q: INPUT A$(Q): NEXT : PRINT CL$"H": HOME : HTAB 15: PRINT "** HELP **": PRINT : FOR Q = 0 TO 9: IF PEEK(37) >19 THEN PRINT : PRINT " << MORE HELP -- PRESS ANY KEY >> ";: GET A$: HOME : PRINT TAB( 15)"** HELP **": PRINT
4190 PRINT A$(Q): NEXT : PRINT "* I HOPED THAT HELPED. RETURNING TO WHERE WE LEFT OFF...": PRINT :L%(R%) = 0: GOTO 480
4200 IF L% >150 THEN GOSUB 210: GOTO 300
4210 IF L% >139 AND L% <151 THEN 3080
4220 GOSUB 900: IF O%(A%) < >R% AND O%(A%) < > -1 THEN 1970
4230 IF K% = 47 AND -2 < >O%(17) THEN 310
4240 IF L% >84 THEN GOSUB 130
4250 IF L% = 135 AND CU% THEN PRINT "* NOTHING HAPPENS.": RETURN
4260 GOSUB 830:O% = A%:EL = -4:BL = EL:F$ = "O": GOSUB 4580: IF L% = 91 AND O%(20) < > -2 THEN DM% = 3:F$ = "": GOTO 460
4270 IF L% = 96 AND O%(21) < > -2 THEN PRINT "OOPS! VACUUM CITY!": GOTO 4510
4280 IF L% = 135 THEN GOSUB 470:EL% = EL% +300:BL% = BL% +300:DP% = INT(DP%/2): GOSUB 1390: GOSUB 470:CU% = 1
4290 IF L% = 104 THEN O$(44) = "STRING IN PIECES"
4300 F$ = "": RETURN
4310 GOSUB 130:A% = 9: GOSUB 420: GOSUB 370:O$(9) = O$(26) +" ON " +C$:O%(26) = -2: GOSUB 350: GOSUB 400: GOTO 210
4320 GOSUB 25: IF T$ < >"Y" THEN 4470
4325 GOSUB 4410: GOSUB 4420: RETURN
4330 PRINT "* UNABLE TO ANSWER THAT QUESTION.": PRINT " TYPE " CHR$(34)"HELP" CHR$(34)".": RETURN
4340 A% = 0:T$ = "":U$ = T$: POKE 51,190: POKE 512,141: CALL 64871: PRINT : IF PEEK(512) = 141 THEN RETURN
4350 FOR Q = 512 TO 640: IF PEEK(Q) = 141 THEN RETURN
4360 IF PEEK(Q) = 160 AND T$ = "" THEN 4400
4370 IF PEEK(Q) = 160 THEN A% = 1: GOTO 4400
4380 IF NOT A% THEN T$ = T$ + CHR$( PEEK(Q) -128): GOTO 4400
4390 U$ = U$ + CHR$( PEEK(Q) -128)
4400 NEXT
4410 PRINT "SAVING GAME STATUS...": RETURN
4420 PRINT OP$"G": PRINT WR$"G": PRINT T%: PRINT R%: PRINT C%: PRINT D%: PRINT ML%: PRINT BL%: PRINT EL%: PRINT DP%: FOR Q = 1 TO 128: PRINT L%(Q): NEXT : FOR Q = 1 TO 85: PRINT O%(Q): PRINT O$(Q): NEXT : PRINT S%: FOR Q = 1 TO 66: PRINT C%(Q): PRINT N%(Q): PRINT Q%(Q): NEXT : FOR Q = 1 TO 66: FOR R = 1 TO 6: PRINT D%(Q,R): NEXT R,Q: PRINT B%: FOR Q = 1 TO 5: PRINT W(Q)
4430 PRINT M%(Q): NEXT : FOR Q = 0 TO 5: PRINT IV$(Q): NEXT : FOR Q = 0 TO 8: PRINT IW$(Q): NEXT : PRINT U%: PRINT MA%: PRINT PN%: PRINT CU%: PRINT AP%: PRINT MK%: PRINT W: PRINT CL$"G": PRINT "OK. YOUR GAME HAS BEEN SAVED.": RETURN
4440 PRINT "DO YOU REALLY WANT TO QUIT NOW?";: GOSUB 4490: IF S$ = "N" THEN 4470
4450 PRINT "DO YOU NEED TO SAVE YOUR GAME?";: GOSUB 4490: IF S$ = "N" THEN 5000
4460 GOTO 4480
4470 PRINT "OK. NO HARM DONE.": RETURN
4480 PRINT : GOSUB 4320: GOTO 5000
4490 PRINT " (Y/N) ";: GOSUB 4340:S$ = LEFT$(T$,1): IF S$ < >"Y" AND S$ < >"N" THEN PRINT "PLEASE ANSWER THE QUESTION";: GOTO 4490
4500 RETURN
4510 I% = 10: PRINT :DM% = 100 -DP%:D1% = DP%: GOSUB 460: PRINT : GOSUB 4640: PRINT "DO YOU WANT ME TO HELP YOU?";: GOSUB 4490: IF S$ = "N" THEN 5000
4520 D% = D% +1:DP% = (D% *25) +D1%: IF D% >2 OR DP% >90 THEN PRINT "SORRY. LOOKS LIKE IT DIDN'T WORK THIS TIME. PLEASE ACCEPT MY CONDOLENCES.": GOTO 5000
4530 I% = 11: GOSUB 4640: IF R% = 62 THEN R% = 82
4540 IF R% >69 THEN S2% = 72
4550 FOR Q = 4 TO 56: IF -1 = O%(Q) OR -2 = O%(Q) THEN O%(Q) = R%
4560 NEXT :O$(9) = HA$: FOR Q = 0 TO 5:IV$(Q) = "": NEXT : FOR Q = 0 TO 9:IW$(Q) = "": NEXT : IF S2% = 72 AND O%(10) = R% THEN A% = 10:O%(A%) = -1: GOSUB 350: GOSUB 400:O%(A%) = -2
4570 R% = S2%:P% = 0: GOSUB 110:L%(S2%) = 0: GOTO 4650
4580 PRINT OP$"O,L160": PRINT RE$"O,R"O%: FOR Q = 1 TO 4: INPUT J%,S$: IF J% = K% THEN 4600
4590 S$ = "* UNABLE TO ACCOMPLISH TASK.": NEXT Q
4600 PRINT CL$"O": IF MID$ (S$, LEN(S$)) = "*" THEN S$ = LEFT$(S$, LEN(S$) -1):A% = L% -60:O%(A%) = -5: GOSUB 370
4610 IF Q = 5 AND K% = 21 THEN S$ = "* INSUFFICIENT DATA TO FORM OPINION."
4620 IF Q = 5 AND K% = 15 THEN S$ = "* SCANNING PRODUCES NO ADDITIONAL DATA."
4630 PRINT S$:S$ = "": GOTO 110
4640 PRINT OP$"I,L255": PRINT RE$"I,R"I% -7: INPUT S$: PRINT CL$"I": PRINT S$: RETURN
4650 IF O%(15) = -2 THEN BL% = BL% +BL: GOTO 4670
4660 BL% = BL% +BL:EL% = EL% +EL
4670 ML% = ML% -1: IF W(W) AND M%(W) THEN I% = 7 +(W *5): GOSUB 4640:DM% = 3: GOSUB 460:W(W) = 0:M%(W) = R%: GOTO 4730
4680 IF M%(3) = R% AND K% < >36 THEN PRINT "* SOME OTHER TIME, MAYBE. RIGHT NOW,":F$ = "D"
4690 IF (M%(W) AND F$ < >"D") OR M%(W) < >R% THEN 4730
4700 I% = 8 +(W *5): GOSUB 4640:I% = -1:DM% = 4:H% = RND(1) *100: IF H% <(MK% *1.5) THEN I% = 0
4710 I% = I% +10 +(W *5): GOSUB 4640: IF I% = 10 +(W *5) THEN I% = 10: GOTO 4510
4720 GOSUB 460
4730 IF F$ = "D" AND R% = 62 THEN 5010
4740 IF F$ = "D" THEN GOSUB 480: CALL 35056
4750 IF F$ = "O" THEN GOSUB 4580: IF O% = 36 AND O%(21) < > -2 AND K% = 45 THEN F$ = "I": GOTO 4510
4760 IF F$ < >"D" THEN 4800
4770 IF (EL% <750 AND EL% >730) OR (BL% <750 AND BL% >730) THEN EF% = 1
4780 IF (EL% <550 AND EL% >530) OR (BL% <550 AND BL% >530) THEN EF% = 2
4790 IF EF% THEN GOSUB 1390
4800 EF% = 0:OP% = 1:EL = 0:BL = 0: GOSUB 4340: IF T$ = "" THEN 4800
4810 IF MID$ (T$, LEN(T$),1) = "?" THEN K% = 55: GOTO 4880
4820 IF LEN(U$) THEN IF MID$ (U$, LEN(U$),1) = "?" THEN K% = 55: GOTO 4880
4830 K% = -1: FOR Q = 1 TO N%: IF T$ = K$(Q) THEN K% = K%(Q): GOTO 4850
4840 NEXT
4850 L% = -1: IF U$ = "" THEN 4880
4860 FOR Q = 1 TO N%: IF U$ = K$(Q) THEN L% = K%(Q): GOTO 4880
4870 NEXT
4880 IF K% = -1 THEN GOSUB 220: GOTO 4650
4890 GOSUB 960: IF EL% >500 AND BL% >500 THEN 4650
4900 S$ = " POWER": IF BL% <501 THEN S$ = "HUNGER"
4910 PRINT "* IT'S HOPELESS. "S$" LEVEL CRITICAL. BETTER LUCK NEXT TIME.": GOTO 5000
4920 EL% = 1000:BL% = EL%:MA% = 15:OP$ = "OPEN":RE$ = "READ":CL$ = "CLOSE":WR$ = "WRITE":QU$ = CHR$(34):DE$ = "DELETE"
4930 DIM L%(128),O%(235),O$(85),C%(66),N%(66),Q%(66),D%(66,6): PRINT OP$"K": PRINT RE$"K": INPUT N%: DIM K%(N%),K$(N%): FOR Q = 1 TO N%: INPUT K%(Q),K$(Q): NEXT : PRINT CL$"K": PRINT OP$"A": PRINT RE$"A": FOR Q = 1 TO 4: INPUT M$(Q),M%(Q),R%(Q): NEXT
4940 INPUT P1%,Y%,R6%,B$(1),V$,Q%,B%(1),B%(2),O$(B%(1) -60),O$(B%(2) -60),S2%,R9%,X%,C$,V1,V2,V3,V4,Q1%,SS$,R7%: FOR Q = 0 TO 7: INPUT R$(Q): NEXT : PRINT CL$"A":X$ = "EMPTY ":HA$ = "SHOULDER " +C$:X = 93: PRINT OP$"G": PRINT RE$"G": INPUT T%: PRINT CL$: IF T% <3 THEN 4970
4950 VTAB 23: PRINT "CONTINUE THE SAVED GAME (Y/N)? ";: GET S$: IF S$ = "Y" THEN 4980
4960 PRINT :T% = 0
4970 F$ = "":R% = S2%: VTAB 24: HTAB 1: PRINT "**** PRESS THE RETURN KEY TO START ****";: GET S$: GOTO 5100
4980 PRINT " BE WITH YOU IN A FEW MOMENTS...";: VTAB 2: PRINT : VTAB 2: PRINT OP$"G": PRINT RE$"G": INPUT T%,R%,C%,D%,ML%,BL%,EL%,DP%: FOR Q = 1 TO 128: INPUT L%(Q): NEXT : FOR Q = 1 TO 85: INPUT O%(Q),O$(Q): NEXT : INPUT S%: FOR Q = 1 TO 66: INPUT C%(Q),N%(Q),Q%(Q): NEXT
4990 FOR Q = 1 TO 66: FOR R = 1 TO 6: INPUT D%(Q,R): NEXT R,Q: INPUT B%: FOR Q = 1 TO 5: INPUT W(Q),M%(Q): NEXT : FOR Q = 0 TO 5: INPUT IV$(Q): NEXT : FOR Q = 0 TO 8: INPUT IW$(Q): NEXT : INPUT U%,MA%,PN%,CU%,AP%,MK%,W: PRINT CL$: GOTO 5100
5000 PRINT "THANKS FOR PLAYING!": PRINT : PRINT "BYE!": NEW
5010 PRINT "BLOAD S2": VTAB 22: HTAB 34: GOSUB 4490: IF S$ = "N" THEN R% = 82:F$ = "D": GOTO 4650
5020 CALL 35840: GR : HOME : VTAB 21: PRINT "OXYGEN LEFT:" TAB( 20)"DISTANCE (KM):": PRINT "HORIZONTAL:"; TAB( 20)"VERTICAL:": PRINT "REPAIR PATCHES LEFT:"
5030 IF NOT Q THEN 5060
5040 IF Q = 255 THEN 5080
5050 VTAB 21: HTAB 14: PRINT PEEK(252)" ";: HTAB 35: PRINT PEEK(26) *20.5;: CALL -868: VTAB 22: HTAB 13: PRINT PEEK(7)" ";: HTAB 30: PRINT PEEK(6)" ";: VTAB 23: HTAB 22: PRINT PEEK(253)" ": CALL 35980:Q = PEEK(252): GOTO 5030
5060 POKE 254,60: VTAB 21: HTAB 14: PRINT "0";: CALL 36515: TEXT : HOME : PRINT "OOPS! RAN OUT OF OXYGEN! I WARNED YOU...":Q = PEEK(253): IF Q < >2 THEN I% = 8: GOSUB 4640: PRINT "BLOAD L(ML)": GOTO 4510
5070 I% = 9: GOSUB 4640: GOTO 4510
5080 Q = PEEK(254): TEXT : HOME : PRINT "PHEW! WE MADE IT BACK INTO THE AIRLOCK BEFORE OUR OXYGEN RAN OUT!": IF Q THEN PRINT "REPAIR PATCH SUCCESSFULLY APPLIED TO THEBREACH IN THE CARGO HOLD. GOOD WORK.":R% = 82: GOSUB 110:AP% = 1: GOTO 4650
5090 I% = 8: GOSUB 4640:R% = 82: GOSUB 110: GOTO 4650
5100 OP% = 1: POKE 32,0: POKE 33,1: POKE 34,2: POKE 35,2: PRINT : GOSUB 480:K% = 24: TEXT : GOSUB 1410: CALL 789: GOTO 4650
5110 IF PEEK(222) = 0 OR PEEK(222) = 255 THEN 4800
5112 IF PEEK(222) = 5 OR PEEK(222) = 6 OR PEEK(222) = 8 THEN RESUME
5120 PRINT "ERROR:" PEEK(222): NEW