SY│ Д(м Я)?Ю7:З@236,"GRAFXXX";:З@265,"BY ED POLLARD";OАI│1е5000:Лд(:Г POKE65495,0'USE THIS LINE ONLY IF YOUR COMPUTER CAN HANDLE IT (SPEED UP POKE)ц2Е Ж(16057)┤▓50зХ200,16048:АI│33465е33566:ТIм17408, Ж(I):Л:Д90<АI│0е2:Т16061лI,18:ЛI:I│16158<FТI,38:ТIл1,3:ТIл2,126:ТIл3,131:ТIл4,34:ТIл5,126QPТIл6,164:ТIл7,76bZТ411,62:О100rd╚4,1:┐1,1:╝ЕnА F│1 е  Д(10)бx╚  Д(5)м1,1:┐ 1, Д(2)м1╖В┴  Д(9)м1, Д(9)м1╟МS1│ Д(10)л1ЦА X│1 е 255 й S1:Y│1:X1│1:Y1│191м(Xо1.33508):╗(X,Y)м(X1,Y1),╜:ЛXIаА X│1 е 255 й S1:X1│255:Y1│Xо1.33508:╗(X,Y)м(X1,Y1),╜:ЛXУкА X1│255 е 1 йм S1:X│255:Y│191мX1о1.33508:Y1│191:╗(X,Y)м(X1,Y1),╜:ЛX1╫┤А X1│255 е 1 й мS1:X│1:Y│X1о1.33508:Y1│191:╗(X,Y)м(X1,Y1),╜:ЛX1╛АI9│1е1000:ЛI9:╚  Д(5)м1,1:┐1, Д(2)м1:АI9│1е1000:ЛI9╚ЛFВ╥А L│1 е  Д(10):╚  Д(5)м1,1:┐1, Д(2)м1:C│ Д(9)м1:┴  Д(9)м1, Д(9)м1:А R│ 1 е  Д(100):┬(128,96),R,C:ЛR:ЛL°▄А E│1 е  Д(10):X│ Д(255):Y│ Д(191):╚  Д(5)м1,1:┐1, Д(2)м1:C│ Д(9)м1:C1│ Д(9)м1:┴  Д(9)м1, Д(9)м1:┬(X,Y), Д(100),Cц├(X,Y),C1,C:ЛE:Бе110FВ╥А L│1 е  Д(10):╚  Д(5)м1,1:┐1, Д(2)м1:C│ Д(9)м1:┴  Д(9)м1, Д(9)м1:А R│ 1 е  Д(100):┬(128,96),R,C:ЛR:ЛL°▄А E│1 е  Д(10):X│ Д(255):Y│ Д(191):╚  Д(5)м1,1:┐1, Д(2)м1:C│ Д(9)м1:C1│ Д(9)м1:┴  Д(9)м1, Д(9)м1:┬(X,Y), Д(100),Cц├(з390+	
РЮ+0
ЪЗ "  (XX)= PAGE NUMBER OF LISTING"+6
дЗ+\
оЗ"(174) TRIGSHOW"," (50) DUNGEON"+А
╕З" (54) D-ADVNTR","(170) SAR27"+з
┬З"(130) RNDWALK1","(130) RNDWALK2"+╠
╠З"(166) BASIC64K"," (74) INVITE"+ё
╓З"(126) RAINDEX","(111) MATHPAL",
рЗ" (80) DUPER","(136) CHEMBOND",
ъЗ,@
ЇЗ "   PRESS ANY KEY TO CONTINUE",R
■Е  Т│"" з 510,XЮ,З "  (XX)= PAGE NUMBER OF LISTING",ЕЗ,и&З" (49) TARTAN","(122) HOBBIT",╠0З" (92) EDUCATE","(106) INMAN1",Є:З "(106) INMAN2"," (95) RBOWCHEK"-DЗ " (26) RANDOLF"-NЗ-2XЗ"  *=MACHINE LANGUAGE PROGRAM"-8bЗ-{lЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU"-аvЗ "  PRESS (BREAK) TO EXIT MENU"-╝АЕ  Т│"" з 640 :Д Бе 240-╠КЗ б(32,45);"(106) INMAN2"," (95) RBOWCHEK"-DЗ " (26)                                                                                                                                                                                                                                                                 
SY│ Д(м Я)?Ю7:З@236,"GRAFXXX";:З@265,"BY ED POLLARD";OАI│1е5000:Лд(:Г POKE65495,0'USE THIS LINE ONLY IF YOUR COMPUTER CAN HANDLE IT (SPEED UP POKE)ц2Е Ж(16057)┤▓50зХ200,16048:АI│33465е33566:ТIм17408, Ж(I):Л:Д90<АI│0е2:Т16061лI,18:ЛI:I│16158<FТI,38:ТIл1,3:ТIл2,126:ТIл3,131:ТIл4,34:ТIл5,126QPТIл6,164:ТIл7,76bZТ411,62:О100rd╚4,1:┐1,1:╝ЕnА F│1 е  Д(10)бx╚  Д(5)м1,1:┐ 1, Д(2)м1╖В┴  Д(9)м1, Д(9)м1╟МS1│ Д(10)л1ЦА X│1 е 255 й S1:Y│1:X1│1:Y1│191м(Xо1.33508):╗(X,Y)м(X1,Y1),╜:ЛXIаА X│1 е 255 й S1:X1│255:Y1│Xо1.33508:╗(X,Y)м(X1,Y1),╜:ЛXУкА X1│255 е 1 йм S1:X│255:Y│191мX1о1.33508:Y1│191:╗(X,Y)м(X1,Y1),╜:ЛX1╫┤А X1│255 е 1 й мS1:X│1:Y│X1о1.33508:Y1│191:╗(X,Y)м(X1,Y1),╜:ЛX1╛АI9│1е1000:ЛI9:╚  Д(5)м1,1:┐1, Д(2)м1:АI9│1е1000:ЛI9╚ЛFВ╥А L│1 е  Д(10):╚  Д(5)м1,1:┐1, Д(2)м1:C│ Д(9)м1:┴  Д(9)м1, Д(9)м1:А R│ 1 е  Д(100):┬(128,96),R,C:ЛR:ЛL°▄А E│1 е  Д(10):X│ Д(255):Y│ Д(191):╚  Д(5)м1,1:┐1, Д(2)м1:C│ Д(9)м1:C1│ Д(9)м1:┴  Д(9)м1, Д(9)м1:┬(X,Y), Д(100),Cц├(X,Y),C1,C:ЛE:Бе110FВ╥А L│1 е  Д(10):╚  Д(5)м1,1:┐1, Д(2)м1:C│ Д(9)м1:┴  Д(9)м1, Д(9)м1:А R│ 1 е  Д(100):┬(128,96),R,C:ЛR:ЛL°▄А E│1 е  Д(10):X│ Д(255):Y│ Д(191):╚  Д(5)м1,1:┐1, Д(2)м1:C│ Д(9)м1:C1│ Д(9)м1:┴  Д(9)м1, Д(9)м1:┬(X,Y), Д(100),Cц├(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
|&d:ГDRAW&nМ A(1),B(1)&0x╚ 4,1: ╝: ┐ 1,0&LВ╞"BM12,10;D2R5F1R1H1R4"&`М╞"BM12,10;F1R7"&wЦ╗(20,11)м(22,12),╜&На╞"BM16,11;H1R1F1"&░к╞"BM1,150;E25R50F10R114E15R40"&╖┤:Г&╛╛:Г&╚╚:ГFLY&▄╥А X│8 е 220 й 4&Ў▄─(X,10)м(Xл14,13),A,G'ц┼(Xл4,10)м(Xл18,13),A,╜'ЁЛ X'!·:Г'(
:Г':
,:ГBLANK PLANE'S
6─(10,50)м(24,53),B,G'n
@┼(224,10)м(238,13),B,╜'y
JБе 330BM16,11;H1R1F1"&░к╞"BM1,150;E25R50F10R114E15R40"&╖┤:Г&╛╛:Г&╚╚:ГFLY&▄╥А X│8 е 220 й 4&Ў▄─(X,10)м(Xл14,13),A,G'ц┼(Xл                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
∙&)
Ю:Е Ж(116)│127 з X│32688 :Д X│16304&5Х25,Xм1&ZЕ Ж(116)│127 зX│32688 :Д X│16304&j(АZ│X е Xл77&~2НY:W│WлY:ЗZ,Y;W&М<Т Z,Y : Л&пFЕW│5718 з80 :Д З"DATA ERROR":С&╣Pв X:К&╓ZЖ 182,1,106,167,141,0,68&ЄdЖ 134,126,183,1,106,190'nЖ 1,107,175,141,0,57,48')xЖ 141,0,4,191,1,107,57'FВЖ 129,10,38,44,52,22,220'bМЖ 27,147,25,142,4,0,141'}ЦЖ 6,31,152,141,2,32,25'ФаЖ 52,2,68,68,68,68'йкЖ 141,4,53,2,132'┼┤Ж 15,129,9,46,4,139,112'т╛Ж 32,2,139,55,167,128,57'Ў╚Ж 53,22,126,0,0107,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ,C,C: Л: ┬(AмX,BмX),20,2,1,C,C: ┬(AмX,BмX),20,3,1,C,C8оА I│1 е  Д(3): C│ Д(0): ┬(A,B),50,2,1,C,C: ┬(A,B),50,3,1,C,C: Л: ┬(AлX,BмX),20,2,1,C,C: ┬(AлX,BмX),20,3,1,C,C: Бе 7808─ :ГRandom Graphics8╙*┐1, Д(2)м18¤4F│ Д(4): B│ Д(8): Е B│F ▒ Bм4│F з 8209Ь>┴ F,B: ╝ B: А L│0 е 3: ╗м( Д(255), Д(191)),╜: ┬( Д(255), Д(191)), Д(100): Л: А P│0 е 6: ├( Д(255), Д(191)), Д(4),F: Л P: А T│0 е 800: Л T: X│ Н(0): Бе 8101,C,C: Бе 7808─ :ГRandom Graphics8╙*┐1, Д(2)м18¤4F│ Д(4): B│ Д(8): Е B│F ▒ Bм4│F з 8209                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ц&:Г*********************&+
:ГSTORIES&<:ГSTEVE BLYN&W:ГCOMPUTER ISLAND,N.Y.&a(Бе220&~2VB│ Д(5):C│ Д(3):J│ Д(2)&Я<ЕVB│1зVB$│"DANCE":PL$│"PARK"&└FЕVB│2зVB$│"SKIP":PL$│"BEACH"&рPЕVB│3зVB$│"RUN":PL$│"WOODS"'
ZЕVB│4зVB$│"JUMP":PL$│"STORE"'"dЕVB│5зVB$│"HOP":PL$│"MOVIES"'7nЕX│1зX$│" PARK "'MxЕX│2зX$│" BEACH "'cВЕX│3зX$│" WOODS "'yМЕX│4зX$│" STORE "'РЦЕX│5зX$│" MOVIES "'иаЕC│1зC$│" MORNING."'┬кЕC│2зC$│" AFTERNOON."'┌┤ЕC│3зC$│" EVENING."'я╛Е J│1зT$│"EARLY"(╚Е J│2 з T$│"LATE"(╥Р(A▄Ю8:З:З@76,"stories";:АX│0е63:Ь(X,7,7):Ь(X,8,7):ЛX(МцЗ@192,"  THIS IS A PROGRAM THAT LET'S     YOU HELP TO CREATE STORIES."(╖ЁАT│200е230:аT,1:Л:АT│230е200йм2:аT,1:Л(▐·З@389,"PRESS ENTER TO GO ON";:Й H$)
Ю:З"     WHAT IS YOUR NAME":ЙNN$)
N$│ О(NN$,10))
Бж480)F
"З"  NAME ONE OF YOUR FRIENDS":ЙAA$)X
,A$│ О(AA$,10))b
6Бж480)г
@З"  NAME AN ACTION WORD THAT              ENDS IN 'ING'":ЙO$)н
JБж480)р
TЮ5:З@0,"   HERE IS ";N$;"'S STORY":АT│1е600:ЛT)щ
^Бж50) 
hАT│1е10:а100,1:ЛT*
rАX│0е63:Ь(X,3,8):Л*K
|З@97,"IT WAS ";T$;" IN THE";C$:А T│ 1 е 600: Л T*}
ЖЗ@160,N$;" AND ";A$; " WERE":А T│ 1 е 600:Л T*│
РЗ@224,O$;" ON THEIR WAY TO THE":А T│ 1 е 600: Л T*ь
ЪЗ@288,PL$;". THEN THEY STARTED TO":А T│ 1 е 600: Л T+
дЗ@352,VB$;" AND HAD A LOT OF FUN."+'
оАT│1е5:а220,1:Л+Y
╕З@448,"do you want another story (Y/N)";:Й Q$+t
┬Ю:а200,4:а170,4:а150,4+Н
╠Е  О(Q$,1)│"Y" з 340+в
╓З"BYE FOR NOW":К+у
рЗ:З"--------------------------------";:АT│100е200й5:аT,1:Л:Р Л T+
дЗ@352,VB$;" AN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Я&
:ГCHEMical BONDing&-:ГLane P. Lester&K:ГLiberty Baptist College&e(:ГLynchburg, VA 24506&u2:ГCalibrate&═<Ю 0: А ROW│0 е 15: А COL│0 е 31: P│143л16н Б(COLо4): Т 1024л32нROWлCOL,P: Л COL,ROW&ъFX│ Н(0): Е  Н(1)▓10 з 70&■P:ГBiology Title'ZЮ 0: └ 8: ╚ 3,1'xdJ│128л16н( Д(8)м1)л Д(15): А I│1088 е 1119: Т I,J: Л: А I│1471 е 1440 й м1: Т I,J: Л: CLR│ Д(8)м1'мnН I,J: Е I┤▓0 з Т Iл5н32л1,128л16нCLRлJ: Бе 110'╩xЖ 1056,14,1057,12,1058,12'шВЖ 1059,10,1088,11,1089, 3(МЖ 1090, 3,1091,10,1120,10($ЦЖ 1123,10,1152,12,1153,12(BаЖ 1154,12,1155, 8,1061,10(`кЖ 1093,10,1125,10,1157, 8(~┤Ж 1063,14,1064,12,1065,12(Ь╛Ж 1066,10,1095,10,1098,10(║╚Ж 1127,10,1130,10,1159,12(╪╥Ж 1160,12,1161,12,1162, 8(Ў▄Ж 1068,10,1100,10,1132,10)цЖ 1164,12,1165,12,1166,12)2ЁЖ 1167, 8,1073,14,1074,12)P·Ж 1075,12,1076,10,1105,10)n
Ж 1108,10,1137,10,1140,10)М
Ж 1169,12,1170,12,1171,12)к
Ж 1172, 8,1078,14,1079,12)╚
"Ж 1080,12,1081, 8,1110,10)ц
,Ж 1142,10,1144,12,1145,10*
6Ж 1174,12,1175,12,1176,12*"
@Ж 1177, 8,1083,10,1086,10*@
JЖ 1115,11,1116, 3,1117, 3*^
TЖ 1118,10,1148, 5,1180, 4*h
^Ж 0,0*╕
hX│ Н(0): Е  Н(1)▓10 з А L│1 е 1000: Л: Ю0: П: Бе 100 :Д Ю 0: А I│1 е 200: Л*╠
r:ГHydrogen Atom+"
|Е  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 380 :Д ╝: ┐ 1,0: ┬(128,96),6,3: ├(128,96),3,3+Ч
ЖX│ Д(20)л45: Y│ Д(0): ┬(128,96),X,2,1,Y,Y: ┬(128,96),X,1,1,Y,Y: X│ Н(0): Е  Н(1)▓10 з 390 :Д ╝ 1: А I│1 е 200: Л+┤
Р:ГElectron Energy Shells,*
ЪЕ  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 410 :Д ╚ 3,5: ╝ 2: ╚ 3,1: ┴ 2,3: ╝: ┐ 1,0: ┬(0,96),8,4,1,.75,.25: ├(2,96),4,4,z
дЖ32,.75,.25,64,.75,.25,96,.79,.23,128,.87,.15,160,.90,.11,192,.92,.10,0,0,0,к
оН X,Y,Z: Е X┤▓0 з ┬(0,96),X,2,1,Y,Z: Бе 430,ш
╕Е  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 440 :Д А I│1 е 100: Л-Б
┬┬(0,96),160,3,1,.9,.11: ┬(0,96),160,2,1,.9,.11: Е  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 450 :Д А I│1 е 100: Л: ╚ 3,5: ┐ 1,0: А I│1 е 10: Л: ╚ 3,1: ┐ 1,0.
╠┬(0,96),192,3,1,.92,.1: ┬(0,96),192,2,1,.92,.1: Е  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 460 :Д А I│1 е 100: Л: ╚ 3,5: ┐ 1,0:А I│1 е 10: Л: ╚ 3,1: ┐ 1,0.L
╓X│ Н(0): Е  Н(1)▓10 з 450 :Д ╝: А I│1 е 200: Л.c
р:ГCovalent Bonding.╣
ъЕ  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 490 :Д ┴ 2,3: ╝: ┬(128,96),4,4: ├(128,96),4,4/F
ЇX│24л Д(10): Y│ Д(0): ┬(128,96),X,2,1,Y,Y: ┬(128,96),X,3,1,Y,Y: Е  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 500 :Д А I│1 е 200: Л: ┬(128,66),2,2/┘
■Е  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 510 :Д ╝: A│100: B│96: C│156: ┬(A,B),4,4: ├(A,B),4,4: ┬(C,B),4,4: ├(C,B),4,4: ┬(100,66),2,2: ┬(156,66),2,20%Е  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 520 :Д ┬(100,66),2,3: ┬(156,66),2,30щА I│1 е  Д(5): X│24л Д(10): Y│ Д(0): ┬(A,B),X,2,1,Y,Y: ┬(A,B),X,3,1,Y,Y: Л: А I│1 е  Д(5): X│24л Д(10): Y│ Д(0): ┬(C,B),X,2,1,Y,Y: ┬(C,B),X,3,1,Y,Y: Л: Е  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 5301X│ Н(0):Е  Н(1)▓10 з 490 :Д ╝: А I│1 е 200: Л1/&:ГIonic Bonding1╔0Е  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 560 :Д М E(10,10),B(10,10),X(6),Y(6),Z(6),U(28),V(28): А I│1 е 6: Н X(I),Y(I),Z(I): Л: А I│1 е 28: Н U(I),V(I): Л1х:Ж 32,.75,.25,64,.75,.252
DЖ 96,.79,.23,32,.25,.752NЖ 64,.25,.75,96,.23,.792;XЖ   0, 60,  0,122,  0, 282YbЖ   0,154, 30, 38, 30,1452wlЖ  47, 54, 47,129, 56, 762ХvЖ  56,107, 88, 91,246, 602│АЖ 246,122,246, 28,246,1542╤КЖ 216, 38,216,145,199, 542яФЖ 199,129,190, 76,190,1073
ЮЖ 226,  0,226,182,192, 123+иЖ 192,170,172, 36,172,14639▓Ж 159, 633ё╝╚ 3,5: ╝ 3: ┬(128,96),5,2: ├(128,96),2,2: ─(123,91)м(133,101),E: ─(100,0)м(110,10),B: ╚ 3,1: ╝ 3: ┐ 1,0: ┬(0,96),8,4,1,.75,.25: ├(2,96),4,4: ┬(256,96),8,4,1,.25,.75: ├(254,96),4,44{╞А I│1 е 3: ┬(0,96),X(I),2,1,Y(I),Z(I): Л: А I│4 е 6: ┬(256,96),X(I),2,1,Y(I),Z(I): Л: А I│1 е 28: ┼(U(I),V(I))м(U(I)л10,V(I)л10),E: Л54╨Е  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 720 :Д ╔"V10L4O4":┼(88,91)м(98,101),B: ┼(98,98)м(108,108),E: ┬(0,96),96,3,1,.79,.23: ╔"C": ┼(98,98)м(108,108),B: ┼(108,104)м(118,114),E: ╔"V12D"5т┌┼(108,104)м(118,114),B: ┼(118,109)м(128,119),E: ╔"V14E": ┼(118,109)м(128,119),B: ┼(128,113)м(138,123),E: ╔"V16F": ┼(128,113)м(138,123),B: ┼(138,116)м(148,126),E: ╔"V16G"6Тф┼(138,116)м(148,126),B: ┼(148,118)м(158,128),E: ╔"V18A": ┼(148,118)м(158,128),B: ┼(158,118)м(168,128),E: ╞"C2S10BM42,26R10BU5BL5D10U5BR35R10": ╔"L4O4V30BO5L32CP6L8CP32L1C"6ЁюЕ  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 750 :Д X│ Н(0): Е  Н(1)▓10 з 700 :Д ╝: А I│1 е 200: Л7°:ГHydrogen Bonding7еЕ  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 770 :Д ╝ 3: X│47: A│128: B│96: ┬(A,B),8,4: ├(A,B),4,4: ┬(AмX,BмX),4,4: ├(AмX,BмX),4,4: ┬(AлX,BмX),4,4: ├(AлX,BмX),4,484А I│1 е  Д(3): C│ Д(0): Z│ Н(0): Е  Н(1)┤10 з 810 :Д ┬(A,B),50,2,1,C,C: ┬(A,B),50,3,1 Ъ&
:Г************&&:Г* HAM RADIO&7:Г*  CONTEST&G
:Г*   DUPER&Y:Г* BY: W4CNZ&l:Г* B.B.WITHAM&|:Г*   3501 &П:Г*SEA GULL RD&б:Г*  VIRGINIA&┤:Г* BEACH, VA.&─:Г*   23452&╫:Г*804-3402628&ъ:Г* ALL RIGHTS&№:Г*  RESERVED':Г************':Г* HEADER'EdМC(300),T(300),F(300),N(300):XX│63'дnЮ3:АX│1024 е1055:ТX,XX:ТXл480,XX:ЛX:АX│1024 е1535й32:ТX,XX:ТXм1,XX:ЛX:З@170," D U P E R ";()xАTM│1 е1000:ЛTM:а230,2:З@388," BY:BURT WITHAM  -W4CNZ ";:З@422," VIRGINIA BEACH,VA. ";:З@458," HIT ENTER ";:АTM│1 е1000:Л:а180,1(DВA$│ Т:ЕA$┤▓ Л(13) з130)МЮ:а180,1:З@33,"PRIOR TO START OF CONTEST HAVE  NEW TAPE IN RECORDER AND PRESS  <PLAY> AND <RECORD> BUTTONS.":З" UNLESS YOU HAVE AN OLD TAPE TO  LOAD JUST PRESS <PLAY>.":З@484,"PRESS <ENTER> WHEN READY.";),ЦIK$│ Т:ЕIK$│"" з150)IаЕ IK$│ Л(13) з170 :Д 140)\е:Г* SELECT PGM*ка230,2:Ю:З@33,"FOR CONTEST LOG HIT (1)         FOR LOG RELOAD/PRINT HIT(2)     TO EXIT PROGRAM HIT (3)":З@449,"CALL-'ZZ' ENDS ENTRY MODE       CALL-'**' SCREENS 15 CONTACTS.";*%┤K$│ Т:ЕK$│""з180*E╛K│ Й(K$):И K Бе 200,400,580*g╚а230,2:Ю:Х900:G│136:H│137:N│0*z═:Г* INPUT DATA*И╥АX│1 е300*№▄З@19,"LOG#:";:З═"**####.";X:З@64,"CALL-":З@449,"CALL-'ZZ' ENDS ENTRY MODE       CALL-'**' SCREENS 15 CONTACTS";+$цТG,4:ТH,69:╗ЙC$(X):ЕC$(X)│"ZZ" з330+9ЁЕC$(X)│"**" з600+W·Ю:З@166,"DUPE CHECK Y/N";+n
DC$│ Т:ЕDC$│""з260+А
ЕDC$│"Y" з360+Щ
З@198,"LOG IT Y/N.";+▒
"LG$│ Т:ЕLG$│""з290 +╦
,ЕLG$┤▓"Y" зЮ:N│Nл1:ЛX,q
6Ю:З@19,"LOG#:";:З═"**####.";X:З@64,"CALL-";C$(X):З@78,"TIME-":ТH,83:╗ЙT$(X):З@96,"FREQ-":З@107,"NOTES-":ТH,101:╗ЙF$(X):З@107,"NOTES-":ТH,113:╗ЙN$(X):ЕX▓1 з Бе330,Г
;:Г* SAVE DATA,Ъ
@Щ"O",#м1,"CONTEST",╗
JЗ#м1,C$(X),T$(X),F$(X),N$(X),ё
TЕC$(X)│"**" з600 :ДЕC$(X)│"ZZ" з350 :Д N│Nл1:Ю:ЛX-
^Ъ#м1:Бе170-
c:Г* DUPE CHCK- 
hАN│1 еXм1-=
rЕC$(X)│C$(N) з 390 :Д ЛN-p
|а230,2:З@166,"NOT A DUPE":АTM│1 е500:ЛTM:Бе280-р
ЖЗ@166,"DUPE!!":а50,6:З@64,"CALL-";C$(N):З@78,"TIME-";T$(N):З@96,"FREQ-";F$(N):АTM│1 е1600:ЛTM:Ю:N│Nм1:Бе220-Є
Л:Г* LOAD TAPE.
РЮ:Щ"I",#м1,"CONTEST".1
ЪЗ@33,"REVIEW OR PRINT OUT 1,2";R$.G
дR$│ Т:ЕR$│"" з420.V
й:Г* REVIEW.n
оЕR$│"1" з440 :Д 500.к
╕АV│1 еN:╗Й#м1,C$(V):╗Й#м1,T$(V):╗Й#м1,F$(V):╗Й#м1,N$(V)/

