'
@CC│ Б(CCн100оQ):З"That is"CC"% right./_
JЕCC▓89зЗ"A - Great work!":╔"O3T3L4FFGL2EL8FG":Бе380/а
TЕCC▓79зЗ"B - Good work!":╔"O3T3L4GL2GL8EL4EGL2GL8DL4D":Бе380/·
^ЕCC▓69зЗ"C - Could be better ...":╔"O3T3L3GAL8BO4L3CL4O3BL8AL4GL8AL4GL8EL3DL2C":Бе3800S
hЕCC▓59зЗ"D - Not so hot!!":╔"O3T3L3GA-L8B-O4L3CL4O3B-L8A-L4GL8A-L4GL8E-L3DL2C":Бе3800р
rЕCC┤60зЗ"F - You flunked!!!!!!!!":╔"O1L255T255CCCDCDEDDCDEFEEDEFGGGFEDEFFGGFEDDEDCDDEDDEFEFGFFGAGGFGFFEDEFGAGABAGGGABBBGEEEDEDEFEDEFEDC"1
|Й"Another quiz (Y-N)";Y$:ЕY$┤▓"Y"зК:ДОt so hot!!":╔"O3T3L3GA-L8B-O4L3CL4O3B-L8A-L4GL8A-L4GL8E-L3DL2C":Бе3800р
rЕCC┤60зЗ"F - You flunked!!!!!!!!":╔"O1L255T255CCCDCDEDDCDEFEEDEFGGGFEDEFFGGFEDDEDCDDEDDEFEFGFFGAGGFGFFEDEFGAGABAGGGABBBGEEEDEDEFEDEFEDC"1
|Й"Another quiz (Y-N)";Y$:Е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 0&Е
АI│330е336:НA:ТI,A:ЛI:Ж50,98,28,175,126,173,165:Т410,126:Т411,1:Т412,74::ГTO PREVENT CUSTOMER FROM PRESSING BREAK TO STOP ALARM&ЛЮ&╚АX│49465е49552:З Л( Ж(X));:Л::ГDISPLAYS START-UP MESSAGE&╥(З"OK"'2:ГDISPLAY FAKE CURSOR AND WAITS FOR CUSTOMER TO PRESS A KEY'-<CU│ Ж(136)н256л Ж(137)'EFАX│0е7:ТCU,143лXн16'gPЕ Т┤▓""з90:ДАY│1е65:ЛY,X:Бе70'ХZЮ:Т359,57:┐0,1:З@136,"attention manager";'╬dЗ@198,"CUSTOMER IS TAMPERING";:З@234,"WITH COMPUTER"'°nЗ@322,"please contact mall security";(
x:ГSTART OF ALARM(/Ва100,1:┐0,0:а200,1:┐0,1:Бе130АX│0е7:ТCU,143лXн16'gPЕ Т┤▓""з90:ДАY│1е65:ЛY,X:Бе70'ХZЮ:Т359,57:┐0,1:З@136,"attention manager";'╬dЗ@198,"CUSTOMER IS TAMPERING";:З@234,"WITH COMPUTER"'°nЗ@322,"please contact mall security";(
x:Г                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &$
:Г****************************&G:Г* STATES AND CAPITALS QUIZ *&j:Г*  J. Riddle May 16, 1985  *&Н:Г****************************&╔
Ю:Зд13)"STATES AND CAPITALS QUIZ":Зд18)"by John Riddle"&▄МS$(50),C$(50)'ЖDelaware,Dover,Pennsylvania,Harrisburg,New Jersey,Trenton'Z(ЖGeorgia,Atlanta,Connecticut,Hartford,Massachusetts,Boston'а2ЖMaryland,Annapolis,South Carolina,Columbia,New Hampshire,Concord'▐<ЖVirginia,Richmond,New York,Albany,North Carolina,Raleigh(!FЖRhode Island,Providence,Vermont,Montpelier,Kentucky,Frankfort(^PЖTennessee,Nashville,Ohio,Columbus,Louisiana,Baton Rouge(бZЖIndiana,Indianapolis,Mississippi,Jackson,Illinois,Springfield(▀dЖAlabama,Montgomery,Maine,Augusta,Missouri,Jefferson City)nЖArkansas,Little Rock,Michigan,Lansing,Florida,Tallahassee)RxЖTexas,Austin,Iowa,Des Moines,Wisconsin,Madison)ЭВЖCalifornia,Sacramento,Minnesota,Saint Paul,Oregon,Salem,Kansas,Topeka)▀МЖWest Virginia,Charleston,Nevada,Carson City,Nebraska,Lincoln*ЦЖColorado,Denver,North Dakota,Bismarck,South Dakota,Pierre*QаЖMontana,Helena,Washington,Olympia,Idaho,Boise*ТкЖWyoming,Cheyenne,Utah,Salt Lake City,Oklahoma,Oklahoma City*┘┤ЖNew Mexico,Santa Fe,Arizona,Phoenix,Alaska,Juneau,Hawaii,Honolulu+╛З:З"Hold up ... Initializing":АX│1е50:НS$(X),C$(X):Л+3╚З:Й"HI! What's your name";N$+Р╥З"Hi "N$", today you're going to learn":З"the states and capitals of the United States!!,▄З:Й"Would you like to be quizzed on random states or   the order in which the states joined the Union     (R or O)";Q$,WцЕQ$┤▓"R"░Q$┤▓"O"зЗ"I didn't understand that, "N$".":З"Try again:":Бе220,lыЕQ$│"R"зR│1:ДR│0,°ЁЙ"Would you like to be quizzed on states or capitals (S or C)";Q$:ЕQ$┤▓"S"░Q$┤▓"C"зЗ"That's Greek to me, "N$".":Бе240:ДЕQ$│"S"зS│0:ДS│1-F·ЕR│1зЙ"How many questions would you like";Q:ЕQ┤1зЗ"Come off it.  ";:Бе250-T ЕR│0зQ│50-д
З"*****  BE SURE YOU USE CORRECT SPELLING AND CAPI-  *****  TALIZATION !!!"-п
АX│1еQ-╞
ЕR│1зY│ Д(50):ДY│X-╪
ИSл1Бе290,300.P
"ЗC$(Y)" is the capital of what state?":ЙS$:ЕS$│S$(Y)зЗ"Correct !!!!!":CC│CCл1:ДЗ"WRONG!!! The answer is "S$(Y)"!!!".Z
'Бе310.═
,З"What is the capital of "S$(Y)"?":ЙC$:ЕC$│C$(Y)зЗ"Correct !!!!!":CC│CCл1:ДЗ"WRONG!!! The answer is "C$(Y)"!!!.¤
6Л:З:З"Out of"Q"questions, you got"CC"right./(X2л15)мSQ)┤15Бж46/-Р/Ї.АYY│1е10:X3│X1л15:X4│X2л15:╞"BM=X3;,=X4;NU20ND20NR20NL20NE20NF20NG20NH20C0NU20ND20NR20NL20NE20NF20NG20NH20C1":ТUV,0:╔"T200O1V31BV28AV24GV20FV16DV10C+V5C":ТU,0:Л:SC│SCл15:HP│HPм Д(25):ЕHP┤0з29:ДX1│ Д(225):X2│ Д(161):Р0/Ю:З"YOU'RE OUT OF ENERGY.":Бе490┬0Т65494,0:АYY│1е3:╔"T255O1V31BV30FV29DV28GV27EV25CV23FV21CV19GV17EV15T210O2E-V13C+V11F+V9DV7AV5BV3EV1G":Л:Ю:ЕGH│2зЗ"HE SLIMED YOU!!!":ДЗ"THE GHOST HAS VANQUISHED YOU!0╘1З:З"GAME OVER0ь2З:З"FINAL SCORE="SC13З"GHOSTS BUSTED="NB14З"ENERGY LEVEL="EN1T5З:З:З:З"TYPE run AND <ENTER> TO PLAY    AGAIN....":К2A6З:З:З:З:З:З:З"     THIS IS THE GAME OF GHOST- BUSTERS, INSPIRED BY BUT NOT    BASED ON THE MOVIE.  THE OBJECT OF THE GAME IS TO BLAST AS MANY GHOSTS AS POSSIBLE WHILE AVOID- ING BEING VANQUISHED, SLIMED,   AND RUNNING OUT OF ENERGY.2к7З:З"THERE ARE TWO DIFFERENT TYPES   OF GHOSTS, SLIMERS AND HAUNTS,  SLIMERS BEING THE MORE POWERFUL.2│8Бж7339З"SLIMERS ARE SQARISH CREATURES,  AND HAUNTS APPEAR AS PAC-MAN    MONSTERS.3╢:З:З"IF YOU CROSS A GHOST'S PATH, ITSEXPRESSION CHANGES. THIS MEANS  THE GHOST IS ABOUT TO SHOOT. GETAWAY FROM IT! YOU CANNOT DODGE  ITS BEAMS. IF YOU ARE HIT, THE  GAME ENDS.3┐;Бж734_<З:З"THE LINE AT THE TOP OF THE TV   SCREEN IS THE GUN RANGE. THE Q  KEY LENGTHENS THE RANGE AND THE A KEY SHORTENS IT. THIS IS HOW  FAR YOUR GUN WILL FIRE.4└=З"YOU MUST SCORE A DIRECT HIT ON  A GHOST! TO BUST A GHOST, YOU   MUST HIT IT SEVERAL TIMES.4╔>Бж734с?З"C O N T R O L S :5(@З:З"^ & V  AIM GUN (GUN FIRES IN DI-       RECTION IT IS POINTING)5FAЗ"< & >  MOVE GHOSTBUSTER5[BЗ"SPACE  FIRE!!!5бCЗ"  1    YOUR POWER (THE HIGHER          THE TONE THE MORE POWER)5╝DЗ"  2    GHOST'S POWER5°EЗ"  3    GHOSTBUSTER (KILLS GHOST        ONCE PER GAME)6
FБж726GР6+HЗ"PRESS ANY KEY TO BEGIN";:Бе746JIЗ:З"PRESS ANY KEY TO GO ON6XJЕ Т│""з746iKЗ б(32,43):РR POWER (THE HIGHER          THE TONE THE MORE POWER)5╝DЗ"  2    GHOST'S POWER5°EЗ"  3    GHOSTBUSTER (KILLS GHOST        ONCE PER GAME)6
FБж                                                                                                                                                                                                                                                                 R&!
:Г  ***********************&A:Г  *     ORIOLE BIRD     *&a:Г  * TM OF THE BALTIMORE *&Б(:Г  *       ORIOLES       *&а2:Г  *     GRAPHICS BY    *&└<:Г  *     PAUL RIDDLE     *&рF:Г  *      AUG. 1985      *'P:Г  ***********************'Z:Г'#d╚4,1:╝1:┐1,1:┴0,1:╞"C0"'<n╗(0,0)м(255,191),╜,B'Ьx╞"BM175,96L5HL2H4U3R2FRFRF6RFDR6UNL2EUL2HL3HLUNL4E2UE3R3HUER2FD2NL3DRFRF2DFD4GHL3HL3" :ГCAP'╞В╞"BM184,99D3BL3BUULDBL4ULDHUE" :ГEYES(QМ╞"BM194,97R3FGNLFD2NRLD3GDG5H2E2UEU3H3L2G3L3H2L8GLGR3FRFRFR10E2RNH2LG4LGHL2UNRBM171,100E2REUBM172,105D4F2RER2FR6FR4" :ГHEAD,BEAK,MOUTH(╪Ц╞"FR3FR5ERE2RERFDNLR2F2NL3DDGL2GDGL2HL2G2L2GL2GL8H2L10DNRGNRG3L5UL2NGR2DR5FDF3R6F2R3ERERE4U2NED2F2RFEREUE2UEUH" :ГBODY/PART OF ARM)nа╞"BM208,120DRF3RD5FR4E2UE2UEU2HL2GLDG3DGDFBM222,119L4GLHLH2BM205,109U2L2G2DNR3GNDLH2LGNLFNDHERUERNFBM204,106HLNGUHLNHGNLD2" :ГBOTTOM OF BAT, HAND)ек╞"BM179,88H2LH6LH8LH3LH2L4G2DGD5F4RFRF4RF2R" :ГBAT**┤╞"BM173,112GDGD2GDG2UH2L3GU4EUEUEUE2H2D2G2DGD2GLULNDNU13U3RU3EUE2F2BM159,100H8LD7FD3FD5URD3R2DR4DRDL2H2L2D2FD3F2D4FDNFG4" :ГTAIL*}╛╞"LUL2ND2L2DGNDEUR2U2H2G3D2G2DGDGDF2RF2R3U3HLHUUE3R3F2R2E4RERD2G2LG2D3" :ГFOOT*╫╚╞"F2R2ERURUR5F3ERERE2UEH2L5GL3GL3UER3UEBM168,134DL3GND2L3GBM168,134DRFD" :ГOTHER FOOT+╥╜(188,91):╞"BM180,93R3EUHLGDL" :ГCAP DESIGN+T▄┬(40,121),20:┬(64,91),30,0,1,.29,.45:┬(16,151),30,0,1,.79,.95 :ГBASEBALL,)цA$│"L8O3V15CP8O4CO3AGEL3V20GV15":╔"T3XA$;L3DXA$;P16L16AP16AP16AP16EP16FP16GP16AP6FP16DP4AP8AP16L8ABO4CDO3BAGEDXA$;L4DP64L8DL4CL8DEFGL4AP32L8ABO4CP6CP6CO3BAGG-GL3ABO4L3.C" :ГPLAY "TAKE ME OUT TO THE BALL GAME",QЁБе240 :ГLOOP UNTIL BREAK IS PRESSED,)цA$│"L8O3V15CP8O4CO3AGEL3V20GV15":╔"T3XA$;L3DXA$;P16L16AP16AP16AP16EP16FP16GP16AP6FP16DP4AP8AP16L8ABO4CDO3BAGEDXA$;L4DP64L8DL4CL8DEFGL4AP32L8ABO4CP6CP6CO3BAGG-GL3ABO4L                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                RTл1:ЕDART┤3з320:ДАX│1е2500:ЛGW
1T$│"GAME":X│10:Y│101:Бж370:T$│"OVER":X│211:Y│101:Бж370GД
6┐1,0:┐1,1:Т65494,0:Е( Ж(65280)░1)з310:ДОGФ
@АZ│1е2500:ЛGЮ
JБе190H2
TFD│1:╞"BM158,20C2U5NR5U5R5BR5C3ND10R5D5L5F5BR5C4NR5U5NR5U5R5BR5C2NR5D5NR5D5R5BR10C3U10F5G5BR10C4U10R5D5NL5D5BR5C2U10R5D5L5F5BR5C3BR3U10NL3R3C4"HV
^а89,1:а105,1:а34,1:а79,1:а203,1HМ
hDART│DARTм1:АZ│1е1000:Л:╗(158,20)м(248,10),╛,BF:РHб
rC│2:╞"BM=X;,=Y;"H№
|АZ│1е З(T$):Z$│ Р(T$,Z,1):ЕZ$│" "з╞"BR10":ДZ$│L$( К(Z$)м64):╞"C=C;XZ$;":C│Cл1:ЕC▓4зC│2I

