MISER-I73



44110DEF FNT(X)=(LEFT$(QB$(X),l)="*"):rem47206
44999GOTO 7000:rem21854

389lines,proofnumber36299


Reminder: Now be sure to enter the standard

frameworklines 6000to 62200. Se page XV




Important Variables in MISER-I

RM$O Rom descriptionsSCSpaces counter
MV%OMove mapsSFSpaces found
VB$O VerbsCV$Commandverb
NN$O NounsCVCommandverb number
PN$O Noun to object pointersCN$Commandnoun
OB$O ObjectsCNCommandnoun number
OL%O Object locationsMLMatches left
EM$O Eror mesagesMBMatch burning
RT$O RatingsFBFire burning
RP%O Ratings point valuesDDDead
RCRoom countDCDead mesage counter
VCVerb countACAngel counter
NCNoun countWSWearing scuba
OCObject countALAir left
RCRatings countESExplosionsequence
RT$Rating givenEXExplosionhapened
CPCurent positionSScore
EMCurent eror positionTVTrigger voice



How MISER-I Works

500-610Backgroundproceses2200-2010 Open
70-840Parse the input and look up words2300-2310 Jump
3000-3020 Output Routine
900-990100-1010JumpNorth tables to commandroutines3100Eror "What?"
200-2020South3200-32010 Eror "What is a.
300-3010East3300Eror "Not here.
400-4010West3400Eror "(Verb) what?"
500-5010Up3500-35040 Check availabilityofobject
600-6010Down3600Dead
700-7180Lok3700Can't go that way
8008210Inventory400How many rooms, verbs, nouns, objects,
900-910Sayscore, clases
10001070 Get4010-4050 Room data: destinationsfor N,S,E,W,U,D,
1100-110 Dropand rom descriptions
1200-12400 Exam4100-41020 Verbs
1300-13310 Read4200-42030 Noun and pointerto its object. Positive
1400-14060 Lightnumberis a "real" object (can be picked
1500-15610 Diveup). Negative number is a fixed object
1600-16030 Wear(exists but can't be taken).
1700-17020 Un-wear4300-430700bjectsand the rom they start in
1800-18020 Throw43500Score clases, title, and minimumscore to
1900-19130 Pushget that clas
2000-20550 Score400-4499 Dimensionarays and fil with appropriate
2100-21070 Quitdata