┬З@32,"CALL-";C$(V);" TIME-";T$(V);" FREQ-";F$(V):З"NOTES-";N$(V):З@486,"NEXT CALL <ENTER>";/#
╠Е  М(м1) зЪ#м1:Бе490/;
╓IK$│ Т:ЕIK$│"" з470/U
рЕIK$│ Л(13) зЛV:Бе440/o
ъАTM│1 е1600:ЛTM:Бе170/В
я:Г* PRINT FILE/л
ЇЮ:З@161,"PRINTER READY HIT <ENTER>";/┴
■R$│ Т:ЕR$│"" з510/╒ЕR$│ Л(13) з5300АV│1 еN:╗Й#м1,C$(V):╗Й#м1,T$(V):╗Й#м1,F$(V):╗Й#м1,N$(V)0_З#м2,"CALL-";C$(V);д18)"TIME-";T$(V);д32)"FREQ-";F$(V);д50)"NOTES-";N$(V)0r&Е  М(м1) з 5700Д0З#м2:ЛV:Бе5300о:АTM│1 е4:а200,1:а180,1:ЛTM:Ъ#м1:Бе1700╗D:Г* EXIT0▐NЮ:З@174,"END":АTM│1 е999:Л:Ю:К0ЁS:Г* SCREEN 151
XЮ:ЕX▓15 з6201:bАZ│1 еX:ЗC$(Z);д8)T$(Z);д14)F$(Z);д18)N$(Z):ЛZ:Бе6301rlАZ│(Xм15) еX:ЗC$(Z);д8)T$(Z);д14)F$(Z);д18)N$(Z):ЛZ1ЧvA$│ Т:ЕA$┤▓ Л(13) з630 :ДЮ:Бе2200,1:ЛTM:Ъ#м1:Бе1700╗D:Г* EXIT0▐NЮ:З@174,"END":АTM│1 е999:Л:Ю:К0ЁS:Г* SCREEN 151
XЮ:ЕX▓15 з6                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r>":EX│EXн(1м((AL(1)м1)н.05))\':K│C9м1\gDЕK┤▓0зАL│2е C9:ЕN$(L)┤▓"MERCENARY"з EX(L)│EX(L)лEXо2оK:Л:ДЛ\|NEX(1)│EX(1)лEXо2\ТXL$│ Т:ЕL$│""з1880\▀bАL│1е C9:AL│AL(L):AL(L)│ Б(EX(L)о3280л1):ЕAL┤▓AL(L)зB(L)│B(L)л Д(2):Л:ДЛ]
lАL│1е10:АK│0е3:PO(L,K)│0:ЛK,L]vЕAL(1)│20з2280]VАЕLC│1зLC│0:Бе810:ДАL│1е10:CP(L,0)│CP(L,2):CP(L,1)│CP(L,3):Л:Р]╝КЮ:З"STAYING IN TOWN HAS COST YOU":L│ Д(100)л100:ЗL;"CREDITS":CR│CRмL:АL│1е C9:BP(L)│B(L):Л:Бж2120^[ФБж2110:З"(1)DO YOU WANT TO GAIN LEVELS.":З"(2)HIRE ON HENCHMEN, MERCENARIES";:З"(3)GO BACK TO THE DUNGEON.":ЙL:ЕL│3Бж810:Бе220:ДЕL│1з1950:ДЕL│2з1990:Д1940^оЮЮ:Бж2110:АL│1е C9:ЗL;N$(L):Л:Й"WHO IS TO GAIN EXPERIENCE";L:ЕN$(L)│""зЮ:Бе1940^ўиЙ"HOW MANY CREDITS ARE YOU        SPENDING";K:ЕK┤0з1950:ДЕK▓CR зK│CR_▓▓EX│( Д(0)л.5)нCR:З"YOU HAVE GAINED ";:З ═"#.##";EXо3280;:З" PERCENT    OF A LEVEL":EX(L)│EX(L)лEX:AL│AL(L):AL(L)│ Б(EX(L)о3280л1):CR│CRмK:З:З"    <enter>";:ЕAL┤▓AL(L)зB(L)│B(L)л Д(2)_╥╝K$│ Т:ЕK$│""з1980:ДЮ:Бе1940_▀╞Ю:Бж2110`╨ЕC9│10зЗ"NO ONE WANTS A JOB"::Д2020`'┌K$│ Т:ЕK$│""з2010:ДЮ:Бе1940`▄фЗ"HENCHMEN COST 2000 CREDITS":З"MERCENARIES COST 1500 CREDITS":З"ENTER 0 CREDITS FOR NEITHER":Й"AMOUNT";L:ЕL│1500зCR│CRмL:Бж2120:Бе2030:ДЕL│2000зCR│CRмL:Бж2120:Бе2040:ДЮ:Бе1940a:юC9│C9л1:L│C9:N$(L)│"MERCENARY":BP(L)│8:B(L)│8:DF(L)│6:DP(L)│6:EX(L)│3300:AL(L)│2:Ю:Бе1940b
°C9│C9л1:L│C9:BP(L)│ Д(8)л3:DF(L)│ Д(7)л2:DP(L)│ Д(7)л2:B(L)│BP(L):EX(L)│3300:AL(L)│2:З"WHAT NAME FOR YOUR HENCHMAN     (UNDER 9 LETTERS)":З"BODY PT/DAMAGE FAC./DEFENSE PTS.";:Зд4)B(L);д15)DF(L);д27)DP(L)b$ЙL$:N$(L)│L$:Ю:Бе1940b/Бе2060buАL│1е J:LL│ К( Р(L$,L,1))м65:ЕLL┤0з╞"A0BR4":Д╞"A0C0"лL$(LL)л"BR4"b} Л:Рbз*╞"BM"л И(X)л","л И(Y)л"NE2NF2NG2H2":Рb├4╞"BM92,92NE2NF2NG2H2":Рbт>З"you have";CR;"credits":РbїHЕCR┤0Бе2260:ДРc RЮ:З"    ATT. LVL./BODY/DAM FAC./DEF/";cИ\АK│1е C9:ЗN$(K);:Зд10)AL(K)лPO(K,0);д14)BP(K);д21)DF(K)лPO(K,1);д27)DP(K)лPO(K,2):Л:З:З"CREDITS";CRcоfK$│ Т:ЕK$│""з2150:Д╚4:┴0,1:┐1,0:Рdjp╔"V31L255T255O4":АL│1е30:╔"BAGFEDCV-":Л:╔"O2V31L20T20BAG":АL│1е30:╔"GV-":Л:╝:L$│"YOUR PARTY HAS BEEN SURPRISED BY":J│32:╞"BM10,80":Бж2070:╞"BRBURULDBU3RULD":R│ Д(20)м1:J│ З(MO$(R))м14d┤zL$│ П(MO$(R),J):╞"BM99,90":Бж2070:АL│1е1000:Л:Бж1120:╚4:┴0,1:╝:┐1,0:Рe
ДЮ:Й"DO YOU WISH TO SAVE DUNGEON     (Y/N)";L$:ЕL$│"N"з╚4:┴0,1:┐1,0:Бе260eФОТ65495,0:J│32000:АL│1е C9:ТJ,BP(L):ТJл1,DF(L):ТJл2,DP(L):L$│ Ь(EX(L)):ТJл3, Й("&H"л О(L$, З(L$)м2)):ТJл4, Й("&H"л П(L$,2)):J│Jл5:Л:ТJ,42:J│Jл1fAШАL│1е C9:АK│1е  З(N$(L)):ТJ, К( Р(N$(L),K,1)):J│Jл1:Л:ТJ,42:J│Jл1:Л:ТJ,0:J│Jл1:АL│1е C9:ТJ,B(L):J│Jл1:Л:ТJ,42:L$│ Ь(CR):Е З(L$)┤3зТJл1,0:ТJл2, Й("&H"лL$):ТJл3,42:Бе2220fВвТJл1, Й("&H"л О(L$, З(L$)м2)):ТJл2, Й("&H"л П(L$,2)):ТJл3,42f┼мJ│Jл4:АL│0е10:ТJ,CA(L,0):ТJл1,CA(L,1):ТJл2,CA(L,2):J│Jл3:Л:L│1g(╢ЕPO$(L)│""з2240:ДK│ З(PO$(L)):АLL│1е K:ТJ, К( Р(PO$(L),LL,1)):J│Jл1:Л:ТJ,42:J│Jл1:L│Lл1:Бе2230g└└ТJ,255:Т31962,XP:Т31963,YP:З"PLACE TAPE OF ADVENTURES        IN RECORDER PRESS PLAY & RECORD":Й"NAME OF CURRENT ADVENTURE";L$:Е З(L$)▓8зL$│ О(L$,8)gу╩Т 65494,0:ШML$,31000,32767,0:Кhg╘Ю:З@100,"THERE ARE NO LOANS MADE         IN THIS GAME BUDDY,             YOU'RE GOING TO JAIL.":З@400,"GAME OVER":АL│1е1000:Л:Кh╩▐АL│1е10:┐1,1:┐1,0:Л:╔"V31T2L2O2BP64BP64L8BP64L2BO3P64DP64L8D-P64L4D-P64L4O2BP64BP64B-P64L1B":КiuшАL│1е1000:Л:Т65495,0:Ю0:L$│ Л(128):CO$│L$л"you"лL$л"have"лL$л"attained"лL$л"jedi"лL$л"knight"лL$:АL│0е224:З@L,CO$;:Л:Т65494,0:╔"T30L4V30":АL│1е30:╔"O3GO4CL3EL4CEV-":Лi╗ЄАK│1е100:L│ Д(15)м1:ЕL│7зЛ:ДC│143л16н( Д(8)м1):З@Lн32, б(32,C);:Лj.№АL│0е14:ЕL│7зЛ:ДЗ@Lн32, б(32,128);:Л:АL│224е0йм1:З@L,CO$;:Л:АL│1е15:З@Lн32,CO$;:Л:АL│0е14:З@Lн32, б(32,128);:ЛjЕ	АL│1е30:З@Lм1, Р(CO$,L,1);:З@Lл479, Л(128);:Л:CN$│"congratulations"лL$л"champ":K│0jр	L│ Д(21):Е Р(CN$,L,1)│"X"з2320:ДЗ@228лL, Р(CN$,L,1);: Р(CN$,L,1)│"X":K│Kл1:ЕK┤▓21з2320jЁ	З@350,"";:КL,CO$;:Л:АL│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                0NH15NE15":┼(X,Y)м(Xл7,Yл7),CY,╛:╞"BM204,140C1NU30NH15NE15C0":┼(X,Y)м(Xл7,Yл7),CY,╜J▒K$│ Т:ЕK$│""з1270:ДЕK$│"M"Бж1320:ДЕK$│"F"Бж1380:ДЕK$│"P"Бж1500:ДЕK$│"S"Бж2130:Бе1270:Д1270J└
ЕNU│0з1730KCP(CP,0)│X:CP(CP,1)│Y:╗(184,63)м(255,70),╛,BF:CP│CPл1:ЕCP│C9л1зTT│TTл1:Д1260K&ЕTT│2з1250:Д1550KV(┼(X,Y)м(Xл7,Yл7),CY,╜:┼(X,Y)м(Xл7,Yл7),MO,╛L2K$│ Т:ЕK$│""з1320:ДЕK$│ Л(94)зL│Yм6:J│Yм1:K│X :ДЕK$│ Л(10)зL│Yл8:J│Yл14:K│X :ДЕK$│ Л(8)зL│Xм6:J│Xм1:K│Y :ДЕK$│ Л(9)зL│Xл8:J│Xл14:K│Y :ДЕK$│ Л(13)зCC│0:┼(X,Y)м(Xл7,Yл7),CY,╜:Р:Д1320LD<ЕK│X з1350:ДАLL│L е J:Е а(LL,K)│0з1320:ДЛ:Бе1360LuFАLL│L е J:Е а(K,LL)│0 ▒  а(Kл1,LL)│0з1320:ДЛL┬PЕK$│ Л(94)зY│Yм12:ДЕK$│ Л(10)зY│Yл12:ДЕK$│ Л(9)зX│Xл12:ДЕK$│ Л(8)зX│Xм12MZCC│CCл1:ЕCC│3лPO(CP,3)зCC│0:┼(X,Y)м(Xл7,Yл7),CY,╜:Р:Д1320MГdL$│"E R T":J│5:╞"BM190,90":Бж2070:L$│"D    G":J│6:╞"BM190,100":Бж2070:L$│"C V B":J│5:╞"BM190,110":Бж2070:─(X,Y)м(Xл7,Yл7),CY,GM┼n┼(X,Y)м(Xл7,Yл7),MO,╛:┼(X,Y)м(Xл7,Yл7),CY,╜:K$│ Т:ЕK$│""з1390NЖxЕK$│"E"зX1│м12:Y1│м12:ДЕK$│"R"зX1│0:Y1│м12:ДЕK$│"T"зX1│12:Y1│м12:ДЕK$│"G"зX1│12:Y1│0:ДЕK$│"B"зX1│12:Y1│12:ДЕK$│"V"зX1│0:Y1│12:ДЕK$│"C"зX1│м12:Y1│12:ДЕK$│"D"зX1│м12:Y1│0:ДЕK$│"Q"з1440:Д1390N┴ВАL│0е NUм1:ЕMP(L,0)│XлX1 ░MP(L,1)│YлY1 з1420:ДЛ:Бе1390NёМL│ Д(100):ЕL┤(AL(CP)лPO(CP,0))н3мDPл40з1450OШЦАL│1е20:╔"T255L255V15O3CO4C":Л:╞"BM190,130":L│ Д(8):ЕL│1зL$│"STUPID":J│6:Бж2070:ДЕL│2зL$│"WIMP":J│4:Бж2070:ДЕL│3зL$│"LOSER":J│5:Бж2070:ДЕL│4зL$│"SWISH":J│5:Бж2070O┬аАL│1е500:Л:╗(185,80)м(255,130),╛,BF:РP|к╔"V20T4L4O3GO4CL3EL4CE":╞"BM190,130":L│ Д(6):ЕL│1зL$│"POW":J│3:Бж2070:ДЕL│2зL$│"BAM":J│3:Бж2070:ДЕL│3зL$│"CLOBBER":J│7:Бж2070:ДЕL│4зL$│"SLASH":J│5:Бж2070:ДЕL│5зL$│"SMASH":J│5:Бж2070PЛ┤АL│1е500:ЛP╗╛АL│0е NUм1:ЕMP(L,0)┤▓XлX1 ▒MP(L,1)┤▓YлY1 зЛQI╚MP(L,2)│MP(L,2)м Д(DF(CP)лPO(CP,1)):ЕMP(L,2)▓0з╗(185,80)м(255,130),╛,BF:Р:ДАJ│1е5й2:┬(MP(L,0)л4,MP(L,1)л4),J,1:Л:╗(185,80)м(255,130),╛,BFQЫ╥АK│L е NUм1:MP(K,0)│MP(Kл1,0):MP(K,1)│MP(Kл1,1):MP(K,2)│MP(Kл1,2):Л:NU│NUм1:РQ░▄L│1:Ю:З" 0 NONE"RцЗL;PO$(L):ЕPO$(Lл1)┤▓""зL│Lл1:Бе1510:ДЙ"which one";L:ЕPO$(L)│""з╚4:┴0,1:┐1,0:РR┬ЁЕ З(PO$(L))│15зPO(CP,0)│PO(CP,0)л Д(4)л4:ДЕ Р(PO$(L),11,1)│"H"зBP(CP)│B(CP):ДЕ Р(PO$(L),11,1)│"S"зPO(CP,1)│PO(CP,1)л Д(10)л8:ДЕ Р(PO$(L),11,1)│"R"зPO(CP,2)│PO(CP,2)л Д(20)л10:ДPO(CP,3)│7Rя·АK│L е9:PO$(K)│PO$(Kл1):Л:╚4:┴0,1:┐1,0:РR·Бе1540S9MO│0:J│ З(MO$(R))м15:L$│ Р(MO$(R),15,J):╞"BM184,70":Бж2070SICP│1:HY│300S▒"L│ Б( Ы( В(CP(CP,0)мMP(MO,0))п2л В(CP(CP,1)мMP(MO,1))п2)):ЕL┤HY зX1│CP(CP,0):Y1│CP(CP,1):HY│L:C1│CPS╠,CP│CPл1:ЕCP┤▓C9л1з1570S√6ЕHY┤20з1670:ДM1│MP:X2│MP(MO,0):Y2│MP(MO,1)Tб@Е В(X1мX2)▓ В(Y1мY2)░ а(X2л16,Y2л4)┤▓0░ а(X2л17,Y2л4)┤▓0░ А(X1мX2)┤▓м1░X2┤169зX2│X2л12:Бе1640:ДЕ а(X2л4,Y2л16)┤▓0░ а(X2л5,Y2л16)┤▓0░ А(Y1мY2)┤▓м1зY2│Y2л12:Бе1640TяJЕ А(X1мX2)┤▓м1░ а(X2л16,Y2л4)┤▓0░ а(X2л17,Y2л4)┤▓0░X2┤169зX2│X2л12:Бе1640UzTЕ В(X1мX2)▓ В(Y1мY2)░ а(X2м8,Y2л4)┤▓0░ а(X2м7,Y2л4)┤▓0зX2│X2м12:Бе1640:ДЕ а(X2л4,Y2м8)┤▓0░ а(X2л5,Y2м8)┤▓0░ А(Y2мY1)│1зY2│Y2м12:Бе1640Uк^Е а(X2м8,Y2л4)┤▓0░ а(X2м7,Y2л4)┤▓0зX2│X2м12VBhАL│1е5й2:┬(MP(MO,0)л4,MP(MO,1)л4),L,1:Л:MP(MO,0)│X2:MP(MO,1)│Y2:а200,1:АL│1е5й2:┬(X2л4,Y2л4),L,0:Л:M1│M1м1:ЕM1│0░MO│NUм1з1660:ДЕM1│0зMO│MOл1:Бе1560VЧrL│ Б( Ы( В(X1мX2)п2л В(Y1мY2)п2)):ЕL┤20░MO│NUм1з1660:ДЕL┤20зMO│MOл1:Бе1560:Д1600Vэ|TT│TTл1:ЕTT│1зCP│1:╗(184,63)м(255,70),╛,BF:Бе1260:Д╗(184,63)м(255,70),╛,BF:Бе1250WcЖАL│1е5й2:┬(MP(MO,0)л4,MP(MO,1)л4),L,1:┬(MP(MO,0)л4,MP(MO,1)л4),L,0:Л:L│ Д(100):ЕL┤ALн3.75мDP(C1)мPO(C1,2)л25з1690WрРL$│"MISSED":J│6:╞"BM185,120":Бж2070:╔"T12L4O4V15BAGFDEC":АL│1е500:Л:╗(185,113)м(250,120),╛,BF:MO│MOл1:ЕMO│NU з1660:Д1560XиЪ╔"T4V25L2O4DL4O3BO4EL2DO3B":L$│"HIT":J│3:╞"BM195,120":Бж2070:BP(C1)│BP(C1)м Д(DF):─(X1,Y1)м(X1л7,Y1л7),CY,G:АL│1е20:┼(X1,Y1)м(X1л7,Y1л7),CY,╛:┼(X1,Y1)м(X1л7,Y1л7),CY,╜:Л:╗(185,113)м(250,120),╛,BFX╩дMO│MOл1:ЕBP(C1)▓0░MO│NU з1660YоЕBP(C1)▓0з1560:Д╗(X1,Y1)м(X1л7,Y1л7),╛,BF:АL│C1 е C9Yэ│CP(L,0)│CP(Lл1,0):CP(L,1)│CP(Lл1,1):B(L)│B(Lл1):BP(L)│BP(Lл1):DF(L)│DF(Lл1):DP(L)│DP(Lл1):AL(L)│AL(Lл1):EX(L)│EX(Lл1):N$(L)│N$(Lл1):PO(L,0)│PO(Lл1,0):PO(L,1)│PO(Lл1,1):PO(L,2)│PO(Lл1,2):PO(L,3)│PO(Lл1,3):Л:LC│1:C9│C9м1:ЕC1│1з2270Z╕ЕMO│NU з1660:Д1560Z┬:ГBOUTY PHASEZ═╠Ю:З"experience collected";EXн(1м((AL(1)м1)н.05)):З"credits collected";:C2│ Б(EXо( Д(C9)л1)):CR│CRлC2:ЗC2:З"credits to date";CR:З"potions collected":L│ Д(10):ЕL▓AL зЗ"NONE":Бе1840Zь╓АL│1е10:ЕPO$(L)│""з1770:ДЛZ рЗ"NONE":Бе1840[*ъK│ Д(5):И K Бе1780,1790,1800,1810,1820[NЇPO$(L)│"POTION OF SKILL":Бе1830[t■PO$(L)│"POTION OF HEALING":Бе1830[ЫPO$(L)│"POTION OF STRENGTH":Бе1830[┬PO$(L)│"POTION OF REFLEXES":Бе1830[уPO$(L)│"POTION OF QUICKNESS"[я&ЗPO$(L)\0З:З:З"<ente,CC,0,20,F3,7E,FF,FD,7E,FF,CC,0,20,F3,7E,FD,FD,7E,FD,8C,1D,58,27,5,BE,7E,FD,20,D9,39,CC,19,40,FD,7E,FD,CC,19,58,FD,7E,FF,8E,19,58,EC,83,ED,89,4,A0,BC,7E,FD,26,F5,CC9Ч°ЖFF,E0,F3,7E,FF,FD,7E,FF,CC,FF,E0,F3,7E,FD,FD,7E,FD,8C,6,0,27,5,BE,7E,FF,20,D9,39,CC,6,4,FD,7E,FD,CC,6,17,FD,7E,FF,8E,6,4,A6,80,48,48,48,48,48,A7,1B,A6,84,44,44,44,AB,1B,A7,1B,BC,7E,FF,26,E9,CC,0,20,F3,7E,FD,FD,7E,FD,CC,0,20,F3,7E,FF,FD,7E:МЖFF,BE,7E,FD,8C,1D,E4,26,CF,39,CC,5,FF,FD,7E,FD,CC,6,12,FD,7E,FF,8E,6,12,A6,84,44,44,48,48,48,48,48,48,48,8B,7F,A7,5,A6,84,44,44,44,44,44,A7,4,A6,82,48,48,48,AB,5,A7,5,BC,7E,FD,26,E9,CC,0,20,F3,7E,FD,FD,7E,FD,CC,0,20,F3,7E,FF,FD,7E,FF,BE,7E:жЖFF,8C,1D,F2,26,C0,39;НЖ15252808039500DRAGONS,15101025034500WIZARDS,10152005043750GIANTS,06150804031650OGRES,06150700021400LG LIZARDS,05050510021250SERPENTS,05090605031250PRIESTS,03050502040750SPIDERS,01020306040600BURGULARS,01020600020450GIANT ANTS<s Ж01040303030550GOBLINS,01040304030600SKELETONS,01060602010750ZOMBIES,02080606041100WERERATS,04110603051200HARPIES,05140605051500GARGOYLES,08200800041800TROLLS,10301500024125HYDRAS,11104900036300EVIL IDOLS,18302210059999DEMONS=-*CP│1:╚4:┴0,1:╝:┐1,0:АL│50е130й20:╗(50,L)м(150,Lл20),╜,B:Л:АL│70е130й20:╗(L,50)м(L,150),╜:Л:L$│"ADVENTURERS SETUP":╞"BM10,10":J│17:Бж2070:L$│"HIT  P  TO PLACE":╞"BM18,20":J│16:Бж2070>4L$│"CHARACTER UP":╞"BM166,40":J│12:Бж2070:L$│"DO NOT PUT ADVENTURERS IN SAME BOX":╞"BM0,181":J│34:Бж2070:L$│"FACING":╞"BM0,60":J│6:Бж2070:╞"BM25,100U35NG15F15":X│56:Y│56:X1│0:Y1│0:L$│"STATUS":J│6:╞"BM0,140":Бж2070>5>L$│N$(CP):╞"BM174,50":J│ З(N$(CP)):Бж2070>OH─(X,Y)м(Xл7,Yл7),CY,G>R┼(X,Y)м(Xл7,Yл7),MC,╜:┼(X,Y)м(Xл7,Yл7),MC,и?\L$│ Т:ЕL$│""з850:ДЕL$│ Л(94)зY1│м20:ДЕL$│ Л(10)зY1│20:ДЕL$│ Л(8)зX1│м20:ДЕL$│ Л(9)зX1│20:ДЕL$│"P"з880:ДЕL$│"S"зБж2130:Бе850:Д850?pfЕXлX1┤56▒XлX1▓136▒YлY1┤56▒YлY1▓136зX1│0:Y1│0:Бе850:Д┼(X,Y)м(Xл7,Yл7),CY,╜:X│XлX1:Y│YлY1:X1│0:Y1│0:Бе840?╘pЕCP│1з┼(X,Y)м(Xл7,Yл7),MC,╜ :ДЕN$(CP)│"MERCENARY"з┼(X,Y)м(Xл7,Yл7),MR,╜ :Д┼(X,Y)м(Xл7,Yл7),HM,╜@ezCP(CP,0)│ Б((Xм56)н.6л62):CP(CP,2)│CP(CP,0):CP(CP,1)│ Б((Yм56)н.6л133):CP(CP,3)│CP(CP,1):CP│CPл1:ЕCP│C9л1з900:Д╗(174,44)м(255,50),╛,BF:Бе830@ЦДL$│"REDO YES OR NO":╞"BM160,100":J│14:Бж2070@╝ОL$│ Т:ЕL$│"Y"з810:ДЕL$│"N"зР:Д910@уШАL│104е118:Е а(92,L)│0зР:ДЛ:Бж2100ApвYP│YPл1:┼(88,125)м(95,132),MC,╜:в&H7F01:╗(0,148)м(185,191),╛,BF:X│18:АJ│XPм2е XPл2:DP│ Ж(31000л(YPл2)н31лJ):ЕDP▓30зDP│DPм30:Y│166:Бж2090AдмБж410:╞"BM"л И(X)л",166A"л И(A)лDP$(L):X│Xл37:ЛAк╢РA╧└АL│66е80:Е а(92,L)│0зР:ДЛ:Бж2100BV╩YP│YPм1:┼(88,51)м(95,58),MC,╜:в&H7F38:╗(0,0)м(185,36),╛,BF:X│18:АJ│XPм2е XPл2:DP│ Ж(31000л(YPм2)н31лJ):ЕDP▓30зDP│DPм30:Y│18:Бж2090BЙ╘Бж410:╞"BM"л И(X)л",18A"л И(A)лDP$(L):X│Xл37:ЛBП▐РB╢шАL│104е118:Е а(L,92)│0зР:ДЛ:Бж2100C?ЄXP│XPл1:┼(125,88)м(132,95),MC,╜:в&H7F6F:╗(148,0)м(185,191),╛,BF:Y│18:АJ│YPм2е YPл2:DP│ Ж(31002лJн31лXP):ЕDP▓30зDP│DPм30:X│166:Бж2090Cu№Бж410:╞"BM166,"л И(Y)л"A"л И(A)лDP$(L):Y│Yл37:Л:РCЪАL│66е80:Е а(L,92)│0зР:ДЛ:Бж2100DXP│XPм1:┼(51,88)м(58,95),MC,╜:в&H7FB0:╗(0,0)м(36,191),╛,BF:Y│18:АJ│YPм2 еYPл2:DP│ Ж(30998лJн31лXP):ЕDP▓30зDP│DPм30:X│18:Бж2090DRБж410:╞"BM18,"л И(Y)л"A"л И(A)лDP$(L):Y│Yл37:Л:РDБ$АL│0е10:ЕCA(L,0)┤▓XP ░CA(L,1)┤▓YP зЛ:Д1100Dб.АL│0е10:ЕCA(L,0)┤▓0зЛ:Д1090Dм8Бе1120D╨BCA(L,0)│XP:CA(L,1)│YP:CA(L,2)│RE7LNU│31000лYPн31лXP:ТNU, Ж(NU)м30:ЕK$│ Л(94)зYP│YPл1:ДЕK$│ Л(10)зYP│YPм1:ДЕK$│ Л(8)зXP│XPл1:ДXP│XPм1EAVБе220EV`:ГFIGHT SEQUENCEEgj╚4:┴0,1:┐1,0F%t╝:АK│23е179й12:АL│12е168й12:╜(L,K):ЛL,K:╗(0,11)м(180,191),╜,B:J│ З(MO$(R))м15:L$│ П(MO$(R),Jл1):╞"BM30,10":Бж2070:L$│" FIGHT":J│6:Бж2070:L$│"MOVE":J│4:╞"BM184,150":Бж2070:L$│"FIGHT":J│5Fй~╞"BM184,160":Бж2070:L$│"POTION":J│6:╞"BM184,170":Бж2070:L$│"STATUS":J│6:╞"BM184,180":Бж2070:CP│1:L$│"UP":J│2:╞"BM212,60":Бж2070F╗ИАL│1е  Д(6)м1GТX│ Б( Д(143)о12)н12:Y│ Б( Д(80)о12)н12л11:╗(X,Y)м(Xл Д(4)н12,Yл Д(4)н12),╜,BF:ЛGОЬа200,1:X│CP(CP,0):Y│CP(CP,1):ЕCP│1з┼(X,Y)м(Xл7,Yл7),MC,╜:ДЕN$(CP)│"MERCENARY"з┼(X,Y)м(Xл7,Yл7),MR,╜:Д┼(X,Y)м(Xл7,Yл7),HM,╜HOжCP│CPл1:ЕCP┤▓C9л1з1180:ДAL│ Й( О(MO$(R),2)):MP(0,2)│ Й( Р(MO$(R),3,2)):DF│ Й( Р(MO$(R),5,2)):DP│ Й( Р(MO$(R),7,2)):MP│ Й( Р(MO$(R),9,2)):NU│0:АL│1е10:NU│NUлAL(L):Л:NU│ Б(NUо( Д(0)л.70)оAL)Hl░ЕNU▓50зNU│50:ДЕNU┤1зNU│1HК║EX│ Й( Р(MO$(R),11,4))нNUHл─АL│1е NUм1:MP(L,2)│MP(0,2):ЛH║╬АL│0е NUм1Ip╪X│ Б( Д(160)о12)н12л14:Y│ Б(( Д(180)л11)о12)н12л1:Е а(Xл4,Yл4)│0з1240:ДЕX▓59░X┤121░Y▓130з1240:ДMP(L,0)│X:MP(L,1)│Y:╔"V30O2T255L255":АK│1е30:╔"CCDV-":Л:АK│1е5й2:┬(Xл4,Yл4),K:ЛK,LIФтTT│0:L│ Д(100):ЕL▓50з1550:ДCP│1IъьL$│N$(CP):J│ З(L$):╞"BM184,70":Бж2070:X│CP(CP,0):Y│CP(CP,1):─(X,Y)м(Xл7,Yл7),CY,GJRЎ╞"BM204,140C0NU3 Dё&в
Ю:└4:Х1700,31000:МL$(25),MO$(19),MC(1),MO(1),HM(1),MR(1),CY(1),CA(10,2),CP(11,3),MP(51,2),PO(11,3),N$(11),B(11),BP(11),DF(11),DP(11),EX(11),AL(11):L│ Д(м Я)'DP$(1)│"BD18BL5U3HLG2LHLH3U2HEU2HL2BU10R3EU3HUE2R2ERE2REUBR10D2FRERF2RF2D5FDR3BD10L2G2DFDG2L4GL2GD4"'tDP$(2)│"BD18BL5U2HLH3LH2U2HUHL3BU10R2E4UER2ER2FRFERER5F2R2ERFRFDFDFR2BD10L2GLG2DGDG2LG3D2BU36DGL8HU"'ф(DP$(3)│"BD18BL5U3H2LH5U3HUEU7HU2EUE2UER4EU3BR10D3F2DFRFRFDFD2FD5GDFDGD2GDGDG2L3GD3BR13BU13LHU8ERBL36RFD8GL"(f2DP$(4)│"BD18BL5U2HL2HL2HLHUHU4HL2BU10R2E3RERE2R2ERERER2FR2FR2F2DF3DFD2F2D2GD6GLG4LG2D2BR13BU13LHUEU3HU2ERBU13BL13GHL2GHG2LHU"(Ё<DP$(5)│"BD18BL5U3HLH2LHUHU2HU2HUEU2EUE2UE7FER3FR3FR2F3DFD4FD2GD2FDGD2GDG3LGL2D3BR13BU13LHU3EUHUE2BU13BL13GLGLHL2GLHUBL13BD13F2GD3GD3")bFDP$(6)│"BD18BL5U2EUHU2HU3H2L2GL3HL3BU10R3FER2EFRE3U3EU2HU3BR10D4GD2F2D3F2R2E2RFR4BD10L2HL2GLGL3HLGD2GDFD4FD2")├PDP$(7)│"BD18BL5U5EU2HU3HL3GL3H2LGLBU10R3ER7FR7ER2FR3FR2ER6BD10L6HL3GL2GDFD10BU36DG2LHL3HGHU"*%ZDP$(8)│"BD18BL5U4EU5HUHU6EU6HU2EU6BR10D6FD7GDFD2GD6FD3GD5BR13BU13LHUHU2EU2E2BL36RFGDFG2FDFGL"*МdDP$(9)│"BD18BL5U5EUHU2H4L4GL4BU10R7FR3E2R5FR2F3D2FD3GD9GD3BR13BU13LHUEUHE2U3BU13BL13D2GL3GL2HLHU2"*ЄnDP$(10)│"BD18BL5U5EU2HU5HU7E2R4FRERFD8FD6GD7BR13BU13HU2EHU2HE2BU13BL13GHL5GLHBL13BD13F2D2GDFD2GL"+┼xЙ"ARE YOU STARTING A NEW ADVENTURE (Y/N)";L$:ЕL$│"Y"з130:ДЮ:З"PLACE TAPE WITH ADVENTURES      IN THE RECORDER PRESS PLAY":Й"WHAT WAS THE NAME GIVEN TO YOUR LAST ADVENTURE";L$:Е З(L$)▓8зЧMLEFT$(L$,8):Ю:ДЧML$+╒ВJ│32000:L│1,ZМBP(L)│ Ж(J):DF(L)│ Ж(Jл1):DP(L)│ Ж(Jл2):EX(L)│( Ж(Jл3)н256)л Ж(Jл4):AL(L)│ Б(EX(L)о3280л1):J│Jл5:L│Lл1:Е Ж(J)┤▓42з140:ДJ│Jл1:L│1,┌ЦN$(L)│N$(L)л Л( Ж(J)):J│Jл1:Е Ж(J)┤▓42з150:ДЕ Ж(Jл1)│0зC9│L:J│Jл2:L│1:Бе170:ДЕ Ж(Jл1)│255зC9│L:J│Jл2:L│1:ДJ│Jл1:L│Lл1:Бе150-аB(L)│BP(L):L│Lл1:ЕN$(L)┤▓""з160:Д190-ШкАL│1е C9:B(L)│ Ж(J):J│Jл1:Л:J│Jл1:CR│( Ж(J)н256)л Ж(Jл1):J│Jл3:АL│0е10:CA(L,0)│ Ж(J):CA(L,1)│ Ж(Jл1):CA(L,2)│ Ж(Jл2):J│Jл3:Л:Е Ж(J)│255з190:ДL│1-э┤PO$(L)│PO$(L)л Л( Ж(J)):J│Jл1:Е Ж(Jл1)│255з190:ДЕ Ж(J)│42зJ│Jл1:L│Lл1:Бе180:Д180.К╛Т65495,0:АL│0е25:НL$:L$(L)│L$:Л:АL│&H7F01 е &H7FFF:НL$:ТL, Й("&H"лL$):Л:АL│0е19:НL$:MO$(L)│L$:Л:╚3:╝2:╚4:─(0,0)м(7,7),HM,G:╚3:╝3:╚4:─(0,0)м(7,7),MC,G:╚4.▓╚╝0:─(0,0)м(7,7),MR,G:Т65494,0:Бж810.ч╥XP│ Ж(31962):YP│ Ж(31963):Е Ж(31480)│1зТ31480,31/▄╚4:┴0,1:╝:┐1,0:Т65495,0/ZцX│18:Y│18:╝:АJ│YPм2е YPл2:АK│XPм2е XPл2:DP│ Ж(31000лJн31лK):ЕDP▓30зDP│DPм30:Бж2090/дЁБж410:╞"BM"л И(X)л","л И(Y)л"A"л И(A)лDP$(L):X│Xл37:ЛK:X│18:Y│Yл37:ЛJ0U·L$│"USE":╞"BM192,30":J│3:Бж2070:L$│"ARROW":╞"BM200,40":J│5:Бж2070:L$│"KEYS":J│4:╞"BM224,50":Бж2070:L$│"CASSETTE":J│8:╞"BM192,170":Бж2070:L$│"STATUS":J│6:╞"BM192,180":Бж20700Я
Т65495,0:┼(88,88)м(95,95),MC,╜:АL│1е100:Л:╗(88,88)м(95,95),╛,BF:K$│ Т1Q
╗(88,88)м(95,95),╛,BF:Е Ж(342)│247Бж920:K$│ Л(10):ДЕ Ж(341)│247Бж960:K$│"^":ДЕ Ж(344)│247Бж1000:K$│ Л(9):ДЕ Ж(343)│247Бж1030:K$│ Л(8):ДЕK$│"S"Бж2130:Бе260:ДЕK$│"C"з2180:Д2601^
Т65494,01Р
"Е Ж(31000лYPн31лXP)▓30░ Д(100)│69Бж2160:Бе2301·
,ЕXP│15░ YP│15зL$│"EXIT":J│4:╞"BM200,100":Бж2070:АL│1е5:а240,2:а150,2:Л:╗(200,93)м(230,140),╛,BF :Д3202"
6K$│ Т:ЕK$│""з310:ДЕK$│"E"з1930:Д2702V
@NU│31000лYPн31лXP:Е Ж(NU)┤31зТNU, Ж(NU)л30:Д2602О
JАL│0е10:ЕCA(L,0)│XP ░CA(L,1)│YP зR│CA(L,2):Бе360:ДЛ2▓
TЕ Ж(NU)м30▓15з260:ДЕ Д(6)▓2з2602┴
^R│ Д(20)м13l
h╔"V30O1L255T255":АL│1е30:╔"CDV-":Л:L$│"YOU SPOT":J│8:╞"BM190,100":Бж2070:L│ З(MO$(R)):L$│ П(MO$(R),Lм14):J│Lм14:╞"BM180,110":Бж2070:L$│"FIGHT":J│5:╞"BM194,140":Бж20703Ф
rL$│"OR RUN":J│6:╞"BM192,150":Бж20703╦
|L$│ Т:ЕL$│""з380:ДЕL$│"R"з1060:ДЕL$│"F"Бж1120:Д3803╒
ЖБе2203▀
РБе4004s
ЪЕDP│0▒DP▓30зL│0:ДИ DP Бж430,440,450,460,470,480,490,500,510,520,530,540,550,560,570,580,590,600,610,620,630,640,650,660,670,680,690,700,710,7204y
дР4Г
оL│1:Р4С
╕L│2:A│2:Р4Я
┬L│2:A│1:Р4н
╠L│2:A│0:Р4╗
╓L│2:A│3:Р4╔
рL│3:A│1:Р4╫
ъL│3:A│0:Р4х
ЇL│4:A│1:Р4є
■L│4:A│2:Р5
L│4:A│0:Р5L│4:A│3:Р5L│5:A│2:Р5+&L│5:A│1:Р590L│5:A│0:Р5G:L│5:A│3:Р5UDL│8:A│1:Р5cNL│8:A│0:Р5qXL│9:A│1:Р5bL│9:A│2:Р5НlL│9:A│0:Р5ЫvL│9:A│3:Р5еАL│6:Р5│КL│7:A│2:Р5┴ФL│7:A│1:Р5╧ЮL│7:A│0:Р5▌иL│7:A│3:Р5ь▓L│10:A│1:Р5√╝L│10:A│2:Р6
╞L│10:A│0:Р6╨L│10:A│3:Р7┌ЖU4E2F2D2L4R4D2,RU6LR3FDGL2R2FDGL3BR4,BR4BUGL2HU4ER2FDBD4,RU6LR3FD4GL2BR3,U3R4L4U3R4BD6L4R4,U3R4L4U3R4BD6,BR2BU3R2D2GL2HU4ER2FBD5,U6D3R4U3D6,BRR2LU6LR2BRBD6,BU2DFREU5BD6,U6BR4G3F3,R4L4U6BR4BD6,U6F2E2D6,U6DF4U5D6,R4L4U6R4D6,U6R3FDGL3BR4BD37пфЖBUU4ER2FD4GL2HBR2BUF2,U6R3FDGL3RF3,BUFR2EUHL2HUER2FBD5,BU6R4L2D6BR2,NU6R4NU6,BU6D4F2E2U4BD6,NU6E2F2NU6,UE2H2UDF2E2UDG2F2D,BU6DF2E2UDG2D3BR2,BU6R4DG2LR2LG2DR48гюЖCC,A,A0,FD,7E,FD,CC,A,B8,FD,7E,FF,8E,A,A0,EC,81,ED,89,FB,5E,BC,7E,FF,26,F5 	&9
└4:Х100,31000:МDP(64),DU(30,30),A(400),B(400):Бж560'Ю:З"HERE ARE SOME TERMS AND         THEIR MEANINGS:":З:З"body points-AMOUNT OF DAMAGE A  CHARACTER CAN TAKE BEFORE DEATH.";:З"defense points-THE ABILITY TO   WITHSTAND ATTACK WITHOUT TAKING DAMAGE(ARMOR OR DEXTERITY).'╟З"experience level-AFFECTS PLAYERSABILITY TO ATTACK EFFECTIVELY.":З"damage factor-AMOUNT OF DAMAGE  DONE TO CREATURES THE CHARACTER ATTACKED.":З@490,"<enter> TO CONTINUE";'╤(Бж540(Е2Ю:Й"DO YOU WANT JUST A NEW DUNGEON   (Y/N)";DE$:ЕDE$┤▓"Y"з70:ДЗ"PLACE TAPE WITH ADVENTURES IN   THE RECORDER AND PRESS PLAY":Й"NAME OF LAST ADVENTURE";L$:Е З(L$)▓8зL$│ О(L$,8)(Ф<ЧML$:Бе180)kFЮ:З"YOU MAY CHOOSE HOW MANY POINTS  YOUR MAIN CHARACTER WILL HAVE   IN THESE AREAS, EXCEPT FOR THE  EXPERIENCE LEVEL WHICH STARTS   AT 4.  YOU HAVE 35 POINTS TO USEAND NONE OF THE LEVELS CAN BE   BELOW 5.":P│35)░PЗ@288,"BODY POINTS":З@320,"DAMAGE FACTOR":З@352,"DEFENSE POINTS"*.ZБж550:З@304,"";:ЙBP(0):P│PмBP(0):Бж550:З@336,"";:ЙDF(0):P│PмDF(0):Бж550:З@368,"";:ЙP(0):P│PмP(0):Бж550:З@384,"";:ЕP┤▓0з70*MdЕBP(0)┤5▒DF(0)┤5▒P(0)┤5з70*НnЙ"WHAT NAME FOR YOUR CHARACTER    (UNDER 9 LETTERS)";NM$(0)*фxЮ:Й"DO YOU WANT <H>ENCHMEN          OR <M>ERCENARIES";D$:ЕD$│"H"з140:ДЕD$┤▓"M"з120+VВЮ:R│ Д(4)л1:З"YOU HAVE";R;"MERCENARIES.":АL│1е R:BP(L)│8:DF(L)│6:P(L)│6:NM$(L)│"MERCENARY":Л:АL│1е750:Л:Бе180+jМR│ Д(3):АL│1е R+ЪЦBP(L)│ Д(9)л3:DF(L)│ Д(7)л2:P(L)│ Д(7)л2:ЛL+ЁаЮ:З"henchmen names(UNDER 9 LETTERS)":З"BODY PO. DAMAGE FAC. DEFENSE PO.";:АL│1е R,)кЗ"   ";BP(L);"      ";DF(L);"       ";P(L):ЙNM$(L):Л,з┤Ю0:АL│64е70:З@L, Л(128);"dungeon";:Л:АL│224е234:З@L, Л(128);"generation";:ЛL:АL│384е402:З@L, Л(128);"period";:ЛL:Т65494,0-Ю╛╔"V20O4T2L16DP16DP128DP128DP128L4.FP16L16FP128FP128L8FP64L16DP128DP128L8DP64CP64O3L4.B-P128O4L8CP64DP64E-P64FP64L16FP128FP128L1B-P128L8O3B-P64O4CP64L4.DP128L16DP128DP128L8FP64DP64L4.CP64L16CP128CP128L8E-P64CP64O3B-P64O4L16DP128DP128L8DP64L16F-┴╚╔"FP128L8FP48FP48L1F":Т65495,0-ф╥АL│0е30:АK│0е30:DU(L,K)│0:ЛK,L.─▄АL│1е64:НDP:DP(L)│DP:ЛL:Ж1,2,3,4,6,8,10,13,16,18,20,22,23,24,25,27,1,3,4,5,7,10,11,14,17,20,21,22,24,25,26,29,1,2,4,5,6,9,11,15,16,19,21,22,23,25,26,30,1,2,3,5,7,8,9,12,17,18,19,22,23,24,26,28:DU(15,15)│1:DP│1:X│15:Y│15.рцАL│1е64:ЕDP(L)┤▓DP з270/@ЁXX│0:YY│0:ЕL┤17зAD│32:YY│м1:ДЕL▓16░L┤33зAD│48:XX│1:ДЕL▓32░L┤49зAD│0:YY│1:ДЕL▓48зAD│16:XX│м1/g·ЕXлXX┤0▒XлXX▓30▒YлYY┤0▒YлYY▓30з270/А
ЕDU(XлXX,YлYY)│0з290/Ж
Л/т
X│A(SS):Y│B(SS):DP│DU(X,Y):SS│SSл1:З@27,401мSS;:ЕST┤SS ░ST┤50зП:Бе210:ДЕST┤SS з380:Д230/ў
"D1│DP( Д(16)лAD)0H
,ЕXлXX│0░D1┤27з290:ДЕXлXX│30░D1┤27з290:ДЕYлYY│0░D1┤27з290:ДЕYлYY│30░D1┤27з2900v
6DU(XлXX,YлYY)│D1:АL│1е64:ЕDP(L)│DP зP│Pл10|
@Л0й
JЕP▓1зA(ST)│X:B(ST)│Y:ST│STл1:З@0,400мST;0╣
TЕST▓399з3800┌
^P│0:АL│1е64:ЕDP(L)│DP зP│Pл10р
hЛ1

rЕP▓1зDP│D1:X│XлXX:Y│YлYY:Бе230:ДБе2301>
|ЕSS│401з450:ДX│A(SS):Y│B(SS):DP│DU(X,Y):SS│SSл11Z
ЖАL│1е64:ЕDP(L)┤▓DP з4301╗
РXX│0:YY│0:ЕL┤17зD1│30:YY│м1:ДЕL▓16░L┤33зD1│28:XX│1:ДЕL▓32░L┤49зD1│27:YY│1:ДЕL▓48зD1│29:XX│м11╒
ЪЕDU(XлXX,YлYY)┤▓0з4301ъ
дDU(XлXX,YлYY)│D11ё
оЛL28
╕ЕSS│401з450:ДX│A(SS):Y│B(SS):DP│DU(X,Y):SS│SSл1:З@27,401мSS;:Бе3902e
┬Ю0:АL│224е234:З@L, Л(128);"completed";:Л2╕
╠J│31000:АL│0е30:АK│0е30:ТJ,DU(L,K):J│Jл1:ЛK,L:Т31962,15:Т31963,15:ЕDE$│"Y"з5202╚
╓J│32000:L│02ъ
рТJ,BP(L):ТJл1,DF(L):ТJл2,P(L)3
ъЕL│0зТJл3,&H27:ТJл4,&H10 :ДТJл3,&H0C:ТJл4,&HD03N
ЇJ│Jл5:L│Lл1:ЕNM$(L)┤▓""з480:ДТJ,42:J│Jл1:L│03м
■АK│1е  З(NM$(L)):ТJ, К( Р(NM$(L),K,1)):J│Jл1:ЛK:L│Lл1:ТJ,42:J│Jл1:ЕNM$(L)┤▓""з510:ДТJ,2553╗Т65494,0:Ч3┴К3сK$│ Т:R│ Д(0):ЕK$│""з540:ДР3■&З@224,"points left";P;:Р4ж0Т65495,0:K│1:J│1:G$│"by"л Л(128)л"greg"л Л(128)л"ricketts":L$│"dungeon"л Л(128)л"adventure":Ю0:АL│0е509:З@L, Л(128); Л(207);:ЕL▓197░L┤215зБж590:ДЕL▓461░L┤481зБж6004м:Л4╬DТ65494,0:З@510, Л(128);:Бе6104ъNЗ@L, Р(L$,J,1);:J│Jл1:Р5XЗ@L, Р(G$,K,1);:K│Kл1:Р5¤b╔"O4T5L4DP128L8D+P128L4.EP128L8E-P128L4DP128L8C+P128L4DP128L8D+P128L2EP128L8E-P128L4DP128L8C+P128L4DP128L8D+P128L4EP128L8E-P128L4DP128L8C+P128L4CP128L8O3BP128AP4O4DP2DP128DP128C+P128DP128EP128P4L4.EL8F+P4L4.F+L8AP4L2GP128L8GP128GP128F+P128ED"6Ёl╔"P8D+P128EP8E-P128L4DP128L8DP128DP128DP128DP128DP8D+P128EP8E-P128L4DP128L8DP128DP128C+P128DP128EP4L4.EL8F+P4L4.F+L8AP4L4.GL4GP128L8GP128GP128F+P128GP128L4F+P128L8F+P128F+P128GP128G+P128AP128O3AP128AP128BP128O4C+P128DP8C+P128DP8C+P128L3D"7vАL│1е10:Ю7:Ю8:Л:Р8EP8E-P128L4DP128L8DP128DP128DP128DP128DP8D+P128EP8E-P128L4DP128L8DP128DP128C+P128DP128EP4L4.EL8F+P4L4.F+L8AP4L4.GL4GP128L8GP128GP128F+P128GP128L4F+P128L8F+P128F+P128GP128G+P128AP128O3AP128AP128BP128O4C+P128DP8C+P128DP8C+P128L3D"7vАL│1е10:Ю7 Я&H(И S Бж  80,80,100,200,80,   80,80,80,80,80,80,400,80,80,    80,500&i
я:Г******UPPER CORNERS*******&б
ЇБж 610 : Е (S ░ 1)│1      з 500 : :ГWAIT FOR PEN UP&╝
■Е X┤225 з 550 ::ГRIGHT&╔╔  И(11)'
M$│ Т : Е M$│"" з       530 :Д Е M$┤"0" ░ M$▓      "4" з 530'╔ M$ : M│ Й(M$)';╚ M,P : ┐ 1,SC :       Р'\!:Г******RIGHT CORNER********'О&╔  И(12) : Ю : З     :З "SAVE OR LOAD (S,L)?"'з+I$│ Т : Е I$│""з 555'╨0Е I$┤▓"S" ░ I$┤▓"L" з     ┐ 1,SC : Р'щ5З : Й "FILE NAME";F$(:З : З"POSITION TAPE - ANY KEY TO      CONTINUE -"(8?I$│ Т : Е I$│""з 575(DЕ I$│"S" з ШM F$,       1536,1535л6144,380 :            ┐ 1,SC : Р(ЬI┐ 1,SC : ЧM F$ :       Р"з 555'╨0Е I$┤▓"S" ░ I$┤▓"L" з     ┐ 1,SC : Р'щ5З : Й "FILE NAME";F$(:З : З"POSITION TA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &H(И S Бж  80,80,100,200,80,   80,80,300,80,80,80,400,80,80,   80,500&Й
":Г******LEFT AND RIGHT******     *******MENU SELECTION******&╨
,Бж 600 : Е S┤▓7 з 300    : :ГWAIT FOR PEN DOWN ON L OR    R MARGIN&∙
1Е Y▓192 з 450 : :ГLOWER      CORNERS'
6Е X┤225 з 350 : :ГRIGHT      MENU'%
;Р'E
T:Г******RIGHT MENU*********'K
^Р'l
╜:Г*****LOWER CORNERS********'Ъ
┬Е X┤25.6 з 700 : :ГLOWER     RIGHT CORNER'▄
╠:ГINSERT HERE A CALL TO YOUR     FAVORITE SCREEN DUMP ROUTINE'т
╓Р(▓:Г***LOWER RIGHT CORNER*****(	╝Р:ГRIGHT      MENU'%
;Р'E
T:Г******RIGHT MENU*********'K
^Р'l
╜:Г*****LOWER CORNERS********'Ъ
┬Е X┤25.6 з 700 : :ГLOWER     RIGHT CORNER'▄
╠:ГINSERT HERE A CALL TO YOUR     FAVORITE SCREEN DUMP ROUTINE'т
╓Р(▓:Г***LOWER RIGHT CORNER*                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
ў&7
оИ MENU Бж 80,80,1300,80,    80,80,80,80,1900,2000&v╞:Г***SET FOREGROUND AND***       ****BACKGROUND COLORS****&о╨Бж 610 : Е (S ░ 1)│1      з 2000 ::ГWAIT FOR PEN UP&╞┌Бж 2100 : ╔  И(Cл1)&╧фFG│C&чюБж 2100 : ╔  И(Cл1)'°BG│C : Е BG▓4 ▒ FG▓4 з     SC│1 :Д SC│0'¤┐ 1,SC'*┴ FG,BG'0Р'P*:Г**BOTTOM MENU SELECTION**'╡4Бж 600 : Е S┤▓3 з        2100 ::ГWAIT FOR PEN DOWN ON     DRAWING SURFACE OR BOTTOM       MARGIN'╨>Е Y┤192 ▒ Y▓200 з 2100'юHC│ Б(Xо28.334) : :Г256/9 'ЇRР ▒ FG▓                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
ж&:╚И MENU Бж 80,80,1300,       1450,1500,80,80,80,80,80&w
оИ MENU Бж 80,80,1300,       1400,1500,80,80,80,1900,2000&Чn:Г*******PAINT*************&пxБж 2100 : ╔  И(Cл1)&╕ВPC│C&╨МБж 2100 : ╔  И(Cл1)&┘ЦBC│C&▀аР&Ёк├(X,Y),PC,BC&Ў┤Р'╥:Г*******ERASE*************'<▄Бж 100 : Бж 610 : Е      S┤▓3 з Р'Jц╜(X,Y,BG)'iЁБж 610 : Е S┤▓3 з        Р'В·XX│X : YY│Y : Бж 600'Ч╗(XX,YY)м(X,Y),╛'гБе 1520 И(Cл1)&╕ВPC│C&╨МБж 2100 : ╔  И(Cл1)&┘ЦBC│C&▀аР&Ёк├(X,Y),PC,BC&Ў┤Р'╥:Г**                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╤$
:ГRAINBOW ON TAPE MONTHLY MENU7╚3,1:╝:┐0,1:Ю0кRB$│"U8R4FD2GNL4FD3BR5U6E2R2F2D2NL6D4BR5NU8BR5U8F7NDU7BR5D8R4EU2HNL4EU2HNL4BR6NR4GD6FR4EU6HBR5D6F2E2NU4F2E2U6"ч(┬(256,130),168,3,.7,.50,.25:┬(256,126),142,3,.75,.50,.25 2╞"S4BM116,126C3L50"<├(100,124),3,3NFАI│0е30й30:АY│0е1:┬(256мI,130лY),168,2,.7,.50,.25:ЛY:ЛIdP╞"BM20,132C2R161"vZ├(75,130),2,2Цd┬(256,130),257,4,.45,.5,.25╢n┬(256,138),226,4,.56,.5,.25╩x╞"BM0,128C4R45"▄В├(15,126),4,4°М╗(0,126)м(256,147),╛,BFЦ╗(0,0)м(256,192),╛,B*а╗(0,0)м(256,22),╛,BFiк╞"S20BM150,124C3R20EU10HL20GD10FR3UE2L5U7ER18FD7L5NL12F2D"Е┤┬(176,90),8:┬(220,90),8│╛╗(176,82)м(220,82),╜:╗(176,98)м(220,98),╜┼╚├(176,70),3,3╥┐1,1:АI│1е8:R$│ И(Iл10)л","л И(Iл168):╞"S12BM"лR$л"C4"лRB$:Л▄╞"S12BM19,177C3"лRB$\ц╚3,1:┐1,1:АI│1е300:Л:┐1,0:АI│1е300:Л:┐1,1:А I│1 е 500:ЛIbЁЮВ·З"       RAINBOW  ON  TAPE"в
З"       (C) FALSOFT, 1983"и
Зь
З "   YOU CAN LOAD THESE PROGRAMS       FROM OUR JANUARY ISSUE"Є
"З
,З "  (XX)=PAGE NUMBER OF LISTING"
6ЗE
@З "(164) GRAFXXX"," (84) FINALDEM"f
JЗ" (84) XPAD1"," (84) XPAD2"З
TЗ" (84) XPAD3"," (84) XPAD4"и
^З" (84) XPAD5"," (84) XPAD6"╔
hЗ" (84) XPAD7"," (84) XPAD8"╧
rЗє
|З"   PRESS ANY KEY TO CONTINUE"
ЖЕ  Т│""з390	
РЮ0
ЪЗ "  (XX)= PAGE NUMBER OF LISTING"6
дЗ\
оЗ"(174) TRIGSHOW"," (50) DUNGEON"А
╕З" (54) D-ADVNTR","(170) SAR27"з
┬З"(130) RNDWALK1","(130) RNDWALK2"╠
╠З"(166) BASIC64K"," (74) INVITE"ё
╓З"(126) RAINDEX","(111) MATHPAL" 
рЗ" (80) DUPER","(136) CHEMBOND" 
ъЗ @
ЇЗ "   PRESS ANY KEY TO CONTINUE" R
■Е  Т│"" з 510 XЮ З "  (XX)= PAGE NUMBER OF LISTING" ЕЗ и&З" (49) TARTAN","(122) HOBBIT" ╠0З" (92) EDUCATE","(106) INMAN1" Є:З "(106) INMAN2"," (95) RBOWCHEK"!DЗ " (26) RANDOLF"!NЗ!2XЗ"  *=MACHINE LANGUAGE PROGRAM"!8bЗ!{lЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU"!аvЗ "  PRESS (BREAK) TO EXIT MENU"!╝АЕ  Т│"" з 640 :Д Бе 240!╠КЗ б(32,45);"(106) INMAN2"," (95) RBOWCHEK"!DЗ " (26)                                                                                                                                                                                                                                                                 #&M│3:P│1:FG│8:BG│5:SC│1&,М CO(15,15)&N
╚ M,P : ┴ FG,BG :╝   : ┐ 1,SC&░:Г***************************       BEGINNING OF MAIN LOOP       ****************************&║Бж600&─S│Sл1'(И S Бж  80,80,100,200,80,   80,80,300,80,80,80,400,80,80,   80,500'd-A$│ Т : Е A$▓"0" ░       A$┤"5" з P│ Й(A$) :         ╔ A$ : ╚ M,P :           ┐ 1,SC'n2Бе 20'╨<:Г***************************          END OF MAIN LOOP          ****************************'ЄF:Г**BEGINNING OF SUB-ROUTINES(PР: :ГNO ACTION(5Z:Г**PEN CLOSE TO PAD -- FLASH       CURSOR!(SdБж600::ГREAD CO-ORDINATES(bnPS│ а(X,Y)(ДxА CU│0 е 8 : ╜(X,Y,CU)    : Л(ТВ╜(X,Y,PS)(ШМР(┘╛:Г*TOUCHING DRAWING SURFACE**    **GO TO PROPER SUBROUTINE**)╚И MENU Бж 1120,1200,1300    ,1450,1500,1600,1700,1800,80    ,80)#╥Р)d
":Г******LEFT AND RIGHT******     *******MENU SELECTION******)л
,Бж 600 : Е S┤▓7 з 300    : :ГWAIT FOR PEN DOWN ON L OR    R MARGIN)╘
1Е Y▓192 з 450 : :ГLOWER      CORNERS)·
6Е X┤225 з 350 : :ГRIGHT      MENU*
;Р* 
T:Г******RIGHT MENU**********&
^Р*f
Ж:Г***READ TOP MENU AND*****      *SET THE APPROPRIATE FLAG**Ю
РБж 610 : Е (S ░ 1)│1      з 400 : :ГWAIT FOR PEN UP+
ЪMENU│ Б(Xо25.6)л1: :ГMAXIMUM    X-VALUE (256) DIVIDED BY THE    NUMBER OF SPACES IN THE TOP     MENU (10)+W
д╔  И(MENU) : :ГLETS YOU     KNOW THAT YOU'VE SELECTED A     MENU ITEM.+б
оИ MENU Бж 1100,1200,1300    ,1400,1500,1600,1700,1800,      1900,2000+з
╕Р+╚
╜:Г*****LOWER CORNERS********+Ў
┬Е X┤25.6 з 700 : :ГLOWER     RIGHT CORNER,8
╠:ГINSERT HERE A CALL TO YOUR     FAVORITE SCREEN DUMP ROUTINE,>
╓Р,_
я:Г******UPPER CORNERS*******,Ч
ЇБж 610 : Е (S ░ 1)│1      з 500 : :ГWAIT FOR PEN UP,▓
■Е X┤225 з 550 ::ГRIGHT,┐╔  И(11)-M$│ Т : Е M$│"" з       530 :Д Е M$┤"0" ░ M$▓      "4" з 530-╔ M$ : M│ Й(M$)-1╚ M,P : ┐ 1,SC :       Р-R!:Г******RIGHT CORNER********-Д&╔  И(12) : Ю : З     :З "SAVE OR LOAD (S,L)?"-Э+I$│ Т : Е I$│""з 555-╞0Е I$┤▓"S" ░ I$┤▓"L" з     ┐ 1,SC : Р-▀5З : Й "FILE NAME";F$.:З : З"POSITION TAPE - ANY KEY TO      CONTINUE -"..?I$│ Т : Е I$│""з 575.uDЕ I$│"S" з ШM F$,       1536,1535л6144,380 :            ┐ 1,SC : Р.ТI┐ 1,SC : ЧM F$ :       Р.пN:Г***READ THE X-PAD ****.╦XX│ Ж(65376):Y│ Ж(65377).█bS│ Ж(65378).сlР/▓:Г***LOWER RIGHT CORNER**                                                                                                                                                                                                                                                                        ┼ ┬┬┬╞├╞╔├├┬┬╚"╚╞├┬┴()*─┼──├╞╚23╚┴6╞┼9:;<=>?@ABC╞N2  BAS
RBOWCHEKBAS№RANDOLF BAS8ОGRAFXXX BASRAFXXA BAS	                                JANMENU BAS ╘FINALDEMBAS!&XPAD1   BAS#├XPAD2   BAS·XPAD3   BASйXPAD4   BAS$\XPAD5   BAS%фXPAD6   BASвXPAD7   BASXPAD8   BAS&╗TRIGSHOWBAS'-DUNGEON BASD-ADVNTRBASЇSAR27   BAS+щRNDWALK1BAS,wRNDWALK2BAS-НBASIC64KBAS.╝INVITE  BAS/ RAINDEX BAS0MATHPAL BAS1>DUPER   BASЭCHEMBONDBASвTARTAN  BAS4нHOBBIT  BAS5EDUCATE BAS
щINMAN1  BAS7╫INMAN2  BAS
RBOWCHEKBAS№RANDOLF BAS8ОGRAFXXX BASRAFXXA BAS	                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ***/╝Р/HB:Г********COPY*************      **SETS UP PAINT BRUSHES***/\LFG│0 : FL│0 : Р/Е`Е FG│1 з 1150 :Д Е       FL│1 з 1135/кeБж610 : Е (S ░ 1)│1       з 1125/┼jAX│X : AY│Y : FL│1 : Р/ъoБж610 : Е (S ░ 1)│1       з 11350tBX│X : BY│Y : ─(AX,AY)м(BX,BY),CO,G : FG│1 : Р0H~┼(X,Y)м(XлBXмAX,YлBYмAY),     CO,▒ : Р0hж:Г**DRAWING ALPHANUMERICS**0n░Р0О
:Г*****DRAWING MODE********0ЩБж 1000╕Бж 610 : Е S┤▓3 з        Р0╞(╜(X,Y,FG)0х2Бж 610 : Е S┤▓3 з        Р0■<XX│X : YY│Y : Бж 6001F╗(XX,YY)м(X,Y),╜1PБе 13301?n:Г*******PAINT*************1WxБж 2100 : ╔  И(Cл1)1`ВPC│C1xМБж 2100 : ╔  И(Cл1)1БЦBC│C1ЗаР1Шк├(X,Y),PC,BC1Ю┤Р1╛╥:Г*******ERASE*************1ф▄Бж 100 : Бж 610 : Е      S┤▓3 з Р1Єц╜(X,Y,BG)2ЁБж 610 : Е S┤▓3 з        Р2*·XX│X : YY│Y : Бж 6002?╗(XX,YY)м(X,Y),╛2KБе 15202k6:Г*******LINES*************2w@Бж 18052М^╗(XX,YY)м(X,Y),╜2ТhР2▓Ъ:Г****DRAW CIRCLES*********2╛дБж 18052╦╓╛(XX,YY)2ырR│ Ы( В(XмXX)п2л В(YмYY)п2)2¤ъ┬(XX,YY),R,FG3ЇР3#■:Г*****DRAW BOXES**********38Бж 1805 : Бе18403a
Бж 100 : Бж 610 : Е      S┤▓3 з 18053}╜(X,Y,FG) : XX│X : YY│Y3вБж 610 : Е (S ░ 1)│1      з 18153╦Бж 100 : Бж 610 : Е      S┤▓3 з 18203Ё&Бж 610 : Е (S ░ 1)│1      з 18303Ў+Р4
0╗(XX,YY)м(X,Y),╜,B4:Р4Sb:Г*****CLEAR SCREEN********      **TO BACKGROUND COLOR*****4]l╝(BG)4cvР4в╞:Г***SET FOREGROUND AND***       ****BACKGROUND COLORS****4┌╨Бж 610 : Е (S ░ 1)│1      з 2000 ::ГWAIT FOR PEN UP4Є┌Бж 2100 : ╔  И(Cл1)4√фFG│C5юБж 2100 : ╔  И(Cл1)5?°BG│C : Е BG▓4 ▒ FG▓4 з     SC│1 :Д SC│05J¤┐ 1,SC5V┴ FG,BG5\Р5|*:Г**BOTTOM MENU SELECTION**5с4Бж 600 : Е S┤▓3 з        2100 ::ГWAIT FOR PEN DOWN ON     DRAWING SURFACE OR BOTTOM       MARGIN5№>Е Y┤192 ▒ Y▓200 з 21006HC│ Б(Xо28.334) : :Г256/9 6 RР ▒ FG▓4 з     SC│1 :Д SC│05J¤┐ 1,SC5V┴ FG,BG5\Р5|*:Г**BOTTOM MENU SELECTION**5с4Бж 600 : Е S┤▓3 з        2100 ::ГWAIT FOR PEN DOWN ON     DRAWING SURFACE OR BOTTOM       MARGIN5№>Е Y┤192 ▒ Y▓200 з 21006                                                                                                                                                                                                                                                                 └&M│3:P│1:FG│8:BG│5:SC│1&>
╚ M,P : ┴ FG,BG :╝   : ┐ 1,SC&а:Г***************************       BEGINNING OF MAIN LOOP       ****************************&кБж600&┤S│Sл1&∙(И S Бж  80,80,100,200,80,   80,80,80,80,80,80,400,80,80,   80,80'R-A$│ Т : Е A$▓"0" ░       A$┤"5" з P│ Й(A$) :         ╔ A$ : ╚ M,P :           ┐ 1,SC'\2Бе 20'╛<:Г***************************          END OF MAIN LOOP          ****************************'рF:Г**BEGINNING OF SUB-ROUTINES'єPР: :ГNO ACTION(#Z:Г**PEN CLOSE TO PAD -- FLASH       CURSOR!(AdБж600::ГREAD CO-ORDINATES(PnPS│ а(X,Y)(rxА CU│0 е 8 : ╜(X,Y,CU)    : Л(АВ╜(X,Y,PS)(ЖМР(╟╛:Г*TOUCHING DRAWING SURFACE**    **GO TO PROPER SUBROUTINE**(№╚И MENU Бж 80,80,1300,       80,80,80,80,80,80,80)╥Р)B
Ж:Г***READ TOP MENU AND*****      *SET THE APPROPRIATE FLAG*)z
РБж 610 : Е (S ░ 1)│1      з 400 : :ГWAIT FOR PEN UP)ш
ЪMENU│ Б(Xо25.6)л1: :ГMAXIMUM    X-VALUE (256) DIVIDED BY THE    NUMBER OF SPACES IN THE TOP     MENU (10)*3
д╔  И(MENU) : :ГLETS YOU     KNOW THAT YOU'VE SELECTED A     MENU ITEM.*g
оИ MENU Бж 80,80,1300,80,    80,80,80,80,1900,80*m
╕Р*КN:Г***READ THE X-PAD *****жXX│ Ж(65376):Y│ Ж(65377)*╢bS│ Ж(65378)*╝lР*▄
:Г*****DRAWING MODE*********чБж 100+Бж 610 : Е S┤▓3 з        Р+(╜(X,Y,FG)+32Бж 610 : Е S┤▓3 з        Р+L<XX│X : YY│Y : Бж 600+aF╗(XX,YY)м(X,Y),╜+mPБе 1330+нb:Г*****CLEAR SCREEN********      **TO BACKGROUND COLOR*****+╖l╝(BG)+╜vРГ*****DRAWING MODE*********чБж 100+Бж 610 : Е S┤▓3 з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   Y&D╚И MENU Бж 80,80,1300,       1450,1500,1600,1700,1800,80,    80&О
оИ MENU Бж 80,80,1300,       1400,1500,1600,1700,1800,       1900,2000&о6:Г*******LINES*************&║@Бж 1805&╧^╗(XX,YY)м(X,Y),╜&╒hР&їЪ:Г****DRAW CIRCLES*********'
дБж 1805'╓╛(XX,YY)'.рR│ Ы( В(XмXX)п2л В(YмYY)п2)'@ъ┬(XX,YY),R,FG'FЇР'f■:Г*****DRAW BOXES**********'{Бж 1805 : Бе1840'д
Бж 100 : Бж 610 : Е      S┤▓3 з 1805'└╜(X,Y,FG) : XX│X : YY│Y'хБж 610 : Е (S ░ 1)│1      з 1815(Бж 100 : Бж 610 : Е      S┤▓3 з 1820(3&Бж 610 : Е (S ░ 1)│1      з 1830(9+Р(P0╗(XX,YY)м(X,Y),╜,B(V:РS**********'{Бж 1805 : Бе1840'д
Бж 100 : Бж 610 : Е      S┤▓3 з 1805'└╜(X,Y,FG) : XX│X : YY│Y'хБж 610 : Е (S ░ 1)│1      з 1815(Бж 100 : Бж 610 : Е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
с&М CO(15,15)&T╚И MENU Бж 1120,80,1300,     1450,1500,1600,1700,1800,80,    80&Ю
оИ MENU Бж 1100,80,1300,     1400,1500,1600,1700,1800,       1900,2000&▐B:Г********COPY*************      **SETS UP PAINT BRUSHES***&ЄLFG│0 : FL│0 : Р'`Е FG│1 з 1150 :Д Е       FL│1 з 1135'@eБж610 : Е (S ░ 1)│1       з 1125'[jAX│X : AY│Y : FL│1 : Р'АoБж610 : Е (S ░ 1)│1       з 1135'│tBX│X : BY│Y : ─(AX,AY)м(BX,BY),CO,G : FG│1 : Р'▐~┼(X,Y)м(XлBXмAX,YлBYмAY),     CO,▒ : РFG│0 : FL│0 : Р'`Е FG│1 з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╕&E╚И MENU Бж 1120,1200,1300    ,1450,1500,1600,1700,1800,80    ,80&П
оИ MENU Бж 1100,1200,1300    ,1400,1500,1600,1700,1800,      1900,2000&пж:Г**DRAWING ALPHANUMERICS**&╡░РR     FAVORITE SCREEN DUMP ROUTINE'т
╓Р(▓:Г***LOWER RIGHT CORNER*                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 *&!
:Г**      TRIGSHOW       **&A:Г**  BY CARLOS RUMBAUT  **&a:Г**     JULY, 1982      **&~
М N$(6):N$(0)│"E2F2G2H2"&ТN$(1)│"BR2U2D4"&мN$(2)│"BD3L3U3R3U3L3"&╞
N$(3)│"D3L3BU6R3D3L2"&█N$(4)│"D6U3L3U3"&ЇN$(5)│"R3L3D2R3D3L3"'	N$(6)│"D6R3U3L3"'qAN$│"U8R4D4L4R4D4BR4BU3R3BU3L3R3BU2BR3":S$│"D8R4U3L4":F$│"BD8R4U4L4U4R4BR4R4D8BR3R1BR3R4U4L2R2U4L4"'▓PI│3.1416:PI$│"BU2R3D4U4R4D4U4R3":P2$│"R2D3L2D3R2BU3BR3"лPI$'╜╚4,1:Ю'хЗ б(10,168)" TRIG SHOW " б(11,164);'їЗ б(32,227)(#З:З:З"     THIS PROGRAM EXPLAINS AND"(D(З"ILLUSTRATES SOME  FUNDAMENTAL"(j-З"CONCEPTS IN TRIGONOMETRY, THEN"(Ъ2З"GIVES A SHORT QUIZ AFTER EACH   SECTION.")7З:З" TO 'TURN THE PAGE', PRESS THE  SPACE BAR.  PRESSING <SHIFT @>  FREEZES CURRENT DISPLAY UNTIL   ANOTHER KEY IS PRESSED.")*<Е  Т│""з60)DAЮ:З@10,"- FOREWORD -")ЧFЗ:З:З"  TRIGONOMETRY WAS FIRST THOUGHTUP TO MEASURE RATIOS WITHIN TRI-ANGLES."*KЗ"   A VERY HANDY APPLICATION IT  HAS COME TO HAVE IS TO RELATE   CIRCULAR MEASUREMENTS TO LINEAR ONES."*CPЗ:З"  THIS MAKES CIRCLES AND CURVES MUCH MORE MANAGEABLE."*RZЕ  Т│""з90*k╚Ю:З:З:З"SELECTIONS:"*{═З б(11,204)*О╥З:Зд10)"1. PI"*д▄Зд10)"2. RADIANS"*╖цЗд10)"3. SINE"*╠ЁЗд10)"4. COSINE"*ў З:З"TO RETURN TO THIS LIST, TYPE <L>";+
З б(32,195)л б(32,236);+2
Й "WHICH WOULD YOU LIKE";I+S
И I Бе 1000,2000,3000,4000:К+Zч:Г+pшЮ:T$│"PI":Бж 6000+ТэЗ:З"WHERE DOES PI COME FROM?"+чЄЗ" PI IS THE NUMBER OF DIAMETERS  THAT FIT ALONG THE CIRCUMFERENCE OF A CIRCLE.",a№З:З"THE NEXT PAGE SHOWS A CIRCLE OF DIAMETER 1 ROLLED OUT THE LENGTH OF ITS CIRCUMFERENCE, 3.14159  (APPROXIMATELY).",mБж 6160,yG╝:┐ 1,1,УL╗(32,150)м(220,150),╜,лQ╗(34,90)м(34,150),╜,╗V┬(34,158),3,╤`╞ "BM216,157"лPI$,ъjА X│0 е 2нPI й PIо12-tC│34л30нX:S│.25лXо(2нPI)-yЕ S▓1 з S│Sм1-3И┬(C,120),30,1,1,S,.25-=На C,1-NТЕ X│0 з 1200-hж┬(C,120),30,0,1,S,.25-p░Л X-|║Бж 6160-Ф─Ю:T$│"QUIZ":Бж 6000-м╔Е  О(R$,1)│"Y"з1095-ї╬З:З"   HOW MANY RADII WILL FIT ALONG THE CIRCUMFERENCE OF A CIRCLE?"."╪A$│"6":B$│"2*PI":C$│"PI/2":R$│"B":Бж6060.lЗ:З"WHAT IS THE DIAMETER OF A CIRCLEWITH A CIRCUMFERENCE OF 31.4159?".Ш
A$│"10":B$│"2*PI":C$│"20":R$│"A":Бж6060.с(З:З"   WHICH FORMULA FOR THE CIRCUM-FERENCE OF A CIRCLE IS CORRECT?".є)З"(R=RADIUS)"//2A$│"C=PI*R^2":B$│"C=PI*R/2":C$│"C=PI*R*2":R$│"C":Бж6060/IВЕ  Т│"" з 1410 :Д 200/P╧:Г/k╨Ю:T$│"RADIANS":Бж 6000/╠┌З:З"    AN ANGLE IS THE SIZE OF ONE RADIAN WHEN IT MARKS OFF AN ARC THE SIZE OF ONE RADIUS."0EфЗ"REMEMBER YOU CAN FIT 2*PI RADII ALONG THE CIRCUMFERENCE.  THERE-FORE, 2*PI RADIANS WILL FIT IN- SIDE OF A CIRCLE."0QщБж 61600╜юЮ:З:З"   THE NEXT PAGE SHOWS A CIRCLE MARKED FIRST IN WHOLE RADIANS,  THEN IN FRACTIONS OF PI RADIANS."1єЗ"THESE LATTER CORRESPOND TO THE  STANDARD ANGLES OF 45, 60, 90,  ETC., DEGREES."1°Бж 61601+¤╝:┐ 1,11<┬(128,96),451PА X│4 е 104 й 41^А X│0 е 61Й╗(128,96)м(128л Х(X)н45,96м Е(X)н45),╜1С
Л X1ж┬(180,96),3:╔"C"1┴╞"BM155,54"лN$(1):╔"D"1▄╞"BM107,51"лN$(2):╔"E"1Ў╞"BM78,89"лN$(3):╔"F"2╞"BM95,134"лN$(4):╔"G"2-╞"BM142,144"лN$(5):╔"A"2I╞"BM176,110"лN$(6):╔"B"2]А T│1 е 1500:ЛT2p ╝:┬(128,96),452Р%╞"BM128,96;R45":┬(180,96),22╛*╞"BM128,96;E32;BU4"лPI$л"BR4NG3BR6"лN$(4)2╔+а 91,43/╗(128,96)м(151,57),╜:╞"BM151,52"лPI$л"BR4NG3BR6BD2"лN$(3)30а 96,43E4╞"BM128,96;U45BU7BL7"лPI$л"BR4NG3BR6BD2"лN$(2)3Q5а 101,43m9╞"BM128,96;L45BL13"лPI$3y:а 106,43╗>╞"BM128,96;D45;BD6BL8"лN$(3)л"R2BR2"лPI$л"BR4NG3BR6BD2"лN$(2)3╟?а 111,43┘C┬(180,96),2,03эH╞"BM178,96"лP2$3∙Iа 121,44RБж 61604pЮ:T$│"QUIZ":Бж600044uЕ  О(R$,1)│"Y"з20454izЗ:З"   HOW MANY DEGREES ARE THERE INPI RADIANS?"4ШДA$│"180":B$│"60*PI":C$│"90":R$│"A":Бж 60604╥мЗ:З"HOW MANY RADIANS ARE THERE IN A 90-DEGREE ANGLE?"5╢A$│"1.5":B$│"90-PI":C$│"PI/2":R$│"C":Бж 606054╗З:З"HOW MANY DEGREES ARE THERE IN A RADIAN?"5i└A$│"180/PI":B$│"2*PI":C$│"PI/180":R$│"A":Бж 60605Г╩Е  Т│"" з 2250 :Д 2005К╖:Г5в╕Ю:T$│"SINE":Бж 60005т┬З@53, Л(140):З@83, Л(140)л б(2,128):З@113, Л(140)л б(4,128)6╠З@132,"HYPOTENUSE "л Л(140)л б(6,128)64╓З@173, Л(140)л б(8,128)л" OPPOSITE"6QрЗ@203, Л(140)л б(10,128)6uъЗ@229,"(A) "л Л(140)л б(12,128)6КЇЗ@267,"ADJACENT"7■З:З"    THE TRIGONOMETRIC FUNCTIONS,LIKE SINE, RELATE AN ANGLE(A) TOTHE LENGTHS OF THE SIDES OF ITS RIGHT TRIANGLE."7Бж 61607ЩЮ:З:З"THE SINE OF AN ANGLE IS EQUAL TOTHE RATIO OF THE LENGTHS OF THE OPPOSITE SIDE TO THE HYPOTENUSE.  SINE = OPPOSITE / HYPOTENUSE"8АЗ:З"  IN A CIRCLE OF RADIUS ONE, THEHYPOTENUSE IS 1 AND SO THE SINE OF AN ANGLE EQUALS ITS OPPOSITE SIDE."8cКЗ"THE NEXT PAGE PLOTS THE OPPOSITESIDE ALONG A LINE WHICH LINEARLYREPRESENTS RADIANS."8oФБж 61608z▓╝:┐1,18Тф╗(10,90)м(240,90),╜8йю╗(82,90)м(95,90),╛8├°╗(10,175)м(240,175),╜8▄
╗(82,175)м(95,175),╛8°
╞"BM12,179;R1;BR3;U2D4"9
┬(45,179),3:┬(97,179),39'
 ╞"BM75,177;D4"9M
*╞"BM167,179"лPI$:╞"BM235,177"лP2$9]
4┬(45,90),309v
>А X│0 е PIн2 й PIо159Ц
CH│45л Х(X)н30:V│90м Е(X)н309к
H╗(H,90)м(H,V),╜9╩
M╗(95л23нX,V)м(95л23нX,90),╜9▀
R╗(H,V)м(45,90),╜9Ї
Wа 150л Е(X)н60,1:
\Е X▓0 з ╗(45,90)м(H,V),╛:0
aЕX▓PI з ╗(10,90)м(82,90),╜:D
d╗(H,V)м(H,90),╛:L
fЛ X:X
pБж 6160:p
zЮ:T$│"QUIZ":Бж 6000:И
Е  О(R$,1)│"Y"з3250:╪
ДЗ:З"   AFTER WHAT NUMBER OF RADIANS DOES THE VALUE OF SINE TURN NEG-ATIVE?";
ОA$│"0":B$│"PI":C$│"2*PI":R$│"B":Бж 6060;<
ШЗ:З"   AT WHAT ANGLE IS SINE AT ITS HIGHEST POINT?";k
вA$│"0":B$│"PI/2":C$│"-PI/2":R$│"B":Бж 6060;Р
мЗ:З"WHAT IS THE SINE OF 3*PI/2?";╕
╢A$│"0":B$│"1":C$│"-1":R$│"C":Бж6060;╤
└Е  Т│""з 3520 :Д 200;╪Я:Г;ЄаЮ:T$│"COSINE":Бж 6000<ЩкЗ:З"THE COSINE OF AN ANGLE IS EQUAL  TO THE RATIO OF THE LENGTHS OF THE ADJACENT SIDE TO THAT OF THE HYPOTENUSE. THAT IS:              COSINE=ADJACENT/HYPOTENUSE"=┤З"   TO SHOW HOW ANGULAR MEASURE  CORRESPONDS TO THE COSINE ON THENEXT PAGE, THE CIRCLE IS PLOTTEDWITH A VERTICAL X-AXIS."=S╛З"THIS MAKES THE ADJACENT SIDE OF THE ANGLE VERTICAL."=_╚Бж 6160=k╥╝:┐ 1,1=Ш▄╗(95,90)м(240,90),╜: ╗(45,57)м(45,123),╜=┤ц╞"BM81,120;R1;BR3;U2D4"=╧Ё┬(85,90),3:┬(97,149),3>·╞"BM85,60;D4":╞"BM167,149;"лPI$:╞"BM235,147"лP2$>┬(45,90),30>-А X│0 е PIн2 й PIо15>MH│45м Е(X)н30:V│90м Х(X)н30>a╗(H,V)м(45,V),╜>Б╗(95л23нX,V)м(95л23нX,90),╜>Ц"╗(45,90)м(H,V),╜>л'а 150л Х(X)н60,1>├,Е X▓0 з ╗м(45,90),╛>ф1Е X▓PI з ╗(45,57)м(45,123),╜>°4╗(H,V)м(45,V),╛?6Л X?@Бж 6160?┐JЮ:З:З"   DEFINING THE TRIG FUNCTIONS  IN TERMS OF THE SIDES OF A RIGHTTRIANGLE INCLUDES ONLY THE ACUTEANGLES(<PI/2).  THE DEFINITIONS MUST BE EXPANDED IN TERMS OF A  CIRCLE."@?TЗ"   INSTEAD OF THE ADJACENT SIDE,WE USE THE HORIZONTAL DISTANCE  BETWEEN THE CENTER OF THE CIRCLEAND THE END OF THE ARC.";@╗^З"  INSTEADOF THE OPPOSITE SIDE, WE USE THEVERTICAL DISTANCE BETWEEN THE   CENTER OF THE CIRCLE AND THE ENDOF THE ARC."@╟дБж 6160@▀оЮ:T$│"QUIZ":Бж 6000@ў│Е  О(R$,1)│"Y"з4050A2╕З:З"   THE COSINE OF 0 IS THE SAME  AS THE COSINE OF:"A`┬A$│"PI":B$│"2*PI":C$│"PI/2":R$│"B":Бж6060B╠З:З"FOR VALUES OF X LESS THAN 0 AND GREATER THAN 2*PI, THE GRAPH OF COS(X) CONTINUES IN THE SAME RE-PEATING CURVE. WHAT VALUE DO YOUSUPPOSE THE COS(3*PI) HAS?"B,╓A$│"0":B$│"1":C$│"-1":R$│"C":Бж6060BMрЗ:З"  HOW ABOUT COS(-PI/2)?"BuъA$│"0":B$│"1":C$│"-1":R$│"A":Бж6060BНЇЕ  Т│""з4340 :Д 200BФo:ГBиp:ГTITLE ROUTINEB╠zЗ Л(241)л б( З(T$),243)л Л(242)BфДЗ Л(245)лT$л Л(250)CОЗ Л(244)л б( З(T$),252)л Л(248)CEУЕ T$│"QUIZ"з Й"DO YOU WANT TO SEE THE DISPLAY  AGAIN";R$CKШРC^в:ГQUIZ ROUTINECrмЗ:Зд12)"A. "лA$CД╢Зд12)"B. "лB$CЦ└Зд12)"C. "лC$Cп╩Й Q$:Е Q$┤▓R$ з 6090C╨╘З"THAT'S RIGHT":╔"T4A#L9EG#"C╓▀РCЄ:ГTURN-THE-PAGE ROUTINEC№I$│ ТDЕ I$│"L" з 200D!Е I$│""з 6160D'$РEE THE DISPLAY  AGAIN";R$CKШРC^в:ГQUIZ ROUTINECrмЗ:Зд12)"A. "лA$CД╢Зд12)"B. "лB$CЦ└Зд12)"C. "лC$Cп╩Й Q$:Е Q$┤▓R$ з 6090C╨╘З"THAT'S RIGHT":╔"T4A#L9EG#"C╓▀РCЄ:ГTURN-THE-PAGE ROUTINEC№I$│ ТD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ц&
В SAR27 BY ED KRIKORIAN&;В 604 SWEETWATER BLVD.,N.&SВ LONGWOOD, FLORIDA&dВ      32750&БВ *USES HIGH SPEED POKE.&аВ DELETE LINES 120 AND 470&╗В IF YOUR SYSTEM LACKS&╪В HIGH SPEED CAPABILITY.&ч
М N(200,2)&■PI│3.1415926:K│.08'
A│0:OF│125')(Й"AMPLITUDE,LIFT";AO,OO';2Й "K VALUE";K'Y<Й"NUMBER OF UP-CURVES";CU'yFЙ"NUMBER OF DOWN-CURVES";CX'ПPЙ"SHIFT,STEP";G,E'пZЙ"INITIAL HEIGHT(0-191)";OF'╚dЙ"DOMAIN OF X";S1,S2'цiЙ "CROSS LINES (1=NO)";CL'°n╚ 4,1:╝:┐ 1,0(xТ 65495,0(ВА PL│1 е CU(МNC│0(3ЦА X│S1 е S2 й E(CаY│Aн Е(KнX)(TкЕ PO│0 з 190(r┤╗(Xл60лXO,OFмY)м(XX,YY),╜(Г╣Е CL│1 з 250(Ф╛Е FL│0 з 210(╝╚╗(Xл60лXO,OFмY)м(N(NC,0),N(NC,1)),╜(▌╥N(NC,0)│Xл60лXO:N(NC,1)│OFмY(ю▄Е FL│1 з 240)ц╜(Xл60лXO,OFмY,1))ЁNC│NCл1:PO│1),·XX│Xл60лXO:YY│OFмY)4
Л X)U
A│AлAO:OF│OFмOO:XO│XOлG:FL│1)^
PO│0)g
"Л PL)w
,А PL│1 е CX)А
6NC│0)Ф
@А X│S1 е S2 й E)д
JY│Aн Е(KнX))╡
TЕ PO│0 з 360)╙
^╗(Xл60лXO,OFмY)м(XX,YY),╜)ф
cЕ CL│1 з 420)ї
hЕ FL│0 з 380*
r╗(Xл60лXO,OFмY)м(N(NC,0),N(NC,1)),╜*>
|N(NC,0)│Xл60лXO:N(NC,1)│OFмY*O
ЖЕ FL│1 з 410*e
Р╜(Xл60лXO,OFмY,1)*v
ЪNC│NCл1:PO│1*Н
дXX│Xл60лXO:YY│OFмY*Х
оЛ X*╢
╕A│AмOO:OF│OFлAO:XO│XOлG:FL│1*┐
┬PO│0*╚
╠Л PL*╪
╓Т 65494,126*у
рБе 480hЕ FL│0 з 380*
r╗(Xл6                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 t&
Т359,13:┐0,1:Ю( Д(9)м1)&ТАS│0е3:З@14лIлSн96,"THE";:I│Iл4н Д(2)м6:З@46лIлSн96,"RANDOM";:I│Iл4н Д(2)м6:З@78лIлSн96,"WALK";:I│Iл4н Д(2)м6:ЛS&ЁЗ@426,"r&d.delbourgo";:З@456,"15,willowdene av.";:З@481,"hobart,tasmania, australia7005";'0а218,1:а227,1:а232,1:а239,1:а232,1:а227,1:а218,1:АT│1е500:Л'Ж
N│64:Т359,13:┐0,1:Ю( Д(9)м1):Й"ENTER NUMBER OF WALKS";W:МP(256):Т65495,0:Т359,126'╠АM│1еW:X│0:Y│м3:╚3,1:┴5, Д(3)л1:╝:┐1, Д(2)м1:╗(128,0)м(128,191),╜'╫АS│1еN'щ
X│Xл4н Д(2)м6(Y│Yл3:╜(128лX,Y,5):ЛS(%а150,5:X│Xл128:P(X)│P(X)л1:ЛM(j╚3,1:╝:┐1, Д(2)м1:┴3,5:╗(128,0)м(128,191),╜:╗(0,191)м(255,191),╜(╦АX│68е188й4:C│Xо4м2н Б(Xо8):АI│0е7:┴2нC,5:╗(2нXм132лI,191)м(2нXм132лI,191м200нP(X)оW),╜:ЛI,X(ЎАX│0е255:L2│(Xм128)н(Xм128)нP(X)лL2:ЛX)SЮ:З"YOU HAVE WALKED A MEAN SQUARED  DISTANCE"L2оW:З"":З"(THE THEORETICAL ANSWER IS 256)")qТ65494,0:АT│1е5000:ЛT:О1088й4:C│Xо4м2н Б(Xо8):АI│0е7:┴2нC,5:╗(2нXм132лI,191)м(2нXм132лI,191м200нP(X)оW),╜:ЛI,X(ЎАX│0е255:L2│(Xм128)н(Xм128)нP(X)лL2:ЛX)SЮ:З"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 К&
Т359,13:┐0,1:Ю( Д(9)м1)&пЗ@207," ";:АS│1е10:K│2н Д(2)м3:I│Iл2нK:З@207лIлJ," ";:З@207лIлJмK," ";:а180,1:J│Jл64н Д(2)м96:З@207лIлJ," ";:а210,1:ЛS:З@8,"THE RANDOM WALK";'
З@426,"r&d.delbourgo";:З@456,"15,willowdene av.";:З@481,"hobart,tasmania, australia7005";'Mа218,1:а227,1:а232,1:а239,1:а232,1:а227,1:а218,1:АT│1е500:Л'г
N│64:Т359,13:┐0,1:Ю( Д(9)м1):Й"ENTER NUMBER OF WALKS";W:МP(656):Т65495,0:Т359,126'╙АM│1еW:X│0:Y│0:╚1,1:┴5, Д(3)л1:╝:┐1, Д(2)м1'▐АS│1еN(
PI│3.1415926:D│8:A│PIн Д(2нD)оD:L│5(5X│XлLн Х(A):Y│YлLн Е(A):╜(Xл128,Yл95,5):ЛS(gа150,5:R│ Б( Ы(XнXлYнY)):R│Rл1:P(R)│P(R)л1:ЛM(Ч╚3,1:╝:┐1, Д(2)м1:┴3,5:╗(0,191)м(255,191),╜(ыАK│1е127:C│Kм2н Б(Kо2):АI│0е1:┴2нC,5:╗(2нKлI,191)м(2нKлI,191м400нP(K)оW),╜:ЛI,K)АR│0е255:L2│RнRнP(Rл1)лL2:ЛR)iЮ:З"YOU HAVE WALKED A MEAN SQUARED  DISTANCE"L2оW:З"":З"(THE THEORETICAL VALUE IS 1600)")ЗТ65494,0:АT│1е5000:ЛT:О10(255,191),╜(ыАK│1е127:C│Kм2н Б(Kо2):АI│0е1:┴2нC,5:╗(2нKлI,191)м(2нKлI,191м400нP(K)оW),╜:ЛI,K)АR│0е255:L2│RнR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╣&
Ю0:З@234,"64K SYSTEM";&$Y│0&bD$│"1A508E8000A684B7FFDFA780B7FFDE8CFF0026F1B7FFDF1CAF39"&Б(А X│1е З(D$)й2:а  Д(200),1&б2A$│"&H"л Р(D$,X,2):A│ Й(A$)&║<Т&H7E00лY,A:Y│Yл1:ЛX&╨FТ&HFF40,0:в&H7E00&√PА X│1е3:Т&HC13FлX, К( Р("64K",X,1)):ЛX',Zа100,1:Ю:З @224,"    CHANGING BASIC PROGRAM"'WdЕ  Ж(&HC000)│68 з S│&H2601 :Д S│&H1E01'lnK│(&HE001мS)о256'КxE│ Ж(25)н256л Ж(26)м2:X│S'оВA1│ Ж(X):A2│ Ж(Xл1):A│A1н256лA2'╫МТX,A1лK:Е A│E з ТX,&H10:ТXл1,1:Бе160'хЦX│A:Бе130(аЮ:а100,1:З@224,"      RELOCATING PROGRAM"(%кА X│Sм1 е Eл1(>┤Т Xл(Kн256), Ж(X):ЛX(Y╛А X│0е3:Т&H1000лX,0:ЛX(n╚Е S│&H1E01 з 220(Т╥Т25,&HE0:Т26,1:Т27,&H10:Т28,1:О(╢▄Т25,&HE0:Т26,1:Т27,&H08:Т28,1:ОЕ A│E з ТX,&H10:ТXл1,1:Бе160'хЦX│A:Бе130(аЮ:а100,1:З@224,"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      №&#
:Г***************************&E:Г       BIRTHDAY PARTY     *&g:Г         INVITATION       *&Й:Г             BY           *&л:Г         BOB DOOMAN       *&═:Г        GLENVIEW, IL      *&я:Г        C. OCT 1982       *':Г***************************'3	:Г80C WITH OKIDATA MICRO 80 *'n
:ГPRINTER CODE (10) @ 170,220,230,330,350, = LINE FEED'ж:ГCODE (31) @ 180 = WIDE CHARACTERS FOR ENV ADDRESS'╫:ГCODE (30) @  210 = RESUME 10 CHAR PER INCH'∙
:Г***************************(gЮ:З"THIS WILL MAKE YOUR":З"BIRTHDAY INVITATIONS":З:З"GIVE ME THE INFORMATION":З"I NEED":А X │1 е 900:ЛX:Ю(ЫЗ"DO NOT USE COMMAS <,>":Й"WHAT'S YOUR NAME";N$(б(З(╛2Й"HOW OLD WILL YOU BE";A(─<З(▄FЙ"DATE OF PARTY";D$(тPЗ(ёZЙ"TIME";T$(ўdЗ)nЙ"PLACE";P$)
xЗ)iВЮ:З"OK, I GOT ALL THAT.":З:З"NOW, WHO IS INVITED?":З:Й"FIRST NAME";F$:З:Й"LAST NAME";L$)БМЕ F$│"" з 20 :Д 150)ЫЦЗ:Й"THEIR ADDRESS";A$)│аЗ:Й"CITY ST ZIP";C$)╤кА J│0 е 8:З#м2, Л(10):Л J)Ї┤З#м2, Л(31):З#м2,д10)F$;" ";L$*╛З#м2,д10);A$*╚З#м2,д10)C$*%╥З#м2, Л(30)*D▄А J│0 е 14:З#м2, Л(10):Л J*tцЗ#м2,д5)"HI, "F$",":З#м2, Л(10):З#м2, Л(10)*жЁЗ#м2,д5)"I'm going to be "A" years old !!!!!"*▒·Бж 350*у
З#м2,д5)"Can you come to my BIRTHDAY PARTY ?"*ю
Бж 350+

З#м2,д10)"DATE  ";D$:Бж350+-
"З#м2,д10)"TIME  ";T$:Бж 350+M
,З#м2,д10)"PLACE ";P$:Бж 350+Ь
6З#м2,д5)"Please call my Mom to let her know:[INSERT YOUR PHONE NO]":Бж 350+л
@З#м2,д5)N$+╩
JА J│0 е 16:З#м2, Л(10):Л J+╒
TБе 130+є
^З#м2, Л(10):З#м2, Л(10):Р+∙
hКA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 |&}
В   RAINDEX=PEEK(RAINBOW)           (C) 1982 BY M.P.WILSON          BOX 794, POTSDAM, N.Y.            13676     VER 1.4&╖Х15000:МA$(25,100):АX│0е25:A$(X,0)│"^^^":Л:T$│":":З:З&ыD$│"":З"ISSUE.PAGE ";:╗ ЙZ$:Е Р(Z$,1,1)│"^"з330&√(З"ANY TAG?"'2J2$│ Т:ЕJ2$│""з50'?<J2│ К(J2$):ЕJ2▓13зJ2$│"<"лJ2$л">":ДJ2$│""'HFЗJ2$'bPЗ"DESCRIPTOR":╗ Й Z2$'кZT2│0:D$│Z2$л" :"лZ$лJ2$:A3│ К(D$):D│A3м65:ЕD┤0з T2│1:ДЕD▓25 з T2│1 '╤dЕT2▓0зЗ"BAD INPUT, TRY AGAIN":Бе30(^nАX│0е100:ЕA$(D,X)│"^^^"з E│1 :Д A│ Ю(D$,T$):A2│ Ю(A$(D,X),T$):C2$│ О(D$,A):C$│ О(A$(D,X),A2):ЕC$┤C2$з Л :Д ЕC$│C2$ з E│2 :Д ЕC$▓C2$з E│3(kxQ│X:K3│Q(нВЮ:З"^-STRT DN^-END --RTN ?-CNC /-DES *-DEL":ЕK3┤0зK3│0:ДK3│K3(хМЕK3▓0зЗD;",";K3м1;" "A$(D,K3м1) :Д З"start of file"(√ЦЕK3┤10зK4│8:ДK4│9)*аC4$│C$:ЕC4$│C2$ з170:ДЗ б(K4," ");D$:Бе180)UкЕC4$│""зЗ б(K4," ");D$:ДЗ б(K4,"*");D$)В┤ЕK3┤100зD2$│A$(D,K3):Д D2$│"end of file")д╛ЕD2$│""зD2$│"past ^^^ marker")║╚ЗD;",";K3;" ";D2$)╧╥J$│ Т:ЕJ$│""з210)щ▄ЕJ$│"^"зK3│K3м1:Бе130*цЕJ$│ Л(10)зK3│K3л1:ЕK3▓99зK3│99:ДK3│K3:Бе130*1ЁЕJ$│"-"зK3│Q:Бе130*@·ЕJ$│"?"з30*m
ЕJ$│"/"з З"CORRECT DESCRIPTOR":ЙZ2$:Бе90*╧
ЕJ$│"*"зЗ"DELETE ITEM IN FILE.":Й"ENTER D";D:Й"ENTER Q";Q:А Y│Q е 99:A$(D,Y)│A$(D,Yл1):Л:Бе30*Ў
ЕJ$│"@"з И E Бе 290,300,310 :Д 210+
"A$(D,Qл1)│"^^^":A$(D,Q)│D$:Бе320+Q
,C3$│ П(D$, З(D$)мA):A$(D,Q)│A$(D,Q)л" "лC3$:Бе320+А
6АX│99еQ йм1:A$(D,Xл1)│A$(D,X):Л:A$(D,Q)│D$+Ц
@З#м2,A$(D,Q):Бе30,5
Jб И:Й"R-TAPES L-LOADS P-PRINTS ^-CANCL";R$:ЕR$│"^"з30 :Д ЕR$│"P"з430:ДЙ"DATA FILE NAME <LIMIT IS 8 CHAR>";G$:Е  З(G$)▓8з330:ДЕR$│"L"з370:ДЕR$│"R"з340:Д330,E
TЩ"O",#м1,G$,y
^АX│0е25:АY│0е100:ЕA$(X,Y)┤"^^^"зЗ#м1,A$(X,Y):ЛY,Ы
hЗ#м1,A$(X,Y):Y│0:ЛX:Ъ#м1:Бе30,л
rЩ"I",#м1,G$,╕
|K│0:J│м1,╦
ЖЕ  М (м1) з420-
РЙ#м1,G$:ЗG$:J│Jл1:A$(K,J)│G$:ЕG$│"^^^"з K│Kл1:J│м1:Бе390-
ЪБе390- 
дЪ#м1:Бе30-U
оАX│0е25:АY│0е100:ЕA$(X,Y)┤"^^^"з З#м2,A$(X,Y):ЛY-p
╕ЕA$(X,Y)│"^^^"з Y│0:ЛX-y
┬Бе30З#м1,A$(X,Y):Y│0:ЛX:Ъ#м1:Бе30,л
rЩ"I",#м1,G$,╕
|K│0:J│м1,╦
ЖЕ  М (м1) з420-
РЙ#м1,G$:ЗG$:J│Jл1:A$(K,J)│G$:ЕG$│"^^^"з K│Kл1:J                                                                                                                                                                                                                                                                 ;&
:ГMATHPAL (32K VERSION)&A:ГCOPYRIGHT 1982 BY DAVE HOOPER&K	Бе500&╩
Ю:З@489,"INSTRUCTIONS":З:Бж2600:Бж2600:З" PRESS 'E' TO ENTER YOUR ANSWER":Бж2600:З" PRESS 'C' TO CLEAR YOUR ANSWER":Бж2600'ЯЗ" PRESS 'A' TO DISPLAY ANSWER":Бж2600:З" PRESS '^' TO RETURN TO MENU":Бж2600:З" PRESS 'I' TO RETURN HERE":З" ENTER ALL ANSWERS FROM RIGHT":Бж2600:З" TO LEFT":З:Бж2600:З:Бж2600:З" PRESS SPACE BAR TO CONTINUE"'╝Е  Ж(345)│247з┐1,0:Р:Д12'╙┼(A,B)м(C,D),J,╜:Р'ъ┼(A,B)м(C,D),A,╜:Р(
┼(A,B)м(C,D),B,╜:Р(┼(A,B)м(C,D),C,╜:Р(/┼(A,B)м(C,D),D,╜:Р(F┼(A,B)м(C,D),E,╜:Р(]┼(A,B)м(C,D),F,╜:Р(t┼(A,B)м(C,D),G,╜:Р(Л┼(A,B)м(C,D),H,╜:Р(в┼(A,B)м(C,D),I,╜:Р(╦#╔"V31;T255;L255;O4CDEFGABO5CDEFGABC"(с(┼(0,G)м(24,V),M,╜(ї-G│Gм40:V│Vм40:Р)
2╝(3):G│172:V│192)07ZT│ Б(TTо10):Z1│TTмZTн10:ZZ$│"":П)?<А X│1 е 10)H>Н B$)`@Е X│ZT з ZZ$│B$лZZ$)ИBЕ X│Z1 ▒ (X│10 ░ Z1│0) з ZZ$│ZZ$лB$)РDЛ X)╖E╞"S4;BM104,144"лZZ$:├(118,146),2,2)╙FЕ ZT▓0 з ├(162,146),2,2)эK╞"S4;BM72,12"лSC$лSD$)■PАH│18е225й16*;U┼(Hм14,80)м(Hл30,96),L,╜:АX│1е100:Л:╔"V31;L255;T255;O1D"*Ld╜(Hм12,96,2)*SiЛH*ЛnA$│"V31;T30;O4CL2DEL1CP1CL2DEL1CP1L2CDECDECDEL1CP2"*├sB$│"V31;T30;O4FL2GAL1FP1FL2GAL1FP1L2FGAFGAFGAL1FP2"*╥x╔A$лB$:╔A$+}C$│"V31;T255;L255;O1CDEFGABO2CDEFGABO3CDEFGABO4CDEFGABO5CDEFGAB"+&В╔C$лC$:╔C$+,ЗР+XЙИ KK Бж 21,22,23,24,25,26,27,28,29,30:Р+lМT│0:X│0:Y│0:W│0+ЙПЕ  Ж(341)│247з╝(3):Бе718+ЯСQ$│ Т:Е Q$│""з143+╡ТЕ Ж(339)│253зБж10+╥УЕ  Ж(341)│247з╝(3):Бе718+ЇЦЕQ$│"E"зMS│Wл(Xн10)л(Yн100):Р,
ЫЕQ$│"C"зT│3:Бе175,ЭЕQ$│"A"зБе3000,`аЕ T│0 з W│ Й(Q$):A│134:B│140:C│162:D│176:Е W│▓0 з KK│Wл1:Бж137,ЧеЕ T│1 з X│ Й(Q$):A│90:C│118:Е X│▓0 з KK│Xл1:Бж 137,═кЕ T│2 з Y│ Й(Q$):A│46:C│74:Е Y│▓0 з KK│Yл1:Бж 137-пЕ T│3 з ╗(46,140)м(162,176),╛,BF:W│0:X│0:Y│0:T│0:Бе145-┤T│Tл1:Бе145-#╚АT│1е7-H═╔"V31;T255;L255;O1CEGBGECEGBGEC"-N╥Л-m╫╗(46,140)м(162,176),╛,BF:Р-Е
,TN│ Д(TI):BN│ Д(BI)-х
.ЕM│2░CH$│"A"зTN│ Д(9):BN│1:ДЕM│2░CH$│"B"зTN│ Д(9):BN│ Д(9):ДЕM│2░CH$│"C"зTN│ Д(99):BN│ Д(9)-¤
1Е M│1 ░ TN┤BN з 300.
2Е M│2 ░ TN┤BN з 300.)
3Е M│0 з S│TNлBN.=
4Е M│1 з S│TNмBN.Q
6Е M│2 з S│TNнBN.m
;E│ Б(TNо10):F│ Б(BNо10).Л
@Е E▓0 з H│(TNмEн10):ДH│м1.й
EЕ F▓0 з I│(BNмFн10):ДI│м1.┌
JЕ E┤1 з A│134:B│28:C│162:D│64:KK│TNл1:Бж 137/
OЕ E▓0 зA│90:B│28:C│118:D│64:KK│Eл1:Бж 137/ 
TЕ E▓0 з A│134:C│162/;
YЕ H│▓0 з KK│Hл1:Бж 137/m
^Е F┤1 з A│134:B│80:C│162:D│116:KK│BNл1:Бж 137/Э
cЕ F▓0 з A│90:B│80:C│118:D│116:KK│Fл1:Бж 137/┤
hЕ F▓0 зA│134:C│162/╧
mЕ I│▓0 з KK│Iл1:Бж 137/Є
r╞"S4;BM46,123R116D1L116D1R116"0
wЕ M│0 з╞"S8;BM64,104"лP$0-
yЕ M│1 з ╞"S8;BM64,104"лM$0L
zЕ M│2 з ╞"S8;BM64,104"лMM$0V
|Бж1400q
БЕ MS▓┤S з Бж 200:Бе3800й
ЖЕ MS│S з TT│TTл1:P│Pл1:Бж35:╗(46,28)м(164,180),╛,BF0╗
ЛА LL│5 е 75й50╒
РЕ TT│LL з Бж 50:Бе4060▌
ФЛLL0ч
ХБе3001
ЦЕ TT│15 ▒ TT│30 ▒ TT│45 ▒ TT│60 ▒ TT│75 з310018
ЧЕPG$┤▓"AL"з:╝(3):P│0:Бе3001W
ЪЕ M│0 з M│1:╝(3):P│0:Бе3001v
ЬЕ M│1 з M│2:╝(3):P│0:Бе3001Х
ЭЕ M│2 з M│0:╝(3):P│0:Бе3001Я
ЯБе3001■
Ї└4:╚3,1:╝(3):Х300:МA(27),B(27),C(27),D(27),E(27),F(27),G(27),H(27),I(27),J(27),L(20),M(14)2
∙┴2,32{╞"S4;C2;BM40,60BD8D3R1E1R3F4R9E4R3F2R1U5L3D1L11H1U3E1R6H3L13G2D5G1L1BD5BR2E1R1F1D1G1L1H1U1BR20E1R1F1D1G1L1H1U1"2б├(48,64),2,2:─(24,60)м(68,76),L,G3=
╗(76,108)м(74,114),╜:╗м(66,114),╜:╗м(72,119),╜:╗м(70,126),╜:╗м(76,121),╜:╗м(82,126),╜:╗м(80,119),╜:╗м(86,114),╜:╗м(78,114),╜:╗м(76,108),╜:├(76,118),2,23X─(64,108)м(88,128),M,G3m╝(3):Бж1015:┐1,03~{A│18:B│6:N│13КААX│1е203╜ГЕ X▓10 з C│Aл28:D│Bл36:KK│N:Бж137:Бж2600:Бе6553╞ДН B$3цЕ╞"S4;BM"л И(A)л","л И(B)лB$4
К├(Aл14,Bл2),2,2:Бж260044НИ N Бж 670,675,680,685,690,695,700,705,710,7154KПN│Nл1:Е N▓10 з N│14lФA│Aл44:Е A│238 з A│18:B│Bл424┐ЩЛX:АX│1е10:┐1,0:Бж2600:АY│1е50:ЛY:┐1,1:Бж2600:АY│1е50:ЛY:ЛX:┐1,0:╝3:Бж10:Бе7204┘Ю─(18,6)м(46,42),A,G:Р4єг─(62,6)м(90,42),B,G:Р5и─(106,6)м(134,42),C,G:Р5+н─(150,6)м(178,42),D,G:Р5G▓─(194,6)м(222,42),E,G:Р5b╖─(18,48)м(46,84),F,G:Р5}╝─(62,48)м(90,84),G,G:Р5Ъ┴─(106,48)м(134,84),H,G:Р5╖╞─(150,48)м(178,84),I,G:Р5╘╦─(194,48)м(222,84),J,G:Р5▌╬TT│06И╨Ю:З@487,"WHAT GRADE LEVEL?":Бж2600:З:З"       a. GRADE  1 THRU 2":Бж2600:З:З"       b. GRADE  2 THRU 3":Бж2600:З:З"       c. GRADE  3 THRU 5":Бж2600:АD│1е4:З:Бж2600:Л6╕╒Й"        ENTER CHOICE NOW";CH$:ЕCH$│""з7257▀ЕCH$│"A"зTI│10:BI│10:ДЕCH$│"B"зTI│50:BI│50:ДЕCH$│"C"зTI│99:BI│99:ДБе7207╡фЮ:З@483,"DO YOU WISH TO PRACTICE:":Бж2600:З:З"       a. ADDITION":Бж2600:З:З"       b. SUBTRACTION":Бж2600:З:З"       c. MULTIPLICATION":Бж2600:З:З"       d. ALL THE ABOVE"7╫чАD│1е3:З:Бж2600:Л:G│172:V│1928щЙ"        CHOOSE ONE NOW";SL$:ЕSL$│""з7458gєЕSL$│"A"зM│0:PG$│"":ДЕSL$│"B"зM│1:PG$│""::ДЕSL$│"C"зM│2:PG$│""::ДЕSL$│"D"зM│0:PG$│"AL":ДБе7408╟°ЕNA$│""зЮ:З@483,"WHAT IS YOUR FIRST NAME?":АLC│1е8:Бж2600:З:Л:Й"          ";NA$:ЕNA$│""з7608╓¤┐1,0:Бе3009ЖшЖ "BR12NR4G4D4R4D24L12D4R28U4L12U32BR28","BR4NR20G4D4R4E4R12F4D4G4L16G4D12F4R24U4L20H4U4E4R16E4U12H4BR20","BR4NR20G4D4R4E4R12F4D4G4L12D4R12F4D4G4L12H4L4D4F4R20E4U28H4BR20":BэЖ "BR12NR8G12D8R16D16R4U16R8U4L8U16BG4L2G10D2R12U12BU4BR28","NR28D16R20F4D8G4L20D4R24E4U16H4L20U8R24U4BR16","BR4NR20G4D28F4R20E4U12H4L16G4BD5D3F4R12E4U3H4L12G4BU5U12E4R12F4R4U4H4BR20":°ЄЖ "NR28D4R24D32R4U36BR16","BR4NR20G4D8F4D4G4D8F4R20E4U8H4U4E4U8H4BD8H4L12G4D3F4NR12BD6NR12G4D3F4R12E4U3H4BU6E4U3BU8BR20","BR4NR20G4D8F4R20D20R4U32H4BD7D2G4L12H4U2E4R12F4BU7BR20";СўЖ "BR4NR20G4D28F4R20E4U28H4BG4L12G4D20F4R12E4U20H4BR24BU4":P$│"NU4NL4ND4R4":M$│"NL4R4":SC$│"D8R16D8NL16BU16NL16BR8NR16D16R16BU16BR8NR16D16R16U16BR8";╤№SD$│"NR16D8ND8R8NF8R8U8BR8NR16D8NR8D8R16":MM$│"NE4NF4NG4H4";╫
Р;ч	─АX│1е1000:Л;Є	╔Бж2600;¤	╬╝(3):Р<
(╔"V31;T255;L255;O3BF":Р<J╕A│0:B│0:C│0:D│0:LL│0:J│ Б(Sо100):K│(SмJн100)<Y╜L│ Б(Kо10)<q┬Е L▓0 з LL│(KмLн10)<м╟Е S┤10 з A│134:B│140:C│162:D│176: KK│Sл1:Бж 137:Бе3030=╠Е S▓9 ░ S┤100 з A│90:B│140:C│118:D│176:KK│Lл1:Бж 137:A│134:C│162:KK│LLл1:Бж 137:Бе3030=p╤Е S▓99 з A│46:B│140:C│74:D│176:KK│Jл1:Бж137:A│90:C│118:KK│Lл1:Бж137:A│134:C│162:KK│LLл1:Бж137:Бе3030=Ю╓АT│1е1500:Л:╗(46,28)м(164,180),╛,BF:Бе300>
Ю:З@484,NA$",":АLC│1е12:Бж2600:З:Л:З@129,"IT SURE IS GREAT TO SEE YOU":З@161,"ARE WORKING ON:">~!ЕSL$│"A"зЗ@264,"ADDITION":ДЕSL$│"B"зЗ@264,"SUBTRACTION":ДЕSL$│"C"зЗ@264,"MULTIPLICATION":ДЕSL$│"D"зЗ@264,"ALL YOUR MATH">й&АSR│1е3:Бж2500:ЛSR:АLC│1е15:Бж2600:З:Л?	+З@482,"WOULD YOU LIKE MORE PRACTICE?":Бж2600:З:З"          SELECT (Y/N)":АLC│1е4:Бж2600:З:Л?!0QE$│ Т:ЕQE$│""з3120?25ЕQE$│"Y"з720?8:К:ДЕSL$│"C"зЗ@264,"MULTIPLICATION":ДЕSL$│"D"зЗ@264,"ALL YOUR MATH">й&АSR│1е3:Бж2500:ЛSR:АLC│1е15:Бж2600:З:Л?	+З@482,"WOULD YOU LIKE MORE PRACTICE?":Бж2600:З:З"          SELECT (Y/N)":АLC│1е4:                                                                                                                                                                                                                                                                 к&
Ю:╚4,1:┐1,1:╝&3Т65494,0:МX(255),Y(191),A,B&LB│ Д(8)л1:C│ Д(2):┴C&U#Бе60&x(АX│0 е255йB:╗(X,0)м(X,191),╜:Л&А2О20&з<АY│0 е191йB:╗(0,Y)м(255,Y),╜:Л:О20808─ :ГRandom Graphics8╙*┐1, Д(2)м18¤4F│ Д(4): B│ Д(8): Е B│F ▒ Bм4│F з 8209                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &	
└ 4&Бж 1020&$:ГNEW GAME&2(NR│0:TS│0&a2╔ "T3O2L24GP24O3CP24EP24L12GP12L24EP24L3G"&r<:ГNEW SCREEN&xFЮ&ШPЙ "HOW MANY ORCS(5,25) ";NO&░ZЕ NO┤5 ▒ NO▓25 з 80&╢dЮ&└n╚ 1,3&╩x┐ 1,0&╙ВNT│0&эМА I│1 е 14:А J│1 е 10&√ЦBD(I,J)│0'аЛ J,I'%кX│ Д(14):Y│ Д(10):BD(X,Y)│1'4┤А I│1 е NO'R╛BX(I)│ Д(14):BY(I)│ Д(10)'q╚Е BD(BX(I),BY(I))┤▓0 з 190'З╥BD(BX(I),BY(I))│3'П▄Л I'ЮцА I│1 е 33'╢ЁTX│ Д(14):TY│ Д(10)'╧·Е BD(TX,TY)┤▓0 з 240'▀
BD(TX,TY)│2'ч
Л I'Ї
:ГSCREEN'№
"P│0(
,╚ 1,1( 
1Е CL│0 з CL│1 :Д CL│0(+
6┐ 1,CL(3
@╝ 3(C
JА TX│0 е 15(S
TА TY│0 е 11(x
^И BD(TX,TY)л1 Бе 380,380,360,370(к
h┼(TXн16,TYн16)м(TXн16л10,TYн16л10),TR:Б е 380(╘
r┼(TXн16,TYн16)м(TXн16л10,TYн16л10),MN(р
|Л TY,TX)
Ж┼(Xн16,Yн16)м(Xн16л10,Yн16л10),HB)1
РА I│1 е 250:A$│ Т:Е A$┤▓"" з 430::Д ЛI)Y
Ъ┼(Xн16,Yн16)м(Xн16л10,Yн16л10),HB,и)c
дБе390)w
оЕ A$┤▓"N" з 450)╕
╕Е NT│0 з NT│1:А P│1 е 211 й 15:а P,1:Л P:╚ 1,3:┐ 1,1:Б е 140)┼
┬J│ Й(A$))є
╠Е J┤1 ▒ J▓9 ▒ (J│5 ░ P│5) з а 100,1:Бе390)√
╓P│J*!
р┼(Xн16,Yн16)м(Xн16л10,Yн16л10),BL*/
ъBD(X,Y)│0*_
ЇИ J Б е 510,520,510,540,570,540,550,560,550*k
■X│XлJм2*uY│Yм1*ББ е 570*ХX│XлJм5:Б е 570*б&X│XлJм8*л0Y│Yл1*╓:NT│NTл1:И BD(X,Y)л1 Бе 580,580,860,870+DBD(X,Y)│1:┼(Xн16,Yн16)м(Xн16л10,Yн16л10),HB+N:ГTHEIR TURN+XJ│0+.bА I│1 е NO+BlЕ BX(I)│0 з 830+XvBD(BX(I),BY(I))│0+tАXT│BX(I)н16:YT│BY(I)н16+ТК┼(XT,YT)м(XTл10,YTл10),BL+░ФЕ BX(I)▓X з BX(I)│BX(I)м1+╬ЮЕ BY(I)▓Y з BY(I)│BY(I)м1+ьиЕ BX(I)┤X з BX(I)│BX(I)л1,
▓Е BY(I)┤Y з BY(I)│BY(I)л1,#╝XT│BD(BX(I),BY(I))л1,?╞И XT Бе 810,720,820,820,M╨А P│1 е 3,W┌┐ 1,0,kфА XT│1е150:Л XT,uю┐ 1,1,Л°А XT│1 е 150:Л XT,УЛ P,Ь╔ T$,╩З "GUESS WHAT IS FOR DINNER":З "TONIGHT?",╓ Б е 880-**BD(BX(I),BY(I))│3:J│1:┼(BX(I)н16,BY(I)н16)м(BX(I)н16л10,BY(I)н16л10),MN:Б е 830-64BX(I)│0->>Л I-NHЕ J│1 з 390-ЯR╔ W$:З "YOU LUCKY HOBBIT!":З "YOU HAVE CLEARED THE FOREST OF  ORCS!":Б е 880-█\╔ T$:Ю:З"SILLY HOBBIT YOU RAN INTO A     TREE!":Б е 880.f╔ T$:Ю:З"YOU RAN SMACK DAB INTO AN ORC!".&pЗ:З"SCORE FOR THE ROUND:".OzNJ│0:А I│1 е NO:Е BX(I)┤▓0 з NJ│NJл1.WДЛ I.БОЗ:З ═ F$;NOмNJ;:З " # OF ORCS KILLED".█ШЕ NJ│0 з З " 10 PTS FOR CLEARING THE FOREST":RS│10::Д RS│м5:З " -5 FOR GETTING EATEN".чвЗ "---"/мRS│RSлNOмNJ:З ═ F$;RS;:З " TOTAL FOR ROUND";NRл1/)╢TS│TSлRS/f└NR│NRл1:Е NR│3 з 990::Д З "YOUR SCORE SO FAR IS ";TS;"."/З╩З"HIT ANY KEY TO CONTINUE.";/ж╘A$│ Т:Е A$┤▓"" з 70 :Д 980/╩▐З "YOUR FINAL SCORE IS ";TS;"."/ЁшЗ:З "HIT ANY KEY TO PLAY AGAIN.";0ЄA$│ Т:Е A$┤▓"" з 40 :Д 10100№F$│"###"0OW$│"T2O3L16CP16O2L32GP32GP32L8AGP8L16BP16O3C"0yT$│"T5L4FFL8FL4FG+L8GL4GL8FL4FL8EL2F"0ЗXT│ Д( Я)0┼$М MN(9,9),TR(9,9),HB(9,9),BL(9,9),BD(15,11),BX(25),BY(25)0╧.╚ 1,10╫8╝ 30сB┐ 0,10ыL┴ 1,30 V╗ (4,0)м(6,0),╜1`╗ (2,3)м(8,3),╜1'j╗ (2,5)м(8,5),╜1:t╗(2,7)м(8,7),╜1N~╗(0,9)м(10,9),╜1[И╜(4,5,4)1hТ╜(9,5,4)1uЬ╜(7,7,4)1Лж─(0,0)м(10,10),MN1У░╝ 31Э║┴ 6,31░─╗(4,0)м(6,0),╜1├╬╗(2,2)м(8,2),╜1╓╪╗(2,4)м(8,4),╜1щт╗(2,6)м(8,6),╜1№ьА Y│8 е 10 й 22
ЎА X│4 е 62╜(X,Y,4)2!
Л X,Y27─(0,0)м(10,10),TR2?╝ 32U(─(0,0)м(10,10),BL2l2╜ (4,4,4):╜(8,4,4)2В<─(0,0)м(10,10),HB2йFА I│0 е 15:BD(I,0)│2:BD(I,11)│2:ЛI2╨PА I│1 е 10:BD(0,I)│2:BD(15,I)│2:ЛI2┌Z╚ 1,32шd╝ 3:┴ 1,52Єn┐ 1,13x╗ (16,36)м(16,144),╜3$В╗ (50,36)м(50,144),╜3<М╗ (16,90)м(50,90),╜3MЦ┬(78,124),203gа╗(104,36)м(104,144),╜3yк┬(124,124),203У┤╗(150,36)м(150,144),╜3е╛┬(170,124),203└╚╗(199,104)м(199,144),╜3█╥╗ (208,36)м(208,144),╜3ї▄╗ (190,70)м(226,70),╜4ц┼ (194,88)м(204,98),HB4ЁР50,144),╜3<М╗ (16,90)м(50,90),╜3MЦ┬(78,124),203gа╗(104,36)м(104,144),╜3yк┬(124,124),203У┤╗(150,36)м(150,144),╜3е╛┬(170,124),203└╚╗(199,104)м(199,144),╜3█╥╗ (208,36)м(208,144),╜3ї▄╗ (190,70)м(226,70),╜4ц┼ (19                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╘&
ZБе 1000&d:ГDRAW&5nМ A(1),B(3),C(4),D(4): Ю&Lx╚ 4,1: ╝: ╚ 4,5: ╝&hВ╞"BM12,10;D2R5F1R1H1R4"&|М╞"BM12,10;F1R7"&УЦ╗(20,11)м(22,12),╜&йа╞"BM16,11;H1R1F1"&╕к┬(12,23),1&у┤╞"BM11,29;L1U4E1F2D7L1NU4L1U7E2F1D4L1"'╛┬(13,46),3,,1,.5,0:┬(15,50),5,,1,.65,.85'@╚┬(13,50),5,,1,.65,.85:┬(11,50),5,,1,.65,.85'O╥┬(13,56),1'z▄╞"BM12,62;L1U4E1F2D7L1NU4L1U7E2F1D4L1"'Сц╗(10,46)м(11,55),╜'иЁ╗(16,46)м(15,55),╜'╣·├(13,45),1,1'├
╚ 4,1'ц
╞"BM1,150;E25R50F10R114E15R40"(

╗(110,145)м(130,145),╜(
"╗(119,140)м(119,150),╜(&
,┐ 1,0(:
6А W│1 е 500:Л W(O
Р:ГAIRPLANE ALONE(c
ЪА X│8 е 100 й 4(m
д╚ 4,5(Е
о─(8,10)м(22,13),A,G(Ц
╕╚ 4,1: ┐ 1,0(░
┬┼(X,10)м(Xл14,13),A,╜(╕
╠Л X(╥
Ї:ГPLANE AND FREE-FALL(█
■Y│10(ёА X│104 е 160 й 4(√╚ 4,5)─(8,10)м(22,13),A,G),&─(10,18)м(14,33),B,G)=0╚ 4,1: ┐ 1,0)W:┼(X,10)м(Xл14,13),A,╜)uD┼(116,Yл2)м(120,Yл27),B,╜)NY│Yл4)ЗXЛ X)Ш╝:ГOPEN CHUTE)б╞Y│58)╖╨А X│162 е 220 й 2)┴┌╚ 4,5)┘ф─(8,10)м(22,13),A,G)Єю─(10,40)м(16,66),C,G*°╚ 4,1: ┐ 1,0*┼(X,10)м(Xл14,13),A,╜*;┼(116,Yл2)м(122,Yл28),C,╜*EY│Yл2*M Л X*WД:ГEND*rО─(10,170)м(22,182),D,G*ПШ┼(116,120)м(122,132),D,╜*кв┼(224,10)м(236,13),D,╜*╡мБе 940*╗╢К*╤ш└ 8: Х 50: Бе 110A,G)Єю─(10,40)м(16,66),C,G*°╚ 4,1: ┐                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 hЛ"
:Г==========================C:Г==NON GRAPHICS ADVENTURE==d:Г===FOR "THE RAINBOW"======Е:Г=========CONTEST==========ж:Г=====BY GREGORY CLARK=====╟:Г=====122 MALE AVENUE======ш:Г=SYRACUSE,NEW YORK,13219==	:Г======315-487-8406========*	:Г===WRITTEN AUGUST 1982====L
:Г=WITH MUCH HELP FROM KEVIN=n:Г**PCLEAR 1 BEFORE LOADING**Р:Г*FOR 32K MEMORY-EXT BASIC**▓
:Г===========================ёЗ:Ю:З@228,"SIR RANDOLF OF THE MOORS":АX│1е200:╔"L200DDA":Л#Ю:З:З:З:З:З;"-----------SKILL LEVEL---------"NЗ:З;">>>>SELECT DIGIT FROM 0 TO 9<<<<"kЗ:З;"ZERO (0) = EASIEST"ЖЗ;"NINE (9) = HARDEST"аЗ:З:Й"ENTER CHOICE";QнQ1│ Б(Q)
Е Q1▓9 ▒ Q1┤0 з Ю:З;"    INPUT MUST BE AN INTEGER           IN RANGE OF 0 TO 9":а100,3:Бе15)Ю:З@232,"JUST A MOMENT"JМ A$(10),B$(30),C$(40),V(12)~HV│3:VV│5:LV│3:N│1:S│1:E│1:W│1:U│1:D│1:Y│1:WA│1пRB│1:FT│1:SW│1:DA│1:RU│5:DR│1:D3│1:D4│1:ST│1╧АX│1е10:НA$(X):╔"L200;D":ЛXюАX│1е30:НB$(X):╔"L200;C":ЛАX│1е40:НC$(X):╔"L200;F":ЛX:ЮБе304vЗ;" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%":╔"L150;FP10F":Й"WHAT DO YOU WANT TO DO          ";D$│Е DI│1 ░ WA│1 ░ HV│1 ░ VV│1 з TJ│ Я:Е TJм1000 ▓ TI з 281╞ ЕD$│"VIEW"з304╪!ЕD$│"HELP"з50"Е Y│9 з WJ│WJл1:Е WJ▓15м(Q1л1) з324#ЕD$│"N"з287 $ЕD$│"S"з2870%ЕD$│"E"з287@&ЕD$│"W"з287P'ЕD$│"U"з287`(ЕD$│"D"з287r)ЕD$│"DIVE"з45Д*ЕD$│"LIST"з52Я+╔"L150;G;P10;G":Й"";E$п,G$│ О(E$,4)╗-АA│1е30┌.F$│ О(D$,4):Е F$│B$(A) з49с/ЛA0З;"I CANNOT ";D$:╔"L200;DP10CP10DP6":Бе30С1И A Бе 67,104,107,109,111,113,122,125,128,136,138,141,168,176,180,187,190,219,221,226,232,240,243,249,260,268,270,275,277,283к2:ГSTART HELP SECTION╖3З;"HELP"┬4:ГLIST╪5З;"I AM CARRYING"Ё6Е SW│1 зЗ;"A SWORD"	7Е DA│1 зЗ;"A DAGGER"(8Е RB│1 зЗ;"THE MAGIC RUBY"K9Е OC│1 зЗ"THE OCTAGON OF GOLD"o:Е HE│1 зЗ"THE HEXAGON OF GLASS"Ф;Е NE│1 зЗ"THE PENTAGON NECKLACE"н<Е LA│1 зЗ"THE LANCE"╦=Е KE│1 зЗ"THE KEY OF GOLDЁ>Е RI│1 зЗ"THE INVISIBILITY RING"?Е SK│1 зЗ"THE SACK OF MARBLES"3@Е FT│1 зЗ"FLINT AND TINDER"JAБе30::ГEND OF LISTЖBЗ;"SORRY!!-NO HELP FOR YOU NOW":Бе30::ГEND HELP SECTIONСC:ГLOOK╩DЕ LV│1 ░ VV│1 ░ HV│1 ░ WA│0 ░ D1│0 ░ SL│0 з 69 :Д 72EЕG$│C$(9) з З;"IT'S JUST A SLIPPERY,FOUL SMELL-ING,GREENISH SLIME":Бе30vFЕG$│C$(10) з З;"THERE APPEARS TO BE AN OUTLINE  OF WHAT MAY BE A DOOR UNDER THE SLIME":Бе30┐GЕG$│C$(11) зЗ;"THERE'S TOO MUCH SLIME COVERING IT TO TELL MUCH":Бе30ЎHЕ LV│1 ░ VV│1 ░ HV│1 ░ WA│0 ░ D1│0 ░ SL│1 з 73:Д76/IЕ G$│C$(11) зЗ;"IT'S A DOOR WITH A SMALL RING.":Бе30eJЕG$│C$(10) зЗ;"THE OUTLINE IS MORE DEFINATE":Бе30еKЕG$│C$(12) зЗ;"IT'S JUST A RING ABOUT 3 INCHES ACROSS":Бе30LЕG$│C$(14) ░ VV│4 ░ HV│1 ░ LV│4 зЗ"THE STAIRS THAT ARE THERE ARE   COVERED WITH DUST":Бе30%MЕ LV│2 ░ HV│3 ░ VV│3 з78:Д84jNЕG$│C$(16) зЗ"I SEE NOTHING MORE THAN I HAVE  ALREADY TOLD":Бе30оOЕG$│C$(17) зЗ"THEY ARE COVERED WITH MANY LINESAND SHAPES.":Бе30ъPЕG$│C$(18) ░ DW│0 зЗ"JUST DRAWERS-THEY ARE CLOSED":Бе30 QЕG$│C$(18) зЗ"IT CONTAINS A RING.":Бе30 ∙RЕG$│C$(6) ░ DW│1 зЗ"FROM WHAT THE PICTURES ENGRAVED ON IT SHOW,I THINK THE WEARER OFIT IS NOT ABLE TO BE SEEN,BUT   IT ALSO COULD MEAN THAT IF IT ISPUT ON,THE WEARER IS KILLED. ONETHING FOR SURE-IT ONLY WORKS ONETIME":Бе30!ХSЕG$│C$(19) ▒ G$│C$(20) зЗ"ALL I CAN SAY IS THERE ARE MANY OF THEM AND I WOULD HAVE NO WAY OF FIGURING OUT WHAT MAY BE IN  ANY SINGLE ONE OF THEM.":Бе30!╖TЕ LV│4 ░ VV│3 ░ HV│3 з85 :Д87!єUЕG$│C$(23) ░ ST│1 зЗ"JUST A STATUE MADE OF QUARTZ":Бе30">VЕ G$│C$(23) зЗ;"I SEE A KEY-IT MUST HAVE BEEN   UNDER THE STATUE":Бе30"╨WЕ G$│C$(24) ░ ST│0 зЗ"IT IS MADE OF GOLD.THE HANDLE ISSHAPED AS A CLOVER LEAF AND THE OTHER END IS FORMED INTO THE    SHAPE OF A CROSS.":Бе30#XЕG$│C$(26) ░ LV│4 ░ VV│3 ░ HV│5 з З"ONE PLANK SEEMS TO BE LOOSE":Бе30#oYЕ LV│5 ░ HV│3 ░ VV│1 ░ G$│C$(31) зЗ"THERE ARE THREE HOLES IN THE    BLOCK.":Бе30#ЬZЕ G$│C$(32) ░ LV│3 ░ VV│4 ░ HV│2 з91:Д94#╔[Е CH│0 зЗ"IT'S JUST A SMALL CHEST.":Бе30$\Е CH│1 ░ HE│0 зЗ"THERE IS A HEXAGON OF GLASS IN  THE CHEST.":Бе30$=]Е CH│1 ░ HE│1 зЗ"THE CHEST IS EMPTY":Бе30$░^Е G$│C$(35) ░ LA│1 зЗ"IT IS MADE OF A WOODEN SHAFT    ABOUT TWO ARM-SPANS LONG WITH A SHARP METAL POINT.":Бе30%_Е G$│C$(36) ░ LV│5 ░ VV│1 ░ HV│3 зЗ"THERE ARE THREE HOLES-HEXAGON,  OCTAGON AND PENTAGON IN SHAPE.":Бе30%о`Е LV│5 ░ HV│3 ░ VV│2 ░ G$│C$(37) зЗ"THE BODY OF BLANDOR LIES UPON   THE ALTAR.YOUR QUEST IS FINISHED":З:З"CONGRATULATIONS!!":АX│1е5000:Л:Ю:К&>aЕ G$│C$(25) ░ LV│4 ░ HV│4 ░ VV│3 з З"IT IS SOLID METAL-THE SURFACE ISFEATURELESS EXCEPT FOR A SMALL  CROSS-SHAPED HOLE IN THE CENTER.":Бе30&ЭbЕ Y│6 ░ G$│C$(38) зЗ"THEY ARE ALL SHARP-EXCEPT ONE-  THAT PARTICULAR SPIKE IS BLUNT.":Бе30&їcЕ G$│C$(40) ░ SK│1 зЗ"JUST A WORN,BROWN LEATHER SACK  WITH A DRAW-STRING TIE.":Бе30'6dЕ LV│3 ░ E$│"MOAT" зЗ"THE CROCODILES LOOK VERY HUNGRY.":Бе30'leЕ Y│3 ░ G$│C$(7) зЗ"I DON'T REALLY WANT TO-":Бе30'╒fЕ E$│"GOBLINS" зЗ"EACH ONE HAS A SWORD IN ONE HANDAND THE OTHER HAND IS EXTENDED  OUT-PALM UP.":Бе30' gЗ;"I DON'T SEE ANYTHING SPECIAL":Бе30(
h:ГSLAY(:iЕ E$│"DRAGON" зЗ"YOU MUST BE KIDDING!":Бе30(NjЗ"I CAN'T":Бе30(Yk:ГJUMP(~lЗ;"I CAN'T JUMP OVER THAT!":Бе30(Лm:ГLISTEN(┴nЗ;"I DON'T HEAR ANYTHING OUT OF THEORDINARY":Бе30(╦o:ГSAY)
pЗ;"I SAID '";E$;"'":З;"BUT NOTHING HAPPENED":Бе30)q:ГRUB)RrЕ RU┤1 з З;"IT IS POWERLESS-YOU HAVE USED   ALL FIVE CHARGES":Бе30)msЕ LV│1 ░ Y│3 з116:Д118)ЎtЕ G$│C$(5) з З;"THE RUBY IS CHANGING COLORS AND GIVING OFF A HUMMING SOUND.THE  SCORPIANS ARE CHANGING COLORS   ALONG WITH THE GEM."*АuЗ;"SUDDENLY AS THEY CAME THEY HAVE TURNED INTO HARMLESS ANTS AND   SCURRIED OFF INTO THE CRACKS IN THE WALLS.":Y│1:B3│1:RU│RUм1:Бе304*¤vЕ Y│4 ░ G$│C$(5) зЗ"THE RUBY IS HUMMING AND CHANGINGCOLORS-":АX│1е1000:Л:З"THE FLAMES HAVE GONE!":Y│1:B4│1:RU│RUм1:Бе304+zwЕY│7 ░ G$│C$(5) зЗ"THE RUBY IS GIVING OFF A HUMING SOUND-":АX│1е1000:Л:З"THERE,I CAN MOVE AGAIN.":Y│1:B7│1:RU│RUм1:Бе304+УxЕ G$│C$(5) з RU│RUм1+╫yЗ;"I TRIED - BUT I'M AFRAID NOTHINGWAS ACCOMPLISHED BY IT":Бе30+тz:ГTURN,Z{Е G$│C$(30) ░ MI│0 ░ LV│3 ░ VV│3 ░ HV│4 зЗ"IT'S TURNING-":З"THE WALL NEXT TO THE MIRROR IS  OPENING.":T│0:O│5:Бе447,x|З;"NOTHING HAPPENED":Бе30,Г}:ГLIFT,ё~Е G$│C$(27) ░ LV│4 ░ VV│3 ░ HV│5 ░ OC│0 зЗ"THERE IS AN OCTAGON SHAPED PIECEOF GOLD UNDER THE PLANK.":Бе30-З;"CAN'T":Бе30-А:ГCUT-.Б╔"L200;DDA":Й"WITH WHAT";H$-pВЕ H$│"SWORD" ▒ H$│"DAGGER" з 131 :Д З;"NOTHING HAPPENED":Бе30-ЦГЕ LV│1 ░ Y│2 ░ G$│C$(1) з133:Д132-╝ДЕ LV│1 ░ Y│2 ░ G$│C$(2) з133:Д134- ЕЗ;"IT'S NOT WORKING-THE ";H$:З;"IS NOW CAUGHT IN THE WEB":Бе30.Ж:Г.#ЗЗ"NOTHING HAPPENED":Бе30..И:ГSTAB.fЙЗ;"I STABBED THE ";E$:З;"BUT NOTHING HAPPENED":Бе30.rК:ГCLIMB.√ЛЕ Y│5 ░ G$│C$(39) зЗ"THE BARS MUST STAY IN PLACE AS  LONG AS THERE IS WEIGHT UPON THEFLOOR! THE BARS HAVE GONE BACK.":B5│1:Y│1:Бе304/МЗ;"I CAN'T CLIMB IT":Бе30/#Н:ГGET/VОЕ VV│1 ░ HV│1 ░ LV│1 ░ WA│1 з З;"I CAN'T":Бе30/fПW1│VVнHVнLV/аРЕ G$│C$(3) ░ V1│W1 ░ SW│3 з З;"I'VE GOT IT":SW│1:Бе30/┌СЕ G$│C$(4) ░ V2│W1 ░ DA│3 з З;"I'VE GOT IT":DA│1:Бе300ТЕ G$│C$(5) ░ V3│W1 ░ RB│3 з З;"I'VE GOT IT":RB│1:Бе300OУЕ G$│C$(12) ░ V4│W1 ░ FT│3 з З;"I'VE GOT IT":FT│1:Бе300ЙФЕ G$│C$(6) ░ V5│W1 ░ RI│3 з З;"I'VE GOT IT":RI│1:Бе300─ХЕ G$│C$(13) ░ V6│W1 ░ NE│3 з З;"I'VE GOT IT":NE│1:Бе300¤ЦЕ G$│C$(40) ░ V7│W1 ░ SK│3 зЗ"I'VE GOT IT":SK│1:Бе3016ЧЕ G$│C$(35) ░ V8│W1 ░ LA│3 зЗ"I'VE GOT IT":LA│1:Бе301oШЕ G$│C$(33) ░ V9│W1 ░ HE│3 зЗ"I'VE GOT IT":HE│1:Бе301йЩЕ G$│C$(21) ░ V10│W1 ░ NE│3 зЗ"I'VE GOT IT":NE│1:Бе301уЪЕ G$│C$(24) ░ V11│W1 ░ KE│3 зЗ"I'VE GOT IT":KE│1:Бе302ЫЕ G$│C$(28) ░ V12│W1 ░ OC│3 зЗ"I'VE GOT IT":OC│1:Бе302kЬЕG$│C$(15) ░ VV│4 ░ HV│1 ░ LV│4 зЗ"I'VE GOT A HANDFULL OF DUST":DU│1:Бе302╛ЭЕ G$│C$(24) ░ KE│0 ░ LV│4 ░ VV│3 ░ HV│3 ░ ST│0 зЗ"I'VE GOT THE KEY.":KE│1:Бе303(ЮЕ G$│C$(22) ░ ST│1 ░ LV│4 ░ VV│3 ░ HV│3 зЗ"OW! SOMETHING PRICKED ME-":АX│1е1500:Л:Ю(0):АX│1е500:Л:Ю:К3]ЯЕ G$│C$(28) ░ OC│1 зЗ"I'VE ALREADY GOT IT.":Бе303жаЕ G$│C$(28) ░ LV│4 ░ VV│3 ░ HV│5 зЗ"I'VE GOT THE OCTAGON.":OC│1:Бе3040бЕG$│C$(6) ░ LV│2 ░ VV│3 ░ HV│3 ░ DW│1 зЗ"I PUT THE RING ON MY FINGER. I  GUESS THAT MEANS I'M INVISIBLE- BUT FOR HOW LONG?":RI│1:Бе304}вЕ G$│C$(35) ░ LV│3 ░ VV│3 ░ HV│2 ░ LA│0 зЗ"I'VE GOT THE LANCE":LA│1:Бе304▌гЕ G$│C$(33) ░ HE│0 ░ CH│1 ░ LV│3 ░ HV│2 ░ VV│4 зЗ"I'VE GOT THE HEXAGON OF GLASS.":HE│1:Бе305
дЕ LV│2 ░ VV│5 ░ HV│5 ░ G$│C$(40) з 165:Д16755еЕ SK│1 зЗ"I'VE ALREADY GOT IT":Бе305`жЕ SK│0 зЗ"I'VE GOT THE SACK":SK│1:Бе305БзЗ;"I CAN'T GET THE ";E$:Бе305Ои:ГUNLOCK5╕йЗ;"UNLOCK THE ";E$:╗Й"WITH WHAT? ";M$5чкЕ G$│C$(25) ░ LV│4 ░ HV│4 ░ VV│3 з171:Д1746лЕ D3│0 зЗ"IT'S ALREADY OPEN.":Бе306CмЕ M$│"KEY" ░ KE│0 зЗ"I DON'T HAVE THE KEY.":Бе306СнЕ M$│"KEY" ░ KE│1 зЗ"IT WORKED! THE DOOR SWUNG OPEN.":D3│0:T│0:O│10:Бе4476Шо:Г6╬пЗ;"THE ";E$;" WON'T UNLOCK":З;"WITH THE ";M$:Бе306┌░:ГSTAND7A▒Е G$│C$(21) ░ LV│2 ░ VV│5 ░ HV│2 ░ NE│1 зЗ"EVERYTHING IS FUZZY-":АX│1е1500:ЛX:LV│4:HV│1:VV│2:Бе3047з▓Е G$│C$(21) ░ LV│4 ░ HV│1 ░ VV│2 ░ NE│1 зЗ"EVERYTHING IS FUZZY-":АX│1е1500:Л:LV│2:HV│2:VV│5:Бе3047╗│З"I CAN'T":Бе307╞┤:ГPULL8Ф╡Е DI│1 ░ G$│C$(8) з З;"IT CAME LOOSE FROM THE BOTTOM.  THE WATER IS NOW SWIRLING AROUNDAND AROUND! IT'S ALL GOING OUT  OF A SORT OF DRAIN IN THE FLOOR.THERE! IT'S ALL GONE-I'M ON THE FLOOR OF THE PIT."9;╢Е DI│1 ░ G$│C$(8) з З;"I SEEM TO BE STANDING ON A PILE OF RUBBLE. IT'S TOO DARK TO TELLWHAT IT IS,BUT FROM THE SMELL I DON'T CARE TO KNOW":DI│0:WA│0:T│0:O│0:Бе4479e╖Е VV│1 ░ HV│1 ░ LV│1 ░ WA│0 з184:Д1859я╕Е D1│0 ░ G$│C$(6) з З;"IT'S VERY HEAVY AND THE HINGES  ARE RUSTED,BUT I WAS ABLE TO GETIT OPEN ENOUGH TO GET OUT.":D1│1:T│0:O│2:Бе4479Ў╣:Г:║З;"I CAN'T PULL IT":Бе30:╗:ГPUSH:В╝Е Y│6 ░ G$│C$(38) зЗ"THE WALL IS MOVING BACK! AND THEDOORWAYS HAVE RE-APPEARED.":B6│1:Y│1:Бе304:Я╜З;"I CAN'T PUSH IT":Бе30:к╛:ГDROP:∙┐Е G$│C$(5) зЗ"I WON'T DROP THE RUBY-HERMAN    TOLD ME I MAY NEED IT.":Бе30;└Е G$│C$(3) ░ SW│1 з SW│2:Бе205;?┴Е G$│C$(4) ░ DA│1 з DA│2:Бе205;b┬Е G$│C$(5) ░ RB│1 з RB│2:Бе205;Е├Е G$│C$(6) ░ RI│1 з RI│2:Бе205;й─Е G$│C$(12) ░ FT│1 з FT│2:Бе205;═┼Е G$│C$(13) ░ NE│1 з NE│2:Бе205;ё╞Е G$│C$(40) ░ SK│1 з SK│2:Бе205<╟Е G$│C$(35) ░ LA│1 з LA│2:Бе205<9╚Е G$│C$(33) ░ HE│1 з HE│2:Бе205<]╔Е G$│C$(21) ░ NE│1 з NE│2:Бе205<Б╩Е G$│C$(24) ░ KE│1 з KE│2:Бе205<е╦Е G$│C$(28) ░ OC│1 з OC│2:Бе205<┬╠З;"I DON'T HAVE IT":Бе30=d═З;"I DROPPED IT-I HOPE YOU REMEMBERWHERE IT IS I DROPPED IT.       THE FLOORS ARE IN SHADOW AND I  MAY NOT BE ABLE TO SEE IT IF I  COME BACK LOOKING FOR IT."=З╬Е SW│2 з V1│VVнHVнLV:SW│3:Бе30=к╧Е DA│2 з V2│VVнHVнLV:DA│3:Бе30=═╨Е RB│2 з V3│VVнHVнLV:RB│3:Бе30=Ё╤Е FT│2 з V4│VVнHVнLV:FT│3:Бе30>╥Е RI│2 з V5│VVнHVнLV:RI│3:Бе30>6╙Е NE│2 з V6│VVнHVнLV:NE│3:Бе30>Y╘Е SK│2 з V7│VVнHVнLV:SK│3:Бе30>|╒Е LA│2 з V8│VVнHVнLV:LA│3:Бе30>Я╓Е HE│2 з V9│VVнHVнLV:HE│3:Бе30>├╫Е NE│2 з V10│VVнHVнLV:NE│3:Бе30>ч╪Е KE│2 з V11│VVнHVнLV:KE│3:Бе30?┘Е OC│2 з V12│VVнHVнLV:OC│3:Бе30?)┌З;"I HAVEN'T GOT IT":Бе30?5█:ГCARRY?U▄З;"I CAN'T CARRY THAT":Бе30?a▌:ГBRIBE?l▐RR$│""@8▀Е LV│5 ░ Y│9 ░ SK│1 ░  О(E$,5)│"GUARD" з Й"WITH WHAT";RR$:Е RR$│"MARBLES" зЗ"THAT SATISFIED THEM.THEY WENT   BACK DOWN THE HALL ARGUING OVER WHICH ONE WOULD GET THE BLUE    TIGER-EYE.":Y│1:B9│1:Бе304@VрЕRR$│""з Й"WITH WHAT";RR$@АсЗ"I GUESS THEY DON'T WANT THAT!":Бе30@Мт:ГBREAK@иуЕ LV│1 ░ Y│2 з 228:Д230@═фЕ G$│C$(1) ▒ G$│C$(2) з 229:Д230@°хЗ;"IT'S MUCH TOO STRONG TO BREAK":Бе30@ ц:ГA>чЗ;"I TRIED TO BREAK THE ";E$:З"BUT NOTHING HAPPENED.":Бе30AHш:ГHITAoщЗ;"HIT THE ";E$:╗Й"WITH WHAT? ";J$AЯъЕ G$│C$(22) ░ HV│3 ░ VV│3 ░ LV│4 з 235:Д238A╦ыЕ J$│"DAGGER" ▒ J$│"SWORD" з 236 :Д 238B@ьЕ ST│1 зЗ"THE STATUE SMASHED INTO MANY    PIECES,A MECHANISM WITH A NEEDLEATTACHED FELL TO THE FLOOR.":ST│0:Бе30BkэЗ"THE STATUE IS ALREADY SMASHED.":Бе30Brю:ГB╝яЗ;"I HIT THE ";E$:З;"WITH THE ";J$:З;"BUT IT DIDN'T DO ANYTHING":Бе30B╞Ё:ГDIGBьёЗ"DIG THE ";E$:╗Й"WITH WHAT? ";K$C?ЄЗ;"I TRIED TO DIG THE ";E$:З;"WITH THE ";K$:З;"BUT I WAS UNABLE TO DO IT":Бе30CJє:ГBURNCjЇ╔"L200;DDA":Й"WITH WHAT";I$CПїЕI$│"FLINT AND TINDER" з246:Д248CкЎЕ LV│1 ░ Y│2 з247:Д248CўўЕ G$│C$(1) ▒ G$│C$(2) з З;" IT ALL BURNED UP IN A FLASH!":B2│1:Y│1:Бе304D+°З"USING THE ";L$:З;"THE ";E$;" WON'T BURN":Бе30D6∙:ГOPENE·Е G$│C$(18) ░ LV│2 ░ HV│3 ░ VV│3 з Й"WHICH DRAWER? TOP OR BOTTOM     ";DW$:ЕDW$│"BOTTOM"зЗ"THERE IS A YELLOW GAS COMING OUTFROM THE DRAWER. I CAN'T SEE OR HEAR ANYTHING!":АX│1е3000:Л:Ю(0):АX│1е500:Л:Ю:КE5√Е DW$│"TOP" зЗ;"IT'S OPEN":DW│1:DW$│"":Бе30Ed№Е G$│C$(32) ░ LV│3 ░ HV│2 ░ VV│4 з253:Д258EП¤Й"WITH WHAT";ZX$:ЕZX$│"LANCE"з254:Д256F)■Е LA│1 зЗ"JUST AS THE TOP OF THE CHEST    OPENED A LARGE BLACK SPIDER CAMEOUT AND DISAPPEARED INTO THE    CLUTTER IN THE REAR OF THE ROOM.":CH│1:Бе30FJ З"I DON'T HAVE A LANCE":Бе30Fф
Е ZX$│"SWORD" ▒ ZX$│"DAGGER" ▒ ZX$│"HAND" зЗ"A BLACK SPIDER JUMPED FROM THE  CHEST AND BIT ME.IT'S HARD TO   BREATHE":АX│1е2000:Л:Ю(0):АX│1е500:Л:Ю:КF■

З"IT WON'T OPEN":Бе30GG
Е SK│1 ░ G$│C$(40) зЗ"IT CONTAINS ONLY A FEW WORTHLESSMARBLES.":Бе30Gi
З;"I CAN'T OPEN THE ";E$:Бе30Gs
:ГPUTGД
Й"WHERE";XX$G╡
Е XX$│"HOLE" ░ HE│1 ░ OC│1 ░ NE│1 з 266:Д263Gь
Е XX$│"HOLE" ░ D4│1 ░ LV│5 ░ VV│1 ░ HV│3 з264:Д267H
Е NE│1 ▒ OC│1 ▒ HE│1 з265:Д267H_
	Е G$│C$(33) ▒ G$│C$(21) ▒ G$│C$(28) зЗ"IT FIT OK,BUT NOTHING HAPPENED":Бе30Hъ

Е G$│C$(33) ▒ G$│C$(21) ▒ G$│C$(28) з З"I PUT ALL THREE IN THE CORRECT  PLACES AND A SECTION OF WALL    SLID OPEN.":T│0:O│8:D4│0:Бе447H■
З"I CAN'T":Бе30I

:ГSMELLI-

З;"I JUST SMELL A(N) ";E$:Бе30I<
:ГSPRINKLEIg
З;"SPRINKLE THE ";E$:╗ Й"ON WHAT? ";O$J@
Е TS│0 ░ DU│1 ░ VV│4 ░ HV│1 ░ LV│4 ░ G$│C$(15) ░ O$│"STAIRS" з З"AS THE DUST HITS THE MISSING    STAIRS IT SPARKLES-OUTLINING THEWHOLE STAIRWAY.IN FACT NOW THE  STAIRWAY IS COMPLETELY VISABLE.":T│1:O│1:TS│1:Бе447Jy
Е O$│"STAIRS" ░ DU│0 зЗ"I DON'T HAVE ANY DUST.":Бе30J╛
З;"I SPRINKLED THE ";E$:З;"ON THE ";O$:З;"NOTHING HAPPENED":Бе30J╔
:ГKICKJ▄
З"OUCH!!":Бе30Jч
:ГDIVEJЎ
Е LV▓1з282K┘
Е WA│1 ░ VV│1 ░ HV│1 з З;"THE COLD WATER IS ABOUT 15 FEET DEEP. AT THE BOTTOM IS A LOT OF STUFF,BUT IT IS TOO DARK TO SEE WHAT IT IS. I ONLY RECOGNIZE A  PIECE OF CHAIN. PLEASE HURRY-I  CAN'T HOLD MY BREATH TOO LONG!":DI│1K 
Е WA│1 ░ VV│1 ░ HV│1 з TI│ Я:Бе30Lt
Е WA│1 ░ VV│1 ░ HV│1 зЗ;"YOU TOOK TOO LONG-I COULDN'T    STAY DOWN ANY LONGER-I'M BACK ONTHE SURFACE.":DI│0:Бе30LЙ
З;"I CAN'T":Бе30LФ
:ГWIPEM
Е VV│1 ░ WA│0 ░ HV│1 ░ D1│0 ░ LV│1 ░ G$│C$(9) зЗ;"IT'S NOT EXACTLY FUN BUT I'VE   GOT MOST OF IT OFF":SL│1:Бе30M
З;"I CAN'T":Бе30Mi
З;"I MUST HAVE MIS-UNDERSTOOD--    PLEASE RE-ENTER COMMAND":Бе30::ГTRAPMЕ
ЕD$│"N" ░ N│1 з VV│VVм1Mб
 ЕD$│"S" ░ S│1 з VV│VVл1M╢
!ЕVV▓5зVV│5:Бе303M╦
"ЕVV┤1зVV│1:Бе303MЄ
#Е D$│"N" ░ N│0 ▒ D$│"S" ░ S│0 з303N
$ЕD$│"E" ░ E│1 з HV│HVл1N*
%ЕD$│"W" ░ W│1 з HV│HVм1N?
&ЕHV┤1зHV│1:Бе303NT
'ЕHV▓5зHV│5:Бе303N{
(Е D$│"E" ░ E│0 ▒ D$│"W" ░ W│0 з303NЧ
)ЕD$│"U" ░ U│1 з LV│LVл1N│
*ЕD$│"D" ░ D│1 з LV│LVм1N╚
+ЕLV┤1зLV│1:Бе303N▌
,ЕLV▓5зLV│5:Бе303O
-Е D$│"U" ░ U│0 ▒ D$│"D" ░ D│0 з303O
.Бе304OF
/З;"I CAN'T MOVE IN THAT DIRECTION":╔"L10;AP10":Бе30Ol
0Бж305:И LV Бе 326,358,381,417,431OМ
1:ГVARIABLE SCENERIO ROUTINEO╗
2И Y Бе 307,314,316,317,318,319,320,321,322O─
3Q6│0O╤
4ЕQ1│0з РOц
5ЕLV│1 ░ Q3┤4 з РO¤
6Q4│ Д(100м(Q1н10))P
7Q5│ Б(100м(Q1н10.3))P'
8Е Q4┤│Q5 з РP0
9Q6│1PL
::ГMAZE LEVEL VAR SUBROUQ&
;Е LV│1 ░ VV▓1 ░ B2│0 з З;"A WEB OF STICKY STRING-LIKE     STRANDS FELL FROM THE CEILING   OF THE CORRIDOR. I CAN'T MOVE   VERY WELL-THE MORE I STRUGGLE   AGAINST THEM-THE TIGHTER THEY   BIND ME.":T│0:O│0:Y│2:Бе447Q°
<Е LV│1 ░ VV▓1 ░ B3│0з З;"SUDDENLY THE AIR IS RESOUNDING  WITH CLICKING.LITERALLY COVERINGTHE FLOOR ARE THOUSANDS OF MAUVESCORPIONS.THEY ARE BLOCKING ALL ESCAPE AND ARE SLOWLY CLOSING IN.":T│0:O│0:Y│3:Бе447Rr
=Е LV│2 ░ HA│1 ░ B4│0 зЗ"THERE ARE FLAMES ALL AROUND ME!!A RING OF FIRE COMPLETELY SUR-  ROUNDS ME!":T│0:O│0:Y│4:Бе447Rъ
>Е LV│4 ░ HA│1 ░ B5│0 зЗ"IRON BARS HAVE COME DOWN FROM   THE CEILING!! ALL THE EXITS ARE BLOCKED.":T│0:O│0:Y│5:Бе447S│
?Е LV│3 ░ HA│1 ░ B6│0 зЗ"SUDDENLY ALL THE EXITS ARE      BLOCKED BY SOLID WALLS.SPIKES   NOW EXTEND FROM THE EAST WALL   AND THE WEST WALL IS MOVING IN. HURRY,BEFORE I'M CRUSHED!":T│0:O│0:Y│6:Бе447T
@Е LV│4 ░ HA│1 ░ B7│0 зЗ"I CAN'T MOVE MY LEGS! THEY SEEM TO BE FROZEN TO THE FLOOR.":T│0:O│0:Y│7:Бе447T╗
AЕ B8│0 ░ LV│5 ░ HA│1 зЗ"THE FLOOR IS DROPPING!":АX│1е1000:Л:З"I'M SLIDING DOWN A CHUTE!":АX│1е1000:Л:Ю(0):АX│1е500:Л:LV│1:HV│3:VV│4:B8│1:Y│1:Ю:LA│0:Бе304UМ
BЕB9│0 ░ LV│5 ░ HA│1 зЗ"THERE IS A GOBLIN DRESSED IN    GUARD'S ATTIRE BLOCKING THE WAY.HE HAS A SWORD AT LEAST TWICE   THE LENGTH OF MINE AND FROM THE LOOKS OF HIS BUILD HE ISN'T A   PUSHOVER":T│0:O│0:Y│9Uт
CЕ B9│0 ░ LV│5 ░ HA│1 з АX│1е1000:Л:З:З"OH OH!":З"ANOTHER ONE IS BEHIND ME!":Бе447V7
DЕY│9 ░ WJ▓15м(Q1л1) зЗ"THEY ARE BOTH ATTACKING-":АX│1е1500:Л:Ю(0):АX│1е500:Л:Ю:КVB
EHA│0:РVU
F:ГPIT AND MAZEV╓
GЕ HV│1 ░ VV│1 ░ WA│1 ░ DI│1 з З;"I'M IN THE BOTTOM OF THE PIT,   UNDER WATER,WAITING FOR YOU TO  TELL ME WHAT TO DO!!!":Бе30W║
HЕ HV│1 ░ VV│1 ░ D1│0 ░ WA│1 зЗ;"I'M TREADING WATER IN A PIT. IT IS ABOUT EIGHT FEET ACROSS IN   EACH DIRECTION.THE WALLS ARE    COVERED WITH A SLIPPERY GREEN   SLIME.I WON'T MENTION WHAT THE  AIR SMELLS LIKE.":T│0:O│0:Бе447XЙ
IЕ HV│1 ░ VV│1 ░ WA│0 ░ D1│1 зЗ;"I'M AT THE BOTTOM OF THE PIT.   LAYING IN A HEAP ON THE FLOOR   ARE ENOUGH ASSORTED BONES AND   RUSTED EQUIPMENT TO MAKE UP PER-HAPS TEN TO TWENTY KNIGHTS.":T│0:O│2:Бе447YZ
JЕ HV│1 ░ VV│1 ░ WA│0 ░ D1│0 з З;"THE WATER HAS ALL GONE AND I AM STANDING ON A PILE OF JUNK.IT ISTOO DARK TO REALLY TELL WHAT IS IN THE PILE-NOT THAT I REALLY   WANT TO KNOW FROM THE SMELL.":T│0:O│0:Бе447Yи
KЕ HV│4 ░ VV│1 зЗ"I AM AT THE BOTTOM OF A FLIGHT  OF STEPS.":O│3:T│1:Бе447Y┤
LQ3│Q3л1Yц
MЗ;"I AM IN A FEATURELESS MAZE OF   CORRIDORS"Z
NЕ HV│1 ░ VV│2 з O│5:T│0:Бе447Z*
OЕ HV│1 ░ VV│3 з O│6:T│0:Бе447ZL
PЕ HV│1 ░ VV│4 з O│8:T│0:Бе447Zn
QЕ HV│1 ░ VV│5 з O│6:T│0:Бе447ZР
RЕ HV│2 ░ VV│1 з O│8:T│0:Бе447Z▓
SЕ HV│2 ░ VV│2 з O│5:T│0:Бе447Z╒
TЕ HV│2 ░ VV│3 з O│12:T│0:Бе447Z°
UЕ HV│2 ░ VV│4 з O│13:T│0:Бе447[
VЕ HV│2 ░ VV│5 з O│10:T│0:Бе447[=
WЕ HV│3 ░ VV│1 з O│9:T│0:Бе447[_
XЕ HV│3 ░ VV│2 з O│6:T│0:Бе447[Б
YЕ HV│3 ░ VV│3 з O│8:T│0:Бе447[г
ZЕ HV│3 ░ VV│4 з O│7:T│0:Бе447[╞
[Е HV│3 ░ VV│5 з O│10:T│0:Бе447[щ
\Е HV│4 ░ VV│5 з O│13:T│0:Бе447\
]Е HV│4 ░ VV│4 з O│11:T│0:Бе447\/
^Е HV│4 ░ VV│3 з O│12:T│0:Бе447\R
_Е HV│4 ░ VV│2 з O│14:T│0:Бе447\t
`Е HV│5 ░ VV│1 з O│9:T│0:Бе447\Ч
aЕ HV│5 ░ VV│2 з O│12:T│0:Бе447\╣
bЕ HV│5 ░ VV│3 з O│5:T│0:Бе447\▄
cЕ HV│5 ░ VV│4 з O│12:T│0:Бе447\■
dЕ HV│5 ░ VV│5 з O│7:T│0:Бе447]$
eЗ;"LEVEL 1  HV=";HV;"VV=";VV:Бе30]2
f:ГLEVEL 2]|
gЕ VV│1 ░ HV│4 зЗ"I AM AT THE TOP OF A FLIGHT OF  STEPS":T│2:O│4:Бе447]к
hЕ VV│1 ░ HV│3 зЗ;A$(9):O│8:T│0:HA│1:Бе447]┘
iЕ VV│2 ░ HV│3 зЗ;A$(9):O│12:T│0:HA│1:Бе447^
jЕ VV│2 ░ HV│2 зЗ;A$(9):T│0:O│10:HA│1:Бе447^L
kЕ VV│2 ░ HV│1 зЗ"I'M IN A SMALL EMPTY ROOM.":HA│1:T│0:O│3:Бе447_!
lЕ VV│3 ░ HV│3 зЗ;"THIS MUST BE HERMAN'S WORKSHOP! THE WALLS ARE LINED WITH SHELVESCOVERED WITH VARIOUS BOTTLES ANDVESSELS CONTAINING ALL MANNER OFCOLORED AND SHAPED SUBSTANCES.A DESK IS SITTING IN THE CENTER,_з
mЕ HV│3 ░ VV│3 зЗ"LITERALLY PILED WITH PAPERS.    THERE ARE WHAT APPEAR TO BE TWO DRAWERS ON THE FRONT OF THE DESK":T│0:O│11:Бе447_╓
nЕ VV│3 ░ HV│4 зЗ;A$(9):T│0:O│10:HA│1:Бе447`
oЕ VV│3 ░ HV│5 зЗ;A$(9):T│0:O│9:HA│1:Бе447`┌
pЕ VV│4 ░ HV│3 ░ DR│1 зЗ"THERE IS A LARGE DRAGON BLOCKINGTHE HALLWAY.IT LOOKS LIKE A NOR-MAL GREEN,ILL-TEMPERED,WINGED,  FIRE-BREATHING DRAGON.A PENTAGONSHAPED JEWEL IS HANGING AROUND  IT'S NECK.":T│0:O│5:Бе447a
qЕ VV│4 ░ HV│3 зЗ;A$(9):T│0:O│5:Бе447a1
rЕ VV│4 ░ HV│5 зЗ;A$(9):T│0:O│5:HA│1:Бе447aЭ
sЕ VV│5 ░ HV│2 зЗ;"I'M IN AN EMPTY ROOM,INLAID IS  A PENTAGON-SHAPED MOSIAC IN THE FLOOR.":O│3:T│0:Бе447bI
tЕ RI│0 ░ VV│5 ░ HV│3 ░ DR│1 зЗ"I TOLD YOU IT WAS A ILL-TEMPEREDFIRE-BREATHING DRAGON!!         HE'S TURNING ME INTO A WELL-DONESNACK.":АX│1е3000:Л:Ю(0):АX│1е1000:Л:Ю:Кbu
uЕ RI│1 ░ VV│5 ░ HV│3 ░ DR│1 з374 :Д 378cW
vЗ"I AM IN FRONT OF THE DRAGON.THE RING MUST BE WORKING-IT DOESN'T SEEM TO NOTICE ME.":З"VISIBLE DIRECTIONS TO MOVE ARE- -NORTH-SOUTH":З" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%":╔"L150;FP10F":Й"WHAT DO YOU WANT TO DO          ";P$:c~
wЕ P$│"N" з T│0:O│5:VV│4:HV│3:Бе304d
xЕ P$│"S" зЗ"I GOT BY IT! AS I WAS GOING BY IGRABBED THE NECKLACE OFF IT'S   NECK.":DR│0:NE│1:T│0:O│7:VV│5:HV│3:Бе447 T│0:O│7:VV│5:HV│3:Бе304dn
yЗ"IT MUST HAVE SENSED SOMETHING!! IT JUST FLASH-FRIED ME.":АX│1е3000:Л:Ю(0):АX│1е500:Л:Ю:КdЬ
zЕ VV│5 ░ HV│3 зЗ;A$(9):T│0:O│7:HA│1:Бе447e
{Е VV│5 ░ HV│5 зЗ"THE HALLWAY COMES TO A DEAD END.THERE IS A SMALL SACK ON THE    FLOOR.":T│0:O│1:HA│1:Бе447e2
|З;"LEVEL 2  HV=";HV;"VV=";VV:Бе30eD
}:ГENTRY LEVELe√
~Е HV│3 ░ VV│5 з З"I AM ON THE DRAW-BRIDGE AT THE  FRONT OF THE CASTLE.    TO THE  NORTH IS THE ENTRANCE-THE DOOR  IS OPEN. TO THE EAST AND WEST ISA PATH LEADING AROUND THE MOAT."fЯ
Е HV│3 ░ VV│5 з З"TO THE SOUTH IS THE GROUP OF    TOWNS-PEOPLE WHO CAME TO WATCH. IT WOULD BE UNTHINKABLE TO GO   BACK-THEY ARE COUNTING ON ME.":T│0:O│13:Бе447gN
АЕ HV│3 ░ VV│4 з З"I'M IN THE GREAT ENTRY HALL.THE VAULTED CEILING IS LOST IN THE  SHADOWS.THERE IS NO SIGN OF ANY-ONE BEING AROUND.":T│0:O│5:Бе447":T=0:HA=1:O=5:GOTO15000h
БЕ HV│4 ░ VV│4 зЗ"THERE IS A CIRCULAR STAIRWAY    LEADING UPWARDS. A SMALL OPENINGIN THE WALL IS THE ONLY SOURCE  OF LIGHT,THE UPPER PART OF THE  STAIRWAY IS IN SHADOW":T│1:O│1:Бе447hп
ВЕ HV│3 ░ VV│3 ░ WA│1 з З;"THE FLOOR IS TILTING!!! I CAN'T MOVE FAST ENOUGH TO GET BACK.":LA│0:АX│1е1500:ЛX:А X│1е30:З;"         I'M FALLING!":З:АY│1е50:ЛY:ЛX:Ю(0)i
ГЕ HV│3 ░ VV│3 ░ WA│1 зАX│1е500:ЛX:Ю:З@233,"SPLASH!!??":АX│1е1000:ЛX:Ю:T│0:O│0:LV│1:HV│1:VV│1:WA│1:Бе304i└
ДЕ HV│3 ░ VV│3 ░ WA│0 з З"THE FLOOR IS TILTING!!! I CAN'T MOVE FAST ENOUGH TO GET BACK.":LA│0:АX│1е1500:ЛX:АX│1е30:З;"         I'M FALLING!":З:АY│1е50:ЛY:ЛX:Ю(0)j	
ЕЕ HV│3 ░ VV│3 ░ WA│0 зАX│1е500:ЛX:Ю:З@237,"SPLAT!!":АX│1е1000:ЛX:Ю:КjS
ЖЕ HV│3 ░ VV│2 з З"I AM IN THE REAR ENTRANCE HALL":T│0:O│15:HA│1:Бе447jВ
ЗЕ HV│4 ░ VV│2 з З;A$(9):O│9:T│0:HA│1:Бе447kv
ИЕ HV│4 ░ VV│3 з З"I MUST BE IN THE THRONE ROOM. ATTHE REAR OF THIS LARGE ROOM IS ALARGE ORNATE THRONE,ON THE WALL BEHIND IT IS A TRIANGLE-SHAPED  MIRROR. ON EITHER SIDE OF THE   THRONE ARE PLAIN CHAIRS. LARGE  TAPESTRIES DEPICTING STRANGE"k╔
ЙЕ HV│4 ░ VV│3 ░ MI│0 з З"BEINGS HANG IN TATTERS FROM THE WALLS.":T│0:O│1:Бе447l:
КЕ HV│4 ░ VV│3 зЗ"BEINGS HANG IN TATTERS FROM THE WALLS.THERE IS A DOOORWAY IN THE SOUTH WALL.":T│0:O│5:Бе447li
ЛЕ HV│2 ░ VV│2 з З;A$(9):O│8:T│0:HA│1:Бе447m
МЕ HV│2 ░ VV│3 ░ D2│0 з З"THIS IS THE MAIN HALL. SEVERAL  LARGE TABLES AND BENCHES ARE IN THE CENTER. MOUNTED ANIMAL HEADSARE ON THE WALLS,ALONG WITH SOMELANCES.":T│0:O│5:Бе447m╙
НЕ HV│2 ░ VV│3 з З"THIS IS THE MAIN HALL. SEVERAL  LARGE TABLES AND BENCHES ARE IN THE CENTER. MOUNTED ANIMAL HEADSARE ON THE WALLS. AT THE REAR ISIS AN OPEN DOOR.":T│0:O│5:Бе447nЙ
ОЕ HV│2 ░ VV│4 ░ CH│0 з З"THE ROOM IS FULL OF CHESTS. ALL LOOK AS IF THEY HAVE BEEN BROKENOPEN EXCEPT ONE. IT SITS ON A   SMALL PEDESTAL IN THE CENTER OF THE ROOM.":T│0:O│1:Бе447nў
ПЕ HV│2 ░ VV│4 зЗ"ALL THE CHESTS IN THE ROOM ARE  OPEN,INCLUDING THE ONE ON THE   PEDESTAL.":T│0:O│1:Бе447o\
РЕ HV│3 ░ VV│1 з З"I AM ON A FOOT BRIDGE LEADING TOA REAR ENTRANCE TO THE CASTLE.":T│0:O│14:Бе447o╬
СЗ;"I AM ON A PATH OUTSIDE THE CAS- TLE WALLS.THERE IS A SLIME COV- ERED MOAT BETWEEN THE CASTLE ANDTHE PATH."oь
ТЕ HV│1 ░ VV│1 з O│8:Бе447p

УЕ HV│1 ░ VV│2 з O│5:Бе447p(
ФЕ HV│1 ░ VV│3 з O│5:Бе447pF
ХЕ HV│1 ░ VV│4 з O│5:Бе447pd
ЦЕ HV│1 ░ VV│5 з O│6:Бе447pГ
ЧЕ HV│2 ░ VV│5 з O│10:Бе447pв
ШЕ HV│4 ░ VV│5 з O│10:Бе447p└
ЩЕ HV│5 ░ VV│5 з O│7:Бе447p▐
ЪЕ HV│5 ░ VV│4 з O│5:Бе447p№
ЫЕ HV│5 ░ VV│3 з O│5:Бе447q
ЬЕ HV│5 ░ VV│2 з O│5:Бе447q8
ЭЕ HV│5 ░ VV│1 з O│9:Бе447qW
ЮЕ HV│4 ░ VV│1 з O│10:Бе447qv
ЯЕ HV│2 ░ VV│1 з O│10:Бе447q┐
аЗ;"LEVEL 3  HV=";HV;"VV=";VV:З;"#############ERROR############":Бе30q═
б:ГLEVEL 4r8
вЕ VV│2 ░ HV│1 зЗ"I'M IN AN EMPTY ROOM,INLAID IS  A PENTAGON-SHAPED MOSIAC IN THE FLOOR.":T│0:O│2:Бе447rg
гЕ VV│3 ░ HV│1 зЗ;A$(9):T│0:O│11:HA│1:Бе447rЦ
дЕ VV│3 ░ HV│2 зЗ;A$(9):O│10:T│0:HA│1:Бе447s
еЕ VV│3 ░ HV│3 ░ ST│1 зЗ;A$(9):З"THERE IS A NICHE WITH A STATUE  OF A GARGOYLE IN THE NORTH WALL.":T│0:O│14:HA│1:Бе447sh
жЕ VV│3 ░ HV│3 зЗ;A$(9):З"THERE IS A NICHE IN THE NORTH   WALL.":T│0:O│14:HA│1:Бе447s╟
зЕ VV│3 ░ HV│4 ░ D3│1 зЗ;A$(9):З;"THERE IS A MASSIVE DOOR IN THE  EAST WALL.":T│0:O│4:Бе447sё
иЕ VV│3 ░ HV│4 зЗ;A$(9):T│0:O│10:Бе447t╥
йЕ VV│3 ░ HV│5 зЗ"THIS TRULY MUST BE BLANDOR'S OWNROOM.THE WALLS ARE COVERED WITH RICH TAPESTRIES,THE FLOOR IS OF WOOD-HIGHLY POLISHED,AND THE    FURNITURE IS GILTED IN GOLD AND COVERED WITH VARIOUS JEWELS.":T│0:O│4:Бе447u╖
кЕ TS│0 ░ VV│4 ░ HV│1 зЗ"I'M AT THE BOTTOM OF A FLIGHT OFSTAIRS,WELL,ALMOST.THERE ARE    ONLY FIVE STEPS AT THE BOTTOM,  THEN AN EMPTY SECTION OF ABOUT  THIRTY FEET,AND FIVE STEPS AT   THE TOP NEAR THE CEILING.":T│0:O│1:Бе447v
лЕ VV│4 ░ HV│1 ░ TS│1 зЗ"I AM AT THE BOTTOM OF A FLIGHT  OF STEPS.":T│1:O│1:Бе447v:
мЕ VV│4 ░ HV│3 зЗ;A$(9):O│6:T│0:HA│1:Бе447vД
нЕ VV│4 ░ HV│4 зЗ"I AM AT THE HEAD OF A FLIGHT OF STEPS":T│2:O│4:Бе447vк
оЗ;"LEVEL 4  HV=";HV;"VV=";VV:Бе30v╕
п:ГLEVEL 5w
░Е VV│4 ░ HV│1 зЗ"I AM AT THE TOP OF A FLIGHT OF  STEPS":T│2:O│2:Бе447w0
▒Е VV│5 ░ HV│1 зЗ;A$(9):T│0:O│6:HA│1:Бе447w_
▓Е VV│5 ░ HV│2 зЗ;A$(9):T│0:O│10:HA│1:Бе447wН
│Е VV│5 ░ HV│3 зЗ;A$(9):T│0:O│7:HA│1:Бе447w║
┤Е VV│4 ░ HV│3 зЗA$(9):T│0:O│5:HA│1:Бе447wш
╡Е VV│3 ░ HV│3 зЗ;A$(9):T│0:O│8:HA│1:Бе447xJ
╢Е VV│3 ░ HV│4 зЗ;A        ┼ ┬┬┬╞├╞╔├├┬┬┼"╚╞├┬┴()*─┼──├╞╚23╚┴6╞┼9:;<=>?@ABC╞N2  BASxO}RBOWCHEKBAS·RANDOLF BAS8МDIRSAV  BAS                                                                GRAFXXX BAS FINALDEMBAS!$PAD1    BAS#┴PAD2    BAS°PAD3    BASзPAD4    BAS$ZPAD5    BAS%тPAD6    BASаPAD7    BAS
PAD8    BAS&╣TRIGSHOWBAS'+DUNGEON BAS
D-ADVNTRBASєSAR27   BAS+чRNDWALK1BAS,uRNDWALK2BAS-ЛBASIC64KBAS.║INVITE  BAS/¤RAINDEX BAS0}MATHPAL BAS1<DUPER   BASЫCHEMBONDBASаTRATAN  BAS4лHOBBIT  BAS5EDUCATE BAS
чINMAN1  BAS7╒INMAN2  BAS
}RBOWCHEKBAS·RANDOLF BASЫCHEMBONDBASаTRATAN  BAS4лHOBBIT  BAS5