Willus.com
Home
|
Archive
|
About
CASTLADV.BAS
(14039 bytes)
EMULATE AS:
DEFAULT TYPE (CMD)
|
BASIC program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
10 :IFPOS CASTLE ADVENTURE 20 RESUME 30 CMD"Do you want to restore a previous game";Z$:GOSUB 40 READ [FF]FOR(Z$,)CDBL"Y" RIGHT$ [FF]FOR(Z$,)CDBL"y" / FLAGCDBL:INPUT 33910 2 33984 < 61779 :BCDBL:NCDBL:ECDBL:GCDBL:SICDBL :BOCDBL:PCDBL:JCDBL:CHCDBL:SVCDBL :RCDBL:FCDBL:ZCDBL:INPUT 4 70 YCDBL[FF]CONT():READ YCSNG / GOSUB:GOSUB:GOSUB:GOSUB @ (,),""; 80 FLAGCDBL:Y$CDBL"":Q$CDBL"":A$CDBL"":LCDBLLLEN:READ LCDBL , / CLS 90 READ LCSNG ] / RUN 100 GOSUB:GOSUB"Command: "; 110 POKE CMD A$:RESET ICDBL * [FF]RETURN(A$):READ [FF]ELSE([FF]SET(A$,I,))CSNGZ / [FF]SET(A$,I,)CDBL[FF]TRON([FF]ELSE([FF]SET(A$,I,))STR$ ) 120 SET 130 LECDBL[FF]RETURN(A$):J$CDBL[FF]RESET(A$,):READ J$CDBL" " / A$CDBL[FF]FOR(A$,LESTR$):INPUT RESET 35974 65521 RETURN(A$):J$CDBL[FF]FOR(A$,):READ J$CDBL" " / A$CDBL[FF]RESET(A$,LESTR$):INPUT LET 38534 65521 FOR(A$,):RESET ACDBL * [FF]RETURN(A$):J$CDBL[FF]SET(A$,A,):READ J$CDBL" " / Y$CDBL[FF]SET(A$,ALEN,) 160 SET 170 READ [FF]RETURN(A$)CDBL / KCDBL:INPUT DEF :OPEN READ Q$CDBL"YES" / READ KCDBL / b 180 READ Q$CDBL"YES" / LET :OPEN READ Q$CDBL"NO" / READ KCDBL / v 190 READ Q$CDBL"NO" / LET :OPEN KCDBL:READ Q$CDBL"GET" / 6 200 READ Q$CDBL"DRO" / 8 :OPEN READ Q$CDBL"THR" / 8 :OPEN READ Q$CDBL"LOO" / 4 210 READ Q$CDBL"OPE" / p :OPEN READ Q$CDBL"TAK" / 6 :OPEN READ Q$CDBL"CAR" / 6 220 READ Q$CDBL"REA" / DIM :OPEN READ Q$CDBL"HIT" / :OPEN READ Q$CDBL"JUM" / N 230 READ Q$CDBL"ASK" / :OPEN READ Q$CDBL"SMA" / :OPEN READ Q$CDBL"INV" / DELETE 240 READ Q$CDBL"DIG" / LEFT$ :OPEN READ Q$CDBL"KIL" / :OPEN READ Q$CDBL"FIG" / 250 READ Q$CDBL"DRI" / p :OPEN READ Q$CDBL"CLI" / L :OPEN READ Q$CDBL"FIN" / 6 260 READ Q$CDBL"SAY" / / :OPEN READ Q$CDBL"HEL" / ~ :OPEN READ Q$CDBL"EAT" / > 270 READ Q$CDBL"LEF" / | :OPEN READ Q$CDBL"RIG" / | :OPEN READ Q$CDBL"QUI" / 280 READ Q$CDBL"STA" / READ Y$CDBL"OVE" / < 8841 READ Q$CDBL"SAV" LEFT$ Y$CDBL"GAM" / < :OPEN READ Q$CDBL"RES" LEFT$ Y$CDBL"GAM" / ASC 300 INPUT h 310 READ Y$CDBL"SWO" / RANDOM :OPEN READ Y$CDBL"BOO" / RESTORE :OPEN READ Y$CDBL"NOT" / DEFSNG 320 READ Y$CDBL"EME" / GET :OPEN READ Y$CDBL"GOL" / SYSTEM :OPEN READ Y$CDBL"SIL" / CLEAR 330 READ Y$CDBL"WAT" / :OPEN READ Y$CDBL"JEW" / ERL :OPEN READ Y$CDBL"POR" / STEP 340 READ Y$CDBL"SKE" / READ ZCDBL / OUT 350 READ Y$CDBL"SKE" / READ ZFIXCSNG / POS 360 READ Y$CDBL"PAN" / CLOSE :OPEN READ Y$CDBL"BOA" / < :OPEN READ Y$CDBL"DRA" / LINE 370 READ Y$CDBL"CHE" / EXP :OPEN READ Y$CDBL"SHO" / LOC :OPEN READ Y$CDBL"ROP" / STR$ 380 READ Y$CDBL"FOO" / [FE] :OPEN READ Y$CDBL"MAN" / R :OPEN r 390 READ SCDBL / LIST :OPEN READ SCDBLZ / SCDBL:INPUT @ :OPEN READ SFIXCSNGZ / POS 400 READ BCDBL / LIST :OPEN READ BCDBLZ / BCDBL:INPUT @ :OPEN READ BFIXCSNGZ / POS 410 READ NCDBL / LIST :OPEN READ NCDBLZ / NCDBL:INPUT @ :OPEN READ NFIXCSNGZ / POS 420 READ ECDBL / LIST :OPEN READ ECDBLZ / ECDBL:INPUT @ :OPEN READ EFIXCSNGZ / POS 430 READ GCDBL / LIST :OPEN READ GCDBLZ / GCDBL:INPUT @ :OPEN READ GFIXCSNGZ / POS 440 READ SICDBL / LIST :OPEN READ SICDBLZ / SICDBL:INPUT @ :OPEN READ SIFIXCSNGZ / POS 450 READ JCDBL / LIST :OPEN READ JCDBLZ / JCDBL:INPUT @ :OPEN READ JFIXCSNGZ / POS 460 READ PCDBL / LIST :OPEN READ PCDBLZ / PCDBL:INPUT @ :OPEN READ PFIXCSNGZ / POS 470 READ BOCDBL / LIST :OPEN READ BOCDBLZ / BOCDBL:INPUT @ :OPEN READ BOFIXCSNGZ / POS 480 READ CHCDBL / LIST :OPEN READ CDCDBL LEFT$ CHCDBLZ / CHCDBL:INPUT @ :OPEN READ CHFIXCSNGZ RIGHT$ CDFIXCSNG / POS 490 READ SVCDBL / LIST :OPEN READ SVCDBLZ / SVCDBL:INPUT @ :OPEN READ SVFIXCSNGZ / POS 500 READ RCDBL / LIST :OPEN READ RCDBLZ / RCDBL:INPUT @ :OPEN READ RFIXCSNGZ / POS 510 READ FCDBL / LIST :OPEN READ FCDBLZ / FCDBL:INPUT @ :OPEN READ FFIXCSNGZ / POS 520 READ ZFIXCSNG / POS :OPEN KILL 530 INPUT TRON 540 READ Y$CDBL"POR" / READ PCDBL / RESTORE 550 READ Y$CDBL"POR" / READ ZCDBL / RESTORE 560 READ Y$CDBL"POR" / READ PFIXCSNG / MEM 570 READ Y$CDBL"SKE" / D :OPEN LET 580 READ ZCDBL / CVI :OPEN READ ZFIXCSNG / POS 590 READ ZCDBL / READ Q$CDBL"JUM" / GOSUB:GOSUB"Do you really think you can make it?":KCDBL:INPUT F 22670 INPUT LET 610 KCDBL:GOSUB:GOSUB"Well sorry, you didn't!! The pit was much too large to jump over. Your funeral service will be held in a couple of days." 620 GOSUB"Why don't you try to escape from the castle again, only this time bring something with you to help you cross the pit...":INPUT < 30352 KCDBL:GOSUB:GOSUB"That was a wise decision! The last adventurer that tried to jump over the pit" 640 GOSUB"was never heard from again. Try using something to help you cross the pit.":INPUT F 35472 READ Y$CDBL"BOO" / READ BCDBL / DEFSNG 660 READ Y$CDBL"BOO" / READ BFIXCSNG / MEM 670 READ Y$CDBL"NOT" / READ NCDBL / GET 680 READ Y$CDBL"NOT" / READ NFIXCSNG / MEM 690 READ Y$CDBL"SWO" / READ SCDBL / SYSTEM 700 READ Y$CDBL"SWO" / READ SFIXCSNG / MEM 710 INPUT RESET 720 READ Y$CDBL"HEL" / FRE :OPEN TRON 730 READ ZCDBL / GOSUB:GOSUB"The old man replies, "[FF]TRON(")"Heed my advice young adventurer,":GOSUB"the night holds many secrets!"[FF]TRON(") 740 READ ZFIXCSNG / GOSUB:GOSUB"There is no one to talk to!" 750 INPUT F 63634 READ SVFIXCSNG / :OPEN READ ZFIXCSNG / RANDOM :OPEN READ CDCDBL / GOSUB:GOSUB"There is nothing to dig up.":INPUT F 658 READ ZCDBL LEFT$ SVCDBL / GOSUB:GOSUB"You have uncovered a chest.":CDCDBL:INPUT F 3218 READ Y$CDBL"DRA" / READ ZCDBL / FN 790 READ Y$CDBL"DRA" / READ ZFIXCSNG / POS 800 READ Y$CDBL"EME" / READ ECDBL LEFT$ SCDBL LEFT$ ZCDBL / G1CDBL:INPUT ERL 810 READ Y$CDBL"EME" / READ EFIXCSNG / MEM 820 READ Y$CDBL"EME" / READ ECDBL LEFT$ ZCDBL LEFT$ SFIXCSNG / GOSUB:GOSUB"You don't have the sword.":INPUT F 16019 READ Y$CDBL"SKE" / READ ZCDBL / 840 READ Y$CDBL"SKE" / READ ZFIXCSNG / POS 850 READ Y$CDBL"MAN" / READ ZCDBL / CSNG 860 READ Y$CDBL"MAN" / READ ZFIXCSNG / POS 870 INPUT RESET 880 READ Y$FIXCSNG"PAN" RIGHT$ ZFIXCSNG / RUN 890 ZCDBL:GOSUB:GOSUB"The panel opens and a passage is behind it. You are magically transported to the library. The panel slams shut behind you." 900 RESET DECDBL * o:SET:INPUT 0 910 READ Y$CDBL"PAN" / CLEAR 920 READ Y$CDBL"CHE" / READ CHCDBL / J 930 READ Y$CDBL"CHE" / READ CHFIXCSNG / MEM 940 INPUT AND 950 GOSUB:GOSUB"You are currently carrying the following items:" 960 READ SCDBL / GOSUB"Jewel-studded sword" 970 READ BCDBL / GOSUB"Large leather-bound book" 980 READ NCDBL / GOSUB"Note" 990 READ ECDBL / GOSUB"Glowing emerald" 1000 READ GCDBL / GOSUB"Gold nuggets" 1010 READ SICDBL / GOSUB"Silver bars" 1020 READ BOCDBL / GOSUB"Large board" 1030 READ PCDBL / GOSUB"Portrait of a knight" 1040 READ JCDBL / GOSUB"Jewels (diamonds, rubies, and sapphires)" 1050 READ CHCDBL / GOSUB"Chest filled with coins" 1060 READ SVCDBL / GOSUB"Old rusty shovel" 1070 READ RCDBL / GOSUB"Magic rope" 1080 READ FCDBL / GOSUB"Exotic food" 1090 INPUT F 19607 READ ZCDBL LEFT$ RCDBL / READ Y$CDBL"ROP" / RCDBLSTR$:ZCDBL:INPUT 1110 READ RCDBLSTR$ / READ Y$CDBL"ROP" / POS 1120 READ Y$CDBL"ROP" / READ RFIXCSNG / MEM 1130 READ RFIXCSNG / READ Y$CDBL"ROP" / ^ 1140 READ Y$FIXCSNG"ROP" / RESET 1150 READ ZCDBL LEFT$ PCDBL / GOSUB:GOSUB"You are holding a clue for getting by the dragon.":INPUT F 34968 READ ZCDBL LEFT$ PFIXCSNG / GOSUB:GOSUB"There is a clue in one of the other rooms.":INPUT F 37528 GOSUB:GOSUB"I'm as confused as you are!":INPUT F 40088 READ ZCDBL / FN :OPEN READ ZFIXCSNG / POS 1190 READ ZCDBL / CLEAR :OPEN READ ZFIXCSNG / POS 1200 READ A$CDBL"E" RIGHT$ A$CDBL"W" RIGHT$ A$CDBL"N" RIGHT$ A$CDBL"S" / CSAVE :OPEN TRON 1210 ELSE Z INPUT STRING$,-,INT,SIN,, ,(,2,<,F,d,n,x,* 1220 READ A$CDBL"E" / ZCDBL:INPUT STEP :OPEN READ A$CDBL"S" / ZCDBL:INPUT :OPEN DIM 1230 INPUT D 1240 READ A$CDBL"E" / ZCDBL:INPUT ERROR :OPEN READ A$CDBL"S" / ZCDBL:INPUT STEP :OPEN DIM 1250 READ A$CDBL"W" / ZCDBL:INPUT 0 :OPEN READ A$CDBL"N" / READ BOCDBL / ZCDBL:INPUT b 1260 READ A$CDBL"S" / READ BOCDBL / ZCDBL:INPUT l 1270 READ A$CDBL"E" / READ BOCDBL / ZCDBL:INPUT END 1280 READ BOFIXCSNG / STOP 1290 INPUT DIM 1300 READ A$CDBL"N" / ZCDBL:INPUT STEP :OPEN READ A$CDBL"E" / ZCDBL:INPUT [FE] :OPEN DIM 1310 READ A$CDBL"S" / ZCDBL:INPUT END :OPEN READ A$CDBL"W" / ZCDBL:INPUT b :OPEN DIM 1320 READ A$CDBL"N" / ZCDBL:INPUT ERROR :OPEN READ A$CDBL"W" / ZCDBL:INPUT STEP :OPEN READ A$CDBL"S" / ZCDBL:INPUT MERGE :OPEN DIM 1330 READ A$CDBL"W" / ZCDBL:INPUT l :OPEN 1340 READ A$CDBL"N" / ZCDBL:INPUT END :OPEN READ A$CDBL"E" / ZCDBL :INPUT PRINT :OPEN DIM 1350 READ A$CDBL"S" / ZCDBL :INPUT / :OPEN READ A$CDBL"E" / READ G1CDBL / ZCDBL :INPUT LEFT$ 1360 READ A$CDBL"W" RIGHT$ A$CDBL"N" / READ G1CDBL / DIM 1370 READ G1FIXCSNG / 1380 READ A$CDBL"S" / ZCDBL :INPUT PRINT :OPEN READ A$CDBL"N" / ZCDBL :INPUT FRE :OPEN DIM 1390 READ A$CDBL"W" / ZCDBL:INPUT MERGE :OPEN READ A$CDBL"N" / ZCDBL :INPUT / :OPEN DIM 1400 READ A$CDBL"W" / ZCDBL :INPUT FRE :OPEN READ A$CDBL"S" / DIM :OPEN READ A$CDBL"N" / DIM :OPEN READ A$CDBL"E" / DIM :OPEN TRON 1410 GOSUB:GOSUB"No.":INPUT F 35996 GOSUB:GOSUB"I don't know how to apply that word here.":INPUT F 38557 GOSUB:GOSUB"I don't understand.":LCDBLLSTR$:INPUT F 41117 GOSUB:GOSUB"Surely you jest!":INPUT F 43677 GOSUB:GOSUB"You don't have anything to carry it in.":INPUT F 46237 GOSUB:GOSUB"You already have it!":INPUT F 48797 GOSUB:GOSUB"You can't be serious!":INPUT F 51357 GOSUB:GOSUB"You don't have it!":INPUT F 53918 GOSUB:GOSUB"I don't know how to unlock such a thing!":INPUT F 56478 GOSUB:GOSUB"There isn't one here.":INPUT F 59038 GOSUB:GOSUB"The skeleton replies, "[FF]TRON(")"To escape from the dungeon you must":GOSUB"use all the reasoning skills at your disposal."[FF]TRON("):INPUT F 61599 GOSUB:GOSUB"As you approach the man, he begins to sway back and forth while muttering" 1530 GOSUB"a strange incantation. In a puff of smoke, you turn into a marble statue." 1540 GOSUB"The castle has claimed another inexperienced adventurer. I'll give you another chance to escape from the castle....":INPUT < 3744 GOSUB:GOSUB"You don't have a shovel.":INPUT F 6304 GOSUB:GOSUB"Your attack infuriates the skeleton! He wraps his bony fingers around your" 1570 GOSUB"neck and strangles you until you are dead. Obviously you weren't a worthy" 1580 GOSUB"opponent. Maybe next time you won't feel that you are invincible. Try escaping from the castle again...":INPUT < 13985 GOSUB:GOSUB"I can only describe what I see, I cannot tell you where remote things are.":INPUT F 16545 GOSUB:GOSUB"OK":INPUT F 19105 GOSUB:GOSUB"The chest is full of coins.":INPUT F 21666 GOSUB:GOSUB"The rope slowly uncoils as it winds its way down to the bottom of the pit.":INPUT F 24226 GOSUB:GOSUB"How can you climb a rope that you're not holding":INPUT F 26786 GOSUB:GOSUB"I don't understand your command!":LCDBLLSTR$:INPUT F 29346 GOSUB:GOSUB"I don't know that word.":INPUT F 31907 GOSUB:GOSUB"I don't know what direction you are facing. Please use compass points.":INPUT F 34467 GOSUB:GOSUB"You can't dig through a rock floor.":INPUT F 37027 GOSUB:GOSUB [FF]TRON(")"Hit the emerald"[FF]TRON(")", the painting whispers.":INPUT F 39587 GOSUB:GOSUB"The book says, "[FF]TRON(")"There are jewels in the dungeon."[FF]TRON("):INPUT F 42148 GOSUB:GOSUB"The note says, "[FF]TRON(")"You must escape the dragon!"[FF]TRON("):INPUT F 44708 GOSUB:GOSUB"The inscription reads, "[FF]TRON(")"Made in Japan!"[FF]TRON("):INPUT F 47268 GOSUB:GOSUB"I see no panel here!":INPUT F 49828 GOSUB:GOSUB"The emerald gives off a magical light which forces the dragon away.":INPUT FRE 1740 GOSUB:GOSUB [FF]TRON();" You are in the hall. ";[FF]TRON();:GOSUB 1750 READ BOCDBL / GOSUB"There is a path across the pit.":GOSUB"Exits are to the north, east, south, and west." 1760 READ BOFIXCSNG / GOSUB"There is a large pit barring the way." 1770 READ RCDBL / GOSUB"A rope is stretching from the floor to the bottom of the pit." 1780 INPUT RSET 1790 GOSUB:GOSUB [FF]TRON();" You are in the Queen's chambers. ";[FF]TRON();:GOSUB:GOSUB"The only obvious exit is to the west." 1800 GOSUB"There is a skeleton moving about in the center of the room.":INPUT RSET 1810 GOSUB:GOSUB"The skeleton will not let you pass!":INPUT F 7335 GOSUB:GOSUB [FF]TRON();" You are in the galley. ";[FF]TRON();:GOSUB 1830 GOSUB"You notice that the floor is moving. You realize that it is a trap, but it is too late! You fall into a damp, dark dungeon.":INPUT : 1840 GOSUB:GOSUB [FF]TRON();" You are in the library. ";[FF]TRON();:GOSUB:GOSUB"Exits are to the east and south.":INPUT RSET 1850 RESET DECDBL * o:SET 1860 GOSUB:GOSUB [FF]TRON();" You are in the dungeon. ";[FF]TRON();:GOSUB:GOSUB"A panel appears on the west wall of the dungeon." 1870 GOSUB"Passages lead off in all directions." 1880 INPUT RSET 1890 GOSUB:GOSUB [FF]TRON();" You are in a small, dark chapel. ";[FF]TRON();:GOSUB:GOSUB"Exits are to the east and south.":INPUT RSET 1900 GOSUB:GOSUB [FF]TRON();" You are in the King's chambers. ";[FF]TRON();:GOSUB:GOSUB"Exits are to the north and east." 1910 GOSUB"Silvery water cascades down a fountain.":INPUT RSET 1920 GOSUB:GOSUB [FF]TRON();" You are in the banquet room. ";[FF]TRON();:GOSUB:GOSUB"Exits are to the north, south, and west.":INPUT RSET 1930 GOSUB:GOSUB"There is no exit in that direction!":INPUT F 38058 GOSUB:GOSUB"There is no way across the pit yet.":INPUT F 40618 GOSUB:GOSUB [FF]TRON();" You are in the crown room. ";[FF]TRON();:GOSUB:GOSUB"Exits are to the south and west":INPUT RSET 1960 GOSUB:GOSUB [FF]TRON();" You are in the armory. ";[FF]TRON();:GOSUB:GOSUB"Exits are to the north and east":INPUT RSET 1970 GOSUB:GOSUB [FF]TRON();" You are in the bedroom. ";[FF]TRON();:GOSUB 1980 GOSUB"Exits are to the north and west.":GOSUB"An old man in a wizard costume sits crosslegged on the bed." 1990 GOSUB [FF]TRON(")"Greetings"[FF]TRON(")", says the old man.":INPUT RSET 2000 GOSUB:GOSUB [FF]TRON();" You are in the servant's quarters. ";[FF]TRON();:GOSUB:GOSUB"Exits are to the north and south.":INPUT RSET 2010 GOSUB:GOSUB [FF]TRON();" You are in the dressing room. ";[FF]TRON();:GOSUB 2020 READ G1FIXCSNG / GOSUB"There is a fierce dragon here." :OPEN GOSUB"There are exits to the east and south." 2030 INPUT RSET 2040 GOSUB:GOSUB [FF]TRON(); "You are in the tower. ";[FF]TRON();:GOSUB:GOSUB"Exits are to the west and down.":INPUT RSET 2050 GOSUB:GOSUB"The dragon will not let you pass.":INPUT F 3246 GOSUB:GOSUB"You find a window and climb down the rope into the courtyard. Congratulations!!" 2070 FOR 2080 GOSUB:GOSUB"After you climb down the rope, it vanishes into thin air." 2090 GOSUB"You are at the bottom of a large pit.":INPUT RSET 2100 ELSE Z INPUT 0,D,b,STEP,l,ERROR,END,[FE],MERGE,FRE,/,PRINT,LEFT$,* 2110 READ Y$CDBL"FOO" / READ FCDBL / \ 2120 READ Y$CDBL"FOO" / READ FFIXCSNG / MEM 2130 READ Y$CDBL"EAT" / TRON :OPEN READ Y$FIXCSNG"FOO" / OUT 2140 GOSUB:GOSUB"The food wasn't too bad, but it was full of arsenic! You slowly die......" 2150 GOSUB"Why don't you try to escape from the castle again without making that mistake.":INPUT < 28848 READ Y$CDBL"WAT" / READ ZCDBL / LCDBL:GOSUB:GOSUB"Suddenly your strength is renewed." :OPEN READ ZFIXCSNG / POS :OPEN RESET 2170 INPUT F 33968 GOSUB"You feel as though you are getting weak. You can't last much longer! You better find some water to drink as soon as possible!":INPUT F 36529 GOSUB:GOSUB"You are so tired and weak that you collapse from exhaustion!" 2200 GOSUB"Evidently you weren't an experienced enough adventurer to escape" 2210 GOSUB"from the castle. Don't give up...I'll give you another chance to try.":INPUT < 44209 READ SCDBLZ / GOSUB"A jewel-studded sword lies on the floor." 2230 READ BCDBLZ / GOSUB"A large leather-bound book is here." 2240 READ NCDBLZ / GOSUB"A note may be found nearby." 2250 READ ECDBLZ / GOSUB"There is a glowing emerald sitting on the floor." 2260 READ GCDBLZ / GOSUB"Gold nuggets lay in a pile in the corner." 2270 READ SICDBLZ / GOSUB"A pile of silver bars is stacked on the floor." 2280 READ ZCDBL / FIX :OPEN READ BOCDBLZ / GOSUB"A large board is nearby." 2290 READ PCDBLZ / GOSUB"A portrait of a knight with piercing eyes is on the floor nearby." 2300 READ JCDBLZ / GOSUB"You see diamonds, rubies, and sapphires glinting in the dim light." 2310 READ CDFIXCSNG / :OPEN READ CHCDBLZ / GOSUB"A chest filled with coins is sitting on the floor." 2320 READ SVCDBLZ / GOSUB"An old rusty shovel is leaning against the wall." 2330 READ RCDBL / $ :OPEN READ RCDBLZ / GOSUB"A magic rope is floating in the air." 2340 READ FCDBLZ / GOSUB"A variety of exotic food releases a tantalizing aroma." 2350 INPUT F 14517 READ Y$CDBL"SWO" / j :OPEN READ Y$CDBL"BOO" / t :OPEN READ Y$CDBL"NOT" / ~ 2370 READ Y$CDBL"EME" / DATA :OPEN READ Y$CDBL"GOL" / RETURN :OPEN READ Y$CDBL"SIL" / LINE 2380 READ Y$CDBL"BOA" / CLOSE :OPEN READ Y$CDBL"POR" / DEF :OPEN READ Y$CDBL"JEW" / CSAVE 2390 READ Y$CDBL"CHE" / STRING$ :OPEN READ Y$CDBL"SHO" / - :OPEN READ Y$CDBL"ROP" / INT 2400 READ Y$CDBL"FOO" / MKI$ :OPEN r 2410 READ SFIXCSNG / MEM :OPEN SCDBLZ:INPUT @ 2420 READ BFIXCSNG / MEM :OPEN BCDBLZ:INPUT @ 2430 READ NFIXCSNG / MEM :OPEN NCDBLZ:INPUT @ 2440 READ EFIXCSNG / MEM :OPEN ECDBLZ:INPUT @ 2450 READ GFIXCSNG / MEM :OPEN GCDBLZ:INPUT @ 2460 READ SIFIXCSNG / MEM :OPEN SICDBLZ:INPUT @ 2470 READ BOFIXCSNG / MEM :OPEN BOCDBLZ:READ ZCDBL / STEP :OPEN @ 2480 READ PFIXCSNG / MEM :OPEN PCDBLZ:INPUT @ 2490 READ JFIXCSNG / MEM :OPEN JCDBLZ:INPUT @ 2500 READ CHFIXCSNG / MEM :OPEN CHCDBLZ:INPUT @ 2510 READ SVFIXCSNG / MEM :OPEN SVCDBLZ:INPUT @ 2520 READ RFIXCSNG / MEM :OPEN READ ZFIXCSNG / SIN :OPEN READ SICDBL LEFT$ SCDBL LEFT$ JCDBL LEFT$ GCDBL LEFT$ ECDBL LEFT$ CHCDBL / 2530 RCDBLZ:READ ZCDBL / STEP :OPEN @ 2540 READ FFIXCSNG / MEM :OPEN FCDBLZ:INPUT @ 2550 GOSUB:GOSUB"Restoring previously saved game..." 2560 ELSE MERGE INPUT :USING "I",,"MAGIC/DAT":ELSE MERGE INPUT 8325 #,CH,S,SV,L,Z,B,R,N,F,E,K,G,CD,SI,G1,J,B1,P,C1,BO,D1:ERR:RESUME:INPUT 4 2570 NAME 2580 ELSE MERGE INPUT 8397 ,:READ FLAGFIXCSNG / 2 2590 GOSUB"A disk error was detected. Make sure there's a previous game and disk is ready." 2600 RESET DECDBL * o:SET:DIM 2610 GOSUB:GOSUB"A disk error was detected. Make sure there is a previous game and disk is ready.";:INPUT F 15545 GOSUB:GOSUB"Saving game to disk..." 2630 ELSE MERGE INPUT P :USING "O",,"MAGIC/DAT":ELSE MERGE INPUT 8337 #,CH,S,SV,L,Z,B,R,N,F,E,K,G,CD,SI,G1,J,B1,P,C1,BO,D1:ERR:INPUT F 20666 NAME Z 2650 ELSE MERGE INPUT 14993 GOSUB"A disk error was detected. Please check the disk setup!" 2660 GOSUB"Make sure the diskette does not have a write-protect tab.":INPUT F 3584