ISER-II

Andy Stadler



MISER-I wil be purple (purple prose?) and
your responses wil be shown in green. Useful
There's
than a litle danger in this sequel to the
MISER treasure,adventureadventure,in theandfirstmore
Commo-commands include LOOK, to look around the
dore 64 Fun and Games book. Wedon't want toroom you are in; INVEN, to get an inventory of
give away the story, but you'l explore the mis-your treasures; SCORE, to learn your curent
er's island (if you can figure out how to getscore and EXAM, to look at a specific object.
ihere). There are puzzles to solve, dead ends toYoumight want to make a map of your wan-
avoid, and you may have to learn how to usederings ifyou ever hope to solve the game. Yes,
scuba diving equipment.it can be solved! However, like al text adven-
Once t4e program starts, give one- or two-ture programs, it takes lots of patience, and
word commands. For example, you might typemore than a litle cleverness to reach the final
_ ORTH (or just N) to go north. The text ofgoal.


1 PG$="MISER""II" :AU$="BY"ANDY"STADLER" :BG$="RETURN":rem 8100
3
4 REM COPYRIGHT(C) 1984 THECODE WORKS

5 REM BOX6905,SANTABARBARA,CA 93160
6

10 REM AS OF 25JUL84
90 GOTiL~2000: rem 51784
00 GOTO44000:rern41377
500 IF MB=1THENPRINT"{down}YOUR"MATCH"JUST"WENT"OUT.":rern52137
50~IF MB>OTHENMB=MB-1:rern48789
510IF AC OR(WS=O) THEN535:rern34245
515 AL=AL-l:rern17742

520 IF AL<>OTHEN530:rern61567

525 PRINT"{down}YOU "DRAW"YOUR"LAST"BREATH "FROM"THE"SCUBAGEAR.{down}":
GOTO36000:rern10090

530 IF AL<5 THENPRINT"{down} YOU"ARE"DANGEROUSLY "LOW"ON"AIR.":rem 31604
535 IF AC THENAC=AC-l:rern46986

540 IF AC=1THEN PRINT"{down}AN"ANGEL"QUIETLY"FLOATS"BY.":AC=5:rern35505
545IF DC THENDC=DC-1:rern11557
550 IF DC=1THEN GOSUB610:rern7596

1555 IF ES=OTHEN 605:rern9619
560 ES=ES-l:AL=AL+5:IFES THEN 605:rern30440

565 PRINT"{14spaced6wnred}B"O"O"M"l{pur}":rern12414
570 IF CP<>OL%(6)THEN580:rern47702
575 PRINT"{down}THE"SCUBA"TANK"EXPLODES"IN"YOUR"FACE. {down}":
GOTO36000:rern39881

580 PRINT"{down}

A"TREMENDOUS"EXPLOSION"ROCKS"THE"CAVEYOU"ARE"SHAKEN"BUT"UNHURT."
:rem 48106
585 Y=OL%(6) :FOR X=1 TO OC:IFOL%(X)=YTHENOL%(X)=O:rern63885

590 NEXTX:EX=1:0L%(22)=Y:IFY<>39THEN 605:rern5065

65

