Oakland CPM Archive

home *** CD-ROM | disk | FTP | other *** search

/ Oakland CPM Archive / oakcpm.iso / cpm / basic / adven-80.ark / GENHOSP.DAT < prev next >

Wrap

Text File | 1986-11-22 | 23.6 KB | 837 lines

************************************************************* * Version 1.3 September 9, 1983 * * Beginning of main database section, encoded entirely in * * the ADVEN language. File is run through MAKEADV.COM then * * assembled and linked to the main program. * ************************************************************* ************************************************************* * OBJECT NAME/LOCATION and OBJECT NAME/DESCRIPTION PAIRS * * also PROPERTIES OF OBJECTS and OBJECT DETAILED INFO * ************************************************************* OBJLOC /* Object locations. The number following the object */ /* keyword is the location number where the object */ /* will reside at the beginning of the game. */ SIGN 2 PAT1 5 PAT2 6 PAT3 8 PAT4 9 PAT5 19 PAT6 20 PAT7 23 PAT8 21 PAT9 22 BLOOD 14 LAB6 16 THYROID 14 GLUCOSE 14 RESP 14 SALINE 14 INSULIN 14 OXYGEN 14 STEROID 14 LAMP 252 ULAMP 14 BATTERY 14 TOURNI 14 DIALYSIS 14 ENDTABLE OBJDES /* Object descriptions. The number following the */ /* object keyword is the description number from the */ /* UMESS table. All objects MUST have both LOCATION */ /* entries and DESCRIPTION entries. */ SIGN 1 PAT1 2 PAT2 4 PAT3 10 PAT4 15 PAT5 27 PAT6 30 PAT7 35 PAT8 45 PAT9 48 BLOOD 38 LAB6 33 THYROID 28 GLUCOSE 6 RESP 20 SALINE 21 INSULIN 14 OXYGEN 19 STEROID 17 LAMP 23 ULAMP 22 BATTERY 24 TOURNI 42 DIALYSIS 47 ENDTABLE OBPROP /* Legal verbs associated with objects. */ /* Where no properties shown, objects considered to have */ /* universal properties. ie get, drop etc all work. */ /* Where properties are shown, only those are valid. */ SIGN READ MESSAGE READ LAB6 READ ENDTABLE MATCHW /* Sets of match pairs, ie pairs of keywords, where */ /* either word may be the mask ANY, and the second word */ /* may be NUL (no word) or INP (replaced at runtime with */ /* user input. */ /* An optional TEST section may precede the action entry */ /* following the rules of the CONDITION/ACTION tables. */ /* An ACTION entry is mandatory, an may allow dropping */ /* through or termination as desired. */ MATCH READ,LAB6 TEST OE,PAT6,CL,16 ACTION DSCOB,LAB6,EX MATCH GET,ANY TEST OH,INP ACTION TKE,INP,OK MATCH GET,ANY TEST OWC,INP ACTION PRM,44,EX MATCH GET,ANY ACTION PRM,36,EX MATCH GET,NUL ACTION PRM,39,EX MATCH PUT,TOURNI TEST OC,TOURNI,OP,PAT7 ACTION PR,43,DES,PAT7,ATF,13,10,OK MATCH INVEN,NUL ACTION INV,EX MATCH LOOK,AROUND ACTION GRUN MATCH DROP,ANY TEST OWC,INP ACTION DR,INP,OK MATCH DROP,ANY ACTION PRM,35,EX MATCH LOOK,NUL ACTION LA,EX MATCH READ,SIGN TEST CL,2 ACTION DSCOB,SIGN,EX MATCH READ,MESSAGE TEST OP,MESSAGE ACTION DSCOB,MESSAGE,EX MATCH LOOK,ANY TEST OP,INP ACTION DSCOB,INP,EX MATCH QUIT,ANY ACTION QT MATCH HELP,LAB6 ACTION PR,34,EX MATCH HELP,RESP ACTION PR,25,EX MATCH HELP,INSULIN ACTION PR,40,EX MATCH HELP,STEROID ACTION PR,40,EX MATCH HELP,OXYGEN ACTION PR,18,EX MATCH HELP,SALINE ACTION PR,7,EX MATCH HELP,GLUCOSE ACTION PR,5,EX MATCH HELP,INFO ACTION PR,16,EX MATCH HELP,ANY TEST OE,INP ACTION PR,44,EX MATCH HELP,ANY ACTION PRM,40,EX MATCH WHERE,NULL ACTION PRM,41,EX MATCH WHERE,ANY TEST OE,INP ACTION PR,44,EX MATCH WHERE,ANY ACTION PRM,41,EX MATCH SCORE,ANY ACTION SC,EX MATCH GIVE,INSULIN TEST OP,PAT3,OC,INSULIN ACTION PR,12,DES,PAT3,EX MATCH GIVE,THYROID TEST OC,THYROID,OP,PAT5 ACTION PR,29,ATF,13,5,DES,PAT5,EX MATCH GIVE,GLUCOSE TEST OP,PAT3,OC,GLUCOSE ACTION PR,13,DES,PAT3,ATF,13,5,EX MATCH GIVE,BLOOD TEST OP,PAT8,OC,BLOOD ACTION FLIP,27,FLIP,28,PR,49,PU,PAT8,13,EX MATCH GIVE,BLOOD TEST OP,PAT7,OC,BLOOD ACTION PR,36,FLIP,25,FLIP,26,PU,PAT7,13,EX MATCH GIVE,DIALYSIS TEST OC,DIALYSIS,OP,PAT8 ACTION PR,46,DES,PAT8,ATF,13,5,EX MATCH GIVE,OXYGEN TEST OP,PAT1,OC,RESP,OC,OXYGEN ACTION PR,3,DES,PAT1,ATF,13,5,EX MATCH GIVE,OXYGEN TEST OP,PAT1,OC,OXYGEN,ONC,RESP ACTION FLIP,23,FLIP,24,PR,2,PU,PAT1,13,EX MATCH GIVE,OXYGEN TEST OP,PAT6,OC,OXYGEN ACTION PR,31,DES,PAT6,DES,LAB6,ATF,13,5,EX MATCH GIVE,SALINE TEST OC,SALINE,CL,6 ACTION PR,8,EX MATCH GIVE,GLUCOSE TEST OC,GLUCOSE,OP,PAT2 ACTION PR,9,DES,PAT2,ATF,13,5,EX MATCH GIVE,GLUCOSE TEST OC,GLUCOSE,OP,PAT4 ACTION PR,26,DES,PAT4,ATF,13,5,EX MATCH GIVE,STEROID TEST OC,STEROID,OP,PAT4 ACTION PR,39,DES,PAT4,EX MATCH GIVE,ANY TEST OP,PAT4,OC,INP ACTION PR,8,EX MATCH GIVE,ANY TEST OP,INP,CL,20 ACTION PR,32,EX MATCH GIVE,ANY TEST OP,PAT7,OP,INP ACTION PR,37,EX MATCH GIVE,ANY TEST OC,INP ACTION PR,41,EX MATCH GIVE,ANY TEST ONC,INP ACTION PRM,36,EX MATCH GIVE,NULL ACTION PRM,33,EX MATCH ON,LAMP TEST OC,ULAMP,OC,BATTERY ACTION SWP,LAMP,FLIP,17,OK MATCH ON,LAMP TEST OC,ULAMP ACTION PRM,46,EX MATCH OFF,LAMP TEST OC,LAMP ACTION SWP,LAMP,FLIP,17,OK MATCH OFF,LAMP TEST OC,ULAMP ACTION PRM,42,EX MATCH SORRY,ANY TEST CL,18 ACTION MV,1,OK MATCH OBSCENE,ANY TEST NCL,18 ACTION PR,11,MV,18,EX MATCH OBSCENE,ANY TEST CL,18 ACTION PR,11,EX MATCH YES,ANY ACTION PRM,43,EX MATCH SCORE,ANY ACTION SC,EX MATCHALL ACTION PRM,37 ENDTABLE ********************************************************* * Standard messages for system use mainly * ********************************************************* MSG /* The positions of these messages MUST NOT be altered */ 1 '>That means nothing to me{@, I`m afraid}{?.} !!%' 2 ' North' 3 ' South' 4 ' East' 5 ' West' 6 ' Northeast' 7 ' Northwest' 8 ' Southeast' 9 ' Southwest' 10 ' Up' 11 ' Down' 12 ' In' 13 ' Out' 14 'Visible exits are: ' 15 '>It`s dark, I can`t see anything{? at all}.' ' It is {@very }dangerous to move in the dark.%' 16 'I am {@presently }carrying ' 17 'I am wearing ' 18 'I can see ' 19 'nothing special' 20 '>I don`t {@quite }follow you. Could you try ' 're-phrasing that ....%' 21 '>I can{@no}{?`}t go {@in that direction.}{?there.}%' 22 ' Right' 23 ' Left' 24 '>{@Ehh!! }That doesn`t make sense{@, buddy} !!!!%' 25 '>{@I`m sorry, but }I can see no such object here.%' 26 '>PROGRAM ERROR :-INVALID CONDITIONS ;;;; %' 27 '>Quitting with $' 28 ',000. %' 29 'Ok. %' 30 'Your{@ present} score is ' 31 '>PROGRAM ERROR :- CAN`T FIND OBJECT FOR ACTION ;;;%' 32 '>PROGRAM ERROR :- INVALID CONDITION %' 33 '>Try again ...I`m not sure which object you mean.%' 34 '>I am not wearing that item.%' 35 '>That is not among the items I am carrying.%' 36 '>I can`t see the object {@you mean }here...%' 37 '>What was that again!! {?Huh}{@Ehh} !!!!!%' 38 '>Sorry, I can`t {@possibly }carry anything else.%' 39 '>Sorry, I`m not sure from that what ' 'you want me to get...{@You want what} {?What is it}!!%' 40 'I can`t help you {?at this time}{@I`m afraid}%' 41 'Don`t ask silly questions{@, please} !!%' 42 '>{@I believe I already did that !!%}' '{?It is already !!!!!!%}' 43 '>Sorry, no chance !!%' 44 '>But that is something I`m already carrying !!!%' 45 'Looks {@distinctly }ordinary to me !!!!%' 46 '{?Sorry, that`s quite impossible.}' '{@I`m sorry but I can`t do that.}%' /* You may expand here if necessary, but preferably */ /* use the UMESS table for user messages (max 246 */ ENDTABLE *********************************************************** * User defined messages, expandable up to 246 * *********************************************************** UMESS 1 'a sign that can be read' 2 '{Apatient #1001 with dusky blue skin and breathing difficulties}{B ' 'pink patient #1001 who has stopped breathing}' 3 'He is very much improved by the oxygen and the respirator kept ' 'him breathing.%You certainly did well.%' 4 'patient #1002 who has a peculiar hyperpigmentation of the skin, ' 'was admitted for minor surgery and several hours after the ' 'surgery started convulsing' 5 'I.V. Glucose is in the Pharmacy' 6 'I.V. Glucose Solution' 7 'I.V. Saline is in the Pharmacy' 8 'Patient is still convulsing.%' 9 'He stopped convulsing and was admitted to hospital.%' 10 'patient #1003 with history of Diabetes. Took insulin this morning and ' 'then went golfing. Passed out and started convulsing' 11 'You really must stay here until you say you are sorry.%' 12 'Oh for goodness sake -- he shuddered and died. Too bad.%' 13 'He suddenly opens his eyes -- and says: "Doctor ' 'you sure know your physiology and I am grateful. Bless you!!"%' 14 'a vial of regular insulin' 15 'patient #1004 became week and then unconscious. Had been taking large ' 'doses of steroids and ran out of medication last week' 16 'I cannot hope to answer all of your questions. However ' 'I can offer the following suggestions: watch for the ' 'exits that are available. If no exits are listed then ' 'OUT or EXIT will probably work. You can type HELP ' 'INFORMATION and this file will display. You can type ' 'HELP and then name an object, sometimes this will ' 'provide you with some information. You will have to move ' 'around a lot to find things. INVENTORY will review what you are ' 'currently carrying. Remember there is a limit to HOW MUCH you can ' 'CARRY, you may have to DROP something. ' 'LOOK at things or just LOOK to see objects that are there. ' 'LOOK AROUND a lot, it will give you much more information than ' 'a simple LOOK. Remember that your ingenuity is what counts ' 'when in doubt try lots of different things. ' 'You will have to be ' 'careful in what you do with patients or you may kill ' 'them. If you kill them, or admit them to the ' 'hospital they may be out of your hands.% ' 'Remember I can only read the first four letters of any word ' 'that you type. You will have to be creative in talking to me ' 'for example: type "NW" to indicate "NorthWest" as a direction. ' 'When you want to STOP type QUIT or ABORT ... or whatever.%' 17 'a bottle marked sterile methylprednisolone acetate suspension(USP)-' 'sudden withdrawl may induce secondary adrenocortical insufficiency' 18 'oxygen is in the Pharmacy.%' 19 'a green tank of oxygen' 20 'a portable respirator' 21 'a bottle of I.V. saline' 22 'an ordinary flashlight' 23 'a flashlight that is glowing brightly' 24 'some D cell batteries' 25 'There is a portable respirator in the Pharmacy.%' 26 'Suddenly .. the patient sits up and says: "Oh my goodness Doctor ' 'you remembered your physiology of the regulation of blood glucose ' '- giving steroids would have taken too long."%' 27 'patient #1005 is a small child with very dry skin. She has a thick ' 'tongue and speaks slowly and with difficulty. Her skin has a ' 'peculiar texture to it. Her mother says that she does not learn ' 'readily and that she seems to be cold all of the time' 28 'thyroid tablets' 29 'It will take several days but the thyroid will do the job. How ' 'astute of you to remember your physiology.%' 30 'an old man #1006 with blue lips and ashen skin. He is very confused ' 'and wild at times. His daughter said he was fine after a huge ' 'dinner; then he complained of indigestion and took a large ' 'amount of sodium bicarbonate in water' 31 'The oxygen helped and he is a little less confused. He belongs ' 'in the hospital until his acid-base status can be restored.%' 32 'He still seems very confused to me. That doesn`t seem to help him.%' 33 'the blood gas report on patient #1006 that can be read' 34 'laboratory reports can be found in the laboratory.%' 35 '{Ca patient #1007 with engorged veins having a great deal of difficulty ' 'in breathing and spitting up pink-tinged sputum. The arterial ' 'blood pressure is very low. He looks like he is ready to die}' '{Da dead patient #1007 with engorged veins that died of cardiac failure}' 36 'When you gave that infusion he gasped and died.%' 37 'He doesn`t seem to be improving.%' 38 'a unit of whole blood' 39 'Oh my goodness - he died from hypoglycemia! Steroids affect the blood ' 'glucose level very slowly.%' 40 'All hormones such as steroids and insulin are kept in the Pharmacy.%' 41 'The nurse that received that order said: Good Grief!!%' 'Isn`t that a DUMB thing to do!!.%' 42 'some simple tourniquettes' 43 'Well that really helped relieve the load on the heart. ' 'Temporarily, of course.%He can now be admitted to the hospital ' 'so that his cardiac failure can be treated further.%It`s ' 'most fortunate that you know your physiology.%' 44 'Many things that you will need can be found in the Pharmacy.%' 45 '{Ea patient #1008 breathing very heavily and deeply has a white ' 'frost on his skin - blood pressure is falling}' '{Fpatient #1008 expired with ventricular fibrilation}' 46 'Getting the plasma potassium down by dialysis helped a great deal.%' 47 'a portable dialysis machine' 48 'Burt Reynolds who is {@smiling}{?learing} at you' 49 'Looks like Ventricular Fibrillation. Older blood may have a ' 'high potassium.%' ENDTABLE OBJDSK /* Where required, an object may have a special */ /* description. This is optional and may be as long as */ /* required, and may include conditionals as in the */ /* location tables. */ MESSAGE 'You must apologize.%' SIGN 'NO TRESPASSERS VIOLATERS WILL BE ARRESTED.%' LAB6 'patient #1006 has a reduced hemoglobin saturation ' 'and the plasma pH is elevated.%' ENDTABLE *********************************************** * LOCATION DESCRIPION AND EXIT CODES * *********************************************** LOC /* Locations with available exit table at start */ 1 NORMAL,2,N,2,4,EA,10,3,S,3 'You are outside of the Johnson City Memorial Hospital. ' 'The sun is shining and the birds are singing in the trees.%' 'I hope that you are prepared for an exciting day.%' 2 NORMAL,3,S,1 'You are on the road leading to the Mountain Home Veterans ' 'Administration Center.%' 3 NORMAL,2,N,1,12,IN,4 'You are at the entrance to the EMERGENCY ROOM.%' 'You can see a long corridor with rooms to the left and ' 'right.%' 4 NORMAL,2,N,7,3,S,3,23,LE,5,22,RI,6 'To your left is the WAITING ROOM.%' 'To your right is an EXAMINING ROOM and to the north you can ' 'see a sign that reads "to the Laboratory and Pharmacy".%' 5 NOEXIT,13,EXIT,RTN 'You are in the waiting room.{@ An attorney is watching you.}%' 6 NOEXIT,13,EXIT,RTN 'This is the first examining room.%' 7 NORMAL,2,N,10,3,S,4,4,EA,8,5,W,9 'You are at the middle of a hallway that runs north and ' 'south. There are rooms to the east and west.%' 8 NOEXIT,13,EXIT,RTN 'Your are in an examining room.{? There is an attorney here viewing ' 'you with interest.}%' 9 NOEXIT,13,EXIT,RTN 'Your are in an examining room.{@ The peer-review committee is ' 'examining your records.}%' 10 NORMAL,2,N,11,5,W,1,3,S,7 'This is the hospital entrance waiting room. There are ' 'many angry relatives here. You would be well advised to ' 'go somewhere else as you don`t have your black tie on.%' 11 NORMAL,2,N,19,3,S,10,4,EA,12 'You are in a long hallway running north and south. There is a ' 'room to the north and another hallway to the east.%' 12 NORMAL,2,N,13,4,EA,14,3,S,15,5,W,11 'You are in a short hallway running north and south. The ' 'pharmacy is to the east. It looks very dark {@and ' 'possibly dangerous }to the north. There is a laboratory to ' 'the south.%' 13 DARK,13,EXIT,RTN 'You are in the Hospital MORGUE.%' 14 NOEXIT,13,EXIT,RTN 'You are in the Main Hospital Pharmacy.%' 15 NORMAL,2,N,12,5,W,16,3,S,17,4,EA,20 'You are in a north-south hallway.% ' 'To the west is the laboratory. To the east is a room and to ' 'south can be seen a room at the end of the hallway.%' 16 NOEXIT,13,EXIT,RTN 'You are in the hospital laboratory.%' 17 NORMAL,2,N,15,3,S,23,4,EA,22,5,W,21 'You are in a hallway. To the east, west and south are rooms.%' 'To the north is a sign that reads: "To the Pharmacy and Laboratory".%' 18 NOEXIT,13,EXIT,18 'You swore. My goodness.%Doctors don`t do that - ever.%' 19 NOEXIT,13,EXIT,RTN 'You are in a very small examining room.%' 20 NOEXIT,13,EXIT,RTN 'This is a moderately large examining room.%' 21 NOEXIT,13,EXIT,RTN 'This is an examining room with a large window that faces the center ' 'of the building.%' 22 NOEXIT,13,EXIT,RTN 'This is a very cozy examining that has windows facing the outside ' 'of the building.%' 23 NOEXIT,13,EXIT,RTN 'You are in an examining room.%' ENDTABLE /* Expand up to 246 locations maximum */ *************************************************************** * KEYS. FIRST 15 ARE RESERVED...MUST NOT BE ALTERED. `IT`=251 * *************************************************************** TABKEY N 'N NORT' S 'S SOUT' EA 'E EAST' W 'W WEST' NE 'NE ' SE 'SE ' NW 'NW ' SW 'SW ' U 'U UP ' DO 'D DOWN' LE 'L LEFT' RI 'R RIGH' IN 'IN ENTE' EXIT 'EXITLEAVOUT ' AROUND 'AROUHERE' BACKWARD 'BACK' BATH 'BATH' BATTERY 'BATT' BEGIN 'BEGISTAR' BLOOD 'BLOO' CARE 'CAREQUIECLOS' CLOSE 'CLOSSHUT' DIALYSIS 'DIAL' DOOR 'DOOR' DROP 'DROPREMO' FORWARD 'FORW' FRONT 'FRON' GET 'GET GRABTAKECARRPICK' GIVE 'GIVEADMI' GLUCOSE 'GLUCIV ' GROUNDS 'GROU' HELP 'HELPASSI' INFO 'INFO' INVEN 'INVE' INSULIN 'INSU' JUMP 'JUMP' KEY 'KEY KEYS' LAB6 'GAS LAB REPO' LAMP 'LIGHFLASLAMP' ULAMP LIFT 'LIFTPUSHMOVEPULLYANK' LISTEN 'LISTHEAR' LOCK 'LOCK' LOOK 'LOOKPERUEXAM' MESSAGE 'MESS' NOTE 'NOTE' OBSCENE 'SHITFUCKPISSCRAPDAMN' OFF 'OFF UNLI' ON 'ON SWIT' OPEN 'OPEN' PAT1 'PAT1' PAT2 'PAT2' PAT3 'PAT3' PAT4 'PAT4' PAT5 'PAT5' PAT6 'PAT6' PAT7 'PAT7' PAT8 'PAT8' PAT9 'PAT9BURT' PUT 'PUT APPL' OXYGEN 'OXYG' QUIT 'QUITEND STOPBYE ABOR' READ 'READ' RESP 'RESPVENT' ROOM 'ROOM' SALINE 'SALISALTSODI' SAY 'SAY YELLSHOUCALLSCRE' SCORE 'SCOR' SIGN 'NOTIBOARSIGN' SORRY 'SORR' STAIRS 'UPSTSTAI' STEROID 'STERCORTMETHDEPO' STUDY 'STUD' THROW 'THROHURLCHUC' THYROID 'THYR' TOURNI 'TOUR' UNLOCK 'UNLO' WEAR 'WEAR' WELL 'WELL' WHERE 'WHERHOW WHY ' YES 'YES ' ENDTABLE /* IMPORTANT - No more than 246 keys (As many alternatives */ /* as required. up to one line. */ ********************************************************************** * SIGN-ON MESSAGE. THIS WILL NEED MINOR CHANGES FOR EACH ADVENTURE * ********************************************************************** TITL1 CHR$(27) 'EGENERAL HOSPITAL version 1.3 September 8, 1983.%' 'I will be your eyes and ears as we ' 'visit a General Hospital with YOU as the DOCTOR. If you have ' 'any problems in getting me to understand you - please ' 'rephrase your comments. I can only read the first ' 'four letters of the words that you use; therefore you will ' 'have to speak to me as you would a five year old child.%' 'Type HELP INFORMATION to find out more about how you must ' 'communicate with me. Depressing the control key along with ' 'the U key will start a new line when mistakes are made during ' 'keyboard entry. You can use single letter entries for directions ' 'such as "N" for north and "NE" for NorthEast. Use your ingenuity ' 'or you may not survive.%%' 'Hit any key to begin ........... ' ENDTABLE FLAG 1 01 /* If 00 then dark location */ 2 00 /* No. of items carried. (AUTO) */ 3 03 /* Max No. of objects can carry (AUTO) */ 4 00 /* 3 count up every turn (AUTO) */ 5 00 6 00 7 00 /* 3 count down every turn (AUTO) */ 8 00 9 00 10 80 /* 2 count down if dark & lamp on. (AUTO) */ 11 00 12 00 /* counts up if dark & lamp Empty (AUTO) */ 13 00 /* Present Score (MANUAL UPDATE) */ 14 01 /* Present Location (After 1st loc., AUTO) */ 15 00 /* FF (normal) or FE (No directions) (AUTO) */ 16 00 /* Determines if we can see. 00=BLIND.(AUTO) */ 17 01 /* lamp ON/OFF ON=00, OFF=01 (MANUAL) */ 18 00 /* No. of items WORN (AUTO) */ 19 00 /* No. of items HERE (AUTO) */ 20 01 /* Last location store (AUTO) */ 21 00 /* 2 Special Test Flags (AUTO) */ 22 00 /* are set complimentary at random. */ 23 01 /* 26 Flags (A-Z) for MANUAL text processing. */ 24 00 25 01 /* Will require init. for individual */ 26 00 /* Adventures. */ 27 01 /* Active any value other than 00. */ 28 00 29 00 30 00 31 00 32 00 33 00 34 00 35 00 36 00 37 00 38 00 39 00 40 00 41 00 42 00 43 00 44 00 45 00 46 00 47 00 48 00 /* maximum number is 246 - do not skip any numbers. */ ENDTABLE ENDGAME ;CONDITION EQUATES (Must not be changed or re-ordered) ; CL EQU 1 ;Current Location xx NCL EQU 2 ;Current location not xx OP EQU 3 ;Object xx present (carried/worn etc) OC EQU 4 ;Object xx carried OW EQU 5 ;Object xx worn OWC EQU 6 ;Object xx carried/worn OH EQU 7 ;Object xx here but not carried/worn ONP EQU 8 ;Object xx not present ONC EQU 9 ;Object xx not carried ONW EQU 10 ;Object xx not carried NWC EQU 11 ;Object xx not worn ONH EQU 12 ;Object xx not here,maybe carried/worn OE EQU 13 ;Object xx exists ONE EQU 14 ;Object xx does not exist @L EQU 15 ;Object xx is at location yy N@L EQU 16 ;Object xx not at location yy RND EQU 17 ;Random xx where xx 1 to 254 inclusive TF EQU 18 ;Flag xx = yy NTF EQU 19 ;Flag xx <> yy GE EQU 20 ;Flag xx >= yy LT EQU 21 ;Flag xx < yy C2 EQU 22 ;2nd word = xx C3 EQU 23 ;3rd word = xx NC2 EQU 24 ;2nd word not = xx NC3 EQU 25 ;3rd word not = xx ; ;ACTION EQUATES ; INV EQU 1 ;Print inventory of carried/worn items TKE EQU 2 ;Get xx to carry WR EQU 3 ;Get xx to wear DR EQU 4 ;Drop xx PR EQU 5 ;Print UMESS(xx) PRM EQU 6 ;Print MESS(xx) DL EQU 7 ;Describe the location xx SF EQU 8 ;Set flag xx=yy DSCOB EQU 9 ;Describe the object SWP EQU 10 ;Swap object xx with xx+1 MV EQU 11 ;Go to location xx OK EQU 12 ;Say OK and leave table QT EQU 13 ;Quit,printing present score INF EQU 14 ;Increment flag xx DEF EQU 15 ;Decrement flag xx EX EQU 16 ;Exit table SC EQU 17 ;Print current score PU EQU 18 ;Put object xx into location yy CR EQU 19 ;Create object xx DES EQU 20 ;Destroy object xx FLIP EQU 21 ;Flip flag xx <> xx true-false LA EQU 22 ;Look around at items SMA EQU 23 ;Set up message xx SMB EQU 24 ;Set up message yy WT EQU 25 ;Wait for xx seconds (4MHZ) PF EQU 26 ;Print decimal value of flag xx ATF EQU 27 ;Add to flag xx yy SFF EQU 28 ;Subtract from flag then clear. GRUN EQU 29 ;Print Place,directions etc. rtheast' 7 ' Northwest' 8 ' Southeast' 9 ' Southwest' 10 ' Up' 11 ' Down'