diff --git a/examples/Pneuma.bas b/examples/Pneuma.bas index 7019757..2a2a5a1 100644 --- a/examples/Pneuma.bas +++ b/examples/Pneuma.bas @@ -176,97 +176,99 @@ 2980 PL = 5 : REM initial player location 2990 RETURN 3000 REM ========== room descriptions ========== -3010 DIM RD$ ( RC, 5 ) -3020 RD$ ( INV, 1 ) = "" -3021 RD$ ( INV, 2 ) = "" -3022 RD$ ( INV, 3 ) = "" -3023 RD$ ( INV, 4 ) = "" -3024 RD$ ( INV, 5 ) = "" -3030 RD$ ( GAL, 1 ) = "The galley contains gleaming, stainless steel cupboards along the aft wall. A food" -3040 RD$ ( GAL, 2 ) = "preparation surface is on the port wall, currently covered in rotting food. A chef" -3050 RD$ ( GAL, 3 ) = "stands at the work surface, methodically chopping food even though everything has" -3060 RD$ ( GAL, 4 ) = "already been thoroughly diced. There are doors in the starboard and forward walls and" -3070 RD$ ( GAL, 5 ) = "a stairway leads downwards in the far corner." -3080 RD$ ( REC, 1 ) = "Space is clearly at a premium in this ship. The room doubles as both a dining and" -3090 RD$ ( REC, 2 ) = "recreation area. Long tables for dining are located on the port side, while couches" -3100 RD$ ( REC, 3 ) = "and low tables are scattered around the remaining space. There are doors in the aft" -3110 RD$ ( REC, 4 ) = "and starboard walls." -3120 RD$ ( REC, 5 ) = "" -3130 RD$ ( ARM, 1 ) = "Locked cabinets line the starboard wall. Each cabinet has a prominently displayed" -3140 RD$ ( ARM, 2 ) = "notice on its door reading 'Weapons to be removed only when authorised by the Chief" -3150 RD$ ( ARM, 3 ) = "Security Officer'. However, the door to one cupboard has been prized open, it is" -3160 RD$ ( ARM, 4 ) = "warped and bent. This cupboard appears to be empty. The only exit is a starboard door." -3170 RD$ ( ARM, 5 ) = "" -3180 RD$ ( BDG, 1 ) = "The bridge is the heart of the ship. A vast array of glowing screens and switches fill" -3190 RD$ ( BDG, 2 ) = "every surface. On the screens are complex graphics providing detailed information about" -3200 RD$ ( BDG, 3 ) = "the status of every system on the ship. Many of them are showing red warning symbols." -3210 RD$ ( BDG, 4 ) = "There is a console directly in front of you, a pilot gripping the throttle." -3220 RD$ ( BDG, 5 ) = "An aft exit leads back into the main corridor." -3230 RD$ ( SLP, 1 ) = "The sleeping quarters is filled with bunks, one up, one down. Several of the bunks" -3240 RD$ ( SLP, 2 ) = "contain sleeping forms, some gently shoring. The room has a partition to separate" -3250 RD$ ( SLP, 3 ) = "male and female bunks. Against the forward wall are two corresponding sets of heads." -3260 RD$ ( SLP, 4 ) = "The room is messy, with discarded personal items everywhere ... on bunks, on the floor." -3270 RD$ ( SLP, 5 ) = "There is a door in the port wall." -3280 RD$ ( MED, 1 ) = "The medical centre looks relatively normal, but there is evidence of discarded items" -3290 RD$ ( MED, 2 ) = "lying around the room. Blood filled syringes are scattered on a workbench, as well as" -3300 RD$ ( MED, 3 ) = "some bloodied bandanges. The words 'I'm losing myself' are scrawled messily in blood on" -3310 RD$ ( MED, 4 ) = "one wall. In the corner you can see a medical scanner and next to it, a terminal. On the" -3320 RD$ ( MED, 5 ) = "terminal screen are the words 'Medical Log'. Exits lead port and forward." -3330 RD$ ( GYM, 1 ) = "The gymnasium is full of exercise equipment. A woman is running furiously on a treadmill." -3340 RD$ ( GYM, 2 ) = "She looks exhausted and emaciated, but she keeps running at top speed, almost at a sprint." -3350 RD$ ( GYM, 3 ) = "Her eyes remain fixed on the treadmill console. There are aft and port exists, as well as" -3360 RD$ ( GYM, 4 ) = "a stairwell leading to the lower deck in the far corner." -3370 RD$ ( GYM, 5 ) = "" -3380 RD$ ( LAC, 1 ) = "This is a featureless, utilitarian corridor. A stairwell leads upwards. There are also" -3390 RD$ ( LAC, 2 ) = "exits leading starboard and forward." -3400 RD$ ( LAC, 3 ) = "" -3410 RD$ ( LAC, 4 ) = "" -3420 RD$ ( LAC, 5 ) = "" -3430 RD$ ( ENG, 1 ) = "The engine room is characterised by a continual rumble, as though incredible energies are" -3440 RD$ ( ENG, 2 ) = "barely being contained. There is an engine control in the far corner, festooned with" -3450 RD$ ( ENG, 3 ) = "switches and engine readouts. A single exit leads out into the corridor." -3460 RD$ ( ENG, 4 ) = "" -3470 RD$ ( ENG, 5 ) = "" -3480 RD$ ( STO, 1 ) = "The storeroom is full of crates, most neatly stacked, but with some scattered across the" -3490 RD$ ( STO, 2 ) = "floor, their contents spilling out. Along the port wall is a door marked 'Test specimens'." -3500 RD$ ( STO, 3 ) = "From behind the door, strange animal noises are audible ... snuffling sounds and the" -3510 RD$ ( STO, 4 ) = "occasional primate shriek. A dead man wearing a scuffed and torn lab coat is lying face down" -3520 RD$ ( STO, 5 ) = "in front of the specimen door. Two other exists lead forward and aft." -3530 RD$ ( MEN, 1 ) = "The room is a hellhole. Cages stand open, while various animals roam about: chimpanzees," -3540 RD$ ( MEN, 2 ) = "dogs, and rats. Some of the rats are dead, having been savaged and eviscerated. The floor" -3550 RD$ ( MEN, 3 ) = "and walls are smeared with animal faeces, and the smell is almost overpowering. A single" -3555 RD$ ( MEN, 4 ) = "port door leads back into the storeroom." -3560 RD$ ( MEN, 5 ) = "" -3570 RD$ ( LAB, 1 ) = "The laboratory is full of scientific equipment, chemical glassware, electronic analysers," -3580 RD$ ( LAB, 2 ) = "fume cupboards, and two couches. The place looks disorded, like the rest of the ship, the" -3590 RD$ ( LAB, 3 ) = "result of frenetic activity. A number of experiments seem to be in progress, with logbooks" -3600 RD$ ( LAB, 4 ) = "and tablets covered in dense calculations and notes. Whatever has been happening in here," -3610 RD$ ( LAB, 5 ) = "it has been done with extreme urgency. Exits lead aft and to starboard." -3620 RD$ ( LFC, 1 ) = "This is a featureless, utilitarian corridor. A stairwell leads upwards. There are also" -3630 RD$ ( LFC, 2 ) = "doors leading to port and forward." -3640 RD$ ( LFC, 3 ) = "" -3650 RD$ ( LFC, 4 ) = "" -3660 RD$ ( LFC, 5 ) = "" -3670 RD$ ( POD, 1 ) = "You are in a large room, with a row of spacesuits hanging on the port wall. At the forward" -3680 RD$ ( POD, 2 ) = "end of the room is a small, two seater vehicle, capable of operating in space outside the" -3690 RD$ ( POD, 3 ) = "main ship for limited periods. In front of the small ship is the pod bay door, leading out" -3700 RD$ ( POD, 4 ) = "into space. There is a porthole on the far wall. There is a single exit leading aft." -3710 RD$ ( POD, 5 ) = "" -3720 RD$ ( AMC, 1 ) = "The main corridor stretches away from you towards the front of the ship. It is featureless" -3730 RD$ ( AMC, 2 ) = "and utilitarian. The lighting is dim. You can see doors either side of you, to port and" -3740 RD$ ( AMC, 3 ) = "to starboard." -3750 RD$ ( AMC, 4 ) = "" -3760 RD$ ( AMC, 5 ) = "" -3770 RD$ ( MMC, 1 ) = "The main corridor stretches away from you both forward and aft. It is featureless" -3780 RD$ ( MMC, 2 ) = "and utilitarian. The lighting is dim. You can see doors either side of you, to port and" -3790 RD$ ( MMC, 3 ) = "to starboard." -3800 RD$ ( MMC, 4 ) = "" -3810 RD$ ( MMC, 5 ) = "" -3820 RD$ ( FMC, 1 ) = "The main corridor stretches away from you towards the rear of the ship. It is featureless" -3830 RD$ ( FMC, 2 ) = "and utilitarian. The lighting is dim. You can see doors either side of you, to port and" -3840 RD$ ( FMC, 3 ) = "to starboard, as well as a third door leading forward." -3850 RD$ ( FMC, 4 ) = "" -3860 RD$ ( FMC, 5 ) = "" +3010 DIM RD$ ( RC, 5 ) +3015 REM inventory +3020 DATA "", "", "", "", "" +3025 REM galley +3030 DATA "The galley contains gleaming, stainless steel cupboards along the aft wall. A food" +3040 DATA "preparation surface is on the port wall, currently covered in rotting food. A chef" +3050 DATA "stands at the work surface, methodically chopping food even though everything has" +3060 DATA "already been thoroughly diced. There are doors in the starboard and forward walls and" +3070 DATA "a stairway leads downwards in the far corner." +3075 REM recreation room +3080 DATA "Space is clearly at a premium in this ship. The room doubles as both a dining and" +3090 DATA "recreation area. Long tables for dining are located on the port side, while couches" +3100 DATA "and low tables are scattered around the remaining space. There are doors in the aft" +3110 DATA "and starboard walls.", "" +3120 REM armoury +3130 DATA "Locked cabinets line the starboard wall. Each cabinet has a prominently displayed" +3140 DATA "notice on its door reading 'Weapons to be removed only when authorised by the Chief" +3150 DATA "Security Officer'. However, the door to one cupboard has been prized open, it is" +3160 DATA "warped and bent. This cupboard appears to be empty. The only exit is a starboard door.", "" +3170 REM bridge +3180 DATA "The bridge is the heart of the ship. A vast array of glowing screens and switches fill" +3190 DATA "every surface. On the screens are complex graphics providing detailed information about" +3200 DATA "the status of every system on the ship. Many of them are showing red warning symbols." +3210 DATA "There is a *console* directly in front of you, a pilot gripping the throttle." +3220 DATA "An aft exit leads back into the main corridor." +3225 REM sleeping quarters +3230 DATA "The sleeping quarters is filled with bunks, one up, one down. Several of the bunks" +3240 DATA "contain sleeping forms, some gently shoring. The room has a partition to separate" +3250 DATA "male and female bunks. Against the forward wall are two corresponding sets of heads." +3260 DATA "The room is messy, with discarded personal items everywhere ... on bunks, on the floor." +3270 DATA "There is a door in the port wall." +3275 REM medical centre +3280 DATA "The medical centre looks relatively normal, but there is evidence of discarded items" +3290 DATA "lying around the room. Blood filled syringes are scattered on a workbench, as well as" +3300 DATA "some bloodied bandanges. The words 'I'm losing myself' are scrawled messily in blood on" +3310 DATA "one wall. In the corner you can see a medical scanner and next to it, a terminal. On the" +3320 DATA "terminal screen is a portion of the *medical log*. Exits lead port and forward." +3325 REM gymnasium +3330 DATA "The gymnasium is full of exercise equipment. A woman is running furiously on a treadmill." +3340 DATA "She looks exhausted and emaciated, but she keeps running at top speed, almost at a sprint." +3350 DATA "Her eyes remain fixed on the treadmill console. There are aft and port exists, as well as" +3360 DATA "a stairwell leading to the lower deck in the far corner.", "" +3370 REM lower aft corridor +3380 DATA "This is a featureless, utilitarian corridor. A stairwell leads upwards. There are also" +3390 DATA "exits leading starboard and forward.", "", "", "" +3400 REM engine room +3430 DATA "The engine room is characterised by a continual rumble, as though incredible energies are" +3440 DATA "barely being contained. There is an *engine control* in the far corner, festooned with" +3450 DATA "switches and engine readouts. A single exit leads out into the corridor.", "", "" +3460 REM storeroom +3480 DATA "The storeroom is full of crates, most neatly stacked, but with some scattered across the" +3490 DATA "floor, their contents spilling out. Along the port wall is a door marked 'Test specimens'." +3500 DATA "From behind the door, strange animal noises are audible ... snuffling sounds and the" +3510 DATA "occasional primate shriek. A dead man wearing a scuffed and torn lab coat is lying face down" +3520 DATA "in front of the specimen door. Two other exists lead forward and aft." +3525 REM menagerie +3530 DATA "The room is a hellhole. Cages stand open, while various animals roam about: chimpanzees," +3540 DATA "dogs, and rats. Some of the rats are dead, having been savaged and eviscerated. The floor" +3550 DATA "and walls are smeared with animal faeces, and the smell is almost overpowering. A single" +3555 DATA "port door leads back into the storeroom.", "" +3560 REM laboratory +3570 DATA "The laboratory is full of scientific equipment, chemical glassware, electronic analysers," +3580 DATA "fume cupboards, and two couches. The place looks disorded, like the rest of the ship, the" +3590 DATA "result of frenetic activity. A number of experiments seem to be in progress, with logbooks" +3600 DATA "and tablets covered in dense calculations and notes. Whatever has been happening in here," +3610 DATA "it has been done with extreme urgency. Exits lead aft and to starboard." +3615 REM lower forward corridor +3620 DATA "This is a featureless, utilitarian corridor. A stairwell leads upwards. There are also" +3630 DATA "doors leading to port and forward.", "", "", "" +3660 REM pod bay +3670 DATA "You are in a large room, with a row of spacesuits hanging on the port wall. At the forward" +3680 DATA "end of the room is a small, two seater vehicle, capable of operating in space outside the" +3690 DATA "main ship for limited periods. In front of the small ship is the pod bay door, leading out" +3700 DATA "into space. There is a *porthole* on the far wall. There is a single exit leading aft.", "" +3710 REM aft main corridor +3720 DATA "The main corridor stretches away from you towards the front of the ship. It is featureless" +3730 DATA "and utilitarian. The lighting is dim. You can see doors either side of you, to port and" +3740 DATA "to starboard.", "", "" +3760 REM mid main corridor +3770 DATA "The main corridor stretches away from you both forward and aft. It is featureless" +3780 DATA "and utilitarian. The lighting is dim. You can see doors either side of you, to port and" +3790 DATA "to starboard.", "", "" +3810 REM forward main corridor +3820 DATA "The main corridor stretches away from you towards the rear of the ship. It is featureless" +3830 DATA "and utilitarian. The lighting is dim. You can see doors either side of you, to port and" +3840 DATA "to starboard, as well as a third door leading forward.", "", "" +3860 REM assign to room descriptions +3870 FOR ROOM = 0 to RC-1 +3880 FOR I = 1 TO 5 +3885 READ DESC$ : RD$ (ROOM, I) = DESC$ +3886 REM PRINT DESC$ +3890 NEXT I +3900 NEXT ROOM 4000 RETURN 4010 REM ========== print room description ========== 4020 FOR LINE = 1 TO 5 @@ -287,85 +289,58 @@ 4160 RETURN 5000 REM ========== interactive item descriptions ========== 5010 DIM ID$(IC, 20) -5020 ID$( MEDLOG, 1 ) = "The last few entries of the medical log are still visible on the screen:" -5030 ID$( MEDLOG, 2 ) = " " -5040 ID$( MEDLOG, 3 ) = "'2142-6-13: Three days since chimpanzee Nova was innoculated with agent #53." -5050 ID$( MEDLOG, 4 ) = " However, subject Nova showing no signs of adaptation to planetary destination" -5060 ID$( MEDLOG, 5 ) = " atmosphere. In fact, she appears listless, though punctuated with periods of" -5070 ID$( MEDLOG, 6 ) = " extreme agression." -5080 ID$( MEDLOG, 7 ) = " " -5090 ID$( MEDLOG, 8 ) = " 2142-6-14: This morning, Dr Pearson was bitten by Nova. Very quickly he exhibited" -5100 ID$( MEDLOG, 9 ) = " signs of a high fever and is now resting in his quarters." -5110 ID$( MEDLOG, 10) = " " -5120 ID$( MEDLOG, 11) = " 2142-6-15: After a brief period of catatonia, Pearson got up on his own, returned" -5130 ID$( MEDLOG, 12) = " to the medical bay and began to compulsively prepare more agent #53 samples. He" -5140 ID$( MEDLOG, 13) = " is otherwise uncommunicative." -5150 ID$( MEDLOG, 14) = " " -5160 ID$( MEDLOG, 15) = " 2142-6-17: Pearson's compulsive behaviour continues unabated. We have a hypothesis" -5170 ID$( MEDLOG, 16) = " for what the virus, which we have now designated HO-1, does to the brain. However," -5180 ID$( MEDLOG, 17) = " we are struggling to isolate Pearson and may have to seal the medical bay." -5190 ID$( MEDLOG, 18) = " " -5200 ID$ (MEDLOG, 19) = " 2142-6-17: Hollow (HO-1) confirmed as airborne, and other cases appearing around the ship." -5210 ID$ (MEDLOG, 20) = " Shipwide lockdown declared but crew cohesion and discipline already breaking down.'" -5220 ID$ (PORTHOLE, 1 ) = "Looking through the porthole, you seen a spacesuit clad figure floating outside." -5230 ID$ (PORTHOLE, 2 ) = "Although he is tethered to an anchor point on the ship's hull, he is otherwise floating" -5240 ID$ (PORTHOLE, 3 ) = "freely, his arms and legs splayed out to his sides." -5250 ID$ (PORTHOLE, 4 ) = " " -5260 ID$ (PORTHOLE, 5 ) = "Peering at the figure more closely, as he slowly rotates, a light from the ship" -5270 ID$ (PORTHOLE, 6 ) = "briefly illuminates his face. He's clearly dead, his oxygen ran out some time ago." -5280 ID$ (PORTHOLE, 7 ) = "His expression is frozen in a rictus of pain. He was screaming almost until the end ..." -5290 ID$ (PORTHOLE, 8 ) = "" -5300 ID$ (PORTHOLE, 9 ) = "" -5310 ID$ (PORTHOLE, 10 ) = "" -5320 ID$ (PORTHOLE, 11 ) = "" -5330 ID$ (PORTHOLE, 12 ) = "" -5340 ID$ (PORTHOLE, 13 ) = "" -5342 ID$ (PORTHOLE, 14 ) = "" -5344 ID$ (PORTHOLE, 15 ) = "" -5346 ID$ (PORTHOLE, 16 ) = "" -5348 ID$ (PORTHOLE, 17 ) = "" -5350 ID$ (PORTHOLE, 18 ) = "" -5352 ID$ (PORTHOLE, 19 ) = "" -5354 ID$ (PORTHOLE, 20 ) = "" -5356 ID$ (CONSOLE, 1 ) = "The console shows the state of the ship's engines. They are in overdrive. The pilot" -5358 ID$ (CONSOLE, 2 ) = "appears to have the throttle jammed wide open with his right arm. The muscles in his" -5360 ID$ (CONSOLE, 3 ) = "forearm are taught, there's no way he's going to release the throttle. He left hand" -5362 ID$ (CONSOLE, 4 ) = "works its way around the console switches. After a few moments you realise that he is" -5364 ID$ (CONSOLE, 5 ) = "executing the same sequence of switches over and over again." -5366 ID$ (CONSOLE, 6 ) = " " -5368 ID$ (CONSOLE, 7 ) = "You speak to the pilot but he is unresponsive. Mentally he is somewhere else. He is" -5370 ID$ (CONSOLE, 8 ) = "mumbling to himself but you cannot make out the words, although he appears to be" -5372 ID$ (CONSOLE, 9 ) = "reciting some sort of launch checklist." -5374 ID$ (CONSOLE, 10 ) = " " -5376 ID$ (CONSOLE, 11 ) = "One thing is certain, the ship is out of control, careering through space at maximum" -5378 ID$ (CONSOLE, 12 ) = "speed. Rescue will be impossible unless you can find a way to shut down the engines." -5380 ID$ (CONSOLE, 13 ) = "" -5382 ID$ (CONSOLE, 14 ) = "" -5384 ID$ (CONSOLE, 15 ) = "" -5386 ID$ (CONSOLE, 16 ) = "" -5388 ID$ (CONSOLE, 17 ) = "" -5390 ID$ (CONSOLE, 18 ) = "" -5392 ID$ (CONSOLE, 19 ) = "" -5394 ID$ (CONSOLE, 20 ) = "" -5296 ID$ (ENGINE, 1 ) = "The control panel is grubby, smeared with oil and grime. This is clearly" -5298 ID$ (ENGINE, 2 ) = "the engineering heart of the ship. Most of the readouts mean nothing to you," -5300 ID$ (ENGINE, 3 ) = "whatever your duties were on this ship, you were clearly not a warp engineer." -5302 ID$ (ENGINE, 4 ) = " " -5304 ID$ (ENGINE, 5 ) = "Many of the lights on the front panel are flashing red. Not all is well with" -5306 ID$ (ENGINE, 6 ) = "the Pneuma. Even to your untrained eye, it's obvious that the ship's engines appear to" -5308 ID$ (ENGINE, 7 ) = "be on the point of burnout, having been run at full capacity for many hours." -5310 ID$ (ENGINE, 8 ) = " " -5312 ID$ (ENGINE, 9 ) = "To the top left of the panel, a screen reads:" -5314 ID$ (ENGINE, 11 ) = " " -5316 ID$ (ENGINE, 12 ) = "'WARNING: CORE BREACH IMMINENT'" -5318 ID$ (ENGINE, 13 ) = " " -5320 ID$ (ENGINE, 14 ) = "Just below the screen is a large red button, shielded by a cover that can be" -5322 ID$ (ENGINE, 15 ) = "flipped aside." -5324 ID$ (ENGINE, 16 ) = "" -5326 ID$ (ENGINE, 17 ) = "" -5328 ID$ (ENGINE, 18 ) = "" -5330 ID$ (ENGINE, 19 ) = "" -5332 ID$ (ENGINE, 20 ) = "" +5020 REM medical log +5030 DATA "The last few entries of the medical log are still visible on the screen:", " " +5040 DATA "'2142-6-13: Three days since chimpanzee Nova was innoculated with agent #53." +5050 DATA " However, subject Nova showing no signs of adaptation to planetary destination" +5060 DATA " atmosphere. In fact, she appears listless, though punctuated with periods of" +5070 DATA " extreme agression.", " " +5090 DATA " 2142-6-14: This morning, Dr Pearson was bitten by Nova. Very quickly he exhibited" +5100 DATA " signs of a high fever and is now resting in his quarters.", " " +5120 DATA " 2142-6-15: After a brief period of catatonia, Pearson got up on his own, returned" +5130 DATA " to the medical bay and began to compulsively prepare more agent #53 samples. He" +5140 DATA " is otherwise uncommunicative.", " " +5160 DATA " 2142-6-17: Pearson's compulsive behaviour continues unabated. We have a hypothesis" +5170 DATA " for what the virus, which we have now designated HO-1, does to the brain. However," +5180 DATA " we are struggling to isolate Pearson and may have to seal the medical bay.", " " +5200 DATA " 2142-6-17: Hollow (HO-1) confirmed as airborne, and other cases appearing around the ship." +5210 DATA " Shipwide lockdown declared but crew cohesion and discipline already breaking down.'" +5215 REM porthole +5220 DATA "Looking through the porthole, you seen a spacesuit clad figure floating outside." +5230 DATA "Although he is tethered to an anchor point on the ship's hull, he is otherwise floating" +5240 DATA "freely, his arms and legs splayed out to his sides.", " " +5260 DATA "Peering at the figure more closely, as he slowly rotates, a light from the ship" +5270 DATA "briefly illuminates his face. He's clearly dead, his oxygen ran out some time ago." +5280 DATA "His expression is frozen in a rictus of pain. He was screaming almost until the end ..." +5290 DATA "", "", "", "", "", "", "", "", "", "", "", "", "" +5300 REM console +5310 DATA "The console shows the state of the ship's engines. They are in overdrive. The pilot" +5320 DATA "appears to have the throttle jammed wide open with his right arm. The muscles in his" +5340 DATA "forearm are taught, there's no way he's going to release the throttle. He left hand" +5350 DATA "works its way around the console switches. After a few moments you realise that he is" +5360 DATA "executing the same sequence of switches over and over again.", " " +5370 DATA "You speak to the pilot but he is unresponsive. Mentally he is somewhere else. He is" +5380 DATA "mumbling to himself but you cannot make out the words, although he appears to be" +5390 DATA "reciting some sort of launch checklist.", " " +5400 DATA "One thing is certain, the ship is out of control, careering through space at maximum" +5410 DATA "speed. Rescue will be impossible unless you can find a way to shut down the engines." +5420 DATA "", "", "", "", "", "", "", "" +5430 REM engine control +5440 DATA "The control panel is grubby, smeared with oil and grime. This is clearly" +5450 DATA "the engineering heart of the ship. Most of the readouts mean nothing to you," +5460 DATA "whatever your duties were on this ship, you were clearly not a warp engineer.", " " +5470 DATA "Many of the lights on the front panel are flashing red. Not all is well with" +5480 DATA "the Pneuma. Even to your untrained eye, it's obvious that the ship's engines appear to" +5490 DATA "be on the point of burnout, having been run at full capacity for many hours.", " " +5500 DATA "To the top left of the panel, a screen reads:", " " +5510 DATA "'WARNING: CORE BREACH IMMINENT'", " " +5520 DATA "Just below the screen is a large red button, shielded by a cover that can be" +5530 DATA "flipped aside.", "", "", "", "", "", "" +5940 FOR OBJECT = 0 TO IC-1 +5950 FOR I = 1 TO 20 +5960 READ DESC$ : ID$ (OBJECT, I) = DESC$ +5970 NEXT I +5980 NEXT OBJECT 5990 RETURN 6000 REM ========== print interative object description ========== 6010 FOR LINE = 1 TO 20