ЖЛ:╞"C4":РD5BR5C2U10R5D5L5F5BR5C3BR3U10NL3R3C4"HV
^а89,1:а105,1:а34,1:а79,1:а203,1HМ
hDART│DARTм1:АZ│1е1000:Л:╗(158,20)м(248,10),╛,BF:РHб
rC│2:╞"BM=X;,=Y;"H№
|АZ│1е З(T$):Z$│ Р(T$,Z,1):ЕZ$│" "з╞"BR10":ДZ$│L$( К(Z$)м64):╞"C=C;XZ$;":C│Cл1:ЕC▓4зC│2I
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 j&О1&
╝:U│65495:UV│65494&,Т65495,0&IМGH(5,5),SL(5,5),GB(5,5)&Х╞"BM10,20U8E2R6BRRF2D8H2G2H2G2H2":╜(14,13):╜(18,13):─(0,0)м(30,30),GH,G&щ╝:╗(10,10)м(20,20),╜,B:╜(13,12):╜(17,12):╗(12,17)м(18,17),╜:─(0,0)м(30,30),SL,G'(╝:┬(15,12),2:╗(15,12)м(15,16),╜:╞"F2D3BM15,16G2D3BM15,15R3'@─(0,0)м(30,22),GB,G'P╚4,1:╝:┐1,1(J	╞"BM12,28G4D12F4R12U12L8D4R4D4L8U12R12U4L12BM28,28R4D8R8U8R4D20L4U8L8D8L4U20BM52,28G4D12F4R8E4U12H4L8BD4R8D12L8U12BM72,28G4D4F4R8D4L12D4R12E4U4H4L8U4R12U4L12BM88,28R20D4L8D16L4U16L8U4BM112,28R12F4D4M124,38M128,40D4G4L12U20BF4R8D4L8NU4BD4R8D4L8U4)@
╞"BM132,28R4D16R8U16R4D16G4L8H4U16BM156,28G4D4F4R8D4L12D4R12E4U4H4L8U4R12U4L12BM172,28R16D4L6D16L4U16L6U4BM192,28R16D4L12D4R12D4L12D4R12D4L16U20BM212,28R12F4D4G4M228,48L4M220,40L4D8L4U20BF4R8D4L8U4BM236,28G4D4F4R8D4L12D4R12E4U4H4L8U4R12U4L12)NЕ Т│""з11)жЮ:З@10,"GHOSTBUSTERS":З:З"BY PAUL RIDDLE":З:Й"INSTRUCTIONS";YN$:Е Ю(YN$,"Y")┤▓0Бж54)є
┐1,1:╝:LE│75:T│22:EN│255:X│0:X1│ Д(225):X2│ Д(161):GH│ Д(2):И GH Бж37,38*И GH Бж39,41*Е В(X1мX)┤15зQQ│1*2ЕQQ│1зCO│COл1:ДCO│0*бЕCO▓3зQQ│0:╗(X1л15,X2л30)м(X1л15,191),╜:╗м(X1л15,X2л30),╛:┬(X1л15,191),20:├(X1л15,190),1,1:Е В(X1мX)┤15з48*╛┼(X,168)м(Xл30,191),GB,╜*╒A│(2н3.14159)нTо60+╗(Xл20,182)м(10н Е(A)лXл20,10н Х(A)л183),╜+*╗(0,5)м(LEл5,5),╛:╗(0,5)м(LE,5),╜+VЕ Д(10)▓5░X1┤222зX1│X1л3:ДЕX1▓3зX1│X1м3+ГЕ Д(10)▓5░X2┤158зX2│X2л3:ДЕX2▓10зX2│X2м3+╛Z$│ Т:Е Ж(344)│247░X┤222зX│Xл3:ДЕ Ж(343)│247░X▓3зX│Xм3,Е Ж(341)│247░T┤30зT│Tл1:ДЕ Ж(342)│247░T▓15зT│Tм1:ДЕ Ж(345)│247Бж43,AЕ Ж(339)│251░LE┤175зLE│LEл5:ДЕ Ж(339)│254░LE▓10зLE│LEм5,ТR$│ Т:ЕR$│"1"заEN,10:ДЕR$│"2"заHP,10:ДЕR$│"3"░KK┤1зKK│1:SC│SCл1000:HP│0:Бж46,ЫБе14,╜Ю:З"YOU BUSTED THE GHOST!!!!!,╒З"CURRENT SCORE="SC,¤NB│NBл1:З"GHOSTS BUSTED TO DATE="NB- З"POWER LEFT="EN-h!З:З"POWER IS BEING RAISED TO 255.":EN│255:АRR│1е500:Л:З:З"POWER IS NOW"EN; Л(8)".-Э"З:З"WHEN READY TO COMBAT NEXT GHOST,PRESS ENTER.-о#З:З:╗ЙENTER$-╖$Бе13-╩%HP│ Д(50)л50:Р-▌&HP│ Д(75)л50:Р.'┼(X1,X2)м(X1л30,X2л30),GH,╜:ЕQQ│1з┬(X1л16,X2л17),3,1,.75,.5,0.%(Р.a)┼(X1,X2)м(X1л30,X2л30),SL,╜:ЕQQ│1з┬(X1л15,X2л17),3,1,.5.g*Р.ф+EN│ENм10:ЕEN┤0з47:ДSP│LEн Е(A)лXл20:SQ│LEн Х(A)л182:╗(Xл20,182)м(SP,SQ),╜:╗(Xл20,182)м(SP,SQ),╛:┬(SP,SQ),20:├(SP,SQ),1,1/,Е В((X1л15)мSP)┤15░ В(08╫>ЕL(Y)┤▓L зЗ"THAT IS NOT HERE NOW.":Бе350:ДЕY┤▓9зЗ"PULLING ON THAT DOES NO GOOD.":Бе350:ДЗ">>CHURN<< A HIDDEN MECHANISM    MAKES THE FLOOR DROP IN! YOU    DISCOVER A DEEP PIT WITH SKEL-  ETONS IN IT.":C4│1:Бе3509оHЕC1│1░C2│1░C3│1░C4│1зЗ"FROM THE CLUES YOU HAVE FOUND,  YOU DETERMINE THAT THE 'MAGIC-  IAN' HAS USED THE LEVER TO DROP PEOPLE INTO THE HIDDEN PIT IN   THE BEDROOM AND THEN HAS LEFT   THEM TO DIE. GOOD WORK!":ДР9цRЗ"THIS ADVENTURE IS OVER.":З"YOU TOOK"T"TURNS.":Х:К│1░C4│1зЗ"FROM THE CLU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 >F
└8:╚4,1:╝:┐1,1:╚3,1:Т65495,0:Ю:МD(48),L$(26),N$(9):╔"T255L255O1">kАX│0е9:НN$(X):Л:АX│1е26:НL$(X):Л>▒╞"BM148,96C4L20C2H10L30D20R30E10C3BM88,96H10L20F10R20G10L20E10R20?&╞"BM225,26R10F10G10L10NU20BD10C4R20D20U10L20NU10D10BD10C2ND20R20D10L20R10F10BD10C3L20R10D20BF10C4L20D10R20D10L20?D(─(56,86)м(148,106),D,G:Г?m2АX│57е133й2:┼(X,86)м(Xл92,106),D,╜:Л?│3АX│1е25:┴ Д(3)л1:╗(235,96)м( Д(234), Д(170)),╜:╔"EBDCFEDACBCBF":Л?т7T$│"BY PAUL R AND MIKE M":X│30:Y│181:Бж370?√cЕ( Ж(65280)░1)з99:Д╝@"dX│10:Y│20:T$│"RANDOM FACTOR":Бж370@DeR$│ Т:ЕR$│""з101:ДR│ Й(R$)н10@Yf╣╠R(X)│ Д(X)мXо2@_g╝AnЖD10R5U10NL5BR5,BR3ND10BR7,R5D5L5D5R5BU10BR5,R5D5NL5D5NL5BU10BR5,D5R5ND5U5BR5,BD10R5U5L5U5R5BR5,NR5D10R5U5L5BE5BR5,R5ND10BR5,D10R5U5NL5U5NL5BR5,NR5D5R5ND5U5BR5AоoЖU10R5D5NL5D5BR5,U10R5D5NL5D5NL5BR5,U10R5BD10NL5BR5,U10F5G5BR10,NR5U5NR5U5R5BD5BF5,U5NR5U5R5BD5BF5,U10R5BD5D5NL5BR5,U10D5R5NU5D5BR5,BR3NU10BR7,R5NU10BR5,U10D5NE5F5BR5B\pЖNU10R5BR5,U10D3R5NU3D7BR5,U10F5NU5D5BR5,U10R5D10NL5BR5,U10R5D5L5BF5BR5,,U10R5D5L5F5BR5,R5U5L5U5R5BD5BF5,BR3U10NL3R2BD5BF5,NU10R5NU10BR5,NU10E5NU5BF5,,,R5U5L5U5BR5D5BF5,BВxX│10:Y│10:X$│"NE5NF5NG5NH5":╞"C4"B▌В╞"BM10,10;D10E5H5BR10C2NR5D5ND5R5NU5D5BR5C3U10R5D5L5F5BR8C4U10NL3R3BR5C2NR5D5R5D5L5C4"C;М╞"BM10,25C2NR5D5R5D5NL5BR5C3NR5U10R5BR5C4D10R5U10NL5BR5C2ND10R5D5L5F5BR5C3NR5U5NR5U5R5C4"CБЦ┬(128,96),10:├(128,96),3,4:┬(128,96),30:┬(128,96),50:┬(128,96),70Cна├(108,96),4,4:├(88,96),2,4:├(66,96),4,4Cрк┴1,4:╗(128,26)м(128,166),╜:╗(58,96)м(198,96),╜D┤╗(58,26)м(198,166),╜:╗(58,166)м(198,26),╜:SCORE│0DE╛а34,5:а2,3:а198,6:а10,1:а15,1:а8,1:╞"C1":ЮD]╚╟1е5:╟2е6:╟3е7:╟4е8Dм╥╟5е1:╟6е2:╟7е3:╟8е4:╞"BM=X;,=Y;XX$;":X│ Н(0)н4:Y│ Н(1)н3:Е Ж(65280)░1 з210D╓▄┴4,1:╗(58,176)м(198,186),╜,BF:а200,20EцA1│58:АA│58е198й2:Бж240:Л:АA│198е58йм2:Бж240:Л:Бе230EQЁЕ( Ж(65280)░1)з╗(A1,176)м(A1,186),╜:╗(A,176)м(A,186),╛:A1│A:РE═·A│(AмX)о2лX:A│Aл╠R(R):Y│Yл╠R(R):АX│10е1йм1:╟5е1:╟6е2:╟7е3:╟8е4:┬(A,Y),X,1:аXн10,1:Л:╞"C1S16BM=A;,=Y;XX$;NU3NR3ND3NL3S4"F$
╔"V31":АX│1е10:╔"T255L255O1BAEDGCFABEDCFGBADECFBAEDCFV-V-V-":Л:╟5е1:╟6е2:╟7е3:╟8е4Fy
Е а(A,Y)│5зSC│SCм1:ДЕ а(A,Y)│7зSC│SCл30:ДЕ а(A,Y)│8зSC│SCл5:ДЕ а(A,Y)│6зSC│SCл10FИ
┬(A,Y),2,1Fє
"╗(65,25)м(80,35),╛,BF:╞"BM65,25C4":SC$│ И(SC):АX│2е З(SC$):H│ Й( Р(SC$,X,1)):╞N$(H):Л:ЕSC▓60░FD│0Бж340G
,DART│DA ч&+:Г--------------------------------&│
:ГNOTE:  THIS PROGRAM WAS WRITTEN IN MICROSOFT BASIC. THEREFORE,  IT WILL BE EXTREMELY HARD TO    CONVERT IT TO RUN ON AN APPLE'0:ГII.  MANY COMMANDS USED BY THIS PROGRAM ARE NOT SUPPORTED BY AP-PLESOFT BASIC (FOR EXAMPLE, THE 'ELSE' STATEMENT).'n:ГTRANSFERRING TO THE IBM PC WILL BE SLIGHTLY EASIER.'Щ(:Г--------------------------------'╜2Ю0:A│143:ГBLITZ!!(<З@68,"M Y S T E R Y   H O U S E";:З@169,"BY JOHN RIDDLE";:З@389,"PRESS ANY KEY TO BEGIN";(4FA│Aл16:ЕA▓│256зA│143(tPB│Bл1:ЕB▓│32зB│0:Г80 GOTO 97233.684(пZЗ@B, Л(A);:З@31мB, Л(A);:З@479мB, Л(A);:З@448лB, Л(A);(╞dC│Cл32:ЕC▓│479зC│0)
nЗ@448мC, Л(A);:З@C, Л(A);:З@31лC, Л(A);:З@479мC, Л(A);)xЕ Т│""з70:ДЮ:З@480)FВМD$(13),P(13,6),G$(6),C$(10),O$(10),L(10))[МАX│1е13:НD$(X):Л)ЦАX│1е13:АY│1е6:НP(X,Y):ЛY,X:L│1)УаАX│1е6:НG$(X):Л)икАX│1е10:НC$(X):Л)┬┤АX│1е10:НO$(X),L(X):Л*=╛ЖFRONT PORCH,LIVING ROOM,CLOSET,KITCHEN,BACK PORCH,DINING ROOM,STUDY,LIBRARY,HALL,BATHROOM,HALL,MASTER BEDROOM,BEDROOM*T╚Ж-2,,,,,,4,1,3,7,,*j╥Ж,,,2,,,5,2,,6,9,*}▄Ж,4,,,,,,,4,,,*ЛцЖ,-8,2,,,*вЁЖ7,,,,,,,11,,10,,4*╣·Ж,,9,,,,9,,13,12,,*╬
Ж,,11,,,,,,,11,,*ё
ЖNORTH,SOUTH,EAST,WEST,UP,DOWN++
ЖOPEN,GET,DROP,THROW,READ,MATCH,BLOW,UNLOCK,LOOK,PULL+Ъ
"ЖNOTE,1,FINGERPRINT SET,2,PEPPER,4,BOOK,8,SUNLIGHT,12,KEY,100,MAGICIAN,6,CHEST,7,LEVER,13,FINGERPRINTS,100+▒
,З"LOCATION: "D$(L)+ц
6З"YOU SEE:":Y│0:АX│1е10:ЕL(X)│L зЗ"** "O$(X):Y│1,
@Л:ЕY│0зЗ"NOTHING SPECIAL",M
JЗ"EXITS:":АX│1е6:ЕP(L,X)▓0зЗG$(X):ДЕP(L,X)┤0зЗ"DOOR ON "G$(X)" WALL",S
TЛ,q
^Бж840:T│Tл1:Й"COMMAND";A$,п
hA│ Ю(A$," "):ЕA▓0зB$│ П(A$, З(A$)мA):A$│ О(A$,Aм1):ДB$│"",╤
rАX│1е6:ЕA$│ О(G$(X),1)з480:ДЛ,с
|ЕB$┤▓""з430-
ЖЕA$│"SCORE"зT│Tм1:З"YOU HAVE USED"T"TURNS SO FAR.":Бе350-0
РЕA$│"INV"з510-C
ЪЕA$│"LOOK"з300-d
дЗ"I DON'T UNDERSTAND.":Бе350-ж
оАX│1е10:ЕA$│C$(X)з440:ДЛ:З"I SPEAK ENGLISH, NOT GREEK!":Бе350-╜
╕ЕX│1░B$│"DOOR"з490-╘
┬ЕX│8░B$│"DOOR"з810.
╠АY│1е10:ЕB$│O$(Y)з470:ДЛ:З"I DON'T KNOW WHAT YOU MEAN.":Бе350.G
╓ИX Бе540,570,580,590,600,630,770,800,650,830.╡
рЕP(L,X)│0зЗ"YOU CAN'T GO THAT WAY.":Бе350:ДЕP(L,X)┤0зЗ"YOU RUN INTO A CLOSED DOOR.":Бе350:ДL│P(L,X):Бе300.р
ъЕL│7░F1│0зЗ"THE DOOR IS LOCKED.":Бе350/<
ЇАX│1е6:ЕP(L,X)┤0зP(L,X)│мP(L,X):З"OK":Бе350:ДЛ:З"THERE ARE NO DOORS HERE TO OPEN":Бе350/s
■З"YOU ARE CARRYING:":Y│0:АX│1е7:ЕL(X)│0зЗO$(X):Y│1/ЙЛ:ЕY│0зЗ"NOTHING"/УБе350/сЕL(Y)┤▓L зЗ"THAT IS NOT HERE.":Бе350:ДЕY┤▓8зЗ"YOU CAN'T OPEN THAT.":Бе3500!&ЕL(6)│100зЗ"THERE IS A KEY IN IT.":L(6)│L :ДЗ"IT IS EMPTY."0+0Бе3500Ф:ЕL(Y)┤▓L зЗ"THAT IS NOT HERE.":Бе350:ДЕY▓6зЗ"YOU CAN'T -- IT'S TOO HEAVY.":Бе350:ДL(Y)│0:З"OK":Бе3500┘DЕL(Y)┤▓0зЗ"YOU DON'T HAVE THAT.":Бе350:ДL(Y)│L:З"DROPPED.":Бе3501DNЕL(Y)┤▓0зЗ"YOU DON'T HAVE THAT.":Бе350:ДL(Y)│200:З"SMASH!!  IT SHATTERS INTO A MIL-LION PIECES.":Бе3501пXЕL(Y)┤▓0░L(Y)┤▓L зЗ"I DON'T SEE THAT HERE.":Бе350:ДЕY┤▓1░Y┤▓4зЗ"THERE IS NOTHING WRITTEN ON IT.":Бе3501√bЕY│4зЗ"IT SAYS THE MAGICIAN CAN MAKE   THE FLOOR DISAPPEAR.":C1│1:Бе3502]lЕF0│1зЗ"THE PAPER IS BLANK.":Бе350:ДF0│1:З"THE WRITING DISAPPEARS AS YOU   LOOK AT IT.":Бе3502ЬvЕL(Y)┤▓L зЗ"THAT IS NOT HERE.":Бе350:ДЕY┤▓10зЗ"HOW?":Бе3503 АЕL(2)┤▓0зЗ"WHAT ARE YOU GOING TO MATCH THEMWITH??":Бе350:ДЗ"THE FINGERPRINTS ON THE WINDOW  MATCH THOSE IN THE SET.":C2│1:Бе3503IКЕL(Y)┤▓L зЗ"THAT IS NOT HERE.":Бе3503zФИY Бе670,680,690,700,710,720,730,740,750,7603гЮЗ"IT IS ON ANCIENT PARCHMENT.":Бе3503┌иЗ"THE PRINTS BELONG TO THE MAGIC- IAN.":C3│1:Бе3504▓З"IT IS IN A SMALL PILE ON THE    TABLE.":Бе3504}╝З"ON THE INSIDE COVER IT SAYS:    'THIS SPELLBOOK IS THE PROPERTY  OF JOHN RIDDLE'S MYSTERY HOUSE'";:Бе3504╢╞З"THE INTENSE LIGHT INSTANTLY     BLINDS YOU!":Бе8504р╨З"ITS HANDLE IS GEM-ENCRUSTED.":Бе3505'┌З"HE SCOWLS AND SAYS 'WHAT DO YOU THINK YOU'RE LOOKING AT?'":Бе3505fфЗ"IT IS IRON-BOUND AND VERY STUR- DY, BUT UNLOCKED.":Бе3505ЩюЗ"THERE ARE FINGERPRINTS ON IT!":L(10)│L:Бе3505╞°З"THEY ARE ORDINARY FINGERPRINTS.":Бе35062ЕL(Y)┤▓L ░L(Y)┤▓0зЗ"THAT IS NOT HERE NOW.":Бе350:ДЕY┤▓9░Y┤▓3зЗ"YOU WARM IT UP WITH YOUR BREATH.";:Бе3506╠ЕY│9зЗ"YOU FOG UP THE GLASS.":Бе350:ДЕY│3зЗ"THE PEPPER FORMS A CLOUD AROUND YOUR HEAD...OH OH... YOU'RE     GOING TO SNEEZE!":R$│"AHH...AHH...AHH..."7АX│1е З(R$):З Р(R$,X,1);:аXн14,1:Л:З"chooooo!":Бе3507- З"THE "O$(Y)" IS NOT LOCKED.":Бе3507А*ЕL│1зЗ"THE DOOR IS NOT LOCKED.":Бе350:ДЕL┤▓7зЗ"THERE ARE NO DOORS HERE.":Бе35084ЕF1│1зЗ"THE DOOR IS ALREADY UNLOCKED":Бе350:ДЕL(6)┤▓0зЗ"YOU HAVE NO KEY":Бе350:ДF1│1:З">CLICK< THE DOOR IS UNLOCKED.":Бе35ach object, enter the object name  and its location number separated by a  comma.":З/╬ЖA$│"DATA":АX│1еO:З"Object"X:ЙO$(X),L(X):L(X)│╠R(L(X)):A$│A$лO$(X)л","л И(L(X)):Е З(A$)┤200зA$│A$л",":ДБж1000:A$│"DATA"/·ИЛ:ЕA$┤▓"DATA"зA$│ О(A$, З(A$)м1):Бж10000NЙLL│L:LL$│ И(LL):N$│"***LOCATION:":Бж2000:A$│"CLS:PRINT"лN$л":PRINTD$(L)":Бж10000├МN$│"YOU SEE:":Бж2000:A$│"PRINT:PRINT"лN$л":Y=0:FORX=1TO"лO$л":IFL(X)=L THENPRINTO$(X)"лQ$л"  "лQ$л";:Y=1":Бж10001ОN$│"NOTHING SPECIAL":Бж2000:A$│"NEXT:PRINT:IFY=0THENPRINT"лN$:Бж10001зТN$│"EXITS LEAD:":Бж2000:A$│"PRINT:PRINT"лN$л":FORX=1TO6:IFP(L,X)>0THENPRINTG$(X)ELSEIFP(L,X)<0THENPRINT"лQ$л"DOOR ON "лQ$л"G$(X)"лQ$л" WALL"лQ$:Бж10001┬УA$│"NEXT:PRINT":Бж10002╚CM$│ И(L):N$│"COMMAND":Бж2000:A$│"T=T+1:INPUT"лN$л";A$:IFA$="лQ$лQ$л"THEN"лCM$:Бж10002p╥A$│"FORX=1TO6:IFA$=LEFT$(G$(X),1)THEN"л И(LлI)л"ELSENEXT:GOTO"л И(LлIн2):Бж10002ц▄N$│"YOU CANNOT GO THAT DIRECTION.":Бж2000:A$│"IFP(L,X)<=0THENPRINT"лN$л":GOTO"лCM$л"ELSEL=P(L,X):GOTO"лLL$:Бж10003P▐A$│"A=INSTR(A$,"лQ$л" "лQ$л"):IFA<>0THENB$=RIGHT$(A$,LEN(A$)-A):A$=LEFT$(A$,A-1)ELSEB$="лQ$лQ$:Бж10003~рA$│"IFB$<>"лQ$лQ$л"THEN"л И(LлIн5):Бж10003ЁтA$│"IFA$="лQ$л"SCORE"лQ$л"THENT=T-1:PRINT"лQ$л"YOU HAVE USED"лQ$л"T"лQ$л"TURNS SO FAR."лQ$л":GOTO"лCM$:Бж10004'фA$│"IFA$="лQ$л"INV"лQ$л"GOSUB5000:GOTO"лCM$:Бж10004UцA$│"IFA$="лQ$л"LOOK"лQ$л"THEN"лLL$:Бж10004ЪшN$│"I DON'T UNDERSTAND.":Бж2000:A$│"PRINT"лN$л":GOTO"лCM$:Бж10005ъN$│"I SPEAK ENGLISH, NOT GREEK!":Бж2000:A$│"FORX=1TO"лC$л":IFA$=C$(X)THEN"л И(LлI)л"ELSENEXT:PRINT"лN$л":GOTO"лCM$:Бж10005YыN$│"DOOR":Бж2000:A$│"IFB$="лN$л"ANDX=3THEN"л И(LлIн2):Бж10005╫ьN$│"I DON'T KNOW WHAT YOU MEAN.":Бж2000:A$│"FORY=1TO"лO$л":IFB$=O$(Y)THEN"л И(LлI)л"ELSENEXT:PRINT"лN$л":GOTO"лCM$:Бж100060юZ1$│ И(LлI):Z2$│ И(LлIн5):Z3$│ И(LлIн6):A$│"ONX GOTO"лZ1$л","лZ2$л","лZ3$л",":Бж10007
ЁБж10000:З"Programming 'GET' command now.":З:Й"What is the highest object number which can be picked up";LO:З:Й"What is the maximum number of objects   that can be carried";HI:LO$│ И(╠R(LO)):HI$│ И(╠R(HI))7RЄN$│"THAT IS NOT HERE.":Бж2000:A$│"IFL(Y)<>L THENPRINT"лN$л":GOTO"лCM$:Бж10007пЇN$│"YOU ARE CARRYING TOO MUCH.":Бж2000:A$│"IFCA>="лHI$л"THENPRINT"лN$л":GOTO"лCM$:Бж10008ЎN$│"THAT CANNOT BE REMOVED.":Бж2000:A$│"IFY>"лLO$л"THENPRINT"лN$л":GOTO"лCM$:Бж10008C°A$│"L(Y)=0:CA=CA+1:PRINT"лQ$л"OK"лQ$л":GOTO"лCM$:Бж10008p∙Бж10000:З"Programming 'DROP' Command..."8ї·N$│"YOU DON'T HAVE THAT.":Бж2000:A$│"IFL(Y)<>0THENPRINT"лN$л":GOTO"лCM$л"ELSEPRINT"лQ$л"OK"лQ$л":CA=CA-1:L(Y)=L:GOTO"лCM$:Бж10009"√Бж10000:З"Programming 'OPEN' Command..."9Ш№N$│"THERE ARE NO DOORS HERE.":Бж2000:A$│"FORX=1TO6:IFP(L,X)<0THEN"л И(LлI)л"ELSENEXT:PRINT"лN$л":GOTO"лCM$:Бж10009р■N$│"OPENED.":Бж2000:A$│"P(L,X)=-P(L,X):PRINT"лN$л":GOTO"лCM$:Бж1000:O
L│5000:N$│"YOU ARE CARRYING:":Бж2000:A$│"PRINT"лN$л":Y=0:FORX=1TO"лO$л":IFL(X)=0THENPRINTO$(X):Y=1":Бж1000:Т
N$│"NOTHING SPECIAL":Бж2000:A$│"NEXT:IFY=0THENPRINT"лN$:Бж1000:й
A$│"RETURN":Бж1000:▒цЪ:К:╠ч:ГCREATE AND SAVE LINE:єшA$│ И(L)л" "лA$:ЗA$:З#1,A$:L│LлI:Р;╧:ГADD QUOTES TO STRING; ╨N$│Q$лN$лQ$:Р;z'Ю:ё9,0:З"ADVENTURE GENERATOR 2.0":ё5,1:З"Copyright (C) 1988 by P.Riddle":З б(40,61):Р;г∙ :ГREV 1.3 REQURES 16K AND DISK DRIVE000:▒цЪ:К:╠ч:ГCREATE AND SAVE LINE:єшA$│ И(L)л" "лA$:ЗA$:З#1,A$:L│LлI:Р;╧:ГADD Q                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                L:ЕL(23)│21зL(26)│L:З"THE WITCH APPEARS IN A PUFF OF  SMOKE!!!":Бе50:Д508ЩтЕL(16)┤▓0▒L(8)┤▓0зЗ"I CAN'T!!!":Бе50:ДЗ"IT'S DEAD!!!!!":L(25)│21:L(19)│L:Бе508ыьЕL(12)┤▓0▒L(8)┤▓0зЗ"I CAN'T!!!":Бе50:ДЗ"IT'S DEAD!!!!!":L(26)│21:L(20)│L:Бе509EЎЕL(12)┤▓0зЗ"I CAN'T!!!":Бе50:ДЗ"THE SKELETON COLLAPSES AND FALLSAPART.":L(27)│21:Бе509gЕL(15)┤▓0зЗ"NO MATCHES.":Бе509Щ
ЕB$┤▓"CA"зЗ"QUIT PLAYING WITH MATCHES!!":Бе509╟ЕL(14)┤▓0зЗ"YOU AREN'T CARRYING IT.":Бе509ъЕF3▓40зЗ"IT'S TOO SHORT.":Бе50:(З"THE CANDLE IS LIT.":F3│1:Бе50:j2АX│23е27:ЕL(X)┤▓21зЗ"YOU GOT OUT SAFELY, BUT YOU FAILED TO KILL ALL THE MONSTERS.":К:ДЛ:┬<АX│17е20:ЕL(X)┤▓0зЗ"YOU GOT OUT SAFELY, BUT FAILED  TO COLLECT EACH TREASURE.":К:ДЛ:ёFЗ"you" Л(128)"win!!!!!!":З"TIME:"T1":"T2:К;
PЕB$┤▓"CA"зЗ"WHAT?":Бе50;;ZЕL(14)┤▓0зЗ"YOU AREN'T CARRYING IT.":Бе50;_dЕF3│0зЗ"IT'S ALREADY OUT.":Бе50;МnF3│0:З"THE CANDLE IS EXTINGUISHED.":Бе50SAFELY, BUT FAILED  TO COLLECT EACH TREASURE.":К:ДЛ:ёFЗ"you" Л(128)"win!!!!!!":З"TIME:"T1":"T2:К;
PЕB$┤▓"CA"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 д&`т40:ў:у0,0:у8,54:Ю1:ё9,5:З"ADVENTURE GENERATOR 2.0":ё5,6:З"Copyright (C) 1988 by P.Riddle"&Л
ё9,20:З"Press any key to begin":в44539&│Х1000:┌И:╣╠R(X)│ Б( В(X)):Q$│ Л(34)'
Бж10000:Й"Insert destination diskette, type       filename and press ENTER";N$'3Е З(N$)▓8▒ Ю(N$,"/")┤▓0▒ Ю(N$,".")┤▓0з10'DN$│N$л"/BAS"'RЩ"O",1,N$'`(L│10:I│10'┼)З#1,"0 'THIS ADVENTURE WAS CREATED WITH ADVENTURE GENERATOR REV 2.0,    (C) 1988 BY PAUL RIDDLE"'▀-A$│"CLEAR1000":Бж1000(=2Бж10000:Й"What is the name of the adventure?    ";N$:Бж2000:A$│"CLS:PRINT@448,"лN$:Бж1000(№<Бж10000:З"How many of the following are in your   Adventure:":З:Й"Locations";R:Й"Objects  ";O:Й"Commands (excluding GET,DROP,OPEN)";C:C│╠R(C)л3:R│╠R(R):O│╠R(O):R$│ И(R):O$│ И(O):C$│ И(C))FFA$│"DIMD$("лR$л"),P("лR$л",6),O$("лO$л"),L("лO$л"),C$("лC$л")":Бж1000)iPМD$(R),P(R,6),O$(O),L(O),C$(C))ЧQA$│"FORX=1TO"лC$л":READC$(X):NEXT":Бж1000*{RБж10000:З"Manditory commands are get,drop,& open.":ЕC▓3зЗ"There are also"Cм3"user-defined":З"commands.  You will enter the code for  the user-defined commands yourself.  Thecomputer will write code for get, drop, and open."*ЧSA$│"DATAGET,DROP,OPEN,"*жTЗ:ЕC┤│3з87*°UАX│4еC:З"Command"X:ЙC$(X):A$│A$лC$(X):Е З(A$)┤200зA$│A$л",":ДБж1000:A$│"DATA"*■VЛ+(WЕA$┤▓"DATA"зA$│ О(A$, З(A$)м1):Бж1000+IXЗ:З"Press any key...":в44539+wYA$│"FORX=1TO"лR$л":READD$(X):NEXT":Бж1000+╩ZБж10000:A$│"DATA":З"Now enter the location descriptions in  order...":З:АX│1еR+уdЗ"Location"X:╗ЙD$(X),4fN$│D$(X):Бж2000:D$(X)│N$:A$│A$лD$(X):Е З(A$)┤200зA$│A$л",":ДБж1000:A$│"DATA",`hЛ:ЕA$┤▓"DATA"зA$│ О(A$, З(A$)м1):Бж1000,ЙnA$│"FORX=1TO6:READG$(X):NEXT":Бж1000,╗pA$│"DATANORTH,SOUTH,EAST,WEST,UP,DOWN":Бж1000,ўvA$│"FORX=1TO"лR$л":FORY=1TO6:READP(X,Y):NEXTY,X":Бж1000-жxБж10000:З"Now you will enter the movement map.    For each room number enter the room num-ber north, south, east, west, up and    down for that room.  If the room has no".%zЗ"exit in a particular direction, enter a zero.  If there is a door between two   rooms, make the room number negative.":З.й|АX│1еR:A$│"DATA":З"ROOM"X;:ЙP(X,1),P(X,2),P(X,3),P(X,4),P(X,5),P(X,6):АY│1е6:P(X,Y)│ Б(P(X,Y)):A$│A$л И(P(X,Y)):ЕY┤▓6зA$│A$л",".╕~Л:Бж1000:Л/SВБж10000:A$│"FORX=1TO"лO$л":READO$(X),L(X):NEXT:L=1":Бж1000:З"For e Н&
АX│1е20:З:Л&T2│0:T1│9&LМP(19,6),O$(60),L(60),D$(19):Бж260:Бе690&`(ЕL│1░CX┤▓0з1330&В2З:З"TELL ME WHAT TO DO":Бж750&╝<ЕF3│1 зFT│FTл1:ЕFT│25▒FT│30зЗ"CANDLE GETTING SHORTER!&╠FЕF3▓40зFT│0&ўPT2│T2л1:ЕT2│60зT2│0:T1│T1л1:ЕT1│12з800'ZЕA$│"TI"зЗ"THE TIME IS"T1":"T2:Бе50'3dЕA$│"GE"зA$│"TA'OnЕA$│"TH"▒A$│"PO"зA$│"DR'fxЕA$│"IN"зY│0:Бе230'xВЕA$│"LI"з1280'КМЕA$│"UN"з1360'╜ЦЕA$│"N"▒A$│"S"▒A$│"E"▒A$│"W"▒A$│"U"▒A$│"D"з820'ьаАY│1е З(W$):Е Р(W$,Y,2)│A$зF│(Yл1)о2:Бе180'ЄкЛ(#┤АX│1е З(O$)й2:Е Р(O$,X,2)│B$зS│(Xл1)о2:Бе200()╛Л(0╚:Г(N╥ЕY▓14▒X▓80зЗ" HUH??":Бе50(|▄И F Бе850,910,980,1000,690,1030,1060,1280(нцЗ"I'M CARRYING":АX│7е58:ЕL(X)│0зЗO$(X):Y│Yл1(┬ЁЛ:ЕY│0зЗ"NOTHING(╦·Бе50(р
АX│1е57:НO$(X):Л)
Ж"NORTH","SOUTH","EAST","WEST","UP","DOWN)D
Ж"MESSAGE","GARLIC","STAKE","BOTTLE","KEY","CROSS)m
"Ж"SUNLIGHT","CANDLE","MATCHES","URN")Ч
,Ж"DIAMOND","RUBY","EMERALD","SAPPHIRE)к
6Ж"RING","WATER)█
@Ж"VAMPIRE","MUMMY","GHOST","WITCH","SKELETON*
JЖ"DESK","DRAWER","STAIRCASE","TOMBSTONES","BED*5
TЖ"BED","BATH","SINK","SINK","TABLE*Z
^Ж"CHEST","SOFA","COFFIN","CORPSE*╬
hЖ"DOOR","DOOR","DOOR","DOOR","DOOR","DOOR","DOOR","DOOR","DOOR","DOOR","DOOR","DOOR","DOOR","DOOR","DOOR","DOOR*х
rW$│"TAKIDRRELOSCOP+6
|O$│"MEGASTBOKECRSUCAMAURDIRUEMSARIWAVAMUGHWISKDEDRSTTOBEBABASISITACHSOCOCODO+N
ЖАX│7е58:НL(X):Л:L│1+о
РЖ2,20,3,9,20,20,12,2,2,11,20,20,20,20,13,17,13,16,10,20,8,6,6,4,8,16,18,17,6,5,19,2,2,11,12+▌
ЪЖ2,11,3,13,1,2,4,5,6,7,14,18,17,15,15,16,2+¤
дАY│1е19:АX│1е6:НP(Y,X):ЛX,Y,
оЖ0,0,0,0,0,0,
╕Ж9,0,0,4,0,0,0
┬Ж0,0,0,2,0,0,C
╠Ж0,19,2,6,14,0,T
╓Ж0,4,0,0,0,0,f
рЖ0,0,4,0,0,11,w
ъЖ8,6,0,0,0,0,И
ЇЖ8,7,8,8,0,0,Ъ
■Ж0,2,10,0,0,0,лЖ0,0,0,9,0,0,╜Ж0,12,0,0,6,0,╧Ж11,0,0,0,0,0,с&Ж0,0,0,11,0,0,є0Ж0,0,15,0,0,4-:Ж0,0,0,14,0,0-DЖ0,15,0,0,0,0-)NЖ0,0,0,15,0,0-;XЖ0,14,0,0,0,0-LbЖ4,0,0,0,0,0-alАX│1е19:НD$(X):Л-╪vЖ" CREAKY WOODEN FRONT PORCH"," LARGE SPARSELY FURNISHED LIVING ROOM"," SMALL WALK-IN CLOSET"," CIRCULAR STAIRCASE.'АЖ" TINY BATHROOM"," KITCHEN"," ROTTING BACK PORCH"," HUGE GLOOMY GRAVEYARD.НКЖ" DANK MUSTY LIBRARY","N EERIE CREEPY CONSERVATORY"," LARGE EMPTY ROOM"," BLOODY TORTURE CHAMBER.ўФЖ" WOODEN VAULT"," WEST END OF A HALLWAY","N EAST END OF A HALLWAY"," LARGE CANDLE-LIT MASTER BEDROOM/@ЮЖ" SMALL STUFFY BATHROOM"," DUSTY SOOTY BEDROOM"," LARGE DINING ROOM/FиР/Н▓ЕL▓│11░(F3│0▒(L(14)┤▓L ░L(14)┤▓0))зЗ"IT'S DARK! I CAN'T SEE!":Бе50/з╝З"I AM IN A"D$(L):Y│0/┌╞З"I SEE  ";:АX│1е58:ЕL(X)│L зЗO$(X)", ";:Y│Yл1/°╨Л:З б(2,8):ЕY│0зЗ"NOTHING0,┌Y│0:З"EXITS ARE:":АX│1е6:ЕP(L,X)▓0зЗO$(X):Y│Yл10HфЛ:ЕY│0зЗ"DOOR":Бе50:Д500]ю╗ЙA$:АX│1е З(A$)0М°Е Р(A$,X,1)│" "░ З(A$)▓Xл1зB$│ Р(A$,Xл1,2)0иЛ:Е З(A$)▓2зA$│ О(A$,2)0╝ЕL│1░CX┤▓0з13300┬Р0є З"MIDNIGHT":╔"CEDO2GP4O3CDECP4EDCO2GP4GO3DEC1
*З"YOU ARE DOOMED!!":К1^4ЕA$│"N"зS│1:ДЕA$│"S"зS│2:ДЕA$│"E"зS│3:ДЕA$│"W"зS│4:ДЕA$│"U"зS│5:ДЕA$│"D"зS│61И>ЕP(L,S)│0зЗ"I CAN'T GO THAT WAY":Бе501аHL│P(L,S):CX│1:Бе6901╝RЕSл6▓22зЗ"I CAN'T":Бе501ь\ЕL┤▓L(Sл6)зЗ"I SEE NO "O$(Sл6)" HERE.":Бе502/fЕB$│"WA"░L(10)┤▓0зЗ"I CAN'T-NOT CARRYING THE RIGHT  ITEM":Бе502VpЕB$│"RI"░L(25)┤▓21зЗ"I CAN'T":Бе502ЗzЕCA│5зЗ"I CAN'T-I'M CARRYING TOO MUCH.":Бе502▓ДCA│CAл1:L(Sл6)│0:ЗO$(Sл6)" TAKEN":Бе502ЇОАX│23е27:ЕSл6│X з920:ДЛ:З"YOU CAN'T KILL THE "O$(Sл6)".":Бе503'ШЕL(Sл6)┤▓L зЗ"THERE'S NO "O$(Sл6)" HERE.":Бе5038вЕSл6│23з12303IмЕSл6│24з12403Z╢ЕSл6│25з12503k└ЕSл6│26з12603|╩ЕSл6│27з12703и╘ЕL(Sл6)┤▓0зЗ"I'M NOT CARRYING IT.":Бе503╓▐L(Sл6)│L:ЗO$(Sл6)" DROPPED.":CA│CAм1:Бе504шЕB$┤▓"ME"зЗ"WHAT'S THERE TO READ???":Бе5041ЄЕL(7)┤▓0зЗ"YOU AREN'T CARRYING IT.":Бе504h№З Л(34)"ALL WHO ENTER ABANDON ALL HOPE" Л(34):Бе504ЩЗ"MONSTERS KILLED:":АX│23е27:ЕL(X)│21зЗO$(X)4┼Л:З"TREASURES:":АX│17е20:ЕL(X)│0зЗO$(X)4╨Л:Бе505$ЕB$┤▓"CH"░B$┤▓"DR"░B$┤▓"DO"зЗ"I CAN'T OPEN A "O$(Sл6)".":Бе505L.ЕL(Sл6)┤▓L ░B$┤▓"DO"зЗ"I SEE NO "O$(Sл6)" HERE.":Бе505`8ЕB$│"CH"зБж11205░BЕB$│"DR"зO$(29)│"OPEN DRAWER":З"THERE IS A KEY IN THE DRAWER.":L(11)│6:Бе505─LЕB$│"DO"зБж11405▀VЗ"DOOR(S) OPENED":Бе506K`ЕL2┤▓1░L(11)┤▓0зЗ"IT'S LOCKED.":Бе50:ДЗ"THERE IS GARLIC AND A CROSS IN  THE CHEST.":L(8)│L:L(12)│L:Бе506QjР6МtАX│Sл6е57:ЕL(X)│L з1150:ДЛ:З"I SEE NO DOOR HERE.":Бе506з~ЕL│2зP(L,3)│3:P(L,2)│16╣ИЕL│1зP(L,1)│26╦ТЕL│4зP(L,1)│56▌ЬЕL│6зP(L,1)│76ёжЕL│11зP(L,3)│137░ЕL│14зP(L,1)│187#║ЕL│15зP(L,1)│16:P(L,3)│177)─Р7╗╬ЕL(13)┤▓0▒L(9)┤▓0зЗ"I CAN'T!":Бе50:ДЗ"HE'S DEAD!!!!!":L(23)│21:L(17)│L:ЕL(24)│21зL(26)│L:З"THE WITCH APPEARS IN A PUFF OF  SMOKE!!!":Бе50:Д508G╪ЕL(21)┤▓0зЗ"I CAN'T!!!":Бе50:ДЗ"HE'S DEAD!!!!!":L(24)│21:L(18)│YзЖ├ц=цЕ'Т*	┴А'дPЖ<Ч~╫]Жц>цЕ,	┴А'АuБЙPЖЁФ~Ч~╫^▄]▌[╞ЩС^$▄]╫[Ч\╞f╘~╫~Ц\╞d=▌x╓[O▌v├Цy4 1НўG_бе'%\) їЧ|@леЧ}Ц|ZаеС}#
\[╫\O_~&╙[э 	├
~&яУ[5 э0 =ж>жЖ+╠
Аv
 юБА'╠ хm&ў ьm&O_ ╫╠ ╥94 pД
&1Нї╘жл SЖ ├
1НЎ╞жл╓~┴']'pц=XI┴А%
LБА%oЖА
p'	l 
p'
@5 9ьm<+ы;$LБ%
O 
р;$А
АvБ,Жэ▌~ Фц=зЕьА
,Ж▌~ Гц>зЕ0ЬТ#┬9E▀О0у╚▌A▌К0╚\Я?oдo!o"o#╚ЩШЯ╠
▌ЦЧ┐╫┴╞╫├j┬нЯа&
q▐О
╦&В
б&ьнЯа
▐О№
ZУАw
Ц&
Щ& ╪ЮКЩ▌ЦM&ЩЦ└РаБ└#
OЧ└ Б?&ЩЦ└ЫаБ└#Ж└Ч└┴?&Щ╓┬╨а┴└#
_╫┬ ]&Щ╓┬█а┴└#╞└╫┬▄┐█Ц╫a└чж▄┴╦?╨Ч╫b└чжН5 nЮК№ `▌╠╢ bБАwБ& ]▄╠УЦ' T▌ЦА╓┐зеЖ▀РЧА╓┴зе <ЮКЦ┐цж╦╫aЦ┴цж╦╫bЮФЬ╗/жвогзД є·с▀О3Нє╪▀л3Нє╦ж└ЧЪ_ЦZЕА&ЪVH ЎЬЫ%*ЬЭ%"$жДпбзаЦЪкДзД Аx
жДпбза0
жДпбзаЦЪкъДэ0ИУл# ╖▐ОЯФЮКЖАХШ')Ц┐цж╦╫eАцж╦╫gЦ┴цж╦╫fАцж╦╫hЮФў·ЯФ9┤▐ОБ'
БP&╦■sБK&
б'б■fб■aАxБ Б1&ЮКjд Ж╡ 'ё■HБ2&ЮКlд Ж╡ 'ё■2Б3&ЮКj!■ъЖ╡ 'ё■Б4&ЮКl!■╘Ж╡ 'ё■Б5&ЮКj"■╛Ж╡ 'ё¤ЁБ6&ЮКl"■иЖ╡Аy
 'ё¤┌БB'┤БE'ЁБX&╠
Ч┐╫┴├Чl╚I
w■v¤пБY&╠Ч┐╫┴╞
╫├vl╚I╜zIНW■V¤ПБZ&¤Й╠
Ч┐╫┴╞╫├НUl╚I╜zIН6■5¤n╠Ч┐╫┴ЖЧ├ЮАyБКЬ?'o<ЯШ▄К▀ОУОэ╚Н#&l╚Iиєч▄н▌╣Гс▌Ы├ ▌Э▄╗▌ФЦЯЧШ9▄│▌╣Ш9ЦЯЮКМЁ$¤Ь?'з<ЖБЧЯo#ьдэ'ц"ч)1'ЯКЖЧа
[ УОэ╚Н┬l╚IJНгАz
№▐ЮКМЁ$№╙ьдэ'ц"ч)1'ЯКЦЯ'з5Яo< ЖAз< УОэ╚ Еl╚I
 eЖ
Ча
[№Щm╚I'
#O_Ю╗эБэБэБэБЬ╜%Ї1─ у╚▌A1╚\ЬA$еж#Е
'mЕ@''Ц┐АzБцжg╦╫aЦ┴цж\╦╫b°Ь╗%Ь╜"кДзДж#ЕА'7Ц┐цж<╦╫eЛцж1╦╫gЦ┴цж&╦Цe▌eЦ┴Лцж╦Цg▌gїrж#Е '
╢1' 4B╟ж╚Ч─],P╟ж╚=XА{
I)
─&° Ж
╟'@╟Й5B9
╚'Ю╗cАcАcАcАcАcАcАcАЬ╜%ьP} ,·ЮнЮ│ЯнЯ│Я╣ЮпЮ╡ЯпЯ╡Ю▒Ю╖Я▒Я╖зЯk╡зЯk╖▄╣Гс▌╗├ ▌╜пo╚I9ЖЧuO_y	xYIА{БУv%Уvy
u&эvУv%,▄x├
▌x9YOЙ=Уq$▌xY)ЦY юУq▌e▄qУxУe$
Y9╠АО0╚Н0╚4Н чДпoп
эз	п
ззИэ9ЖАз╚Ж
з╚0─у╚▌A0А|
╚\ьДэжз0ЬA%Є946Жў┤ 
╖ 
Жў┤ ╖ Ж║ #╖ #Ж№╖  ОА_О(1?&№╖  Й0&я5694ж╚БА$	Ы╩)з╚ ЖАз╚ж╚Б'l╚d╚594ж╚БD#Р╔з╚ эжА|Б╚Б
'
Ж@з╚j╚h╚ ┘j╚&╘l╚ ╧Я'╓├0ецДр,
P╫Ш=▌╓■5╫╓┐0ецДр╫6,
PШ=╙▌цД■╦╫╓┴0ецДр╫7,
PШ=╙▌qцД¤¤╦╫■е╓Y¤ё╫0НюА}
4ЯТ°*Ю:Я-3НюяЦц─=XI],
LЧЧ60ГlCS├
0Ня╥жЛ╓=XI],
LЧЧ70Нэїўэ!▄-уБ#
O▌~°╩ЧЫЧЦРЧ▄~J,Ж▌~°▓ЧЫЧ
ЦРЧ	▄-г$ЖА}Б▌~°ЩЧЫЧЦРЧ▄~J,Ж▌~°БЧЫЧ
ЦРЧГl'E▄▌e▄▌g▌ЄС▄▌e▄▌g▌ЄД▄
▌g▄▌e▌
Єw▄▌g▄▌e▌Єj3╚@Гm# Ю'▐О9▄▌▄▌▄h~
▌
▄▌ ▄















