' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`D NOTICE YOU IN THEIR REALM. THE STONED YOU TO DEATH.":EOGTRUE:HV *** OK?mMVE0: DESC FLAG0PS23FLG%(1)FLG%(1)TR::"*** BANG *** !!! AS YOU ENTER HERE, THE GOLD DISSAPEARS IN A FLASH, AND A HUGE SET OF STEEL BARS DROP0 6045WPSW:6050'6045;NEPSNE:6050E6045YNWPSNW:6050c6045wSEPSSE:60506045SWPSSW:60506045"YOU CANNOT GO THAT WAY."BPS36ĺ"> BANG! < AS YOU HIT THE WALL, THE ROCKSWAKE UP AN5VE$"END"VE$"QUIT"VE$"STOP"VE$"DONE"16000VE$"KILL"VE$"ATTACK"ĺ"YOU HAVE TO TELL ME HOW TO KILL THE "NO$:f"WHAT???":p *** MOVE AROUND MAZESuNPSN:6050v6045zEPSE:6050{6045SPSS:605E$"ENTER"130000VE$"OUT"VE$"EXIT"14000]VE$"LOOK"VE$"SEE"VE$"VIEW"MVE0:VE$"SCORE"VE$"TOTAL"ĺ"YOU ARE STILL STUCK IN THE MAZES AREN'T YOU ??? WELL THAT'S ALL YOU NEED TO KNOWABOUT HOW YOU ARE DOING.":VE$"HELP"15000VE$"SW"6040GVE$"GET"VE$"TAKE"VE$"GRAB"VE$"CARRY"7000VE$"DROP"VE$"THROW"VE$"TOSS"VE$"LEAVE"8000VE$"I"(VE$,4)"INVE"9000VE$"BREAK"VE$"SMASH"VE$"DESTROY"10000VE$"D"VE$"DOWN"11000VE$"IN"V$"S"VE$"W"VE$"NE"VE$"NW"VE$"SE"VE$"SW")IT%(8)PSĺ"YOU SLIPPED AND FELL ON THE BANANA PEEL,WHY NOT TRY AGAIN?":VE$"N"6005VE$"E"6010VE$"S"6015VE$"W"6020VE$"NE"6025VE$"NW"6030VE$"SE"60351)" "ĂgBY$(CO$,CP1,SPCP1):CPSP:BY$"THE"BY$"IT"BY$"A"BY$"AN"BY$"THAT"BY$""4110BY$"JUMP"BY$"GO"BY$"TRAVEL"BY$"WALK"BY$"MOVE"4110^ *** SWITCH TO PROPER *** ACTION SUBROUTINE}(VE$"N"VE$"E"VE1285(49152)249(49152)217Ĺ49168,0::1100:;o ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ: ********** ERROR HANDLING ROUTINE:(1101)6ė:7681(222)6(222)8Ģ19:"E"VE$"WEST"VE$"W":VE$"NORTHEAST"VE$"NE"XVE$"NORTHWEST"VE$"NW"vVE$"SOUTHEAST"VE$"SE"VE$"SOUTHWEST"VE$"SW" *** PARSE INPUTCP(CO$)BY$"": SPCP1(CO$):(CO$,SP,"ısCOM$"AGAIN"COM$"REPEAT"VERB$""ĺ"I CAN'T LET YOU DO IT AGAIN, YOU HAVEN'TDONE ANYTHING YET!!!":4010|CP04100: VERBVERB$BY$4100: NOUNNOUN$BY$VE$"NORTH"VE$"N"VE$"SOUTH"VE$"S"VE$"EAST"VE$0760,40770,40780,40790,40800F. PS91ĴPS8040810,40820,40830,40840L ` *** OBJECTS?f q I19 IT%(I)PSĺ""EX$(I) : *** INPUT:"";COM$COM$""4010COM$"AGAIN"COM$"REPEAT"VERB$"20,40430,40440,40450,40460,40470,40480,40490,40500+ PS61ĴPS5040510,40520,40530,40540,40550,40560,40570,40580,40590,40600, PS71ĴPS6040610,40620,40630,40640,40650,40660,40670,40680,40690,40700- PS81ĴPS7040710,40720,40730,40740,40750,4PS21ĴPS1040110,40120,40130,40140,40150,40160,40170,40180,40190,40200( PS31ĴPS2040210,40220,40230,40240,40250,40260,40270,40280,40290,40300) PS41ĴPS3040310,40320,40330,40340,40350,40360,40370,40380,40390,404002* PS51ĴPS4040410,404 5000: SWITCH EOG3005% > *** DESCRIBE ROOM{! ((1)100)111ĺ:"A SMALL WISP IS FLOATING HERE..."" MVEMVE1:MVE1ĺ:3110# MVE4MVE0$ & PS11ĴPS40010,40020,40030,40040,40050,40060,40070,40080,40090,40100H' OLD BANANA PEEL IS LYING IN THE DIRTN 10,CAN,AN EMPTY BEER CAN RUSTS HEREa PSMZ1: HOUSEl TRUE1x FALSE0~  *** LET'S PLAY !!! 3100: DESCRB PS66İ12000: RALPHS LIBRARY EOGı 3200: OBJCT 4000: INPUT )10:11:"YOU ARE NOW IN DOS"B12:15:"PARTITION"J(23P2< YOU CAN REPLACE WITH A RUN 'HELLO' COMMANDHAT HE KILLS YOU !!!":EOGTR:+ /:"I'LL HELP YOU OUT... BUT FIRST I NEED A FAVOR. THERE IS A CERTAIN WITCH UP NORTHTHAT I ONCE ANGERED AND SHE HAS ENCHANTED MY MAGIC STAFF AWAY FROM ME"j,/:"SHE TURNED IT INTO A BROOMSTICK AND I WANT IT BAND YOU DISSAPEAR IN A CLOUD OF BRIGHT ORANGE DUST.":EOGTR:+/ITM%(4)1ITM%(5)1ĺ:"I'D LIKE TO HELP YOU, BUT THAT IS MY TREASURE THAT YOU HAVE THERE, AND I DISLIKE A CLUMSY THIEF. SO SAY GOODBYE QUICK CAUSE YOU'RE A GONER !!! AND WITH TANS$"HOME"12040V).:"WHAT??? HE SAYS... DO YOU WANT TO GET OUT OF HERE???";ANS$o).(ANS$,1)"Y"12040>*.:"WELL HE MUTTERS, SINCE I CAN'T SEEM TO UNDERSTAND YOU... I'LL JUST KILL YOU!! AND WITH THAT HE WAVES HIS HANDS IN A MAGICAL MOTION A100(.:"RALPH LOOKS UP AT YOU SLOWLY... THE ACCUMULATED WISDOM OF THE AGES PORING FROM HIS SWEATY BROW. WELL?? HE CACKLES,WHAT IS IT THAT YOU WANT SO BADLY AS TO INTERRUPT ME FROM MY STUDIES????";).ANS$:ANS$"FREEDOM"ANS$"HELP"ANS$"OUT"A HUNGRY TROLL.":EOGTR:.'* *** DOWN ???}'+PS61ĺ"THERE IS NO WAY TO TRAVEL THROUGH THE SOLID ROCK STUPID!!!":'R+"BOY ARE YOU DUMB. I TOLD YOU NOT TO JUMPAND NOW YOU'VE KILLED YOURSELF.":EOGTR:'. *** MAGICIAN RALPH(.FLG%(2)12&y'PS35ĺ"I DON'T SEE ANY MIRROR HERE. PERHAPS IF YOU KEEP LOOKING YOU'LL FIND ONE.":'~'"THERE WAS SOMETHING BEHIND THAT MIRROR. A HUNGRY TROLL WAS BEHIND THAT MIRROR! HE LEPT OUT AND MADE YOU HIS SUPPER. TOO BAD THOUGH, YOU JUST CAN'T TRUST RY%-#6%2#:"YOUR INVENTORY IS AS FOLLOWS"::TMP0A%7#I19e%<#IT%(I)1ĺ""IT$(I):TMPTMP1%A#:TMPFALSEĺ" (NOTHING)"%'%' *** BREAK SOMETHINE%'NO$"MIRROR"10100%j'"HOW CAN I BREAK THAT FOR YOU?":%t' *** BREAK MIRRORZ%(3)ĺ"AUURRRGGGHHHHH!!! SCREAMS THE WITCH !!! IN HER HASTE, THE WITCH FALLS INTO THE BLAST FURNACE!! HELP !! I'M SMELTING... SMELTINGG... IS THE LAST SHE BREATHS."$ #PS84IT%(2)84FLG%(3)FLG%(3)TR:IT%(3)PS:IT%(2)2$##%(# *** INVENTO *** DROP OBJECT#JI193#OIT$(I)NO$8022Z#T:"THAT IS BEYOND YOUR POWER.":#VIT%(I)1ĺ"YOU ARE NOT CARRYING IT!!":#YI1IT%(2)1IT%(2)PS: IF DROP BOTTLE, ALSO WATER##"OK! WHY NOT?":IT%(I)PS$#PS84IT%(2)84FLG<"pIT%(I)0ĺ"YOU CHEATER!! YOU HAVE TO WORK FOR THAT":o"qIT%(I)PSĺ"I DO NOT SEE ANY "NO$" HERE.":"vI2IT%(1)1ĺ"WHAT WILL YOU CARRY THE WATER IN?? YOUR HANDS?? YOU HAVE TO FIND A CONTAINER.":"6"OK! WHY NOT?":IT%(I)1";#@(7);"Disk Error. Please insert Nibble disk":1010c19:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:600 ********** WAIT FOR KEYSTROKEFLAG$""223:" forTHE WISP BECKONS FROM THE SOUTHWEST"g!?PS47ĺ"A GREEN WILL 'O THE WISP BECKONS FROM THE SOUTH"m!N!X *** GET AN OBJECT!bI19!gIT$(I)NO$7022!l:"THAT IS BEYOND YOUR POWER.":"nIT%(I)1ĺ"YOU ARE ALREADY CARRYING IT!!":S FROM THE EAST"W ;PS43ĺ"A GREEN WILL 'O THE WISP BECKONS FROM THE NORTHEAST" <PS44ĺ"A GREEN WILL 'O THE WISP BECKONS FROM THE SOUTHEAST" =PS45ĺ"A GREEN WILL 'O THE WISP BECKONS FROM THE SOUTHWEST"&!>PS46ĺ"A GREEN WILL 'O THE WISP DANCES OUTSIDE THE CAVES ENTRANCE"L7(FLG%(2))(FLG%(3))69908PS30ĺ"A GREEN WILL 'O THE WISP BECKONS FROM THE NORTHEAST"9PS37ĺ"A GREEN WILL 'O THE WISP BECKONS FROM THE NORTH" :PS42ĺ"A GREEN WILL 'O THE WISP BECKONISP BECKONS FROM THESOUTH"[PS20ĺ"A BLUE WILL 'O THE WISP BECKONS FROM THESOUTHWEST"PS21ĺ"A BLUE WILL 'O THE WISP BECKONS FROM THESOUTHEAST"PS22ĺ"A BLUE WILL 'O THE WISP BECKONS FROM INSIDE THE CAVE"-PS23ĺ"A BLUE WILL 'OS INTO PLACE LOCKING YOU INTO THE CAVES.":ePS84FLG%(3)ĺ:"YOU'VE FOUND PRUDENCE !!!"PS16ĺ"A BLUE WILL 'O THE WISP BECKONS FROM THEEAST"PS18ĺ"A BLUE WILL 'O THE WISP BECKONS FROM THEEAST"PS19ĺ"A BLUE WILL 'O THE WOM NUMBER : 5U;u"YOU ARE IN A FOREST OF HUGE TREES. THE FOREST IS FULL OF NUTS ..};zN0:E0:S0:W0:NE3:NW0:SE0:SW6;{;| *** ROOM NUMBER : 6C<"THE FOREST IS ALL AROUND YOU. YOU ARE INTHE FOREST. IN THE FOREST YOU ARE. DO YOU NEED ANIS FULL OF NUTS ...;:fN0:E0:S0:W0:NE0:NW0:SE2:SW5A:g\:h *** ROOM NUMBER : 4:k"IF YOU ARE NOT LOST YET THEN YOU KNOW THAT YOU ARE IN THE FOREST. (DOES THAT MAKE ANY SENSE?):pN0:E0:S0:W0:NE0:NW0:SE15:SW2:q ;r *** ROM NUMBER : 29W"YOU ARE IN THE FOREST STILL. IT LOOKS LIKE YOU MAY BE LOST BUT YOU NEVER KNOW WITH THESE POOR FARM PEASANTS.9\N0:E0:S0:W0:NE4:NW3:SE0:SW09]9^ *** ROOM NUMBER : 3:a"YOU ARE IN A FOREST OF HUGE TREES. THE FOREST . IT ISN'T MUCH BUT YOU CALL IT HOME. IN FACT IT ISN'T ANYTHING TO BE PROUD OF... IT IS REALLY PRETTY SHABBY... ACTUALLY IT IS DISGUSTING BUT YOU CALL IT HOME. ONE DOOR EXITS TO THE WEST.8RN0:E0:S0:W7:NE0:NW0:SE0:SW08S 9T *** ROOEET THE MAGICIAN !!!":16050T7>FLG%(3)ĺ"YOU NEVER KILLED THE WITCH !!!":160507>"YOU DIDN'T GET THE BROOM TO THE MAGICIAN":160507>:"SIGH... WELL I SUPPOSE YOU TRIED...":EOGTR:7J *** ROOM NUMBER : 18M"YOU ARE IN A SMALL FARMHOUSEGAME6>:"DO YOU REALLY WISH TO QUIT NOW? ";ANS$:(ANS$,1)"Y"ĺ"WELL IF YOU'VE CHANGED YOUR MIND, THEN BACK YOU'LL GO!":6>:"OK, BUT YOU DIDN'T DO SO WELL."6>PS23ĺ"YOU DIDN'T EVEN FIND THE CAVES !!!":160507>FLG%(2)ĺ"YOU DIDN'T METC 'END' LEAVES THE GAME"5::"IF YOU ENCOUNTER A WITCH AND WISH TO KILL HER (WHY NOT?) YOU HAVE TO FIGURE OUT HOW. I WON'T TELL YOU, BUT IT WILL INVOLVE SOME OBJECTS AND ACTIONS THAT YOU WILL HAVE AVAILABLE. THAT'S ALL."::6> *** END THE DO YOU REALLY WANT A LITTLE HELP? ";ANS$:(ANS$,1)"Y"ĺ"WELL, SINCE NOT, BACK YOU GO.":5::"'GET' WILL LET YOU PICK UP AN OBJECT 'DROP' PUTS IT DOWN 'INVENTORY' PRINTS YOUR SUPPLIES 'N' GOES NORTH, 'SW' GOES SOUTHWEST 2PS7VE$"E":601003"3"GO INTO WHAT ???":L36 *** GO OUT SOMETHING36PS23ĺ"THE BARS ARE QUITE SOLID AND YOU ARE BUTA POOR COUNTRY BOY. YOU CANNOT GO OUT":36PS1VE$"W":60203 7"GO OUT OF WHAT ???":3: *** HELP !!!!![4::"2b/:"YOUR BELOVED BRUNHILDE IS RUNNING TOWARDS YOU THROUGH THE FIELD IN SLOW MOTION... LIFE IS BEAUTIFUL ONCE AGAIN AND ALL IS WELL. I HOPE YOU'VE ENJOYED YOUR LITTLE EXCURSION.":EOGTR:22 *** GO IN SOMETHING22PS22VE$"SW":60403AND WITH THE BROOM !! GOODY-GOODY HE YELLS !! FOR FINDING MY STAFF I HEREBY GRANT YOU YOUR FREEDOM AND A PRESENT !! CHECK YOUR BELONGINGS LATER HE CACKLES"1]/:">POOF!< YOU ARE STANDING UNDER A LARGE BEAUTIFUL SPREADING TREE.":9000: INVENTORYARE DEAD !!!":EOGTR:0S/ITM%(3)1ĺ"AND EMPTY HANDED !!! WELL I JUST CAN'T ABIDE ANY FREELOADERS. BEGONE GNAT !!! AND WITH THAT HE CLAPS HIS HANDS, YOU TURN INTO A GNAT, AND GET EATEN BY THE NEAREST SPIDER.":EOGTR:0W/120:IT%(6)11X/"0/0//D/ *** SECOND TRIP&/H/120W/I/:"WELL MUTTERS RALPH, I SEE YOU'RE BACK.."`/J/2550N/ITM%(4)1ITM%(5)1ĺ"AND TRYING TO STEAL MY TREASURE!!! BOY NOW YOU'VE GONE AND DONE IT... I'M MAD!!AND A MAD WIZARD IS DANGEROUS!!! >POOF< YOU ERSE THE TAUNTINGS OF THE GREEN WILL 'O THE WISP, YOU'LL GET THERE EASILY ENOUGH. OK... NOW FOR THE BIG FINISH !!!".&/:"THE MAGICIAN WAVES HIS HANDS, AND YOU BLACK-OUT IN A FRENZY OF SENSATIONS. YOUAWAKE TO FIND..."/+/PS36:FLG%(2)TR:MV0:310WITH THAT HE PLUNGES A SWORD INTO YOUR CHEST. YOU DIE.":EOGTR:-/:"GOOD!!! NOW AWAY YOU GO !!! BUT FIRST.. THE WAY INTO THE WITCHES LAND IS NOT SIMPLE. ALL PATHS ARE CHARMED SO AS TO ONLY LEAD AWAY FROM THE LAND."v.!/:"BUT IF YOU SIMPLY REVCK! SO IF YOU CAN STEAL IT FROM HERE, I'LL SHOW YOU HOW TO GET OUT OF HERE. DO YOU WANT TO TRY???";ANS$B-/(ANS$,1)"Y"ĺ:"WELL I NEVER!!! I TRY TO HELP YOU AND YOU CAN'T HELP ME!!! WELL I'LL HELP YOU ALRIGHT... I'LL HELP YOU INTO A GRAVE !!AND N15:E19:S17:W16:NE15:NW15:SE17:SW173GOG *** ROOM NUMBER : 19G"THE FOREST IS VERY DARK. MOST TRAILS SEEM ALIKE AND YOU CANNOT GET YOUR BEARINGS IN HERE.GN15:E15:S20:W18:NE15:NW15:SE15:SW17G H *** ROOM NU MOST TRAILS SEEM ALIKE AND YOU CANNOT GET YOUR BEARINGS IN HERE.sFN16:E0:S0:W0:NE0:NW0:SE0:SW13yFF *** ROOM NUMBER : 18F"THE FOREST IS VERY DARK. MOST TRAILS SEEM ALIKE AND YOU CANNOT GET YOUR BEARINGS IN HERE.-G:SE0:SW0Eߜ,E *** ROOM NUMBER : 16E㜺"THE FOREST IS VERY DARK. MOST TRAILS SEEM ALIKE AND YOU CANNOT GET YOUR BEARINGS IN HERE.EN0:E18:S17:W0:NE0:NW15:SE0:SW0E霱EꜲ *** ROOM NUMBER : 17IF휺"THE FOREST IS VERY DARK.13:W0:NE0:NW0:SE0:SW7 D՜>N6:E0:S0:W0:NE0:NW0:SE9:SW0D>_> *** ROOM NUMBER : 9>"THE FOREST IS A LOVELY PLACE ISN'T IT? IT HAS TREES AND SQUIRRELS AND NUTS AND BERRIES AND BUSHES AND YOU WHO ARE MOST LIKELY LOST!?N0:E0:S0:W0:NPATH LEADS TO THE NORTH AND INTO THE FOREST.T=N5:E1:S0:W0:NE0:NW0:SE0:SW0Z=u= *** ROOM NUMBER : 8>"YOU ARE IN THE FOREST. GREAT MUSHROOMS GROW HERE. THEY LOOK GOOD TO EAT BUT COULD VERY WELL BE POISONOUS. I WOULD NOT TRY TO EY MORE HELP? YOU ARE IN THE HUGE FOREST WITH THE REST OF THE NUTS.k for menu";:49168,0:49152,128P(49152)155FLAG$"ESC"V$. *********** ATTACH UPPER/LOWER CASE ROUTINE8I023:ML:768I,ML:I:768:B ********** DETACH UPPER/LOWER CASE HANDLER L54,240:55,253:1002:,VTHEN ARE NOT MOVING. TIP-TOE QUIETLY OUT AND YOU WON'T WAKE THEM.qWN0:E0:S41:W0:NE29:NW30:SE0:SW0wWW *** ROOM NUMBER : 37W"YOU ARE IN A SMALL EVEN WALLED CAVE ROOMA FEELING OF DIZZENESS CONFUSES YOUR TRAVELS. XN36:E36F YOU BREAK THEBIG MIRROR ON THE WEST WALL YOU'D FIND SOMETHING OF INTEREST BEHIND IT.VN0:E0:S0:W0:NE33:NW0:SE0:SW38VV *** ROOM NUMBER : 36FW"YOU HAVE ENTERED A SMALL CHAMBER OF SLEEPING ROCKS. THEY MUST BE SLEEPING SINCE UICK BEND IN THE PATH AND YOU NOW HAVE TO TRAVEL A DIFFERENT WAY.nUN32:E0:S0:W39:NE0:NW0:SE0:SW0tUU *** ROOM NUMBER : 35WV"THESE TUNNELS SEEM ENDLESS DON'T THEY? WELL YOU MIGHT BE SURPRISED AT WHAT YOU CAN FIND IN HERE. MAYBE IOM NUMBER : 33T"THE ROOM HERE IS FILLED WITH DUST. IT CLOGS YOUR EYES AND MAKES IT DIFFICULT TO SEE. FOLLOW ME TO THE NORTH OR TO THESOUTH-WEST AND WE'LL GET OUT.TN31:E0:S0:W0:NE0:NW0:SE0:SW35TT *** ROOM NUMBER : 34DU"A QS~N0:E0:S33:W28:NE0:NW0:SE32:SW0/SKS *** ROOM NUMBER : 32S"AHA! YOU GOT YOURSELF OUT OF THAT LAST ROOM! GOOD! NOW YOU CAN FOLLOW THE NEXT TUNNEL AS IT LEADS YOU SOUTHWARD.SN0:E0:S34:W0:NE0:NW0:SE0:SW0ST *** ROSW37 Ru'Rv *** ROOM NUMBER : 31Ry"THE ROOM HERE IS EXTREMELY DARK. I CAN NOT TELL YOU ANYTHING EXCEPT THAT A LARGE ROCK HERE IS REPELLING THE MAGIC THAT GIVES YOU LIGHT. YOU HAVE ALSO BEENBUMPING INTO WALLS NOW FOR ABOUT FIFTEENMINUTES.)IS SCRAWLED... 'DEATH TO THOSE WHO TAKE THE SOUTH PASSAGE'.eQjN0:E0:S38:W0:NE0:NW26:SE0:SW0kQkQl *** ROOM NUMBER : 30Qo"NOT 'MANY' BUT QUITE A FEW PASSAGES LEAVE THIS ROOM. CAN YOU FIND THEM??RtN27:E0:S0:W0:NE0:NW0:SE36:S. I'M NOT GOING TO TELL YOU WHICH WAY THEY GO !!_P`N24:E0:S31:W25:NE0:NW0:SE0:SW29ePaPb *** ROOM NUMBER : 29;Qe"YOU ARE AT THE INTERSECTION OF TWO SMALLPASSAGES. ONE LEADS NORTH-WEST AND THE OTHER LEAVES TO THE SOUTH. ON THE WALL Y FEET UNDERGROUND... THEAIR IS FILLED WITH MAGIC AND IT GLOWS ENOUGH FOR YOU TO SEE BY.OVN0:E26:S30:W0:NE0:NW0:SE0:SW0OWOX *** ROOM NUMBER : 283P["YOU ARE AT A SMALL INTERSECTION OF ABOUTFOUR PASSAGES. WELL EXACTLY FOUR PASS- AGE CAME THROUGH. CONFUSING ISN'T IT???PNLN24:E25:S27:W0:NE0:NW0:SE0:SW0VNMrNN *** ROOM NUMBER : 27ZOQ"THE TUNNEL HERE TURNS SLIGHTLY OFF COURSE. OH BY THE WAY. IF YOU WERE WOND-ERING ABOUT HOW YOU COULD SEE IF YOU ARETHIRTY OR FOURTERE THAT RUNS EAST/WEST AND THERE IS A SMALLFISSURE BARELY MANAGEABLE THAT GOES TO THE NORTH-EAST.MBN0:E28:S0:W26:NE24:NW0:SE0:SW0MCMD *** ROOM NUMBER : 26%NG"THE TUNNEL BRANCHES OFF HERE INTO TWO PATHS OTHER THAN THE ONE YOU JUSTIFFERENT TUNNELS ABOUT HERE AND ONE LARGE ONE RUNS TO THE EAST.OF COURSE YOU DON'T HAVE TO LISTEN TO MEYOU COULD ALWAYS TRY TO GO WEST.L8N23:E28:S25:W26:NE0:NW0:SE0:SW0L9L: *** ROOM NUMBER : 25cM="WELL LETS SEE... THERE IS A TUNNEL HOU CANNOT GET THEM OPEN. NOW YOU'LL MISS YOUR WEDDING AND BRUNHILDE IS GOINGTO CRY VERY LOUDLY WHEN SHE FINDS OUT.K.N0:E0:S24:W0:NE0:NW0:SE0:SW0K/K0 *** ROOM NUMBER : 24L3"YOU ARE IN THE CAVES PROPER NOW. THERE SEEM TO BE MANY DT YOUR MOTHER HER OPERATION! YOU CAN BUY SHOES FOR YOUR SISTER! BOY ARE YOU LUCKY!!!J$N15:E15:S15:W17:NE15:NW21:SE15:SW23J%J& *** ROOM NUMBER : 23uK)"YOU ARE IN THE CAVE. THE EXIT IS BARED BY HUGH STEEL BARS AND TRY AS YOU LIKE Y YOU CANNOT GET YOUR BEARINGS IN HERE.YIN17:E15:S0:W17:NE20:NW17:SE22:SW0_I{I *** ROOM NUMBER : 22VJ"YOU'RE IN FRONT OF A LARGE CAVE ENTRANCEWHAT APPEARS TO BE A HUGE POT OF GOLD ISSITTING IN THE CAVE. YOU'LL BE RICH! YOUCAN GEMBER : 20qH "THE FOREST IS VERY DARK. MOST TRAILS SEEM ALIKE AND YOU CANNOT GET YOUR BEARINGS IN HERE.HN19:E15:S15:W17:NE15:NW17:SE15:SW21HH *** ROOM NUMBER : 21+I"THE FOREST IS VERY DARK. MOST TRAILS SEEM ALIKE ANDNE55:NW0:SE0:SW0gy6gz *** ROOM NUMBER : 57g}"YOU ARE OUTSIDE THE SERVANTS QUARTERS. A DISTRESSING SMELL COMES FROM THE EAST.TIS BEST TO GO BACK TO THE WEST FOR YOURNOSES SAKE.gN0:E56:S0:W58:NE0:NW0:SE0:SW0g h *** ROOME SOUTH-EAST.7fnN0:E0:S0:W54:NE0:NW0:SE56:SW0=foYfp *** ROOM NUMBER : 56fs"YOU ARE IN THE SERVANT'S AREA. SINCE RALPHS LAST SERVANT DIED NINE-HUNDRED YEARS AGO THE PLACE IS A MESS AND ALSO SMELLS PRETTY BAD.gxN0:E0:S0:W57: NIP AT YOUR LEG. IN AN INSTANT HE IS GONE WITH A SNEER AND A TWITCH OF HIS TAIL.}edN0:E55:S0:W53:NE0:NW0:SE0:SW0eeef *** ROOM NUMBER : 55 fi"YOU ARE AT THE END OF THE EAST HALL. THEONLY NEW PASSAGE IS A SMALL SERVANTS EXIT TO THTHE SOUTH END OF THE GREAT HALL. HALLWAYS LEAVE TO THE NORTH AND TO THE EAST AND TO THE WEST.dZN50:E54:S0:W61:NE0:NW0:SE0:SW0d[d\ *** ROOM NUMBER : 54Se_"YOU ARE IN THE MIDDLE OF THE EAST HALL. A RAT SCURRIES PAST YOU AND TAKES AYOU ARE IN THE GREEN ROOM. YOU ARE SUDD-ENLY VERY JEALOUS OF RALPH AND HIS FINE CASTLE. HOW COME HE RATES ALL THIS STUFFAND YOU LIVE IN A HOLE IN THE GROUND?!?cPN0:E50:S0:W0:NE0:NW0:SE0:SW0cQcR *** ROOM NUMBER : 53adU"YOU ARE NOW AT BER : 51bA"YOU ARE IN THE BLUE ROOM. A GREAT SENSE OF DEPRESSION FLOWS LIKE WAVES THROUGH YOU. YOU LONG FOR HOME AND YOUR SWEET BRUNHILDE. HOW YOU WISH YOU WERE THERE.bFN0:E0:S0:W50:NE0:NW0:SE0:SW0bGbH *** ROOM NUMBER : 52cK":NE0:NW0:SE0:SW0a36a4 *** ROOM NUMBER : 50a7"YOU ARE IN THE MIDDLE OF THE HALL. A DOOR TO YOUR RIGHT LEADS INTO THE BLUE ROOM AND ONE TO YOUR LEFT TO THE GREEN ROOM.a *** ROOM NUMN40:E0:S49:W0:NE0:NW0:SE0:SW0+`)G`* *** ROOM NUMBER : 49`-"YOU ARE AT THE NORTH END OF THE GREAT HALL. FINE PICTURES AND OIL PAINTINGS ARE HUNG FROM THE WALLS. THIS MAGICIAN SEEMS TO HAVE DONE WELL FOR HIMSELF.a2N48:E0:S50:W046:SE43:SW46_1_ *** ROOM NUMBER : 48_#"YOU ARE AT THE ENTRANCE TO A LARGE CLEANCASTLE. IT IS THE HOME OF THE ALL POWER-FUL ALL KNOWING ALL KIND ALL DRUNK MAGICIAN RALPH. HE ALONE HAS THE POWER TO GET YOU HOME TO SWEET BRUNHILDE.%`(TUNNELS IN HERE ARE VERY CONFUSING. YOU WILL NEVER GET OUT ALIVE.q^N45:E43:S43:W44:NE47:NW44:SE43:SW45w^^ *** ROOM NUMBER : 47^"THE TUNNELS IN HERE ARE VERY CONFUSING. YOU WILL NEVER GET OUT ALIVE._N67:E43:S43:W46:NE43:NWUT ALIVE.5]N43:E43:S0:W0:NE43:NW45:SE0:SW0;]W] *** ROOM NUMBER : 45]"THE TUNNELS IN HERE ARE VERY CONFUSING. YOU WILL NEVER GET OUT ALIVE. ] N44:E43:S44:W44:NE46:NW44:SE44:SW0] ] *** ROOM NUMBER : 46A^"THE \흱"\ *** ROOM NUMBER : 43n\"THE TUNNELS IN HERE ARE VERY CONFUSING. YOU WILL NEVER GET OUT ALIVE.\N42:E42:S41:W0:NE0:NW0:SE41:SW44\\ *** ROOM NUMBER : 44 ]"THE TUNNELS IN HERE ARE VERY CONFUSING. YOU WILL NEVER GET OS A CORNER. THAT'S ALL THIS ROOM RATES AS A DESCRIPTION.c[N36:E0:S0:W0:NE38:NW0:SE0:SW0i[㝱[䝲 *** ROOM NUMBER : 42[睺"THE TUNNELS IN HERE ARE VERY CONFUSING. YOU WILL NEVER GET OUT ALIVE.\N37:E41:S41:W43:NE41:NW0:SE41:SW41FOUR PATHS LEAVE HERE. LOUD MAJESTIC SINGING SEEMS TO BE COMING FROM NEARBY. COULD THIS BE A SIGN? COULD IT LEAD OUT OF HERE? COULD YOU BE GOING HOME???Z؝N35:E39:S0:W41:NE0:NW0:SE0:SW48ZٝZڝ *** ROOM NUMBER : 419[ݝ"THE PASSAGE TURN:NW0:SE0:SW41Yŝ2YƝ *** ROOM NUMBER : 39Yɝ"THREE PASSAGES LEAVE HERE. ONE TO THE NORTH... ONE TO THE WEST... AND ONE TO THE SOUTH. WHICH WAY WILL YOU TAKE?YΝN34:E0:S40:W33:NE0:NW0:SE0:SW0YϝYН *** ROOM NUMBER : 40Zӝ":S42:W0:NE36:NW30:SE36:SW0&XBX *** ROOM NUMBER : 38X"WELL... THE MESSAGE IN THE LAST ROOM MUST HAVE BEEN MISTAKEN... SINCE YOU ARESTILL ALIVE. WELL ONE CAN'T BELIVE ANY GRAFITTI THEY READ ON WALLS CAN THEY?YĝN0:E0:S0:W0:NE350:S78:W0:NE70:NW0:SE0:SW0&w-Bw. *** ROOM NUMBER : 75w1"THE PATHS ORIENTATION BECOMES SUBTLY ALTERED AS YOU ROUND YON CORNER. WATCH OUT FOR THE BAT GUANO TO YOUR LEFT.w6N0:E0:S74:W0:NE0:NW79:SE0:SW0w7x8 *** ROOM NUMEAD AWAYFROM HERE.u"YOU ARE IN THE SNEAKY CLEARING. THERE ARE THREE EXITS FROM HERE. ONE THAT GOESTO THE SOUTH... ONE TO THE Ss"YOU ARE IN A SMALL CLEARING. A PAPER LIES NEARBY. IT READS 'CONFUSION SAYS- EXPLORER WHO GETS OUT... IS VERY LUCKY INDEED...'sN70:E70:S70:W70:NE70:NW70:SE70:SW74ss *** ROOM NUMBER : 71At "YOU ARE IN THE MIDDLE OF A LONGSTING SECRET OLD OVERGROWN DIRTY SNEAKY TRAIL THAT LEADS WEST FROM HERE. SOUTH IS MUCHNICER BUT NOT A LOT OF FUN. A ROCK HERE SAYS 'THIS WAY TO THE TLHTSOODST' AND ITPOINTS WEST.rN0:E0:S68:W72:NE0:NW0:SE0:SW0rr *** ROOM NUMBER : 70WISTING OLD TRAIL. TO THE WEST LIES CONFUSION. SOUTH IS THE WAY TO GO FOR A FAST EXIT FROM THIS LAND. GO THERE IF YOU VALUE YOUR LIFE.qN69:E0:S67:W70:NE0:NW0:SE0:SW0qq *** ROOM NUMBER : 69r"THERE IS A TINY LITTLE HIDDEN TWI THE EVIL PRUDENCE DOES NOT SEEM TOBE ANYWHERE AROUND. THAT IS GOOD FOR YOUSINCE SHE COULD TURN YOU INTO AN UGLIER TOAD THAN YOU ALREADY ARE.pN68:E47:S73:W0:NE0:NW0:SE0:SW0p瞱p螲 *** ROOM NUMBER : 68q랺"WALKING NORTH YOU WILL FIND A TER AN OLD AND ANCIENT TOME. THE WORD YOBYALP SHOWSTHROUGH THE COVER FROM THE LIGHT BEHIND.RALPH IS DEEPLY ABSORBED IN THE BOOK.oܞN0:E64:S0:W0:NE0:NW0:SE0:SW0oݞoޞ *** ROOM NUMBER : 67pឺ"YOU ARE AT THE EDGE OF THE EVIL WITCHES LAND.AR ROCK STATIONS IS BLAST-ING FORTH PUNK ROCK MUSIC. THE EFFECT ITHAS ON THE CASTLES WALLS IS EERIE INDEEDnҞN0:E0:S64:W0:NE0:NW0:SE0:SW0nӞnԞ *** ROOM NUMBER : 66oמ"YOU ARE IN THE LIBRARY WHERE THE GOOD MAGICIAN RALPH IS POORING OVE NORTH ANDA SMALLER PASSAGE TO THE WEST. EERIE MUSIC COMES FROM THE NORTH.ymȞN65:E0:S0:W66:NE0:NW0:SE63:SW0mɞmʞ *** ROOM NUMBER : 65jn͞"YOU OPEN THE DOOR AND ENTER INTO..... RALPHS BATHROOM. A RADIO TUNED TO ONE OFTHE MORE POPUL"YOU ARE IN A CONNECTING HALLWAY WITH SOME LOUD ALBEIT EERIE MUSIC EMANATING FROM THE SOUTH-WEST.lN0:E0:S0:W0:NE62:NW0:SE0:SW64ll *** ROOM NUMBER : 64NmÞ"YOU ARE IN A SMALL ANTE-CHAMBER. A LARGEWELL USED PASSAGE LEADS TO THk!k *** ROOM NUMBER : 62k"YOU ARE IN A WINDING PASSAGE. AS YOUR TRAVEL PROGRESSES THE EERIE MUSIC GETS LOUDER AND YOU GET COLDER BUT THIS COULDBE THE WAY OUT!!!kN0:E59:S0:W0:NE0:NW63:SE0:SW0kk *** ROOM NUMBER : 63hlNE0:NW0:SE0:SW59j6j *** ROOM NUMBER : 61j"YOU ARE IN THE MIDDLE OF THE WEST HALL. A LARGE HOLE IN THE FLOOR REVEALS A HUGEDROP TO THE GROUND HUNDREDS OF FEET BELOW YOU. BETTER NOT DO DOWN...jN0:E53:S0:W60:NE0:NW0:SE0:SW0L PASSAGES LEAVE HERE. ONE TO THE NORTH-WEST AND ONE TO THE SOUTH-WESTsiN0:E58:S0:W0:NE0:NW60:SE0:SW62yii *** ROOM NUMBER : 60i"YOU ARE AT THE END OF THE WEST HALL. A SMALL PASSAGE LEADS TO THE SOUTH-WEST.jN0:E61:S0:W0: NUMBER : 58}h"YOU ARE IN THE MIDDLE OF THE SOUTH HALL.AN EERIE LIGHT COMES FROM THE WEST AND GREAT MUSIC FILLS THE AIR.hN0:E57:S0:W59:NE0:NW0:SE0:SW0hh *** ROOM NUMBER : 59Hi"YOU ARE AT THE END OF THE SOUTH HALL. TWO SMALBER : 76x;"THE MIDPOINT FOR A LONG SLOPING CORRIDORIS WHERE YOU ARE. NOT MUCH SPECIAL ABOUTTHIS PLACE EXCEPT THE SMELL OF BAT GUANOx@N0:E0:S0:W0:NE72:NW0:SE0:SW79xAxB *** ROOM NUMBER : 77)yE"YOU ARE AT THE MIDPOINT OF A LONG LONG33,254,232,189,210,96,133,253,232q189,210,96,133,252,232,160,0,177,252,145,254,200,192,40,208,247,24,165,253101,252,201,4,240,23,165,253,133,255,165,252,133,254,189,210,96,133,253,232 189,210,96,133,252,232,76,26,96,169,160,160,0,153,0,4,20165L@184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216J169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165T135,164,136,133,184,132,185,32,183,0,96,0 SCROLL!162,0,189,210,96,133,255,232,189,210,96,10:(4);"CATALOG"::K$"menu."X:"Press space bar to continue.":49168,0:49152,128b116041NP18(NP9):820(NP9):NP". Quit":X768839"A:X,A:,632,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,336):EQ:1230M21::958:"Do you really want to quit? (Y/N)";:49168,0Z" ";MM$(MM$,1)"Y"(MM$,1)"y"ė:1500:SF418:SF:" ":SF:1210I023:ML:768I,ML:I:54,240:55,253:1002:::49168,11,169,3,132,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,253:rive.":"("(222);")"::1190x(1360)193(1360)211Ģ19:1:" ":2:1:" "EQ110:EY(16336)(165K~ 184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATAM 160,ER/LOWER CASE HANDLER 3854,240:55,253:1002:cB ********** INSTALL INPUT-ANYTHING ROUTINErLX768839VA:X,A:`j ********** INPUT-ANYTHING ROUTINE DATAt 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,16 X8,196,96,0,0,7,208,7,80,6,208,6,80,5,208d 05,80,4,208,4,80,7,168,7,40,6,168,6,40,5,168,5,40,4,168 :4,40,7,128,7,0,6,128,6,0,5,128,5,0,4,128,4,0,97,141 N 160,11,169,3,132,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,253 0,253201,4,208,196,96,162,0,189,210,96,133,255,232,189,210,96,133,254,232,16038,140,208,96,200,140,209,96,172,208,96,177,254,172,209,96,145,254,206,20896,206,209,96,173,209,96,201,0,208,233,172,209,96,169,160,145,254,165,255( &24,101,254,201,4,200,192,40,208Z248,96,162,0,189,210,96,133,255,232,189,210,96,133,254,232,160,0,140,20896,200,140,209,96,172,209,96,177,254,172,208,96,145,254,238,208,96,238,20996,173,209,96,201,40,208,233,169,160,172,208,96,145,254,165,255,24,101,254H33,254,232,189,210,96,133,253,232q189,210,96,133,252,232,160,0,177,252,145,254,200,192,40,208,247,24,165,253101,252,201,4,240,23,165,253,133,255,165,252,133,254,189,210,96,133,253,232 189,210,96,133,252,232,76,26,96,169,160,160,0,153,0,4,20165L@184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216J169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165T135,164,136,133,184,132,185,32,183,0,96,0 SCROLL!162,0,189,210,96,133,255,232,189,210,96,10:(4);"CATALOG"::K$"menu."X:"Press space bar to continue.":49168,0:49152,128b116041NP18(NP9):820(NP9):NP". Quit":X768839"A:X,A:,632,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,336):EQ:1230M21::958:"Do you really want to quit? (Y/N)";:49168,0Z" ";MM$(MM$,1)"Y"(MM$,1)"y"ė:1500:SF418:SF:" ":SF:1210I023:ML:768I,ML:I:54,240:55,253:1002:::49168,V111120!(N$)01090L(N$)COĺ"WRONG COMBINATION!":10300:182,28182,40:3:178,28189,26189,42178,40:1:X165177:X,29X,39:X CP$;CI$;"THE SAFE OPENS AND INSIDE IS THE":"RICHE FORTUNE! YOU WIN!!";CN$;:23:1:X15:1090&V5ĺ"IT'S SLEEPING.":10304V16260>1090CH0(N$"SAFE"N$"LOCK"V11)ĺ"IT'S TOO HIGH TO REACH!":1030CH(V5V4)(N$"SAFE"N$"LOCK")ĺ"IT'S A COMBINATION LOCK! IT REQUIRES":"ONE TWO-DIGIT NUMBER FROM 01-99.":1030S EVEN MORE LOUDLY.":1030p"YOU HAVE SOOTHED THE SAVAGE BEAST! HE":"IS NOW SLEEPING PEACEFULLY.":BE1:270BE0(N$"SAFE"N$"LOCK"N$"BEAST"V11)(V2V4V5V11V14V16)ĺ"THE BEAST HAS EATEN YOU!":2630N$"BEAST"1230BE0LN$(C$,(VB$(V,Y))1)PVRM1120,1120,1120,1130,1320,1120,1120,1620,1120`V1980,1880,2100,2670,2180,2290,2330,2380,2380,2650,1090,2400,2420,2180,2670,2710,2480,2530,2600,2690jV101170tN$"FLUTE"1090~100:BEĺ"THE BEAST SNORE$:CA$;"0";:2508(C$,1)" "C$(C$,(C$)1):1040eC$"N"C$"E"C$"S"C$"W"C$"GO "C$$C$"DESCEND FROM CHAIR"C$"GO DOWN".X1NV:YY1NS(X):VB$(X,YY)(C$,(VB$(X,YY)))YYY:YYNS(X)::VX:XNV::11008:B"HUH?":1030O$(RM,X);",":18:970:O$(RM,X);:XNO(RM)ĺ", ";:970KQ80Ă:980TX:"VISIBLE DOORS: ";:DF0:D14:R(RM,D)01010DFĺ", ";DF1:240:DI$;DCY$;:19:2:CV$;:23:38:CW$;:V91:H91CA$;"1";:"COMMAND? ";CNp"YOU ARE IN THE ";N$(RM);".":"VISIBLE OBJECTS: ";:NO(RM)0ĺ"NONE":980zX1NO(RM):Q9(O$(RM,X)):XNO(RM)Q9Q92Q8(36)Q9(33):Q80940XNO(RM)930Q8Q81:Q80ĺO$(RM,X);",";:18:970:18:950Q80XNO(RM)ĺ8604N$"KETTLE"860c>X189:Y71:RM5X90:Y35:0:X,Y13X14,Y13:X3,Y5X10,Y5:3HX3,Y4X,YX14,YX10,Y4X3,Y4X,Y8X14,Y8X10,Y4RX,Y8X,Y16X14,Y16X14,Y8:860\XXfCY$;:13:2:CV$;:17:38:CW$;CP$;X103:Y79:780X91:Y70} X,YX7,YX14,Y4X7,Y4X7,Y8X,Y4X,Y:X7,Y8X14,Y8X14,Y4:X,YX7,Y4:860N$"FLUTE"820 154,83182,83182,87154,87154,83:156,83156,85159,85159,83:161,83161,87*X1641793:X,85::RE WITH HER BLASTEFURNACEE IS WHERE SHE FORGES HER HORSES SHOES FOR HER HUNTING RAIDES. THE HEAT FROM THE FURNACE BURNS TO YOUR SOUL.N0:E0:S0:W0:NE80:NW0:SE0:SW0A"A ROOM HERE HAS AN EASTERN EXIT AND ALSOA NORTHERN ONE. FROM THE NORTH COMES A FUNNY FEELING OF DIZZINESS.~N80:E79:S0:W0:NE0:NW0:SE0:SW0~~ *** ROOM NUMBER : 84"YOU ARE AT THE EVIL WITCH PRUDENCES OLDEBLACKSMITHE SHOPPE. HEN82:E0:S0:W0:NE0:NW0:SE77:SW0,}sH}t *** ROOM NUMBER : 82}w"OOPS!!! A SHARP TURN FORCES YOU TO GO EITHER SOUTH OR EAST DEPENDING ON WHICH WAY YOU CAME FROM.}|N0:E78:S81:W0:NE0:NW0:SE0:SW0}}}~ *** ROOM NUMBER : 83o~ BE CAUSING THIS TO HAPPEN???P|hN71:E72:S79:W77:NE69:NW84:SE76:SW82V|ir|j *** ROOM NUMBER : 81|m"AT THE SOUTH-WEST EDGE OF THE WITCHES LAND THE TUNNEL TURNS SLIGHTLY. EITHER THAT OR WALK INTO THE HUGE ROCK THAT IS IN ITS WAY.&}rS0:W83:NE76:NW0:SE75:SW0${_@{` *** ROOM NUMBER : 80 |c"YOU ARE OVERCOME BY THE FEELING OF NAUSEA. AS YOU TRY TO ALIGN YOURSELF ON YOUR COMPASS YOU ROCK AND REEL BACK AND FORTH AND FIND IT DIFFICULT TO WALK IN ASTRAIGHT LINE. WHAT COULD82:NE0:NW0:SE0:SW0zU8zV *** ROOM NUMBER : 79zY"YOU ARE AT THE INTERSECTION OF THREE TRAILS. ONE TO THE WEST AND ONE TO THE NORTH/EAST AND ONE TO THE SOUTH/EAST. WHEN YOUR COMPASS WORKS... IT SURE IS A HANDY THING TO HAVE.{^N0:E0: SLOPING CORRIDOR LEADING SLIGHTLY SOUTHTyJN0:E0:S0:W0:NE74:NW81:SE73:SW0ZyKvyL *** ROOM NUMBER : 78yO"THE PATH HERE IS LITTERED WITH THE FRESHREMAINS OF BATS AND TOADS. THEIR BODIES ARE STILL DECAYING IN THE DIRT.zTN0:E0:S74:WR MONEY WHERE YOUR MOUTH":"IS.'";QT$:1030@/ N$"SOUP"1090_/ N$"KETTLE":220:F01920/ SO0ĺ"THE LETTERS ARE OBSCURED BY THE FROZENLIQUID.":1030 0 "IT'S ALPHABET SOUP! THE LETTERS SPELL":"OUT:":QT$;"RIGHT-HAND DIGIT=";CO(CO10)10;QT. SOĺ"IT'S ALREADY COOKED.":1030R.8 RM5ST0ĺ"THERE'S NO HEAT HERE.":1030a.B SO1:1030v.L N$"STOVE"İ150.V 1090.` N$"RUG"1090.j 100:RU1:260.t N$"BOOK"2440+/~ 100:"IT SAYS: ";QT$;"MR. RICHE'S FAMOUS MOTTO":"WAS 'PUT YOU ORDINARY ";N$;".":1030)-N$""1090[-"YOU ARE CARRYING";:NP0ĺ" NOTHING.":1030z- ": ";:X1NP:X1ĺ", ";- P$(X);:X::1030- N$"KETTLE"N$"SOUP"1090-$ TN$N$:N$"KETTLE":120:F0ĺ"YOU DON'T HAVE ";QT$;TN$;QT$;".":1030#.1090C,N$"AROUND"N$N$(RM)N$"ROOM"ĺ"DO IT YOURSELF!":1030,200:N$"BOOK"ĺ"THERE'S SOMETHING WRITTEN IN IT!":1030,N$"SOUP"SO2470,N$"KETTLE"ĺ"THERE'S SOME SOUP IN IT!":1030,N$"SOUP"ĺ"IT'S UNCOOKED.":1030-"IT'S ANRM,NO(RM))N$:NPNP1:N$"RUG"RU0`+fRM5ST1SO0SO1:"IT IS NOW COOKING ON THE STOVE."y+pRM8N$"BOOK"BP1+z650+N$"DOOR"N$"ENTRANCE"N$"WALL"2280+N$"SOUP"2220+N$"KETTLE":220:F01920+N$"SOUP":2250,V14YOUR LEG!":2630H* RM4RU0ĺ"IT'S TOO COLD TO WALK IN THERE!":1030\**RMR(RM,X):270q*4N$"SOUP"2130*>N$"KETTLE":120:F1910*H"YOU DON'T HAVE ";QT$;"SOUP";QT$;".":1030*R100:FNPāXFNP1:P$(X)P$(X1):X$+\NO(RM)NO(RM)1:O$(OU'RE ALREADY STANDING ON THE FLOOR.":10309)CH0:260j)D14:240:N$(DI$,(N$))XD:D4::2060)D:"THERE'S NO SUCH DIRECTION.":1030) R(RM,X)0ĺ"THERE'S NO ENTRANCE THERE.":1030*CHĺ"YOU HAVE FALLEN FROM THE CHAIR AND":"BROKEN 'S TOO HEAVY TO LIFT.":1030a(NPNP1:P$(NP)N$:FNO(RM)āXFNO(RM)1:O$(RM,X)O$(RM,X1):Xz(NO(RM)NO(RM)1:270(N$"CHAIR"2010(CHĺ"YOU'RE ALREADY ON THE CHAIR.":1030(200:CH1:260(N$"FLOOR"N$"DOWN"2040+)CH0ĺ"Y"YOU CAN'T GET IT OUT OF THE KETTLE":"WITH YOUR HANDS.":1030h'QT$;"SOUP";QT$;" ISN'T HERE.":1030'N$"DRAWER"N$"DRESSER"'150:NPP8ĺ"YOUR HANDS ARE FULL.":1030(N$"SAFE"N$"STOVE"N$"ICEBOX"N$"BED"N$"DRESSER"N$"TABLE"ĺ"ITEET!":1030P&V13ĺ"IT SAYS:":QT$;"LEFT-HAND DIGIT=";(CO10);QT$;".":1030f&&N$"SHEET"1870&0V2ĺ"IT'S TOO SECURELY FASTENED.":1030&:V16260&D1090&N1120&XN$"SOUP"1930&bN$"KETTLE":170:F1910&l120:F01920?'vO1:17901%DR0ĺ"IT'S ALREADY CLOSED.":1030T%N$"BOOK":170:F0DO1:1790%FNO(RM)āXFNO(RM)1:O$(RM,X)O$(RM,X1):X%NO(RM)NO(RM)1:DO0%DR0:270%N$"BED"N$"SHEET"1120 &V5ĺ"THERE'S SOMETHING WRITTEN ON THE":"SHE CANE DID THE TRICK!";:DR1:DO0NO(RM)NO(RM)1:O$(RM,NO(RM))"BOOK"P$270i$"IT'S STUCK!":1030x$V51730$DR0ĺ"IT'S CLOSED.":1030$N$"BOOK":170:FBP0ĺ"INSIDE IS A BOOK!":1030$"IT'S OPEN.":1030$V151120 %BPDSO1:"THE KETTLE IS NOW COOKING.":10301#,260@#6V91120e#@ST0ĺ"IT'S ALREADY OFF.":1030s#JST0:260#TN$"DRESSER"N$"DRAWER"1800#^V41690#hDRĺ"IT'S ALREADY OPEN.":1030#rN$"CANE":120:F01680G$|"IT COMES OPEN! THVAGE BEAST SLEEPS QUIETLY.":250:270V""A SAVAGE BEAST GUARDS THE SAFE!":250:270l"N$"STOVE"1120{"V51550"STĺ"IT'S ON.":1030""IT'S OFF.":1030"V81590"STĺ"IT'S ALREADY ON.":1030(#"ST1:N$"KETTLE":170:FSO0IT'S CLOSED.":10305!"INSIDE IS A PASSAGE!":1030M!N$"PASSAGE"1510j!V5ĺ"IT'S DARK.":1030x!V11470!N$"PASSAGE"1090!1120!IC0ĺ"IT'S CLOSED.":1030!RU0ĺ"IT'S TOO COLD TO WALK IN THERE!":1030%"RM4:BEĺ"A SA(7);:X< "DO YOU WANT TO PLAY AGAIN?(Y/N) ";Y$:Y$"Y"ĬF 2620] (N$"ICEBOX"1420l 2V41360 <ICĺ"IT'S ALREADY OPEN.":1030 FIC1:270 PV151390 ZIC0ĺ"IT'S ALREADY CLOSED.":1030 dIC0:270 nV51440!xIC0ĺ"X Y Z [ \ ] hhh`HH ' hh^ `HHHV  V ` Lhhh`,n àϠȥ𬠄𠠠ŠϠÊәĠ̠ m ` 18)`8`HHH n  V H$hb V W X Y m [ l \ ] S ^ T _  ' hhh`HHV ' b i-c ihh`HH$Hȱhhh` LHHHHHHV W D"!=: 3,"EAT","DRINK","CONSUME"7=D 2,"CLOSE","SHUT"U=N 3,"KILL","HIT","DESTROY"k=X 2,"SAVE","STORE"=b 2,"LOAD","RECALL"=l 4,"QUIT","END","LEAVE","STOP"=v 1,"RESTART"U TO","TURN KNOB TO","POSITION DIAL AT","POSITION KNOB ON"< "POSITION DIAL ON","POSITION KNOB AT","POSITION AT","POSITION ON","SET DIAL ON","SET DIAL AT","SET KNOB ON","SET KNOB AT","SET","TURN","SPIN"<& 4,"WEAR","PUT ON","WRAP ON","WRAP"=0 1,"REAON","ACTIVATE","LIGHT UP","LIGHT","FIRE UP","FIRE","IGNITE"r; 4,"TURN OFF","SWITCH OFF","SHUT OFF","DEACTIVATE"; 3,"PLAY","BLOW INTO","BLOW"9< 22,"DIAL","TURN TO","COMBINATION","SPIN COMBINATION","SPIN TO","SPIN DIAL TO","SPIN KNOB TO","TURN DIAL,"GRAB"@: 5,"DROP","PUT DOWN","SET DOWN","THROW DOWN","THROW"r: 5,"OPEN","PRY OPEN","PRY","PULL OPEN","PULL": 6,"LOOK AT","LOOK INTO","LOOK IN","LOOK","EXAMINE","SEARCH": 2,"INVENTORY","I": 3,"COOK","HEAT","BOIL";; 8,"TURN ON","SWITCH "DRESSER",7,0,9,389 "STUDY",2,"CHAIR","TABLE",8,0,0,09 16,"ENTER","GO TO","GO INSIDE","GO INTO","GO IN","GO","CLIMB ONTO","CLIMB ON","CLIMB INSIDE","CLIMB INTO","CLIMB IN","CLIMB","STAND ON","STEP ONTO","STEP ON","STEP": 4,"GET","TAKE","PICK UP"FOYER",1,"CANE",0,3,0,258^ "WEST HALLWAY",0,0,1,0,6S8h "EAST HALLWAY",0,0,8,0,1q8r "VAULT",1,"SAFE",0,0,5,08| "KITCHEN",3,"KETTLE","STOVE","ICEBOX",0,0,6,08 "BALLROOM",1,"RUG",5,2,0,08 "MUSIC ROOM",1,"FLUTE",0,0,8,09 "BEDROOM",2,"BED",";:16384,128:16368,0[7, CP$;:3,3276,3276,1873,1873,3:3,91276,91:3,139276,139p76 19:1:250:2707@ X24,Y12X18,Y6X6,Y6X,Y12X,Y18X6,Y24X18,Y24X24,Y307J X24,Y36X18,Y42X6,Y42X,Y36:X12,YX12,Y48:8T "OSPARC, INC."E6 X19:N$(X),NO(X):NO(X)0āY1NO(X):O$(X,Y):Y6 Y14:R(X,Y):Y:X:X1NV:NS(X):Y1NS(X):VB$(X,Y):X6VB$(X,Y)VB$(X,Y)" "6 Y:X:RM1:X((78)):CO(99(1))17" 17:9:"(H";CL$;"IT ANY KEY TO BEGIN)";CK$;CA$;"0910,0N5 X16:Y16:2880:X238:Y16:2880:X238:Y127:2880:X16:Y127:28805 CY$;CI$;:9:8:25):10:8:CA$;"2 C A S T L E R I C H E ":11:8:25) 6 13:15:CN$;CA$;"1";CL$;"BY ";CK$;"BEN GEER":15:4:CN$;CA$;"1";CL$;"COPYRIGHT 1984 BY MICR(P8),N$(9),NO(9),O$(9,8),R(9,4),NS(NV),VB$(NV,22)a4 D$(4):DE$"NORTHEAST SOUTHWEST":QT$(34)4 CA$(1):CI$(9):CK$(11):CL$(12):CN$(14):CP$(16)4 CV$(22):CW$(23):CY$(25)5 1:0,0:62454:0:279,0279,191:3:0,0278,0278,1910,1WANT TO TRY AGAIN?(Y/N) ";Y$:Y$"Y"Ĭ03P 2620F3Z N$"FLUTE"1090T3d 100:2603n N$"DRESSER"N$"DRAWER"N$"ICEBOX"İ1503x 10903 "ARE YOU SURE?(Y/N) ";Y$:Y$"Y"Ĭ3 10303 N$"SOUP"10903 200:F2603 109014 NV20:P82:P$0:270S2 D$;"DELETEGAMEFILE":216,0:"THERE IS NO GAME FILE ON THIS DISK.":1030h2( N$"GAME"109022 "ARE YOU SURE?(Y/N) ";Y$:Y$"Y"10302< CY$;CP$;:::D$;"IN#0":D$;"PR#0":1:"BYE!":12:D$;"FP"&3F "BETTER LUCK NEXT TIME..."::"DO YOU CLOSEGAMEFILE":1030)1 N$"GAME"109041 2590`1 :D$;"OPENGAMEFILE":D$;"READGAMEFILE"1 X19:NO(X):NO(X)0āY1NO(X):O$(X,Y):Y1 X:NP:NP0āX1NP:P$(X):X2 RM,CO,ST,SO,RU,BE,IC,DR,CH,DO,BP:D$;"CLOSEGAMEFILE":216,0:CP$;:25$;".":1030 0 N$"GAME"1090u0 :D$;"OPENGAMEFILE":D$;"DELETEGAMEFILE":D$;"OPENGAMEFILE":D$;"WRITEGAMEFILE"0 X19:NO(X):NO(X)0āY1NO(X):O$(X,Y):Y0 X:NP:NP0āX1NP:P$(X):X1 RM:CO:ST:SO:RU:BE:IC:DR:CH:DO:BP:D$;"`W$"WEST"<j:"THE IDOL IS TO THE "W$"."::255:450Yt** FIGHT THE MONSTER **~:"HOW MANY POINTS TO USE ? ";PN$:PN(PN$)PN0Ģ19:1:958:380PNHPPN1İ2310:1150MPMS(X4)((MS(X4)10)(1)1):DF((1)25)1:PLAYER A CLUE**;75:::"YOU HEAR THE WIND WHISPER..."KPYDY1110[PYDY1080~W$"NORTH":PXDXW$W$"EAST"$PXDXW$W$"WEST".11308W$"SOUTH":PXDXW$W$"EAST"BPXDXW$W$"WEST"L1130VPXDXW$"EAST":1130(1).85ė:17:" THE CHEST WAS TRAPPED!"::"YOU DIED WHEN YOU OPENED IT.":2390:2200:HP0:DL0:TR0:1660v840** PLAYER WON IDOL **:" CONGRATULATIONS! YOU JUST":9)"WON THE IDOL!!!"::DL1:2470:450DL1780**GIVE 0zA7840+** A TREASURE CHEST **P" DO YOU WANT TO OPEN IT ? ";w16368,0:A$:A$"Y"A$"N"920A$::A$"N"840(1).75ė:17:"THE CHEST CONTAINS A SWORD. IT"::"WILL KILL ANY DRAGON YOU MEET!"::MR1:2430:450mH" YOU GAIN "TV(A)" TREASURE POINTS.":TRTRTV(A):450UR*** MAGIC POWDER ? ***\A4(1).6ĺ" YOUR STRENGTH POINTS":8)"JUST DOUBLED!":HPHP2:2430:450f** STRENGTH POTION ? **pA9ĺ" YOU GAINED 300 STRENGTH POINTS!":HPHP300:45)2:PY:PX::"^"::260+(1).75800=(1).51000X*** NOTHING THERE *** :" THERE'S NOTHING HERE."::450** FOUND A TREASURE ** A(20(1))1*FL1FL0:9804:" YOU FOUND ";TR$(A)"!":>A4A7A98609&<]gjnA 'FNVry);@CQZ`cfiknAq%svz} !A%u)A-:=h ,5>BFIKMOQSUY[]_acegikmoqsuwy{} <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$$! $%%#,fp% "Lp"% $`"H Β*+)hi#"H Β!*0+i+idH#d hd`"%$$%H hi#`$% Βc,d*+Me,dPMc*!0 +i+`%J) b+je *`PPPP򠥹,r0tL"$!e (' !!%##`f`" e$$ ",r0st(!#L"L $b . % `L a,gPgA[8 & & &mh)mi ̒e$*+Me$(Mc,dp ,cpP!pA* +i+Mebrs"t`,Tb@0,U`* L" {LB$!$$"% %L"c`g`g`,,Lҩc`@a`de` qLXde`s$t%L$td`e`g`f`Yd`e`L$e (' 8!$!$%"{LȎ !%# "LȎ5 )5`)aW L| JHIHa`G~ҏ#+@HPXs{ɐG֐G+R$a`1  emhi` b` ,r0rbj$s%t`@b`s$$hLde`,rSj,350,SKELETON,200,MINOTAUR,100,GRIFFIN,150,HARPY,75,DRAGON,500,TROLL,125,GOBLIN,175i(J110:ME$(J):( UH-OH!,OOPS!,WHOOPS!,EEEK!,OH NO!,AAARGH!,AAAK!,ZOWIE!,OUCH!,DARN!( J120:TR$(J),TV(J):)10 GOLD PIECES,10,A GOLD SCEPTRE,55,A JEWELETO QUIT ? ";;'16368,0:A$:A$"Y"A$"N"İ2310:1970N'A$"N"ĺ:450g'TR0:DL0:HP0:1660'*** INIT. VARIABLES ***'MN$(10),MS(10),ME$(10),TR$(20),TV(20),KM(10),MP(15,32)'J110:MN$(J),MS(J):S(CYCLOPS,50,WYVERN,300,BASILISKING IT."::"DO YOU WANT TO ";::"F";::"IGHT OR ";::"R";::"UN ? ";e&v*** FIGHT OR RUN ? ***&16368,0:A$:A$"F"A$"R"İ2310:1920&A$:A$"F"X12:1150&1350&*** PLAYER QUITS *** '::10)"ARE YOU SURE"::6)"YOU WANT )5H15INC:768,J:769,4:770::18605%:J110:b%DH1H1INC:H2H2INC:H14H120INCINCl%N1820%X** PLAYER FOUND IDOL **%b::5:"YOU FOUND THE IDOL!!!"::FL1:2450I&l:"UNFORTUNATELY, THERE IS A LARGE"::"DRAGON HERE WHO IS GUARD";::1810:$A$:A$"N"Ģ23:1:958:17:"SO LONG!";:L$A$"Y"1770U$100p$*** HIGH SCORE!!! ***$A$" NEW HIGH SCORE! "::H120:H24:INC1$17:H1:A$:21:H2:A$$&J15:X(16384):X217X206ĝ:1770'%0:S$"Y"āJ(H1INCTR:3#:5)"BONUS FOR FINDING IDOL = ";::DL:#::4:J133:" ";:::J13:4:" ";:36:" "::4:J133:" ";:::#19:9:"YOUR FINAL SCORE = ";::SCTTTRDL:SC:#23:" WOULD YOU LIKE TO PLAY AGAIN ? "; $SCHIHISC::" MN$(J3)23)" = ";::KM(J3);::29);MN$(J6)35)" = ";::KM(J6)"::15);MN$(10)23)" = ";::KM(10)::J139:"-";::":7)"TOTAL = ";:J110:TTTTKM(J)::TT;" X 10 = ";:TTTT10::TT;::" BONUS!"#:10)"TREASURE POINTS = ";:: RAN OUT OF STRENGTH!"::8)"YOU ARE DEAD.":HP0:TR0:DL0:2390:2200:1660i!r** FINAL STATISTICS **!|::9:"*** ";::"FINAL STATISTICS";::" ***"!3:14)"MONSTERS KILLED":J139:"-";::D"J13:1:MN$(J)9)" = ";::KM(J);::15);OL SO YOU WERE SENT TO"::"THE MINES OF MONTEREY.":2200:1660Y J** BONUS FOR IDOL ** T:DL1000:"YOU FOUND THE IDOL! THE DWARVES":"DECLARE YOU THEIR HERO AND AWARD":"YOU 1000 TREASURE POINTS!":2200:1660 ^*** PLAYER DIES ***M!h::" YOUPXTX8XMP(PY,PX):MP(PY,PX)2:PY:PX::"^"::260T"** YOU MADE IT OUT! **,::"CONGRATULATIONS!!! YOU MADE IT"::"OUT OF THE FOREST ALIVE!!!":2490:22006** DIDN'T FIND IDOL **? @:DL0ĺ"UNFORTUNATELY, YOU DIDN'T FIND"::"THE IDX:PY:PX:":":RN(4(1)1):RN1450,1470,1490,1510MMP(PY,PX1)11440_TXPX1:1530wMP(PY,PX1)11440TXPX1:1530MP(PY1,PX)11440TYPY1:1530MP(PY1,PX)11440TYPY12240RN3RN4PYTY:1560"!"::1150$n*** PLAYER DIES ***x(1).85ĺ" THE "MN$(X4)" KILLED YOU WHILE"::6)"YOU WERE RUNNING AWAY.":2390:2200:HP0:DL0:TR0:1660*** PLAYER MAKES IT ***11)"YOU MADE IT!":J11500:*** MOVE PLAYER ***5MP(PY,PX) ";::"FIGHT!"::11501<*** PLAYER RUNS! ***dF:::7:"RUN FOR YOUR LIFE!!!"::J11500:P2560:FL1FL0::1400Z** MUST FIGHT ANYWAY ** d::(1).37ĺ7)"YOU DIDN'T MAKE IT."::7)"NOW YOU MUST "::7);::"FIGHT THE "MN$(X4)** MUST FIGHT ANYWAY **x2270::"THE "MN$(X4)" TOOK YOUR MONEY BUT"::" YOU DID NOT GIVE IT ENOUGH.":J11500:*** PLAYER DIES ***(BANB.75ĺ::5:"THE "MN$(X4)" KILLED YOU."::TR0:DL0:HP0:2390:2200:16602:6:"NOW YOU MUST*** BRIBE MONSTER ***i::"HOW MUCH TREASURE WILL YOU"::"GIVE THE "MN$(X4);:" ? ";BA$:BA(BA$)BA0BATRİ2310:1240NB((MS(X4)2)200(1)1):TRTRBA*** MONSTER ACCEPTS ***BANBĺ:"IT ACCEPTS YOUR BRIBE.":450 PNDFMP1220'*** PLAYER DIES ***HP0:::4:"THE "MN$(X4)" KILLED YOU.":::" YOU LOSE EVERYTHING!":2390:2200:TR0:DL0:1660*** MONSTER DIES ***4::"YOU KILLED THE "MN$(X4)"!":2370::KM(X4)KM(X4)1:HPHPPN:810S2:2220]XD$;"OPEN OBJ.";N$:D$;"CLOSE OBJ.";N$:D$;"DELETE OBJ.";N$:D$;"OPEN OBJ.";N$ubD$;"WRITE OBJ.";N$lN11vW1N11(34)O$(W):V%(W):R%(W)WD$;"CLOSE OBJ.";N$216,0SF0:1690ES$"OBJECTS":ES3:22VALUE: ";V%(N):"SECTION: ";R%(N)+1670W:"LIST TO PRINTER? ";YN$:YN$(YN$,1)D$;"PR#";P(YN$"Y"):YN$"Y"ĺPR$;W1N11&"OBJECT "W": "O$(W):" VALUE: ";V%(W);" SECTION: ";R%(W)0W:D$;"PR#0"D1690 NES$"OBJECTS":E0:SF0|N10NN1(N1NN1ND"OBJECT "N": ":768,Q$_(Q$)0N(Q$):1680sQ$"LIST"1800Q$"QUIT"İ2130:SF220,1680Q$"SAVE"1870Q$"LOAD"1970Q$"?"İ2450::1690Q$""1690O$(N)Q$:SF1!"YN$:YN$"Y"8504ES$TA$" ACTIONS":ES2:2230FD$;"OPEN";L$XD$;"READ";L$_Nj"W1N},A$(W):CT%(W)6Q((A$(W),2)):A$(W)(A$(W),3):A$(W)(CH%(Q))A$(W)@WJD$;"CLOSE";L$T216,0^850h:I$IL$1680rN6:Q:W:22300ES$TA$" ACTIONS":ES2oD$;"OPEN";L$:D$;"CLOSE";L$:D$;"DELETE";L$:D$;"OPEN";L$D$;"WRITE";L$NW1N(34)A$(W):CT%(W)WD$;"CLOSE";L$:WN1:216,0:2080SF0:850:"LOAD ACTIONS? ";Q$,1)"Y"FF1:1230(850/2I$"S"850><:N2850QFW1N:Q116oP((A$(W),1))CH%(Q)ĂQZQ17ĺ"ERROR IN LINE ";W:2080:I$:WN:W:850dA$(W)(A$(W),2)nQ10A$(W)(Q)" "A$(W):1410xA$(W)(Q)A$(W) ".";:Q1770:768,J2:769,3:770:768,J4:769,3:770:768,255J:769,3:770::n2 *** SUBROUTINE TO PLAY TUNES ***2 J0N:T((D$,J61,3)):D((D$,J64,3)):768,T:769,D:770::2 * DID PLAYER WANT ANY SOUND ? *2 S$"N"āJ11000::2 3 14:K2030:768,K:769,2:770::K30201:768,K:769,2:770:::s1 *** TUNE WHEN PLAYER WINS THE IDOL **1 2530:D$"064128064128071032077064077128081040077040077128":N7:2510:1 **EXIT FOREST SOUND**H2 2530:J25555:768,J:769,3:52555:768,J:769,20:770:768,J10:769,10:770::P0` *** CONDOR SOUND ***0j 2530:J2553015:768,J:769,25:770::0t *** "BONUS" SOUND ***0~ 2530:J115:768,175:769,8:770:768,100:769,8:770::0 *** IDOL SOUND ***G1 2530:J8,J:769,3:770::*/$ *** PIT SOUND ***h/. 2530:J10024015:KJ10J1:768,K:769,5:770:::/8 **** TUNE WHEN PLAYER KILLS A MONSTER ***/B 2530:D$"255045235045220040148110185035148110":N5:2510:/L *** DEATH SOUND ***60V 2530:J17TR;::" ":33,32:m.33,40:18:35:" N ":35:" ! ":35:"W-+-E":35:" ! ":35:" S ":33,32:.** RASPBERRY SOUND **. 2530:J112:768,200:769,2:770:768,150:769,2:770::. ** HIT A TREE SOUND **/ 2530:J1703030:764):KB1602210 -16368,0:<-*PLAYER EXIT FOREST ?*_-TY1TY14TX1TX31ġ:1580e--*** PRINT STRENGTH AND TREASURE POINTS ***-33,40:6:34:"STREN.":34:"POINTS:"::34:HP;::" ".11:34:"TREAS.":34:"POINTS:"::34:SV,fJ1800::100:15:12:"BY GLENN ARCHER":255:20:10:"DO YOU WANT SOUND ? ";r,p**PLAYER WANT SOUND?**,z16368,0:S$:S$"Y"S$"N"2170,,* WAIT FOR SPACE BAR *,23:"PRESS THE SPACE BAR TO CONTINUE":16368,0-KB(1638,J25:769,5:770:J1:18:" "::1:"** COPYRIGHT 1985 MICROSPARC, INC. **":J11000:+RJ218:9:J:" O";:38J:"F ":S(16336)::J11000:,\A$"MONTEREY":B$" ":J22111:J:16:A$:768,J10:769,5:770:J1:16:B$::8 SPACERACELET,60,A TREASURE EATER,-75,A WORTHLESS COIN,0,A PILE OF GOLD,300a* **POKE SOUND ROUTINE**z**J770790:K:J,K:*4173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96*>*** DISPLAY TITLE ***\+HA$"IDOL":J27:J:18:A$:768D CROWN,150,MAGIC POWDER,100,AN AMULET,75,A DIAMOND RING,100,A TREASURE CHEST,200,A PEARL NECKLACE,50,A STRENGTH POTION,100,A GOLD CROSS,65E* A SILVER PLATE,100,RED RUBIES,85,20 SMALL GEMS,20,35 GOLD PIECES,35,A NICKEL,5,A JEWELED DAGGER,175,A GOLDEN Bz!#???< *ά"*ҮϠŠàͮŠ**  ͠ˠ**٠ìî!  ΠԺ ӮҠ ӮҠ!ӮϠ"ʮϠЮϠ îԠ  ̠Ơٺ ̠.  Š  ŠŠŠŮΠ7ĠԠǠ ׮Ԡ ЮΠ   ̠ϠŠк ̠ϠŠРy  Šź  ///////////////////////   РӺ  Ϡ" ՠ  /////////////////////// // /Š͠ˠ/ /Ԡé/ /٠ìî/ /Ĭ/ // CRYSTAL BALL GLISTENS HEREM 51,CARPET,A FLYING CARPET IS ROLLED UP HERE 00,A GOLD WEDDING RING IS IN YOUR POCKET FOR YOUR SWEET BRUNHILDE FROM THE GREAT MAGICIAN RALPH,RING 75,GUANO,A PILE OF BAT GUANO SLOWLY ROTS HERE$ 31,PEEL,AN TERNAL USEK I19:ITM%(I),ITM$(I),EX$(I):: GET THE ITEM DESCRIPTIONS  30,BOTTLE,AN EMPTY BOTTLE LIES DISCARDED NEARBY  67,WATER,A SMALL POOL OF WATER COLLECTS HERE  0,BROOM,A SMELLY WITCHES BROOM FLOATS NEARBY 59,BALL,A MAGICAL4 24:"HIT RETURN WHEN READY TO CONTINUE : ";ANS$X :3:12:"WILL 'O THE WISP":6j 255: SPEEDp   *** SETUP STUFF HERE FLG%(10): SPECIAL FLAG LIST FOR INTERNAL USE ITM%(10),ITM$(10),EX$(10): OBJECT TRACKING LIST FOR IN LEARNTO BECOME A MAN AND WHAT THE MEANING OF LIFE IS." :" NOW IN THE TRADITION OF ALL THESE TYPE OF GAMES, I'M SURE YOU'LL GO ALONG WITH THE OBVIOUS AND GET YOURSELF LOST. SO NOW THAT I'M BUSY, WHY DON'T YOU DO JUST THAT?? HAVE FUN ANYHOW..." BUT BEING YOUNG AND STUPID, YOU HAVE DECIDED TO SPEND YOUR LAST DAY OF FREEDOM EXPLORING";7 "THE ENDLESS FOREST THAT SURROUNDS YOUR SHACK. YOU COULD STAY HOME AND WATCH TV BUT THEN YOU'D NEVER GET LOST IN THE FOREST AND FIND HIGH ADVENTURE AND2000: SETUP x3000: PLAY* 255:A  *** MAIN TITLESM :::l 3:12:"WILL 'O THE WISP" 4:12:"BY MARK CAPELLA"_ 6:" YOU ARE A POOR COUNTRY BOY WHO IS DESINED TO MARRY THE BEAUTIFUL AND KIND BRUNHILDE ON TOMORROW MORN.w" 62N";""0 *************************O ** WILL 'O THE WISP **n ** BY MARK CAPELLA ** ** COPYRIGHT (C) 1980 **** BY MICRO-SPARC, INC.**** LINCOLN, MA 01773 ***************************d1000: INSTS n                                        $"ESC"BF1:B:590:BL ********** LAST TEXT SCREEN BEFORE MENU&:3:"Thanks again for your order!!":I15::012::"ALL PROGRAMS ON THIS DISK ARE":"COPYRIGHT (C) 1986 BY NIBBLE":"MICROSPARC, INC. CONCORD, MA":::"UNAUTHORIZEg the Nibble":A$;"!":? "The programs on this disk are:":X I1NP:5:P$(I):I :1010: ********** GET KEYSTROKE FLAG$"ESC"ī590 I1F :3 B1F1:3:A122:S$(A,B)"@"A23:500 S$(A,B) A 1010FLAG1 @II1 J768,S$(I,F)D T(S$(I,F),1,1)"@"I0:FF1:320` ^(S$(I,F),1,1)"#"370i h320y rD$;"CLOSE" |(1101)6İ1060: ********** UPPER/LOWER CASE ROUTINE  ********** FIRST TEXT SCREEN ::3 "Thank you for orderin D$;"READ NIBMENU". A$: A$ = DISK NAME[ NA$"NIBBLE "A$:22:20((NA$)2):NA$b 1 NP: NP = NUMBER OF PROGRAMS ON DISK I1NP:P$(I):I MM: MM = NUMBER OF VALID MENU ENTRIES "I1MM:MP$(I):RC$(I):I ,S$ 6I0:F***** READ INFO FROM NIBMENU TEXTFILEN P$(20): P$ = PROGRAM NAME S$(20,22): S$ = LINES OF TEXT INSTRUCTIONS RC$(20): RC$ = COMMAND USED TO RUN PROGRAM MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU D$;"OPEN NIBMENU"Z::D$(4) d950I n11:3:"MICROSPARC PRESENTS NIBBLE SOFTWARE"g x15:13:"PLEASE WAIT..." ********** GET HI-RES SCREEN AND THEN SET DISPLAY SWITCHES D$"BLOAD STARTUP.SCREEN" G(16304)(16301)(16300)(16297)% *****N ******* 7/30/86 *******;* HELLO *X* BY OWL *u(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC. *<* CONCORD, MA 01742 *F***********************P1100: ********** INPUT-ANYTHING ROUTINE                  $"U"18103RU%(R)ĺ"YOU CAN'T GO THAT WAY":GRU%(R):1460:fQR$"DOWN"QM$"D"1840RD%(R)ĺ"YOU CAN'T GO THAT WAY":&RD%(R):1460:0Q$"6 SCORE"ĺT::Q$"6 QUIT"ĺ"YOUR SCORE IS ";T:"COME AND PLAY AGAIN SOMETIME.CAN'T GO THAT WAY":(RS%(R):1460:SQR$(Q$,4):QR$"EAST"QM$"E"1750{RE%(R)ĺ"YOU CAN'T GO THAT WAY":RE%(R):1460:QR$"WEST"QM$"W"1780RW%(R)ĺ"YOU CAN'T GO THAT WAY":RW%(R):1460: (Q$,2)"UP"QMAY":F(0)F(0)1:1630JW:T"YOU AREN'T CARRYING IT"N^R1TTV%(W)ThprQR$(Q$,5):QM$(Q$,4)|QR$"NORTH"QM$"N"1690RN%(R)ĺ"YOU CAN'T GO THAT WAY":RN%(R):1460:QR$"SOUTH"QM$"S"1720RS%(R)ĺ"YOU 185,133,135,132h% 136,32,44,213,173,0,2,201,3,208,3,76,99,216,169,0,133,13,133,14,169,0,160,2,32,237% 227,32,61,231,32,123,218,165,135,164,136,133,184,132,185,32,183,0,96,0 SINCE LAST SAVE.":$ :"?";:10:"FOR HELP: THIS LIST!"c$ :"PRESS ANY KEY WHEN READY";:T$:$ "TOO MANY LINES":NN1:2540:850$ I070:ML:768I,ML:I:% 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165,184,164,R .OBJ FILE."]# :"LIST";:10:"LISTS DESCRIPTIONS OR OBJECTS":10:"CURRENTLY IN MEMORY."# :"NNN";:10:"EDIT DESCRIPTION OR OBJECT":10:"SPECIFIED BY NNN."$ :"QUIT";:10:"RETURN TO MAIN MENU.":10:"'QUIT WITHOUT SAVING?' IF":10:"CHANGEST EDITOR COMMANDS"?" "ALL COMMANDS ENTERED AT FIRST PROMPT."" :"";:10::"DESCRIPTIONS ONLY:":10:"SKIPS TO NEXT PROMPT,":10:"PRESERVING PREVIOUS CONTENTS."" :"SAVE";:10:"SAVES .DES OR .OBJ FILE." # :"LOAD";:10:"LOADS .DES OY KEY TO CONTINUE":T$!!L 216,06!V ES290,850,1640I!` PE0ĺD$(W):e!j DL(D$(W)):LN(DL40)!t I1LN:(D$(W),40I39,40)::(D$(W),40I39):!~ :"RUN ACS.PLAYER? ";YN$:(YN$,1)"Y"ĺD$"RUN ACS.PLAYER"! " :"DESCRIPTION AND OBJECER10ĺ"FILE LOCKED":2340C  ER11ĺ"ILLEGAL FILE NAME":2340j  ER13ĺ"FILE TYPE MISMATCH":2340  "ERROR #";ER" IN LINE ";(218)(219)256 $ EL1EL$"WRITE":2360 . EL$"READ" 8 "UNABLE TO "EL$:ES$" FILE."!B D$"CLOSE":"PRESS AN POINT FOR DISK WRITE;EL2: ENTRY POINT FOR DISK READIER(222)qER4ĺ"DISK WRITE PROTECTED":2340ER5ĺ"FILE NOT FOUND OR EMPTY":2340ER6ĺ"FILE NOT FOUND":2340ER8ĺ"DISK I/O ERROR":2340ER9ĺ"DISK FULL":2340 )4K>H'R QUIT CHECKER5\SF2170Vf"QUIT WITHOUT SAVING? ";YN$pp(YN$,1)"Y"SF2:{zSF1: PAD LINE NUMBER N WITH LEADING 0'SNS$(W):NL(NS$):NL22210("00",3NL);NS$" ";:EL1:2240: ENTRY30,D$;"OPEN OBJ.";N$:D$;"READ OBJ.";N$4N1@W1N1YO$(W):V%(W):R%(W)`WxD$;"CLOSE OBJ.";N$216,0N1" OBJECT(S) LOADED" N1N11:NN11690 K1W1*Q((A$(K),2)):A$(K)(A$(K),3):A$(K)(CH%(Q))A$(KOTHIC.SET 1901 (4)"EXEC CASTLE EXEC":P CREATE FILE IF NOT FOUNDc 216,0:D$(4) D$"OPEN CASTLE EXEC":D$"WRITE CASTLE EXEC" "FP":"POKE 103,1":"POKE 104,64":"POKE 16384,0":"RUN CASTLE RICHE.MAIN" D$"CLOSE":170D RBOOT":520:ADRS(0),"HRCG":ADRS0ADRSADRS65536 nA2:CSADRS768A:CS:CH(CS256):CLCS256CH:ADRS7,CL:ADRS8,CH xI1A:CN$:(4);"BLOAD";CN$;",A";CS(I1)768:I ADRS3:216,0:160 :"UNABLE TO LOAD":216,0: FLOW.SET,G **********************9* CASTLE RICHE *U* BY BEN GEER *q(* COPYRIGHT (C) 1984 *2* BY MICROSPARC, INC *<* LINCOLN, MA. 01773 *F**********************P8191Z:::16302,0:1406 dADRS0:(4);"BLOA  10/125,82153,82147,87119,87125,82:860DN$"CHAIR"730161,76161,64171,64171,52182,56182,68171,64:161,64171,68171,80:182,68182,80:860N$"BOOK"790RM5X189:Y76:780RM8BP0X136:Y64:780RM4RM8112,80112,64119,56147,56147,72:147,56140,64140,80:140,64112,64:119,64119,72:650oNO(RM)0870XX1NO(RM):N$O$(RM,XX)N$"CANE"69073,8773,8594,8597,8394,8290,8290,80100,82100,8594,8773,87:860N$"RUG"719X5,Y17:X17,Y17X13,Y17X13,Y19X15,Y19X15,Y17XX7,Y25X5,Y27X5,Y25X7,Y22X12,Y22X15,Y25X15,Y27X12,Y25:X8,Y22X8,Y27bX12,Y22X12,Y27:X9,Y25X11,Y25:X25,Y30X25,Y25l650vRM9650],Y30X35,Y35X30,Y32X27,Y35X25,Y32X20,Y35X25,Y30:X30,Y30X30,Y25X17,Y25:X22,Y25X22,Y30X20,Y30X15,Y35X20,Y32X22,Y32DX37,Y25X42,Y30X37,Y32X37,Y35X40,Y35>NX3,Y17X7,Y17X7,Y19X5,Y15X27,Y10X40,Y10X50,Y15X55,Y25X65,Y25X70,Y20X70,Y10X65,Y5X60,Y5&X55,Y10X57,Y2X67,Y2X72,Y10X72,Y20X65,Y27X50,Y27X50,Y35X47,Y35X45,Y32A0X40,Y35X40,Y33X45,Y30X40,Y25X32,Y25X32,Y15X12,Y15X15,Y17"650X86:Y34:0:X47,Y34X50,Y34:X15,Y34:X20,Y34:X27,Y34:X35,Y34:X37,Y34:X40,Y34:3X,Y10X5,Y15X15,Y15X20,Y10X20,Y22X17,Y25X17,Y30X2,Y30X2,Y25X,Y22X,Y10[X20,Y45,Y10qX40,Y20X35,Y20X35,Y17X37,Y15:X41,Y15X32,Y15X32,Y20X25,Y20X25,Y17X30,Y10X25,Y20X20,Y20X20,Y17X22,Y15:X17,Y15X26,Y15:X2,Y10X7,Y10X2,Y10X7,Y10:X12,Y10X17,Y10:X5,Y17X7X,YX5,Y5X15,Y5X20,YX20,Y12X17,Y15X17,Y20X2,Y20X2,Y15X,Y12X,YX20,Y5X30,YX50,YX60,Y10X60,Y20X45,Y32X30,Y32X25,Y25X30,Y30X45,Y30X55,Y20X55,Y17X47,Y17X47,Y20X40,Y20X40,Y17X:650RM4630`161,24182,24182,44161,44161,24:164,28178,28178,40164,40164,28167,33169,33169,35167,35167,33BE0520X90:Y49:0:X2,Y19X17,Y19:X20,Y19X32,Y19:X35,Y19X47,Y19:X55,Y19X60,Y19:3Y133,68154,68:3U r133,72133,56154,56154,64133,64:133,56136,52150,52154,56 |136,52136,40150,40150,52:DR0ē133,72154,72154,64:6500:154,68156,68:3:133,64136,72157,72154,64154,72:133,72136,80136,72:136,80157,80157,72140,72:650j J122,36136,36136,68122,68122,36:0:143,68154,68:3:140,32154,32154,76140,72:650y TRM8400 ^0:84,68122,68:3:84,7684,5691,4891,5684,64119,64126,5691,56 h84,72119,72126,64:119,64119,76:126,56126,68:0:0:108,6884,68:3:108,40108,68105,72105,52108,4887,4887,40108,40 687,4884,52105,52:84,5284,72105,72:87,60101,60101,6487,6487,60 @0:143,68119,68:3:119,32140,32140,72119,72119,32:IC0ē122,44122,60:140,32143,32143,68120:F0İ170 : DI$(DE$,(D1)51,5(D2D4)):R H9(36):V9(37):d "O.K.":1030 CY$;:2:2:CV$;:11:38:CW$;CP$; 63,463,9177,6877,1663,4:77,16203,16217,4217,91:203,16203,68217,91:203,6877,68 "RM5340J ,HAVE ";QT$;N$;QT$;".":1030! n1 xF0:NP0ıT XX1NP:P$(XX)N$FXX:XXNP^ XX: 170:F0ġ:QT$;N$;QT$;" ISN'T HERE.":1030 F0:NO(RM)0ı XX1NO(RM):O$(RM,XX)N$FXX:XXNO(RM) XX: 120:F0İ150 5 **********************= * CASTLE RICHE.MAIN *[ * BY BEN GEER *y( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * LINCOLN, MA. 01773 *F **********************P:Z2740 d120:F0ġ:"YOU DON'T                                 time it appears in a program line",3145Y18:1:958:"CTL-F COMMAND...":PR50020:1:"SELECT ANY CHARACTER. CURSOR WILL STOP ON EACH OCCURRENCE OF THAT CHARACTER"23:1:"(SPEED GREATLY REDUCED FOR THIS DEMO)":510H20:1:"Selec7:1:"100 PRINT ";Q$;"SEEK THE TREASURE";Q$S1797,80:3:33:"27":PR47518:1:"CTL-F PERMITS YOU TO ";::"FIND";::" ANY CHARACTER EVERY TIME IT APPEARS IN A PROGRAM LINE":480"18:1:"CTL-F permits you to find any character EVERY ves cursor to end of line instantly"X22:1:"(Speed GREATLY reduced for demo only)"z3:10:"LINE END ":1797,208X17981816:X,(X)128:100:3600:X,(X)128:X1818,60:31453:10:"DONE "====CTL-F FIND====901L-E lets you get to the end of the line INSTANTLY for faster editing"R3145w18:1:958:"CTL-E COMMAND..."PR42020:1:"MOVES CURSOR TO END OF LINE INSTANTLY"22:1:"(SPEED GREATLY REDUCED FOR THIS DEMO)":430$20:1:"Mo=====CTL-E END OF LINE=====#m90Qr7:1:"100 PRINT ";Q$;"TAKE THE BUS";Q$kw1797,80:3:33:"22"w|PR39018:1:"CTL-E LETS YOU GET TO THE ";::"END";::" OF THE LINE ";::"INSTANTLY";::" FOR FASTER EDITING":395H18:1:"CT:33:"29":PR340[O20:1:958:"PRESSING CTL-D ";::"DELETES";::" the letter":345T20:1:958:"Pressing CTL-D (or the ";Q$;"DELETE";Q$;" key on the Apple //e) DELETES the letter"Y3145^3:10:"DONE ":1830,60c3145hd Right arrows control cursor":3700L,22:1:LK$"Locate character":3700n13:10:"---> ":1797,2086X17981811:X,(X)128:100:3600:X,(X)128:X;1812,77:3610@7:21:868:"ING CAN BE FUN! ";Q$E3:10:"DELETE [M]"J3280h18:1:"CTL-D ALLOWS YOU TO ";::"DELETE";::" A CHARACTER REGARDLESS OF ITS LOCATION":28518:1:"CTL-D allows you to delete a character regardless of its location"3145"18:1:958:"CTL-D COMMAND..."$'20:1:LK$"Left an "620:1:"LEFT and right arrows select position"gX2311:7:12X:(G$,X,1):100:3595:Xz3:10:"DONE"1830,60:3145CTL-D DELETE90 7:1:"100 PRINT ";Q$;"PROGRAMMMING CAN BE FUN! ";Q$1797,80:3:33:"30":PR5 20:1:"Left and RIGHT arrows select position "W 3:10:"---> ":1797,208x G$"do you come here often?" X123:7:12X:(G$,X,1):100:3595:X 3:10:"UP CASE ":1040,204:3145:G$"DO YOU COME HERE OFTEN?"3:10:"<--- ou to shift between capitals and lower case letters"^ :"If you CAN type lower case!"h 3145 18:1:958:"CTL-A COMMAND..." 20:1:"Note ";Q$;"L";Q$;" in ";::"LINE";::" indicates lower case" 3:10:"LOW CASE":1040,12:3145pO|`ժժժժժժp?|~?px*U*U*U*U*U*P*U*U*U*U*U |gp|@0@`ժժժժժժ``0L? ~pO1~y `c 3`cLc cc U @?`p~p|ժժU*(U*@?p~px|x U*U*U*U*U*pgT*@?p~px|ЪժժժՊ@?~X0FAF1SL)'R ********** CATALOG SELECTED H\:49168,0::D$;"CATALOG":rf24:7:"Press to continue";p49168,0:49152,128:z ********** QUIT SELECTED22::958:"Do you really want to quit? (Y/N)";:49168,049168,0:49152,UBROUTINE& 61N:SX:X$(SLOS);:I ********** SELECTION ROUTINEb SL(ME1)İ860:600*SLMEİ900:SL1:780:68042:1:" "::2:1:RC$(SL):> ********** EXECUTE A VALID MENU CHOICEH49168,0::1100:D$;RC$(128):Z$"1"Z$(ME)SL(Z$):NOS:780:700Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z950Z20ī380SLSLZ(Z10):SLSLME(SLME)ME(SL1)NOS:780:Z10700800  ********** PRINT POINTER S:8:ME". Quit"C21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICENSL:OSSL:780:Z0:24:86801:12:SL:49168,0:16384,128::Z$((16384)MEMM2:X$(0)" ":X$(1)"-->":Wb1:1:"Selection: : Instructions"l3:"----------------------------------------";v5:20((A$)2):A$I1ME2:61I:8:I". "MP$(I):61(ME1):8:ME1". Catalog Disk"61ME6:"Thanks again for your order !",12:T6:"ALL PROGRAMS ON THIS DISK ARE"|&6:"COPYRIGHT (C) 1986 BY NIBBLE"06:"MICROSPARC, INC. CONCORD, MA"::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"D1030N ********** SET UP MENU!X:Z 1030:FLAG$"ESC"ī600P  ********** CYCLE THRU NIBMENU TEXT SCREENSX A1a :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600 S$(A)"#"510 S$(A) AA1:460  ********** LAST TEXT SCREEN BEFORE MENU :3",1)"#"350 T320$ ^D$;"CLOSE"a h(1101)6İ1080: ********** UPPER/LOWER CASE ROUTINE r ********** FIRST TEXT SCREEN |::3 "Thank you for ordering the Nibble":A$;"!": "The programs on this disk are:": Z1NP:5:P$(Z) A$ = DISK NAME@ NA$"NIBBLE "A$:22:20((NA$)2):NA$:1k NP: NP = NUMBER OF PROGRAMS ON DISK I1NP:P$(I):I MM: MM = NUMBER OF VALID MENU ENTRIES "I1MM:MP$(I):RC$(I):I ,S$ 6I0 @II1:768,S$(I) J(S$(I),1 11203 P$(20): P$ = PROGRAM NAME b S$(300): S$ = LINES OF TEXT INSTRUCTIONS RC$(20): RC$ = COMMAND USED TO RUN PROGRAM MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU D$;"OPEN NIBMENU" D$;"READ NIBMENU" A$:********* GET HI-RES SCREEN AND SET DISPLAY SWITCHESf x11:3:"MICROSPARC PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BRUN STARTUP.SCREEN" G(16297)(16300)(16301)(16304) ********** READ INFO FROM NIBMENU TEXTFILE ******* 8/08/86 *******;* HELLO *X* BY OWL *u(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC. *<* CONCORD, MA 01742 *F***********************P16384Z::D$(4):(21)d9704 n *         L m m  뭒 L   m   (m , r0+p  LJ  LJ -  ȱ  LJ ȱ  LJ s tL m JJJJl ȱm n   ,L, L%" n  :, " +, S l L\DЪ m L\        s t   ަL !8   @?~X0FAF11U @?`p~p|ժժ!.U*(U*uP*U*U*U*U*U |gp|@0@`Mժժժժժժ``0L? ~pO1~y `c 3`cLc cc 9pO|`ժժժժժժ`p?|~?px*U*U*U*U*U*\sgx1|`>|> s?xIժժժժժժ 9pO|`*U*U*U*~px|ժժժժժ dOBT* @?p~Ap||xժժժՂ `|y #L ~`xCc- Uy(U*U P*U*~IԪժժժժժ``>0 |xaG|p>|`0``Mժժժժժժ 9pO|`*U*U*U*U*U*pՂ `~}?~|C~axGFx- U @?`p~pp[(U*UA*U*~IԪժժժժՊ``0  `0``Lժժժժժժ`?|1|A>L?xacx9pO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?pԪ"- U*U*U*uP*U*U*U*U*U ``0 l`0``Lժժժժժժ``~0 ? |`O1|p> `|3~aL|cc|9pO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ toBT* @?p~px|xժժ9`  c` ` v`` ` v` `ݥ``8 ``+p|~p|*U*U*U*U*U*S( @?p~px|xժժժժժ pgBT* @?p~px|ЪժժժՊ @?~|>xaFaFF?p- U @?`p~?pxԊD$;"CLOSE SAV.";N$:216,0:;3288:216,0:D$"CLOSE":APEL3:2030}EL1:2030: ENTRY POINT FOR DISK WRITEEL2: ENTRY POINT FOR DISK READER(222)ER4ĺ"DISK WRITE PROTECTED":2130ER5ĺ"FILE NOT FOUND OR EMPTY":":.DQ$"6 SAVE"ĺ"I DON'T UNDERSTAND":9N2010XD$;"OPEN SAV.";N$:D$;"CLOSE SAV.";N$:D$;"DELETE SAV.";N$:D$;"OPEN SAV.";N$:D$;"WRITE SAV.";N$bW099lF(W)vWN1W1N1O$(W):V%(W):R%(W)WR:THȑnhmȑstLS g ^ m  ` ^LLg L@A8m  @0 /@   q@8 @8e@@AiAP`L2Ġ JJJJHȱH ȩȩȩȑhhȩȩȑ /"& &  "  gLS) LSȩȩȩ ȩȩȩ gȭ   :[>"0 LIST":"1 CATALOGD1":"2 CATALOGD2":"* CALL-151":"< D$=CHR$(4)">"> D$=CHR$(13)+CHR$(4)":"G GOTO":"H HTAB":"L LIST":"S SAVE":"T TEXT":"V VTAB"C?22:1:LK$"This is only a PARTIAL list of more thfree sectors on most recently accessed drive and indicates that drive number":3700`=3175x=====.E ESCAPE====~==4:3:"ESCAPE FUNCTION TABLE"=1746,174:1747,5=3175==:" ESCAPE TABLE FUNCTIONS ":>A$:120:912:912:31452A4A7A9860H" YOU GAIN "TV(A)" TREASURE POINTS.":TRTRTV(A):450R*** MAGIC POWDER ? ***M\D YOU TO A NEW SPOT!":24109MP(PY,PX)50:PY:PX:":"vJ((1)14)1:K((1)31)1:MP(J,K)1(JPYKPX)730PYJ:PXK:TXPX:TYPY:XMP(PY,PX):MP(PY,PX)2:PY:PX::"^"::260(1).75800(1).51000*** NOTHING THERE ***(:6:"YOU FELL INTO A PIT!":2350iLS((20(1))1)10:HPHPLS::" YOU LOSE "LS" STRENGTH POINTS.":HP0HP0:DL0:TR0:10)"YOU ARE DEAD!":2390:2200:1660450*** GIANT CONDOR ***:"A GIANT CONDOR GRABBED YOU"::"AND MOVE**GXMP(TY,TX)1İ2330::10::"YOU HIT A TREE!"::TYPY:TXPX:450zbMP(PY,PX)50:PY:PX:":":A$"N"A$"S"PYTYlA$"E"A$"W"PXTXvXMP(PY,PX):MP(PY,PX)2:PY:PX::"^"::260(1).55710*** PLAYER FELL INTO A PIT ***"ICH DIRECTION (";::"Q";::" TO QUIT) ? ";r16368,0:A$:A$"N"A$"W"A$"E"A$"S"A$"Q"İ2310:520A$:A$"N"TYPY1:580A$"S"TYPY1:580&A$"W"TXPX1:5800A$"Q"1960:TXPX1D2240N*** HIT A TREE ? *ROUTINES **5A10:J13:A$("FBR",J,1)A1J:J3<JWA$:A11150,1240,1350t**IS PLAYER BOXED IN?**~2560** IS PLAYER DEAD ? **HP11640HP10000HP10000CV(37):2270:37,CV** GET A DIRECTION **,:"WHD KILLED THE DRAGON!"::2370:KM(8)KM(8)1:810M r** PRINT THE OPTIONS ** |19:"YOU MAY DO ONE OF THE FOLLOWING:";:"F) FIGHT B) BRIBE R) RUN"::"WHAT DO YOU WANT TO DO ? "; 16368,0:A$:A$"F"A$"B"A$"R"İ2310:390 ** GOTO THE * "X3640 ,X4750) 6X507809 @X1001890W J*PLAYER FINDS A MONSTER* TME$(((1)10)1)" THERE'S A "MN$(X4)" HERE":"GUARDING ";:A((1)20)1:TR$(A)"!" ^** IF PLAYER HAS SWORD, KILL THE DRAGON **0 hX48MR1Ğ:"YOUR SWORP(J,K)1200N DYJ:DXK:MP(J,K)100:PY8:PX16:TXPX:TYPY:PY:PX::"^":m **SET UP SCREEN DISPLAY** 1:35:"HIGH":34:"SCORE:" 4::HI$(HI):39(HI$):HI$::2270:2290:34,15  ST1ST0:17:450 *GOTO VARIOUS ROUTINES.45L3:170 L((1)10)5C MP(J,K)L:J:K:L1ĺ"X":190L "." ::MP(8,16)2:ST1:HP3000:TR0:MR0:TT0:SC0:J110:KM(J)0::DL0:FL0 ** SET X/Y CO-ORDINATES OF IDOL'S POSITION ** J((1)14)1:K((1)31)1:(J8K16)M:K::" ":J15:17J:K:" ";:K18:" "::K:" "::19 SPACES n19:K2:"CREATING FOREST":21:K4:"PLEASE WAIT" x* CREATE RANDOM FOREST * J114:K131:X(1):X.8L1:170 X.5L4:170 X_+ **********************9* IDOL *U* BY GLEN ARCHER *q(* COPYRIGHT (C) 1985 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P::2010Z** TELL PLAYER TO WAIT **f d:K7:17               UN ? ***7&16368,0:A$:A$"F"A$"R"İ2310:1920R&A$:A$"F"X12:1150\&1350v&*** PLAYER QUITS ***&::10)"ARE YOU SURE"::6)"YOU WANT TO QUIT ? ";&16368,0:A$:A$"Y"A$"N"İ2310:1970&A$"N"ĺ:450 'TR0:DL0:INC%N1820,%X** PLAYER FOUND IDOL **]%b::5:"YOU FOUND THE IDOL!!!"::FL1:2450%l:"UNFORTUNATELY, THERE IS A LARGE"::"DRAGON HERE WHO IS GUARDING IT."::"DO YOU WANT TO ";::"F";::"IGHT OR ";::"R";::"UN ? ";&v*** FIGHT OR R* HIGH SCORE!!! ***B$A$" NEW HIGH SCORE! "::H120:H24:INC1^$17:H1:A$:21:H2:A$$&J15:X(16384):X217X206ĝ:1770$0:S$"Y"āJ(H1INC)5H15INC:768,J:769,4:770::1860$:J110:%DH1H1INC:H2H2INC:H14H120INC ";:36:" "::4:J133:" ";:::\#19:9:"YOUR FINAL SCORE = ";::SCTTTRDL:SC:#23:" WOULD YOU LIKE TO PLAY AGAIN ? ";#SCHIHISC::" ";::1810#A$:A$"N"Ģ23:1:958:17:"SO LONG!";:#A$"Y"1770#100$**)" = ";::KM(10)::J139:"-";::~":7)"TOTAL = ";:J110:TTTTKM(J)::TT;" X 10 = ";:TTTT10::TT;::" BONUS!"":10)"TREASURE POINTS = ";::TR:":5)"BONUS FOR FINDING IDOL = ";::DL:%#::4:J133:" ";:::J13:4:"TATISTICS **A!|::9:"*** ";::"FINAL STATISTICS";::" ***"q!3:14)"MONSTERS KILLED":J139:"-";::!J13:1:MN$(J)9)" = ";::KM(J);::15);MN$(J3)23)" = ";::KM(J3);::29);MN$(J6)35)" = ";::KM(J6)%"::15);MN$(10)23:DL1000:"YOU FOUND THE IDOL! THE DWARVES":"DECLARE YOU THEIR HERO AND AWARD":"YOU 1000 TREASURE POINTS!":2200:1660 ^*** PLAYER DIES *** h::" YOU RAN OUT OF STRENGTH!"::8)"YOU ARE DEAD.":HP0:TR0:DL0:2390:2200:1660 !r** FINAL S"CONGRATULATIONS!!! YOU MADE IT"::"OUT OF THE FOREST ALIVE!!!":2490:2200j6** DIDN'T FIND IDOL **@:DL0ĺ"UNFORTUNATELY, YOU DIDN'T FIND"::"THE IDOL SO YOU WERE SENT TO"::"THE MINES OF MONTEREY.":2200:1660J** BONUS FOR IDOL **{ T30MP(PY,PX1)11440,TXPX1:1530DMP(PY1,PX)11440VTYPY1:1530nMP(PY1,PX)11440zTYPY12240RN3RN4PYTY:1560PXTXXMP(PY,PX):MP(PY,PX)2:PY:PX::"^"::260"** YOU MADE IT OUT! **N,::)"YOU WERE RUNNING AWAY.":2390:2200:HP0:DL0:TR0:1660W*** PLAYER MAKES IT ***{11)"YOU MADE IT!":J11500:*** MOVE PLAYER ***MP(PY,PX)X:PY:PX:":":RN(4(1)1):RN1450,1470,1490,1510MP(PY,PX1)11440TXPX1:1511500:&P2560:FL1FL0::1400CZ** MUST FIGHT ANYWAY **d::(1).4ĺ7)"YOU DIDN'T MAKE IT."::7)"NOW YOU MUST "::7);::"FIGHT THE "MN$(X4)"!"::1150n*** PLAYER DIES ***:x(1).8ĺ" THE "MN$(X4)" KILLED YOU WHILE"::6 GIVE IT ENOUGH.":J11500:6*** PLAYER DIES ***(BANB.75ĺ::5:"THE "MN$(X4)" KILLED YOU."::TR0:DL0:HP0:2390:2200:16602:6:"NOW YOU MUST ";::"FIGHT!"::1150<*** PLAYER RUNS! *** F:::7:"RUN FOR YOUR LIFE!!!"::J;BA$:BA(BA$)*BA0BATRİ2310:1240UNB((MS(X4)2)200(1)1):TRTRBAr*** MONSTER ACCEPTS ***BANBĺ:"IT ACCEPTS YOUR BRIBE.":450 ** MUST FIGHT ANYWAY **2270::"THE "MN$(X4)" TOOK YOUR MONEY BUT"::" YOU DID NOT" YOU LOSE EVERYTHING!":2390:2200:TR0:DL0:1660Q*** MONSTER DIES ***4::"YOU KILLED THE "MN$(X4)"!":2370::KM(X4)KM(X4)1:HPHPPN:810*** BRIBE MONSTER ***::"HOW MUCH TREASURE WILL YOU"::"GIVE THE "MN$(X4);:" ? "~:"HOW MANY POINTS TO USE ? ";PN$:PN(PN$)KPN0Ģ19:1:958:380gPNHPPN1İ2310:1150MPMS(X4)((MS(X4)10)(1)1):DF((1)25)1:PNDFMP1220*** PLAYER DIES ***7HP0:::4:"THE "MN$(X4)" KILLED YOU.":::#W$"NORTH":PXDXW$W$"EAST";$PXDXW$W$"WEST"E.1130h8W$"SOUTH":PXDXW$W$"EAST"BPXDXW$W$"WEST"L1130VPXDXW$"EAST":1130`W$"WEST"j:"THE IDOL IS TO THE "W$"."::255:450t** FIGHT THE MONSTER **/">AND MORE ";l 36205l X195:"MORE ";:X?l 3565Pl X10242039cl (X)1603560xl (X)197ĹX,32l Xl 1:1:X192:" GALE ";:Xl 255l 3615l :3280l=====DELAY LOOPS=====lZ15ZZ:Z:m Z112ZZ:OU BOXED YOURSELF IN!"::" YOU DIED FROM STARVATION.":HP0:DL0:TR0:2390:2200:1660^3 LAY TUNES ***U2 J0N:T((D$,J61,3)):D((D$,J64,3)):768,T:769,D:770::z2 * DID PLAYER WANT ANY SOUND ? *2 S$"N"āJ11000::2 2 ** PLAYER BOXED IN? **X3 MP(PY,PX1)1MP(PY,PX1)1MP(PY1,PX)1MP(PY1,PX)1ġ:::" Y WINS THE IDOL **^1 2530:D$"064128064128071032077064077128081040077040077128":N7:2510:y1 **EXIT FOREST SOUND**1 2530:J25555:768,J:769,3:770:768,J2:769,3:770:768,J4:769,3:770:768,255J:769,3:770:: 2 *** SUBROUTINE TO P3015:768,J:769,25:770:::0t *** "BONUS" SOUND ***z0~ 2530:J115:768,175:769,8:770:768,100:769,8:770::0 *** IDOL SOUND ***0 2530:J14:K2030:768,K:769,2:770::K30201:768,K:769,2:770:::1 *** TUNE WHEN PLAYER0:::6/8 **** TUNE WHEN PLAYER KILLS A MONSTER ***v/B 2530:D$"255045235045220040148110185035148110":N5:2510:/L *** DEATH SOUND ***/V 2530:J1752555:768,J:769,20:770:768,J10:769,10:770::/` *** CONDOR SOUND ***0j 2530:J255 ":33,32:'.** RASPBERRY SOUND **g. 2530:J112:768,200:769,2:770:768,150:769,2:770::. ** HIT A TREE SOUND **. 2530:J1703030:768,J:769,3:770::.$ *** PIT SOUND ***/. 2530:J10024015:KJ10J1:768,K:769,5:77-4-*** PRINT STRENGTH AND TREASURE POINTS ***r-33,40:6:34:"STREN.":34:"POINTS:"::34:HP;::" "-11:34:"TREAS.":34:"POINTS:"::34:TR;::" ":33,32: .33,40:18:35:" N ":35:" ! ":35:"W-+-E":35:" ! ":35:" SYER WANT SOUND?**9,z16368,0:S$:S$"Y"S$"N"2170?,[,* WAIT FOR SPACE BAR *,23:"PRESS THE SPACE BAR TO CONTINUE":16368,0,KB(16384):KB1602210,16368,0:,*PLAYER EXIT FOREST ?*,TY1TY14TX1TX31ġ:1580J218:9:J:" O";:38J:"F ":S(16336)::J11000:+\A$"MONTEREY":B$" ":J22111:J:16:A$:768,J10:769,5:770:J1:16:B$::8 SPACES+fJ1800::100:15:12:"BY GLENN ARCHER":255:20:10:"DO YOU WANT SOUND ? ";,p**PLA**J770790:K:J,K:_*4173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96z*>*** DISPLAY TITLE ****HA$"IDOL":J27:J:18:A$:768,J25:769,5:770:J1:18:" "::1:"** COPYRIGHT 1985 MICROSPARC, INC. **":J11000::+RKLACE,50,A STRENGTH POTION,100,A GOLD CROSS,65) A SILVER PLATE,100,RED RUBIES,75,20 SMALL GEMS,20,35 GOLD PIECES,35,A NICKEL,5,A JEWELED DAGGER,125,A GOLDEN BRACELET,50,A TREASURE EATER,-75,WORTHLESS COIN,0,PILE OF GOLD,275* **POKE SOUND ROUTINE**10:ME$(J):U( UH-OH!,OOPS!,WHOOPS!,EEEK!,OH NO!,AAARGH!,AAAK!,ZOWIE!,OUCH!,DARN!q( J120:TR$(J),TV(J):.)10 GOLD PIECES,10,A GOLD SCEPTRE,55,A JEWELED CROWN,150,MAGIC POWDER,100,AN AMULET,75,A DIAMOND RING,100,A TREASURE CHEST,200,A PEARL NECHP0:1660''*** INIT. VARIABLES ***c'MN$(10),MS(10),ME$(10),TR$(20),TV(20),KM(10),MP(15,32)'J110:MN$(J),MS(J):'CYCLOPS,50,WYVERN,300,BASILISK,350,SKELETON,200,MINOTAUR,100,GRIFFIN,150,HARPY,75,DRAGON,500,TROLL,125,GOBLIN,175 (J1d LL LHLH C `u8967 ,R,W U ,P`ɭӠҠΠΠ Р̺((*)  b+*HN OI*P,h*,H,`0ɛ` ɍ $h`ɐ 6+` qLȎ LȎ      ӡՠĠŠ΍ĠԠԠƠŠŠŮϠŠĠŠЮҠӠŠŠϠ  HEN READY":T$:19806REL2170,2160{\"UNABLE TO LOAD SAVED GAME.":"TRY AGAIN? ";YN$:(YN$,1)"Y"ĺ"PRESS ANY KEY WHEN READY":T$:390fp"UNABLE TO LOAD "ES$:"FILE FOR "N$:216,0::"ANY KEY WHEN READY":T$:100z"UNABLE TO SAVE GAME.":"PRESS ANY KEY W2130& ER6ĺ"FILE NOT FOUND":2130HER8ĺ"DISK I/O ERROR":2130e ER9ĺ"DISK FULL":2130*ER10ĺ"FILE LOCKED":21304ER11ĺ"ILLEGAL FILE NAME":2130>ER13ĺ"FILE TYPE MISMATCH":2130H"ERROR #";ER" IN LINE ";(218)(219)25:23:K$"Or call (617) 371-1660.":3700q:::LK$"The ":3700::"GALE";::LK$" disk includes DOS 3.3 versions (for the Apple 2, 2 Plus, and //e)":3700r:::LK$"and ProDOS versions (for the //e and //c, 40- and 80-column)":3700p(LK$,X,1);pXpp255::LK$"To order ":3700::"GALE";::LK$", send $49.95 (U.S. funds, postage paid) to":3700::p:10:"MICROSPARC, INC. 45 WINTHROP ST. CONCORD, MA 01742""q:L0:5:"HIGHER NUMBER => FASTER SPEED"6o[KP(16384)Go`KP1283690[oe16368,0:3635oj16368,0:ZZ10(KP176):ZZ1ZZ9ZZZOoo:3265otLOWER CASE CONVERToyPRĺLK$;:o~X1(LK$)o((LK$,X,1))90ĺ(((LK$,X,1))32);:3725700::n3TZ1Ğ7n8X19:10:9(2X):X:3590:XPn=:TZTZ1:TZ1TZ0nB:LK$" Select speed of display by number...":3700:nGPR3665nL2:11:"(PRESENT SPEED=";10ZZ;")":ZOZZ:3670nQ2:11:"(Present Speed=";10ZZ;")":ZOZZ%oV2** PLAYER BOXED IN? **3 MP(PY,PX1)1MP(PY,PX1)1MP(PY1,PX)1MP(PY1,PX)1ġ:::" YOU BOXED YOURSELF IN!"::" YOU DIED FROM STARVATION.":HP0:DL0:TR0:2390:2200:16603 4'"YOU FOUND A BOTTLE OF":"VITAMINS! YOUR STRENGTH POINTS":0>3>3333300>333>3?633>03333 00000333 >kkcc33333333333>003>063333333 cckk>3 3333>0? ?𘘜833?3333333333333333;33333?333? ?00003333?3?33333337;3333333333337;3333303? 33333333333 33333?333 33333 ?0 ?8p`xx``xx>8888866$$~$~$>> >B%$R! *,88888"6">~~`p83;?73  ?30 ?30038<63?00?0333?3 333333>0 ~~ < <~b0  (U*UA*U*~ԪժժժժՊ``0 `0``T*@?p~px|xժժժՂ`~}?~|C~axGFx U@?`p~ppp|~p|(U*U*U*U*U**@?p~px|ժժժժժtoժժժժժժ``~0 ? |`O1|p> `|3~aL|cc|pO|`*U*U*U*U*U* U*U*U*P*U*U*U*U*U ``0 l`0`` čՠŠϠήčՠԠŠήՠĮϠԍԍōŠҍŠҍԠҍՠ٠ĠԮٍԠ΍̠΍ˠ΍Ԡ΍ŠΠӠ٠ĠӠծ̠էŠĠϠԠƍĮҠˠΠҠԠŮ͍ϠŠԮҠӠŠōϠŠԮĠΠӠΠŠĮŠΠӠšŠӍĠӮ&"&"" ,2"2,">,22, &"""  0 "" " ****&""""""&&,22, &< """2,""""***6"""""< >> "*6< ">"A"!!""" !!! """"=#> 0"""!@> H>@ "!  ! B=**+**A&*+**"EEE"""%B@0L?"""!@>>@>@?B<B%$$$$2MDDD(:JJJ*B% R!B%$$XA>> > *666< (#21 *>*>> "2*&" >"  >"  "> """>"""""""<  00>> "    0:1660450**** GIANT CONDOR ***v:"A GIANT CONDOR GRABBED YOU"::"AND MOVED YOU TO A NEW SPOT!":2410MP(PY,PX)50:PY:PX:":"J((1)14)1:K((1)31)1:MP(J,K)1(JPYKPX)730PYJ:PXK:TXPX:TYPY:XMP(PY,PX):MP(PY,PXMP(PY,PX)2:PY:PX::"^"::2602(1).4710V*** PLAYER FELL INTO A PIT ***}:6:"YOU FELL INTO A PIT!":2350LS((20(1))1)10:HPHPLS::" YOU LOSE "LS" STRENGTH POINTS.":HP0HP0:DL0:TR0:10)"YOU ARE DEAD!":2390:220580&A$"W"TXPX1:580.0A$"Q"1960::TXPX1DD2240^N*** HIT A TREE ? ***XMP(TY,TX)1İ2330::10::"YOU HIT A TREE!"::TYPY:TXPX:450bMP(PY,PX)50:PY:PX:":":A$"N"A$"S"PYTYlA$"E"A$"W"PXTX!vXMP(PY,PX):1640HP10000HP100006CV(37):2270:37,CVQ** GET A DIRECTION **:"WHICH DIRECTION (";::"Q";::" TO QUIT) ? ";16368,0:A$:A$"N"A$"W"A$"E"A$"S"A$"Q"İ2310:520A$:A$"N"TYPY1:580A$"S"TYPY1: YOU WANT TO DO ? ";J16368,0:A$:A$"F"A$"B"A$"R"İ2310:390g** GOTO THE ROUTINES **A10:J13:A$("FBR",J,1)A1J:J3JA$:A11150,1240,1350**IS PLAYER BOXED IN?**2560** IS PLAYER DEAD ? **HP1)1:TR$(A)"!"> ^** IF PLAYER HAS SWORD, KILL THE DRAGON ** hX48MR1Ğ:"YOUR SWORD KILLED THE DRAGON!"::2370:KM(8)KM(8)1:810 r** PRINT THE OPTIONS **|19:"YOU MAY DO ONE OF THE FOLLOWING:";:"F) FIGHT B) BRIBE R) RUN"::"WHAT DO2270:2290:34,15 0 ST1ST0:17:450M *GOTO VARIOUS ROUTINES*Z "X3640g ,X4750u 6X50780 ;X7510000 @X1001890 J*PLAYER FINDS A MONSTER* TME$(((1)10)1)" THERE'S A "MN$(X4)" HERE":"GUARDING ";:A((1)20MP(J,K)1205 MP(J,K)75X J((1)14)1:K((1)31)1:(J8K16)MP(J,K)1210 DYJ:DXK:MP(J,K)100:PY8:PX16:TXPX:TYPY:PY:PX::"^": **SET UP SCREEN DISPLAY** 1:35:"HIGH":34:"SCORE:" 4::HI$(HI):39(HI$):HI$::.465L3:170! L((1)10)5D MP(J,K)L:J:K:L1ĺ"X":190M "." ::MP(8,16)2:ST1:HP3000:TR0:MR0:TT0:SC0:J110:KM(J)0::DL0:FL0 ** SET X/Y CO-ORDINATES OF IDOL'S POSITION ** J((1)141):K((1)311):(J8K16):K::" ":J15:17J:K:" ";:K18:" "::K:" "::19 SPACES n19:K2:"CREATING FOREST":21:K4:"PLEASE WAIT" x* CREATE RANDOM FOREST * J114:K131:X(1):X.8L1:170 X.5L4:170 X(U*U P*U*~Ԫժժժժժ``>0 |xaG|p>|`0``T*@?p~Ap||xժժժՂ`|y #L ~`xCc Up|~p|(U*U*U*U*U**@?p~px|ժժժժժdO̍̍̍̍̍̍̍̍̍̍), **********************9* IDOL *U* BY GLEN ARCHER *q(* COPYRIGHT (C) 1985 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P::2010Z** TELL PLAYER TO WAIT **f d:K7:17            !LINE":"PRESS ANY KEY TO CONTINUE":T$:8509WNF1[A$(W1)A$(W):CT%(W1)CT%(W)hW:NN1yCT%(F)0:I0WF:2180768,I$ II1:(I$,I,1)" "(I$,I,1)"."1290CT%(F)I1:A$(F)(I$,I)"INSERT ANOTHER LINE? ";Q$:(TINUE":T$:850VF1F"`TT1-jWTNKtA$(F)A$(W):CT%(F)CT%(W)U~FF1\WiNNTF1r850I$"I"1330:"INSERT BEFORE WHICH LINE ? ";X$:F((X$)):N(TT1)ĺ"TOO MANY LINES":2540:850+(FN)(F1)ĺ"NO SUCH CT%(W)01030+Q1CT%(W):".";:Q6A$(W)=WLD$;"PR#0"U$840g.I$"D"1190o8:B"DELETE FROM ";X$:F((X$)):"TO ";X$:T((X$))L(TF)(TN)(F1)(T1)(FN)ĺ"RANGE ERROR-NO LINES DELETED":"PRESS ANY KEY TO CONI$"E"ĺ:840-I$"Q"ĺ:2130:SF220,850?I$"L"1070XI$:I$:I$"O"1520iI$"I"850:"LIST TO PRINTER? ";YN$:YN$(YN$,1)D$;"PR#";P(YN$"Y"):YN$"Y"ĺPR$;::N = N - 1TA$" ACTIONS:"W1N21800#>A$(N)(I$,I):CT%(N)I1:SF1@HNN1:(NTT)1780,2550R:6:8:TA$" ACTIONS":8:10:"(LI)ST"::10:"(D)ELETE"::10:"(I)NSERT"::10:"(S)AVE"::10:"(LO)AD"\:10:"(E)DIT f:10:"(Q)UIT"p::10:"OPTION:";:I$:I$; zESE ACTIONS USER PROMPTED? ";L$:(L$,1)"Y"L$"USR."N$:TA$"USER-PROMPTED":TT750:780TA$"NON-USER-PROMPTED":L$"NUP."N$:TT400 CT%(N)0:I0WN:2180 768,I$*I$""(I$,1)"X"NN1:8504II1:(I$,I,1)" "(I$,I,1)"."82 v22304D$;"OPEN DES.";N$:D$;"READ DES.";N$<N1HW1N1}D$(W):N%(W):S%(W):E%(W):W%(W):U%(W):D%(W)WD$"CLOSE DES.";N$216,0N1" DESCRIPTION(S) LOADED"N1N11:NN1330N1:SF0Y"ARE THOPEN DES.";N$:D$;"CLOSE DES.";N$MD$;"DELETE DES.";N$:D$;"OPEN DES.";N$e&D$;"WRITE DES.";N$o0N11}:W1N11D(34)D$(W):N%(W):S%(W):E%(W):W%(W):U%(W):D%(W)NWXD$;"CLOSE DES.";N$bSF0:330lES$"DESCRIPTION":ES1TO PRINTER? ";YN$:YN$(YN$,1)KD$;"PR#";P(YN$"Y"):PE0:YN$"Y"PE1YW1N11"SECTION "W"-":2400:" N:"N%(W)" S:"S%(W)" E:"E%(W)" W:"W%(W)" U:"U%(W)" D:"D%(W)WD$;"PR#0"330ES$"DESCRIPTION":ES12220!D$;" hQ$"LIST"4404 rQ$"QUIT"İ2130:SF220,320G |Q$"SAVE"510Z Q$"LOAD"620s Q$"?"İ2450::330 D$(N)Q$ SF1:"NORTH? ";N%(N):"SOUTH? ";S%(N):"EAST? ";E%(N):"WEST? ";W%(N):"UP? ";U%(N):"DOWN? ";D%(N) 310:"LIST "(Q)UIT":::12:"OPTION: ";:IL$I$:I$:I$< I$"A"740M I$"O"1640^ I$"Q"2430o I$"D"220z TT100 :IL$I$320 "N0:SF0 ,N10 6NN1 @N1NN1N J"SECTION "N"-":768,Q$ TQ$""420 ^(Q$)0N(Q$):3209"Y$"A")I(N$)::200$ :210c "INVALID FILE NAME":"PRESS ANY KEY TO CONTINUE":I$:130 :"SLOT # OF PRINTER (0 IF NONE)? ";P$:P((P$)):PR$"":P0P7210 :10:12:"(D)ESCRIPTIONS"::12:"(O)BJECTS"::12:"(A)CTIONS", :12:C **":12< "ADVENTURE NAME (11 CHAR MAX, ?-CATALOG)":N$N (N$)11200 X$(N$,1):X$"?"ė:D$"CATALOG"::"PRESS ANY KEY TO CONTINUE";:I$:130 X$"A"X$"Z"200 (N$)2210 I2(N$):Y$(N$,I,1):(Y$"0"Y$".")Y$"Z"(Y$"),D%(100),CT%(750),A$(750),O$(300),V%(300),R%(300),CH%(16)b ZD$(4):(768)32(800)2İ2560} dCH$"IMOGRCFPAS+-T$JQ" nW116:CH%(W)((CH$,W,1)):W x:2:15:"ACS.WRITER":3:12:"BY JENNY SCHMIDT":5:"** COPYRIGHT 1985 BY MICROSPARC, IN *******08.06.85*******; * ACS.WRITER *X * BY JENNY SCHMIDT *u( * COPYRIGHT (C) 1985 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************: PD$(100),N%(100),S%(100),E%(100),W%(100),U%(100        6)"6 GET"QL$"6 TAKE"15808QR$(Q$,4):W1N1vR%(W)RQR$(O$(W),4)R%(W)0:"OKAY":F(0)F(0)1:1560}W"IT ISN'T HERE":R1TTV%(W)",QL$"6 DROP"16506W1N1@(O$(W),4)(Q$,4)R%(W)0R%(W)R:"OK ";T:(Z(7)(7)"ERROR IN LINE ";W:7dK2K0:GnQL$(Q$,7)`xQL$"6 INVE"1450p"YOU HAVE"|W1N1R%(W)0ĺO$(W)W:QL$"6 LOOK"1510D$(R)Q1N1R%(Q)RĺO$(Q);" IS HERE"Q (Q$,1N11:Q:FL2:)TT((T$,4))4 FL2:dXX$(T$,7,1):FX((T$,4,2)):FY((T$,9))XX$"="F(FX)FY:FL2:(XX$"+"F(FX)F(FX)FY:FL2:2XX$"%"F(FX)((1)100):FL2:<R((T$,4)):1460FFL2:P"YOUR SCORE IS%(Q):O$(Q)O$(N1):R%(Q)R%(N1):V%(Q)V%(N1):FL2:N1N11:F%(0)F%(0)1:VQ:FL2:N1N11:O$(N1)(T$,8):R%(N1)R:V%(N1)((T$,4,3)):FL2:N10FL2:Q1N1(T$,4)(O$(Q),4)R%(Q)RO$(Q)O$(N1):R%(Q)R%(N1):V%(Q)V%(N1):FL2:NFL0:VFL1:$`XX$">"13706jFXFYFL0:AtFL1:U~(T$,4):FL2:aN1N11O$(N1)(T$,8):R%(N1)0:V%(N1)((T$,4,3)):F%(0)F%(0)1:TTV%(N1)FL2:N10FL2:XX$(T$,4):Q1N1HXX$(O$(Q),4)R%(Q)0TTVR((T$,2))FL0:"FL1:s((T$,4)(Q$,4)(T$,4)"????")((Q$,7)(T$,7)(T$,7)"6 ????")FL0:~FL1:XX$(T$,7,1):FXF(((T$,4,2))):FY((T$,9))$XX$"="1090.FXFYFL0:8FL1:BXX$"<"1120LFXFYL0: fQpFL1:4zXX$(T$,4):FL0:Q1N1W(O$(Q),4)XX$R%(Q)0FL1:^Qd|XX$(T$,4):Q1N1(O$(Q),4)XX$R%(Q)RFL0:QFL1:XX$(T$,4):Q1N1(O$(Q),4)XX$R%(Q)RFL1:QFL0:CT%(W)P820#FL1CT%(W)P820A T$A$(W):T1((A$(W),2))T1850,890,930,970,1010,1030,1050,1150,1160,1190,1230,1240,1280,1300,1340,1360 FL2K2*PCT%(W)4W>1380H630RXX$(T$,4):Q1N1\(O$(Q),4)XX$R%(Q)0FW1C FL0CC%(W)P7007FL1CC%(W)P700UT$C$(W):T1((C$(W),2))T1850,890,930,970,1010,1030,1050,1150,1160,1190,1230,1240,1280,1300,1340,1360PCC%(W)WQ$:Q$"6 "Q$P0:FL3W1B FL0LOSE SAV.";N$:610 2020/ ES$"OBJECTS"Y D$;"OPEN OBJ.";N$:D$;"READ OBJ.";N$a N1m W1N1 O$(W):V%(W):R%(W) &W 0D$;"CLOSE OBJ.";N$ :216,0 DW1N1:R%(W)1TTV%(W) NW XR1: b: l1460 vP0:FL3 NUP.";N$R r"DO YOU WANT TO LOAD A PREVIOUSLY SAVED GAME?";Q$:(Q$,1)"N"510] |2000t D$"VERIFY SAV."N$ D$;"OPEN SAV.";N$:D$;"READ SAV.";N$ W099 F(W) W N1 W1N1 O$(W):V%(W):R%(W) W:R:T D$;"CS" D$;"OPEN USR.";N$0 D$;"READ USR.";N$7 BB W1BU A$(W):CT%(W)\ Wt D$;"CLOSE USR.";N$ "ES$"NON-USER-PROMPTED ACTION" ,D$;"OPEN NUP.";N$ 6D$;"READ NUP.";N$ @C JW1C TC$(W):CC%(W) ^W hD$;"CLOSED$"CATALOG":"PRESS ANY KEY WHEN READY":T$:110< 2020R ES$"DESCRIPTION"| D$;"OPEN DES.";N$:D$;"READ DES.";N$ A W1A D$(W):N%(W):S%(W):E%(W):W%(W):U%(W):D%(W) W D$;"CLOSE DES.";N$ ES$"USER-PROMPTED ACTION),D%(100),CT%(750),A$(750),O$(300),V%(300),R%(300),C$(400),CC%(400),F(99)U ZD$(4) d:2:15:"ACS.PLAYER":3:12:"BY JENNY SCHMIDT":5:"** COPYRIGHT 1985 BY MICROSPARC, INC **":12 n"ADVENTURE NAME (? FOR CATALOG): ":"";N$1 x(N$,1)"?"ė: **********************; * ACS.PLAYER *X * BY JENNY SCHMIDT *u( * COPYRIGHT (C) 1985 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************I PD$(100),N%(100),S%(100),E%(100),W%(100),U%(100            @*U*U*U*U*Uժժժժժժ``0F? ~pO1xc `c 3FacLc cc U*@?`p~p|ժժժx{w<|sxο* T@?@p~p||(U*U*U*U*U*pcP*@?p~px|Ԫժժժժ_?<< p|G?ժժժժժժ|sLsy~p*U*U*U*U*U**U*U*U*U*UԪժժժժժ``cpG1 F3L1FcLa|3~a| s|U*@?`p~p|ժժժpys # 3 00F1c Upp~p|(U*U*U*U*U*`A@*@?p~px|ԪժժժժN?8` |ժժժժժժ pO|`*U*U*U*U*U**U*U*U*U*UԪժժժժժ``pO?~ysO?~y|a>x1|`>|> s?xU*@?p~p|ժժժp}{  3 00C1c Up|~p|(U*U*U*U*U*`A@*@?p~px|ժժժժժn_?ӠӠŠΧӠҮԠӠ٠ԬĠŠҠӠϠĠԠӠԠϠŮӠŮԠӠ٠ԬĠŠҠӠ̮ŠԠӠϠŠȠƠŠŮŠӠŠϠŠԮӠӠ̠͠ΠŠŮŠҠŠӠԠŠӠ̮ŠӠŠϠŠԮՠĠΠ٬Ǡή٬ΠԠĠŭנ̠ԠӠŠӠĠĠŠӮՠŠŠϠŠȮĠԠŠŠҠƠŭǠοՠŠΠŠΧ! ! ! "INCREASE BY 5000!"(4'HPHP5000:450JpO|`ժժժժժժp|~pp*U*U*U*U*U*@*U*U*U*U*U|gp8ժժժժժժ``0L 0@1Fc `c 3~acLc cc U @?`p~p|ժժxsg