R:SQ(T,TW)│ZE:T│TлOE:ЛR:А R│ZE е S3 й 2:SQ(T,OE)│R:SQ(T,TW)│T1:T│TлOE:ЛR/е3А R│ZE е T1:SQ(T,TW)│R:SQ(T,OE)│ZE:T│TлOE:ЛR:А R│ZE е T1:SQ(T,TW)│R:SQ(T,OE)│S3:T│TлOE:ЛR/┐8SC│0:AC│0:P│238:SH│20/╪=А T│OE е TY:Бж167:ЛT/▐BР0╨I$│"*** ASTEROID ***":R│2:Бж30000%┌I$│"BY JIM GERRIE":R│4:Бж30000WфI$│"USE THE JOYSTICK TO STEER AND":R│6:Бж30000ЙюI$│"AVOID THE INCOMING ASTEROIDS.":R│7:Бж30000╗°I$│"FIRE BUTTON ACTIVATES SHIELD.":R│8:Бж30000эI$│"SHIELD RECHARGING TAKES TIME,":R│9:Бж30001  I$│"SO USE ONLY IN EMERGENCIES. ":R│10:Бж30001SI$│"YOUR SHIP CAN TAKE GLANCING ":R│11:Бж30001ЖI$│"BLOWS BUT ONLY 3 DIRECT HITS ":R│12:Бж30001╣I$│"BEFORE IT WILL BE DESTROYED. ":R│13:Бж30001┘I$│"GOOD LUCK!":R│14:Бж30001▀Р2 ╕З@((Rм1)н32)л((32м З(I$))о2),I$;2 ┬РIES. ":R│10:Бж30001SI$│"YOUR SHIP CAN TAKE GLANCING ":R│11:Бж30001ЖI$│"BLOWS BUT ONLY 3 DIRECT HITS ":R│12:Бж30001╣I$│"BEFORE IT WILL BE DESTROYED. ":R│13:Бж30001┘I$│"GOOD LUCK!":R│14:Бж30001▀Р2 ╕З@((Rм1)н32)л((32м З(I$))о2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 3& т 32&Бж 1000& Ю 0&8А A│31 е 35:А B│1 е 3&EЬ(A,B,4)&O(Л B,A&l2А A│26 е 40:Ь(A,3,4):Л A&Х<А A│29 е 37:А B│4 е 8:Ь(A,B,5):Л B,A&йFЭ(29,8):Э(37,8)&╜PЭ(31,5):Э(35,5)&╪ZА A│32 е 34:Э(A,7):Л A&ї_А A│31 е 35:Ь(A,9,5):Л A'dЭ(33,6)',nА A│22 е 44:А B│10 е 21:Ь(A,B,3):Л B,A'PxА B│13 е 19:Э(41,B):Э(25,B):Л B'nВА A│22 е 25:Ь(A,21,5):Л A'ММА A│42 е 44:Ь(A,21,5):Л A'╢ЦА B│21 е 31:А A│26 е30:Ь(A,B,3):Л A,B'саА B│21 е 31:А A│36 е 40:Ь(A,B,3):Л A,B' еА A│26 е 40:Ь(A,20,4):Л A(*жА A│24 е 25:А B│22 е 23:Ь(A,B,4):Л B,A(>кЗ @0,"ARE YOU";(PпЗ@32,"READY";(f┤З@64,"PARTNER ?";(q╛Бж 510(Ж╚З@0,"THEN ";(Ь╥З@32,"SHOOT ON ";(▓▄З@64,"THE COUNT";(╞цЗ@96,"OF 3...";(╤ЁБж 510(·ёА A│22 е 25:А B│18 е 21:Э(A,B):Л B,A)%ЄА A│22 е 25:А B│16 е 17:Ь(A,B,5):Л B,A)JєА A│23 е 25:Э(A,17):Л A:Э(24,16))^·З@0, б(15,128);)sЗ@32, б(13,128);)ИЗ@64, б(14,128);)ЭЗ@96, б(14,128);)л"А C│1 е 3)┼,З@32н3л3,C; б(C,"!");)╨6Бж 510)╪@Л C)сJ Я│0* TP│ Ж(65280):Е P┤▓255 ░ P┤▓127 з 700*^Е  Я┤N з 340*$hа 1,1*OrА A│22 е 25:А B│16 е 17:Ь(A,B,2):Л B,A*u|З@32н6л5,"YOU ARE DEAD, PARTNER";*ЕЖ╔"P1;P1;P1"*ЛЇО*│■Е C│3 з Р :Д А A│1 е 80:P│ Ж(65280)*╧Е P┤▓127 ░ P┤▓255 з 600*╫Л A*▌Р+XЗ@32н6л5,"YOU GOT ME, PARTNER";+b╔"P1;P4"+8lЗ@32н7л2,"BUT YOU CHEATED, PARTNER!";+]vЗ@32н8л5,"YOU ARE A CHEATER!!!";+rА╔"P1;P1;P1;P1":О+Ч╝З@32н6л5,"YOU GOT ME, PARTNER!";+─┴З @32н7л8,"YOU SHOT IN"  Яо50;"SECONDS";+╘╞╔"P1;P1;P1"+┌╨О+ршЮ+ ЄЙ"SKILL LEVEL (1 TO 10)";N,№Е N┤1 ▒ N▓10 з 1010,"N│11мN,,N│Nн3,2Р!";+]vЗ@32н8л5,"YOU ARE A CHEATER!!!";+rА╔"P1;P1;P1;P1":О+Ч╝З@32н6л5,"YOU GOT ME, PARTNER!";+─┴З @32н7л8,"YOU SHOT IN"  Яо50;"SECONDS";+╘╞╔"P1;P1;P1"+┌╨О+ршЮ+ ЄЙ"SKILL LEVEL (1 TO 10)";N                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &%Т 65497,0:В COCO 2 POKE 65495,0&Ж Х200:Ю0:Бж2000:М AX(20),AY(20),XC(20),YC(20),K(64),C(8),HT(8),SQ(128,2),CC(20),V1(66),V2(35)&ЩМ S$(2),CK$,I$&йМ Q,T,P,R,S&ЇМ SC,CD,T1,S3,ZE,OE,EN,TY,T2,EX,CL,PC,TW,PK,UL,FR,AC,HS,TE,SH,O2,DP,ET'%Бж1000:I$│"HIT ANY KEY TO BEGIN":R│16:Бж3000'R#I$│ Т:R│ Д(10):Е I$│"" ░  Ж(PK)┤▓O5 з 35'\2Бе300'┐аQ│EN:DP│P:Э(S ░ (AX(T)мXC(T)),T1 ░ (AY(T)мYC(T))):Э((S ░ (AX(T)мXC(T)))лOE,T1 ░ (AY(T)мYC(T)))'ъеЬ(AX(T),AY(T),EX):Ь(AX(T)лOE,AY(T),EX)(7зR│ Д(O2):AX(T)│SQ(R,OE):AY(T)│SQ(R,TW):XC(T)│C( Д(ET)):YC(T)│C( Д(ET)):Р(NкP│Pм(OEнм(T2┤P)):Р(eпP│Pл(OEнм(UL▓P)):Р(|┤P│Pм(T2нм(T2┤P)):Р(У╣P│Pл(T2нм(UL▓P)):Р(╫,А AC│OE е TE:А Q│SC е EN:SC│Q:ЮZE:З@P,S$(CC(SH));:SH│SHм(SH┤TY))26А T│OE е CD:Ь(AX(T),AY(T),CL):Ь(AX(T)лOE,AY(T),CL):AX(T)│AX(T)лXC(T):AY(T)│AY(T)лYC(T))V@ИV1(AX(T)лTW)▒V2(AY(T)лTW)Бж167)П^ИHT(( С(AX(T),AY(T)))▒( С(AX(T)лOE,AY(T))))Бж160,165)ЦhЛT)╕rT│ Н(ZE):И K( Н(TW))Бж170,175)╤wИ K( Н(TE))Бж180,185)єxЕ  Ж(PK)│O5 з Е SH│TY з SH│OE)·|ЛQ*ДаS3,OE*RШЕ SC│EN з ЮZE:З@P,S$(OE);:З@32,"YOU ESCAPED THE ASTEROID BELT ! ";:Бе950*ZвЛAC*▓мЗ@DP, Л(131л Д(8)л(16н(PCм1)))л Л(131л Д(8)л(16н(PCм1)))л Л(131л Д(8)л(16н(PCм1)));+ ▒З@DPлT2, Л(131л Д(8)л(16н(PCм1)))л Л(131л Д(8)л(16н(PCм1)))л Л(131л Д(8)л(16н(PCм1)));+"╢Е HS┤│SC з HS│SC+M└З@0,"HIGH SCORE:";HS,"YOUR SCORE:";SC;+l╩З@487,"PLAY AGAIN (Y/N)?";+╘I$│ Т:R│ Д(10)+Ю╓Е  Ж(PK)│O5 з Бж1080:Бе300+╖┘ЕI$│"Y"зБж1080:Бе300+╟┌ЕI$│"N"з990+╤█Бе980+Ї▐Т65496,0:В COCO 2 POKE 65494,0+·уК,>шZE│0:OE│1:TW│2:TE│3:FR│4:ET│8:T1│31:T2│32:S3│62:OE│1:S│63:TY│20,[ЄEN│999:CD│15:HS│0:CK$│"",МўPK│65280:PC│3:CL│6:EX│2:UL│446:O2│128:O5│125,╘V1(0)│1:V1(1)│1:V1(65)│1:V1(66)│1:V2(0)│1:V2(1)│1:V2(34)│1:V2(35)│1-S$(1)│ Л(131л(16н(PCм1)))л Л(143л(16н(PCм1)))л Л(131л(16н(PCм1)))-a А T│OE е 30:S$(1)│S$(1)л Л(128):ЛT:S$(1)│S$(1)л Л(140л(16н(PCм1)))-зS$(2)│ Л(135л(16н(CLм1)))л Л(143л(16н(CLм1)))л Л(139л(16н(CLм1))).А T│OE е 29:S$(2)│S$(2)л Л(128):ЛT:S$(2)│S$(2)л Л(141л(16н(CLм1)))л Л(143л(16н(CLм1)))л Л(142л(16н(CLм1))).FА T│ZE е 16:K(T)│1:ЛT:А T│48 е 64:K(T)│2:ЛT.yА T│OE е TY:CC(T)│1:ЛT:CC(1)│2:CC(2)│2:CC(3)│2.┐$C(8)│м.5:C(1)│.5:C(2)│1:C(3)│м1:C(4)│1.5:C(5)│м1.5:C(6)│2:C(7)│м2.▌)HT(PC)│1:HT(CL)│2:HT(7)│1/G.T│OE:А R│ZE е S3 й 2:SQ(T,1)│4,4,4,4,4,4,148#Ж 1,1,1,1,1,17,148> Ж 17,18,20,24,20,18,178YЖ 16,16,16,16,16,16,318tЖ 17,27,21,21,17,17,178П(Ж 17,25,21,19,17,17,178к2Ж 14,17,17,17,17,17,148┼<Ж 30,17,17,30,16,16,168рFЖ 14,17,17,17,21,18,138 PЖ 30, 17, 17,30,20, 18, 179ZЖ 14,17,16,14,1,17,149.dЖ 31,4,4,4,4,4,49InЖ 17,17,17,17,17,17,149bxЖ 17,17,17,10,10,4,49}ВЖ 17,17,17,17,21,27,179ЧМЖ 17,17,10,4,10,17,179оЦЖ 17,17,10,4,4,4,49┼аЖ 31,1,2,4,8,16,319╒XЖ 0,0,1,0,09хbЖ 1,1,1,1,09їlЖ 0,0,1,1,0:vЖ 0,0,1,0,0:АЖ 0,1,0,1,0:%КЖ 0,0,1,0,0:5ФЖ 0,1,1,1,1:EЮЖ 0,1,1,0,0:UиЖ 0,0,1,0,0:e▓Ж 0,1,0,1,0:u╝Ж 1,0,1,0,0:Е╞Ж 0,1,1,1,0:Х╨Ж 0,0,1,0,1:е┌Ж 0,0,1,0,0:╡фЖ 0,1,0,1,0:┼юЖ 0,0,1,0,1:╒°Ж 0,1,1,1,0:хЖ 1,0,1,0,0:ї Ж 0,0,1,0,0;Ж 0,1,0,1,0; Ж 0,0,0,0,0;%*Ж 0,0,0,0,0;54Ж 0,0,0,0,0;E>Ж 0,0,0,0,0;UHЖ 0,0,0,0,0;b#(В LAIR 1;v#)Ж 1,2,2,2,0,1,3;К#*Ж 1,0,3,0,3,3,3;Ю#+Ж 3,1,3,3,2,0,3;▓#,Ж 3,3,2,0,1,0,3;╞#-Ж 3,3,1,0,0,0,3;┌#.Ж 3,0,0,0,0,0,3;ю#/Ж 2,2,2,2,2,2,0<#0Ж 1,1,5,3,0,0,0<#2В LAIR 2<##3Ж 1,2,2,2,2,2,3<7#4Ж 3,0,0,1,3,3,0Ж 1,1,3,2,1,0,3<°#?Ж 3,0,2,0,1,3,3= #@Ж 1,0,2,3,0,0,3= #AЖ 3,0,2,1,0,3,3=4#BЖ 3,2,2,2,0,2,0=H#CЖ 2,2,2,2,2,2,0=\#DЖ 5,2,6,5,0,0,0=i#FВ LAIR 4=}#GЖ 1,2,2,2,2,2,3=С#HЖ 3,3,2,3,0,2,3=е#IЖ 3,3,0,0,3,3,3=╣#JЖ 3,3,3,0,0,3,3=═#KЖ 3,2,0,0,0,3,3=с#LЖ 3,2,3,2,0,0,3=ї#MЖ 2,0,2,2,2,2,0> #NЖ 6,6,2,6,0,0,0>#PВ LAIR 5>*#QЖ 1,2,2,2,1,2,0>>#RЖ 3,0,2,3,0,0,3>R#SЖ 3,0,0,0,0,3,3>f#TЖ 3,0,0,3,3,3,3>z#UЖ 3,3,0,0,0,0,3>О#VЖ 1,0,3,3,0,0,3>в#WЖ 2,2,2,2,2,2,0>╢#XЖ 4,5,6,3,0,0,0>├#ZВ LAIR 6>╫#[Ж 1,2,2,2,2,2,3>ы#\Ж 0,3,0,0,0,0,3> #]Ж 1,3,0,0,3,0,3?#^Ж 3,0,0,3,2,0,3?'#_Ж 3,0,2,0,1,3,3?;#`Ж 3,2,2,2,0,2,3?O#aЖ 2,2,2,2,2,2,0?c#bЖ 6,6,1,2,0,0,0?p#dВ LAIR 7?Д#eЖ 1,2,2,2,2,2,3?Ш#fЖ 3,2,3,0,3,1,3?м#gЖ 3,0,2,0,3,0,3?└#hЖ 3,0,2,0,0,1,0?╘#iЖ 3,0,1,0,0,3,3?ш#jЖ 3,2,0,0,0,0,3?№#kЖ 2,2,2,2,2,2,0@#lЖ 6,2,2,6,0,0,0@#nВ LAIR 8@1#oЖ 1,0,2,2,2,1,3@E#pЖ 3,2,0,3,2,0,3@Y#qЖ 3,0,0,3,2,3,3@m#rЖ 3,3,0,0,3,3,3@Б#sЖ 1,0,0,0,2,3,3@Х#tЖ 3,0,2,0,0,0,3@й#uЖ 2,2,2,2,2,2,0@╜#vЖ 5,5,1,5,0,0,0@╩#xВ LAIR 9@▐#yЖ 1,2,2,2,2,2,3@Є#zЖ 3,0,0,2,3,1,3A#{Ж 3,0,0,2,0,0,3A#|Ж 3,0,3,0,3,0,3A.#}Ж 0,3,3,2,1,0,3AB#~Ж 1,0,0,2,0,0,3AV#Ж 2,2,2,2,2,2,0Aj#АЖ 5,3,3,4,0,0,0Ax#ВВ LAIR 10AМ#ГЖ 1,2,2,2,2,2,3Aа#ДЖ 3,2,0,2,0,3,3A┤#ЕЖ 3,3,3,2,0,3,0A╚#ЖЖ 1,0,3,2,0,2,3A▄#ЗЖ 3,3,3,2,0,0,3AЁ#ИЖ 1,0,2,2,0,0,3B#ЙЖ 2,2,2,2,2,2,0B#КЖ 5,5,1,1,0,0,0B.'I$│ Т:ЕI$│""з9999B='З  К(I$):К,3AV#Ж 2,2,2,2,2,2,0Aj#АЖ 5,3,3,4,0,0,0Ax#ВВ LAIR 10AМ#ГЖ 1,2,2,2,2,2,3Aа#ДЖ 3,2,0,2,0,3,3A┤#ЕЖ 3,3,3,2,0,3,0A╚#ЖЖ 1,0,3,2,0,2,3A▄#ЗЖ 3,3,3,2,0,0,3AЁ#ИЖ 1,0,2,2,0,0,3B#ЙЖ 2,2,2,2,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 >&NХ100:Т65497,0:МX(1),Y(1),CL(258,4),X,Y,BY,VL,A,B,C,I,K,R,I$,B$:уў:Бж4100&нМC(4,5),D(7),U(7),M(7,8),X1(63),Y1(47),X2(63),Y2(47),P,D,T,VI,L,CH,W1,WX,WY,CA:CH│16:Бе190&╠ф 3:у 1,0:у 0,8:ч 0,1:ц1:Р&╓т32:Р&Їь(X,Y)м(XлSV,YлTH),OE,╜:Р'.ъ(X(ZE)нEI,Y(ZE)нFR)м(X(OE)нEIлSV,Y(OE)нFRлTH),╜,BF:Р'N I│ К(B$)м48:Е I▓15 з I│IмSX'f Е I┤0 ▒ I▓37 з I│10'ЪI│IнSV:А R│ZE е SX:А K│ZE е FR:И CL(IлR,K) Бж 5'╣X│XлEI:ЛK:X│WX:Y│YлFR:ЛR:Р'¤L│ З(I$):А T│OE е L:B$│ Р(I$,T,OE):X│WX:Y│WY:Бж12:WX│WXл48:ЛT:Р(C(ь(((Xм1)н64)л16,((Yм1)н32)л8)м(((Xм1)н64)л55,((Yм1)н32)л27),6,╜:Р(Н2ь(((XXм1)н64)л16,((YYм1)н32)л8)м(((XXм1)н64)л55,((YYм1)н32)л27),D,╜:Р(╫Pь(((MXм1)н64)л16,((MYм1)н32)л8)м(((MXм1)н64)л55,((MYм1)н32)л27),6,╜:Р) Zь(((MXм1)н64)л16,((MYм1)н32)л8)м(((MXм1)н64)л55,((MYм1)н32)л27),MD,╜)6dА T│OE е W8:Л T:Р)i╛М ZE,OE,TW,TH,FR,FV,SX,SV,EI,TT,T3,MX,MY,MD,LA)╠╚ZE│0:OE│1:TW│2:TH│3:FR│4:FV│5:SX│6:SV│7:EI│8:TT│32:T3│33:W8│128:M│0:TRY│0:LA│0:D│3:MD│4:Бж6000*"Бж3:ъ(0,0)м(0л7,0л3),╜,BF:э 1,65:ы(0,0)м(0л7,0л3),1*I#А C│1 е 5:А Y│0 е 19 й 4:А X│(40нC) е (40нC)л39 й 8:Н A:И A Бж 5*R$ЛX,Y*'B│Cл1:э B,128:ы(40нC,0)м((40нC)л39,19),B*Ж(ЛC*Э,M│Mл1:Е M▓10 з5200*║1А T│ZE е SV:А W1│ZE е SX*▀6Н L:M(W1лOE,TлOE)│L:ЛW1,T:Ю0:Бж3+@А T│0 е 6:А W1│0 е 6:X(0)│W1н8:Y(0)│Tн8:Е Y(0)│48 з Y(0)│47+@BИM(W1лOE,TлOE)Бж 330,340,350+QEЛW1,T:Бе3000+ЦJX(1)│X(0)л8:Y(1)│Y(0):Бж8:X(1)│X(0):Y(1)│Y(0)л8:ЕY(1)│48зY(1)│47+вOБж8:Р +─TX(1)│X(0)л8:Y(1)│Y(0):Бж8:Р +я^X(1)│X(0):Y(1)│Y(0)л8:ЕY(1)│48зY(1)│47+√cБж8:Р ,e ╕P│((M(1,8)мOE)нFR)л( Б((M(2,8)м1)н2.67)нTT)лVIлT3:MM│((M(3,8)м1)нFR)л( Б((M(FR,8)мOE)н2.67)нTT)лVIлT3,К ║TRY│TRYлOE:ЕTRY▓999зБж4:Ю:Бе5250,╣ ╗I$│ П( И(M), З( И(M))мOE):WX│416:WY│0:Бж21,э ╝I$│ П( И(TRY), З( И(TRY))мOE):WX│416:WY│32:Бж21-$ ╜XX│M(1,8):YY│M(2,8):MX│M(3,8):MY│M(FR,8):Бж50:Бж90-: ┬I$│ Т:ЕI$│""з3010-M ╟Е I$│" " з4000-_ ╚Е I$│"C" з300-r ╠Е I$│"R" з5050-И ╓Е I$│ Л(94) з3100-Э рЕ I$│ Л(9) з3200-▓ ъЕ I$│ Л(8) з3300-╚ ЇЕ I$│ Л(10) з3400-┘ ∙ЕI$│"Q"з5215-ф ■Бе3010. Е M(XX,YY)│ZE ▒ M(XX,YY)│TH з3150. 0Бе4000.A NX│XX:Y│YY:YY│YYмOE:Е YY│ZE ▒ YY│7 з4000.O XБж40:Бж50.Z vБе4000.З АЕ M(XXлOE,YY)│ZE ▒ M(XXлOE,YY)│TW з3250 .Т ФБе4000.╛ ▓X│XX:Y│YY:XX│XXлOE:Е XX│ZE ▒ XX│7 з4000.╤ ╝Бж40:D│TH:Бж50.▄ ┌Бе4000/ фЕ M(XX,YY)│ZE ▒ M(XX,YY)│TW з3350/ °Бе4000/9 X│XX:Y│YY:XX│XXмOE:Е XX│ZE ▒ XX│7 з4000/L Бж40:D│TW:Бж50/W >Бе4000/Г HЕ M(XX,YYлOE)│ZE ▒ M(XX,YYлOE)│TH з3450/О \Бе4000/║ zX│XX:Y│YY:YY│YYлOE:Е YY│ZE ▒ YY│7 з4000/╚ ДБж40:Бж50/ЁаЕ XX│ZE ▒ YY│ZE ▒ XX│7 ▒ YY│7 з51000╛А MT│OE еTW0S╚Е XX▓MX з Е M(MXлOE,MY)│ZE ▒ M(MXлOE,MY)│TW з Бж 80:MX│MXлOE:MD│FV:Бж90:Бе40700а╥Е XX┤MX з Е M(MX,MY)│ZE ▒ M(MX,MY)│TW з Бж 80:MX│MXмOE:MD│FR:Бж90:Бе40700ч╫Е YY┤MY з Е M(MX,MY)│ZE ▒ M(MX,MY)│TH з Бж 80:MY│MYмOE:Бж90:Бе40701-▄Е YY▓MY з Е M(MX,MYлOE)│ZE ▒ M(MX,MYлOE)│TH з Бж 80:MY│MYлOE:Бж901GцЕ MX│XX ░ MY│YY з50001OыЛMT1ZЁБе30101ДЮ:З " WELCOME TO THE MONSTER'S LAIR";1з З " BY CHARLIE GERRIE"1нЗ1╤З "FOR EVERY MOVE YOU MAKE THE"1°"З "MONSTER MOVES TWICE. IT ALWAYS"2 ,З "PREFERS TO MOVE LEFT AND RIGHT."2H6З "USE THE ARROW KEYS TO MOVE YOUR"2o@З "ADVENTURER. PRESS R TO RESET A"2ЦJЗ "LAIR. PRESS SPACE TO SKIP YOUR"2╜TЗ "MOVE. PRESS Q TO LEAVE. AVOID"2ф^З "THE MONSTER AND EXIT THE LAIR."3 hЗ "THERE ARE 10 LAIRS TO COMPLETE."3mЗ30rЗ " PLEASE WAIT"36|З3<РР3ZИI$│"IT":WX│416:WY│64:Бж213yТI$│"GOT":WX│416:WY│96:Бж213ЩЬI$│"YOU":WX│416:WY│128:Бж213╤жБж80:MD│FR:Бж90:Бж80:MD│FV:Бж90:I$│ Т:Е I$│"" з50303тлЕI$│"Q"з52153Є░ЕW1│м99з3004 ║X│XX:Y│YY:Бж40:Бж804'─ъ(416,32)м(560,159),╛,BF42тБе30004QьI$│"YOU":WX│416:WY│64:Бж214pЎI$│"GOT":WX│416:WY│96:Бж214РI$│"OUT":WX│416:WY│128:Бж214л W1│м99:LA│LAлOE:Бе50304╗PЕLA┤10з52154єUъ(416,64)м(560,159),╛,BF:I$│"YOU":WX│416:WY│64:Бж215ZI$│"WIN":WX│416:WY│96:Бж215_В5fdI$│ П( И( Б((LAоTRY)н100)), З( И( Б((LAоTRY)н100)))м1):WX│416:WY│160:Бж215vnЕ Т│""з52305вxБж4:Ю::З"AVERAGE SUCCESS RATE WAS %";I$5╨ВЗ"THANKS FOR PLAYING MONSTER.":Т65496,0:К5фpА I│0 е 258:Н A6zАC│ZE е FR:CL(I,FRмC)│Aм Б(AоTW)нTW:A│ Б(AоTW):ЛC,I:Р698Ж 14,17,19,21,25,17,146OBЖ 4,12,4,4,4,4,146iLЖ 14,17,1,14,16,16,316БVЖ 14,17,1,6,1,17,146Ш`Ж 2,6,10,18,31,2,26▒jЖ 31,16,30,1,1,17,146╩tЖ 6,8,16,30,17,17,146с~Ж 31,1,2,4,8,16,166№ИЖ 14,17,17,14,17,17,147ТЖ 14,17,17,15,1,2,127)ЬЖ 0,0,0,0,0,0,07CжЖ 4,10,17,17,31,17,177Z░Ж 30,9,9,14,9,9,307u║Ж 14,17,16,16,16,17,147Л─Ж 30,9,9,9,9,9,307ж╬Ж 31,16,16,30,16,16,317┴╪Ж 31,16,16,28,16,16,167▄тЖ 15,16,16,19,17,17,157ўьЖ 17,17,17,31,17,17,178 ЎЖ 1  ╝& т 32& Ю 5&0З@40,"THE ASIMOV AWARDS";&J(З@106,"2007 EDITION";&i2З@199,"1)- WHAT IS THIS?";&Ж<З@263,"2)- THE WINNERS";&дFЗ@327,"3)- IN THIS DISK";&├PЗ@391,"4)- RUN A PROGRAM";&┘UЗ@455,"5)- QUIT";&ыZА A│1 е 2 й 0&їdA$│ Т'nЕ A$┤"1" ▒ A$▓"5" з Л'8xИ  Й(A$) Бж 1000,2000,3000,4000,5000'BВБе 10'HшЮ'╦ЄЗ"tHE asimov awards IS A YEARLY EVENT, WITH THE GOAL OF PROMOTING AND REWARDING NEW PROGRAMS FOR THE COCO USER."(>№З"tO PARTICIPATE, JUST SEND YOUR PROGRAM TO DIEGOBA@ADINET.COM.UYtHE PROGRAM MUST NEW AND COCO 3 COMPATIBLE."(йЗ:З"a FIRST PRIZE IS SET AT $100. iF DONATIONS ARE AVAILABLE, EXTRA PRIZES WILL BE IMPLEMENTED."(╡ Бж 6000(╗ Ю)З"i WOULD LIKE TO THANK THE GLENSIDE COLOR COMPUTER CLUB FORMAKING THIS AWARDS POSSIBLE.")S.З"fOR MORE INFORMATION, VISIT WWW.YACCS.COM)a╞Бж 6000:Р)i╨Ю 3)Е┌З@7,"1ST PRIZE WINNER";)афЗ@40,"monster's lair";)пюЗ@78,"BY";)╦°З@104,"CHARLIE GERRIE";*5З @160,"a CHALLENGING PUZZLE GAME, WHEREYOU TRY TO EXIT THE MAZE WITHOUTBEING CAUGHT BY THE MONSTER."*м З"wHEN PLAYING IT, REMEMBER THAT THE MONSTER WILL ALWAYS TRY TO MOVE FIRST IN SOME DIRECCIONS, THEN IN OTHERS."*╕Бж 6000*└Ю 7*▄ З@7,"2ND PRIZE WINNER";*√*З@38,"klondike solitaire";+ 4З@78,"BY";+">З@107,"JIM GERRIE";+bHЗ@160,"tHE CLASSIC CARD GAME THAT MADE MS WINDOWS POPULAR."+ RЗ"tHIS IS A MUCH IMPROVED VERSION OF THE PROGRAM FROM THE 2006 AWARDS, IT USES THE LOW RESOLUTION SCREEN AT THE MAXIMUMOF IT'S POSIBILITIES.", ДБж 6000:Р, ╕Ю 2,3 ┬З@6,"ALSO IN THIS DISK:";,О ╠З @64,"THERE WERE JUST ANOTHER 2 ENTRIES TO THIS YEAR'S aSIMOV aWARDS.",Є ╓З:З"asteroid BY J. GERRIE. USE YOUR JOYSTICK TO MANOUVER YOUR SHIP OUT OF THE ASTEROID FIELD."-y рЗ:З"partner BY NELSON MONZA. WRITTEN20 YEARS AGO, THIS GAME WILL FIND OUT WHO THE FASTEST JOYSTICK OF THE WILD WEST IS."-Е ■Бж 6000-Н Ю 8.E З:З"i ALSO DUMPED IN x-filer, A FILEMANAGER PROGRAM THAT WOULD HAVE BEEN MY ENTRY IF I HAD NOT BEEN THE ORGANIZER.":З"tHIS IS A MUCH UPDATED VERSION OF THE ONE IN THE 2006 DISK.".н З:З"rEMEMBER THAT THE GOAL IS TO GETPROGRAMS FOR THE FINAL USER, ANDTHAT DOES NOT MEAN ONLY GAMES.".╗ &Бж 6000:Р.┴аЮ.╙кA$│" ".·┤Зд4);"SELECT THE PROGRAM TO RUN":З/╛З A$;"1)- MONSTER'S LAIR"/1╚З A$;"2)- SOLITAIRE"/J╥З A$;"3)- ASTEROIDS"/a▄З A$;"4)- PARTNER"/xЗ A$;"5)- X-FILER"/ТЗ:ЗA$;"0)- MAIN MENU"/дА A│0 е 1 й 0/─"A$│ Т:Е A$┤"0" ▒ A$▓"5" з Л/Ї,И  Й(A$)л1 Бе 4150,4160,4170,4180,4190,4200/·6Р0 @О"MONSTER"0JО"SOLIT"0&TО"ASTEROID"05^О"PARTNER"0?hО"XF"0KРБж 60000RИЮ 0nТЗ"SEE YOU NEXT YEAR!":З0tЬК0ЭpЗ:З д3);"PRESS ANY KEY TO CONTINUE";0╗zA$│ Т:Е A$│"" з 6010 :Д Р5" з Л/Ї,И  Й(A$)л1 Бе 4150,4160,4170,4180,4190,4200/·6Р0 @ A│0 е 1 й 01+A$│ Т:Е A$┤"0" ▒ A$▓"8" з Л1j"И  Й(A$)л1 Бе 4140,4150,4160,4170,4180,4190,4200,4210,42201p,Р16О "MISTER"1Й@О "G"1ЪJО "SENTINEL"1лTО "INVADERS"1║^О "BANDIT"1╚hО "SOLIT"1╓rО "VADER"1с|О "XF"1э~Бж 60001ЇИЮ 2ТЗ"SEE YOU NEXT YEAR!":З2ЬК2?pЗ:З д3);"PRESS ANY KEY TO CONTINUE";2]zA$│ Т:Е A$│"" з 6010 :Д Р,4210,42201p,Р16О "MISTER"1Й@О "G"1ЪJО "SENTINEL"1лTО "INVADERS"1║^О "BANDIT"1╚hО "SOLIT"1╓rО "VADER"1с|О "XF"1э~Бж 60001ЇИЮ 2ТЗ"SEE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ─ ╟┬!┬#$├&'─                            RUN ME BAS ┐XF BAS"╥MONSTER BASASOLIT BAS%PARTNER BAS6ASTEROIDBAS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Asimov Awards 2007                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ╧& В XFILE V3.4 BUGFIX&DХ 2500:М EX(72),FI$(72),DF$(72),AF(72)&QБж 20000&d(т 80:Т 65497,0&uFИ Ё Бе 10000&ЕPИ я Бе 9000&ЧZТ &HE649,&H10&┴dЕ  Ж (&HD934)│218 з SI│1:NH│ Ж(&H150)&·╛Т 55232,0:Т 55318,20:Т 55138,2:Т 55455,65:Т 55456,66'ЁCP│442849'·BL$│ б(79," ")'(■Бж 1000 'sё 0,22:З"nstall ize ";:Е SI з З"ard drive" :Д З"ard drive"'╔З"oad opy ove elete ename ndelete Drive <0><1><2><3> Lbel";'с0U$│ Т:Е U$│"" з 560'°:Е U$│"U" з Бе 7000(+DЕ U$▓"/" ░ U$┤"4" з D│ Й(U$):Т &H014E,4:Бе 510(@SЕ U$│"H" Бе 3500(TXЕ U$│"L" з 4000(i]Е U$│"S" Бж 4500(ЖbЕ U$│"C" ▒ U$│"R" з 5000(ЫgЕ U$│"A" Бж 2500(пlЕ U$│"M" з 5000(╞qЕ  К(U$)│3 з 10000(█vЕ U$│"D" Бж 6000(ё{Е U$│"I" Бж 11000)КU$│"":Бе 520)8шё 25,4:° 3,2:З"Reading the disk in drive"D;:° 0,7)dъ╧ D:Т 65496,0:▀ D,17,17,A$,B$:Т 65497,0)░ьC$│A$л О(B$,127):L│ Ю(1,C$, Л(0)):LB$│ О(C$,L):Е LB$│"" з LB$│"UNNAMED")╛ЄFC│0:DF│0)═№А X│3 е 11)ЇТ 65496,0:▀ D,17,X,A$,B$:Т 65497,0* $C$│A$л О(B$,127)*.А A│0 е 7*08FI$│ Р(C$,Aн32л1,11)*[BЕ  К( О(FI$,1))│255 з A│8:X│12:Бе 1140*gLFC│FCл1*ЗVEX(FC)│ К( Р(C$,Aн32л12,1))*з[AF(FC)│ К( Р(C$,Aн32л13,1))*╦`FI$(FC)│ О(FI$,8)л"."л П(FI$,3)+jЕ  К( О(FI$,1))│0 з DF│DFл1:DF$(DF)│FI$(FC):FC│FCм1+ tЛ A,X+╨Ю+f┌З"Disk " О(LB$,60)" in drive"D:З FC"files,"DF"deleted. " г(D)"free granules":З+Л*Е FC│0 з З"There are no files":Р+Ъ>А A│1 е FC+╝H° 0,0:З FI$(A);:° 0,7:З" ";+╥RЕ  Б(Aо5)│Aо5 з З+┌\Л A+рfР,. ─ё 0,22:З:ЗBL$;:ё 0,22:З"The current label of the disk in dirve"D" is "LB$,O ╬╗Й "Type the new label:";LB$,б ╪C$│LB$л Л(0):C$│C$л б(255м З(C$), Л(255)):A$│ О(C$,128):B$│ П(C$,127)л Л(255),╔ тТ 65496,0:р D,17,17,A$,B$:Т 65497,0,╫ ьБж 2000:Р,▐ ╕:Г,э ┬TF$│"":A│1,  ╠А X│0 е 1 й 0- ╓Е A┤1 з A│1 :Д Е A▓FC з A│FC-3 рCV│ Б((Aм1)о5)-> 0х CP,0-N :CH│Aм1м5нCV-i DCP│442849лCVн160лCHн30-t Nх CP,4-И Xё 0,22:З:З BL$;-о lё 0,23:З"Which file? ";:З FI$(A),-ь nЕ EX(A)│2 з З"M.L."; :Д Е EX(A)│3 з З"Text"; :Д З"Basic";. vЕ AF(A)│0 з З" - Binary"; :Д З" - ASCII";.- АА LO│0 е 1 й 0.F КA$│ Т:Е A$│"" з Л LO.[ ФЕ A$│ Л(13) з Р .w ЮЕ A$│ Л(94) з A│Aм5:Л X.У иЕ A$│ Л(10) з A│Aл5:Л X.о ▓Е A$│ Л(8) з A│Aм1:Л X.╔ ╝Е A$│ Л(9) з A│Aл1:Л X.▀ ╞Е A$│ Л(12) з 520.ю ╨TF$│TF$лA$.¤ ┌А Z│1 е FC/) фЕ  О(FI$(Z), З(TF$))│TF$ з A│Z :Бе 3030/1 юЛ Z/J °TF$│"":╔ BE$:Бе 3210/l в:Г HARD DRIVE'S VIRTUAL DISKS/ш мё 0,22:З "Drive to read (0 -";NH;")";:Й D$:Е D$│"" з 520 :Д HD│ Й(D$):Е HD▓NH з ╔ BE$:Бе 3500 :Д D│HD:Т &H014E,0:Бе 510/яа:Г/√кБж 30000 ┤Т 65496,00.╛И EX(A)л1 Бж 4050,4130,4060,41300:╚Бе 40100N╥т 32:╙ FI$(A),R0a▄т 32:╙M FI$(A)0oцТ 65497,00x·т 800ФЗ"File "FI$(A)" loaded"0╟З"Press any key to continue":в 44539:Бж 2000:Р1,ё 23,23:° 3,2:З"WRONG FILE TYPE";:° 0,7:╔ BE$:в 4453916TF$│"":Бе 6401$К:Г FILE SIZE10ФБж 30001PЮТ 65496,0:Щ "D",#1,FI$(A),11\гЙ #1,A$1zиFB│ е(1):GC│ Б(FBо2304)л11Н▓Ъ #1:Т 65497,01е╝FB│ Б(FBо10.24)о1001Ёюё 0,22:З"The size of the file "FI$(A)" is "FB"Kb ("GC"granules)":ЗBL$;2°╔ BE$:в 44539:Р2И:Г COPY/RENAME2#ЬБж 300026░ё 0,22:З:ЗBL$;2X║ё 0,22:З"Destination file? ";2c┐╗Й DF$2г┴Е  З(DF$)▓12 з ° 3,2:З"Filename is too long";:╔ BE$:Бе 50402╬─Е  О(DF$,1)│"*" з DF$│FI$(A)л П(DF$,2)2х╬Е  З(DF$)│0 Бе 5202¤╪:Г EXPAND FILE NAME3LтEP│ Ю(1,DF$,"."):Е EP│0 з EP│ Ю(1,DF$,"/"):Е EP│0 з DF$│DF$л".":EP│ З(DF$)3БьDF$│ О(DF$,EPм1)л б(9мEP," ")л Р(DF$,EP, З(DF$))3кЎё 35,10:° 3,2,B:З"WORKING...";:° 0,73╕Т 65496,03Ї Е U$┤▓"R" з ▐ FI$(A) е DF$ :Д ╓ FI$(A) е DF$:FI$(A)│DF$4Т 65497,04Е U$│"M" Бж 60804"2Бе 51040p:Г DELETE4<zБж 30004Оё 0,23:З"REALLY DELETE ";:° 0,0,U:ЗFI$(A);:° 0,7:З" (Y/N) ?";4ШША LO│0 е 1 й 0:A$│ Т4йвЕ A$│"N" з Р4╜мЕ A$│"Y" з LO│14╞╢Л LO4 ╗Е U$│"D" з ё 30,10:° 3,2,B:З"DELETING "FI$(A);:° 0,75*└Т 65496,0:╥ FI$(A):Т 65497,0:Бж 1000:Р51X:Г5KbЕ DF│0 з ╔ BE$:Бе 6405lvЮ:З"DELETED FILES IN DRIVE"D5ЕЮА A│1 е DF:З DF$(A);5ТиЗ " ";5и▓Е  Б(Aо5)│Aо5 з З5░╝Л A5э╞З:З"WARNING":З"Undelete works only with 1 granule files"5∙╨Бж 30006"фё 0,23:З"First letter for the file?"6MюА LO│0 е 1 й 0:SN$│ Т:Е SN$┤▓"" з LO│16V°Л LO6eА X│3 е 116s Т 65496,06Ж▀ D,17,X,A$,B$6Ы C$│A$л О(B$,127)6╕*PF│ Ю(1,C$, О(DF$(A),8))6╔4Е PF│0 з Л X6▌> Р(C$,PF,1)│SN$6¤HA$│ О(C$,128):B$│ П(C$,127)7Rр D,17,X,A$,B$7\Т 65497,07)fБе 5107W@ё 0,22:З"File exists, verwrite?":╔ BE$7iTА X│0 е 1 й 07Б^A$│ Т:Е A$│"" з Л X7ЮhЕ A$┤▓"O" Бж 2000:Бе 5207─rТ 65496,0:╥ DF$:Т 65497,0:Бе 51207┌#(:Г ERROR TRAPPING7Ё#2EN│ м:EL│ н:╔ BE$8#<Е EN│33 з 8000 85#AЕ EL│1002 з З"DRIVE"D"NOT READY":D│0:Бе 90808k#FЕ EN│20 з З"I/O ERROR IN THE FILE "FI$(A):Бе 90808Х#dЗ:З"UNEXPECTED ERROR #"EN" IN LINE"EL8╖#nЗ"MAY BE A 'FILE NOT FOUND'?"8с#xЗ:З"PRESS ANY KEY TO TRY TO CONTINUE"8Ї#Вв 44539:Бе 51091'ў:° 0,0:Ю:З"Thanks for using X-File v.3.4.062907 BUGFIX"97'К9M*°Е  г(D)┤2 з 110709О+ ё 23,10:° 3,2,B:З"Installing X-FILER V.3.4 to Drive"D;:° 0,79м+Т 65496,0:╪"XF":Т 65497,09╖+4Бе 5109ў+>ё 21,10:° 3,2:З"Not enough space to install X-FILER";:° 0,7:9+@З"Atempt to upgrade an already installed XF.BAS (Y/N)?":╔ BE$:a+CА LO│0 е 1 й 0:A$│ Т:Е A$│"" з Л LO:s+HЕ A$┤▓"Y" з Р:Ц+RТ 65496,0:╥ "XF.BAS":Т 65497,0:г+\Бе 11000:╗N BE$│"V30O2L32EL16A":╚N*ў:у 7,20:╬NДРnough space to install X-FILER";:° 0,7:9+@З"A                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &Ю:Бж8500&XМ S(4),N(13),D(52),PT(8),C(8,52),C$(3,4),PS(8),CT(8),KS(4),BL$,R$,NL$&╛М T2,S4,N6,NN,F4,X,K,KK,T,TT,TC,L,L1,C,LC,LK,DC,DK,FL,R,Z,MC,N,S,LS,TK,DS,WN,GP,RD,T3,ZE,OE,TW,TH&╨ Бж5000:Бж9050&х Ж 32,128,128,128'Ж 1,50,51,52,53,54,55,56,57,20,10,17,11'%АX│1е4:НS(X):ЛX':#АX│1е13:НN(X):ЛX'b(BL$│ Л(128)л Л(128)л Л(128)л Л(128)'К+З" PRESS ANY KEY TO BEGIN ";'з-R$│ Т:X│ Д(10):ЕR$│""з45'┤2Ю:Бж7000'╩7АX│1е7:PT(X)│X:ЛX'Ё <2> <3> <4> <5> <6> <7>"(AFАK│1е7:C│C(K,0):TT│PT(K):Бж170:ЛK(ЖKT│0:C(8,0)│0:PT(8)│0:TC│24:RD│0:K│8:АKK│OE е TC:Бж1000:Бж450:ЛKK(ЦPL│66:Бж3100(╜UЗ@0,"<8> ";(╧ZGP│GPл1:Бе200(цdЕR$│" "▒FL│OE з120)$iL│194:АK│1е7:Е K│LC ▒ K│DC зC│C(K,0):TT│PT(K):Бж170:Бе107)/jL│LлF4)6kЛK)@nL│290)KpАK│1е7)КrЕCT(K)▓ZE зЕK│LC ▒ K│DC зC│C(K,CT(K)):TT│CT(K):Бж170:Бе117)╛sЕCT(K)│ZE зЗ@LлS4,NL$;:З@LлN6,NL$;:З@Lл128,NL$;)╔tL│LлF4)╨uЛK)ёxL│38:C│C(8,0):TT│PT(8):Бж170)ўyР* }L1│L:ЕL▓232 з129*+~ЕTT▓TW зЗ@L1,"====";:Бе129*JЕTT│TW зЗ@L1,"----";:Бе129*XАЗ@L1,NL$;*pБАX│OE е F4:L1│L1лT2*ЛВЕC│ZE зЗ@L1,NL$;:Бе136*гЗЗ@L1,BL$;:ТL1лMC,T2*мИЛX:Р*╗МЕC│ZE з144*╟НL1│LлT2*╫ОТMCлL1,N(N)*ъПТMCлL1лNN,N(N)*ЇРL1│ZE*·СР+!ЦS│ Б((CмOE)оT3)лOE:N│Cм(SнT3мT3):Р+0аЕC│ZE з162+YбАX│OE е TH:З@Lл(T2нX)лOE,C$(X,S);:ЛX+jвL1│ZE:L│LлF4+pгР+ОкБж150:Бж125:Бж140:Бж160:Р+╙╚Бж100:З@480," =QUIT GAME: WINS: ";:З@497,GP;:З@507,WN;+ё╥R$│ Т:X│ Д(10):ЕR$│""з210,▄FL│ZE:R│ Й(R$),цЕR▓0 ░R┤9 зБж300:Бе200,8ЁЕR$│" " зБж600:Бе200,Q·ЕR$│"Q" зБж400:Бе200,[Бе210,r,LC│R:ЕPT(LC)┤1з340,в1З@480," MOVE FROM";LC;"TO 1-7 OR ENTER? ";,╕6R$│ Т:ЕR$│"" з310,┼;R│ Й(R$),┘@ЕR▓ZE ░R┤8 з350,яEЕR$│ Л(T3) зБж700,їTР,■^DC│R-(`C│C(DC,ZE):ЕCT(DC)▓ZE зC│C(DC,CT(DC))-<bБж150:DK│N:DS│S-[dC│C(LC,ZE):Бж150:LK│N:LS│S-keFL│ZE:Бж800-~fЕFL│OE за1,1:Р-ЯhЕCT(LC)┤OE ▒LC│8зБж380:Бе340-┬mЕPT(DC)│ZE зCT(DC)│м1:PT(DC)│1-╒rАX│ZE е CT(LC)- tCT(DC)│CT(DC)лOE:C(DC,CT(DC))│C(LC,X). uC(LC,X)│0.4vЛX:CT(LC)│0:PT(LC)│PT(LC)мOE:Бж385.>{Бе340.a|ЕPT(DC)│ZE зCT(DC)│м1:PT(DC)│1.Ь~CT(DC)│CT(DC)лOE:C(DC,CT(DC))│C(LC,0):PT(LC)│PT(LC)мOE.╨ЕLC│8 зC(8,0)│C(8,PT(LC)):ЕPT(LC)│ZE зC(8,0)│ZE/АЕLC│8 зАX│PT(LC)лOE е TCмOE:C(8,X)│C(8,Xл1):ЛX:TC│TCмOE:T│TмOE:Бе340/AБЕPT(LC)▓ZE зK│LC:KK│ZE:Бж1000:Бж450/fГЕPT(LC)│ZE зK│LC:KK│0:Z│ZE:Бж450/lЖР/ЩРЗ@480," ABANDON THIS GAME (Y/N)? ";/оЪR$│ Т:ЕR$│""з410/╛дЕR$│"Y"з900/╠оЕR$│"N"зР/╓╕Бе410/■┬C(K,KK)│Z:C│C(K,KK):Бж150:PS(K)│S:Р0&╠C(K,KK)│Z:C│C(K,KK):Бж150:CS(K)│S:Р0<XT│TлOE:ЕT▓TC з6600L]L│66:Бж31000_bPT(8)│PT(8)лOE0ulC(8,0)│C(8,PT(8))0{vР0аФRD│RDлOE:ЕRD▓OE зT│TC:а1,1:Бе6300╝ЮT│ZE:C(8,0)│ZE:PT(8)│ZE0╠иL│66:Бж31000╓▓Бе6300ф╝DC│0:K│LC0¤╞C│C(LC,CT(LC)):Бж1501╨ЕN│KS(S)лOE зБж750:Бе7401$┌а50,11*фР1WюKS(S)│N:ЕLC│8зPT(8)│PT(8)мOE:Бж383:Бе7601iЁC(K,CT(K))│ZE1НёЕCT(K)▓ZE зCT(K)│CT(K)мOE:Бе7601╦ЄЕPT(K)▓OE зБж1000:C(K,0)│Z:PT(K)│PT(K)мOE:C(K,1)│ZE:Бе7601уєC(K,ZE)│ZE:PT(K)│ZE1■°TT│N:L│42л(SнF4):Бж1702%TK│TKлOE:ЕTK▓51зБж100:Бж8000:Бе9002+ Р2F ЕPT(DC)│ZE ░LK│T3 з8502c%ЕPT(DC)│ZE ░LK┤▓T3 зFL│12П*Е(LS│OE ▒ LS│TW)░(DS│OE ▒ DS│TW) зFL│OE2╗4Е(LS│TH ▒ LS│F4)░(DS│TH ▒ DS│F4) зFL│OE2╤>ЕLK┤▓DKмOE зFL│OE2уHЕLC│DC зFL│OE2щRР2№ДЕ GP│100 з 9503)ЙЗ@480," PLAY ANOTHER (Y/N)? ";3>ОR$│ Т:ЕR$│""з9103PШЕ R$│"Y" з 503dвЕ R$│"N" з 90003nмБе9103Н╢З:З:З"THANKS FOR PLAYING."3к└З"SUCCESS RATE =";WN;"%"3╡╩Бе90003┬шZ│ Д(52)3╒ЄЕD(Z)│ZE з10003с№D(Z)│ZE3чР4 ЕT┤TCм2зЗ@LмT2,"====";:Бе 31084- ЕT│TCм2зЗ@LмT2,"----";:Бе 31084M ЕT│TCм1зЗ@LмT2,NL$;:Бе 31084f З@LмT2,NL$;:З@L,NL$;4v З@LлT2,NL$;4Ж !З@LлS4,NL$;4Э "З@LлN6,NL$;:Бе31404к $З@L,BL$;4║ &З@LлT2,BL$;4╩ 0З@LлS4,BL$;4┌ :З@LлN6,BL$;4р DР5ИC$(1,1)│ Л(177)л Л(177)л Л(176)5(ЙC$(2,1)│ Л(191)л Л(191)л Л(186)5LКC$(3,1)│ Л(180)л Л(190)л Л(176)5pТC$(1,2)│ Л(176)л Л(178)л Л(176)5ФУC$(2,2)│ Л(183)л Л(191)л Л(178)5╕ФC$(3,2)│ Л(180)л Л(190)л Л(176)5▄ЬC$(1,3)│ Л(176)л Л(162)л Л(176)6ЭC$(2,3)│ Л(167)л Л(175)л Л(162)6$ЮC$(3,3)│ Л(172)л Л(174)л Л(168)6HжC$(1,4)│ Л(161)л Л(163)л Л(176)6lзC$(2,4)│ Л(167)л Л(175)л Л(162)6РиC$(3,4)│ Л(172)л Л(174)л Л(168)6╟║T2│32:S4│64:N6│96:NN│99:T3│13:NL$│" ":WN│0:GP│06ф─ZE│0:OE│1:TW│2:TH│3:F4│46ътР7XЗ@192," ***SOLITAIRE***";75YЗ@256," BY JIM GERRIE";7ZZЗ@320," SHUFFLING...";7tbАDE│1е52:D(DE)│DE:ЛDE7мlАX│1е4:KS(X)│0:ЛX:АX│1е8:CT(X)│0:PT(X)│0:PX(X)│0:ЛX7┼vR$│"":TK│0:LC│0:DC│07╦АР7▌@АX│192е448йT28TЗ@X," ";8^ЛX8<cЗ@320," YOU WIN! ";8\hа150,4:а100,1:а150,1:а200,88hrWN│WNл18nРР8Ч!4З" SOLITAIRE ":З8╩!>З"IN KLONDIKE, ONLY A SINGLE CARD" 8ё!HЗ"IS TRANSFERED FROM THE DECK "9!MЗ"EACH TIME YOU HIT SPACE. THIS " 9@!RЗ"VERSION OF SOLITAIRE ALSO HAS "9g!WЗ"THE LIMITATION THAT YOU CAN "9О!\З"ONLY TURN THE DECK OVER ONCE. "9╡!aЗ"PLACE ALL THE CARDS, IN ORDER "9▄!fЗ"SORTED BY SUIT IN THE PILES AT ":!kЗ"THE TOP RIGHT. TO MOVE CARDS & ":*!pЗ"PILES USE 1-8 TO SELECT. HIT ":Q!uЗ"ENTER TO SELECT THE PILES AT ":y!zЗ"THE TOP RIGHT (THE 'ACE PILES').":!ДР:з#(Т 65496,0:В POKE 65494,0 FOR COCO 2:н#2К:╒#ZТ 65497,0:В POKE 65495,0 FOR COCO 2:¤#dMC│1024:В CHANGE MC=16384 FOR MC-10;#ВР!pЗ"PILES USE 1-8 TO SELECT. HIT ":Q!uЗ"ENTER TO SELECT THE PILES AT ":y!zЗ"THE TOP RIGHT (THE 'ACE PILES').":!ДР:з#(Т 65496,0:В POKE 65494,0 FOR COCO 2:н#2К:╒#ZТ 65497,0:В POKE 65495,0 FOR COCO 2:¤#dMC│1024:В CHANGE MC=16384 FOR MC-10;