\
А
ААА
ААА POSZ
14800 	FCB	88
14900 	LBRA	PNEGZ
15000 	FCB	49
15100 	LBRA	PIDLE
15200 	FCB	50
15300 	LBRA	PINC
15400 	FCB	51
15500 	LBRA	PDEC
15600 OPER2	FC                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
5 'DOCS/ASC
10 'COMMAND KEYSTROKES FOR ROTATION MODE
20 'ALPHA MATRIX:
30 'Q => +X AXIS ROTATION
40 'W => -X AXIS ROTATION
50 'A => +Y AXIS ROTATION
60 'S => -Y AXIS ROTATION
70 'Z => +Z AXIS ROTATION
80 'X => -Z AXIS ROTATION
90 '1 => STOP ROTATION
100 '2 =>INCREASE ROTATION RATE
110 '3 =>DECREASE ROTATION RATE
200 '
210 '
220 'BETA MATRIX:
230 'U => +X AXIS ROTATION
240 'I => -X AXIS ROTATION
250 'J => +Y AXIS ROTATION
260 'K => -Y AXIS ROTATION
270 'M => +Z AXIS ROTATION
280 '< => -Z AXIS ROTATION
290 '7 => STOP ROTATION
300 '8 =>INCREASE ROTATION RATE
310 '9 =>DECREASE ROTATION RATE
400 '
410 '
420 'GENERAL KEYSTROKE COMMANDS FOR ROTATION MODE
430 '0..(NUMERAL ZERO).. =>RESET IMAGE
440 'N =>NEGATE IMAGE
450 'B =>SCALE IMAGE UP
460 'V =>SCALE IMAGE DOWN
470 'G =>TOGGLE FOR MANUAL ROT. USING JOYSTKS
480 'D =>ENTER DRAW MODE USING JOYSTKS
490 '[BREAK] =>IN MAIN ROTATION PROGAM MODE..EXITS TO BASIC
500 '[CLEAR] =>ERASE IMAGE
510 '
520 '
530 '
600 'DRAW MODE KEYSTROKES COMMANDS
610 'B =>SET ENDPT AND EXTEND LINE
620 'E =>END CURRENT LINE  WITH ENDPT
630 'X =>SET X AXIS ORTHOGANAL TO SCREEN
640 'Y =>SET Y AXIS ORTHOGANAL TO SCREEN
650 'Z =>SET Z AXIS ORTHOGANAL TO SCREEN (DEFAULT)
660 '[BREAK] =>EXITS FROM DRAW MODE TO ROTATION MODE
670 '
680 '
1000 'NOTES...
1010 'PRESS RESET (NUMERAL ZERO) AFTER LOADING A NEW IMAGE
1020 'PRESSING [BREAK] AFTER RE-ENTERING BASIC EXITS PROGRAM
1030 'DRAW MODE CAN ONLY BE ACCESSED THROUGH ROTATION MODE
 '[BREAK] =>EXITS FROM DRAW MODE TO ROTATION MODE
670 '
680 '
1000 'NOTES...
1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Аk
NkА  
 ї
 ї
xppH
)с ╩ ╧Aс ╦ ╬Aс&= 
ААmБЖkЛ3НВ▀ОЖ╗╖ ╢ Б√&l╚I╙Ж╗╖ ╢ Б■&l╚IЪ
D'╧o╚0pO_▌ЖнЯа
▐О╢
ZСF'+РF,@p╞=ч╚/
p'
Ж з╚0╢
ZЧF
WЖ
з╚0╢
ZЧF
F╢
[СG'+РG,Аn
@p╞=ч╚/
p'
Ж з╚0╢
[ЧG
_Ж
з╚0╢
[ЧG
N╢
]СH'+РH,@p╞=ч╚/
p'
Ж з╚0╢
]ЧH
gЖ
з╚0╢
]ЧH
V╢
\СI'#РI,	@LЧ╔ Ч╩
╓╢
\ЧIЖЧ╔Ч╩l╚IАnБЗнЯа'
Г
D 1НC 1Н_mе'gбе'╦(Є\\)WnеQeWeAЧSЧZ╔X╔1√2
3

U^I^JРKРM┬,┬7▌8√9
0
Аo
N
G
&

DТёOЛ9Ж
 Ж з╚╠
г╚'╪l╚э╚╧Ж
 Ж з╚0╠
г╚1'╗l╚3э╚1▓Ж
 Ж з╚╠г╚'Юl╚э╚ХЖ
 Ж з╚0╠АoБг╚1'Бl╚3э╚1xЖ
 Ж з╚╠
г╚'dl╚э╚[Ж
 Ж з╚0╠
г╚1'Gl╚3э╚1>o╚8o╚02ж╚L'*з╚$ж╚J'з╚ж╚/L'з╚/Аp
ж╚/J'з╚/·нl╚I
/¤n╚l╚I
$¤cO╞\э╚ сD'нЯа
▐О№
Z▌F№
\ЧI╫H¤B╞
ч╚¤:▄g╤f"Юe▌eЯg▄g╨f╫k&╞ Сe'С"тO╫jЪСe&╞ O╫j  АpБ"
╓e╨g╫j╤k&╞
╫jO "ijk
°╫Y╫PЧKЧQ▄g▌a
■ЯNЧM▄e▌a
єЙ
P&4ЦKЫQЧQСj#РjЧQ0ИрЬN'
║
їЦYЧPX$Y0ЬN'
з┼'
ё0ИрЬN'
Ф Аq
║▄jЙ▌jjk
Й╫Y╫PЧKЧQ▄g▌a
ПЯNЧM▄e▌a
ДЙЬN'Q
а
P&0ЦKЫQЧQСj#РjЧQX$Y0ЬN'2┼'
Р
wЦYЧP0ИрЬN'X$╞Y0ЬN'┼'
n │X$
V╒АqБM&
┌MM%
 ЁРeЧjСk&╞
╫jO "ijkю╫Y╫PЧKЧQ▄g▌aЇЯNЧM▄e▌aщЙ
	
P&4ЦKЫQЧQСj#РjЧQ0ИрЬN'░ыЦYЧPT$V0
ЬN'Э┼'чАr
0ИрЬN'К ║▄jЙ▌jjk╫Y╫PЧKЧQ▄g▌aЕЯNЧM▄e▌azЙЬN'QЦ
P&0ЦKЫQЧQСj#РjЧQT$V0
ЬN'2┼'ЖmЦYЧP0ИрЬN'T$╞V0
ЬN'┼'АrБd │T$
Y╒M&┌MM$Ў;9ЖЧi╓kOXIСj%Рj\
i&є9Цb╞ =CS╙╣
╓aTTT:XXXP█aЖА]'DZ&№ЯaЧZ9
Ш&Ь╗%Ь╜"╫cъДчД╓c9ЬЫ%√ЬЭ"ў╫cпбцДча┌cчД╓c9▄e▌Аs
a иЙ ╚9m╚'
0╚(ЯТ0╚m╚3'
0╚BЯТ0╚4m╚'0╚(ЯТ0╚(l╚Im╚0'0╚BЯТ0╚4l╚Im╚I'·&▀xp0╚(ЯТ0╚6ЯA0╚1╚4ж&Чmж-ЧnАsБжиЧo3╚\▀|3╚юo└У|%∙3╚южД,	@(m'pцд,	P(
m'p=XI)П
p'@pл─)ОБА'Кз─ж
,	@(m'pц',	P(
n'p=XI)Y
p'@pл─)ZБА'Xз─жАt
,	@(m'pц.,	P(
o'p=XI))
p'@pл─)*БА'(з└p0ЬТ# ^0Иы1!ЬA# R ЖА
p'рlIp ┌ЖАm─,╘lI ╨▐x▄xу╚▌A1╚`0╚\p3╚P▀Т3Zoдo!o"жД,@АtБpц└,	P(mH'p=XI(
Ж3B
p'n@p i
p'@pлдздж
,@pц└,	P(mH'p=XI(
3AЖ
p'=@p 8
p'@pлдздж,@pц└,	P(mH'p=XI(Ж
p'@p Аu
	
p'@pлдзаУТ# h03W1ЬA% V▐x$°cЖ
p'▌@p ╪o?ЬТ"фц=жЕ,
@Й=▌qц>жЕ,
@Й=╙q▌qDЦ^k;
Object numbers, locations

1 north                  26 note 59
2 south                  27 pocketwatch 15
3 east                   28 charm 99
4 west                   29 cross - in dresser
5 up                     30 urn - in crypt
6 down                   31 amulet 100
7 lantern 33             32 sickle 22
8 revolver 66            33 clock 57
9 bullet - in chest      34 shutters 72
10 stake 31              35 chest 13
11 cigar 12              36 dresser 67
12 matches 33            37 window 32
13 vial 60               38 gate 45
14 key - from skeleton   39 telephone 1
15 pen 18                40 fresh grave 24
16 paper 14              41 rug 108
17 book 91               42 crypt 48
18 log 34                43 coffin 100
19 hammer 75             44 butler 52
20 torch 46              45 corpse 81
21 shovel 42             46 wraith random
22 pill 64               47 skeleton 82
23 coin 63               48 reaper random
24 horn 43               49 mummy 5
25 salt 87               50 boatman

27-31 are treasures
^k;
torch 46              45 corpse 81
21 shovel 42             46 wraith random
22 pill 64               47 skeleton 82
23 coin 63               48 reaper random
24 horn 43               49 mummy 5
25 salt 87               50 boatman

27-31 are treas                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
5 '3-D/BAS
10 PCLEAR 8 :PMODE 4,1 :CLEAR 200, &H6B00
15 CLS
20 LOADM"TRID/BIN"
30 LOADM"CTAB/BIN", &H0300
100 SCREEN 0,1 :CLS :PRINT"(L)OAD IMAGE"+CHR$(13)+"(S)AVE IMAGE"+CHR$(13)+"(P)ROGRAM ENTRY"
110 A$=INKEY$ :IF LEN(A$)=0 THEN110
120 IF A$="L" THEN 200
130 IF A$="S" THEN 300
140 IF A$="P" THEN 400
150 SOUND 100,1 :GOTO 110
200 'LOAD IMAGE FROM DISK
210 CLS :POKE &H7882,0 :PRINT @ 164,"FILENAME?" :INPUT N$
220 IF LEN(N$)=0 THEN 100
230 LOADM N$ :GOTO 100
300 'SAVE IMAGE TO DISK
310 CLS :POKE &H7882,0 :PRINT @ 164,"FILENAME?" :INPUT N$
320 IF LEN(N$)=0 THEN 100
330 SAVEM N$,&H787E,&H7FFF,&H787E :GOTO 100
400 'ENTRY TO TRID/BIN
410 SCREEN 1,1 :EXEC &H6D81
420 GOTO 100
N(N$)=0 THEN 100
230 LOADM N$ :GOTO 100
300 'SAVE IMAGE TO DISK
310 CLS :POKE &H7882,0 :P                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ^k;

(C) 1983-1985, 1991 Paul Riddle and Jcr Products

LOCATIONS 
1. Bedroom with rats everywhere 
2. West end of a hallway 
3. Large attic 
4. East end of a hallway 
5. Large candle-lit master bedroom 
6. Small bathroom 
7. Hallway 
8. Large sooty kitchen 
9. Old back porch 
10. Large living room with rotting furniture 
11. Small damp foyer 
12. Ornate parlor 
13. Dusty drawing room 
14. Dank musty library 
15. Eerie creepy conservatory 
16. Creaky wooden front porch 
17. Grand dining room 
18. Small plain den 
19. Tiny musty bathroom 
20. Narrow dirt trail 
21. Dirt path 
22. End of the path 
23. Huge gloomy graveyard 
24. Graveyard 
25. Graveyard 
26. Road ending at a graveyard 
27. On the road 
28. Desolate dirt road 
29. Abrupt end of the road 
30. Dense forest 
31. Rocky overgrown garden 
32. Front porch of an old rickety mansion 
33. Damp musty-smelling foyer 
34. Parlor with a large fireplace 
35. Old rotting back porch 
36. Hall overlooking the foyer 
37. Small balcony overlooking the road 
38. Front porch of an old rundown mansion
39. East end of a long east-west hall 
40. Sheet-covered neglected foyer 
41. Enterance hall of a large castle 
42. Small storage shed 
43. East bank of a wide river 
44. West bank of a wide river 
45. Middle of the forest at a cast-iron gate
***** All room above 45 are dark *****
46. Large chill empty chamber
47. Small storage room
48. Wooden vault with a crypt at the center
49. Small stuffy living room
50. Conservatory with a large grand piano
51. Library with boarded-up windows
52. Butler's chamber
53. Dusty bathroom
54. Large rotting kitchen
55. Small pantry
56. Old foul-smelling pantry
57. Dining hall with a large banquet table
58. Huge fancy ballroom
59. Dusty basement
60. Oppressive vault
61. Low crawl unused for many years
62. Long winding passage
63. Secret treasure room
64. Bathroom
65. Hallway
66. Small bedroom
67. Large master bedroom
68. West end of a hallway
69. Old parlor with a thick layer of dust
70. Large music room
71. Bathroom
72. Den with an adjoining library
73. Library with sheets covering everything
74. Pantry that smells of rotton food
75. Filthy dusty basement
76. Smelly dirty kitchen
77. Upstairs hallway
78. Bedroom with sheet-covered furnishings
79. Master bedroom
80. Bathroom
81. Attic
82. Attic with cobwebs everywhere
83. Small damp passageway
84. Grand dining hall
85. Guard room
86. Throne room
87. Kitchen
88. Trophy room
89. Small passageway
90. Music room
91. Library
92. Empty closet
93. Royal courtyard
94. Northeast tower room
95. Southwest tower room
96. Southeast tower room
97. Northwest tower room
98. Grand hall
99. Chamber of the king
100. Sealed vault
101. Armory
102. Stone passageway
103. Bedroom
104. Cold clammy prison cell
105. Torture chamber
106. Hall of the royal court
107. Large natural cavern
108. Kings bedchamber
109. Small cave
110. Narrow tunnel
111. Low crawl
112. Wine cellar
113. Wood passageway
114. Small crypt
115. Shallow dark cavern
116. Winding stone tunnel
117. Large stone chamber
^k;
all of the royal court
107. Large natur                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ^k;
                                 Haunted House


     You wake up with a start.  What a nightmare!  You keep hearing this dim
ringing and . . . well, you can't really remember.  You shudder and pull up the
covers, afraid to open your eyes.  What you DON'T know is that the nightmare is
only beginning ...

     Eventually, you open your eyes, expecting as usual to see your computer
desk, bureau, and TV.  As your eyes adjust, you can tell it's sometime in the
evening.  But then the room materializes around you.  This sure isn't your
room!  Where are you?  The dim ringing is still there.  It's a telephone!  An
old, nineteenth century phone is on the nightstand, ringing away.  Almost
subconsciously, you reach to pick it up ...


     Welcome to Haunted House !!  This ghastly text adventure game is finally
finished, and takes up 32k of RAM.  To load simply insert the game disk and
type RUN "HH"

     After an introductory screen and a picture, the screen will say "WELCOME TOHAUNTED HOUSE!".  You will be in the bedroom.  At the bottom of the screen,
there is a prompt, which is a ":" with a flashing cursor.

     You give the computer commands by using plain english verbs and nouns.  If
you want to answer the ringing phone, type ANSWER PHONE.  Other helpful verbs
are GET, DROP, THROW, HIT, etc.  Experiment with different verb-noun
combinations and see what happens!

     To move about in the adventure, use N,S,E,W,U, and D.  Be sure to examine
your surroundings.  There are some secret passages in the game.  There are
several one-word verbs you need to know too:
INVENTORY (abb. INVENT,INV or I):  Tells you what you are carrying
SCORE:  Tells you your physical condition, turns taken, and the time (if you
have a watch!).  Your physical condition begins at 255 and is lowered by
attacks, cursed items, etc.
DONE:  Type this when you think you have finished the adventure!

     You have 4 hours to complete the adventure.  You begin at 8:00 pm and must
finish by midnight, or else.

     Five items are treasures.  It is up to you to find out what they are.

     The antagonists of the adventure are the monsters.  To win, all of them
must be dead.  To kill the monsters, certain items must be put to use.  The
monsters are:  Vampire, Werewolf, Zombie, Wraith, Skeleton, Reaper, and Mummy. 
The only helpful creature is the Boatman.  What he does, you'll have to find
out.

     You must be in a certain location to win.  I'm not going to tell you
exactly which location, but I will say it is outdoors.
 
     I suggest you make a map.  This is a very large-scale adventure; it boasts
117 locations, including 3 houses, outdoors, and a castle.  There are 50
objects, including treasures, helpful objects, furniture, and monsters.  28
different verbs may be used.

Free hint:
A potato-chip seasoning is the dead man's bane.
^k;
re; it boasts
117 locations, including 3 houses, outdoors, and a castle.  There are 50
objects, including treasures, helpful objects, furniture, and monsters.  28
different verbs may be used.

Free hint:
A potato-chip seas                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 :&╚Ю:З"IT IS ADVISED TO READ THE INSTS.FIRST, BECAUSE THEY GIVE YOU THESCENARIO.  VIEW/PRINT INSTS.    WITH ASCII BASED WORD PROCESSOR.THE FILENAME IS HAUNT.DOC       PRESS <BREAK> TO STOP.":в44539',
Т65497,0:АX│1024е1535:НY:ТX,Y:Л:Т65496,0:в44539:Т65497,0:АX│1024е1535:НY:ТX,Y:Л:Т65496,0:в44539';О"HAUNT!!"'pЖ128,10,3,18,128,16,18,15,4,21,3,20,19,128,16,18'дЖ15,21,4,12,25,128,16,18,5,19,5,14,20,19,58,128'щ(Ж128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128(.2Ж128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128(s<Ж128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128(╕FЖ128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128(¤PЖ128,128,175,160,175,128,167,172,171,128,175,160,175,128,175,171)BZЖ160,175,128,172,175,172,128,175,172,172,128,175,172,171,128,128)ЗdЖ128,128,175,172,175,128,175,172,175,128,175,160,175,128,175,164)╠nЖ171,175,128,160,175,160,128,175,172,172,128,175,160,175,128,128*xЖ128,128,172,160,172,128,172,160,172,128,172,172,172,128,172,160*VВЖ164,172,128,160,172,160,128,172,172,172,128,172,172,168,128,128*ЫМЖ128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128*рЦЖ128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128+%аЖ128,128,128,128,128,128,159,144,159,128,159,156,159,128,159,144+jкЖ159,128,159,156,156,128,159,156,156,128,128,128,128,128,128,128+п┤Ж128,128,128,128,128,128,159,156,159,128,159,144,159,128,159,144+Ї╛Ж159,128,156,156,159,128,159,156,156,128,128,128,128,128,128,128,9╚Ж128,128,128,128,128,128,156,144,156,128,156,156,156,128,156,156,~╥Ж156,128,156,156,156,128,156,156,156,128,128,128,128,128,128,128,├▄Ж128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128-цЖ128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128-=ЁЖ32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32-r·Ж32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32-з
Ж128,128,128,1,128,7,8,1,19,20,12,25,128,20,5,24-▐
Ж20,128,1,4,22,5,14,20,21,18,5,128,128,128,128,128.
Ж128,128,128,128,23,18,9,20,20,5,14,128,2,25,128,16.M
"Ж1,21,12,128,18,9,4,4,12,5,128,128,128,128,128,128.Т
,Ж128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128.╫
6Ж128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128/
@Ж128,128,18,5,12,5,1,19,5,4,128,9,14,128,128,14/B
JЖ15,22,5,13,2,5,18,128,49,57,57,49,128,128,128,128/З
TЖ128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128/╠
^Ж150,146,128,128,128,128,128,128,128,128,128,128,128,128,128,1280
hЖ128,128,128,128,128,128,128,128,128,128,128,128,128,146,128,1500V
rЖ145,152,128,128,128,128,128,128,128,128,128,128,128,128,128,1280Ы
|Ж128,128,128,128,128,128,128,128,128,128,128,128,150,148,150,1450р
ЖЖ152,128,128,128,128,128,128,128,128,128,128,128,128,128,128,1281%
РЖ128,128,128,128,128,128,128,128,128,146,128,150,145,153,145,1521j
ЪЖ128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,1281п
дЖ128,128,128,128,128,128,128,128,150,148,150,145,152,128,152,1281Ї
оЖ128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,12829
╕Ж128,128,128,128,128,128,128,150,145,153,145,152,128,128,128,1282~
┬Ж128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,1282├
╠Ж128,128,128,128,128,128,150,145,152,128,152,128,128,128,128,1283
╓Ж128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,1283J
рЖ128,128,128,128,128,177,185,152,128,128,128,128,128,67,82,653}
ъЖ83,72,97,97,128,128,12,9,7,8,20,14,9,14,7,1283╜
ЇЖ128,128,128,128,177,184,128,185,176,128,128,128,128,8,9,203Є
■Ж19,128,20,8,5,128,8,15,21,19,5,128,1,19,128,12844Ж128,128,128,177,184,128,128,128,185,176,128,128,128,25,15,214iЖ128,7,5,20,128,15,21,20,128,15,6,128,20,8,5,1284иЖ128,128,177,184,176,176,176,176,176,185,176,128,128,2,5,44р&Ж46,128,128,128,20,8,5,128,16,8,15,14,5,128,128,1285 0Ж128,176,190,188,188,188,188,188,188,188,186,128,128,11,5,55T:Ж16,19,128,18,9,14,7,9,14,7,46,128,128,25,15,215ЦDЖ128,176,186,128,128,128,128,128,128,128,186,128,128,23,15,145╠NЖ4,5,18,128,45,128,8,15,23,128,3,1,14,128,128,1286XЖ128,128,186,197,204,202,128,128,128,128,186,128,128,20,8,56CbЖ18,5,128,2,5,128,16,8,15,14,5,128,128,128,128,1286ДlЖ128,176,186,197,180,202,176,176,176,176,186,128,128,12,9,146║vЖ5,19,128,20,15,128,20,8,9,19,128,15,12,4,128,1286√АЖ128,128,188,188,188,188,188,188,188,188,184,128,128,8,15,2179КЖ19,5,63,46,46,46,128,128,128,128,128,128,128,128,128,128128,1286ДlЖ128,176,186,197,180,202,176,176,176,176,186,128,128,12,9,146║vЖ5,19,128,20,15,128,20,8,9,19,128,15,12,4,128,1286√АЖ128,128,188,188,188,188,188,188,188,188,184,128,128,8,15,2179                                                                                                                                                                                                                                                                    ├ ├╚╟├┬
──┴╞┼├├├!╔#$%&'()├┬╚╚╚/0╞23╔5┼7├╞┼┬╟        3-D     BAS зADVGEN20BASзCALORIE BAS4рCASTLE  BAS1╙CTAB    BIN*ЛCUBE    BIN+МDARTS   BAS
DOCS    ASC ▓GAMELIFEBAS6ГGHOSTBSTBASmHAUNT   DOC
 "HAUNT IIBAS.┼HAUNT!  BASРHAUNT!! BAS"?HELIX   BIN-МHH      BAS =HOUSE   BAS8дILSION#6BAS9мLOCATIONTXT
 ┘MYSTERY BASъOBJECTS TXT
 	ORIOLE  BAS	UPIC     BIN,МPICSAV  BAS:sPIGLATINBAS;╘RADSCAREBAS3STATECAPBASTRID    BINo                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 A<&
:Г*****************&1:Г* HAUNTED HOUSE *&I:Г*****************&i(:ГGHASTLY TEXT ADVENTURE BY&Г2:ГPAUL RIDDLE @ 1985.&К<:Г&м=:ГAVAILABLE FROM JCR PRODUCTS&│>:Г&├AТ65497,0:└1&ЎFЮ:МP(117,6),D$(117),O$(50),L(50),C$(29),L$(43)'
PH│8:M│0:T│0:PC│255'ЪZЗ@480,"WELCOME TO HAUNTED HOUSE!":АX│1е50:НO$(X),L(X):Л:АX│1е117:НD$(X):Л:АX│1е117:АY│1е6:НP(X,Y):ЛY,X:АX│1е29:НC$(X):Л:АX│7е43:НL$(X):Л'╛dL│1:L(46)│ Д(117):L(48)│ Д(117)'╦eТ65496,0'ЇnЖNORTH,,SOUTH,,EAST,,WEST,,UP,,DOWN,(*xЖLANTERN,33,REVOLVER,66,SILVER BULLET,-2,STAKE,31(ДВЖCIGAR,12,MATCHES,33,VIAL,60,KEY,-2,PEN,18,PAPER,14,BOOK,91,LOG,34,HAMMER,75,TORCH,46(уМЖSHOVEL,42,PILL,64,COIN,63,HORN,43,SALT,87,NOTE,59,POCKETWATCH,15,CHARM,99,CROSS,-2,URN,-2)_ЦЖAMULET,100,SICKLE,22,GRANDFATHER CLOCK,57,SHUTTERS,72,CHEST,13,DRESSER,67,WINDOW,32,GATE,45,TELEPHONE,1,FRESH GRAVE,24)╔аЖRUG,108,CRYPT,48,COFFIN,100,BUTLER,52,CORPSE,81,WRAITH,,CAPED SKELETON,82,REAPER,,MUMMY,5,BOATMAN,-2*жкЖBEDROOM WITH RATS EVERYWHERE,WEST END OF A HALLWAY,LARGE ATTIC,EAST END OF A HALLWAY,LARGE CANDLE-LIT MASTER BEDROOM,SMALL BATHROOM,HALLWAY,LARGE SOOTY KITCHEN,OLD BACK PORCH,LARGE LIVING ROOM WITH ROTTING FURNITURE+l┤ЖSMALL DAMP FOYER,ORNATE PARLOR,DUSTY DRAWING ROOM,DANK MUSTY LIBRARY,EERIE CREEPY CONSERVATORY,CREAKY WOODEN FRONT PORCH,GRAND DINING ROOM,SMALL PLAIN DEN,TINY MUSTY BATHROOM,NARROW DIRT TRAIL,╛ЖDIRT PATH,END OF THE PATH,HUGE GLOOMY GRAVEYARD,GRAVEYARD,GRAVEYARD,ROAD ENDING AT A GRAVEYARD,DESOLATE DIRT ROAD,ON THE ROAD,ABRUPT END OF THE ROAD,DENSE FOREST,ц╚ЖROCKY OVERGROWN GARDEN,FRONT PORCH OF AN OLD RICKETY   MANSION,DAMP MUSTY-SMELLING FOYER,PARLOR WITH A LARGE FIREPLACE,OLD ROTTING BACK PORCH,HALL OVERLOOKING THE FOYER,SMALL BALCONY OVERLOOKING THE   ROAD-V╥ЖFRONT PORCH OF AN OLD RUNDOWN   MANSION,EAST END OF A LONG EAST-WEST    HALL,SHEET-COVERED NEGLECTED FOYER.A▄ЖENTERANCE HALL OF A LARGE CASTLE,SMALL STORAGE SHED,EAST BANK OF A WIDE RIVER,WEST BANK OF A WIDE RIVER,MIDDLE OF THE FOREST AT A CAST- IRON GATE,LARGE CHILL EMPTY CHAMBER,SMALL STORAGE ROOM,WOODEN VAULT WITH A CRYPT AT THECENTER/(цЖSMALL STUFFY LIVING ROOM,CONSERVATORY WITH A LARGE GRAND PIANO,LIBRARY WITH BOARDED-UP WINDOWS,BUTLER'S CHAMBER,DUSTY BATHROOM,LARGE ROTTING KITCHEN,SMALL PANTRY,OLD FOUL-SMELLING PANTRY,DINING HALL WITH A LARGE BANQUET TABLE/╩ЁЖHUGE FANCY BALLROOM,DUSTY BASEMENT,OPPRESSIVE VAULT,LOW CRAWL UNUSED FOR MANY YEARS,LONG WINDING PASSAGE,SECRET TREASURE ROOM,BATHROOM,HALLWAY,SMALL BEDROOM0д·ЖLARGE MASTER BEDROOM,WEST END OF A HALLWAY,OLD PARLOR WITH A THICK LAYER OFDUST,LARGE MUSIC ROOM,BATHROOM,DEN WITH AN ADJOINING LIBRARY,LIBRARY WITH SHEETS COVERING    EVERYTHING,PANTRY THAT SMELLS OF ROTTEN FOOD1З
ЖFILTHY DUSTY BASEMENT,SMELLY DIRTY KITCHEN,UPSTAIRS HALLWAY,BEDROOM WITH SHEET-COVERED FURNISHINGS,MASTER BEDROOM,BATHROOM,ATTIC,ATTIC WITH COBWEBS EVERYWHERE,SMALL DAMP PASSAGEWAY,GRAND DINING HALL,GUARD ROOM,THRONE ROOM2y
ЖKITCHEN,TROPHY ROOM,SMALL PASSAGEWAY,MUSIC ROOM,LIBRARY,EMPTY CLOSET,ROYAL COURTYARD,NORTHEAST TOWER ROOM,SOUTHWEST TOWER ROOM,SOUTHEAST TOWER ROOM,NORTHWEST TOWER ROOM,GRAND HALL,CHAMBER OF THE KING,SEALED VAULT,ARMORY,STONE PASSAGEWAY3a
ЖBEDROOM,COLD CLAMMY PRISON CELL,TORTURE CHAMBER,HALL OF THE ROYAL COURT,LARGE NATURAL CAVERN,KING'S BEDCHAMBER,SMALL CAVE,NARROW TUNNEL,LOW CRAWL,WINE CELLAR,WOOD PASSAGEWAY,SMALL CRYPT,SHALLOW DARK CAVERN,WINDING STONE TUNNEL3z
"ЖLARGE STONE CHAMBER3▌
,Ж,-2,,,,,1,,4,,3,,,,,,,2,-5,,-6,2,,7,,4,,,,,,,,4,,,8,,18,,4,,,7,-9,10,,46,20,,,8,,,,11,8,-17,,4C
6Ж10,-12,,-16,,,11,13,14,,,,12,,,,,,,15,,12,,,14,,,,,,,,11,27,,,,,10,,,,,-19,,7,,,18,,,,,,,9,,21,,4┐
@Ж0,0,20,22,0,0,0,,21,23,,,,,22,24,,,,26,23,25,,,,,24,35,,,24,27,,,,,26,,16,28,,,,38,27,29,,,31,42,28,30,,,30,43,29,30,,5:
JЖ32,29,,30,,,,31,-33,,,,34,-53,54,32,36,,49,33,,,,,,,25,-55,,,-64,37,65,,,33,36,,,,,,28,-39,,,,,38,-74,40,68,,,,,,39,,5а
TЖ85,83,45,93,,,29,,,,,,30,,,,,,,,,45,,,,,44,,,,,47,-48,,8,,46,,,,,,,,,46,,,-50,34,52,,,,,49,51,,,6
^Ж,,,50,,,,,,49,,,33,,,,,,56,57,55,33,,59,,,35,54,,,,54,,,,,54,,58,,,,,,,57,,,,,,60,54,,,,59,,,6m
hЖ,,62,,24,,,,63,61,,,,,,62,,,,36,,,,,66,,-67,36,82,,,65,,,,,,,,65,,,,69,39,,,,68,70,,-72,,,69,,-71,,,6╘
rЖ,,,70,,,,73,69,,,,72,,,,,,39,,76,,,75,,,,,74,,,,,74,77,,,-79,-80,78,81,76,,,77,,,,77,,,,,,,,,77,,7B
|Ж,,,,,77,,,,,,65,41,,,88,96,,87,93,85,90,,,,41,,84,94,,101,,98,,,,,84,,,,,93,,83,91,,,90,91,,,,,,89,84,,,7н
ЖЖ89,,88,99,,,,,108,,,,84,88,41,,,,,,,,,85,,,,,,108,,,,,,83,,,,,,101,106,99,,86,,,98,,91,108,,,104,,,,,8
РЖ,86,,102,97,,,103,101,,,,102,,,,,,,,,,,,,,,115,,,,98,,,,,,,,109,,,,,99,92,95,,111,,107,116,,,115,,-104,111,,8x
ЪЖ,109,110,,,,,116,,,,,,,115,114,,,,,113,,,,,110,105,113,,,112,,109,117,,,,,116,,108,9 
дЖOPEN,GET,DROP,INVENTORY,SCORE,LOOK,LIGHT,EXTINGUISH,LOAD,SHOOT,DRIVE,SMOKE,DRINK,UNLOCK,GIVE,READ,THROW,HIT,DIG,EAT,BLOW,SHOW,SET,LIFT,ANSWER,WAIT,KNOCK,TEST,DONE9·
еЖA BRASS LANTERN IS ON THE GROUND,A PEARL-HANDLED REVOLVER IS NEARBY,ON THE GROUND NEARBY IS A SILVER BULLET,A WOODEN STAKE STICKS IN THE GROUND,A CIGAR LIES IN A BOX NEARBY,A BOOK OF MATCHES LIES DISCARDED NEARBY:├
жЖA GLASS VIAL HAS BEEN CAREFULLY PLACED ON A SMALL TABLE,AN ORNATE SKELETON KEY HANGS ON A PEG ON THE WALL,A FOUNTAIN PEN SITS IN A BOTTLE OF INK NEARBY,A PIECE OF PAPER LIES DISCARDED IN THE DUST;Ч
зЖAN ANCIENT BOOK LIES OPEN ON THEGROUND,A LOG SITS IN THE DUST,A STURDY HAMMER SITS IN A SMALL TOOLCHEST,A TORCH RESTS IN A SCONCE ON THEWALL,A LARGE SHOVEL RESTS AGAINST THEWALL,A SMALL PILL SITS ON A SHELF<А
иЖA BRONZE COIN LIES HALF-COVERED WITH DUST,A HORN HANGS ON A SHORT POST,A SHAKER OF SALT SITS ON A TABLE,A NOTE IS TACKED TO THE WALL,A GOLD POCKETWATCH LIES HAPHAZ- ARDLY ON THE GROUND,A MULTI-FACETED CHARM SITS IN   THE CORNER=`
йЖA SILVER CROSS SITS ON A SHELF,ON THE GROUND RESTS AN URN,AN AMULET HANGS FROM THE CEILING,A BLACK SICKLE STICKS IN THE    GROUND,A GRANDFATHER CLOCK SITS AGAINSTTHE WALL,THE WINDOW IN THIS ROOM IS HID- DEN BY SHUTTERS>'
кЖA STURDY CHEST SITS IN THE COR- NER,A VICTORIAN DRESSER IS AGAINST  THE WALL,THERE IS A WINDOW BY THE DOOR,YOU HAVE COME TO A CASTLE SUR-  ROUNDED BY A CAST-IRON FENCE.   IN THE FENCE IS A GATE>ш
лЖAN OLD TELEPHONE SITS ON THE    NIGHTSTAND,A FRESH GRAVE IS HERE,AN ORIENTAL RUG IS IN THE CENTEROF THE FLOOR,A CRYPT IS IN THE CENTER OF THE ROOM,A COFFIN LEANS UPRIGHT AGAINST  THE WALL?p
оЕL▓45░(F1│0▒L(7)┤▓0)зЗ"IT'S DARK! YOU CAN'T SEE!":Бе470:ДЗ"LOCATION:":ЗD$(L):АX│7е50:ЕL(X)│L зЕX▓43зЗ"THE "O$(X)" IS HERE.":ДЗL$(X)?v
╕Л?╚
┬З:З"OBVIOUS EXITS:":АX│1е6:ЕP(L,X)▓0зЗO$(X):ДЕP(L,X)┤0зЗ"DOOR ON "O$(X)" WALL?╬
╠Л@'
╓T│Tл1:M│Mл1:ЕM▓59зM│0:H│Hл1:ЕH│12зЗ"M-I-D-N-I-G-H-T !!!":З"YOU ARE DOOMED...":Бе1530@<
рЕL(32)│0зPC│PCм5@{
ъЕF1│1зC2│C2л1:ЕC2│135зЗ"THE LANTERN IS DIM.":ДЕC2▓150зF1│0@╚
ЇЕF3│0░ Д(4)│1зF3│1:O$(44)│"WEREWOLF":ДЕF3│1░ Д(3)│1зF3│0:O$(44)│"BUTLER"@с
■ЕF7│1зL(46)│L:Бж1480A ЕF6│1зC6│C6л1:ЕC6▓10зF6│0:ЕL│L(43)зЗ"THE VAMPIRE IS FREE!!A`ЕF9│1зCF│CFл1:ЕCF▓5зЗ"YOU FEEL NORMAL STRENGTH AGAIN.":F9│0AЁЕL│100░FC│1зC3│C3л1:З"THE COFFIN IS SHAKING.":ЕC3▓5зFD│1:ЕL│L(43)зЗ"THE COFFIN BURSTS OPEN AND A    VAMPIRE EMERGES!":O$(43)│"VAMPIRE":FC│0B3&ЕFE│1зC5│C5л1:ЕC5▓30зЗ"THE POISON BITE HAS KILLED YOU.":Бе1530Be0ЕFG│1зCG│CGл1:ЕL│43▒L│44зИCG Бж1500,1510,1520Bс:ЕL(50)│L зCH│CHл1:ЕCH│1зЗ"THE BOATMAN EXPECTANTLY HOLDS   OUT HIS HAND.":ДЕCH▓4зЗ"THE BOATMAN GOES AWAY.":L(50)│м2:CH│0C0DЕFI│1зЗ"YOU FEEL YOUR STRENGTH DRAINING.":PC│PCм1:CZ│CZл1:ЕCZ▓10зFI│0:CZ│0CVNЕFJ│0░L│1зЗ"THE PHONE IS RINGING.CХXЕFL│1зCE│CEл1:ЕCE▓10зЗ"THE DISEASE HAS KILLED YOU.":Бе1530C╧bЕL│L(43)░FC│0░FD│0зFC│1:ДЕL│L(46)зF7│1:ДЕL│L(49)зFM│1C lЕ Д(5)│5░L(45)│L ░FO│0зFO│1:O$(45)│"ZOMBIE"D-vЕPC┤│0зЗ"YOU HAVE DIED OF WOUNDS.":Бе1530DowЕ Д(30)│1░L(48)┤▓м3зL(48)│L:З"THE REAPER APPEARS AND ATTACKS!DХxЕFD│1░F6│0░L(43)│L зC7│C7л1:ДC7│0D╖yЕF3│1░L(44)│L зCC│CCл1::ДCC│0E
zЕFO│1░L(45)│L зCI│CIл1:ЕCI▓3зЗ"YOU ARE NOW A ZOMBIE!!!!!":FP│1:Бж1460E{ЕL(45)┤▓L зCI│0E1|ЕL(47)│L зC0│C0л1:ДC0│0EM}ЕL(48)│L зCB│CBл1:ДCB│0Ei~ЕL(49)│L зCD│CDл1:ДCD│0EюЕ(L(43)│L ░FD│1░F6│0)▒(L(44)│L ░F3│1)▒(L(45)│L ░FO│1)▒L(47)│L ▒L(48)│L ▒L(49)│L зЗ"YOU ARE BEING ATTACKED.":PC│PCм Д(20):Бж10000FАЕF2│1зC4│C4л1:ЕC4▓20зC4│0:F2│0:Д430FQКЕFP│1зD│ Д(6):ЕP(L,D)│0з650:ДL│P(L,D):АT│1е500:Л:Бе430FbФЗ":";:Бж1430FДЮАX│1е6:ЕA$│ О(O$(X),1)з720:ДЛFоиАF│1е29:Е Ю(C$(F),A$)┤▓0з690:ДЛ:Бе710Fш▓ЕB$│"DOOR"з700:ДАS│7е50:Е Ю(O$(S),B$)┤▓0з700:ДЛ:Бе710G~╝И F Бе730,840,850,870,900,920,980,1060,1070,1080,1090,1110,1120,1140,1170,1230,1270,1300,1340,1350,1360,1370,1380,1390,1400,1410,1420,29998,20000Gд╞З"I DON'T UNDERSTAND THAT.":Бе470H╨ЕP(L,X)│0зЗ"YOU CANNOT GO THAT WAY.":Бе470:ДЕP(L,X)┤0зЗ"THE DOOR IS CLOSED.":Бе470:ДL│P(L,X):Бе430H/┌Е(S▓33░S┤39)▒S│42▒S│17з740:Д810HpфЕL(S)┤▓L ░ S┤▓17з1440:ДЕS│34зЗ"THE SHUTTERS ARE OPEN.":Бе470H╒юЕS│35зЕF5│0зЗ"IT IS LOCKED.":Бе470:ДЕL(9)▓│0зЗ"NOTHING IS IN IT.":ДЗ"A "O$(9)" IS IN IT.":L(9)│LI°ЕS│36зЕL(29)▓│0зЗ"NOTHING IS IN IT.":ДЗ"A "O$(29)" IS IN IT.":L(29)│LIOЕS│38зЗ"THE "O$(S)" IS LOCKED TIGHT.":Бе470IЩЕS│42зЕL(30)▓│0зЗ"NOTHING IS IN IT.":ДЗ"A "O$(30)" IS IN IT.":L(30)│LI·ЕS│37░WW│0зЗ"UGH! YOU MANAGE TO OPEN THE WIN-DOW WITH DIFFICULTY.":P(L,3)│мP(L,3):L│33:Бе430JcЕS│17░L(46)│L зЗ"A LIGHTNING BOLT SHOOTS OUT OF  THE BOOK AND KILLS THE WRAITH!":L(46)│м3:F7│0:Бе470Jm Бе470JЪ*B$│"DOOR":АX│1е6:ЕP(L,X)┤0з820:ДЛ:Бе1440J╟4ЕL│38▒L│32зЗ"THIS DOOR IS LOCKED.":Бе470Jц>P(L,X)│мP(L,X):З"OK":Бе470KtHЕL(S)┤▓L з1440:ДЕS▓32зЗ"THERE IS NO WAY TO REMOVE THAT.":Бе470:ДЕCA▓5зЗ"YOU CAN'T CARRY ANYTHING MORE.":Бе470:ДL(S)│0:З"OK":CA│CAл1:Бе470K▓RЕL(S)┤▓0з1450:ДL(S)│L:CA│CAм1:ЕS│23░L│59з860:ДЗ"OK":Бе470LN\L(S)│м4:З"THE COIN DISAPPEARS. SOME OIL   POURS OUT OF A SLOT ON THE WALL":ЕL(7)│L зЗ"INTO YOUR LAMP.":C2│0:Бе470:ДЗ"AND SPLATTERS ON THE FLOOR.":Бе470LЖfЗ"YOU ARE CARRYING:":Y│0:АX│7е32:ЕL(X)│0зY│1:ЗO$(X)LЫpЛ:ЕY│0зЗ"NOTHINGLеzБе470M
ДЗ"YOU HAVE TAKEN"T"TURNS.":З"YOUR PHYSICAL CONDITION IS"PC:ЕL(27)│0зЗ"THE TIME IS"H":"MMОБе470MnШЕL│104з6000:ДЕB$│""з430:ДЕB$│"DOOR"░L│38зЗ"THERE IS A LARGE BRASS KNOCKER  ON THE DOOR.":Бе470MБвЕL(S)┤▓L з1440M╝мЕS│41зP(108,6)│117:З"YOU FIND A SECRET PASSAGE.":Бе470Mў╢ЕS│33зЗ"A PLAQUE ON THE CLOCK SAYS:":З"'SET ME'":Бе470N)└З"I DON'T SEE ANYTHING":З"INTERESTING.":Бе470N3╩Бе470NГ╘ЕL(S)┤▓0з1450:ДЕL(12)┤▓0зЗ"YOU HAVE NOTHING WITH WHICH TO  LIGHT IT.":Бе470N╔▐ЕS┤▓7░S┤▓11░S┤▓12░S┤▓16░S┤▓18░S┤▓20зЗ"DON'T BE RIDICULOUS.":Бе470NушЕS│7зF1│1:З"OK":Бе470OEЄЕS│11зF4│1:ЕL(48)│L зL(48)│м3:З"SMOKE FROM THE CIGAR KILLS THE":ЗO$(48)".":Бе470:ДЗ"OK":Бе470Oz№ЕS│12зЗ">STRIKE< A MATCH FLARES TO LIFE.";:Бе470O┴ЕS│16зЗ">WHOOF< THE PAPER TURNS TO ASH.":O$(16)│"SOME ASHES":Бе470PЕS│18зЗ"KA-BOOM! THE LOG HAD TRINITRO-  TOLUENE IN IT! YOU ARE DEAD!!!":Бе1530PVЕS│20зFK│1:З"OK, BUT IT'S TOO DIM TO LIGHT   YOUR WAY.":Бе470P┤$ЕL(S)┤▓0з1450:ДЕS┤▓7░S┤▓20зЗ"WHAT??":Бе470:ДЕS│7зF1│0:З"OK":Бе470:ДЕS│20зFK│0:З"OK":Бе470Q+.ЕL(S)┤▓0з1450:ДЕS┤▓8зЗ"DON'T BE RIDICULOUS.":Бе470:ДЕL(9)┤▓0зЗ"WITH WHAT?":Бе470:ДCA│CAм1:FA│1:L(9)│м2:З"OK":Бе470Q╗8ЕL(S)┤▓L з1440::ДЕ FA│0 ▒ L(8)┤▓0зЗ"WITH WHAT?":Бе470:ДЕ S┤▓44░ L(8)│0░ FA│1зЗ"THE BULLET JUST BOUNCES OFF THE":ЗO$(S)".":L(9)│L:FA│0:Бе470RO9ЕF3│0зЗ"THE BUTLER TURNS INTO A WEREWOLF";:L(9)│L:F3│1:FA│0:O$(44)│"WEREWOLF":Бе470:ДЗ"BLAM! THE WEREWOLF IS DEAD!":L(44)│м3:L(9)│м2:FA│0:Бе470S
BЕL(S)┤▓0з1450:ДЕS┤▓10зЗ"HOW?":Бе470:ДЕL┤▓L(43)▒FD│0зЗ"NOTHING HAPPENS.":Бе470:ДЕF6│0зЗ"UNFORTUNATELY, THE VAMPIRE      CATCHES ON TO WHAT YOU'RE DOING AND KILLS YOU.":Бе1530SELL(43)│м3:CA│CAм1:L(10)│м4:З"THE VAMPIRE IS FOREVER GONE.":Бе470SъVЕL(S)┤▓0з1450:ДЕS┤▓11зЗ"HOW?":Бе470:ДЕF4│0зЗ"IT'S NOT LIT.":Бе470:ДЗ">PUFF GASP!< SMOKING THE CIGAR  RELEASED SOME KIND OF POISON    GAS!! YOU ARE DEAD.":Бе1530Tб`ЕL(S)┤▓0з1450:ДЕS┤▓13зЗ"YOU CHOKE ON IT AND DIE.":Бе1530:ДЕFF│1зЗ"IT'S EMPTY.":Бе470:ДЗ"THERE WAS A POTION IN IT!":ЕFE│1зЗ"THE POISON IS CURED.":FE│0:C5│0:ДЗ"IT TASTED VERY GOOD.T░jFF│1:Бе470TўtЕL(S)┤▓L з1440:ДЕS┤▓35░S┤▓38зЗ"I DIDN'T KNOW IT WAS LOCKED.":Бе470U0~ЕS│35зЕL(14)│0зF5│1:З"OK":Бе470:ДЗ"WITH WHAT?":Бе470UyИЕS│38зЕL(14)│0зЗ"THE KEY JUST WON'T FIT.":Бе470:ДЗ"WITH WHAT?":Бе470UвТЕL(S)┤▓0з1450:ДЕS│15▒S│16з1180:Д1310U╚ЬЕL(44)┤▓L ▒F3│1зЗ"TO WHOM?":Бе470UюжЕS│15зFB│1:З"OK":CA│CAм1:L(15)│м4V░ЕS│16зF8│1:З"OK":CA│CAм1:L(16)│м4VE║ЕF8│1░FB│1зЗ"HE WRITES: '+ FREEZE V'.":Бе470VO─Бе470VУ╬ЕL(S)┤▓0з1450:ДЕS┤▓16░S┤▓17░S┤▓26зЗ"YOU CAN'T READ THAT.":Бе470V└╪ЕS│16зЗ"NOTHING IS WRITTEN ON IT.":Бе470WтЕS│17зЗ"THE TITLE IS 'THE ART OF UNDEAD SLAYING' - GOOD FOR INSOMNIA.":Бе470WBьЕS│26зЗ"IT SAYS: 'DROP COIN FOR OIL'.":Бе470WгЎЕL(S)┤▓0з1450:ДЕS┤▓18░S┤▓25зCA│CAм1:З"SMASH! IT HITS THE GROUND AND   BREAKS.":L(S)│м4:Бе470XBЕS│18зCA│CAм1:L(S)│L:ЕL(47)┤▓L зЗ"WHUMP! IT HITS THE GROUND.":Бе470:ДЗ"SMASSH!! IT HITS THE SKELETON   AND THE SKELETON COLLAPSES.":L(47)│м3:L(14)│L:Бе470X√
ЕS│25зCA│CAм1:L(25)│м4:ЕL(45)┤▓L ▒FO│0зЗ"THE SALT GOES ALL OVER THE FLOORAND DISAPPEARS IN THE DUST.":Бе470:ДЗ"THE ZOMBIE EMITS A LAST MOAN ANDSLUMPS TO THE GROUND.":L(45)│м3:Бе470YиЕL(S)┤▓L з1440:ДЕS┤▓49зЗ"NOTHING HAPPENS.":Бе470:ДЕL(20)┤▓0▒FK│0зЗ"YOU HAVE ENRAGED HIM! HE KILLS  YOU WITH A POUND.":Бе1530:ДЗ"BLAM!! HE DISINTEGRATES.":L(49)│м3:Бе470Z(ЕL(50)┤▓L зЗ"TO WHOM?":Бе470:ДЕS┤▓23зЗ"HE DOESN'T WANT IT.":Бе470:ДЗ"HE TAKES YOU TO THE OTHER SIDE.":CH│0:ЕL│43зL│44:ДL│43ZW(CA│CAм1:L(50)│м2:ЕL│44зL(23)│100:ДL(23)│63Za2Бе470Z╒<ЕL(S)┤▓L з1440:ДЕS┤▓40зЗ"HOW??":Бе470:ДЕL(21)┤▓0зЗ"WITH WHAT?":Бе470:ДP(24,6)│61:З"A TUNNEL IS UNDER IT!":Бе470[yFЕL(S)┤▓0з1450:ДЕS┤▓22зЗ"YOU CHOKE TO DEATH ON IT.":Бе1530:ДЗ"GULP! TASTES TERRIBLE. YOU FEEL SUPERHUMAN STRENGTH SURGE THRU  YOU!!":F9│1:CA│CAм1:L(22)│м4:Бе470[юPЕL(S)┤▓0з1450:ДЕS┤▓24зЗ">PUFF!< NOTHING HAPPENS.":Бе470:ДЗ"IT SOUNDS LOUD AND CLEAR.":ЕL│43▒L│44зFG│1:Бе470:Д470\cZЕL(S)┤▓0з1450:ДЕL┤▓L(43)▒S┤▓29▒FD│0▒F6│1зЗ"NOTHING HAPPENS.":Бе470:ДЗ"THE VAMPIRE FREEZES IN TERROR.":F6│1:Бе470]dЕL(S)┤▓L з1440:ДЕS┤▓33зЗ"HOW?":Бе470:ДЕCS│1зЗ"THE CLOCKS HOUR HAND IS BROKEN.":Бе470:ДЕ Д(3)┤▓2 зH│8:M│0:З"THE TIME IS NOW 8:00.":Бе470::ДЗ"THE HOUR HAND BREAKS!":CS│1:Бе470]оnЕL(S)┤▓L з1440:ДЕS┤▓38з840:ДЕF9│0зЗ"IT'S WAY TOO HEAVY TO LIFT.":Бе470:ДЗ"YOU LIFT IT AND CAST IT ASIDE.":O$(38)│"BROKEN GATE":F9│0:P(45,4)│41:Бе470^{xЕL(S)┤▓L з1440:ДЕS┤▓39зЗ"WHAT?":Бе470:ДЕFJ│0зЗ"A HOLLOW VOICE SAYS:":З"YOU ARE DOOMED...FLEE AT ONCE...YOU ARE DOOMED...FLEE AT ONCE...CLICK! THE LINE GOES DEAD.":FJ│1:Бе470:ДЗ"THE LINE IS DEAD":Бе470^ЛВЗ"OK":Бе470^ЄМЗ">KNOCK KNOCK!<":ЕB$┤▓"DOOR"▒L┤▓38з470:ДЗ"REEEEEK - THE DOOR CREAKS OPEN.":P(38,2)│мP(38,2):Бе470_9ЦB$│"":╗ЙA$:A│ Ю(A$," "):ЕA│0зР:ДB$│ П(A$, З(A$)мA):A$│ О(A$,Aм1):Р_ZаЗ"I SEE NO "B$" HERE.":Бе470_|кЗ"YOU DON'T HAVE THAT.":Бе470_й┤АX│1е117:АY│1е4:ЕP(X,Y)┤0зP(X,Y)│мP(X,Y)_┤╛ЛY,X:Р`*╚З"THE WRAITH THROWS A DAGGER AT   YOU, ";:Е Д(15)│1зЗ"AND IT HITS!":З"YOU ARE PARALYZED!!":F2│1:ДЗ"BUT IT MISSES.`0╥Р``▄З"YOU SEE A FIGURE ON THE OPPOSITESHORE.":Р`┤цЗ"THERE IS A BLACK, SILHOUETTED   FIGURE SILENTLY POLING ACROSS   THE RIVER.":Р`фЁЗ"THE BOATMAN IS HERE.":L(50)│L:FG│0:CG│0:Р`ь·Х:КaИЗ"THE WEREWOLF BITES YOUR ARM!!":PC│PCм15:РaOТЗ"THE WEREWOLF TEARS AT YOUR NECK!":PC│PCм25:РaАЬЗ"THE WOLF CLAWS AT YOUR CHEST!!":PC│PCм20:РaкжЗ"YOU EVADE THE WEREWOLF'S ATTACK!":Рa▌░З"THE SKELETON SLASHES YOUR CHEST!":PC│PCм30:Рb║З"THE SKELETON RIPS INTO YOUR     SHOULDER!!":PC│PCм25:РbL─З"THE SKELETON GRAZES YOUR HEAD!!":PC│PCм10:Рbu╬З"THE SKELETON SWINGS BUT MISSES!":РbЄpЗ"SUDDENLY, THE SOUTH WALL BEGINS TURNING! EVERYTHING GOES BLACK  FOR A MOMENT ...":L│100:АX│1е1000:Л:P(104,4)│110:Бе430cC'ЕC7▓1зЗ"THE VAMPIRE HAS BITTEN YOU.":FE│1:ДЕCC▓1зИ Д(4)Бж5000,5010,5020,5030ci'ЕC0▓1зИ Д(4)Бж5040,5050,5060,5070c°'$ЕCB▓1зЗ"THE REAPER HAS HIT YOU WITH HIS SCYTHE OF WOUNDING!":FI│1:ДЕCD▓1зЗ"THE MUMMY HAS SLASHED YOU WITH  HIS CLAWS! YOU FEEL SICK!":FL│1c■'.РdN Y│0:АX│27е31:ЕL(X)┤▓0зY│1dNN*Л:ЕY│1зЗ"YOU DON'T HAVE ALL THE TREASURESYET.dmN4Z│0:АX│43е49:ЕL(X)┤▓м3зZ│1dбN>Л:ЕZ│1зЗ"THERE ARE STILL MONSTERS LURKINGABOUT.d▀N?ЕL┤▓27зЗ"YOU ARE NOT AT THE PROPER       LOCATION.":Бе660dЁNHЕY│1▒Z│1з660eдNRЮ:З"YOU HAVE SUCCESSFULLY COMPLETED THIS ADVENTURE!!  NOW THE PEOPLEOF THE VILLAGE NEARBY CAN LIVE  IN PEACE.  THOSE TREASURES ARE  WORTH AT LEAST $1000.  SPEND IT WISELY!!":Кfu.З"SORRY, THIS FUNCTION IS ONLY    AVAILABLE FOR PROGRAMMERS TO    TEST THE ADVENTURE.":Бе470fKu0ZY│0:ZZ│0:XZ│0:Й"MOVE YOURSELF TO WHAT ROOM      (ENTER=SAME)";ZYfau1ЕZY│0з30002:ДL│ZYfСu2Й"MOVE OBJECTS TO WHAT ROOM";ZZ$:ZZ│ Й(ZZ$)fнu3ЕZZ│0з30004:ДЕZZ│м5з430f╤u4Й"OBJECT NUMBERS, NONE ENDS";XZf▀u5ЕXZ│0з430gu6Е О(ZZ$,1)│"I"з L(XZ)│0:Бе30004gu7ЕZZ│0 зL(XZ)│L:Бе30004g;u8ЕZZ┤▓0 зL(XZ)│ZZ:Бе30004TER=SAME)";ZYfau1ЕZY│0з30002:ДL│ZYfСu2Й"MOVE OBJECTS TO WHAT ROOM";ZZ$:ZZ│ Й(ZZ$)fнu3ЕZZ│0з30004:ДЕZZ│м5з430f╤u4Й"OBJECT NUMBERS, NONE ENDS";XZf▀u5ЕXZ│0з430gu6Е О(ZZ$,1)│"I"з L(XZ)│0:Бе3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
БiААААААААААААААА~~~~~~~~}}}}}}|||||{{{{zzzzzyyyyxxxwwwwvvvuuutttsssrrrqqqppooonnmmmllkkjjjiihhggffeeddccbbaa``__^^]]\\[[ZYYXXWWVUUTTSRRQQPOONNMLLKJJIHHGFFEDDCBBA@@?>>=<<;::98776554322100/.--,+**)(''&%$$#"!! 


		


		


  !""#$$%&''())*+,,-.//0122345567899:;<=>>?@ABCDEFFGHIJKLMNOPQRSTUVWXZ[\]^_`bcd iWWVUUTTSRRQQPOONNMLLKJJIHHGFFEDDCBBA@@?>>=<<;::98776554322100/.--,+**)(''&%$$#"!! 


		                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Вx~■aБ1&ЮКjд Ж╡ 'ё■HБ2&ЮКlд Ж╡ 'ё■2Б3&ЮКj!■ъЖ╡ 'ё■Б4&ЮКl!■╘Ж╡ 'ё■Б5&ЮКj"■╛Ж╡ 'ё¤ЁБ6&ЮКl"■иЖ╡ 'ё¤┌БB'┤БE'ЁБX&╠
Ч┐╫┴├Чl╚I
w■v¤пБY&╠Ч┐╫┴╞
╫├vl╚I╜zIНW■V¤ПБZ&¤Й╠
Ч┐╫┴╞╫├НUl╚I╜zIН6■5¤n╠Ч┐╫┴ЖЧ├ЮКЬ?'o<ЯШ▄К▀ОУОэ╚Н#&l╚Iиєч▄н▌╣Гс▌Ы├ ▌Э▄╗▌ФЦЯЧШ9▄│▌╣Ш9ЦЯЮКМЁ$¤Ь?'з<ЖБЧЯo#ьдэ'ц"ч)1'ЯКЖЧа
[ УОэ╚Н┬l╚IJНг№▐ЮКМЁ$№╙ьдэ'ц"ч)1'ЯКЦЯ'з5Яo< ЖAз< УОэ╚ Еl╚I
 eЖ
Ча
[№Щm╚I'
#O_Ю╗эБэБэБэБЬ╜%Ї1─ у╚▌A1╚\ЬA$еж#Е
'mЕ@''Ц┐цжg╦╫aЦ┴цж\╦╫b°Ь╗%Ь╜"кДзДж#ЕА'7Ц┐цж<╦╫eЛцж1╦╫gЦ┴цж&╦Цe▌eЦ┴Лцж╦Цg▌gїrж#Е '
╢1' 4B╟ж╚Ч─],P╟ж╚=XI)
─&° Ж
╟'@╟Й5B9
╚'Ю╗cАcАcАcАcАcАcАcАЬ╜%ьP} ,·ЮнЮ│ЯнЯ│Я╣ЮпЮ╡ЯпЯ╡Ю▒Ю╖Я▒Я╖зЯk╡зЯk╖▄╣Гс▌╗├ ▌╜пo╚I9ЖЧuO_y	xYIУv%Уvy
u&эvУv%,▄x├
▌x9YOЙ=Уq$▌xY)ЦY юУq▌e▄qУxУe$
Y9╠АО0╚Н0╚4Н чДпoп
эз	п
ззИэ9ЖАз╚Ж
з╚0─у╚▌A0╚\ьДэжз0ЬA%Є946Жў┤ 
╖ 
Жў┤ ╖ Ж║ #╖ #Ж№╖  ОА_О(1?&№╖  Й0&я5694ж╚БА$	Ы╩)з╚ ЖАз╚ж╚Б'l╚d╚594ж╚БD#Р╔з╚ эж╚Б
'
Ж@з╚j╚h╚ ┘j╚&╘l╚ ╧Я'╓├0ецДр,
P╫Ш=▌╓■5╫╓┐0ецДр╫6,
PШ=╙▌цД■╦╫╓┴0ецДр╫7,
PШ=╙▌qцД¤¤╦╫■е╓Y¤ё╫0Ню4ЯТ°*Ю:Я-3НюяЦц─=XI],
LЧЧ60ГlCS├
0Ня╥жЛ╓=XI],
LЧЧ70Нэїўэ!▄-уБ#
O▌~°╩ЧЫЧЦРЧ▄~J,Ж▌~°▓ЧЫЧ
ЦРЧ	▄-г$Ж▌~°ЩЧЫЧЦРЧ▄~J,Ж▌~°БЧЫЧ
ЦРЧГl'E▄▌e▄▌g▌ЄС▄▌e▄▌g▌ЄД▄
▌g▄▌e▌
Єw▄▌g▄▌e▌Єj3╚@Гm# Ю'▐О9▄▌▄▌▄▌
▄▌ ▄















┌
А
ААфАфААфА,gАА╞А{│ыьБР-=xч▐Б▐БэБэ▐эБ▐э▐▐▌╘Б▌╘╘Б╘э╘Бэ╘▐э╘Б▐э╘▐╘▐╘▌Б▌▌╘▌╘╙Б╙эБээ╘э╘▌эБ▌э▌э╘▌э╘▌э╟Бёї▐ї▐їш Бш т т у	Бу	ю	ю	√Б√√▀√▀Бю▐ю▐%Б%ух%ух%.Б.▌я.▌я.▄6Б▄6 6 6* 6                     ¤                                          BOOTе x~у	ю	ю	√Б√√▀√▀Бю▐ю▐%Б%ух%ух%.Б.▌я.▌я.▄6Б▄6 6 6* 6                                                                                                                                                                                                                                                                Вx~■aБ1&ЮКjд Ж╡ 'ё■HБ2&ЮКlд Ж╡ 'ё■2Б3&ЮКj!■ъЖ╡ 'ё■Б4&ЮКl!■╘Ж╡ 'ё■Б5&ЮКj"■╛Ж╡ 'ё¤ЁБ6&ЮКl"■иЖ╡ 'ё¤┌БB'┤БE'ЁБX&╠
Ч┐╫┴├Чl╚I
w■v¤пБY&╠Ч┐╫┴╞
╫├vl╚I╜zIНW■V¤ПБZ&¤Й╠
Ч┐╫┴╞╫├НUl╚I╜zIН6■5¤n╠Ч┐╫┴ЖЧ├ЮКЬ?'o<ЯШ▄К▀ОУОэ╚Н#&l╚Iиєч▄н▌╣Гс▌Ы├ ▌Э▄╗▌ФЦЯЧШ9▄│▌╣Ш9ЦЯЮКМЁ$¤Ь?'з<ЖБЧЯo#ьдэ'ц"ч)1'ЯКЖЧа
[ УОэ╚Н┬l╚IJНг№▐ЮКМЁ$№╙ьдэ'ц"ч)1'ЯКЦЯ'з5Яo< ЖAз< УОэ╚ Еl╚I
 eЖ
Ча
[№Щm╚I'
#O_Ю╗эБэБэБэБЬ╜%Ї1─ у╚▌A1╚\ЬA$еж#Е
'mЕ@''Ц┐цжg╦╫aЦ┴цж\╦╫b°Ь╗%Ь╜"кДзДж#ЕА'7Ц┐цж<╦╫eЛцж1╦╫gЦ┴цж&╦Цe▌eЦ┴Лцж╦Цg▌gїrж#Е '
╢1' 4B╟ж╚Ч─],P╟ж╚=XI)
─&° Ж
╟'@╟Й5B9
╚'Ю╗cАcАcАcАcАcАcАcАЬ╜%ьP} ,·ЮнЮ│ЯнЯ│Я╣ЮпЮ╡ЯпЯ╡Ю▒Ю╖Я▒Я╖зЯk╡зЯk╖▄╣Гс▌╗├ ▌╜пo╚I9ЖЧuO_y	xYIУv%Уvy
u&эvУv%,▄x├
▌x9YOЙ=Уq$▌xY)ЦY юУq▌e▄qУxУe$
Y9╠АО0╚Н0╚4Н чДпoп
эз	п
ззИэ9ЖАз╚Ж
з╚0─у╚▌A0╚\ьДэжз0ЬA%Є946Жў┤ 
╖ 
Жў┤ ╖ Ж║ #╖ #Ж№╖  ОА_О(1?&№╖  Й0&я5694ж╚БА$	Ы╩)з╚ ЖАз╚ж╚Б'l╚d╚594ж╚БD#Р╔з╚ эж╚Б
'
Ж@з╚j╚h╚ ┘j╚&╘l╚ ╧Я'╓├0ецДр,
P╫Ш=▌╓■5╫╓┐0ецДр╫6,
PШ=╙▌цД■╦╫╓┴0ецДр╫7,
PШ=╙▌qцД¤¤╦╫■е╓Y¤ё╫0Ню4ЯТ°*Ю:Я-3НюяЦц─=XI],
LЧЧ60ГlCS├
0Ня╥жЛ╓=XI],
LЧЧ70Нэїўэ!▄-уБ#
O▌~°╩ЧЫЧЦРЧ▄~J,Ж▌~°▓ЧЫЧ
ЦРЧ	▄-г$Ж▌~°ЩЧЫЧЦРЧ▄~J,Ж▌~°БЧЫЧ
ЦРЧГl'E▄▌e▄▌g▌ЄС▄▌e▄▌g▌ЄД▄
▌g▄▌e▌
Єw▄▌g▄▌e▌Єj3╚@Гm# Ю'▐О9▄▌▄▌▄▌
▄▌ ▄















░
А
АА
АААА
╨АА╨АА
╨·АЖ%%z 

(Б
(╫¤Б╫¤&¤Б&¤
'
'Ї├БЇ├
├Б
├■ ├Б■ ├Ї├Ї├Ї4БЇ4¤
4Б¤
4
4Б
4Ї4Ї4$4Бт▌щ▌щ▌▀хБ▀хєхєх▌ эБ▌ э э эёїБёї▐ї▐їш Бш т т у	Бу	ю	ю	√Б√√▀√▀Бю▐ю▐%Б%ух%ух%.Б.▌я.▌я.▄6Б▄6 6 6* 6                     ¤                                          BOOTе x~у	ю	ю	√Б√√▀√▀Бю▐ю▐%Б%ух%ух%.Б.▌я.▌я.▄6Б▄6 6 6* 6                                                                                                                                                                                                                                                                Вx~■aБ1&ЮКjд Ж╡ 'ё■HБ2&ЮКlд Ж╡ 'ё■2Б3&ЮКj!■ъЖ╡ 'ё■Б4&ЮКl!■╘Ж╡ 'ё■Б5&ЮКj"■╛Ж╡ 'ё¤ЁБ6&ЮКl"■иЖ╡ 'ё¤┌БB'┤БE'ЁБX&╠
Ч┐╫┴├Чl╚I
w■v¤пБY&╠Ч┐╫┴╞
╫├vl╚I╜zIНW■V¤ПБZ&¤Й╠
Ч┐╫┴╞╫├НUl╚I╜zIН6■5¤n╠Ч┐╫┴ЖЧ├ЮКЬ?'o<ЯШ▄К▀ОУОэ╚Н#&l╚Iиєч▄н▌╣Гс▌Ы├ ▌Э▄╗▌ФЦЯЧШ9▄│▌╣Ш9ЦЯЮКМЁ$¤Ь?'з<ЖБЧЯo#ьдэ'ц"ч)1'ЯКЖЧа
[ УОэ╚Н┬l╚IJНг№▐ЮКМЁ$№╙ьдэ'ц"ч)1'ЯКЦЯ'з5Яo< ЖAз< УОэ╚ Еl╚I
 eЖ
Ча
[№Щm╚I'
#O_Ю╗эБэБэБэБЬ╜%Ї1─ у╚▌A1╚\ЬA$еж#Е
'mЕ@''Ц┐цжg╦╫aЦ┴цж\╦╫b°Ь╗%Ь╜"кДзДж#ЕА'7Ц┐цж<╦╫eЛцж1╦╫gЦ┴цж&╦Цe▌eЦ┴Лцж╦Цg▌gїrж#Е '
╢1' 4B╟ж╚Ч─],P╟ж╚=XI)
─&° Ж
╟'@╟Й5B9
╚'Ю╗cАcАcАcАcАcАcАcАЬ╜%ьP} ,·ЮнЮ│ЯнЯ│Я╣ЮпЮ╡ЯпЯ╡Ю▒Ю╖Я▒Я╖зЯk╡зЯk╖▄╣Гс▌╗├ ▌╜пo╚I9ЖЧuO_y	xYIУv%Уvy
u&эvУv%,▄x├
▌x9YOЙ=Уq$▌xY)ЦY юУq▌e▄qУxУe$
Y9╠АО0╚Н0╚4Н чДпoп
эз	п
ззИэ9ЖАз╚Ж
з╚0─у╚▌A0╚\ьДэжз0ЬA%Є946Жў┤ 
╖ 
Жў┤ ╖ Ж║ #╖ #Ж№╖  ОА_О(1?&№╖  Й0&я5694ж╚БА$	Ы╩)з╚ ЖАз╚ж╚Б'l╚d╚594ж╚БD#Р╔з╚ эж╚Б
'
Ж@з╚j╚h╚ ┘j╚&╘l╚ ╧Я'╓├0ецДр,
P╫Ш=▌╓■5╫╓┐0ецДр╫6,
PШ=╙▌цД■╦╫╓┴0ецДр╫7,
PШ=╙▌qцД¤¤╦╫■е╓Y¤ё╫0Ню4ЯТ°*Ю:Я-3НюяЦц─=XI],
LЧЧ60ГlCS├
0Ня╥жЛ╓=XI],
LЧЧ70Нэїўэ!▄-уБ#
O▌~°╩ЧЫЧЦРЧ▄~J,Ж▌~°▓ЧЫЧ
ЦРЧ	▄-г$Ж▌~°ЩЧЫЧЦРЧ▄~J,Ж▌~°БЧЫЧ
ЦРЧГl'E▄▌e▄▌g▌ЄС▄▌e▄▌g▌ЄД▄
▌g▄▌e▌
Єw▄▌g▄▌e▌Єj3╚@Гm# Ю'▐О9▄▌▄▌▄▌
▄▌ ▄
















J
А
АА╘АА
╘А
|АА╨А╨АА╨"Е№А{"
▐ кБ▐ к к к
│Б
│▐я│▐я│ух╝Бух╝╝╝┼Б┼ю▐┼ю▐┼√═Б√═√р═√р═ю╒Бю╒у╒у╒т▌Бт▌щ▌щ▌▀хБ▀хєхєх▌ эБ▌ э э эёїБёї▐ї▐їш Бш т т у	Бу	ю	ю	√Б√√▀√▀Бю▐ю▐%Б%ух%ух%.Б.▌я.▌я.▄6Б▄6 6 6* 6                     ¤                                          BOOTе x~у	ю	ю	√Б√√▀√▀Бю▐ю▐%Б%ух%ух%.Б.▌я.▌я.▄6Б▄6 6 6* 6                                                                                                                                                                                                                                                                 ┬&
АX│1е17:З:Л&>МP(32,7),O$(31),L(31),D$(32):Бж210:Бе600&PЗ:З":";:Бж680&i(T│Tл1:Е F3│1зFT│FTл1&y2ЕFT▓40зF3│0&┴<ЕF3│1зЕ Д(30)│30зF3│0:З"A STRONG GUST OF WIND BLOWS YOURCANDLE OUT.&╪FЕL(16)│0зP(9,2)│10'PАX│1е6:Е О(A$,2)│ О(O$(X),2)з720:ДЛ'ZЕA$│"LOOK"з600'ZdЕA$│"SCORE"зЗ"YOU SCORED"SC"OUT OF 100.":З"YOU TOOK"T"TURNS.":Бе30'mnЕA$│"OPEN"з920'ЕxЕA$│"INVENTORY"з770'ЬВЕA$│"GET"зA$│"TAKE'╢МЕA$│"ATTACK"зA$│"KILL'╧ЦЕA$│"THROW"зA$│"DROP'юаАY│1е7:ЕA$│W$(Y)зF│Y:Бе180(кЛ:З"I DON'T UNDERSTAND.":Бе30(0┤АX│7е31:ЕB$│O$(X)зS│X:Бе200(R╛Л:З"I DON'T UNDERSTAND.":Бе30(x╚И F Бе800,900,1110,1010,1050,1080(Н╥АX│1е31:НO$(X):Л(╗▄Ж"NORTH","SOUTH","EAST","WEST","UP","DOWN(щцЖ"MESSAGE","CANDLE","MATCHES","OPAL","GEM) ЁЖ"AMULET","EARTHEN FIRE","GOBLET","URN","PARCHMENT)T·Ж"RING","ROPE","AXE","GARLIC","WOODEN STATUETTE)О
Ж"SKULL","SCEPTER","LIGHTRING","TRUTHRING","POWERRING)├
Ж"GHOST","SPIRIT","ZOMBIE","TOMBSTONES","VAMPIRE*
АX│1е6:НW$(X):Л:Ж"TAKE","DROP","KILL","LIGHT","EXTINGUISH","READ* 
"АX│7е31:НL(X):Л:L│1*j
,Ж1,2,2,7,19,25,32,8,11,22,12,21,16,29,20,24,18,40,40,40,32,7,25,13,19*К
6АY│1е32:АX│1е7:НP(Y,X):ЛX,Y*╜
@Ж0,0,-1,0,0,0,11,0,3,4,1,0,0,0,2,9,5,-1,27,0,0*ю
JЖ23,0,6,2,0,0,0,0,8,0,3,0,0,4,0,0,-1,4,0,0,0+!
TЖ0,0,0,0,0,0,5,5,21,-1,0,0,0,0,3,-2,0,0,0,0,14+T
^Ж9,0,0,0,0,0,21,0,-1,3,0,0,15,0,0,0,13,8,0,0,7+К
hЖ13,13,13,12,0,0,0,11,0,0,0,0,0,9,0,0,16,0,11,0,0+└
rЖ0,20,0,15,0,0,18,0,0,18,0,0,0,15,0,0,19,17,0,0,0+Є
|Ж0,0,0,18,0,0,2,16,0,0,0,0,0,0,8,0,24,0,0,0,0,#
ЖЖ0,0,0,6,0,0,13,0,4,0,0,0,0,0,0,0,0,21,0,0,0,X
РЖ0,27,0,0,0,0,26,0,28,0,0,0,0,0,-1,-1,28,0,0,3,0,О
ЪЖ26,31,-1,27,32,0,0,0,0,0,28,0,0,0,27,0,0,0,0,0,0,▓
дЖ28,0,0,0,0,0,30,0,0,0,0,0,28,0,╟
оАX│1е32:НD$(X):Л-d
╕Ж"YOU ARE ON A LARGE WOODEN FRONT PORCH","YOU ARE IN THE NORTH END OF A   LONG HALLWAY.","YOU ARE AT THE SOUTH END OF A   HALLWAY. A STAIRCASE LEADS UP.- 
┬Ж"YOU ARE IN A LARGE PARLOR WITH SHEETS COVERING ALL THE FURNITURE.","YOU ARE IN A KITCHEN.","YOU ARE IN A LIVING ROOM WITH SHEET-COVERED FURNISHINGS..`
╠Ж"YOU ARE IN A TREASURE ROOM WHICH IS DIMLY LIT BY AN UNKNOWN SOURCE.","YOU ARE IN A PANTRY..╘
╓Ж"YOU ARE IN A LARGE BALLROOM WITHROTTING FLOORBOARDS. A MYSTICAL FIRE PREVENTS YOU FROM EXITING  TO THE SOUTH./@
рЖ"YOU ARE IN A ROOM FILLED WITH   THICK MIST.","YOU ARE AT THE TOP OF A LARGE   STAIRCASE LEADING DOWN./Ю
ъЖ"YOU ARE ON A CREAKY BACK PORCH.","YOU ARE IN A CREEPY GRAVEYARD.","YOU ARE IN A CLOSET.0
ЇЖ"YOU ARE IN A ROOM WITH A LOW STONE CEILING. A STAIRCASE LEADS   UP.","YOU ARE IN A DANK MUSTY BASEMENT.0в
■Ж"YOU ARE IN A GREAT STONE TUNNEL.","YOU ARE IN A STONE TUNNEL. FOOT-PRINTS DISAPPEAR INTO THE SOUTH WALL!","YOU ARE IN A TWISTING MUSTY PASSAGE.0фЖ"YOU ARE IN A WINE CELLAR.","YOU ARE IN A GRAND DINING ROOM.1<Ж"YOU ARE IN A LIBRARY WITH MANY  SHELVES FULL OF ANCIENT BOOKS   LINING THE WALLS.1ЮЖ"YOU ARE IN A CONSERVATORY.","YOU ARE IN A SMALL BATHROOM.","YOU ARE IN A TINY STORAGE ROOM.1·&Ж"YOU ARE IN A VERY SMALL BEDROOM.","YOU ARE AT THE WEST END OF AN   EAST/WEST HALLWAY.2I0Ж"YOU ARE AT THE EAST END OF AN   EAST/WEST HALLWAY. NARROW STAIRSLEAD UP.2╦:Ж"YOU ARE IN A VERY DARK BATHROOM.","YOU ARE IN AN EERIE MASTER BED- ROOM.","YOU ARE IN A LARGE BEDROOM WITH RATS EVERYWHERE.3DЖ"YOU ARE IN A LARGE ATTIC WITH   COBWEBS EVERYWHERE.3NР3XБж11703%bЗD$(L):Y│03:lЕL│1░SC│100з11903WvЗ"YOU SEE THE FOLLOWING:3zААX│7е31:ЕL(X)│L зЗ"*"O$(X):Y│13ЧКЛ:ЕY│0зЗ"NOTHING SPECIAL3╩ФЗ"EXITS ARE:":Y│0:АX│1е6:ЕP(L,X)┤▓0зЗO$(X):Y│13╒ЮЛ:Бе303яи╗ЙA$:ЕA$│"YARLP"з11604▓Е Ю(A$," ")│0зР4<╝B$│ П(A$, З(A$)м Ю(A$," ")):A$│ О(A$, Ю(A$," ")м1):Р4B╞Р4z╨ЕP(L,X)│м1зЗ"A SHUT DOOR BLOCKS YOUR PASSAGE.":Бе304└┌ЕP(L,X)│0зЗ"THERE IS NO WAY FOR YOU TO GO   THAT DIRECTION.":Бе304ўфЕP(L,X)│м2зЗ"AAUGH! THE FIRE BURNED YOU UP.":Бе7605
юL│P(L,X):Бе6005°К5XЗ"YOU ARE CARRYING THE FOLLOWING:":Y│0:АX│7е31:ЕL(X)│0зЗO$(X):Y│Yл15mЛ:ЕY│0зЗ"NOTHING5vБе305г ЕL(S)┤▓L зЗ"I SEE NO "O$(S)" HERE.":Бе305╩*ЕS▓27зЗ"DON'T BE RIDICULOUS!":Бе305э4ЕCA▓│5зЗ"IT'S TOO BULKY.":Бе306(>ЕS│10░L(28)┤▓100зЗ"THE "O$(28)" WON'T ALLOW YOU.":Бе306cHЕS│11░L(31)┤▓100зЗ"THE "O$(31)" WON'T ALLOW YOU.":Бе306ЮRЕS│12░L(29)┤▓100зЗ"THE "O$(29)" WON'T ALLOW YOU.":Бе306┘\ЕS│13░L(27)┤▓100зЗ"THE "O$(27)" WON'T ALLOW YOU.":Бе307$fL(S)│0:ЗO$(S)" TAKEN.":CA│CAл1:ЕL(14)│0░L(15)│0зЕL(26)│0з890:ДL(26)│277FpЕS│10▒S│11▒S│12▒S│13зSC│SCл257OzБе307╝ДЕL(S)┤▓0зЗ"YOU AREN'T CARRYING IT.":Бе30:ДЗO$(S)" DROPPED.":L(S)│L:CA│CAм1:ЕS│10▒S│11▒S│12▒S│13зSC│SCм257┼ОБе307єШЕB$┤▓"DOOR"зЗ"YOU CAN'T BE SERIOUS!":Бе308вЕL│1зP(1,3)│28мЕL│3зP(3,4)│118+╢ЕL│6зP(6,3)│228>└ЕL│8зP(8,3)│128S╩ЕL│11зP(11,2)│148s╘ЕL│27зP(27,1)│25:P(27,2)│308И▐ЕL│28зP(28,3)│298дшЗ"DOOR(S) OPENED.":Бе308╙ЄЕS┤▓8зЗ"YOU CAN'T LIGHT THE "O$(S)".":Бе308√№ЕL(8)┤▓0зЗ"YOU DON'T HAVE IT.":Бе309ЕL(9)┤▓0зЗ"NO MATCHES.":Бе309@F3│1:З"THE CANDLE IS LIT.":Бе309mЕB$┤▓"CANDLE"зЗ"YOU CAN'T DO THAT.":Бе309Х$ЕL(S)┤▓0зЗ"YOU DON'T HAVE IT.":Бе309┬.З"THE CANDLE IS EXTINGUISHED.":F3│0:Бе309ы8ЕL(S)┤▓0 зЗ"YOU DON'T HAVE IT.":Бе30:BЕB$┤▓"MESSAGE"зЗ"YOU CAN'T READ THAT.":Бе30:FLЗ Л(34)"BEWARE OF THE G..." Л(34):Бе30:УVЕS┤▓27░S┤▓28░S┤▓29░S┤▓31зЗ"THE "O$(S)" IS NOT ALIVE TO BEGIN WITH!":Бе30;`ЕS│27зЕL(23)┤▓0▒L(26)┤▓0зЗ"YOU MISSED.":Бе30:ДЗ"THE "O$(S)" IS DEAD!":L(24)│L:ЗO$(24)" IS LYING AT YOUR FEET.":L(27)│100:Бе30;ЧjЕS│28зЕL(18)┤▓0▒L(24)┤▓0зЗ"YOU MISSED.":Бе30:ДЗ"THE "O$(S)" IS DEAD!":L(25)│L:ЗO$(25)" IS LYING AT YOUR FEET.":L(28)│100:Бе30;∙tЕS│29зЕL(21)┤▓0▒L(19)┤▓0▒L(25)┤▓0зЗ"YOU MISSED.":Бе30:ДЗ"THE "O$(S)" IS DEAD!":L(29)│100:Бе30<?~ЕS│31зЕL(22)┤▓0зЗ"YOU MISSED.":Бе30:ДЗ"IT'S DEAD!":L(31)│100:Бе30<wИЕP(L,7)┤▓0зL│P(L,7):Бе600:ДЗ"NOTHING HAPPENS.":Бе30<УТЕF3│1░(L(8)│0▒L(8)│L)зР<╪ЬЕ(L▓│15░L┤│20)▒(L▓│25░L┤│31)зЗ"IT'S DARK! I CAN'T SEE!!":Бе30:ДР=МжЮ:З"congratulations!":З"YOU HAVE SUCCESSFULLY COMPLETED THIS ADVENTURE. IF YOU WISH  TO HAVE  ANOTHER   HAUNTED  HOUSE, PLEASE LET  ME  KNOW.  I  ENJOY WRITING THESE PROGRAMS.=┴░З:Зд10)"SINCERELY,":Зд10)"PAUL RIDDLE, AUTHOR":КCAN'T SEE!!":Бе30:ДР=МжЮ:З"congratulations!":З"YOU HAVE S                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╨&
АX│1е17:З:Л:Т65495,0&GМP(27,6),O$(43),L(43),D$(27):Бж280:Бе810&cЗ:З"YOUR COMMAND":Бж870&s(T│Tл1:Бж200&И2ЕL(41)│L зБж1760&я<ЕF4│1░(L(22)│L ▒L(22)│0)зCN│CNл1:ЕCN▓5зЗ"THE CANDLE IS POISONOUS! THE    FUMES HAVE KILLED YOU.":К'%FЕF4│1░L(22)│26░L(40)┤▓300зGA│GAл1:ЕGA▓8зL(40)│300'YPЕA$│"N"▒A$│"S"▒A$│"E"▒A$│"W"▒A$│"U"▒A$│"D"з1030'mZЕA$│"AR"зБж1120'~dЕA$│"IN"з910'ПnЕA$│"SC"з940'аxЕA$│"LO"з810'┤ВЕA$│"GE"зA$│"TA'╪МЕA$│"AT"▒A$│"DE"▒A$│"HI"зA$│"KI'ЇЦЕA$│"TH"▒A$│"PO"зA$│"DR(аЕA$│"WA"зA$│"SW(AкЕF1┤▓0зFT│FTл1:ЕFT│25▒FT│30зЗ"FLAME GETTING SMALLER!(Q┤ЕFT▓40зF1│0([╛Бе220(Л╚X│ Д(6):ЕP(L(42),X)│0з200:ДL(42)│P(L(42),X)(Ш╥Бж1610:Р(╟▄АY│1е З(W$):Е Р(W$,Y,2)│A$зF│(Yл1)о2:Бе240(═цЛ(■ЁАX│1е З(O$)й2:Е Р(O$,X,2)│B$зS│(Xл1)о2:Бе260)·Л) 
ЕY▓26▒X▓64зЗ"HUH?":Бе30)`
И(F)Бе960,1140,1640,1660,1170,1200,1250,1360,1400,1440,1580)u
АX│1е43:НO$(X):Л)г
"Ж"NORTH","SOUTH","EAST","WEST","UP","DOWN)╧
,Ж"PAPER","WAND","KEY","POWDER","JEWELRY*
6Ж"PLAQUE","LEVER","IDOL","SCROLL","BEJEWELED SWORD*7
@Ж"GOLDEN HARP","BOTTLE","FOOD","RING","TORCH*Б
JЖ"CANDLE","RUBY","COINS","SHIELD","FIRE OF THE DEPTHS","STOOL","WATER*в
TЖ"TREES","CHEST","PIPE ORGAN*▄
^Ж"RUG","RUG","DOOR","DOOR","DOOR","DOOR","DOOR","DOOR*ї
hЖ"GARGOYLE","SERPENT+

rЖ"SPRITE","NYMPH+)
|W$│"TADRPUKISWPLRELIUNOPEA+r
ЖO$│"PAWAKEPOJEPLLEIDSCSWHABOFORITOCARUCOSHFISTWATRCHORRURUDOGASESPNY+К
РАX│7е43:НL(X):Л:L│1+ё
ЪЖ1,15,17,23,27,25,25,4,21,100,18,6,12,8,3,16,11,11,5,22,16,2,1,3,18,9,10,16,10,12,3,6,18,26,4,6,20,
дАY│1е27:АX│1е6:НP(Y,X):ЛX,Y,"
оЖ2,1,1,1,0,0,3
╕Ж3,1,2,2,0,0,D
┬Ж6,2,0,5,0,0,U
╠Ж0,0,0,3,0,0,f
╓Ж0,0,3,0,0,7,y
рЖ12,3,0,14,0,0,О
ъЖ22,23,24,21,5,0,Я
ЇЖ0,0,9,6,0,0,│
■Ж18,26,10,8,0,0,┼Ж0,25,0,9,0,0,╫Ж0,0,0,10,0,0,шЖ0,6,0,0,0,0,·&Ж0,0,0,12,0,0-
0Ж15,0,6,16,0,0-:Ж0,14,0,0,0,0-1DЖ0,0,14,0,0,0-CNЖ0,16,0,0,0,0-TXЖ0,9,0,0,0,0-gbЖ0,0,0,18,20,0-ylЖ0,0,0,0,0,19-КvЖ0,0,7,0,0,0-ЫАЖ0,7,0,0,0,0-мКЖ7,0,0,0,0,0-┬ФЖ24,24,24,7,24,24-╘ЮЖ10,0,0,0,0,0-циЖ9,27,0,0,0,0-°▓Ж26,0,0,0,0,0.
╝АX│1е27:НD$(X):Л.5╞Ж"FOREST","EDGE OF MOAT","LONG HALL.]╨Ж"STORE ROOM","STAIRWAY","COURTYARD.Ш┌Ж"NARROW CORRIDOR","SMALL PASSAGE","WEST END OF A ROOM.╧фЖ"EAST END OF A ROOM","TREASURE ROOM","DINING HALL.·юЖ"KITCHEN","HALLWAY","WIZARD'S CHAMBER/)°Ж"THRONE ROOM","ROYAL BEDROOM","MUSIC ROOM/TЖ"STAIRCASE","TOWER ROOM","PRISON CELL/yЖ"TORTURE CHAMBER","STORAGE ROOM/╫Ж"MAZE OF STONE PASSAGEWAYS","TINY ROOM","ROOM SMELLING OF DECAYING FLESH","TREASURE ROOM/▌ Р/ш*Бж18200	4З"YOU ARE IN A(N) "D$(L):Y│00?>З"YOU SEE ";:АX│7е43:ЕL(X)│L зЗ"*"O$(X)" ";:Y│Yл10\HЛ:ЕY│0зЗ"NOTHING SPECIAL0ЗRЗ:З"EXITS ARE":АX│1е6:ЕP(L,X)▓0зЗO$(X)0Т\Л:Бе300зf╗ЙA$:АX│1е З(A$)0╓pЕ Р(A$,X,1)│" "░ З(A$)▓Xл1зB$│ Р(A$,Xл1,2)0ЄzЛ:Е З(A$)▓1зA$│ О(A$,2)0°ДР11ОЗ"YOU'RE CARRYING:":Y│0:АX│7е28:ЕL(X)│0зЗO$(X):Y│Yл11FШЛ:ЕY│0зЗ"NOTHING1OвБе301jмЗ"SCORE:"SC"OUT OF 1751Д╢З"TURNS TAKEN:"T:Бе301╡└ЕL(Sл6)┤▓L зЗ"I SEE NO "O$(Sл6)" HERE.":Бе301ї╩ЕB$│"ID"░L(41)┤▓300зЗ"THE SERPENT WILL NOT ALLOW YOU.":Бе302╘ЕSл6▓28зЗ"YOU CAN'T.":Бе302A▐ЕCA▓10зЗ"YOUR BACKPACK'S TOO FULL.":Бе302kшЕS│19░L(27)┤▓0зЗ"IT'S TOO HIGH.":Бе302╣ЄЕS│5▒S│8▒S│10▒S│11▒S│14▒S│17▒S│18зSC│SCл25:ЕSC│175зЗ"you" Л(128)"win!!":К2х№L(Sл6)│0:ЗO$(Sл6)" TAKEN.":CA│CAл1:Бе3036ЕA$│"N"зS│1:ДЕA$│"S"зS│2:ДЕA$│"E"зS│3:ДЕA$│"W"зS│4:ДЕA$│"U"зS│5:ДЕA$│"D"зS│63cЕP(L,S)│0зЗ"YOU CAN'T GO THAT WAY.":Бе303╡ЕS│1░F2│0░L│2зЗ"YOU FELL IN THE MOAT AND WERE   EATEN BY A CROCODILE.":Бе18104 $ЕL│14░S│1░(L(26)┤▓0▒L(25)┤▓0)зЗ"BUZZZ! YOU HAVE ELECTRICUTED    YOURSELF ON A MAGICAL BARRIER.":Бе18104А.ЕL│14░S│4░L(10)┤▓L зЗ"CHUNK! A BLADE FELL FROM THE CE-ILING AND CHOPPED YOU IN TWO.":Бе18104─8ЕL│9░S│3░F3│0зЗ"HISS! THE RUG COVERED A PIT OF  COBRAS.":Бе18105BЕL│7░S│4░L(40)┤▓300зЗ"KLUNK! A STONE BLOCK FELL ON    YOUR HEAD.":Бе18105SLЕL│26░S│2░L(40)┤▓300зЗ"THE GARGOYLE WILL NOT ALLOW YOU.":Бе305fVL│P(L,S):Бе8105в`ЕL│2зF2│1:З"THE DRAWBRIDGE LOWERS.":ДЗ"NOTHING HAPPENS.5лjБе305┌tЕL(Sл6)┤▓0зЗ"YOU AREN'T CARRYING IT.":Бе306	~ЕS│5▒S│8▒S│10▒S│11▒S│14▒S│17▒S│18зSC│SCм2567ИL(Sл6)│L:ЗO$(Sл6)" DROPPED.":CA│CAм1:Бе306aТЕL(Sл6)┤▓0зЗ"YOU DON'T HAVE IT.":Бе306йЬЕB$┤▓"WA"▒L┤▓9зЗ"NOTHING HAPPENS.":ДЗ"A BRIDGE SPANS THE RUG.":F3│16▓жБе306ь░ЕL(17)│0▒L(26)│L з1210:ДЗ"WHAT'S THERE TO PLAY?":Бе307'║ЕB$┤▓"HA"░B$┤▓"OR"зЗ"YOU CAN'T PLAY A "O$(Sл6)".":Бе307A─ЕB$│"HA"з╔"L36CDEFGAB7w╬ЕB$│"OR"з╔"CDEDC":З"A "O$(16)" APPEARS!!":L(16)│L7А╪Бе307╞тЕB$┤▓"PA"░B$┤▓"PL"░B$┤▓"SC"зЗ"YOU CAN'T READ THE "O$(Sл6)".":Бе307╪ьЕB$│"PL"з13007ъЎЕB$│"SC"з13208ЕL(7)┤▓0зЗ"YOU AREN'T CARRYING IT.":Бе308B
З Л(34)"PASSWORD: 'ARALIA'" Л(34):Бе308rЕL(12)┤▓L ░L(12)┤▓0зЗ"I DON'T SEE IT.":Бе308лЗ Л(34)"PULL THE LEVER TO GAIN TREASURES" Л(34):Бе308┘(ЕL(15)┤▓0зЗ"YOU AREN'T CARRYING IT.":Бе3092З Л(34)"SPRITE DROP YOUR ITEMS, THEN BE  GONE!" Л(34)9?<ЕL(42)┤▓L з30:ДАX│1е28:ЕL(X)│200зL(X)│L9vFЕL(42)│L зЛ:З"THE SPRITE IS DEAD.":L(42)│1000:Бе309│PЕB$┤▓"TO"░B$┤▓"CA"зЗ"YOU CAN'T BURN THE "O$(Sл6)".":Бе309тZЕL(Sл6)┤▓0зЗ"YOU AREN'T CARRYING IT.":Бе30:dЕB$│"CA"зF4│1:З"THE CANDLE IS LIT.":Бе30:;nЕB$│"TO"зF5│1:З"THE TORCH IS LIT.":Бе30:jxЕL(Sл6)┤▓0зЗ"YOU AREN'T CARRYING IT.":Бе30:ЫВЕB$│"CA"зЗ"THE CANDLE IS EXTINGUISHED.":F4│0:╦МЕB$│"TO"зЗ"THE TORCH IS EXTINGUISHED.":F5│0:╘ЦБе30;аЕB$┤▓"CH"░B$┤▓"DO"зЗ"YOU CAN'T OPEN A "O$(Sл6)".":Бе30;!кЕB$│"DO"з1500;I┤ЕL(Sл6)┤▓L зЗ"I DON'T SEE IT.":Бе30;Г╛Y│0:З"YOU SEE:":АX│7е43:ЕL(X)│130зЗO$(X):L(X)│L:Y│Yл1;Ш╚Л:ЕY│0зЗ"NOTHING;б╥Бе30;╫▄АX│34е39:ЕL(X)│L з1510:ДЛ:З"I DON'T SEE IT.":Бе30;ьцЕL│16зP(16,1)│17<ЁЕL│6зЕL(9)┤▓0зЗ"IT'S LOCKED.":Бе30:ДP(6,3)│8<2·ЕL│10зP(10,3)│11<GЕL│12зP(12,3)│13<YЕL│3зP(3,3)│4<nЕL│18зP(18,3)│19<З"З"DOOR OPENED.":Бе30<╡,ЕB$┤▓"FO"зЗ"IT WOULDN'T TASTE GOOD.":Бе30<у6ЕL(19)┤▓0зЗ"YOU AREN'T CARRYING IT.":Бе30< @З"BURP!":L(19)│100:Бе30=)JАX│7е27:ЕL(X)│L(42)зЕ Д(3)│1зL(X)│200=UTЛ:АX│7е27:ЕL(X)│200зЕ Д(2)│2зL(X)│L(42)=]^Л:Р=├hЕL(Sл6)┤▓0зЗ"YOU AREN'T CARRYING IT":Бе30:ДЙ"IN WHAT";C$:C$│ О(C$,2):ЕC$┤▓"CH"зЗ"YOU CAN'T.":Бе30=їrL(Sл6)│130:З"IT'S IN THE CHEST.":CA│CAм1:Бе30>2|ЕB$┤▓"GA"░B$┤▓"SE"зЗ"YOU CAN'T KILL THE "O$(Sл6)".":Бе30>hЖЕB$│"GA"зЕL(40)┤▓L зЗ"I DON'T SEE IT.":Бе30:Д1690>ПРЕL(41)┤▓L зЗ"I DON'T SEE IT.":Бе30>╣ЪЕB$│"GA"зЗ"THE GARGOYLE KILLS YOU.":К>▄дЕB$│"SE"зБж1710:L(41)│300:Бе30?оЕL(16)┤▓0зЗ"THE SERPENT HAS KILLED YOU.":К?<╕Е Д(5)│5зЗ"YOU HAVE BEHEADED THE SERPENT!":Р?c┬Е Д(5)│5зЗ"THE SERPENT IS DEAD.":Р?Д╠Е Д(5)│5зЗ"YOU MISSED.":Бе30?к╓З"YOU HAVE HIT THE SERPENT.":Бе30?╞рИ  Д(3)Бж1780,1790,1800?╠ъР@ЇЗ"THE SERPENT STRIKES!":ST│STл1:ЕST▓5зЗ"YOU'RE DEAD.":К::ДР@5■З"THE SERPENT STRIKES BUT MISSES!":Р@VЗ"THE SERPENT CONSTRICTS!":Р@\К@yЕL│7▒(L▓21░L┤24)з1830:ДР@И&ЕF5│0з1860@е0ЕL(21)┤▓0░L(21)┤▓L з1860@л:Р@╧DЗ"IT'S DARK! I CAN'T SEE!":Бе30"THE SERPENT STRIKES!":ST│STл1:ЕST▓5зЗ"YOU'RE 
▌;
╚0:Х500:└1:Ю:З@170,"CALORIE FILE":Зд10)"REVISION 1.2"З" COPYRIGHT (C) 1987 BY P.RIDDLE":Зд5)"LAST REVISION 03/21/87"дЗ:З:Зд5)"PRESS ANY KEY TO BEGIN"пв44539v(Ю:Зд12)"MAIN MENU":З:З"[0] CREATE NEW FILE":З"[1] LOAD OLD FILE":З"[2] SAVE CURRENT FILE":З"[3] ADD TO CURRENT LIST":З"[4] DELETE ENTRIES":З"[5] GLOBAL SEARCH":З"[6] SORT ENTRIES ALPHABETICALLY"┤-З"[7] LIST OUT ITEMS":З"[8] EDIT ITEMS":З"[9] TALLY DATA"╙2З:З"TOUCH SELECTION (0-9)"я<S$│ Т:ЕS$┤"0"▒S$▓"9"з60AЕN│0░S$▓"0"з60CЕN│1░S$▓"3"з60KFИ Й(S$)л1Бе80,120,179,250,290,360,460,330,410,510рPЮ:З"CREATE NEW FILE":З"warning!!":З"THIS FUNCTION WILL DESTROY ANY  CURRENT FILE IN MEMORY":З:Й"ARE YOU SURE YOU WANT TO DO THIS";Y$:ЕY$┤▓"Y"з40ZХ:N│1:Й"MAXIMUM NUMBER OF ITEMS [100]";M:ЕM│0зM│100-dМI$(M),I(M):Бе40axЮ:З"LOAD FILE":З:Й"ARE YOU SURE";Y$:ЕY$┤▓"Y"з40ТВЙ"(1) TAPE OR (2) DISK";DV:ЕDV│2зDV│1:ДDV│м1▌МЕDV│1░ Ж(49152)┤▓ К("D")зЗ"THERE IS NO DISK DRIVE PLUGGED  IN!!":Бе130@ЦЙ"PREPARE TAPE OR DISK, ENTER FILENAME AND PRESS ENTER";F$:Е З(F$)▓8зЗ"ILLEGAL FILENAME":Бе150qаЩ"I",DV,F$:Й#DV,N:АX│1еN:Й#DV,I$(X),I(X):Л:Ъ│кЗ"FILE "F$" LOADED. "Nм1"ITEMS.":З"PRESS ANY KEY":в44539:Бе40╣│Ю
┤З"SAVE FILE":З:Й"SAVE TO (1) TAPE OR (2) DISK";DV:ЕDV│2зDV│1:ДDV│м1K╛ЕDV│1░ Ж(49152)┤▓ К("D")зЗ"THERE IS NO DISK DRIVE PLUGGED  IN!":Бе180И╚Й"TYPE FILENAME, PREPARE TAPE OR  DISK AND HIT ENTER";F$Ч╥Щ"O",DV,F$й▄З#DV,N:АX│1еN╞цЗ#DV,I$(X):З#DV,I(X):Л:Ъ∙ЁЗ"FILE SAVED AS "F$:З"HIT ANY KEY":в44539:Бе405·Ю:З"ADD ITEMS",,"PRESS <ENTER> TWICE TO RETURN TOMENU."Ь
ЕN▓M зЗ"BUFFER FULL":Бж10000:Бе40:ДЗ:З"ITEM"N:╗Й"ITEM NAME: ";I$(N):Й"# OF CALORIES PER UNIT";I(N)┤
ЕI$(N)│""░I(N)│0з40▐
Е З(I$(N))▓15зЗ"NAME TOO LONG!":Бе260ю
N│Nл1:Бе260d
"Ю:З"DELETE ITEMS",,"ENTER ITEM NUMBER TO DELETE","(1-"Nм1")";:ЙX:ЕX┤1▒X▓Nм1зЗ"ILLEGAL ITEM NUMBER.":Бж10000:Бе290╢
,З:З"ITEM: "I$(X):Й"ARE YOU SURE YOU WANT TO DELETE THIS ITEM";Y$:ЕY$┤▓"Y"з320ў
6АX1│X еNм2:I$(X1)│I$(X1л1):I(X1)│I(X1л1):Л:N│Nм1:З"DELETED."/
@Й"ANY MORE ITEMS TO BE DELETED";Y$:ЕY$┤▓"Y"з40:Д290E
JЮ:З"LIST ITEMS":ЗВ
OЙ"(1) SCREEN, OR (2) PRINTER";DV:ЕDV│2зDV│м2:ДDV│0:Бе340е
PЗ"PREPARE PRINTER ...":Бж10000х
QЗ#м2,"CALORIE FILE":З#м2,"Item name","Calorie content":З#м2

TАX│1еNм1:ЕXо12│ Б(Xо12)░DV│0Бж100000
^З#DV,I$(X),I(X):Л:Бж10000:Бе40I
hЮ:З"GLOBAL SEARCH",,И
r╗Й"TARGET DATA: ";A$:З"SEARCHING FOR "A$"...":O│0:АX│1еNм1╟
|Е Ю(I$(X),A$)┤▓0зO│Oл1:З"OCCURRENCE #"O:З"ITEM "X": "I$(X)▀
ЖЛ:ЕO│0зЗ"NOT FOUND"Ё
РБж10000:Бе40)
ЪЮ:З"EDIT ITEMS",,"NUMBER OF ITEM TO EDIT (1-"Nм1")";a
дЙX:ЕX┤1▒X▓Nм1зЗ"ILLEGAL ITEM NUMBER.":Бж10000:Бе410╣
оЗ"OLD= "I$(X):ЗI(X)"CALORIES/UNIT":Й"DO YOU WANT TO EDIT THIS ITEM";Y$:ЕY$┤▓"Y"з450∙
╕╗Й"NEW= ";I$(X):Й"NEW CALORIE VALUE";I(X):З"EDIT COMPLETE."+
┬Й"ANY MORE ITEMS TO EDIT";Y$:ЕY$┤▓"Y"з40:Д410O
╠Ю:З"SORT ITEMS ALPHABETICALLY",r
╓Й"ARE YOU SURE";Y$:ЕY$┤▓"Y"з40м
╪З"SORT BY (1) ITEM NAME OR","(2) CALORIC CONTENT";:ЙX╨
█З"PLEASE WAIT ... SORTING FILE"с
▌ИX Бе480,502 	
рАX│1еNм1:АY│X еNм1:ЕI$(X)┤I$(Y)з500 
ъБж509 !
ЇЛY,X:Бе40 G
ЎАX│1еNм1:АY│X еNм1:ЕI(X)┤I(Y)з506 Q
°Бж509 _
·ЛY,X:Бе40 Ы
¤Z$│I$(X):I$(X)│I$(Y):I$(Y)│Z$:Z│I(X):I(X)│I(Y):I(Y)│Z:Р ╤
■Ю:З"TALLY ITEMS":З"HIT <ENTER> TO RETURN TO MENU" цTALLY│0:АX│1еNм1!З"ITEM"X": "I$(X):ЗI(X)"CALORIES/UNIT"!2Й"HOW MANY UNITS";U:ЕU┤0з540!~&U│I(X)нU:TALLY│TALLYлU:З"NUMBER OF CALORIES="U:З"CURRENT TALLY="TALLY:Л!Ы0З"total calories ="TALLY!м:Бж10000:Бе40!▓'К!▄'З"PRESS ANY KEY TO CONTINUE":в44539:РX│1еNм1!З"ITEM"X": "I$(X):ЗI                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 А&Ў:Г                                     *****************************************           THE GAME OF LIFE           **            BY JOHN RIDDLE            **              4/4 - 4/6               ***************************************** &¤:Г'Т65497,0:ИЁБе5000:ИяБе6000(:ГSUBROUTINE 1000 - PRINT GAME BOARD      SUBROUTINE 2000 - INPUT PATTERN CELLS   SUBROUTINE 3000 - INPUT RANDOM CELLS    SUBROUTINE 4000 - TRANSFER B$-A$        SUBROUTINE 5000 - BREAK KEY PRESSED     SUBROUTINE 6000 - ERROR !(т40:у0,0:у8,54:Ю1:G│0(ОЗ"The Game of Life.":З:З"Written by John Riddle.":З"July 4th, 1989":З:З"Select:":З"1) Pattern":З"2) Random"(║Q$│ Т:ЕQ$│""з7:ДЕQ$│"1"з8:ДЕQ$│"2"з8:Д7(рЗ:З"Grid size?":З"1) 10":З"2) 20")	S$│ Т:ЕS$│""з9:ДЕS$│"1"зH│10:Бе10:ДЕS$│"2"зH│20:Бе10:Д9)+
МA$(20,20))YМB$(20,20):АX│1еH:АY│1еH:B$(X,Y)│".":ЛY,X)lЕQ$│"1"зБж2000)ЕQ$│"2"зБж3000)К#Бж1000)а(АX│1еH:АY│1еH:Z│0)╣2ЕA$(Xм1,Y)│"*"зZ│Zл1)▐<ЕXл1▓H з70:ДЕA$(Xл1,Y)│"*"зZ│Zл1)ўFЕA$(X,Yм1)│"*"зZ│Zл1*PЕYл1▓H з90:ДЕA$(X,Yл1)│"*"зZ│Zл1*7ZЕA$(Xм1,Yм1)│"*"зZ│Zл1*_dЕYл1▓H з110:ДЕA$(Xм1,Yл1)│"*"зZ│Zл1*ЗnЕXл1▓H з120:ДЕA$(Xл1,Yм1)│"*"зZ│Zл1*╖xЕYл1▓H ▒ Xл1▓20з130:ДЕA$(Xл1,Yл1)│"*"зZ│Zл1*╠yЕZ│0зB$(X,Y)│"."*уzЕZ▓│4 зB$(X,Y)│"."+{ЕZ│2 ▒ Z│3 зB$(X,Y)│A$(X,Y)+(|ЕA$(X,Y)│"." ░ Z│3  зB$(X,Y)│"*"+2ВЛY:ЛX+ИМБж4000:G│Gл1:З"Generation"G"completed.":З"Press any key to continue.":в44539:Бе35+Яч:ГEND OF MAIN LOOP+╚шё0,0:АX│1еH:АY│1еH:ЗA$(X,Y);:ЛY:З:ЛX+фЄЕH│10зАX│1е13:З:Л:ё0,10+ №ЕH│20зАX│1е3:З:Л:ё0,20,Р,Ш╨Ю:З"Input the points that you want to place live cells at.":З:З"Example:Say you want to place a live    cell at 3 down and 4 across. You type",ш┌З"the following:<3,4> [ENTER]. How many   live cells do you wish to input?"-'фЙW:Е W┤1 ▒ W▓400 зЗ"Invalid request. Please retry.":Бе2020-fюЕH│10░(W┤1▒W▓100)зЗ"Invalid request. Please retry.":Бе2020-г°З:З"Would you like to see the pattern after each input?"-█Y$│ Т:ЕY$│""з2050:ДЕY$│"Y"з2060:ДЕY$│"N"з2060:Д2050-■АX│1еH:АY│1еH:A$(X,Y)│".":ЛY,X. З"Now input the coordinates.".+ АF│1еW.4*ЙX,Y.c4Е A$(X,Y)│"*" з A$(X,Y)│"." :Д A$(X,Y)│"*".v>ЕY$│"Y"зБж2500.}HЛF.ЩRЗ"Input any more <Y/N>".╤\P$│ Т:ЕP$│""з2140:ДЕP$│"Y"з2150:ДЕP$│"N"з2220:Д2140.цfЙ"How many ?";HM.ЄpАF│1еHM.√zЙX,Y/*ДЕ A$(X,Y)│"*" з A$(X,Y)│"." :Д A$(X,Y)│"*"/=ОЕY$│"Y"зБж2500/DШЛF/OвБе2130/XмБе35/Б	─ё0,0:АX│1еH:АY│1еH:ЗA$(X,Y);:ЛY:З:ЛX/╢	╬ЕH│10зАX│1е13:З:Л:ё0,10::ДЕH│20зАX│1е3:З:Л:ё0,20/╝	╪Р/у╕Ю:З"A=RND(?)":З"Input the number."/ы┬ЙRN0_╠З:З"IF A>=? THEN A$(X,Y)="л Л(34)л"."л Л(34):З"IF A< ? THEN A$(X,Y)="л Л(34)л"*"л Л(34):З"Input the frequency."0g╓ЙFR0yрАX│1еH:АY│1еH0ЖъA│ Д(RN)0ЮЇЕA▓│FR зA$(X,Y)│"."0╡■ЕA┤FR зA$(X,Y)│"*"0╛ЛY,X0─Р0эаАX│1еH:АY│1еH:A$(X,Y)│B$(X,Y):ЛY,X:Р1ИЗ"<BREAK> activated."1
ТК1SpЕ  м│8 ░  н│2100 зЗ"Values out of range.":З"Please retry.":Бе20801yzЗ"ERROR!":З"Number"; м:З"Line"; н1ДК(RN)0ЮЇЕA▓│FR зA$(X,Y)│"."0╡■ЕA┤FR зA$(X,Y)│"*"0╛ЛY,X0─Р0эаАX│1еH:АY│1еH:A$(X,Y)│B$(X,Y):ЛY,X:Р1ИЗ"<BREAK> act                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 б&$
:Г****************************&G:Г*   NIGHTTIME AND WINTER   *&j:Г*   SCENES BY PAUL RIDDLE  *&Н(:Г*       AUGUST, 1986       *&░2:Г****************************&╖<:Г&╫F╚4,1:Т179,1:╝:┐1,1:Т65495,0&ъPЕ Т┤▓ Л(13)з80'Z╚3,1:╝3:┐1,0:┴2,3:GR│1:YE│2:BL│3:RE│4'$dБж110:Бе300'mn╞"C=YE;BM50,191U75NG10E50F50NL100NF10D25ND50R60D50":├(100,175),RE,YE'ЭxАX│121е191й5:╗(50,X)м(150,X),╜:АY│50е149й10'╒ВЕXо2│ Б(Xо2)з╗(Y,X)м(Y,Xм5),╜:Д╗(Yл5,X)м(Yл5,Xм5),╜'▐МЛY,X(Ц┴YE:╗(60,191)м(85,146),╜,BF:┬(80,169),4,3(на╗(95,136)м(140,170),╜,BF:┴GR:╗(95,136)м(140,170),╜,B:╞"BM105,136D34BM130,136D34":ЕDA│1з├(103,140),BL,GR:├(133,140),BL,GR::Д├(103,140),GR,GR:├(133,140),GR,GR(┬к├(100,111),GR,YE(╨┤ЕDA│1з┴YE)╛АX│0е48:╗(X,191)м(X,191м Д(10)),╜:Л:АX│212е255:╗(X,191)м(X,191м Д(10)),╜:Л)i╚ЕDA│0з┬(230,25),15,YE:├(230,25),YE,YE:┬(220,15),20,BL:├(225,20),BL,BL* ╥ЕDA│1з┬(60,20),30,YE,.25:├(60,20),YE,YE:┬(80,25),30,YE,.25:├(85,30),YE,YE:┬(55,30),30,YE,.25:├(55,30),YE,YE:┬(200,50),20,YE,.5:├(200,50),YE,YE:┬(220,45),30,YE,.25:├(220,45),YE,YE*Z▄╞"C=YE;BM90,106R20U20L20D20C=BL;BM100,105U9NU9NR8NL8"*Ыц╞"C=YE;BM205,191U45L50D45":├(200,180),GR,YE:├(207,180),RE,YE*йЁЕDA│1з280*╡·АZ│1е50*э
X│ Д(256)м1:Y│ Д(186)м1:Е а(X,Y)│BL з╜(X,Y,YE):Д260*∙
Л:Бе290+"
АX│1е150:╜( Д(256)м1, Д(192)м1,YE):Л+(
"Р+:
,╔"T255L255O5"+P
6╔"BB-":Е Т│""з310+f
@╚4,1:┐1,1:╚3,1:╝2+~
JBL│2:RE│3:GR│1:YE│4+Н
TDA│1:Бж110+а
^Т65494,0:Бе350│1з280*╡·АZ│1е50*э
X│ Д(256)м1:Y│ Д(186)м1:Е а(X,Y)│BL з╜(X,Y,YE):Д260*∙
Л:Бе290+"
А                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 й&
:ГCOCO ILLUSION #6&5:ГJCR PRODUCTS :06-07-89&р:ГI DECIDED TO WRITE THIS     PROGRAM WHEN I SAW THE COCO     ILLUSION ARTICLE IN THE JUNE 89 RAINBOW.  THIS IS AN ILLUSION   THAT IS IMPOSSIBLE TO BUILD OUT OF WOOD.&юd╚4,1:┐1,1&Їi╝'n╗(132,1)м(62,40),╜'#x╗(62,40)м(102,80),╜'<В╗(100,80)м(163,42),╜'TМ╗(163,42)м(132,1),╜'mЦ╗(102,80)м(40,111),╜'Жа╗(40,111)м(80,111),╜'ак╗(80,111)м(100,130),╜'╗┤╗(100,130)м(116,111),╜'╒╛╗(116,111)м(164,80),╜'ю╚╗(164,80)м(134,80),╜(╥╗(80,111)м(134,80),╜( ▄╗(134,80)м(163,42),╜(7ц╗(132,1)м(164,1),╜(OЁ╗(164,1)м(182,20),╜(g·╗(182,20)м(196,1),╜(
╗(196,1)м(176,15),╜(Ц
╗(196,1)м(228,1),╜(о
╗(228,1)м(196,42),╜(╟
"╗(196,42)м(228,80),╜(р
,╗(228,80)м(196,80),╜(∙
6╗(196,80)м(182,60),╜)
@╗(182,60)м(164,80),╜)+
J╗(40,111)м(79,149),╜)D
T╗(79,149)м(40,185),╜)]
^╗(40,185)м(80,185),╜)w
h╗(80,185)м(100,170),╜)Т
r╗(100,170)м(115,185),╜)м
|╗(80,185)м(106,177),╜)╟
Ж╗(115,185)м(150,185),╜)т
Р╗(150,185)м(115,149),╜)¤
Ъ╗(115,149)м(151,111),╜*
д╗(116,111)м(151,111),╜*2
о╗(151,111)м(196,80),╜*L
╕╗(228,80)м(179,111),╜*g
┬╗(179,111)м(212,144),╜*В
╠╗(179,111)м(115,149),╜*Э
╓╗(150,185)м(212,144),╜*ишБе1000╜)╟
Ж╗(115,185)м(150,185),╜)т
Р╗(150,185)м(115,149),╜)¤
Ъ╗(115,149)м(151,111),╜*                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
p&

Ю:┌И&(З"CURRENT PMODE "; Ж(182)&[З"START GRAPHICS ";:SG│ Ж(186)н256л Ж(187):ЗSG&М(З"GRAPHICS END ";:GE│ Ж(183)н256л Ж(184):ЗGE&╜2З"MAX MEMORY IN SYSTEM "; Ж(116)н256л Ж(117)&э<З"DISPLAY PIC";:ЙA$:ЕA$│"Y"з┐1,1:АI│1е800:Л'"FЗ"CHANGE PMODE ";:ЙA$:ЕA$│"N"з80:ДA│ Й(A$):╚ A:О'JPЗ"SAVE PICTURE ";:ЙA$:ЕA$│"Y"з90:ДК'oZЗ"NAME";:ЙA$:┌И:╪M A$,SG,GE,SG:СGE│ Ж(183)н256л Ж(184):ЗGE&╜2З"MAX MEMORY IN SYSTEM "; Ж(116)н256л Ж(117)&э<З"DISPLAY PIC";:ЙA$:ЕA$│"Y"з┐1,1:АI│1е800:Л'"FЗ"CHANGE PMOD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╤&А
:ГASCII COMPUTER CODE / PIG   LATIN ENCODE/DECODE PROGRAM     COPYRIGHT (C) 03-24-90 BY JOHN  RIDDLE  :  JCR PRODUCTS 1990&зИЁБе620:Ю:З"ENCODE/DECODE PROGRAM"&╟З:З"1) ASCII COMPUTER CODE"&▌(З:З"2) PIG LATIN"'2Q$│ Т:ЕQ$│""з50:ДЕQ$│"1"з60:ДЕQ$│"2"з140:Д50'i<ИЁБе20:ИяБе60:Ю:З"ASCII COMPUTER CODE":З:З"1) ENCODE STATEMENT":З"2) DECODE STATEMENT"'ЪFW$│ Т:ЕW$│""з70:ДЕW$│"1"з80:ДЕW$│"2"з110:Д70'┬PИЁБе60:З:╗Й"ENTER STATEMENT : ";ST$'ЎZАX│1е З(ST$):NC$│ Л( К( Р(ST$,X,1))л1):ЗNC$;:ЛX' dБе80('nИЁБе60:З:╗Й"ENTER STATEMENT : ";ST$([xАX│1е З(ST$):NC$│ Л( К( Р(ST$,X,1))м1):ЗNC$;:ЛX(eВБе110(╘МSC│0:ИяБе140:ИЁБе20:Ю:З"PIG LATIN":З:З"1) CONVERT ENGLISH TO PIG LATIN":З"2) CONVERT PIG LATIN TO ENGLISH")ЦE$│ Т:ЕE$│""з150:ДЕE$│"1"з160:ДЕE$│"2"з360:Д150)1аИЁБе140:З:╗Й"ENTER STATEMENT : ";ST$)FкLS│ Ю(1,ST$," "))c┤ЕLS│0зSC│1:SS$│ST$:Бе200)x╛SS$│ О(ST$,LSм1))У╚RS$│ П(ST$, З(ST$)мLS))Я╥ST$│RS$)▒▄VC$│ О(SS$,1))┬цЕVC$│"A"з310)╙ЁЕVC$│"E"з310)ф·ЕVC$│"I"з310)ї
ЕVC$│"O"з310*
ЕVC$│"U"з310*
L│ З(SS$)*(
"NS$│ Р(SS$,2,L)*2
,Бе320*I
6NS$│SS$л"AY":Бе330*d
@NS$│NS$л О(SS$,1)л"AY"*r
JЗNS$;" ";*В
TЕ SC┤▓1з170*М
^Бе160*╡
hИЁБе140:З:╗Й"ENTER STATEMENT : ";ST$*╩
rLS│ Ю(1,ST$," ")*ч
|ЕLS│0зSC│1:SS$│ST$:Бе400*№
ЖSS$│ О(ST$,LSм1)+
РRS$│ П(ST$, З(ST$)мLS)+#
ЪST$│RS$+5
дVC$│ О(SS$,1)+F
оЕVC$│"A"з490+W
╕ЕVC$│"E"з490+h
┬ЕVC$│"I"з490+y
╠ЕVC$│"O"з490+К
╓ЕVC$│"U"з490+Ф
рБе510+│
ъFC│1:NS$│ О(SS$, З(SS$)м2)+╜
ЇБе540+╬
■LS│ З(SS$)м2+уCM$│ Р(SS$,LS,1)+№NS$│CM$л О(SS$,LSм1),
З@192,NS$,&ЕFC┤▓1з600,50З@256,"FLIP WORD <Y/N>",m:FW$│ Т:ЕFW$│""з570:ДЕFW$│"Y"з580:ДЕFW$│"N"з600:Д570,СDCS$│ П(NS$,1)л О(NS$, З(NS$)м1),ЭNNS$│CS$,╝XUS$│US$л" "лNS$:ЕSC┤▓1з370,╩bЗ@256,US$,╨lКCM$│ Р(SS$,LS,1)+№NS$│CM$л О(SS$,LSм1),