рЕZ│1зS│20:TW│15:T│19:Бе600/9ъЕZ│2зS│30:TW│23:T│9:Бе600/WЇЕZ│3зS│38:TW│30:T│1:Бе600/f■Бж35:Бе450/ЙWВ **** input puzzle words ****/ЩXт40:Ю7:°7,6/╡bё12,0:З"<< WORDHUNT >>"06lё0,5:°2,6:З"Make sure that your printer is on line and that the paper is adjusted to 1/2 inch below the top perforation."0uvё0,10:З"Press <";:°4,4,B:З"ENTER";:°2,6:З"> to continue.":0КАZ$│ Т:ЕZ$│""з6400ЯЕё7,10:З"ENTER>";0╡КМPG$(S,S),WR$(TW)1Фё0,12:З"For best results use words of 12 lettersor less and no blank spaces, numbers, orpuncutation."1ЦЮё0,16:З"If you don't want to use every word available, then type '";:°7,6:З"XX";:°2,6:З"' as the last word."1╒иё0,20:З"Make sure that all letters are in upper case only.2▓ё0,23:З"Press <";:°4,4,B:З"ENTER";:°2,6:З"> to continue.";2)╝Z$│ Т:ЕZ$│""з70029╞т40:Ю2:°1,12[╨ё12,0:З"<< WORD HUNT >>":°2,12d┌PL│52qфАI│1е TW2еюё 0,PL:З"WORD#"I">";:ё10,PL:°3,1:╗Й WR$(I):°2,12╕°ЕWR$(I)│""з7502ьЕ  О(WR$(I),2)│"XX"зWR$(I)│"":AW│Iм1:I│TW:Бе8102Ў AW│TW3ЕPL▓│22зPL│43 PL│PLл13*ЛI3*4т40:Ю4:°7,33L>ё12,0:З"<< WORD HUNT >>":°2,33wHё0,5:Й"How many copies do you want";CR3МRЕ CR│1▒ CR│0з8804 \ё0,7:З"Do you wish the puzzles to be the same ";:З"or different (";:°3,3,B:З"S";:°2,3:З"/";:°3,3,B:З"D";:°2,3:З")";:ЙSD$4>fЕSD$┤▓"S"░SD$┤▓"D"░SD$┤▓"s"░SD$┤▓"d"зБж35:Бе8604Qkё14,8:З"S/D)";4╡pё0,10:З"Do want the answer key printed (";:°3,3,B:З"Y";:°2,3:З"/";:°3,3,B:З"N";:°2,3:З")";:ЙAK$4щzЕAK$┤▓"Y"░AK$┤▓"y"░AK$┤▓"N"░AK$┤▓"n"зБж35:Бе8804¤ё32,10:З"Y/N)";5qДё0,12:З"Do you want a special name for your puzzle (";:°3,3,B:З"Y";:°2,3:З"/";:°3,3,B:З"N";:°2,3:З")";:ЙPN$5еОЕPN$┤▓"Y"░PN$┤▓"y"░PN$┤▓"N"░PN$┤▓"n"зБж35:Бе9005╖Уё8,13:З"Y/N)"6.ШЕPN$│"Y"▒PN$│"y"зё0,15:З"The puzzle name must not exceed 38 totalletters, characters, and spaces.":°3,3:╗ЙSN$:°2,36nвЕ З(SN$)┤│38з980:Дё0,22:З"Your title is to long - REENTER."6мАTD│1е5000:Л6Л└ё0,22:З6Ц╩Бе 9206г╘АCC│1еCR6║▐ЕCC▓1░SD$│"S"з14006└шЮ6чЄё12,0:°7,3:З">> WORD HUNT <<":°2,37№ё0,3:З"Preparing a blank grid of ";S;"x";S;7"АI│1еS7:З"-*";:╔"T255;O3;A"7EАJ│1еS7V$PG$(I,J)│" "7_.ЛJ,I7l8АWN│1еAW7АBA│ Б( Д(0)нSл1)7ФLB│ Б( Д(0)нSл1)7кVX│ Б( Д(0)н3л1)м27└`Y│ Б( Д(0)н3л1)м27╙jЕX│0░Y│0Бе11107сtSA│A:SB│B7ў~АWL│1е З(WR$(WN))7 ИF│08CТЕPG$(A,B)┤▓" "░PG$(A,B)┤▓ Р(WR$(WN),WL,1)зWL│ З(WR$(WN)):Бе11908MФA│AлX8WЦB│BлY8ДШЕA┤0▒B┤0▒A▓S ▒B▓S зWL│ З(WR$(WN)):Бе11908МЬF│18ФжЛWL8и░ЕF┤▓1з1090:ДF│08╟║Ю:ё12,0:З"<< WORD HUNT >>"8ф─ё 0,4:З"Hiding >"WR$(WN)8·╬АWL│1е З(WR$(WN))9╪PG$(SA,SB)│ Р(WR$(WN),WL,1)9&тSA│SAлX92ьSB│SBлY9=ЎЛWL,WN9fЮ:ё12,0:°7,3:З">> WORD HUNT <<":°2,39┴ Е  О(AK$,1)│"Y" ▒  О(AK$,1)│"y"зё0,4:З"<*> Now printing the answer key <*>":Бж50:Д13409╘АPA│1е66м(Sл5)9▌З#м29х(ЛPA:"<ё0,10:З"Now placing ramdon letters in the puzzlegrid *";:-FАI│1еS:8PЗ"-*";:CZАJ│1еS:rdЕPG$(I,J)│" "зPG$(I,J)│ Л( Б( Д(0)н26)л65):{nЛJ,I:Ыxё0,15:З"Printing copy #";CC:оВБж50:З#м2:З#м2:╛МАI│1е TW й3:┘ЦЕWR$(I)│""зI│TW:Бе1450;аЗ#м2,д9)WR$(I);д33)WR$(Iл1);д58)WR$(Iл2); кЛI;*┤З#м2, Л(12):Гtop of form;2╛ЛCC;V╚Ю:ё12,0:°7,3:З">> WORD HUNT <<";░╥ё0,15:°1,3:З"Any more puzzles (Y/N)";:ЙMP$:ЕMP$│"Y"▒MP$│"y"з370ELSWIDTH40:Ю1:Т65496,0;─'Ю1:Т65496,0:т40                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        EБе728jFАE│1е6:ЕCT(E)│2зё31,PO:З"FULL HS";:PO│POл1:FH│1:ЕSS$(19,PL)│""зё0,10:°5,1,B:З"19 FULL HS>";:°2,18pGЛ8оHАE│1е4:ЕCT(E)▓0зЛ:Бж83:ё31,PO:З"S STR";:PO│POл1:SS│1:Бе758эIАE│2е5:ЕCT(E)▓0зЛ:Бж83:ё31,PO:З"S STR";:PO│POл1:SS│1:Бе 759,JАE│3е6:ЕCT(E)▓0зЛ:Бж83:ё31,PO:З"S STR";:PO│POл1:SS│1:Бе 759kKАE│1е5:ЕCT(E)▓0зЛ:Бж82:ё31,PO:З"L,STR";:PO│POл1:LS│1:Бе 779кLАE│2е6:ЕCT(E)▓0зЛ:Бж82:ё31,PO:З"L STR";:PO│POл1:LS│1:Бе 77:&MАE│1е6:ЕCT(E)│5зPO│POл1:ё31,PO:З"ZAHTZEE";:YT│1:SS│1:LS│1:K3│1:K4│1:FH│1:ЕSS$(22,PL)│""зё0,13:°6,4:З"22 YAHTZEE>";:°2,1:ZNЕSS$(23,PL)│"" зё0,14:°2,1,B:З"23 CHANCE";:°2,1:`OЛ:еPTT│0:PO│POл1:АE│1е5:TT│TTлE(E):Л:ё31,PO:З"TT PT"; И(TT);:PO│POл1:лQР:рRЕSS$(21,PL)│""зё0,12:°1,1,B:З"21 LG STR >";:°2,1;SЕSS$(20,PL)│""зё0,11:°5,7,B:З"20 SML STR>";:°2,1:Р:ДР;-T:Г REROLL DICE;╬UА RL│1е9:ё31,PO:°1,7:З".....";:PO│POл1:PO│15:ё31,PO:З"ENTER #";:PO│POл1:ё31,PO:З"OF DICE";:PO│POл1:ё31,PO:З"TO REROL";:PO│POл1:ё31,PO:PO│POл1:ё31,PO:З"1-5";<Vё0,21:° Д(6),1:З"ENTER 'E'";:ё0,22:З"TO END ";:ё0,23:З"TURN";:°2,1wcЕCO│23зH│5нPLл6:SS$(23,PL)│ И( Й(SS$(23,PL))лTT):Бж171:ёH,14:З И(TT);:SS$(25,PL)│ И( Й(SS$(25,PL))лTT):SS$(26,PL)│ И( Й(SS$(26,PL))лTT):Бе119>РdЕCO│17░K3│1з101:Д102?eБж172:H│5нPLл6:SS$(17,PL)│ И(TT):Бж171:ёH,8:ЗSS$(17,PL);:SS$(25,PL)│ И( Й(SS$(25,PL))лTT):SS$(26,PL)│ И( Й(SS$(26,PL))лTT):Бе119?VfЕCO│17░SS$(17,PL)│""зSS$(17,PL)│" 0":Бж171:ёH,8:ЗSS$(17,PL);?▐gЕCO│18░K4│1зБж172:SS$(18,PL)│ И(TT):Бж171:ёH,9:ЗSS$(18,PL);:SS$(25,PL)│ И( Й(SS$(25,PL))лTT):SS$(26,PL)│ И( Й(SS$(26,PL))лTT):Бе119@hЕCO│18░K3│1зЕSS$(17,PL)│""з101@CiЕCO│18░SS$(18,PL)│""зSS$(18,PL)│" 0":Бж171:ёH,9:ЗSS$(18,PL);:@╦jЕCO│19░FH│1зБж172:SS$(19,PL)│" 25":Бж171:ёH,10:ЗSS$(19,PL);:SS$(25,PL)│ И( Й(SS$(25,PL))л25):SS$(26,PL)│ И( Й(SS$(26,PL))л25):Бе119AkЕ CO│19░SS$(19,PL)│"" зSS$(19,PL)│" 0":Бж171:ёH,10:З" 0";:Бе 119AУlЕCO│20░SS│1зБж172:SS$(20,PL)│" 30":Бж171:ёH,11:З" 30";:SS$(25,PL)│ И( Й(SS$(25,PL))л30):SS$(26,PL)│ И( Й(SS$(26,PL))л30):Бе119A╒mЕCO│20░SS$(20,PL)│""зБж172:SS$(20,PL)│" 0":ёH,11:З" 0";:Бе119BXnЕCO│21░LS│1зБж172:SS$(21,PL)│" 40":Бж171:ёH,12:З" 40";:SS$(25,PL)│ И( Й(SS$(25,PL))л40):SS$(26,PL)│ И( Й(SS$(26,PL))л40):Бе119BаoЕCO│21░SS$(21,PL)│""зБж172:SS$(21,PL)│" 0":Бж171:ёH,12:З" 0";:Бе119C#pЕCO│22░YT│1зБж172:SS$(22,PL)│" 50":Бж171:ёH,13:З" 50";:SS$(25,PL)│ И( Й(SS$(25,PL))л50):SS$(26,PL)│ И( Й(SS$(26,PL))л50):Бе119ClqЕCO│22░SS$(22,PL)│""зБж172:SS$(22,PL)│" 0":Бж171:ёH,13:З" 0";:Бе 119CvrБе119CЩsAMT$│ И(CO):AMT│ Й( П(AMT$,1))C╛tSS│CT(AMT)нAMT:SS$(CO,PL)│ И(SS)C°uёH,COм9:ЗSS$(CO,PL);:SS$(24,PL)│ И( Й(SS$(24,PL))лSS)DvSS$(26,PL)│ И( Й(SS$(26,PL))лSS)D`wёH,16:ЗSS$(25,PL);:ёH,15:ЗSS$(24,PL);:ёH,17:ЗSS$(26,PL);:Бж170DВxGA│GAл1:Е GA│(13нNP) з Бе 122D┐yАA│1е5:Бж 31:Л:╔P3$:╔ P5$:PL│PLл1::Бе 37:Д PL│PLл1:Бе 37DрzАE│1е4:PL$(E)│SN$(E):Л:Бж170Ey{Ю:АZ│1е NP :Е Й(SS$(24,Z))▓62зSS$(24,Z)│ И( Й(SS$(24,Z))л35):SS$(26,Z)│ И( Й(SS$(26,Z))л35):ЗPL$(Z);:З" < ==== GOT BONUS";:З" ":АF│200е180йм1:аF,1:ЛEА|ЛZE■}PP│0:Бж 126:А PL │ 1 е NP:TT│ Й(SS$(26,PL)):NM$│PL$(PL):Бж135:Л PL:Бж 141:З:З:З" PRESS ENTER TO PLAY AGAIN ";:ЙA$:О 230F~:Г****GET HIGH SCORES****F2Щ"I",#1,"YAT.DAT"FЕАЮ:°2,1,B:A$│ б(44,"*"):Е PP│1 зЗ "**************HALL OF FAME";A$;"**********";FСБPP│PPл1FоВАE│0е9:Й#1,NM$(E),SC$(E)GLГЕ PP│2з°2,1,B:З б(9,"*");:°2,1:ЗEл1;:З б(3м З( И(Eл1))," ");"==>";" ";NM$(E);" ";:З б(9м( З(NM$(E)))," ");SC$(E);:°2,1,B:З" "; б(9м З(SC$(E)),"*"):°2,1G\ДЛ:Ъ:АE│1еNPGЦЕЕ GA▓0 ░ PP│2 з З б(39,"."):З" ";PL$(E);"=";SS$(26,E)G╢ЖЛ:°2,1,B:З б(39,"*"):°2,1:РG╘З:Г**** S O R T **********G·ИАT│0е9:Е TT▓ Й(SC$(T)) з :Д Л T:РHЙЕ HS(T)│1 ░ T┤9 з HS(Tл1)│1HXКHS(T)│1:АW│8 е T йм1:SC$(Wл1)│SC$(W):NM$(Wл1)│NM$(W):Л W:HЕЛЕ NM$│"" з Ю:Й "HI SCORE ENTER NAME";NM$HиМSCORE$(T)│ И(TTL):NM$(T)│NM$:РH╟Н:Г****PUT AWAY SCORES*****H▀ОЩ "O",1,"YAT/DAT:0"I ПАE│0е9:З#1,NM$(E):З#1,SCORE$(E):Л:Ъ:Бе127I<Рт32:А R│ 1е 4:┐ 1,1:╝ R:┴  Д(R)н2,R:╔P5$:ЛI]С╚3,1:А E │ 1 е 8:╝E:┴ E,E::ЛI Т╝1:╞"BM10,10;D20R20U20D20L10D20BR10D20U20R20D10L20R20D10BR10D20U10R20U10D20BR20BD10U10L10R20L10D20BR20R20G20R20BR10R20L20D10R7L7D10R20BR10R20L20D10R7L7D10R20SORT WINNERS8А J│1 е Nм189Е K(17,J)▓K(17,Jл1) з 5508e K│K(17,J):K(17,J)│K(17,Jл1):K(17,Jл1)│K8Л"A$│A$(J):A$(J)│A$(Jл1):A$(Jл1)│A$8У$X│18Ы&Л J8н(И X Бе538,5548╗*А J│1 е N8с,ъ(10,184)м(600,192),╛,BF:Т65496,09j.Е J│N з A$│"DEAD LAST - ":ъ(10,184)м(600,192),╛,BF:ю(17,24),A$л" "лA$(J):╔"V25T3O3P4L2CL3CL8CL2CE-L8DL3DL8CL3CO2L8BO3L2CP2":Бе5709s0Н A$9Р2ю(17,24),A$л" "лA$(J)9─4Е J│1 з╔"T2P4V15L16O4CEGL8O5CL16O4AL4O5C":Бе5689╫6А T│1 е 1500:Л9▀8Л J9Є:Т65497,0:Бж178:.<ъ(10,184)м(600,192),╛,BF:ю(18,24),"*** END OF GAME ***":A>А T│1 е 1000:Л:В@Бж176:ъ(10,184)м(600,192),╛,BF:ю(18,24),"PLAY AGAIN? (Y/N)":ТB Я│0:DEMO│0:╝DKB$│ Т:Е KB$│"Y" з ф 0:Ю:Бж588:П:Бе38:╘FЕ KB$│"N" з ц:Бе708:ЎHЕ  Я▓3000 з ф0:Ю:Бж588:П:Бе36;JБе580;LА K│1 е 7 :ГRESET TO 0;5NА J│1 е 18:K(J,K)│0:Л;HPA$(K)│"":Л K:Р;bRЖ "+++ THE WINNER +++;ИTЖ" SECOND PLACE "," THIRD PLACE ";оVЖ" FOURTH PLACE "," FIFTH PLACE ";╔XX│0:Г ARE WE FINISHED?;╫ZА J│1 е N;▀\Y│2;ю^А K│1 е 13<`Е K(K,J)│0 з Y│1< bЛ K<dK(18,J)│Y<+fЕ Y│2 з X│Xл1<3hЛ JМK(I,A)│K(I,A)лC(J)> ОЛ J:Р>Рф4:ч 2,3>=Тю(17,0),"C O C O - Y A H T Z E E">sФю(2,2),"ACES.........1 ... ... ... ... ... ... 1">йЦю(2,3),"TWOS.........2 ... ... ... ... ... ... 2">▀Шю(2,4),"THREES.......3 ... ... ... ... ... ... 3"?Ъю(2,5),"FOURS........4 ... ... ... ... ... ... 4"?KЬю(2,6),"FIVES........5 ... ... ... ... ... ... 5"?БЮю(2,7),"SIXES........6 ... ... ... ... ... ... 6"?Шаю(17,8), б(23,"-")?╦вю(2,9),"TOTAL UPPER... ... ... ... ... ... ...?удю(17,10), б(23,"-")@жю(2,11),"3 OF A KIND..7 ... ... ... ... ... ... 7"@Qию(2,12),"4 OF A KIND..8 ... ... ... ... ... ... 8"@Икю(2,13),"FULL HOUSE...9 ... ... ... ... ... ... 9"@┐мю(2,14),"SM STRAIGHT..A ... ... ... ... ... ... A"@Ўою(2,15),"LG STRAIGHT..B ... ... ... ... ... ... B"A-░ю(2,16),"YAHTZEE......C ... ... ... ... ... ... C"Ad▓ю(2,17),"CHANCE.......D ... ... ... ... ... ... D"A|┤ю(17,18), б(23,"-")A▒╢ю(2,19),"TOTAL LOWER... ... ... ... ... ... ..."Aц╕ю(2,20),"TOP BONUS..... ... ... ... ... ... ..."B║ю(2,21),"GRAND TOTAL... ... ... ... ... ... ..."B8╝ъ (131,10)м(323,180),╜,BBc╛А X│163 е 291 й 32:ъ(X,10)м(X,180),╜:ЛBГ└ъ(340,180)м(620,192),╛,BF:РBв┬KB$│ Т:Е KB$│"" з 706 :Д РBй─Ю1B╗╞ Я│3000:Бе584                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  .╝ц:ГCOCO YAHTZEE - I.B.M. PC PROGRAM BY PATRICK LEABO - FROM AN ORIGINAL PROGRAM BY JL HELMS AND MF PEZOK - JUNE 1979. COCO III CONVERSION BY JIM PEASLEY 1/87 (COMPUTER SCORING ROUTINE REWRITTEN TO LET COMPUTER SCORE HIGHER)W:ГCHALLENGE YOUR FRIENDS WITH I.B.M.'S & WATCH COCO BEAT THE I.B.M! DEMO ROUTINE ADDED 1/22/87k└1:у ў:Т65497,0zИ Ё Бе 708Ыф4:у 1,63:у 2,1:у 3,28:ч 1,3┐А B│1 е 6:э B,431:ц:Г DRAW DICE┌ ъ(290,16)м(350,42),╜,Bъ ш(330,30),1ўа 30нB,1И B Бж 20,22,24,26,28,304ы(290,16)м(350,42),B:Л:Бе34Yщ(320,29),4,2:ш(320,29),2:Р :Г1Шщ(305,23),4,2:щ(335,35),4,2:ш(305,23),2:ш(335,35),2:Р :Г2ёщ(305,23),4,2:щ(320,29),4,2:щ(335,35),4,2:ш(305,23),2:ш(320,29),2:ш(335,35),2:Р :Г3dщ(305,23),4,2:щ(335,35),4,2:щ(335,23),4,2:щ(305,35),4,2:ш(305,23),2:ш(335,35),2:ш(335,23),2:ш(305,35),2:Р :Г4ёщ(305,23),4,2:щ(335,35),4,2:щ(335,23),4,2:щ(305,35),4,2:щ(320,29),4,2:ш(305,23),2:ш(335,35),2:ш(335,23),2:ш(305,35),2:ш(320,29),2:Р :Г5Шщ(305,23),4,2:щ(335,35),4,2:щ(335,23),4,2:щ(305,35),4,2:щ(305,29),4,2:щ(335,29),4,2:ш(305,23),2:ш(335,35),2:ш(335,23),2:ш(305,35),2:ш(305,29),2:ш(335,29),2:Р :Г6н :Г*** INITIALIZE╚"М K(18,7),S(6,5),M(13)╤$ Я│0ъ&Бж496 :ГINSTRUCTIONS#(Е DEMO│1 з A$(1)│"GEORGE":A$(2)│"COCO":N│2:CC│1:Бе68M*Ю1:ё12,5:З"How many players? ";:Бж176d,Бж706:N│ К(KB$)м48y.Е N┤1 ▒ N▓6 з 44З0А A│1 е N╕2ё8,10:З"PLAYER NUMBER";A;", NAME PLEASE : ";▄4Бж176:╗Й A$(A):Е A$(A)│""з Бе50Є6A$(A)│ О(A$(A),9)8ё8,10:З б(70,32):Л A<Е N▓6 з 68S>ё8,10: З"DO YOU WISH TO PLAY AGAINST ME?";:Бж176Д@Y$│ Т:Е Y$│"Y"з CC│1:N│Nл1:A$(N)│"COCO":Бе68гBЕ Y$│"N" з CC│0:Бе68 :Д 64╗DА Y│1 е 13:Н M(Y):Л▀FЖ 12,9,1,2,3,4,5,6,8,7,11,10,13чHA│0JЮ:Бж656 :ГDRAW BOARD)LA│Aл1:Е A▓N з A│1 :ГNEXT ROLL PRESET7NH│0:Бж600GPЕ A│0 з 538\RЕ K(18,A)│2 з 76yTъ(10,184)м(344,192),╛,BFФVю(4н(Aм1)л16,23),A$(A)╖XH│Hл1:MR│0:P│10:Г INITIAL ROLL┼ZZ│ Д(м Я)╙\А B│1 е 5Ё^Y1│P:C(B)│ Д(6):DIE│C(B)`Бж622 :ГDRAW DIEbю(66,(Pо8)л1),B&dP│Pл32:Л9fЕ AнCC│N з 182LhЕ DEMO│1 з 182tjБж704 :ГPLAYER SELECTS QTY. TO ROLLДlЕ H▓2 з 160╔nю(44,23),"HOW MANY DICE TO ROLL AGAIN?":Бж176:Бж706:F│ К(KB$)м48▀pЕ F┤0 ▒ F▓5 з 106яrЕ F│0 з 160■tЕ F│5 з 88&vH│Hл1 :ГPLAYER SELECTS DICE TO ROLL0xБж704IzА NN│1 е 4:F(NN)│0:ЛЖ|ю(44,23),"ROLL WHICH ":ю(54,23),F:ю(57,23),"DICE AGAIN?"Ы~Бж176:А ND│1 е F┌АБж706:F(ND)│ К(KB$)м48:Бж180:Е F(ND)│0 ░ ND│1 з ND│F:Бе132°ВЕ F(ND)┤1 ▒ F(ND)▓5 з 128Дю(66лNDн2,23),F(ND):ЛЖX│2:XF│0-ИА J│1 е F=КЕ F│1 з 142UМЕ F(J)│F(Jл1) з X│1iОЕ F(1)│0 з XF│1ЖРЛ J:Е XF│1 з H│Hм1:Бе106ЩТИ X Бе 120,148╣ФА B│1 е 4 :ГROLL DICE AGAIN╠ЦЕ F(B)│0 з 158ъШC(F(B))│ Д(6):DIE│C(F(B))ЪY1│(F(B)м1)н32л10ЬБж622 :ГDRAW DIE#ЮЛ B:Бе106BаБж704 :ГPLAY BOARD NUMBER?Лвю(44,23),"PLAY BOARD NUMBER?":Бж178:Бж706:I│ К(KB$)м48:Е I▓9 з I│Iм7╡дБж180:Е I▓9 з ю(64,23), Л(Iл55):Бе168─жю(64,23),I█иЕ I┤1 ▒ I▓13 з 160∙кЕ I│12 ░ K(12,A)▓м1 з 182 мЕ K(I,A)│0 з 182 ]оа80,2:Бж704:ю(44,23),"NO - NO - DUMMY - - TRY AGAIN!":А ND│1е 1500:Л:Бе160 u░╔"L64T200O3ACCBE":Р Щ▓╔"L64T200O3CC#DD#EFF#GG#AA#B":Р ╡┤╔"L64T200O3CCADEAFF#":Р ┌╢А M│0 е 6:Г RESET ARRAY TO 0 є╕А K│0 е 5:S(M,K)│0:Л √║Л M!#╝А J│1 е 5:Г GET NEW ARRAY VALUES!>╛X│C(J):S(X,0)│S(X,0)л1!T└P│S(X,0):S(X,P)│J!\┬Л J!s─А B│1 е 5:F(B)│0:Л!Ы╞X│0:Г S(0,X)=QTY. OF EACH!н╚А J│5 е 1 йм1!┐╩А M│6 е 1 йм1!╒╠Е S(M,0)┤▓J з 208!ш╬S(0,X)│M:X│Xл1!Ё╨Л M!°╥Л J"%╘Е AнCC│N з H│Hл1:Бе272 :ГCOMPUTER'S TURN"@╓Е DEMO│1 з H│Hл1:Бе272"P╪Е I▓6 з 228"Z┌Бж640"k▄Е X│м1 з 268"Д▐K(I,A)│IнS(S(0,X),0)"ОрБе400"ит:Г CHECK PLAYER BOARD"╤фИ Iм6 Бе 230,234,238,242,252,260,266"ыцЕ S(S(0,0),0)┤3 з 268"√шБж650:Бе400#ъЕ S(S(0,0),0)┤4 з 268#%ьБж650:Бе400#QюЕ S(S(0,0),0)┤▓3 ▒ S(S(0,1),0)┤▓2 з 268#eЁK(9,A)│25:Бе400#ЫЄЕ S(1,0)▓0 ░ S(2,0)▓0 ░ S(3,0)▓0 ░ S(4,0)▓0 з 250#╤ЇЕ S(2,0)▓0 ░ S(3,0)▓0 ░ S(4,0)▓0 ░ S(5,0)▓0 з 250$ЎЕ S(3,0)▓0 ░ S(4,0)▓0 ░ S(5,0)▓0 ░ S(6,0)▓0 з 250$°Бе 268$'·K(10,A)│30:Бе400$`№Е S(1,0) ░ S(2,0) ░ S(3,0) ░ S(4,0) ░ S(5,0)│1 з 258$Щ■Е S(2,0) ░ S(3,0) ░ S(4,0) ░ S(5,0) ░ S(6,0)│1 з 258$гБе268$╕K(11,A)│40:Бе400$╙Е S(S(0,0),0)┤▓5 з 268%Е K(12,A)│0 з K(12,A)│50:╔"T2P4V15L16O4CEGL8O5CL16O4AL4O5C":Бе400%JK(12,A)│K(12,A)л100:╔"T20O2ACACACACAC":Бе400%Z Бж650:Бе400%Б K(I,A)│м1:Бе400 :Г INVALID CHOICE%з:Г ***- COMPUTER CHECKS -***%ўЕ S(S(0,0),0)│5 ░ K(12,A)│0 з K(12,A)│50:╔"ABCDDCBA":I│12:Бе400 :Г YAHTZEE?&YЕ S│2 з Е RD│7 з RD│0/-FЕ SL▓│3 з Е RD│8 з RD│0/7GБж 56/EHC(X)│RD:Л/tIч 0,11:ю(1,13),"Skill level -":ю(14,13),SL/~Jч 0,2/НKА T│1 е 10/│Lч 0,11:ю(1,14),"Turn #":ю(7,14),T/╧Mю(1,15),"Choose colors"/яNPQ│15:IP$│"":А I│1 е 4лSLм1/∙OБж 510PЕ SL│1 з Е I$┤"0" ▒ I$▓"5" з 790AQЕ SL│2 з Е I$┤"0" ▒ I$▓"6" з 790fRЕ SL▓│3 з Е I$┤"0" ▒ I$▓"7" з 790ЩSч  Й(I$),11:IP│ Й(I$):YP│I:Бж 47:IP$│IP$лI$:ЛI0─TА I│1 е 4лSLм1:PC(I)│ Й( Р(IP$,I,1)):Л0╬UБж 430┘Vч 0,110 Wю(1,16),"Redo turn (Y/N/Q)?":Бж511Xю(20,16),I$1YБж 561-ZЕ I$│"Q" Бе 1141?[Е I$│"Y" з 761^\А X│1 е 4лSLм1:Q(X)│C(X):Л1Ц]WP│0:А HJ│1 е 4лSLм1:А JH│1 е 4лSLм1:A(HJ,JH)│0:Л:Л1о^BP│0:А I│1 е 4лSLм11╪_Е Q(I)│PC(I) з BP│BPл1:Q(I)│8:PC(I)│81▐`Л2aА X│1 е 4лSLм1:А Y│1 е 4лSLм12bЕ Q(Y)│8 з Бе 1012,cЕ Q(Y)│9 з Бе 1012mdЕ PC(X)│Q(Y) з A(X,Y)│1:Q(Y)│9:PC(X)│9:Бе 101 :Д A(X,Y)│0 2ueЛ Y2}fЛ X2гgА X│1 е 4лSLм1:Q│0:А Y│1 е 4лSLм12║hЕ A(Y,X)▓0 з Q│Qл12┴iЛY2╒jЕ Q▓0 з WP│WPл12▌kЛ X2яlЕ WP┤0 з WP│03mЕ BP│0 з 1113:nА X│1 е BP:ч0,2:И X Бж 119,120,121,123,124,125,122:ЛX3KoЕ WP│0 з 1133ЗpА X│1 е WP:ч1,2:И XлBP Бж 119,120,121,123,124,125,122:Л3▒qЕ BP│4лSLм1 з 127 :Д ч0,2:PT│PTм25:ЛT3 rч 0,11:ю(1,16),"Secret code was ":А X│1 е 4лSLм1:ч C(X):ю(15лX,16),C(X):Л4 sБж 13047tч 0,11:ю(1,17),"Play again (Y/N)?":Бж 504HuЕ I$│"Y" з О4RvБе 124rwъ(PTм9,82)м(PTм6,85),╜,BF:Р4Тxъ(PTм2,82)м(PTл1,85),╜,BF:Р4▓yъ(PTл5,82)м(PTл8,85),╜,BF:Р4╥zъ(PTм2,88)м(PTл1,91),╜,BF:Р4Є{ъ(PTм9,94)м(PTм6,97),╜,BF:Р5|ъ(PTм2,94)м(PTл1,97),╜,BF:Р52}ъ(PTл5,94)м(PTл8,97),╜,BF:Р5=~Бе 1265Мч 0,11:ю(1,15),"Y o u W i n !!!!":ю(1,16),"Play again (Y/N)":Бж 130:Бж 515ЭАЕ I$│"Y" з О5гБК5ьВPT│37:ч 9,11:ъ(26,6)м(48,99),╜,BF:АX│1 е 4лSLм1:PC(X)│C(X):Л:Бж 43:Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Д& т32:Ю:П&JМ X(40),Y(40),PS(40),MP(4,5),I(4,5),J(4,5),O(4,5),Q(4,5)'4Ж 17,22,15,22,13,22,11,22,9,22,7,22,5,22,3,22,1,20,1,18,1,16,1,14,3,12,5,12,7,12,9,12,11,12,13,12,15,12,17,12,21,12,23,12,25,12,27,12,29,12,31,12,33,12,35,12,37,14,37,16,37,18,37,20,35,22,33,22,31,22,29,22,27,22,25,22,23,22,21,22( Ж 15,17,21,17,15,18,21,18,16,18,22,18,17,18,23,18,17,17,23,17,11,17,25,17,11,18,25,18,12,18,26,18,13,18,27,18,13,17,27,17,7,17,29,17,7,18,29,18,8,18,30,18,9,18,31,18,9,17,31,17,3,17,33,17,3,18,33,18,4,18,34,18,5,18,35,18,5,17,35,17(АА N│1 е 40:Н X(N):Н Y(N):Л N:А N│1 е 4:А T│1е 5:Н I(N,T):Н J(N,T):Н O(N,T):Н Q(N,T):Л T:Л N(║А N│1е4:АT│1е5:MP(N,T)│0:Л T:Л N:А T│1 е 4:B(T)│5:Л T(рЮ:З" (R)GB OR (C)MP MONITOR ?"(ЎA$│ Т:Е A$│"" з 7)#Е A$│"R" з PAL│1 :ДЕ A$│"C" з PAL│0 :Д 6)? у ў:ф2:у0,0:у1,63:ч 1,0)p ю(1,1)," Trubble (c) 1990 By John Demchenko")Ъ А T│1 е 3:╔"V20;O2;T6;L5;CGEP10GAB":Л)╖ ю(13,10),"Press any key")╦ A$│ Т:ЕA$│""з13*ц *.ю(10,9),"# of players(2-4)"*EA$│ Т:Е A$│"" з 16*fPN│ Й(A$):Е PN┤2 ▒ PN▓4 з 15*Кю(10,10),"Instructions (Y/N) ?"*бA$│ Т:Е A$│"" з 19*╢Е A$│"Y" з Бе 96*╔Е A$┤▓"N" з 19*╧ц*цВ DRAW GAME SCREEN+у 1,0:у 2,0:у 3,0:у 4,0:у 5,0:у 6,0+2А T│1 е 40:ю(X(T),Y(T)),"O":Л T+╖А T│23 е 119 й32:ъ(T,127)м(Tл24,151),╜,B:ъ(Tл144,127)м(Tл168,151),╜,B:ъ(Tл8,127)м(Tл16,135),╜,B:ъ(Tл152,127)м(Tл160,135),╜,B:Л T,!ю(4,16),"4":ю(34,16),"4":ю(8,16),"3":ю(30,16),"3":ю(12,16),"2":ю(26,16),"2":ю(16,16),"1":ю(22,16),"1",iю(12,20),"Start":ю(22,20),"Finish":ю(8,14),"Bases":ю(26,14),"Homes",Ыї"BM135,163;R4D8NE3H3":ї"BM175,163;L4D8NE3H3",╙АN│1е4:АT│1е5:ч(Nл1),0:ю(I(N,T),J(N,T)),"O":Л T:Л N,їч1,0:ъ(148,132)м(162,146),╜,B- Е PAL│1 з 33 :Д 34-<!у1,63:у2,36:у3,9:у 4,45:у 5,54:у 6,18:Бе 35-i"у 1,48:у2,39:у 3,44:у 4,41:у 5,36:у 6,18-{#В GAME START -Р$В PLAYER DISPLAY-е%В CLEAR MESSAGES-╝&P│Pл1:Е P▓PN з P│1-■'M$│"Player #"л И(P):ю(8,8),M$:ю(8,9),"Press any key to roll.".(A$│ Т:Е A$│"" з 40.╪)ч0,0:ю(8,6),"PLAYER"л И(PA)л" Bumped home!!":ю(18,17),R:ю(8,7),"No move "лT$л".":ю(8,10),"Marble home...":ю(8,10),T$л" moved a man out!":R│ Д(6):ч1,0:╔"L150;ABCABCABCABCCBACBACBA":ю(18,17),R.є*В DICE CONTROL SECTION/ +ML(P)│5 °&FТ 65479,0&+PИ Ё Бе 1850:И я Бе 1780&=Zу 0,11:у 1,63&Hdф2:ц 0&~nч 1:ю(2,12),"ARE YOU USING 1-RGB OR 2-COMPOSITE?"&▓xI$│ Т:Е I$│"1" з MN│1 :Д Е I$│"2" з MN│2 :Д 110&╞ВБж 880:Г SET-UP&чМу ў:Бж 940:Г HGET EVERYTHING'ЦБж 1150 :Г TITLE CARD 'аБж 1240 :Г DRAW SCREEN'bкPRC$│"1.00":SC│0:PO│5000:HI│1:AL│1:T│0:M│2:TT│2:F│50:R│1:PI│5000'v┤у Ў:И Ё Бе 1680'П╛Бж 1540 :Г SET LEVEL'а╚:Г MAIN LOOP'─╥JA│ Б(( Н(0)н5)о2)н2:JB│ Н(1)н2'х▄ь(316,JBл40)м(320,JBл40),1,и(&цЕ JA┤▓X з ь(X,175)м(Xл3,189),1,╜:X│JA:ь(X,175)м(Xл3,189),8,╜(PЁЕ  к(0)│1 ▒  к(1)│1 з Е PO▓0 з Бж 330(С·Е NU▓0 з А G│1 е NU:T(G)│T(G)м1:Е T(G)│0 з Бж 780:Л G :Д Л G(─Е NU┤M ░ TNO┤TT з Е  Д(F)│1 з Бж 640:TNO│TNOл1(хь(316,JBл40)м(320,JBл40),1,и)Е NU│0 ░ TNO│▓TT з 300) "Бе 210)',Бж 1370:Г ADVANCE LEVEL)26Бе 210)C@:Г FIRE SHOT)RJFL│0:ч 0,2)aTА G│1 е NU)Ч^Е X▓X(G) ░ X┤X(G)л15 зЕ JBл40┤Y(G)л20 з FL│1:FP│G)ЯhЛ G)┐rЕ FL│1 з Y│Y(FP) :Д Y│JBл40)╘|ы(X,174)м(X,Y),9)щЖъ(X,174)м(X,Y),╜*:Р╔"L255T255O3V15;1;V-;2;V-;3;V-;4;V-;5;V-;6;V-;7;V-;8;V-;9;V-;10;V-;11;V-;12"*QЪь(X,174)м(X,Y),9,╜*dдч 5:ю(32,0),PO*ЕоPO│POм(128мJB):Е PO┤0 з PO│0*Ш╕ч 0:ю(32,0),PO*з┬Е FL│0 з Р*╣╠:Г HIT TARGET*ф╓ь(X(FP),Y(FP))м(X(FP)л15,Y(FP)л16),7,╜+3р╔"L255T255O1V20AV-AV-AV-AV-AV-AV-AV-AV-AV-AV-AV-AV-AV-AV-AV-AV-AV-AV-AV-A"+LъА G│Y(FP) е Y(FP)л16+sЇь(X(FP),G)м(X(FP)л15,Y(FP)л16),7,╜+{■Л G+ЛА G│FP е NU+│X(G)│X(Gл1):Y(G)│Y(Gл1):T(G)│T(Gл1)+╗Л G+╧&HI│HIл1:NU│NUм1+р0ч5:ю(8,0),SC+ё:ю(21,0),PRC$+ DSC│SCл100,3NЕ HIоTT│1 з PRC$│"1.00" :Д PRC$│ О( И(HIоTT),4),DXч0:ю(8,0),SC,Ubю(21,0),PRC$,[lР,wv:Г ADD TARGET TO SCREEN,ГАNU│NUл1,╕КFL│0:X(NU)│ Б(( Д(290)л10)о2)н2:Y(NU)│ Д(100)л40,╔ФЕ NU┤2 з 710,┌ЮА G│1 е NUм1-иЕ  Б(X(NU)о20)│ Б(X(G)о20) ░  Б(Y(NU)о20)│ Б(Y(G)о20) з FL│1-#▓Л G-4╝Е FL│1 з 650-L╞╔"L255T255O3V0":P│0-j╨А G│Y(NU)л16 е Y(NU) й м1-С┌ь(X(NU),G)м(X(NU)л15,Y(NU)л16),6,╜-▒фP│Pл1:P$│"V"л И(P)л"A":╔ P$-╣юЛ G-╬°T(NU)│Tл Д(10):Р-э:Г TAKE TARGET FROM SCREEN. ╔"L255T255O3V17":P│17.А Q│Y(G) е Y(G)л16.B ь(X(G),Q)м(X(G)л15,Y(G)л16),6,╜.b*P│Pм1:P$│"V"л И(P)л"D":╔ P$.j4Л Q.y>А Q│G е NU.бHX(Q)│X(Qл1):Y(Q)│Y(Qл1):T(Q)│T(Qл1).йRЛ Q.╖\NU│NUм1:Р.╧pМ X(16),Y(16),T(16)/zP$(1)│"6316180756080925370454544835000000000000000000000000000000000"/cДP$(2)│"6302331632112743000300351906000000000000000000000000000000000"/АОP$│P$(MN):Бж 1630:у 15,0/ЖШР/змц 1:э 1,220:ы(1,1)м(20,20),1/╚╢ц 2:э 2,220:ы(1,1)м(20,20),2/щ└ц 5:э 3,110:ы(1,1)м(20,10),30 ╩ц 6:э 4,110:ы(1,1)м(20,10),40+╘ц 7:э 5,110:ы(1,1)м(20,10),50L▐ц 2:ч 11:ъ(0,1)м(15,16),╜,BF0gшч 6:щ(3,4),3:щ(12,4),30ВЄш(3,4),0,6:ш(12,4),0,60Ю№ч 9:щ(7,10),5,,.75,0,.50╗э 6,200:ы(0,0)м(15,16),60╪ч 12:ъ(0,1)м(15,16),╜,BF0єч 6:щ(3,4),3:щ(12,4),31$ш(3,4),15,6:ш(12,4),15,61,.ч 9:щ(7,12),5,,.75,.5,01I8э 7,200:ы(0,0)м(15,16),71eBц 1:ч 3:ъ(4,1)м(4,15),╜1}Lч 4:ъ(5,5)м(5,15),╜1зVч 9:ъ(6,10)м(6,14),╜:ъ(7,11)м(7,14),╜1├`э 8,300:ы(4,1)м(7,15),81╤jэ 9,400:Р1хt:Г TITLE SCREEN1Є~т 40:Ю 72Иё 0,3:° 0,42ТН I$:Е I$│"999" з 120027ЬL│40м З(I$):L│ Б(Lо2)2LжЗ дL);I$:Бе 11702b░° 6,6:ё 39,23:у Ў2u║Е  Т│"" з 12102─у ў:Р2Т╬:Г DRAW SCREEN2Э╪ф2:ц 22▓тА G│0 е 320 й 202╦ьь(G,0)м(Gл19,10),3,╜2хЎь(G,11)м(Gл19,21),4,╜2 ь(G,22)м(Gл19,32),5,╜3 Л G3Lї"C3;BM319,32;M0,32;M80,12;M160,30;M240,12;M319,32":ш(80,20),3,33Гї"C4;BM80,32;M240,32;M160,12;M80,32":ш(160,20),4,43Я(ч0:ъ(0,171)м(320,171),╜3╨2А G│0 е 320 й 20:ь(G,172)м(Gл20,192),1,╜:Л G4<ю(3,0),"SCORE 0 PRC 1.00 POWER 5000"4FР4P:Г LEVEL ADVANCE4-Zч 5:ю(8,0),SC4MdPB│ Б((HIоTT)н500):SC│SCлPB4_nч 0:ю(8,0),SC4yxч15:PB$│ И(PB)л"PTS."4ЫВю(7,11),"POINTS BONUS- "лPB$4╜МR│Rл1:Е  Б(Rо10)┤▓Rо10 з 15004яЦч 15:ю(7,13),"POWER BONUS - "л И(PI)л" UNITS"5 ач 5:ю(32,0),PO:PO│POлPI5кч 0:ю(32,0),PO5-┤PI│PIл20005<╛А G│1 е 105{╚╔"L255T255V20O2;A;V+;B;V+;C;V+;D;V-;E;V-;F;V-;E;V+;F;V+;G"5Г╥Л G5Ч▄А G│1 е 500:Л G5мцА G│40 е 280 й 85╩Ёь(G,88)м(Gл8,112),2,╜:Л G5ч·Е HIоTT ┤.5 ▒ PO│0 з17306!NU│0:T│Tм10:Е T┤10 з T│55:TT│TTл2:M│Mл2:Е M▓10 з M│1067F│Fм1:Е F┤5 з F│56Zч 10:ю(15,3),"ROUND":ю(20,3),R6s"А Q│1 е M:Бж 640:Л Q6З,А G│1 е 200:Л G6и6ч4:ю(15,3),"ROUND":ю(20,3),R6╝@TNO│M:HI│0:JA│X6┬JР6╪T:Г PALETTE SET-UP6ч^А G│0 е 317hP│ Й( Р(P$,(Gн2)л1,2))7 |Л G:Р7#Ж:Г PROGRAM ABORTED7TРА G│32 е 288 й 10:ь(G,88)м(Gл10,112),2,╜:Л G7дЪч15:ю(11,11),"-PROGRAM ABORTED-":ю(4,13),"WOULD YOU LIKE TO RESTART(Y/N)[?"7┤дИ Ё Бе 17107яоI$│ Т:Е I$│"Y" з у ў:Бе 160 :Д Е I$│"N" з 1850 :Д 17108╕:Г GAME OVENЕAC│2░K2│1з:ДЕAC│1░JK│1з:Д340/,OP│23:Бе480/cTЕD▓0зч4:ю(0,11),"Try Again!":а80,1:а1,4:Бе480:Д480/l╓P│18/╢рЕP▓0зч5:Бж1004:АQ│1е13:K│ Д(50):аK,1:Л:а1,5:D│DлW:ЕHH┤D зHH│D :Д:Д495/┴ъБж52000яБж5700:ЕD▓0зRM│3:Бж5400:AB│1:Бе24:ДGM│1:Q│0:H9│1:а80,1:а1,4:B$│"":Бе20000%ч:ГSHOW THE RETURNS0OшX│0:Бж5250:Бж1099:АP│15е23:Бж1004:Л:Р0РьX$│" ":ИPм14Бж1010,1020,1030,1040,1050,1060,1070,1080,1090:Р0╔ЄX$│"$":W│100нAB:L│ З( И(W)):PR$│"Royal Flush":Бе10930ь№W│40нAB:PR$│"St. Flush":Бе10931W│20нAB:PR$│"4 of a Kind":Бе109315W│10нAB:PR$│"Full House":Бе10931SW│5нAB:PR$│"Flush":Бе10931t$W│4нAB:PR$│"Straight":Бе10931Ш.W│3нAB:PR$│"3 of a Kind":Бе10931╖8W│2нAB:PR$│"2 Pair":Бе10931╠BW│AB:PR$│"2 Aces2EPN│Lм З( И(W)):PR$│X$л П( И(W), З( И(W))м1)л" "лPR$:ю(PN,P),PR$:Р2TKч2:X$│"Returns on $"л П( И(AB), З( И(AB))м1)л":":ю(0,14),X$:Р2лLЕH9│1зX│160:Бж5250:ч7:ю(21,14)," for betting:":ДБж1200:Бе24 :ГSHOW BET RULES2═Qю(21,15),"<1-9,0> = $1-$9,$102ЇVю(21,16),"=1/4 of $":ю(32,16),D3[ю(21,17),"=2/4 of $":ю(32,17),D3B`ю(21,18),"=3/4 of $":ю(32,18),D3ieю(21,19),"=4/4 of $":ю(32,19),D3кjю(21,20)," will re-":ю(22,21),"peat your last bet"3хoю(21,22)," to see scores":ю(21,23)," to end game3ыпР4F░X│160:Бж5250:ч2:ю(21,14),"Definitions:":ю(21,15),"(AKQJ10 of a suit) 'SHOW DEFINITIONS4g║ю(21,16),"(Run of 5 in suit)4И─ю(21,18),"(3 of kind & pair)4й╬ю(21,19),"(All of same suit)4╦╪ю(21,20),"(Run of 5 any suit)4╤тР5*ЕH9│1зX│160:Бж5250:ч6:ю(21,14)," for drawing:":ДБж1200:Бе100 :ГSHOW DRAW RULES5Lю(21,16),"<1-5> will discard,5Лю(22,17),"or will recall, an":ю(22,18),"erroneous discard.5н#ю(21,19)," Discards all 5!6 (ю(21,21)," will re-":ю(22,22),"place cards and/or":ю(22,23),"continue the game."6wР6$╧:ГSHOW SCORES6k╨ЕH9│м1зX│160:Бж5250:Бж1200:Р:ДБж2002:ЕB$│"S"зР:ДЕB$│"E"з2100:Д20506█╥X│160:Бж5250:ч9:ЕN$▓""зАQ│9е1йм1:ЕHH▓ Й(S$(Q))зS$(Qл1)│S$(Q):S$(Q)│ И(HH):N$(Qл1)│N$(Q):N$(Q)│N$:ДQ│1:Д20056с╙Л7╒ю(21,14),"Nine high scores:7L┌АQ│1е9:Q$│ П( И(Q),2)л О(" "лN$(Q)л" ",9)лS$(Q):ю(20,14лQ),Q$:Л7R█Р7qЕHH▓ Й(S$(9))░HH▓20з:Д20677Яа80,1:L│0:ч1:Бж5204:ю(21,12),"Your name?"7╙ъ(257,103)м(263,103),╜,B:ы(257,103)м(263,103),38t M$│ Т:ЕM$│""зь(257лLн8,103)м(263лLн8,103),3,╜:Бе2060:Дь(257лLн8,103)м(263лLн8,103),2,╜:ЕM$│ Л(8)з2068:ДЕM$▓ Л(31)░L┤8зю(32лL,12),M$:N$│N$лM$:L│ З(N$):Бе20708░Т282,255:ЕM$┤▓ Л(13)зN$│"":Бе2050:ДЕN$▓""зБж2002:Бе21208╬Бж5204:ЕB$│"E"з2142:Д21409ь(249лLн8,96)м(263лLн8,103),2,╜:L│Lм1:ЕL┤1зN$│"":Бе2050:ДN$│ О(N$,L):Бе20609;ЕL│1зТ282,0:Бе2060:Д20609n4а80,1:ю(5,11),"Do you want to END GAME (Y/N)?"9г>A$│ Т:ЕA$│""з2110:ДЕA$│"Y"з2050:ДБж5270:Бж5200:Р9╚HБж5270:ю(13,11),"Saving scores!"9сMТ&HFFD8,0:Щ"O",#1,F$:BRАQ│1е9:┘#1,N$(Q),S$(Q):Л:Ъ#1:ЕH9│0зЮ:З"SCORES file established/cleared!":С:ДТ&HFFD9,0:Бе2140:y\а80,1:Бж5270:ю(6,11),"Press to play again":Ф]A$│ Т:ЕA$┤▓ Л(13)з2141:▒^Бж5270:Бж5602:Z│108:Бе15:─И:ГSUB ROUTINES;$ЕH9│0зч14:ъ(X,Y)м(Xл40,Yл54),╜,B:ч4:ъ(Xл1,Yл1)м(Xл39,Yл53),╜,BF:ы(X,Y)м(Xл40,Yл54),1:Бе5150;?ь(X,Y)м(Xл40,Yл54),1,╜;дБж5300:ЕR│15зї"S4C14":HX│Xл1:HY│Yл8:Бж6000:Бж6010:Р :Дї"S8C14":HX│Xл3:HY│Yл15:Бж5152:ЕS▓2зч3:Дч2;═HX│HXл1:Бж5152:HY│HYл1:Бж5152:Бе5155<" Бж6020:ИRм1 Бж6025,6030,6035,6040,6045,6050,6055,6060,6065,6080,6100,6085,6070:Р"dЕQS│1зь(0,88)м(112,95),2,╜:TM│TMнм1:ЕTM│1з:Дч4:ю(0,11),"Draw?":АQ│1е360:Л>,eБе100>KВь(X,112)м(Xл160,192),2,╜:Р>ВМь(0,Zл4)м(320,Zл44),2,╜:ь(0,Zл45)м(320,Zл85),2,╜:Р>ЭЦь(0,88)м(320,95),2,╜:Р>╤┤S│ Й("&H"л О(H$(Z),1)):R│ Й("&H"л П(H$(Z),1)):Р?ч4:Е Д(RM)│1зC(4,15)│0:X$│"Joker is IN":ДC(4,15)│8:X$│"Joker is OUT"?Bь(72,104)м(95,111),2,╜:ю(0,13),X$:Р?Б|ЕC(0,R)лC(0,Rл1)лC(0,Rл2)лC(0,Rл3)лC(0,Rл4)лC(0,15)▓4зFL│1?З}Р?гсь(32,80)м(288,87),2,╜:Р?╬тY│14:Z│0:АX│24е264й56:Z│Zл1:Бж5160:Л:Р?·DC(0,15)│0:АR│0е14:АS│0е4:C(S,R)│0:Л:Л:Р@ S│ Д(4):R│ Д(14)л1:ЕC(S,R)▓0з5890@ИC(S,R)│9:C(0,R)│C(0,R)л1:H$(Z)│ Ь(S)л Ь(R):C(S,1)│C(S,14):C(0,1)│C(0,14):ЕR┤15зC(S,0)│C(S,0)л1:Р:ДР@╦Y│14:Z│1:Q│1:АX│24е264й56:Бж5140:аQ,1:Q│Qл20:H(Z)│м1:Z│Zл1:Л:Р@¤ч2:ю(4,9),"<1> <2> <3> <4> <5>":РAўч1,0/'№ю(2,2),"lrtrtrtrtrtrtrtrtrtrn"/:А X│3 е 19 й 2/]ю(2,X),"q q q q q q q q q q q"/Вю(2,Xл1),"urprprprprprprprprprv"/К$Л X/о.ю(2,21),"q q q q q q q q q q q"/╥8ю(2,22),"mrsrsrsrsrsrsrsrsrsro"/┘=ч80 Bю(24,3),"VIEW HOME":ю(24,4),"PLANET STATUS"04Lю(24,9),"ACTIVATE":ю(24,10),"MISSILES"0eVю(24,6),"VIEW ENEMY":ю(24,7),"PLANET STATUS"0~`ю(24,12),"QUIT GAME"0Н╪Е X1▓X2 з 0еЗВ *>SELECT OPTION<*0└ИX│ Н(0):X│ Б( Н(1)о16)0∙ТЕ  к(0)│1 з И Xл1 Бж 10000,11000,12000,13000:Бе 50001Ьч5:И Xл1 Бе 5030,5040,5050,50601Джю(24,3),"VIEW HOME":ю(24,4),"PLANET STATUS":ч8:ю(24,3),"VIEW HOME":ю(24,4),"PLANET STATUS":Бе 50001э░ю(24,6),"VIEW ENEMY":ю(24,7),"PLANET STATUS":ч8:ю(24,6),"VIEW ENEMY":ю(24,7),"PLANET STATUS":Бе 50002J║ю(24,9),"ACTIVATE":ю(24,10),"MISSILES":ч8:ю(24,9),"ACTIVATE":ю(24,10),"MISSILES":Бе 50002Г─ю(24,12),"QUIT GAME":ч8:ю(24,12),"QUIT GAME":Бе 50002а'В *>DIPLAY HOME PLANET<*2й'ч0,02═'А X1│3 е 21 й 2:А Y1│3 е 21 й 22▐'$ю(X1,Y1),"a"2ъ'.Л Y1,X13'8А Y1│0 е 9:А X1│0 е 93]'BЕ PS$(X1,Y1)│"k" з ч 5:ю((X1л1)н2л1,(Y1л1)н2л1),"a":ч 6:ю((X1л1)н2л1,(Y1л1)н2л1),"k"3╢'LЕ PS$(X1,Y1)│"j" з ч 5:ю((X1л1)н2л1,(Y1л1)н2л1),"a":ч 8:ю((X1л1)н2л1,(Y1л1)н2л1),"j"3ю'QЕ PS$(X1,Y1)│"*" з ч 2:ю((X1л1)н2л1,(Y1л1)н2л1),"*"3∙'VЛX1,Y14'`ч 248'jю(24,16),"CITIES="л И(PC):ю(24,17),"BASES="л И(PM)4N'tЕ  к(0)│0 з 101004Н'~ч 0:ю(24,16),"CITIES="л И(PC):ю(24,17),"BASES="л И(PM):ч 84Ч'Га 1,14Э'ИР4╝*ўВ *>DISPLAY ENEMY PLANET<*4╞*°ч 0,04щ+А X1│3 е 21й 2:А Y1│3 е 21 й 24·+ ю(X1,Y1),"a"5+Л Y1,X15 + А Y1│0 е 9:А X1│0 е 95X+*Е CS$(X1,Y1)│"*" з ч 2:ю((X1л1)н2л1,(Y1л1)н2л1),"*"5d+4Л X1,Y15l+>ч 25г+Hю(24,16),"CITIES="л И(CC):ю(24,17),"BASES="л И(CM)5╣+RЕ  к(0)│0 з 110905Ў+\ч0:ю(24,16),"CITIES="л И(CC):ю(24,17),"BASES="л И(CM):ч86+fа 1,16+pР6.▀В *>FIRE MISSILES<*6J.рч6:ю(25,24),"f":ч 2:ю(24,22),"EXIT":ч 06T.фX1│256h.ъВ *>MOVE LEFT<*6q.яM│PM6▓.ёч 6:ю(24,19),"f":ч0:ю(25,19),"aaaaa":ч 2:ю(25,19)," ="л И(M)6Ў.ЇЕ  Н(0)┤20 ░ X1▓3 з ч 6:ю(X1м2,24),"f":ч 0:ю(X1,24),"a":X1│X1м27 .■В *>MOVE RIGHT<*7 /ч 6:ю(X1,24),"f"7e/Е  Н(0)▓40 ░ X1┤21 з ч 6:ю(X1л2,24),"f":ч 0:ю(X1,24),"a":X1│X1л27x/А X│1 е 40:Л X7╨/Е X1│25 ░  к(0)│1 з ч0:ю(24,22),"EXIT":ю(25,24),"a":ю(24,19),"aaaaaaaa":а 1,1:ч 8:Р7ф/&Е X1│23 з 120207·/0Е  к(0)│0 з 120208/:В *>MISSILE FIRED!<*8/?Y1│238K/Dч6:ю(X1,Y1м2),"f":ч0:ю(X1,Y1),"a":Y1│Y1м28o/Nа 1,1: Е  к(0)│1 ░ Y1▓3 з 121008Д/Sч 0:ю(X1,Y1),"a"8╖/XА C│1 е 3:ч C:ю(X1,Y1),"g":╔"O1T255L255CE":Л C8р/bА C│1 е 3:ч C:ю(X1,Y1),"h":╔"CE":Л C9 /lА C│1 е 3:ч C:ю(X1,Y1),"i":╔"CE":Л C9"/Ач 0:ю(X1,Y1),"a":ч 89Q/КЕ CS$( Б(X1о2)м1, Б(Y1о2)м1)│"k" з CC│CCм19А/ФЕ CS$( Б(X1о2)м1, Б(Y1о2)м1)│"j" з CM│CMм19г/ЮCS$( Б(X1о2)м1, Б(Y1о2)м1)│"*"9╗/иM│Mм1:Е M▓0 з 120179╒0Е CC│0 ▒ CM│0 з 200009я0В *>COMPUTER'S TURN<*:#0 ч0:ю(24,19),"aaaaaaaa":ю(24,22),"aaaa":ч8:у 8,0:n0*у 3,0:ч 3:ю(24,18),"RED ALERT":ю(24,19),"INCOMING":ю(24,20),"MISSILES":|04А X│1 е 5:┐0>у 3,36:╔"T255L255O1CDEFGABO2CDEFGABO3CDEFGAB":у 3,0:╔"T1L25P8":╟0HЛ X;0Rч 0:ю(24,18),"aaaaaaaaaa":ю(24,19),"aaaaaaaa":ю(24,20),"aaaaaaaa":у 3,36;60\X1│36:Y1│0:ч 7:ю(X1,Y1),"bcd";E0fА M│1 е CM;a0pX2│ Д(10)м1:Y2│ Д(10)м1;М0zЕ PS$(X2,Y2)│"*" ░ PM▓0 ░ PC▓0 з 12400;м0}Е PS$(X2,Y2)│"k" з PC│PCм1;╠0Е PS$(X2,Y2)│"j" з PM│PMм1;▀0БPS$(X2,Y2)│"*"2кч0:ю(X1,Y1),"aaa":у 8,32>2┤Р>22╟В *>QUIT GAME<*>Z2╚ч 2:ю(24,19),"QUIT?":ю(24,21),"YES">p2═Е  к(0)│1 з 13005>Д2╥S│ Н(0):S│ Н(1)>д2▄Е S┤32 з ч 0:ю(24,21),"aaa">─2цЕ S▓32 з ч 2:ю(24,21),"YES">┌2ЁЕ  к(0)│0 з 13010?2·Е S┤32 з ч 0:ю(24,19),"aaaaa":ч 8:а 1,1:Р?3у ў?A3т 40:З"THE ONLY WAY TO WIN IS NOT TO PLAY":К?cCC):ю(24,17),"BASES="л И(CM):ч8?wNВ *>GAME OVER<*?N у ў?МN*ф 0:т 40?пN4Е CM│0 ▒ CC│0 з З"YOU WIN!!":К?┼N>З"COMPUTER WINS!"?╦NHК?с├OВ *>INTRUCTIONS<*?ё├Pт 80:у 8,63@А├ZЗ:З" You and the computer each start the game with 15 cities and 10 missile bases. When one of you runs out of either, the game ends."A&├dЗ:З" You have 4 choices at the main menu:"; б(2,13);" HOME PLANET STATUS"; Л(13);" ENEMY PLANET STATUS"; Л(13);" A:З"5 MEMORY UNITS OBTAINED)"::ДЗ"INCORRECT"A╘█З"HOW MANY OUNCES ARE IN A CAN OF SODA?":Й A:Е A│12зЗ"YES, 12":ME│MEл5:З"5 MEMORY UNITS OBTAINED"::ДЗ"NO, THERE ARE NOT";A;"OUNCES!!!":ME│MEм5:З"5 MEMORY UNITS LOST"AяЗ"END OF QUIZ":SC│SCл5BaЗ"THE INSTRUCTOR IS NOT IMPRESSED":З"WITH THE CLASS AS A WHOLE AND":З"CANCELS THE COURSE.":Бж4999:Бж4999:Бе80BtЗАT│1е1000:ЛT:РBИВ WORKBЖЙЮ0B┐ТЗ:З:ё7,10:°5,0,B:З"**** HAMBURGER HEAVEN ****";:°0,1B┼УЗCVЧЕ H│5зЗ"YOU NEED ANOTHER WORK PERMIT TO":З"WORK AGAIN THIS SOON.":З"YOU CAN PROBABLY GET ONE OUT ON":З"THE STREETS SOMEWHERE...":Бж4999:Бе80CбЬЗ"YOU MUST MAKE 1,600 HAMBURGERS":З"EACH SESSION TO GET YOUR WAGES..."C═жЗ"PRESS < CR > TO CREATE 32 HAMBURGERS"C╒зA│0Cь░A$│ Т:Е A$│""з5040D║A│Aл32:З"TOTAL HAMBURGERS MADE: "ADш╗H5│ Д(20):Е H5│9зЗ"FRENCH FRIES SPILLED ON FLOOR.......BE CAREFUL!":ДЕ H5│7зЗ"SHIFT SUPERVISOR IS WATCHING! BETTER WORK FASTER!":ДЕ H5│5зЗ"DEEP FRYER NEEDS MORE GOOSE FAT!":╗Й"PRESS TO ADD GOOSE-FAT";A1$D√┐Е A│▓1600з5070E─Бе5040EС╬MO│MOл100:З"WAGES EARNED: $100.00":H│5:SC│SCл10:З"A CUSTOMER GIVES YOU A .10 TIP!":SP│SPл.10:З"YOUR SHIFT IS OVER!":Бж4999:Бж4999:Бе80EЧoРEмpВ WANDER STREETSE│qЮ8E╗uЗ:ЗEьzё8,5:°0,1,B:З"MAIN ST. PARKING GARAGE";:°0,1EЎЗ:З:ЗFДЗ"CHOOSE DIRECTION: "F#ОЗ" N S E W"FAПЗ"ENTER FOR GORFLAND"FGРЗF]ШA$│ Т:ЕA$│""з6040FmЭЕ A$│"G"з80F▒вЕA$│"N"з6100:ДЕ A$│"S"з6200:ДЕ A$│"E"з6300:ДЕ A$│"W"з6400:Д6000F█╘З:З:З"WELCOME TO THE FLOP-EASE STORE"Fъ╓З"SELECT:"G ╪З"1) BUY FLOPPIES $2.00 EA."G.┌З"2) SELL FLOPPIES $1.50 EA."GQ▄З"3) RETURN TO PARKING GARAGE"GW▌ЗGk▐╗Й"CHOICE: ";A$GП▀ЕA$┤▓"1"░ A$┤▓"2"░ A$┤▓"3"з6100GбшЕ A$│"3"з6000G╣щЕ A$│"2"з6122:Д6123HЕъ╗Й"HOW MANY?";J$:Е  Й(J$)▓FL зЗ"YOU DON'T HAVE THAT MANY TO SELL":Бе6100:Д FL│FLм Й(J$):MO│MOл Й(J$)н1.50:З Й(J$)"FLOPPIES BOUGHT":З"YOUR ACCOUNT HAS BEEN CREDITED WITH: " Й(J$)н1.50" DOLLARS":Бе6100HЛыВH│№╗Й"HOW MANY DO YOU WANT TO BUY?";A$H┬A│ Й(A$)н2HїЕ MO┤A з З"YOU DON'T HAVE ENOUGH MONEY":Бе6100ITB│ Й(A$):ЗB" FLOPPIES BOUGHT":З A" DOLLARS HAS BEEN DEDUCTED":З"FROM YOUR ACCOUNT":FL│FLлBI_Бе6100IЗ8З"YOU HAVE ENTERED THE MOVIE HOUSE"Iж:З"WANT TO S)TAY FOR MOVIE"I╩<З" OR L)EAVE OUT BACK DOOR"I▐>╗Й"CHOICE: ";A$IЁBЕ A$│"L"з6220JШCЗ"IT'S A VERY LONG MOVIE TODAY...":А X│1е32:З".... 00 .... !! @ ^^ ''%''";:ЛX:З:SC│SCл5:З"YOU FIND SOME SPARE CHANGE ON THE FLOOR!":SP│SPл Д(2.5):Бж4999:Бе6000J▄LЗ"WANT TO W)AIT FOR GUIDO":З" OR R)ETURN TO PARKING GARAGE"JтMЗJЎN╗Й"CHOICE: ";A$KPЕ A$│"R"з6000K QЕ A$│"W"з6230:Д6000KAVЗ"GUIDO SHOWS UP FINALLY..."K[`З"HE WILL BUY UP TO:"KНjQ│ Д(20):З" "Q" BUS TICKETS"KєtЗ"GUIDO PAYS $40.00 FOR EACH TICKET":З"HE'S SO DUM, HE DOESN'T CARE":З"WHERE THE TICKET IS TO..."L$~З"HOW MANY TICKETS DO YOU WANT TO SELL?":Й LL\ИЕ BP┤L з З"YOU DON'T HAVE THAT MANY TICKETS":Бе6260LгНЕ Q┤L зЗ"GUIDO WILL BUY ONLY UP TO":З Q" TICKETS RIGHT NOW":Бе6260MТЗ L" TICKETS SOLD TO GUIDO":З"YOUR ACCOUNT HAS BEEN CREDITED":З"WITH: "Lн40" DOLLARS":MO│MOл(Lн40):BP│BPмLMМХЗ"GUIDO GETS NERVOUS AND RUNS OFF...":З"YOU DECIDE TO GO BACK TO THE":З"PARKING GARAGE.......":SC│SCл25:Бж4999:Бе6000M╝ЬЗ"YOU ARE IN LINE AT THE EMPLOYMENT OFFICE"N6жЗ"PRESS TO SEE IF THE":З"PERSON BEHIND THE COUNTER WILL":З"UNDERSTAND YOU AND GIVE YOU":З"PERMISSION TO WORK..."NL░A$│ Т:ЕA$│""з6320N═║D│ Д(2):Е D│1з6340:ДЗ"NO DICE, THEY DIDN'T UNDERSTAND":З"YOU AT ALL...TRY AGAIN":З"ENTERING ANOTHER LINE....":SC│SCм5:Бе6300O─З"OK, YOU HAVE A WORK PERMIT NOW...":З"PLEASE DON'T:"O7╬З"FOLD...":З"SPINDLE...":З"OR MUTILATE...."O?╙H│0OQ╪Бж4999:Бе6000OЙЗ"THIS IS THE WAY TO THE BAD SECTION":З"OF TOWN..."Oй З"WANT TO CONTINUE ANYWAY?"O╛╗Й" ( Y/N ) ";A$O╨Е A$│"Y"з6450Oш(З"GOOD CHOICE, "NA$Oє-Бе6000P2SC│SCм20:З"YOU RUN INTO A BUM"P67З"HE ASKS FOR SPARE CHANGE"P[8З"HOW MUCH DO YOU GIVE HIM?":Й APЦ:Е A▓SP з З"YOU ONLY HAVE: "SP" IN SPARE CHANGE":Бе6456P╩Е A┤1 з З"THE BUM BURPS AND SPITS ON YOU"Q2FЗ"YOU SEE A GANG OF STREET THUGS":З"FOLLOWING YOU..."QPKЗ"DO YOU R)UN OR F)IGHT?"Q^P╗Й"->";A$QpUЕ A$│"R"з6450R2VZ│Zл1:Е Z│1з H$│"WATCH":ДЕ Z│2з H$│"SHOES":ДЕ Z│3з H$│"SOCKS!":ДЕ Z│4з H$│"CREDIT CARDS!":ДЕ Z│5з H$│"(AREN'T YOU TIRED OF THIS GANG YET?)":ДЕ Z▓5з H$│"BETTER GET OUT OF THIS PART OF TOWN!"RОZЗ"THE GANG BEATS YOU UP AND TAKES":З"ALL YOUR MONEY!!!":MO│0:З"THEY EVEN TAKE YOUR: "H$R√dЗ"YOU ARE FOUND BY A OLD BAG LADY AND":З"NURSED BACK TO HEALTH. SHE BECOMES":З"A FRIEND.":FR│FRл1:Бе6400S*********************8/┬:Г *** DICE ROLL 6 ***8X╠:Г**********************************8t╓ъ(71,124)м(104,157),╜,B8Жрш(72,125),5,18въщ(77,131),3:ш(78,132),18╛Їщ(77,141),3:ш(78,142),18┌■щ(77,151),3:ш(78,152),18Ўщ(97,131),3:ш(98,132),19щ(97,141),3:ш(98,142),19.щ(97,151),3:ш(98,152),19H&ы(71,124)м(104,157),69N0Р9w::Г**********************************9РD:Г *** SHOW DICE ***9╣N:Г**********************************9щXь(171,124)м(204,157),1,╜::ГDICE#1 ROLLS A 19яbР:lь(71,124)м(104,157),1,╜::ГDICE#2 ROLLS A 1:$vР:TАь(171,124)м(204,157),2,╜::ГDICE#1 ROLLS A 2:ZКР:ЙФь(71,124)м(104,157),2,╜::ГDICE#2 ROLLS A 2:ПЮР:┐иь(171,124)м(204,157),3,╜::ГDICE#1 ROLLS A 3:┼▓Р:Ї╝ь(71,124)м(104,157),3,╜::ГDICE#2 ROLLS A 3:·╞Р;*╨ь(171,124)м(204,157),4,╜::ГDICE#1 ROLLS A 4;0┌Р;^фь(71,124)м(104,157),4,╜:ГDICE#2 ROLLS A 4;dюР;Ф°ь(171,124)м(204,157),5,╜::ГDICE#1 ROLLS A 5;ЪР;╔ ь(71,124)м(104,157),5,╜::ГDICE#2 ROLLS A 5;╧Р;  ь(171,124)м(204,157),6,╜::ГDICE#1 ROLLS A 6<*Р<34ь(71,124)м(104,157),6,╜:ГDICE#2 ROLLS A 6<9>Р<@Hф0 З ═"$$###,###,###.##";HS> З                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 0├&":Г GORF-LAND BY PAUL N. DION&?:Г COPYRIGHT(C) 1987&T:Г BY:&w:Г GRAFTOGRAPHIC SOFTWARE&у ў&Кт40:Ю6&ШМ SC$(50)&╟ ё10,12:°2,3,B:З" GORF-LAND ";:°0,1&ъ ё10,13:З"COPYRIGHT(C)1987 BY";' ё13,14:З"GRAFTOGRAPHICS";':ё2,18:З" DO YOU NEED INSTRUCTIONS? (Y/N)";'bA$│ Т:ЕA$│""з╔"T255L255V10O1A":Бе25'ФЕA$│"y"▒ A$│"n"з З"USE UPPER CASE ONLY!":Бе20'└Е A$│"Y"зБж10000:Бе40:Д Е A$│"N"з40:Д20'ц(З:З"THE GAME BEGINS: ENTER NAME:"'ї2╗Й"->";NA$((ЗЗ"7) END GAME")FИЗ:З)[МA$│ Т:ЕA$│""з140)rС╔"O5AO4AO3AO2AO1A")йЦA│ Й(A$):И A Бж 1000,2000,3000,4000,5000,6000,7000)║аЗ"HUH?":Бе70)╧шВ DISPLAY STATUS)┘эЗ:З:З)ўЄЗ" *** STATUS ***"*єЗ" NAME: "NA$*&№З"SCORE:----- "SC*<■З"MONEY:----- "MO*R З"BUS TICKETS:"BP*hЗ"FLOPPIES:---"FL*~З"MEMORY:-----"ME*ФЗ"FRIENDS:----"FR*Я Бж8000*еР*╖╨В BUS STATION*┬╤З:З:Ю7*·┌Ю7:З:З:ё10,10:°0,4,B:З"**** BUS STATION ****";:°0,1+█З+фЗ"SELECT:"+$юЗ"1) BUY TICKET"+>°З"2) STARE AT PEOPLE"+U√З"3) WAIT FOR BUS"+l¤З"4) CHECK STATUS"+ИЗ"5) LEAVE BUS STATION"+РЗ:З+ж A$│ Т:ЕA$│""з2060+═A│ Й(A$):И A Бж2100,2200,2300,1000+┌Е A│5з80+хБе2010,4З:З:З" TICKET COUNTER: ",$6З"1) BOSTON $7.50",F8З"2) NEW YORK $65.00",i:З"3) WASHINGTON, D.C. $145.00",М<З"4) CALIFORNIA $342.00",л=З"5) LEAVE TICKET COUNTER",╚>З:З:╗Й"DESTINATION? ";A$,Ё?Е  Й(A$)▓5▒  Й(A$)┤1зЗ"HUH?":Бе2100-ECЕA$│"1"з T│7.50:ДЕ A$│"2"з T│65:ДЕ A$│"3"з T│145:ДЕ A$│"4"з T│180:ДЕ A$│"5"з2010-ЫHЕ MOмT┤1зЗ"YOU CAN'T AFFORD IT!":Бе2100:ДЗ"YOU HAVE A BUS TICKET":BP│BPл1:MO│MOмT-жMБе2100-╝ШВ STARE AT PEOPLE.вЗ:З:A│ Д(5):ЕA│1з2220:ДЕ A│2з2230:ДЕ A│3з2240:ДЕ A│4з2250:ДЕ A│5з2260._мЗ"A STRANGER THROWS A DRINK IN YOUR FACE":FR│FRм1:З"YOU LOST A FRIEND":Бж4999:Бе2010.╫╢З"A HITCH-HIKING VEGETARIAN TALKS":З"TO YOU FOR 3 HOURS AND YOU LOSE":З"SOME OF YOUR MEMORY!":ME│MEм1:Бж4999:Бе2010/f└З"YOUR STARES BRING A YOUNG GIRL":ЗЕ U│0 з 459J╚U│Uм1J╔Бж 449J*╩Бе 460JB╦ю(5,14),"YOUR PLAY"JЙ╠ю(5,18),"SCORE: ME: ":ю(16,18),P(1):ю(21,18),"YOU: ":ю(26,18),P(2)JФ═Бж 477JЯ╬Бе 511J│╧A│ Й(I$):A│Aн10J█╨A│Aл Й(I1$):Е A┤30 ▒ A│▓40 з A│Aо10Jў╤Е A│▓30 ░ A┤40 з A│Aм20K╥Е  В( Б(A))▓17 з 459K#╙Q│R( Б( В(A)))K3╘Е Q│0 з 459KE╒Е Q│100 з 455KK╓РKg╫Ж .5,-2,.25,4,.5,13,.55KГ╪Ж .4,-2,.3,7,.65,15,.75KЮ┘Ж .4,-2,.3,6,.6,15,.35K║┌Ж .65,-2,.65,6,.6,17,.9K╘█Ж .4,2,.7,10,.4,27,.2KЁ▄Ж .1,19,.4,35,.2,100,.1L▌В LOOP TO HEREL%▐ю(5,20),"PERIOD :":ю(14,20),XL+▀РLBрЕ YZ│2222 з Бе 495L_сь (500,65)м(640,186),1,╜LsтА N│1 е 100:Л NLРуъ (500,65)м(640,186),╜,BLжфю(64,9),"DEFENSE"L╝хю(65,11),"NORMAL"L╨цю(65,12),"HOLD"Lхчю(65,13),"BLITZ"L■шю(65,14),"INTERCEPT"Mщю(65,15),"BLOCK (KICKS)"M3ъю(65,19),"TIME-OUT"MFыю(65,20),"YES"MXью(65,21),"NO"McэБе 515MzюЕ YZ│4444 з Бе 481MЧяь (500,65)м(640,186),1,╜MлЁА N│1 е 100:Л NM╚ёъ (500,65)м(640,186),╜,BMрЄю(64,9),"OFFENSE :"Mєєю(65,11),"RUN"NЇю(65,12),"PASS"Nїю(65,13),"SWEEP"N7Ўю(65,14),"SCREEN PASS"NPўю(65,15),"LONG PASS"Ni°ю(65,16),"DRAW PLAY"N}∙ю(65,17),"PUNT"NЦ·ю(65,18),"FIELDGOAL"Nо√ю(65,19),"TIME-OUT"N┴№ю(65,20),"YES"N╙¤ю(65,21),"NO"N▐■Бе 515Nю В PLAY MENUOЕ S│1 з YZ│4444 :Д Е S│2 з YZ│2222O#I$│"9999"OPЕ YZ│4444 з Бе 481 :Д Е YZ│2222 з Бе 495OyA$│ Т:Е A$│"" з Бж 527:Бж 529:Бе 515OТЕ  К(A$)│13 з Бж 527O╡Е  К(A$)│13 з Бе 551 :Д Бе 518O╙Е A$│"D" з YZ│4444:Бе 480OёЕ A$│"O" з YZ│2222:Бе 495PВ UP-ARROWP# Е  К(A$)│94 з Бж 527 :Д Бе 524PH KN│KNм8:Е KN┤90 з KN│KNл8:Бе 510PY В DOWN-ARROWP| Е  К(A$)│10 з Бж 527 :Д Бе 526Pв KN│KNл8:Е KN▓178 з KN│KNм8:Бе 510PнБе 510P┬DOT│ л(510,KNм4)P█ш (510,KN),DOT,DOT:РQє(510,KNм1):є(510,KN)::є(510,KNл1)Q*є(509,KNл2):є(511,KNл2):є(510,KNл2)QMш(510,KN),( л(510,KNм4)),DOT:РQXБе 510QmВ POLL PLAY MEMUQ{В OFFENSEQЪЕ KN│92.95 з I$│"30":В RUNQ┤Е KN│100.95 з I$│"31"Q╬Е KN│108.95 з I$│"32"QшЕ KN│116.95 з I$│"33"RЕ KN│124.95 з I$│"34"RЕ KN│132.95 з I$│"35"R6Е KN│140.95 з I$│"36"RPЕ KN│148.95 з I$│"37"RiЕ KN│156.95 з I$│"2"RВ Е KN│164.95 з I$│"1"RЫ!Е KN│172.95 з I$│"0"R┤"Е I$│"9999" з Бе 511R─#ц:ZD│3:ZF│0R█$ю(2,16), б(71,"-")Rц%Бе 463RЇ&В DEFENSES 'Е YZ│2222 з Бе 534S#(Е KN│92.95 з I$│"4"S<)Е KN│100.95 з I$│"5"SU*Е KN│108.95 з I$│"6"Sn+Е KN│116.95 з I$│"7"SЗ,Е KN│124.95 з I$│"8"SТ-Бе 543Sе.у 0,18:у 8,0:СS╧/ц:ю(5,10),"SCORE: ME: ":ю(16,10),P(1)SЄ0ю(21,10),"YOU: ":ю(26,10),P(2)T1ю(5,20),"Press any Key...."T2в &HA171T*3Бе 558                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   .+& у ў&└ 1&Х 8000&%у0,0&2Ю0:у8,52&;т 80&Gэ1,4392&]KN│180.95:YZ│9999&k ZD│3:ZF│0&Д Т 44014,75:Т44015,78&П у 1,52&Ч ф 4&а ч1,0&пИ Ё Бе 558&╩ы (500,65)м(640,186),1&ъВ ** ALL RIGHTS RESERVED **'В CONVERTED AND MODIFIED TO COCO 2'?В USING WETWARE ON OR ABOUT:(NOV-11-1985)'dВ CONVERTED TO COCO 3 (DEC-1986)'|В BY: STEPHEN MACRI'ЯВ COMPUSERVE USER (72207,3131)'нI$│"9999"'─IN$│"KELLY":I│3434'ыю(18,5),"Welcome to C-Hawk Ball !"(ю(19,7),"** COCO 3 PROGRAM **"(<ю(15,10),"* A FOOTBALL TEXT SIMULATION *"(dю(14,15),"By: Stephen (72207,3131)"(ию(10,20),"Instructions for playing FootBall...type YES (or NO)"(▓Й IN$(╥Е IN$│"Y" ▒ IN$│"YES" з I│1(ЄЕ IN$│"N" ▒ IN$│"NO" з I│55) Е I│1 з Бе 35)!Е I│55 з Бе 65)!"Бе 28))#ф 0)/$Ю)?%З"OFFENSE :)O&З" plays :")X'З" ")d(З" RUN")q)З" PASS")*З" SWEEP")У+З" SCREEN PASS")е,З" LONG PASS")╖-З" DRAW PLAY")─.З" PUNT")╓/З" FIELDGOAL")ю0ё40,0:З" DEFENSE :"*1ё41,1:З" plays :"*2ё41,3:З" NORMAL"*,3ё41,4:З" HOLD"*@4ё41,5:З" BLITZ"*X5ё41,6:З" INTERCEPT"*t6ё41,7:З" BLOCK (KICKS)"*│7ё0,13:З"At any time during a play you may call a timeout."*т8З"Permitted only three timeouts per half."+%9З"The PLAY menu is displayed at the lower-right of the screen.+b:З"Move UP and DOWN arrow keys to select PLAY from menu."+Ш;З"When you have selected your PLAY press .+х<З"Of course I assume you are familiar with the Game of Football already.,#=З"For Educational Use only.. Enjoy !!! Stephen (DRACMAN)",->ё5,22,R?З"Press any key to continue...";,_@в &HA171,kAВ ENJOY,sBф 4,ОC╣ ╠T(X1)│ Е(X1)о Х(X1),ЪDМ R(17),йEА I│0 е 17,┤FН R(I),╝GЛ I,эHЖ 9,13,100,0,9,10,12,11,12,0,1,5,3,4,6,2,8,7,їIF│0,■JZ3│0-KO│0-LL│0-'MМ Z(5,3),P(2),D(2,5)-6NА A│0 е 5-DOА B│0 е 2-XPН Z(A,B),D(B,A)-cQP(B)│0-kRЛ B-xSН Z(A,3)-АTЛ A-лUц:ю(10,10),"DO YOU WANT TO RECEIVE ? "-│VX│1-╦Wю(5,14),"YES OR NO"-тXю(2,16), б(71,"-")-їYю(65,20),"YES".Zю(65,21),"NO".[Бж 460.#\S│2м А(13мQ).J]Е S│1 з YZ│4444 :Д Е S│2 з YZ│2222.R^K│S.]_T1│120.f`U2│3.naU│3.xbC│900.ГcБж 291.НdF1│50.═eB│ Б(F1лOн20н Д(м Я)л(1мO)н29н(2м Д(м Я)п7м Д(м Я)п(3мZ2))).╒fO│0.▐gZ9│8.щhБж 202.ёiL│0/jЕ B┤99 з 300/kю(ZD,ZF),"A TOUCHBACK"/AlZD│ZDл12:Е ZD▓60 з ZD│3:ZF│ZFл1/JmB│20/RnL│0/boЕ S│2 з 115/tpю(ZD,ZF),"MY"/ЧqZD│ZDл3:Е ZD▓60 з ZD│3:ZF│ZFл1/вrБе 117/╢sю(ZD,ZF),"YOUR"/┘tZD│ZDл5:Е ZD▓60 з ZD│0:ZF│ZFл1/фuБж 416/яvБж 382/ўwD│10.xю(5,19),"DOWN : 1ST":ю(17,19)," AND":ю(22,19),"10"0Cyю(26,19),"TO GO"0NzF2│.030V{O│00g|Е C┤│0 з 3530r}Бж 3240{~Z2│10ЕZ3│.30ЩАЕ C┤│FнT1 з 3750кБЕ C┤│0 з 3530║ВЕ L│0 з 1310╒Гю(5,17),"TIME TO GO--"1Дю(18,17), Б(Cо60):ю(22,17),"min,":ю(27,17),Cм60н Б(Cо60)1%Ею(31,17),"sec"1=Жю(5,14),"YOUR PLAY"1HЗБж 4601XИЕ S│1 з 1401hЙЕ Q▓8 з 1341pКM│Q1{ЛБе 1421ЕМY│Qм81аНЕ  В(Qм10.5)п2▓3 з 1341╜ОC│ Б(CмLн(5л23н Д(м Я)))1┼ПL│11╒РЕ M│7 з 2341хСЕ M│8 з 2521ЁТY1│Yм11ЎУВ2ФЕ  Д(м Я)▓Z(Mм1,Y1)л.025 з 1742!ХA│22,ЦБж 3862<ЧЕ M┤4 з 1582\Шю(ZD,ZF),"PASS COMPLETE..."2АЩZD│ZDл17:Е ZD▓60 з ZD│3:ZF│ZFл12ПЪKG│ Д(м Я)2еЫЕ KG ┤ .33 з L│м12┼ЬЕ KG ▓ .33 ░ KG ┤ .65 з L│02█ЭЕ KG ▓ .65 з L│л12ўЮЕ  Д(м Я)л.035┤F2 з 3213ЯЕ G▓0 з 1703аЕ G│0 з 16535бЕ GлBл.395┤  Д(м Я) з 2813Zвю(ZD,ZF),"LOSS OF":ю(ZDл8,ZF),мG3~гZD│ZDл12:Е ZD▓60 з ZD│3:ZF│ZFл13ЙдБе 2173аею(ZD,ZF),"NO GAIN"3├жZD│ZDл8:Е ZD▓60 з ZD│3:ZF│ZFл13╠зZ9│23╫иБж 2023тйБе 2243їкЕ BлG▓99 з 2224лю(ZD,ZF),"GAIN OF":ю(ZDл8,ZF),G4=мZD│ZDл12:Е ZD▓60 з ZD│3:ZF│ZFл14HнБе 2174XоЕ M▓3 з 1784`пA│14k░Бж 3864v▒Бе 1594Щ▓Е  Д(м Я)┤.5л Б(Yо3.5)о5 з 2044╜│Е  Д(м Я)┤.51н(2м А(Yм3)) з 1874╞┤Z9│64╤╡Бж 2024Ё╢ю(ZD,ZF),"PASS INCOMPLETE"5╖ZD│ZDл16:Е ZD▓60 з ZD│3:ZF│ZFл15╕L│05$╣G│05/║Бе 3965S╗ю(ZD,ZF),"PASS **INTERCEPTED**"5w╝ZD│ZDл21:Е ZD▓60 з ZD│3:ZF│ZFл15╜A│15К╛Бж 3865Ы┐Е B┤40 з 1935о└G│20н(1л А(G))5╝┴B│100мBмG5╞┬S│3мS5╧├Z9│95┌─Бж 2025ъ┼Е B┤1 з 1075√╞Е B▓99 з 2226 ╟ю(ZD,ZF),"AT"60╚ZD│ZDл3:Е ZD▓60 з ZD│3:ZF│ZFл16;╔Бе 3036Z╩C│Cм Б(4лZ9о2н(1л Д(м Я)))6`╦Р6z╠G│м(5л Б(10н Д(м Я)))6Щ═ю(ZD,ZF),"THE QUARTERBACK"6╜╬ZD│ZDл16:Е ZD▓60 з ZD│3:ZF│ZFл16╘╧Е  Д(м Я)▓.5 з 2116є╨ю(ZD,ZF),"IS THROWN FOR A"7╤ZD│ZDл16:Е ZD▓60 з ZD│3:ZF│ZFл17"╥Бе 15871╙G│м(2нGл8)79╘M│57A╒A│17`╓ю(ZD,ZF),"SCRAMBLES FOR A"7Д╫ZD│ZDл16:Е ZD▓60 з ZD│3:ZF│ZFл17П╪Бе 1587Щ┘B│BлG7л┌ю(ZD,ZF),"TO"7╬█ZD│ZDл3:Е ZD▓60 з ZD│3:ZF│ZFл17┘▄Бж 4187ы▌Е B┤│99 з 2247Ў▐Бж 2608▀Бе 9 &$:ГCOPYRIGHT 1989, FALSOFT INC.&F :Г===========================&f:Г C O N C E N T R A T E !&m:Г&Н:Г Written By Eric A. Wolf&к:Г Copyright (C) 1989&╠#:Г===========================&р(Т65497,0:└1:т32&·-Х1000:М B(10,5),C(16)'2ф2:ф0'7Т&HA27E,0'<:Г'7A:Г Set monitor type HERE!'>F:Г'_KMO│1 :Г(1=RGB and 0=CMP/TV)'fP:Г'ВU:Г Display Title Screen'ЙZ:Г'ї_A1$│"":A2$│"":АZ│1е8:A1$│A1$л Л(159)л Л(159)л Л(175)л Л(175):A2$│A2$л Л(175)л Л(175)л Л(159)л Л(159):ЛZ( dЕ MO│1 з ў :Д Ў($iт32:Т359,57:Т&HFF22,80(vnЗ@0,A1$:З@260,"Written By Eric A. Wolf":З@294,"Copyright (C) 1989":З@448,A1$;(їs╔"T200L200":T$│"CONCENTRATE!":АY│1 е 12:АX│64 е 160 й 32:Т1026л(Yн2)лXм32,96:З@2л(Yн2)лX, Р(T$,Y,1):╔ И(Y):ЛX:АZ│1е50:ЛZ,Y)xАY│6е12:АX│Y е 12:╔  И(X):ЛX,Y)Н}АY│0е2:З@384, б(31,32);:Т1439,96:АZ│1е200:ЛZ:З@384,"< Press any key to begin game!";:Т1439,126:АZ│1е200:ЛZ,Y:R│1)╩ВD│20:Е R│1 з З@0,A1$;:З@448,A1$;: :Д З@0,A2$;:З@448,A2$;)╘ЗR│1мR)ъМD│Dм1:Е D│0 з 130*СA$│ Т:ЕA$│""з140 :Д АY│1е16:З@480:АZ│1е50:ЛZ,Y*wЦЗ@32,"Will the first player please enter their name below...":I│128:Бж175:N$(0)│N$*╤ЫЗ@192,"Thank you. Now, will the secondplayer enter their name.":I│288:Бж175:N$(1)│N$+8аЮ:A$│"Welcome "лN$(0)л" & "лN$(1):З@16м З(A$)о2,A$:З@34,"to the game of CONCENTRATE !":З б(32,"=")+PеP│0:Бж180:P│1:Бж180+[кБе 200+{пЗ@I,"";:╗ЙN$:N$│ О(N$,10):Р+▐┤АY│96е448й32:З@Y, б(32,32);:ЛY:З@128,N$(P);", please select your":З@160,"method of input...":З,╣З"1) Right Joystick":З"2) Left Joystick":З"3) Keyboard",F╛A$│ Т:ЕA$┤"1"▒A$▓"3"з190:ДP(P)│ Й(A$)м1,L├Р,i╚Ю:З@266,"Please wait...",p═:Г,П╥:Г Select correct palettes,Ц╫:Г,Ї▄Е MO│1 з PA$│"00095663075200326040542518345636" :Д PA$│"00113263165300075626364518213207",√с:Г-ц:Г Store Flip Card Animation-#ы:Г-kЁТ&HE6,2:х &H6E000,&HFF:х&H6E001,&HFF:Т&HE0D4,&H37:АY│1е17:эY,455:ЛY-ОїТ&HE0D4,&H34:АY│1е17:эY,455:ЛY.·BL│0:А L│0 е 15 й 4:АY│0е29й2:є(Y,0,1):є(Yл1,1,1):є(Yл1,0,2):є(Y,1,2):ЛY:ы(0,0)м(29,1),BLл1:АY│2е29 й2:ь(0,Y)м(29,Yл1),BLл1,╜:Л.9 Бж265:BL│BLл1:ы(0,0)м(29,29),BL:ЛL.ЛАL│12 е 0 йм4:ч3:ъ(0,0)м(29,29),╜,BF:Бж265:BL│BLл1:ы(0,0)м(29,29),BL:ЛL:Бе295.Ъ ЕL│0 з 275.╪АL1│0 е Lм1:ъ(0,L1)м(29,L1),╛:ъ(0,29мL1)м(29,29мL1),╛:ЛL1/=ї"C0;BM0,"л И(L)л";ND1R1;BM0,"л И(29мL)л";NU1R1;BM29,"л И(L)л";ND1L1;BM29,"л И(29мL)л";NLU1U1":Р/D:Г/_:Г Store 16 Card Faces/f":Г/к'ц:Т&HE0D4,&H34:ь(0,0)м(29,29),1,╜:Т&HE0D4,&H37:ы(0,0)м(29,29),10+,BL│1:АY│1е16:Т&HE0D4,&H34:ь(0,0)м(29,29),8,╜:Т &HE0D4,&H37:Н D1$,D2$,P1,P2:ї D1$:ш(P1,P2):ї D2$:BL│BLл1:ы(0,0)м(29,29),BL:ЛY021:Г0I6:Г Start the game!0P;:Г0q@Бж485:P│1:TF│0:S(0)│0:S(1)│00кESW│0:P│1мP:ъ(0,176)м(319,191),╛,BF:A$│N$(P)л", use "1JЕ P(P)│0 з A$│A$л"right joystick" :Д Е P(P)│1 з A$│A$л"left joystick" :Д A$│A$л"Keyboard"17OA$│A$л" to select":ч2:ю(20м З(A$)о2,23),A$1UTB│0:O1│м1:O2│м1:X1│4:Y1│21qYИ P(P)л1 Бе 350,355,3601к^B│ Ж(65280) ░ 1:B│1мB:X1│ Н(0)о7:Y1│ Н(1)о12.8:Бе3901ЎcB│ Ж(65280) ░ 2:B│(Bо2)н1:B│1мB:X1│ Н(0):X1│ Н(2)о7:Y1│ Н(3)о12.8:Бе3902hЕ O1┤0 з 390 :Д A$│ Т2'mB│0:Е A$│" " з B│12yrX1│X1м11:Y1│Y1м11:X1│ Б(O1о32):Y1│ Б(O2о32):Е A$│ Л(8) з X1│X1м1:ЕX1┤0 з X1│02ЪwЕA$│ Л(9)зX1│X1л1:ЕX1▓9зX1│92╛|ЕA$│ Л(94)зY1│Y1м1:ЕY1┤0 з Y1│02тБЕA$│ Л(10)зY1│Y1л1:ЕY1▓4 з Y1│43ЖX1│ Б(X1)н32л11:Y1│ Б(Y1)н32л11:Е X1│O1 з Е Y1│O2 з 4053RЛТ&HE0D4,&H34:Е O1▓м1 з ь(O1,O2)м(O1л7,O2л7),9,╜3ЦРO1│X1:O2│Y1:ы(X1,Y1)м(X1л7,Y1л7),9:ч2:ъ(X1,Y1)м(X1л7,Y1л7),╜,BF3жХЕ B│0 з 3453╘ЪX│X1м11:Y│Y1м11:X│ Б(Xо32)л1:Y│ Б(Yо32)л13щЯЕ B(X,Y)│0 з 3454дSW│SWл1:Е SW│1 з C1│X:C2│Y:Бж605:Бе3404CйЕ C1│X ░ C2│Y з SW│SWм1:Бе340 :Д C3│X:C4│Y4∙оБж605:Е B(C1,C2)┤▓B(C3,C4) з ъ(0,176)м(319,183),╛,BF:ч15:ю(7,22),"Sorry, no match that time!":╔"T150L150":АY│12е1йм1:╔  И(Y):ЛY:АZ│1е100:ЛZ:X│C1:Y│C2:Бж610:X│C3:Y│C4:Бж610:Бе3255│C1│C1м1:C2│C2м1:C3│C3м1:C4│C4м15U╕╔"T200L200":ч3:ю(7,22),"Great Match! Keep going!"5╨╜АZ1│1 е 12 й3:АZ│Z1 е 12:╔  И(Z):ЛZ,Z1:ъ(C1н32,C2н32)м(C1н32л30,C2н32л30),╛,BF:ъ(C3н32,C4н32)м(C3н32л30,C4н32л30),╛,BF6S┬S(P)│S(P)л1:B(C1л1,C2л1)│0:B(C3л1,C4л1)│0:SW│0:ъ(160,160)м(176,167),╛,BF:ъ(304,160)м(319,167),╛,BF:ю(19,20),S(0):ю(37,20),S(1)6m╟TF│TFл1:Е TF┤25 з 3406К╠Е S(0)▓S(1) з W│0 :Д W│16Ф╤Бе5606Ы╓:Г6║█:Г Make & Draw a new board6┴р:Г6юхАY│1е16:у Yм1, Й( Р(PA$,(Yм1)н2л1,2)):ЛY7ъф2:ч2:ю(11,12),"Shuffling Cards...":TC│071яАY│0е15:C(Y)│0:ЛY7[ЇF│ Д(16):Е C(Fм1)▓0 з 500 :Д C(Fм1)│17Н∙X│ Д(10):Y│ Д(5):Е B(X,Y)▓0 з 505 :Д B(X,Y)│F7┐■X│ Д(10):Y│ Д(5):Е B(X,Y)▓0 з 510 :Д B(X,Y)│F7чTC│TCл1:Е TC│16 з АW│0е15:C(W)│0:ЛW7∙Е TC┤25 з 5008X ъ3,0),"Markers":ю(34,1),"Used"8#Hч88)IР8eJK$│ Т:Е K$│"E" з 182 :Д Е K$│"P" ░ NH▓5 ░ C2┤NH з Бж2008nKБж848▌LЕ PT│1 з ы(Xм4,Yм2)м(Xл4,Yл1),2:ь(Xм4,Yм2)м(Xл4,Yл1),2,╛:Бж101:ь(Xм4,Yм2)м(Xл4,Yл1),2,╜:Бж101:CU│1 :Д CU│09MЕ PT│1 ░  к(0)┤▓1 ▒ PT│0 з PT│0:Бе7490NЕ CK(V)│1 з а1,2:PT│0:Бе74 :Д CK(V)│19eOЕ V▓0 ░ V┤9 з X1│78:X2│246:ST│24:Бж104:PT│0:Бе749ЭPЕ V▓16 ░ V┤25 з X1│246:X2│78:ST│м24:Бж104:PT│0:Бе749╘QЕ V▓8 ░ V┤17 з Y1│158:Y2│32:ST│м18:Бж115:PT│0:Бе749√RY1│32:Y2│158:ST│18:Бж115:PT│0:Бе74:7SА N│1 е NH:ъ(G(N)л6,H(N)л4)м(G(N)л15,H(N)л11),╜,BF:ЛN:Р:OTH│ Н(0)н5:V│ Н(1)н3:tUЕ H┤45 з H│45 :Д Е H▓280 з H│280:ЧVЕ V┤6 з V│6 :Д Е V▓183 з V│183:∙WЕ CU│0 з ы(HмO,VмO)м(HлO,VлO),2:ь(HмO,VмO)м(HлO,VлO),2,╛:Бж101:ь(HмO,VмO)м(HлO,VлO),2,╜:Бж101;Xч8:ю(2,2),C1мC2:ю(34,2),CT;лYX│ Б((Hл4)о24)н24л6:Y│ Б((Vм4)о18)н18л14:NU│ Б(Xо24)н11л Б(Yо18л.5):Е Y▓24 ░ Y┤164 з Е X│54 з NU│NUм23:PT│1 :Д Е X│270 з NU│мNU:NU│NUл147:PT│1<ZЕ X▓67 ░ X┤258 з Е Y│176 з UN│ Б((NUм34)о11)н10:NU│NUмUNм34:PT│1 :Д Е Y│14 з UN│(NUм34)о11н12л2:NU│NUмUN:PT│1<6[V│NU:Е BU│1 з BU│0:Р<Ь\Е GE$│ Л(13) ░  к(0)│1 з Е  л(Xм2,Yл2)│5 з Е  л(X,Y)│4 з ч4:Бж100:C2│C2м1:Р :Д ч6:Бж100:C2│C2м1:Р=]Е GE$│ Л(13) ░  к(0)│1 з Е  л(X,Y)│4 ░ C2┤C1 з ч5:Бж100:є(X,Y,4):C2│C2л1 :Д Е  л(X,Y)│6 ░ C2┤C1 з ч5:Бж100:є(X,Y,6):C2│C2л1=G^Е  к(0)│1 ░ GE$│ Л(13) ░ C2│C1 з а40,2=M_Р=k`ъ(67,24)м(258,164),╜,BF:Р=Уaч8:ъ(67,166)м(67,24),╜:ъм(260,24),╜=╢bъм(259,166),╜,B:ъм(67,165),╜,B=╝cР=хdа10,2:ъ(Xм5,Yм4)м(Xл5,Yл3),╜,BF:BU│1=ўeАT│1е100:ЛT:Р>fё16,23:°0,4:З"";>,gЕ  Т│"" з 103 :Д Р>6hБж144>KiА X│X1 е X2 й ST>РjЕ  л(X,Y)┤▓C ░ JM┤▓1 з Е  л(X1,Yм18)│C ▒  л(X1,Yл18)│C з Бж114:Р>▒kЕ JM│1 ░  л(X,Y)│C з Бж128:Р>▀lЕ  л(X,Y)│C з Бж126:Z│STн1.7:CL│1:Бж129:Р?mЕ  л(X,Yм18)│C ▒  л(X,Yл18)│C з JM│1:Бж156:JM│0:Р?+nЕ GE$│"1" з Бж148?3oЛ X?PpЕ JM│1 з Бж 135 :Д Бж133?VqР?vrБж126:Z│STн1.7:CL│D:Бж129:Р?АsБж146?ХtА Y│Y1 е Y2 й ST?┌uЕ  л(X,Y)┤▓C ░ JM┤▓1 з Е  л(Xм24,Y1)│C ▒  л(Xл24,Y1)│C з Бж125:Р?√vЕ JM│1 ░  л(X,Y)│C з Бж128:Р@)wЕ  л(X,Y)│C з Бж126:Z│STн1.3:CL│1:Бж131:Р@_xЕ  л(Xм24,Y)│C ▒  л(Xл24,Y)│C з JM│1:Бж165:JM│0:Р@uyЕ GE$│"1" з Бж152@}zЛ Y@Ъ{Е JM│1 з Бж 140 :Д Бж138@а|Р@┴}Бж126:Z│STн1.35:CL│D:Бж131:Р@╤~АT│1е600:ЛT@▐а100,2:РAНАБж127:щ((QлSл1)о2,(RлT)о2),4,8,.9:ш((QлSл1)о2,(RлT)о2),8,8:щ((QлSл1)о2м1,(RлT)о2м1),4,1,.9:ш((QлSл1)о2м1,(RлT)о2м1),1,1:CT│CTл1:Е NH▓5 з є((QлSл1)о2м1,(RлT)о2м1,9):Р :Д РA░Бщ(X1мZ,Y),4,8,.9:ш(X1мZ,Y),8,8AшВщ(X1мZм1,Yм1),4,CL,.9:ш(X1мZм1,Yм1),CL,CL:CT│CTл1:РB Гщ(X,Y1мZ),4,8,.9:ш(X,Y1мZ),8,8BCДщ(Xм1,Y1мZм1),4,CL,.9:ш(Xм1,Y1мZм1),CL,CL:CT│CTл1:РBMЕБж143BmЖQ│X1лZ:R│Yм4:S│X1лZл8:T│Yл4B╢ЗЕ ST│24 з U│X2л36:V│Yм4:W│X2л44:K│Yл4 :Д U│X2м36:V│Yм4:W│X2м44:K│Yл4B└ИБж174B╞ЙРB╨КБж143BЁЛQ│Xм4:R│Y1лZ:S│Xл4:T│Y1лZл8C:МЕ ST│м18 з U│Xм4:V│Y2м20:W│Xл4:K│Y2м28 :Д U│Xм4:V│Y2л20:W│Xл4:K│Y2л28CDНБж174CJОРCвПЕ SK│1 з Р :Д CO│COл1:Е CO▓15 з CO│1:Р :Д Е CO│6 з CO│7:Р :Д Е CO│11 з CO│12:Р :Д РC┬РЕ V▓0 ░ V┤9 з Z│м44 :Д Z│36C╪СY3│Yм12:Y4│Yл12:РC∙ТЕ V▓8 ░ V┤17 з Z│20 :Д Z│м28DУX3│Xм24:X4│Xл24:РD#ФЕ  л(X,Y)│C з РD?ХЕ ST│24 з L1│4 :Д L1│м4DYЦчD:ъ(X1,Y)м(XлL1,Y),╜D_ЧРDsШЕ  л(X,Y)│C з РDПЩЕ ST│18 з L1│2 :Д L1│м2DйЪчD:ъ(X,Y1)м(X,YлL1),╜DпЫРD╧ЬЕ  л(X,Yм18)│C з J│0 :Д J│1DюЭЕ X1▓X2 з X│Xл24 :Д X│Xм24EЮЕ J│0 з Y2│158:ST│18 :Д Y2│32:ST│м18E+ЯY1│Y:Бж143:ч COETаЕ X1│78 з SK│1:Q│34:R│Yм4:S│42:T│Yл4EАбЕ X1│246 з SK│1:Q│282:R│Yм4:S│290:T│Yл4EЙвY│Y1EУгБж116EЮдSK│0:РE╛еЕ  л(Xм24,Y)│C з J│0 :Д J│1E▌жЕ Y1▓Y2 з Y│Yл18 :Д Y│Yм18FзЕ J│0 з X2│246:ST│24 :Д X2│78:ST│м24FиX1│X:Бж143:чCOFAйЕ Y1│32 з SK│1:Q│Xм4:R│4:S│Xл4:T│12FmкЕ Y1│158 з SK│1:Q│Xм4:R│178:S│Xл4:T│186FvлX│X1FАмБж105FЛнSK│0:РFъоЕ (Q│W ░ R│V ░ S│U ░ T│K) ▒ (Q│U ░ R│V ░ S│W ░ T│K) ▒ (Q│U ░ R│K ░ S│W ░ T│V) з 175 :Д 177G пБж127:Е ST│м24 з A│м2 :Д A│1GЛ░щ((QлSлA)о2,(RлT)о2),4,8,.9:ш((QлSлA)о2,(RлT)о2),8,8:щ((QлSлA)о2м1,(RлT)о2м1),4,D,.9:ш((QлSлA)о2м1,(RлT)о2м1),D,D:CT│CTл1:РGн▒Е  л(Q,R)┤▓0 з а1,2:CO│COм1:РG└▓Е KZ│1 з Бж127G√│ч8:ъ(Q,R)м(S,T),╜,BF:чCO:ъ(Q,R)м(Sм2,Tм1),╜,BF:CT│CTл2H┤ы(Q,R)м(S,T),2:ь(U,V)м(W,K),2,╜H%╡РH4╢А N│1 е NHHg╖щ(G(N)л11,H(N)л8),5,D,.9:ш(G(N)л11,H(N)л7),D,DHН╕Е  л(G(N)л7,H(N)л5)┤▓5 з PE│PEл10HХ╣Л NH╚║Т65449,116:ю(8,0), б(40," "):ю(8,1), б(40," ")I╗чD:ю(8,0),"MARKERS USED":ч8:ю(20,0),CT:ч1:ю(26,0),"PENALTY POINTS":ч8:ю(0,0),PEIK╝ч3:ю(8,1),"TOTAL SCORE ":ч8:ю(20,1),CTлPEIо╜ч9:ю(26,1),"PLAY AGAIN ?":ю(0,1),"<":ч1:ю(1,1),"Y":ч9:ю(2,1),"><":ч2:ю(4,1),"N":ч9:ю(5,1),">"I╜╛Т65449,112I╒┐K$│ Т:Е K$│"" з 191J└Е K$│"Y" з ZK│1:CT│0:PE│0:П:ф0:Бе6 :Д5)л115:VV│ Д(12):є(HH,VV,9):Л IJz▓A$│"G2L9G1L1G3L3D1L2G1D2F2R2E1R4F1R1F1R4E1R4E1R3F2R5E1R2E1R1F1R3E1U1E1H1U1H2L1H4L4H1L8"Jл╝ї"BM40,9;C2"лA$:ї"BM210,12"лA$:ї"BM280,4"лA$J╫╞ш(40,15),2,2:ш(210,16),2,2:ш(280,8),2,2J▌╨РKr┌A$│";C1;U9E1U1H1U1E1U1H1U2R4D2G1D1F1D1G1D1F1D9L3;C13;U9R1D9R1U9H1U7L1D1R2U1G1D2G1D1R2U1;":AA$│";F1R1F1R1F1R1F1R4F1R4F1R13E1R4E1R4E1R1E1R1E1R1E1"KСфї"BM0,65"лA$:ї"BM5,47"лAA$K▓юї"BM53,65"лA$:ї"BM58,47"лAA$K╒°ї"BM106,65"лA$:ї"BM111,47"лAA$K°ї"BM160,65"лA$:ї"BM165,47"лAA$L ї"BM213,65"лA$:ї"BM218,47"лAA$L>ї"BM266,65"лA$:ї"BM271,47"лAA$LQ ї"BM315,65"лA$LW*РLc4Бж 2010LИ>ч1,0:ю(1,20),"SCORE:":ю(6,20),TTLиHю(1,21),"STAGE:":ю(6,21),LVL╘RCOL│COLл Д(10):Е COL▓│63з COL│0:Бе 2130Lр\у 5,COLLЇfЕ LV│14 з у 5,0Mpю(1,23),"NAME:":ю(6,23),N$M:zю(25,21),"DIFFICULTY":ю(35,21),DIFMiДч9:ю(5,22),"A SEVEN SOFTWARE PRESENTATION"MТОч2:Е LV│14 з HЗ(12,21),"FINAL STAGE"MШШРMавт40MимЮ 2M╙╢Ю3:ё11,0:°3,2,U:З"COCO-3 KARATE";:°3,2Nu└ё0,1:Q$│"WELCOME PLAYER TO THE C0C03 WORLD OF KARATE.THE OBJECT OF THE GAME IS TO FIGHT 14 ENEMY KARATE FIGHTERS SO AS TO GAIN THE TITLE OF KARATE MASTER."N╩З Q$;Nэ╘Q$│"AS YOU COMPLETE EACH LEVEL YOUR OPPONENTS STRENGTH INCREASES AND ABILITY! GOOD LUCK (YOU'LL NEED IT)"NЎ▐З Q$Oшё13,9:°3,2,U:З"CONTROLS";:° 3,2O▌Єё0,10:З"Z=LEFT":З"X=RIGHT":З"F1=PUNCH","F2=KICK":З"A=DIAGONAL LEFT HIGH FLIP":З"S=LLOW JUMP":З"D=DIAGONAL RIGHT HIGH FLIP":З"Q=LEFT LOW FLYING MOVE":З"W=HIGH JUMP":З"E=RIGHT LOW FLYING MOVE"PP№З:З"YOU CONTROL THE WHITE PLAYER ON THE LEFTHAND SIDE;":╗Й"WHAT'S YOUR NAME-";N$:Й"WHAT DIFFICULTY FACTOR";DIFPd Е DIF ▓3 з 2210Pj РPq :ГPЙ $Е LV▓14 з 2430 :Д РP╪ .ъ(X,100)м(Xл32,138),╜,BF:ъ(Y,100)м(Yл32,138),╜,BF:ь(140,100)м(172,136),4,╜Q% 8ч1:ю(8,10),"YOU HAVE BEEN DEFEATED!!":╔"O3;AACDEFFFDGFEFEDACCBAEDBCFGGG"Qз Bт 40:°3,2:З"YOU HAVE LOST YOUR BATTLE AGAINST THE OPPONENTS.THE GRAND MASTER HAS ORDERED YOUR DEATH, BECAUSE OF YOUR FAILURE"Q├ Lё 0,5:З"YOUR SCORE-";TTQщ Vё 0,7:З"LAST STAGE ATTEMPTED-";LVR `З:ё 12,15:°3,6,B:З"PRESS A KEY";:в44539:Бе 2585R) jБе 2410Rv t╔"T10;O2;FFFAAGG;P1;FFFAAGG;P2;CCCDDEEEGGAAGGAAGGAAGGAA;P2":╔"T255;O3":РS6 ~А I│0е192:ч  Д(15),0:ъ(0,I)м(320,I),╜:Л:т40:Ю:ё 13,9:З"YOU HAVE WONNNNN!!!":Бж 2420:З:З"THE GRAND MASTER CONGRATULATES YOU ON YOUR FINE WIN AND HAS AWARDED YOU THE TITLE OF MASTER":в44539SA ИБе2590SH Тц0Sd Ьч1,0:ъ(0,65)м(320,65),╜Ss жш(1,1),7,1S ░Бж 1900S╦ ║щ(160,140),40,1:щ(160,120),14,1,1.5,.75,.25:щ(160,160),14,1,1.5,.25,.75Sэ ─щ(155,120),7,1:щ(165,160),7,1T ╬ш(150,130),5,1:ш(170,150),2,1T ╪Бж2010TN ть(50,120)м(82,158),1,╜:ь(238,120)м(270,158),4,╜Tx ьч1,0:ю(8,9),"COLOR COMPUTER 3 KARATE"TЯ Ўю(8,11),"BY NIGEL FREDERICKS 1987"T╙ ю(1,24),"COPYRIGHT 1988-SYVEN SOFTWARE SYSTEMS"Tч Бж 2420:Бж 2420TЇ в44539:РU э 0:О 50U ўU (Т 65496,0U 2° 0,0U' <Ю 9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      /(& э 0&82у0,56:у1,0:у2,63:у 3,46:у 4,0:у5,36:у 6,46&k<у 7,29:у 8,16:у9,54:у10,36:у11,0:у12,17:у13,56&{FИ Ё Бе 2590&ЕPY│170&ПQX│100&ЩZLI│10&гdL2│10&мnLV│1&╖xPS│195&╞В╔"T255;O3"&╘МТ 65497,0&сЦэ 1,1524&эаэ 2,100&°кэ3,300'┤э 4,1500:э 5,100:э 6,300'"╛э 7,1000')╚ф2'1╥ц 0'U▄ї"BM12,0;C1;R6;C2;D1L6D1L2R1D2"'Бцї"BM18,2;C1;L6D1R1L2D1R2D1L2R1D1U1R2F2"'╗Ёї"BM18,3;C3L4D1R5D1L4F1R2G1F1L5H1R3H1L1":ГFACE COLOR"'╧·ї"BM16,4;C1;R1"'Ўї"BM13,9;C3R3F1L3F1R2F1L3F1R2G1L1"(:ї"BM12,9;C2;L1G1R3F1L5D1R5F1L7D1R7F1R1L9D1R8G1L6F1R5D1L5D1R8U1"([ї"BM12,13;C1;D2F1R1F1D2L4H2"(О"ї"BM19,10;C2;L1D1R2F1L2D1R2F1L4R1F1R5D1L4F1R3"(│,ї"BM17,19;C3;L1U1R3E1L4E1R3H1L1"(╒6ї"BM27,17;L1U1R3E1L4E1R3H1L1")!@ї"BM10,21;C2;R8D1L8G1R10D1L10G1R12F1L6F1R5F1L5F1R4D1L4F1R4D1L4D1R4D1L4")VJї"BM7,26;R6G1L5G1R6G1L5D1R4G1L4D1R4D1L4D1R3D1L3")БTї"BM10,21;C1;R2D1R2F3H2G1D1U1E2R1U1R1")г^ї"BM8,36;C3;L4G1R5G1L4":ГFOOT)╜hї"BM21,35;R4F1L5D1R5")╪rї"BM13,27;C1;G1D1G3D3"*|ї"BM40,11;C2;R9D1L9D1R9G1;C1;L6G1E1;C2;L2D1;G3;D2"*6Жї"BM50,11;C3;R2F1L3D1R4D1L2D1L1R2"*{Рї"BM40,21;C2;D1R15D1L15D1R15D1L15;BM56,22;C3;R3F1L4D1R3L3;C1;D1"*ЯЪї"BM90,0;C4;L6;C5;D1R6D1R2L1D2"*┴дї"BM83,2;C4;R6D4E1U2L2D2L1G2"+ої"BM83,3;C6;R4D1L5D1R4G1L2F1G1R5E1L3E1R1D3L3G1L2G1R3G1L2F1R1"+╕ї"BM84,4;C4;R1"+[┬ї"BM89,9;C5;R1F1L3G1R5D1L5G1R7D1L7G1L1R9D1L8F1R6G1L5D1R5D1L8U1"+Л╠ї"BM83,10;L1G1R2G1L2D1R2F1L4G1L2R5G1L4D1R3"+м╓ї"BM89,13;C4;D2G1L2G1D2R4E2"+┘рї"BM72,13;C6;R1F1L3D1R4D1L3R1F1R1":ГHAND+¤ъї"BM82,15;R1F1L3D1R4D1L3R1F1R1",KЇї"BM83,21;C5;R8D1L8G1R10D1L10R12F1L6D1R6F1L6F1R5D1L4F1R4D1L4D1R4D1L4F1R3",}■ї"BM85,26;L4G1R5G1L5G1R5G1L4D1R4G1L4D1R4D1L4",дї"BM83,21;C4;R2D1R1F2H1G2E3R2U1R2",╝ї"BM88,27;F1D1F3D3",┘ї"BM93,35;C6;R4F1L5D1R5",є&ї"BM80,35;L4G1R5D1L5"-'0ї"BM114,11;C5;R9D1L9D1R9D2H1;C4L8;R7F1;C6;F1D1"-J:ї"BM113,11;L2G1R3D1L4D1R2G1R2"-ЛDї"BM129,21;C5;D1L15D1R15D1L15D1R15L15;C4;L1;C6;U1L3H1R4U1L3"-╓Nї"BM143,0;C1;R5;C2;D1L6D1L2R1D2;BM149,2;C1;L6G1R2D1L2D1F1U1R2F2":ГJUMP.Xї"BM149,3;C3;L4D1R5D1L4F1R2G1F1L5H1R3H1L1D2R3F1L2F1R1F1L2F1R1D1L1".2bї"BM148,4;C1;L1".hlї"BM145,10;C2;L2G1R4D1L5D1R6D1L7D1R9G1L8D1R8D2L6".бvї"BM143,21;R8F1L9F1R8F1L9R1F1R7D1L12D1R11D1L11D1R10".╗Аї"BM150,25;C1;D2G3L6".щКї"BM142,20;C1;R4D1R2F2H1G1U2E1R2;C2;H1L3"/Фї"BM149,10;C2;D1R1D3R1D2"/5Юї"BM154,14;C3;D2L1U3G1D2;BM150,15;D3L1U2"/Tиї"BM144,13;C1D2R3F1D2L7H1"/v▓ї"BM141,26;C3;D3G1U4L1D5L1U5"/Л╝ы(0,0)м(32,38),1/в╞ы(40,11)м(54,17),2/╣╨ы(40,21)м(60,25),3/╨┌ы(68,0)м(100,38),4/щфы(109,11)м(123,17),50юы(109,21)м(129,25),60°ы(138,0)м(158,36),70/¤А K│1 е 1500:Л K0;Бж 24500G Бж 22100SБж 15800] ч 0,00n*:ГMAIN BOARD0y4Бж 8600Е>TI│TIл10бHА V│0 е DIF:Бж 1270:Л V0мRБе 8100╢\I$│ Т0▐fЕ I$│"" з ь(X,100)м(Xл32,138),1,╜:Р1pЕ I$│"Z" з X│Xм2 :Д Е I$│"X" з X│Xл21#zь(X,100)м(Xл32,138),1,╜1YДЕ I$┤▓ Л(103) з 930 :Д ь(Xл20,111)м(Xл34,117),2,╜1дОЕ  л(Xл36,113)│4 ▒  л(Xл36,114)│5 ▒  л(Xл36,14)│6 з ╔"AACCDFE":Бж 14801▄Шъ(Xл30,111)м(Xл34,117),╜,BF:ь(X,100)м(Xл32,138),1,╜2,вЕ I$┤▓ Л(4) з 960 :Д ь(Xл20,121)м(Xл41,125),3,╜:ъ(Xл15,126)м(Xл26,138),╜,BF2xмЕ  л(Xл42,123)│4 ▒  л(Xл42,123)│5 ▒  л(Xл42,123)│6 з ╔"AACCDFE":Бж 14802░╢ь(X,100)м(Xл32,138),1,╜:ъ(Xл34,121)м(Xл41,125),╜,BF2╠└Е I$│"Q" ▒ I$│"E"з 12402щ╩Е I$│"A" ▒ I$│"D" з 11803к╘Е I$┤▓"W"з 1000 :ДX1│100:ъ(X,100)м(Xл32,138),╜,BF:АT│1 е 16:ь(X,X1)м(Xл20,X1л36),7,╜:X1│X1м2:АV│0еDIF:Бж1270:Л V:Бж1020:ЛT:АT│1е17:ъ(X,X1м2)м(Xл20,X1),╜,BF:ь(X,X1)м(Xл20,X1л36),7,╜:X1│X1л23ц▐А V│1е DIF:Бж1270:ЛV:Бж1100:Л:ь(X,100)м(Xл32,138),1,╜:Р4йшЕ I$┤▓"S" зР :ДX1│100:ъ(X,100)м(Xл32,138),╜,BF:АT│1е8:TI│TIл1:ь(X,X1)м(Xл20,X1л36),7,╜:X1│X1м2:АV│0еDIF:Бж1270:Л V:Бж1020:ЛT:АT│1е10:TI│TIл1:ъ(X,X1м2)м(Xл20,X1),╜,BF:ь(X,X1)м(Xл20,X1л36),7,╜4юЄX1│X1л2:АV│0еDIF:Бж 1270:ЛV:Бж 1100:ЛT:ь(X,100)м(Xл32,138),1,╜:Р4 №:ГJUMP MOVES5I$│ Т:Е I$│""з Р5VЕ I$┤▓ Л(103) з 1070 :Д ь(Xл13,X1л12)м(Xл27,X1л18),2,╜:а100,15иЕ  л(Xл28,X1л14)│4 ▒  л(Xл28,X1л14)│5 ▒  л(Xл28,X1л14)│6 з ╔"AACCDFE":Бж 14805╬$ъ(Xл14,X1л12)м(Xл27,X1л19),╜,BF:Р6&.Е I$│ Л(4) з ь(Xл12,X1л21)м(Xл32,X1л25),3,╜:ъ(Xл11,X1л26)м(Xл17,X1л36),╜,BF:а 100,16w8Е  л(Xл33,X1л27)│4 ▒  л(Xл33,X1л27)│5 ▒  л(Xл33,X1л27)│6 з ╔"AACCDFE":Бж14806ЭBъ(Xл14,X1л21)м(Xл32,X1л26),╜,BF:Р6│LI$│ Т:Е I$│"" з Р6їVЕ I$┤▓ Л(103) з 1140 :Д ь(Xл13,X1л8)м(Xл27,X1л14),2,╜:а 100,17F`Е  л(Xл28,X1л10)│4 ▒  л(Xл28,X1л10)│5 ▒  л(Xл28,X1л10)│6 з ╔"AACCDFE":Бж14807kjъ(Xл14,X1л8)м(Xл27,X1л15),╜,BF:Р7╚tЕ I$┤▓ Л(4) з Р :Д ь(Xл12,X1л17)м(Xл32,Xл21),3,╜:ъ(Xл11,X1л22)м(Xл17,X1л32),╜,BF:а 100,18~Е  л(Xл34,X1л19)│4 ▒  л(Xл34,X1л19)│5 ▒  л(Xл34,X1                                                                                                                                                                                                                                                                  ─>┬ :╟8 6420╟.┬*(&├!"#%┼─)┴+-/─╞╟┴─ 9┼;=┼    3KARATE BAS +BLK GRIDBAS$-CHARSET BIN' CCTRATE BASCHAWK3 BAS.CRAPS3 BAS, GORFLANDBAS╞ITW BAS1{JOKERPKRBAS3"SCORES DAT 5?SHOOTN BAS √SMSTRMNDBAS7ЁTRUBBLE BAS YAHTZEE BAS┐YAT3 BAS<VWORDHU BAS?╚                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                л19)│6 з ╔"AACCDFE":Бж 14808@Иъ(Xл14,X1л17)м(Xл32,X1л22),╜,BF:Р8FТР9ЬЕI$┤▓"D"з1210:ДX1│100:ъ(X,100)м(Xл32,138),╜,BF:АT│1е16:TI│TIл1:ь(X,X1)м(Xл20,X1л36),7,╜:ъ(Xм2,X1л26)м(Xм1,X1л36),╜,BF:X│Xл2:X1│X1м2:Бж1270:ЛT:АT│1е8:TI│TIл1:ь(X,X1)м(Xл20,X1л36),7,╜9yжъ(Xм2,X1л26)м(Xм1,X1л36),╜,BF:X│Xл2:Бж1270:ЛT:АT│1е17:TI│TIл1:ь(X,X1)м(Xл20,X1л36),7,╜:ъ(Xм2,X1л24)м(Xм1,X1л36),╜,BF9щ░ъ(Xл2,X1м2)м(Xл8,X1м1),╜,BF:X│Xл2:X1│X1л2:Бж1270:ЛT:ъ(Xм2,X1л24)м(Xм1,X1л36),╜,BF:ь(X,100)м(Xл32,138),1,╜:Р:W║ЕI$│"A"зX1│100:ъ(X,100)м(Xл32,138),╜,BF:АT│1е16:TI│TIл1::ь(X,X1)м(Xл20,X1л36),7,╜:X│Xм2:X1│X1м2:Бж1270:ЛT:Ф─АT│1е8:TI│TIл1:ь(X,X1)м(Xл20,X1л36),7,╜:X│Xм2:Бж 1270:ЛT;╬АT│1е17:TI│TIл1:ь(X,X1)м(Xл20,X1л36),7,╜:ъ(Xл6,X1м2)м(Xл12,X1м1),╜,BF:X│Xм2:X1│X1л2:Бж 1270:ЛT:ь(X,100)м(Xл32,138),1,╜:Р;▓╪Е I$┤▓"E"з 1260:ДX1│98:ъ(X,100)м(Xл32,138),╜,BF:X│Xл8:АI│1е14:TI│TIл1:ь(X,X1)м(Xл20,X1л36),7,╜:Бж1020:АV│0еDIF:Бж1270:ЛV:X│Xл2:ъ(Xм2,X1л24)м(Xм1,X1л36),╜,BF;этЛI:ъ(X,X1)м(Xл20,X1л36),╜,BF:ь(X,100)м(Xл32,138),1,╜:Р<бьЕ I$┤▓"Q" з Р :Д X1│98:ъ(X,100)м(Xл32,138),╜,BF:АI│1е18:TI│TIл1:ь(X,X1)м(Xл20,X1л36),7,╜:Бж1020:АV│0еDIF:Бж1270:ЛV:X│Xм2:ЛI:ъ(X,X1)м(Xл20,X1л36),╜,BF:ь(X,100)м(Xл32,138),1,╜:Р<┤Ў:ГMONSTER MOVE<╨ь(Y,100)м(Yл32,138),4,╜<р DES│ Д(100)<ЎЕ DES┤│20 з Y│Yл2=Е DES▓│21 ░ DES┤│45 з Y│Yм2=7(Е DES▓│46 ░ DES┤│65 з Бе1380=i2Е DES▓│66 ░ DES┤│85 з ь(Y,100)м(Yл32,138),4,╜=М<Е DES▓│86 ░ DES┤│100 з Бе 1440=иFь(Y,100)м(Yл32,138),4,╜=оPР=┤ZР=└d:ГPUNCH=▐nь(Yм1,111)м(Yл13,117),5,╜>'xЕ  л(Yм3,114)│1 ▒  л(Yм3,114)│2 ▒  л(Yм3,114)│3 з ╔"DDFEACCB":Бж1550>[Въ(Yм1,111)м(Y,117),╜,BF:ь(Y,100)м(Yл32,138),4,╜>aМР>gЦР>заь(Yм5,121)м(Yл14,125),6,╜:ъ(Yл5,126)м(Yл17,138),╜,BF:а200,1>ёкЕ  л(Yм7,123)│1 ▒  л(Yм7,123)│2 ▒  л(Yм7,123)│3 з ╔"DDFEACCB":Бж 1550?%┤ь(Y,100)м(Yл32,138),4,╜:ъ(Yм5,121)м(Y,125),╜,BF?+╛Р?B╚:ГCHECK IF BLOCKED?ж╥B│ Д(100):Е B┤LVн3 з ч1:ю(15,19),"BLOCKED!":╔"O1;CBCBCBFAD;O3":ч0,0:ъ(120,150)м(180,160),╜,BF:Р?▓▄L2│L2м1@цЕ L2▓0з1530 :Д ╔"T255;ACBFGDEEEACAEEDFFGB":ъ(Y,100)м(Yл32,138),╜,BF:ъ(Xм2,X1м2)м(Xл32,X1л38),╜,BF:ь(140,100)м(172,138),1,╜:ч1,0:ю(10,10),"WHITE WINS STAGE":ю(26,10),LV:ю(8,11),"PREPARE FOR NEXT STAGE"A ЁLV│LVл1:А I│1 е 20:╔"O5;CGF;O1;ABEBO3":Л I:X│100:TT│TTл(300мTI):TI│0:Y│170:LI│10:L2│10лLV:PS│195:P2│0:Бж 2330:Бж 1580:ч0,0:Бж 2420:Бе 810A;·PS│PSл5:ч5:ъ(PS,150)м(PSл3,154),╜,BF:ч0,0AAРAxLI│LIм1:Е LI┤│0 з ╔"T10;O4;ACBFGGEADCBFFF":Бе 2350AзP2│P2л5:ч 2:ъ(P2,150)м(P2л3,154),╜,BF:ч0,0Aн"РAх,ф2:ц0:АI│4 е LIн5 й 5:ч1:ъ(I,149)м(Iл4,155),╜,B:Л IB6А I│199 е L2н5л195 й 5:ъ(I,149)м(Iл4,155),╜,B:Л IB2@ъ(0,65)м(320,65),╜BAJш(0,0),7,1BQKщ(0,0),22,9BbLш(10,10),9,9BiMч1BВTъ(0,0)м(320,192),╜,BBЯ^Е LV┤4 з Бж 1800:Бе 1850B╩hЕ LV▓3 ░ LV┤7 з у 8,32:Бж 1800:Бе 1850BЎrЕ LV▓6 ░ LV┤9 з Бж 1800:Бж 1680:Бе 2100C*|Е LV▓8 ░ LV┤12 з у 8,16:Бж 1800:Бж 1680:Бе 2100CHЖЕ LV▓11 з Бж 1900:Бе 2100COР:ГC▄Ъї"BM73,64;C11;R4E1R1E1R2E1R29L29E1R1E1R1E2RE2R25L25U1E2R1E2R24L24E5R21L21E4U1R19L19E5R15L15E2U1E1R11L11E3U1E1R9L9E2U1E1R6L6E1U1E1U1E1U2"D]дї"BM125,15;R1F3R2E2R3E1R4D1R8E4R1D1F2L1E2F2R4E3R1F4R3E3F1D3F2D1F2D1F1D1F2D1F1D1F1D2F1D1F2D1F1D1F1D1F2R1F1D1F2D1F6D1F5R1F3R3"D╠ої"BM131,18;D2F1R1F1D3G2L1D1L1D1G1D4G1D2F2R1F1R1F1D2F1D1G1D1F1E3U1E1U2E1U3R1E1R1E1U3E1R1E1U6H1L2H1U2E1R2E2"E╕ї"BM157,15;D1G1D1F2R2F1D5G1D1R1F2R1U1L1H1U1E1R2E1L1E1U1E1U4H1U1H1"E+┬ъ(75,65)м(215,65),╜E?╠ш(155,20),12,11ES╓ш(140,17),10,11Egрш(164,16),10,11EЮъА I│1 е 50:HH│ Д(60)л120:VV│ Д(12):є(HHH,VV,5):Л IE╥ЇА I│1е35:HH│ Д(60)л120:VV│ Д(12):є(HH,VV,9):Л IE╪■РFIA$│";C1;R1E5R1U1R1E5R1E1U1E3U1E2R1E1R1E1R1E2R1E1R1E2R1D1F1D1F1D1F2R2E4U1E1R2F1R2F2R1F1R4E1U2E1R1F1D1F17R1F4"FZї"BM0,50"лA$FКї"BM80,50"лA$:ї"BM160,50"лA$:ї"BM240,50"лA$F▓&ї"BM0,50;C1;D15R319U16":ш(5,64),8,1F╕0РG:B$│";C2;E2U1E7U1E8R6F1R1F6R1F6G2D2L4H1L1H2L2H1L2G2D1G3L1H1U1H1U1H1U1H1L1G2L1G1L1G2L2G1"G&Dї"BM20,30"лB$GWNї"BM100,30"лB$:ї"BM180,30"лB$:ї"BM260,30"лB$G}XА I│40 е 280 й 80:ш(I,25),2,2:Л IGЙbБе 2100HHlї"BM57,64;C1;R3E1R2E2R1E1R1E1R1E1R1E2R1E1R1E1R1E3R1E1R1E2R1E3R1E2R1E2R1E9U1E4U1E1U1E1U3E1U2E1R1F1R1F1D5G3D3F1D4G1D1G3L1G3D2F1R1E1R1E1R1E1R1E1R1E2R1U1R1U1H1U1E1F1R2E1U1E1U4E3U1H1U1H4E1R5"Hсvї"BM133,17;F2D2F1D1G2D3F1E3U1E1R2E1U1E1U1H3U1E1R1F1R1F1R3E1D1F1D2F1D3G3L1G1D4G1D6G1D1F1R1E2U1E1U1E1R2E1U2E1U1E1R3F3R3E1U1H1L1H4U2H1U1H2E1U2E1R1E1R2"ILАї"BM163,15;R2F1R1F6D1F1D1F2R1F1R2F3D1F4R2F1R1E1H1U2H4U1H3L1H1U1H6L1H2L1H1L2H1L18H1L3G1L5G1L9G1L10G1L3"IФКї"BM193,36;F12R1F1R1F1R1F1R1F2R2F1R1F1R1F1R2F1R1F3R1F1R2F1R2F1R3F2"I╡Фш(150,60),8,1:ш(125,20),10,1IъЮА I│1е60:HH│ Д(55)л115:VV│ Д(12):є(HH,VV,10):Л IJиА I│1е30:HH│ Д(5 (*&Ъ:Г*** BLACK GRID (c) 1988 Joseph Paravati Yorktown heights NY Distributed by SPORTSware Toledo, Oh (419) 389-1515&▄М X(8),Y(8),CU(.2),CK(32),G(32),H(32):R│ Д(м Я):т40:CO│1:ZK│0&Ў╙M"CHARSET/BIN",29853'XЮ:ё2,12:З"WHAT TYPE OF MONITOR ARE YOU USING ?":ё10,14:З"<1> RGB":ё10,16:З"<2> TV/COMPOSITE";'ЕK$│ Т:Е K$┤"1" ▒ K$▓"2" з 4 :Д MN│ Й(K$)'ЬТ65497,1:И Ё Бе193'╘O│2:SK│0:CT│0:PE│0:C1│0:C2│0:D│2:T│0:KZ│0:CU│0:BU│0'юЮ0:АN│1е32:CK(N)│0:ЛN(АN│0е15:НA,B:Е MN│1 з уN,A:ЛN :Д уN,B:ЛN(1 Е ZK│0 з Бж207:ф0(E Бж36:ф2:ц0:Бж26(o э1,3565:э2,400:АN│32775е32799:хN,0:ЛN(А АX│67е240й24(С АY│24е157й18(░ч8:ъ(X,Y)м(Xл19,Yл14),╜,BF(╙ч4:ъ(Xл6,Yл4)м(Xл16,Yл11),╜,BF(сЛY,X:Бж23(ўч8:ш(160,162),3,8)&АN│4е22й2.2:НA$,B$:ю(6,N),A$:ю(33,N),B$:ЛN)SАN│9е30й3:НA$,B$:ю(N,2),A$:ю(N,21),B$:ЛN)Бы(54,76)м(64,104),2:ь(54,80)м(64,108),2,╜)│ы(262,76)м(280,104),2:ь(262,80)м(280,108),2,╜)╨Бж61:KZ│1:Т61461,33:Бе74)°ч8:ъ(67,166)м(67,24),╜:ъм(260,24),╜*ъм(259,166),╜,B:ъм(67,165),╜,B*!Р*5A│59322:B│59326*KC│204:ТA,C:ТB,Cм1*ZТ65433,126*hТ61327,25*wТ60277,Cм1*УТ65449,116:ц:Т65449,112*Щ Р*∙!Ж 24,30,36,39,9,44,18,18,20,3,54,36,20,3,49,4,0,0,63,48,52,37,63,48,44,24,32,23,10,13,27,46+?"Ж " 1",24," 2",23," 3",22," 4",21," 5",20," 6",19," 7",18," 8",17+|#Ж " "," ",32,9,31,10,30,11,29,12,28,13,27,14,26,15,25,16+┘$Ю6:°0,5:ё7,12:З"INSTRUCTIONS <";:°5,5,B:З"Y";:°0,5:З">ES, <";:°5,5,B:З"N";:°0,5:З">O ?";,%K$│ Т:Е K$│"N" з 54 :Д Е K$│"Y" з 38 :Д 37,F&Ю5:ё8,0:З"*** ";:З"THE BLACK GRID";:З" ***":З  б(40,"*");-'З" The object of the game is to find the ";:°1,4:З"HIDDEN LOCATIONS ";:°0,4:З"which CO-CO has picked,with the ";:°6,4,B:З"LEAST ";:°0,4:З"amount of ";:°5,4:З"MARKERS ";:°0,4:З"used."-╘(З" The boxes on the edge of the ";:З"GRID ";:З"arenumbered 1 to 32. You pick a number by moving the cursor over a number and thenpressing the FIRE button which causes a particular action to take place.".s)°0,4:З:З" One of four actions can result:a ";:°4,4:З"HIT";:°0,4:З", a";:°5,4:З" MISS,";:°0,4:З" a";:°6,4:З" DETOUR,";:°0,4:З" or a ";:°1,4:З"REFLECTION.".·*°0,4:З:З" You imagine a '";:°5,4:З"RAY";:°0,4:З"' being shot from the number you pick. The '";:°5,4:З"RAY";:°0,4:З"' can either ";/S+°4,4:З" HIT";:°0,4:З",";:°5,4:З" MISS";:°0,4:З" be ";:°6,4:З"DETOURED";:°0,4:З" or";/ї,°1,4:З" REFLECTED ";:°0,4:З"from the HIDDEN LOCATIONS. ":°4,4:З:З"A 'RAY' cannot pass a HIDDEN LOCATION that lies";:°1,4,B:З" next";:°4,4:З" to its path !"0-Бж102:Ю60Х.З" To see the various actions take place use practice game <1>. Then try practicegame <2>which shows the HIDDEN LOCATIONSbut not the 'RAYS'."1f/З:З"When playing a REGULAR game you fill in the boxes you think the computer picked.Move the cursor over the box and press the FIRE button. A second press of the FIRE button will erase the painted box."2E0З:З"When you think you have the proper boxespicked (2 to 9), press to end game and see if your choices are correct. Symbols appear in the correct boxes. Youare charged 10 extra points for each wrong answer."2Л1З:З"Until is pressed you can change yourguesses at any time."2Х2Бж1023W3Ю8:З"On the higher level games (6 to 9 HIDDENLOCATIONS) you have a PEEKING function.":З"When the cursor is over a box press

and if that box is a HIDDEN LOCATION it will be filled in.":З4H4З"This feature is very useful when trying to find a HIDDEN LOCATION in the middle of the grid. You are charged 10 extra points when this option is used.":З:З"A white dot will appear on the HIT marker if you have an INDIRECT HIT."4Н5З:З"The white dot only appears on the higherlevels (6-9).":Бж1024х6Ю5:ё0,8:З"Practice Game with GRID filled and RAYS shown. <";:°4,4,B:З"1";:°0,4:З">"5V7З:З"Only GRID filled in <";:°4,4,B:З"2";:°0,4:З">":З:З"Else <";:°4,4,B:З"ENTER";:°0,4:З"> for REGULAR game."5К8GE$│ Т:Е GE$┤▓"1" ░ GE$┤▓"2" ░ GE$┤▓ Л(13) з 565ь9Ю3:ё2,12:З"HOW MANY HIDDEN LOCATIONS ? <";:°1,2,B:З"2";:°0,2:З" to ";:°1,2,B:З"9";:°0,2:З">";6=:GM$│ Т:Е GM$│"" ▒ (GM$┤"2" ▒ GM$▓"9") з 58 :Д Е GE$│ Л(13) з C1│ Й(GM$):C2│06R;NH│ Й(GM$):Бж1946X<Р6Н=Е GE$│"1" ▒ GE$│"2" з ч5:C│5:Бж83 :Д ч6:C│6:Бж836л>ч8:ъ(2,188)м(317,204),╜,B6╥?CL│1:X1│10:Z│0:Y│196:Бж129:CT│CTм16х@ю(2,24),"=HIT"7ACL│2:X1│58:Бж129:CT│CTм17Bю(8,24),"=REFLECTION"7mCOC│CO:CO│5:Q│164:R│192:S│Qл8:T│Rл8:U│Qл16:V│R:W│Sл16:K│T:Бж179:CT│CTм2:CO│OC7ПDч8:ю(24,24),"=MISS OR DETOUR"7░Eъ(60,0)м(60,24),╜:ъм(0,24),╜7╒Fъ(262,0)м(262,24),╜:ъм(319,24),╜8Gч2:ю(0,0),"Guesses":ю(1,1),"Left":ю(3 Е K$┤▓"N" з 191J+┴Т65496,0:Т113,0:в&H8C1BJP┬T│0:АN│67е240й24:T│Tл1:X(T)│N:ЛNJy├T│0:АN│24е157й18:T│Tл1:Y(T)│N:ЛN:T│0JЩ─G(1)│X( Д(8)):H(1)│Y( Д(8))Jж┼АB│2е NHJ·╞G(B)│X( Д(8)):H(B)│Y( Д(8)):АN│Bм1 е 1йм1:Е (G(B)│G(N) ░ H(B)│H(N)) з 198 :Д ЛNK╟ЛB:РK!╚Е  л(Xм2,Yл2)│5 з а60,1:РK╖╔Т65449,116:ч1:ю(10,0),"PEEKING will cost 10 points !":ч9:ю(14,1),"ARE YOU SURE ? <":ч1:ю(30,1),"Y":ч9:ю(31,1),"> <":ч2:ю(34,1),"N":ч9:ю(35,1),">"Kу╩K$│ Т:Е K$│"N" з 205 :Д Е K$┤▓"Y" з 202L2╦PE│PEл10:АN│1е NH:Е G(N)│Xм11 ░ H(N)│Yм8 з ч5:Бж100:є(X,Y,6):C2│C2л1:Бе205LV╠ЛN:Т65496,0:а20,4:а1,4:Т65497,1Lз═ю(8,0), б(40," "):ю(8,1), б(40," "):ч2:ю(15,1),"PENALTY POINTS =":ю(31,1),PEL╕╬Т65449,112:РL└╧C│4L▌╨ф2:ЮCл1:цC:Т65433,126:ч8L·╤Т65449,116:цC:Т65449,112M.╥ю(1,1),"T H E B L A C K G R I D"MH╙ъ(10,16)м(310,24),╜,BM`╘ъ(10,20)м(310,20),╜Mп╒АX│10е310й20:ъ(Xм1,16)м(Xм1,24),╜:ъ(X,16)м(X,24),╜:ъ(Xл1,16)м(Xл1,24),╜:ЛXMх╓ю(1,23),"by J. S. PARAVATI (c) 1988":АT│1е1000:ЛTMЎ╫АZ│128 е 131N╪Т65432,Z:АT│1е800:ЛTN┘ЛZN)┌АT│1е1800:ЛT:Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   |ll$H666<`<|sV|5g8ll8fl: 000 `00`$ZZ$~~ 0`` 8x8~~ 08<80 cgmg`>f>``|fff|fff><``|fffff<``flxlf~████|ffff`<|00|006ffff<fff<████~f<|~ 0~8pp |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (88,96)м(258,103),╛,BF:Т&HE0D4,&H37:АY│0е4:АX│0е9:ь(Xн32,Yн32)м(Xн32л29,Yн32л29),1,╜:ЛX,Y8Лч10:ю(36,20),"-":ю(18,20),"-":ю(0,20),"Score:"8┴ч0:ю(0,23),N$(0):ч10:ю(7,20),N$(0):ю(25,20),N$(1)8╟Р8╬!:Г8ч&:Г We have a winner!8ю+:Г9/0╔"T200L200":АY│1е12:АX│Y е12:╔  И(X):ЛX,Y:ф0:Е MO│1 з ў :Д Ў9w5ф0:Ю:З@39,"We have a winner !":З@138,"Final Score":З@170, б(11,"-")9й:З@202,N$(0):З@214,S(0):З@234,N$(1):З@246,S(1)9▐?З:З:A$│N$(W)л" is our winner!":Зд16м З(A$)о2);A$:DЗ@483,"Care to play again (Y/N) ?";:;IA$│ Т:ЕA$│"N" з Т359,126:ў:К :Д ЕA$│"Y"зО :Д 585:BN:Г:^S:Г Flip a specific card:eX:Г;]X1│(Xм1)н32:Y1│(Yм1)н32:╔"T20L20":Т&HE0D4,&H34:АZ│1е8:ь(X1,Y1)м(X1л29,Y1л29),Z,╜:╔  И(Z):АZ1│1е50:ЛZ1,Z:Т&HE0D4,&H37:ь(X1,Y1)м(X1л29,Y1л29),B(X,Y)л1:Р;tbX1│(Xм1)н32:Y1│(Yм1)н32:╔"T20L20":Т&HE0D4,&H34:АZ│7 е 1 йм1:ь(X1,Y1)м(X1л29,Y1л29),Z,╜:╔  И(Z):АZ1│1е50:ЛZ1,Z:Р;{g:Г;Цl:Г Card Face Grfx Data;Эq:Г<;vЖ "BM13,7;C15;E3R5F3D6G10H10U6E3R5F3","",15,15,"BM14,4;C14;G10F10E10H10","",14,14,"BM12,8;C13;D16RU16RD16RU16;BM14,2;C12;M+12,+19;L24;M+12,-19;","",14,15<╔{Ж "BM15,13;C13;L12R24H1L22ER20HL18ER16HL14ER12HL10ER8HL6;BM15,26;C11;R12U12L24D12R12L2U6R4D6;L1;C13;U5LD5LU5;BM6,4;D6RU6RD6;C11","",15,15=dАЖ "BM15,4;C10;R6F6D10G6L12H6U10E6R12;BM9,8;D5R3U5L2D1;C0;D3RU3;BM18,8;C10;D5R3U5L2D1;C0;D3RU3;C10;BM5,17;R2F4R8E4R2G6L8H6R2;D1;C0;F4R8E4;C10","",15,15=╪ЕЖ "BM3,4;C1;M+8,+20;R16;M-8,-20;L16","",8,5,"BM2,18;C9;R24U4;M-2,-4;H2;M-4,-2;L8;M-4,+2;G2;M-2,+4;D4;","",15,15>QКЖ "C8;BM9,4;D24R4;M+4,-2;E4;M+2,-4;U6;M-2,-4;H4;M-4,-2;L4D2;","",15,15,"C13;BM3,4;R22D6H2L6D16L6U16L6G2U6;","",15,15>щПЖ "C7;BM4,3;R22D5L18D4R18D5L18D4R18D5L22U23;","",6,6,"C0;BM10,5;D16GL3HU3ER3FU11R12UL12UR12D16GL3HU3ER3FL4DR4DL4DR4","C3;BM6,19;E1;BM18,19;E1",8,20?RФЖ "C2;BM4,4D20RU20R1;C15;R20DL20BD2R20DL20BD2R20DL20BD2R20DL20;BM6,4;C1;D5RU5RD5RU5RD5RU5;C0","",0,0?╞ЩЖ "BM4,4;C0;R22D22L22U22","C3;BM26,7;LDR1;BM15,15;NL2NR2U1NL2NR2U1NL1NR1D3NR2NL2D1NL1R1;BD2;BL1D6EU4L2D4",15,15@LЮЖ "C0;BM3,4;D20RU20RD20RU20RD20RU20RD20RU20R1;C4;D20RU20RD20RU20RD20RU20RD20RU20R1;C14;D20RU20RD20RU20RD20RU20RD20RU20;C0","",0,0@▌гЖ "C9;BM3,5;E3R18F3D21H3G3H3G3H3G3H3G3U21;","C8;BM8,11;R4EL6UR6UL6ER4;C10;L1GR3DL3DNR3FR1;C8;BM18,11;R4EL6UR6UL6ER4;C10;L1GR3DL3DNR3FR1",8,8AиЖ "C5;BM4,4;D22R22H22","",6,16Aн:ГA ▓К                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               98рЕ B1▓B з 3968"сЕ B1┤B з 23189тЕ  Д(м Я)▓.5 з 2318Xую(ZD,ZF),"**MEASURMENTS**"8|фZD│ZDл16:Е ZD▓60 з ZD│3:ZF│ZFл18ЗхБж 4498ЮцЕ  Д(м Я)┤.5 з 3968йчБж 3828▒шD│08╝щБе 3968╘ъЕ  Д(м Я)┤.33 з 2488ЇыB│Bл30л Б(15н(1м Д(м Я)п3))8¤ьZ9│29эБж 2029юЕ B┤│99 з 2439#яP1│39.ЁБж 2659?ёЕ P1│0 з 1079IЄБе 999dєю(ZD,ZF),"THE KICK IS"9ИЇZD│ZDл12:Е ZD▓60 з ZD│3:ZF│ZFл19СїZ2│09ЫЎS│3мS9жўБе 3009═°ю(ZD,ZF),"**BLOCKED** RECOVERED.."9ё∙ZD│ZDл24:Е ZD▓60 з ZD│3:ZF│ZFл1: ·║ G│м Б(14н Д(м Я)):√Бе 193:/№ю(ZD,ZF),"THE PUNT IS":S¤ZD│ZDл12:Е ZD▓60 з ZD│3:ZF│ZFл1:k■Е  Д(м Я)┤.54 з 248:t F1│B:}Z2│1:ЗS│3мS:ТZ3│.65:ЭБе 101:║ю(ZD,ZF),"**TOUCHDOWN**":▐ZD│ZDл14:Е ZD▓60 з ZD│3:ZF│ZFл1:чP1│1:ўP(S)│P(S)л6;B│130; ю(ZD,ZF),"THE KICK IS";@ ZD│ZDл12:Е ZD▓60 з ZD│3:ZF│ZFл1;d Е ( Д(м Я)л.22)┤(Bо132)п4 з 271;m P1│0; ю(ZD,ZF),"NO";вZD│ZDл3:Е ZD▓60 з ZD│3:ZF│ZFл1;╢ю(ZD,ZF),"GOOD";┘ZD│ZDл5:Е ZD▓60 з ZD│3:ZF│ZFл1;ъP(S)│P(S)лP1;їБж 276; S│3мS<В< L│0<Е X┤5 з 280<4Е P(1)┤▓P(2) з 353<:Р1Е  Д(м Я)┤F2 з 320>2G│5л Б(100н Д(м Я))>53Е  Д(м Я)┤.25 з 311>W4В G=INT(24*(1-RND(-TIMER)^2))>r5G│ Б(34н(1м Д(м Я)п2))>В6Е G│0 з 319>М7B│BлG>л8ю(ZD,ZF),"AND RUN BACK...">╧9ZD│ZDл16:Е ZD▓60 з ZD│3:ZF│ZFл1>╫:L│1>ш;Е B▓99 з 222>·<ю(ZD,ZF),"TO"?=ZD│ZDл3:Е ZD▓60 з ZD│3:ZF│ZFл1?(>Бж 418???Е  Д(м Я)▓F2 з 412?G@G│0?aAю(ZD,ZF),"**FUMBLE**"?ЕBZD│ZDл11:Е ZD▓60 з ZD│3:ZF│ZFл1?РCБе 193?аDЕ S│1 з 327?╕EY│ Б(1л3.5н Д(м Я))?╛FР?┌GM│ Б(55н Д(м Я)о10.5)л1?їHЕ (B1мB)о(5мD)┤3 з 330@ IM│ Б(6м4н Д(м Я)п2)@#JЕ LнFн60▓│C з 340@3KЕ D┤4 з 326@GLю(ZD,ZF),"I'LL"@jMZD│ZDл5:Е ZD▓60 з ZD│3:ZF│ZFл1@{NЕ B┤55 з 346@ШOЕ O┤4н Д(м Я)мB1лB з 350@╝Pю(ZD,ZF),"TRY FOR A FIELD GOAL"@рQZD│ZDл21:Е ZD▓60 з ZD│3:ZF│ZFл1@шRM│7@юSРA TЕ P(2)нU2┤│P(1)нU2 з 331A#Uю(ZD,ZF),"TIME OUT"AFVZD│ZDл9:Е ZD▓60 з ZD│3:ZF│ZFл1ARWU2│U2м1A]XБж 449AhYБе 331A|Zю(ZD,ZF),"PUNT"AЯ[ZD│ZDл5:Е ZD▓60 з ZD│3:ZF│ZFл1Aз\M│8Aн]РA╞^ю(ZD,ZF),"GO FOR IT"Aъ_ZD│ZDл10:Е ZD▓60 з ZD│3:ZF│ZFл1AЁ`РBaЕ X┤4 з 362BbЕ P(1)│P(2) з 362B6cю(ZD,ZF),"THE GAME IS OVER"BZdZD│ZDл17:Е ZD▓60 з ZD│3:ZF│ZFл1B}eю(ZD,ZF),"FINAL SCORE BELOW !"BбfZD│ZDл20:Е ZD▓60 з ZD│3:ZF│ZFл1B┴gю(ZD,ZF),"Press any key..."B╬hв &HA171B┘iБе 559Cjю(ZD,ZF),"END OF PERIOD:":ю(ZDл15,ZF),XC)kZD│ZDл17:Е ZD▓60 з ZD│3:ZF│ZFл1CQlЕ X│2 з А N│1 е 2000:ЛN:ц:ZD│3:ZF│0CxmЕ X│2 з ю(ZD,ZF),"** HALF TIME **"CЬnZD│ZDл16:Е ZD▓60 з ZD│3:ZF│ZFл1CзoБж 276C▒pF│1мFC╝qБж 449C╞rC│900C╨sX│Xл1CсtЕ F┤▓0 з 122CыuS│3мKCїvБе 94DwЕ T1│0 з 353D(xю(ZD,ZF),"TWO MINUTE WARNING"DLyZD│ZDл19:Е ZD▓60 з ZD│3:ZF│ZFл1DWzБж 449D`{T1│0Dj|C│120Du}Бе 129DБ~B1│Bл10DХЕ B1┤│100 з 385DаАB1│100DжБРD┴ВQ│1.3н(Aн Д(м Я)м1)м.6D╔ГA│1D┌ДЕ Q▓│0 з 391DтЕA│0DыЖQ│мQDЎЗM1│Mм1E ИG│D(A,M1)л╠T(Q)н(D(2,M1)мD(A,M1))о3.5EEЙG│Gл Б( Д(м Я)л.2)нAн100н Д(м Я)EQКG│ Б(G)EWЛРEaМD│Dл1EqНЕ D│5 з 410EВОЕ D┤▓1 з 400EЫПю(5,19),"DOWN : 1ST"EмРЕ D┤▓2 з 402E┼Сю(5,19),"DOWN : 2ND"E╓ТЕ D┤▓3 з 404EяУю(5,19),"DOWN : 3RD"E ФЕ D┤4 з 406FХю(5,19),"DOWN : 4TH"F2ЦYD│B1мB:Е YD┤0 з YD│1FcЧю(17,19)," AND":ю(21,19),YD:ю(25,19),"TO GO"FЕШю(5,20),"PERIOD :":ю(14,20),XFРЩБе 122FЪЪS│3мSFжЫB│100мBF╢ЬЕ S│2 з 115F╚Эю(ZD,ZF),"MY"FыЮZD│ZDл3:Е ZD▓60 з ZD│3:ZF│ZFл1FЎЯБе 117G аю(ZD,ZF),"BALL ON"G0бZD│ZDл8:Е ZD▓60 з ZD│3:ZF│ZFл1GAвЕ B│50 з 431GSгV│50м В(Bм50)GuдC│Cм Б((7н Д(м Я)л3)н Д(м Я))GЕеЕ S│1 з 435GЦжЕ B┤50 з 426Gизю(ZD,ZF),"MY"G╦иZD│ZDл3:Е ZD▓60 з ZD│3:ZF│ZFл1G╓йБе 428Gъкю(ZD,ZF),"YOUR"H лZD│ZDл5:Е ZD▓60 з ZD│3:ZF│ZFл1Hмю(ZD,ZF),VH?нZD│ZDл4:Е ZD▓60 з ZD│3:ZF│ZFл1HEоРH[пю(ZD,ZF),"THE 50"H~░ZD│ZDл7:Е ZD▓60 з ZD│3:ZF│ZFл1HД▒РHП▓Бе 460Hа│Е B┤50 з 423Hл┤Бе 426H╗╡Е S│2 з 441H╬╢ю(ZD,ZF),"YOU"Hё╖ZD│ZDл4:Е ZD▓60 з ZD│3:ZF│ZFл1H№╕Бе 444I╣ВI║ю(ZD,ZF),"I"I6╗ZD│ZDл2:Е ZD▓60 з ZD│3:ZF│ZFл1IN╝ю(ZD,ZF),"KICK OFF"Iq╜ZD│ZDл9:Е ZD▓60 з ZD│3:ZF│ZFл1I|╛F2│.06IЕ┐Z2│0IЛ└РIУ┴L│0Iй┬А ND│1 е 300:Л NDI╩├ю(ZD,ZF),"TIMEOUT CALLED..."Iю─ZD│ZDл18:Е ZD▓60 з ZD│3:ZF│ZFл1IЇ┼ЗI·╞РJ ╟ &0 Т &HE414,0:Т &HE42A,0::ГDISABLES BREAK KEY&=Т65497,0&Eт40&L(Ю1&X2° 0,0,B&Е<З:З" STANDBY LOADING GRAPHICS...... "&░F:Г************************************&╫P:Г*** DRAWS DICE IN BACKGROUND ***'Z:Г************************************'dТ&HE6C6,&H21:Т&HE6,2:ц'Knэ1,625:э2,625:э3,625:э4,625:э5,625:э6,625'XxБж1230:ц'eВБж1310:ц'rМБж1400:ц'ЦБж1500:ц'МаБж1600:ц'ЩкБж1720:ц'─┤:Г************************************'▀╛:Г*** TITLE SCREEN ***( ╚:Г************************************(╥ў(▄ф2(цC│8(9ЁA│80:B│80:Y│240:Z│112(N·ъ(A,B)м(Y,Z),╜,B(aш(Aл1,Bл1),C,1(kC│Cм1({Е A│8 з 310(Ы"A│Aм12:B│Bм12:Y│Yл12:Z│Zл12(е,Бе250(┐6ю(15,12),"COCO CRAPS"(╨@АX│1е5000:ЛX(√J:Г************************************)&T:Г*** STARTS HI-RES GRAPHIC SCREEN ***)Q^:Г************************************)Xhц4)arу1,0)░|Т &HFF9A,63::Г *** CHANGES BORDER COLOR TO WHITE FOR USE WITH RGB MONITORS)╧ЖA$│"WELCOME TO COCO CRAPS")ъРB$│"BY ANTHONY MORRIS"* ЪC$│"COPYRIGHT FEBRUARY 2005"*дА X│1е  З(A$)*5ою(Xл9,1), Р(A$,X,1)*L╕а130,1:АT│1е100:ЛT*S┬ЛX*e╠А X│1е  З(B$)*}╓ю(Xл9,2), Р(B$,X,1)*Фра130,1:АT│1е100:ЛT*ЫъЛX*нЇА X│1е  З(C$)*┼■ю(Xл9,3), Р(C$,X,1)*▄а130,1:АT│1е100:ЛT*уЛX*ЇАT│1е4000:ЛT+&:Г************************************+;0:Г*** START OF GAME ***+f::Г************************************+qDS│1000+йNц4:ю(0,1),"MAKING YOUR POINTS 2:1 ROLL 7 OR 11 5:1"+─Xю(5,3),"YOU NOW HAVE "+╘bю(19,3),"$"+тlю(20,3),S+■vю(5,6),"PLACE YOUR BET",Аю(5,8),"(1) 10% (2) 25%",<Кю(5,9),"(3) 50% (4) 75%",]Фю(5,10),"(5) ALL (6) QUIT",ЗЮA$│ Т:Е A$│"" ▒ A$┤"1" ▒ A$▓"6" з 670,ЮиЕ A$│"1" з B│Sн.10,╡▓Е A$│"2" з B│Sн.25,╦╝Е A$│"3" з B│Sн.5,т╞Е A$│"4" з B│Sн.75,ї╨Е A$│"5" з B│S- ┌Е A$│"6" з 2120-6фB│ Ш(B)::ГREMOVES ALL BUT WHOLE $ AMOUNT-Tюц4:ю(9,2),"YOUR BET IS $"-b°ю(23,2),B-sАT│1е3000:ЛT-~ Бе1110-КR│D1лD2-Ю Е R1▓0 з Бе 950-╝*Е R│2 ▒ R│12 з 820 :Д 860-ё4ц4:ю(1,1),"YOU LOSE YOU ROLLED A 2 (SNAKE EYES)".&>ю(1,2)," OR A 12 (BOXCARS)".DHАS1│100е1 й м2:а S1,1:ЛS1.dRАT│1е3000:ЛT:ц4:S│SмB:Бе590.В\Е R│7 ▒ R│11 з 870 :Д 930.мfц4:ю(1,2),"CONGRATULATIONS YOU WON $".╝pB│Bн5:S│SлB.╩zю(26,2),B.цДАS1│1е100 й 2:аS1,1:ЛS1.ўОАT│1е3000:ЛT/Шц4:Бе590/ в:Г/"мR1│R:R│0:D1│0:D2│0/J╢ц4:ю(5,2),"YOUR POINTS TO MAKE ARE"/Y└ю(29,2),R1/s╩Е R│0 з Бе 980 :Д 990/~╘Бе1110/З▐R2│R/йшЕ R2│7 ▒ R2│11 з 1010 :Д 1050/ЇЄю(2,4),"YOU DIDN'T MAKE YOUR POINTS YOU LOSE":АS1│100е1 й м2:аS1,1:ЛS10№АT│1е3000:ЛT0S│SмB:R2│0:R1│0:R│00'Бе5900EЕ R2│R1 з Бе 1060 :Д 11100А$ю(10,4),"YOU MADE YOUR POINTS":АS1│1е100 й 2:аS1,1:ЛS10С.АT│1е3000:ЛT0╢8B│Bн2:S│SлB:R2│0:R1│0:R│0:Бе 5900рB:Г***********************************1L:Г *** ROLL OF THE DICE ***1)V:Г**********************************1?`D1│ Д(6):D2│ Д(6)1`jЕ D1│0 ▒ D2│0 з 1120 :Д 11401ЬtЕ D2│1 з Бж 1880 :Д Е D2│2з Бж 1920 :Д Е D2│3 з Бж 19601┘~Е D2│4 з Бж 2000 :Д Е D2│5 з Бж 2040 :Д Е D2│6 з Бж 20802ИЕ D1│1 з Бж 1900 :Д Е D1│2з Бж 1940 :Д Е D1│3 з Бж 19802RТЕ D1│4 з Бж 2020 :Д Е D1│5 з Бж 2060 :Д Е D1│6 з Бж 21002nЬю(10,22),"YOU ROLLED A"2Бжю(22,22),D1лD22Т░АT│1е3000:ЛT2Я║ц4:Бе7902╔─:Г***********************************2ф╬:Г *** DICE ROLL 1 ***3 ╪:Г**********************************3)тъ(71,124)м(104,157),╜,B3;ьш(72,125),5,13WЎщ(87,141),3:ш(88,142),13qы(71,124)м(104,157),13w Р3а:Г**********************************3╗:Г *** DICE ROLL 2 ***3ф(:Г**********************************42ъ(71,124)м(104,157),╜,B4<ш(72,125),5,14.Fщ(77,131),3:ш(78,132),14JPщ(97,151),3:ш(98,152),14dZы(71,124)м(104,157),24jdР4Уn:Г**********************************4оx:Г *** DICE ROLL 3 ***4╫В:Г**********************************4єМъ(71,124)м(104,157),╜,B5Цш(72,125),5,15!ащ(77,131),3:ш(78,132),15=кщ(97,151),3:ш(98,152),15Y┤щ(87,141),3:ш(88,142),15s╛ы(71,124)м(104,157),35y╚Р5в╥:Г**********************************5╜▄:Г *** DICE ROLL 4 ***5цц:Г**********************************6Ёъ(71,124)м(104,157),╜,B6·ш(72,125),5,160щ(77,131),3:ш(78,132),16Lщ(77,151),3:ш(78,152),16hщ(97,131),3:ш(98,132),16Д"щ(97,151),3:ш(98,152),16Ю,ы(71,124)м(104,157),46д6Р6═@:Г**********************************6шJ:Г *** DICE ROLL 5 ***7T:Г**********************************7-^ъ(71,124)м(104,157),╜,B7?hш(72,125),5,17[rщ(77,131),3:ш(78,132),17w|щ(77,151),3:ш(78,152),17УЖщ(97,131),3:ш(98,132),17пРщ(97,151),3:ш(98,152),17╦Ъщ(87,141),3:ш(88,142),17хды(71,124)м(104,157),57ыоР8╕:Г*************"OVER WHO TELLS YOU ABOUT HER":З"TRAVELS AND YOU BECOME FRIENDS":FR│FRл1:ME│MEл2:SC│SCл20:Бж4999:Бе2010/╙╩З"THE TICKET CLERK BECOMES WORRIED":З"ABOUT YOU AND HAS YOU ESCORTED":З"FROM THE PREMISES":Бж4999:Бе20100^╘З"YOU STARE AT PEOPLE FOR A WHILE":З"AND GET BORED...":З"YOU FIND: .50 IN SPARE":З"CHANGE IN THE PHONE BOOTH!":SP│SPл.50:Бж4999:Бе20100ї№J4│ Д(10):J5│ Д(5):Е J5│2зЗ"THE BUS BROKE DOWN":З"IT WILL BE ";J4;" HOURS LATE"::Д А X│1е80:З".";:ЛX:З:SC│SCл50:З"LOOKS LIKE THE BUS WILL BE LATE"0√¤В1 З"WANT TO WAIT SOME MORE? (Y/N)"17 A$│ Т:Е A$│""з23051O Е A$│"Y"з2300:Д20001U ╖Р1l ╕В COMMUNITY CENTER1з ┬Ю3:З:З:ё10,10:°2,3,B:З"****COMMUNITY CENTER****";:°0,11н ├З1╛ ╟З" SELECT: "1╥ ╠З"1) PLAY POOL"1щ ╬З"2) READ NOTICES"2 ╨З"3) JOIN COMPUTER CLUB"2' ╥З"4) LEAVE COMMUNITY CENTER"2/ ╙З:З2= ╓╗Й"->";A$2╖ ╪ЕA$│"1"з3100:ДЕ A$│"2"з3200:ДЕA$│"3"з3300:ДЕA$│"4"зЗ"YOU FIND .25 IN SPARE CHANGE!":А T│1е500:ЛT:SP│SPл.25:Бе80:Д30002┼ З"GAME#1"3 З"YOU PLAY 8-BALL WITH A STRANGER":З"YOU BECOME FRIENDS":FR│FRл13 !З"GAME#2"3И "G│ Д(2):Е G│1з3107:ДЗ"YOU LOSE. YOU THINK YOUR OPONENT CHEATED.":З"YOU LOST A FRIEND":FR│FRм1:Бж4999:Бе30004 #З"YOU WIN THE GAME...OTHERS BECOME":З"BECOME INTERESTED IN YOU AND WATCH":З"YOU PLAY...(YOU GAIN 3 FRIENDS)":FR│FRл3:З"YOU WIN THIS GAME"4$ &З"GAME#3"4╛ (H2│ Д(100):З"YOU PLAY 8-BALL AGAIN":З"YOUR OPPONENT IS VERY GOOD!":З"HE WANTS TO MAKE A BET WITH YOU":З"HE BETS YOU: ";H2;" DOLLARS THAT HE WILL WIN"4ш +З"DO YOU A)CCEPT BET OR D)ECLINE BET"4■ -A$│ Т:ЕA$│""з31175Ф 0G│ Д(2):Е G│2░ A$│"A"зЗ"YOU WIN THE GAME AND THE BET!":MO│MOлH2:FR│FRм1:ME│MEл5:З"YOU WIN $10.00 AND 5 MEMORY UNITS,":З"BUT LOSE A FRIEND":Бе31706' 4Е G│1░ A$│"A"з З"YOU LOSE THE GAME AND THE BET":З"YOU LOSE $";H2;" AND 5 MEMORY UNITS,":З"BUT GAINED A FRIEND":FR│FRл1:MO│MOмH2:ME│MEм5:Бе31706о :З"YOUR OPPONENT GETS MAD BECAUSE":З"YOU WON'T BET AND LEAVES THE":З"COMMUNITY CENTER. YOU DECIDE TO":З"DO THE SAME...":Бж4999:Бе806├ bБж4999:З"GAME#4"6№ gЗ"YOU'RE PLAYING A YOUNG KID FROM":З"ACROSS TOWN..."7* lЗ"THE GAME TAKES A LONG, LONG, LONG TIME"7L qА X│1е30:З".";:А F│1е30:ЛF:ЛX7Ю vG3│ Д(3):Е G3│1зЗ"YOU WIN THE GAME!":Бж4999:Бе80:ДЗ"YOU LOSE....":Бж4999:Бе807╩ АЗ:З:З"** NOTICES **":З"1) NUMBERS GAME"7х ВЗ"2) FLOPPY DISK SALE"7№ ДЗ"3) SQUARE DANCE"8 ЖЗ"4) BUS TICKETS CASHED!"85 ИЗ"5) RETURN TO CENTER"8= ЙЗ:З8S К╗Й"NOTICE #: ";A$8m МЕA$│"1"зБж9500:Бе30008щ ОЕA$│"2"зЗ"FLOPPIES FOR SALE CHEAP!":З"WANDER STREETS UNTIL YOU FIND":З"THE 'FLOP-EASE' STORE ON 5TH AVE.":Бж4999:Бе30009E РЕA$│"3"зЗ"THE SQUARE DANCE HAS BEEN CANCELLED":З"DUE TO LACK OF INTEREST":Бж4999:Бе3000: ТЕA$│"4"зЗ"BUS TICKETS MAY BE CASHED IN FOR":З"MONEY IF YOU CAN FIND GUIDO ON":З"THE STREETS...HE USUALLY HANGS":З"OUT BEHIND IN THE ALLEY BEHIND":З"THE MOVIE HOUSE":Бж4999:Бж4999:Бе3000: ФЕA$│"5"зБе3000:! ХБе3000:@ фЗ:З:З"** COMPUTER CLUB **":` юЗ"DUES ARE $1.50 EACH TIME":| °З"YOU ENTER CLUBHOUSE.":Ш ¤З"WANT TO ENTER? (Y/N)":о  A$│ Т:ЕA$│""з3327:┼ ЕA$│"Y"з3330:Д3000:· MO│MOм1.50:З"YOU HAVE ENTERED THE COMPUTER-CLUB";< З"WANT TO TAKE A CHANCE ON WINNING":З"10 FLOPPY DISKS? (Y/N)";R A$│ Т:ЕA$│""з3343;i ЕA$│"Y"з3350:Д3360;В З"SELECT 1 OR 2":Й S;╒ S│ Д(2):Е S│1зЗ"YOU WIN! YOU GET 10 FREE FLOPPIES!":FL│FLл10::ДЗ"YOU LOSE...."< З"WANT TO TAKE A MINI-PROGRAMMING COURSE? (Y/N)"< "A$│ Т:ЕA$│""з3362<7 #ЕA$│"Y"з3365:Д3370<Х %З"STUDY THIS MANUAL...":А Q│1е160:З"#";:ЛQ:З"YOU GAINED 10 MEMORY UNITS":ME│MEл10:SC│SCл5= &Q│ Д(2):Е Q│1з З"THE INSTRUCTOR GIVES YOU BACK":З"YOUR DUES BECAUSE YOU STUDIED":З"SO HARD!":MO│MOл1.50=I *З"THE CLUB IS CLOSING NOW, PLEASE":З"COME BACK SOON!":Бж4999:Бе3000=OЯР=bаВ NIGHT SCHOOL=ЭкЮ5:З:З:ё10,10:°0,3,B:З"****NIGHT SCHOOL****";:З:З:°0,1=╢┤З"TUITION IS $25.00"=┘╣З"DO YOU WISH TO ENROLL? (Y/N)=я╗A$│ Т:ЕA$│""з4027>╛ЕA$│"Y"з4040:Д80>8╚Е MO┤25зЗ"YOU CAN'T AFFORD IT!":Бе80:Д MO│MOм25>ж╥З"THE INSTRUCTOR DECIDES TO GIVE A":З"QUIZ TO SEE HOW MUCH YOU ALREADY KNOW":З"GET READY FOR THE QUIZ!!!">╟╙А X│1е10:З" ..... !!";:ЛX>═╘З?R╒З"1) WHAT IS THE CAPITOL OF TEXAS?":Й A$:ЕA$│"AUSTIN"▒ A$│"austin"з ME│MEл5:З"CORRECT! (5 MEMORY UNITS OBTAINED)"::ДЗ"INCORRECT"?╥╫J1│ Д(2):Е J1│1зЗ"2) WHAT IS (450-232)+(-5+6) ? ":Й A:Е A│219з ME│MEл5:З"CORRECT. (5 MEMORY UNITS OBTAINED)"::ДЗ"INCORRECT"@.╪Е J1│2зЗ"HOW MANY GALAXIES ARE KNOWN TO CONTAIN CLASS M PLANETS?":Й A$:З"NOT LIKELY..."@Ы┘З"3) HOW MANY SIDES ON A CUBE? ":Й A:Е A│6зЗ"CORRECT!":ME│MEл5:З"5 MEMORY UNITS OBTAINED"::ДЗ"INCORRECT"A*┌З"4) WHAT NUMBER PENCIL DO YOU USE":З"ON A COMPUTER-SCORED TEST?":Й A:Е A│2зЗ"CORRECT!":ME│MEл5WРSXВSbЗ"CURRENT STATUS:"S)lБж1011S4?Бе9000ST@З"PRESS < CR > TO CONTINUE"SjJA$│ Т:ЕA$│""з8010SpTРS#(В END GAMESЛ#2Бе11111Sг%З"NUMBERS GAME":K│0S╛%З"WANT TO PLAY? (Y/N)"S╘% A$│ Т:ЕA$│""з9504Sы%"ЕA$│"Y"з9510:Д3000T%&З:З:З:З:З:З:З:З:З:З:K│0T(%0З" I'M THINKING OF A NUMBER"TD%2З"BETWEEN 1 AND 100..."T~%5З"YOU GUESS AND I'LL TELL YOU":З"HOW YOU'RE DOING..."TИ%:З:З:ЗTЦ%?N│ Д(100)Tо%DЗ:З"YOUR GUESS: ? "T╢%IЙ AT└%JK│Kл1T╓%NЕ A┤N зЗ"TOO LOW"Tэ%SЕ A▓N зЗ"TOO HIGH"UB%XЕ A│N з З"THAT'S IT!":З"YOU GOT IT IN "K" GUESSES":Е K┤7з SC│SCл100:Бе9600:Д9600Ua%]З"KEEP GUESSING...":Бе9545UВ%АЗ"WANT TO PLAY AGAIN? (Y/N)"UШ%КA$│ Т:ЕA$│""з9610Uп%ЛЕA$│"Y"з9510:Д3000U╟'В INSTRUCTIONS HEREU▌'З" INSTRUCTIONS:"VФ'$З"YOU MUST TRAVEL THROUGH GORF-LAND":З"AND MAKE FRIENDS, WORK TO EARN MONEY,":З"BUY/SELL BUS PASSES, FLOPPY DISKS,":З"WATCH OUT FOR TROUBLE, AND":З"GENERALLY HAVE A GOOD TIME..."VЪ'.РV┬+gЗ" Thanks for playing Gorf-Land!"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            x&ў&$ Х300:М PS$(9,9),CS$(9,9)&3 Т &HFFD9,0&Fт32:у ў:╔"V20"&^:ГON BRK GOTO 60000&l2А X│0 е 8&u<Н DA&АFу X,DA&ИPЛ X&зZЖ 0,63,54,36,14,59,7,40,32&▒_ч 1,0&╖`Ю&▀dВ *>REDEFINE HPRINT CHARACTER SET<*&їnА X│62117 е 62292&■xН DA' ВТ X,DA'МЛ X'7ЦЖ 255,255,255,255,255,255,255,255'RЧЖ 0,0,15,16,38,22,15,0'sШЖ 24,126,255,66,126,0,255,24'СЩЖ 0,0,240,8,100,104,240,0'оЪЖ 0,36,24,36,36,36,36,24'╠ЫЖ 24,24,60,90,24,24,60,90'фЬЖ 0,0,0,0,0,24,24,0' ЭЖ 0,0,0,36,24,24,24,24(ЮЖ 0,24,126,126,219,24,24,24(>ЯЖ 0,102,66,66,66,66,66,255(aаЖ 0,66,195,219,219,219,219,219(|бЖ 0,0,0,31,31,24,24,24(ЧвЖ 24,24,24,31,31,0,0,0(┤гЖ 0,0,0,248,248,24,24,24(╤дЖ 24,24,24,248,248,0,0,0(ёеЖ 24,24,24,255,255,24,24,24)жЖ 24,24,24,24,24,24,24,24))зЖ 0,0,0,255,255,0,0,0)FиЖ 24,24,24,255,255,0,0,0)cйЖ 0,0,0,255,255,24,24,24)БкЖ 24,24,24,31,31,24,24,24)блЖ 24,24,24,248,248,24,24,24)║╚В *>SET-UP PLANETS<*)╥╥В *>CLEAR PLANETS<*)р▄X│ Д(м Я))°цА X│0 е 9:А Y│0 е 9*ЁCS$(X,Y)│" ":PS$(X,Y)│" "* ·Л Y,X*7В *>PLACE CITIES<**FА X│1 е 15*bX1│ Д(10)м1:Y1│ Д(10)м1*}"Е CS$(X1,Y1)│"k" з 280*Р,CS$(X1,Y1)│"k"*м6X1│ Д(10)м1:Y1│ Д(10)м1*╟@Е PS$(X1,Y1)│"k" з 310*┌JPS$(X1,Y1)│"k"*тTЛ X+^В *>PLACE MISSILE BASES<*+hА X│1 е 10++rX1│ Д(10)м1:Y2│ Д(10)м1+W|Е CS$(X1,Y1)│"k" ▒ CS$(X1,Y1)│"j" з 370+jЖCS$(X1,Y1)│"j"+ЖРX1│ Д(10)м1:Y1│ Д(10)м1+▓ЪЕ PS$(X1,Y1)│"k" ▒ PS$(X1,Y1)│"j" з 400+┼дPS$(X1,Y1)│"j"+═оЛ X+щ╕CC│15:CM│10:PC│15:PM│10+■ЇВ *>GAME START<*, ўА X│1 е 3,.∙X$│"LOG-IN PLEASE -->":Бж 599,8√╗Й X$,И№X$│"I DON'T RECOGNIZE THAT PASSWORD.PLEASE TRY AGAIN."л Л(13)л Л(13):Бж 599,Р■Л X-З:З:X$│"ACCESS TO THIS SYSTEM IS"л Л(13)л"RESTRICTED TO AUTHORIZED"л Л(13)л"ONLY!!! CONNECTION TERMINATED...."л Л(13):Бж 599-ВX$│"LNX9839X0"л б(2,8)л"Q9.AP98"л Л(13)л"ERROR--> TYPE 7 IN LINE 32167"л Л(13)л Л(13):Бж 599:А X│1 е 1000:Л-ЎX$│"UNFORTUNATLY, DUE TO A COMPUTER ERROR, YOU NOW FIND YOURSELF"л Л(13)л"ENGAGED IN....."л Л(13)л Л(13):Бж 599. &А X│1 е 1000:Л.80Ю:З@256,"*INTERSTELLER THERMONUCLEAR WAR*".M:А X│1 е 5000:Л X.XDБе 600.НWА X1│1 е  З(X$):З Р(X$,X1,1);:╔"L20T9O1D":Л X1:Р.░XЮ:Й"NEED SOME INSTRUCTIONS";X$.▌bЕ  О(X$,1)│"Y" ▒  О(X$,1)│"y" з Бж 50000.ЇшВ *>SET-UP BOARD<*.√Єф2/CTIVATE MISSILES"; Л(13);" QUIT GAME"A╛├nЗ:З" Move the right joystick forward or back to make you selection. (It will be blinking.) Press the button to make your choice."; б(3,13);Aы├xЗ" Press the buttuon to continue....."B ├ВЕ  к(0)│0 з 50050 :Д а 1,1Bэ├МЮ:З" VIEW HOME PLANET STATUS"; б(3,13);" Your cities look like three towers."; Л(13);" Your missile bases look like two towers facing each other."; Л(13);" Places where the computer has hit are shown by yellow *s."C-├ЦЗ:З" You will be shown how many cities and bases remain."CЦ├аЗ:З:З:З" VIEW ENEMY PLANET STATUS"; б(3,13);" Places where you have hit are shown by yellow *s."Cр├кЗ:З" You will be shown how many cities and bases remain."; б(3,13);D ├┤З" Press the button to continue....."D+├╛Е  к(0)│0 з 50110 :Д а 1,1E├╚Ю:З" ACTIVATE MISSILES"; б(3,13);" Move the right joystick left and right to move the missile is under the pointyou wish to attack. Press the button AND HOLD IT until it's in the point you wish to attack."EW├╥З:З" HINT: Look at the enemy planet before firing your missiles!"; б(3,13);F├▄З" QUIT GAME"; б(3,13);" If you wish to quit, move the the right joystick back and press the button when you see YES. Just press the button to go back to the game."F2├цЗ б(3,13);"Press button to start....."FQ├ЁЕ  к(0)│0 з 50160 :Д а 1,1F\├їу 8,32Fb├·РFo╟7Бе 50999Fwъ`у ў                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      !&HЮ:Т&HFFD9,0:уў:у0,0:у2,11:у14,3:ф2:Ю1:ГPOKER GAME BY R. L. BRIMNER&^ИЁБе5999:ИяБе5999&|Т278, Ж(274):Т281, Ж(275)&└МC(4,15),H$(5),H(5),N$(11),S$(10):C(1,15)│8:C(2,15)│8:C(3,15)│8&╨F$│"SCORES"'9 э1,1155:э2,6560:э3,8:ы(0,0)м(160,80),2:H$(1)│"4E":H$(2)│"4D":H$(3)│"4C":H$(4)│"4B":H$(5)│"4A":Бж5914'Ь Бж7000:Т&HFFD8,0:Щ"I",#1,F$:АQ│1е9:Й#1,N$(Q),S$(Q):Л:Ъ#1:Т&HFFD9,0:ЕS$(9)│""зX$│"20":ДX$│S$(9)(4ч3:ю(10,0),"FIVE CARD DRAW POKER":ъ(76,10)м(244,10),╜,B:X$│"Can you top $"лX$л"?":ч1:ю(12,10),X$:а50,1:а1,3:Бж5700:АQ│1е4000:Л:Бж5602:Z│108:у0,1:Ю1(eHB$│"":TM│1:SW│1:AB│1:H9│м1:N$│"":HH│20:D│20(ШЕGB│0зБж5601:ч3:ю(10,10),"Press for rules!(╩Бж5200:D$│"":RM│2:Бж5400:Бж5260:Бж1000:Бж1200(┘:ГBET LOOP)sB$│ Т:ЕB$│""зЕD▓0зPR$│"Place your bet":Бе5210:Д24:Да100,1:Бж5270:ЕB$│"R"зH9│H9нм1:Бж1100:Бе24:ДЕB$│"S"зH9│H9нм1:Бж2000:Бе24:ДЕB$│"E"зH9│1:Бж2000:Бе24)ОЕB$│" "зB$│HB$:ДHB$│B$) ЕB$│"A"зB│D :ДЕB$│"H"зB│ Б(Dо2):ДЕB$│"Q"зB│ Б(Dо4):ДЕB$│"T"зB│ Б(Dн3о4):ДB│ Й(B$):ЕB$┤"0"▒B$▓"9"з:ДЕB│0зB│10*ЕB│0▒B▓D зB$│"":Бе24*ЗAB│B:BT$│ И(B):L│ З(BT$)л1:BT$│ П(BT$,Lм2):D│DмB:PR$│"You bet $"лBT$:Бж5212:Бж5200:ЕB│▓ Б(Dо4)зRM│1:Бж5400*аЕGB│0зБж5918:ДБж5602*╥АZ│1е5:Бж5890:Л:Бж5914:QT│0:QS│1:H9│м1:Бж1000*▄Бе100*ьa:ГDRAW LOOP+bQT│0:ЕH(1)лH(2)лH(3)лH(4)лH(5)│м5зQS│1:ДQS│0+PdB$│ Т:ЕQT│150░QS│0з5990:ДЕB$│""зQT│QTл1:Бе5220,fБж5270:ЕB$│ Л(32)▒B$│ Л(13)▒B$│"N"з200:ДЕB$│"S"зH9│H9нм1:Бж2000:Бе100:ДЕB$│"R"зH9│H9нм1:Бж1300:Бе100:ДЕB$│"E"зH9│1:Бж2000:Бе100:ДЕB$│"A"зQS│0:Бж5602:Бе98:ДZ│ Й(B$):ЕZ┤1▒Z▓5з98,.hа80,1:H(Z)│H(Z)нм1:Y│14:X│24л(Zм1)н56,XjQS│0:ЕH(Z)│1зБж5160:Бе98:ДБж5140:Бе98,ч╚Бж5601:АZ│1е5:ЕH(Z)│1зY│14:X│24л(Zм1)н56:H(Z)│0:Бж5300:C(S,R)│8:C(0,R)│C(0,R)м1:C(S,1)│C(S,14):C(0,1)│C(0,14):ЕR┤15зC(S,0)│C(S,0)м1:Д:Д210,∙═Бж5890:Бж5140-╥Л:ЕGB│0зGB│1:Бж5601-,+:ГDETERMINE THE RETURN-Ж,P│0:JK│C(0,15):AC│C(0,14):ST│0:HJ│JK:FL│0:K3│0:K2│0:W│0:АS│1е4:ЕC(S,0)▓4мJK зFL│1:S│4-Ь-Л:ЕFL│0з310:ДFL│0-▓.АR│10е1йм1:Бж5500-╪0ЕFL│1зЕR▓9зP│15:Бе480:ДP│16:Бе480-щ2Л:P│19:Бе480.6АR│14е2йм1:ЕC(0,R)▓1зST│1.%9ЕC(0,R)│▓4мHJ зP│17:Бе480.P:ЕC(0,R)│3мHJ зK3│1:HJ│0:ЕK2▓0з470:Д324.=ЕC(0,R)│2зЕK2│1зK2│2:Бе330:ДK2│1:ЕK3│1з470.а@ЕST│0зЕR┤11зБж5500:ЕFL│1з326.│DЛ:ЕST│0зБж5500.┬EЕFL┤▓1з330.╤FP│20:Бе480.цJЕK3│1зP│21:Бе480.√LЕK2│2зP│22:Бе480/Lfа100,2:QS│1:Бж5601:ч3:ю(4,10),"Press for new cards!":QT│0:Бе100AсoТ282,255:уў:т40:Т&HFFD8,0:Ю1:З"ERNO"; м;"ERLIN" н:Е н│13зё0,1:З"Did you enter, 'F$=" Л(34)"SCORES" Л(34)":GOTO 2125', to establish SCORES?":С:ДСBpБж6020:Бж6080:Бе6008 :ГSUB ROUTINES FOR HDRAWB%uБж6020:Бж6095BGxБж6090:Бж6085:Бж6075:Бж6105:РB╩z╞"S4":HX│Xл14:HY│Yл23:Бж6020:Бж6115:HX│Xл26:HY│Yл32:Бж6020:Бж6120:HX│Xл14:HY│Yл41:Бж6020:Бж6110:HX│Xл3:HY│Yл32:Бж6020:Бж6125:РBюДX$│"BM"л И(HX)л","л И(HY):їX$:РC Йї"BU4UER3FDGLG3R5BR4":Р:Г2C1Ої"BU5ER3FDGNL2FDGL3HBDBR9":Р:Г3CMУї"BR4U6G4R5BD2BR4":Р:Г4CnШї"BUFR3EUHL4U3R5BR4BD6":Р:Г5CФЭї"BUU4ER3NFBD3NL3FDGL3NHBR8":Р:Г6Cмвї"E5UL5BR9BD6":Р:Г7C╤зї"BRHUEHUER3FDGNL3FDGL3BR8":Р:Г8CЇмї"BUFR3EU4HL3GDFR3BR5BD3":Р:Г9D!▒ї"R3LU6LGBR5BD5BUU4ER2FD4GL2NHBR9":Р:Г10D;╢ї"U4E2F2D2NL4D2BR4":РDY╗ї"U3NR3U3R5BD6L5BR9":Р:ГEDv└ї"BU2DFR3EU5BD6BR2":Р:ГJDР┼ї"U6D3RNE3F3BR4":Р:ГKDи╩ї"U6R5D6L5BR9":Р:Г0D─╧ї"U6R4FDGL4BD3BR9":Р:ГPDш╘ї"BR2LHU4ER2FD3G2BU2F2BR4":Р:ГQE┘ї"U6R4FDGL3F3BR5":Р:ГRE%▐C│14:ї"C14E6F6G6H6":ч3:Бе6130E[уC│14:ї"C14U2EURUR2DRDFEURUR2DRDFD2G6H6":ч3:Бе6130EЙшC│14:ї"C14E6F6D2G2L4D2U2L4H2U2":ч2:Бе6130E├эC│14:ї"C14E2RU2E2R2F2D2RF2D2G2L4D2U2L4H2U2":ч2:Бе6130E∙Єш( Ж(199)н256л Ж(200)л8, Ж(201)н256л Ж(202)),,C:РFW:ГSUB ROUTINE FOR THE TITLEFIXZ│108:U│35:V│172:АY│1е3:ч3:ЕY│2зч4:ДЕY│3зч2FЮ]ї"S8":HX│35:HY│Zл20:Бж6000:HY│HYл1:Бж6000:HX│36:Бж6000:ъ(125,HYм2)м(285,HY),╜,BFF╧bї"S24":АX│1е3:HX│U:U│Uл1:HY│V:V│Vл1:Бж6005:ЛGgї"S4":HY│Zл83:ъ(35,HYм2)м(116,HY),╜,BF:ю(16,23),"R. L. Brimner, 11/86":Л:Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              "","" "","" "","" "","" "","" "","" "","" "","" "",""                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  R8┬ч4:ю(15,11),"GAME OVER"8M╠ю(3,13),"WOULD YOU LIKE TO PLAY AGAIN(Y/N)?"8]╓И Ё Бе 17608ШрI$│ Т:Е I$│"Y" з у ў:Бе 160 :Д Е I$│"N" з 1850 :Д 17608▒ъ:Г ON ERR COMES HERE8√ЇP$│"1836110763310938001800630018003818540936632745380018006300180038"9■Бж 1630:у 15,389'Е MN│1 з у ў :Д у Ў92т 32:Ю9bЗ "ERROR NUMBER - "; м:З "ERROR LINE - "; н9r&Т 65496,0:К9И0:Г END OF PROGRAM9╥:P$│"1836110763310938001800630018003818540936632745380018006300180038"9цDБж 1630:у 15,38:NЕ MN│1 з у ў :Д у Ў:т 32:XЮ1:Т65496,0:К:3b:Г INSTRUCTIONS FOR TITLE:Il:Г SCREEN:mvЖ SHOOT'N RANGE BY ALBERT MARSH:wАЖ " ":БКЖ " ":дФЖ WELCOME TO THE SHOOT'N RANGE:оЮЖ " ":╪иЖ THERE ARE ONLY A FEW SHORT RULES TO:ч▓Ж REMEMBER:ё╝Ж " ";╞Ж USE THE RIGHT CONTROLLER TO PLAY;"╨Ж " ";B┌Ж USE EITHER BUTTON TO FIRE;LфЖ " ";vюЖ YOU MUST KEEP YOUR PERCENTILE ABOVE;Ф°Ж 50% TO CONTINUE PLAYING;ЮЖ " ";╞ Ж YOU PLAY UNTIL YOUR POWER RUN OUT;╨Ж " ";э Ж PRESS ANY KEY TO START;ў*Ж 999                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      э&,:Г************************************&W:Г* SUPER Master Mind (R) *&В:Г* (C) Copyright 1987 *&н:Г* Written by *&╪:Г* Bill Nobel *':Г* & *'.:Г* Darryl Hildebrandt *'Y:Г************************************'_ Ю'l Т65497,0' ИЁ Бе 12:Бе 13'Р ў:Т65496,0:К'з А X│0 е 11:у X,0:Л'╟М SC(7):А X│0 е 7:SC(X)│X:Л'█у 12,63:у 13,36( Ж 0,63,9,36,16,54,52,40,59,3,12,12,63,36,0,0(5ф2:ц 11:ч 13,11:ъ(0,0)м(319,191),╜,B(pA$│" S U P E R":ч12,11:АX│1е З(A$):ю(1,X), Р(A$,X,1):Л(оA$│"MASTER MIND":ч 12,11:АX│1е З(A$):ю(38,X), Р(A$,X,1):Л(─ч 0,11:А X│1 е 11(фъ(Xн25,5)м(Xн25л24,100),╜,B)Е X│1 з ш(Xн25л2,7),3,0:Бе 24)ш(Xн25л2,7),9,0) Л)9ъ(300,5)м(300,100),╜)Qъ(50,80)м(299,80),╜)sА X│2 е 11:ш(Xн25л2,98),3,0:Л)нA$│"Secret code":А X│1 е  З(A$):ю(4,X), Р(A$,X,1):Л X*iч 0,11:ю(18,13),"Color codes available":ч 0,11:ю(25,15),"0 Black":ч 1,11:ю(25,16),"1 White":ч 2,11:ю(25,17),"2 Blue":ч 3,11:ю(25,18),"3 Red":ч 4,11:ю(25,19),"4 Green":ч 5,11*Кю(25,20),"5 Yellow":ч 0,11*рч0,11:ю(1,19),"Programmed by":ю(1,20),"Bill Nobel &":ю(1,21),"Darryl Hildebrandt"+ ю(1,22),"(C) Copyright 1987"+!PQ│220:W│0:Q│5:Бж45+<"АX│0е15:Н A:АY│1е150:Л:у X,A:Л+[#ч3,11:ъ(0,0)м(319,191),╜,B+e$Бе 61+l%:Г+П&:Г PLOT CIRCLES ON PROPER TURN+┤':Г WITH PROPER COLOR PT=COLUMN #+╫(:Г PC('X') BEING COLORS PLAYER+ф):Г CHOSE+ы*:Г+■+А Y│1 е 4лSLм1,F,ч PC(Y),6:щ(PT,(Yн10л2)лPY(SL)),5:ш(PTл2,(Yн10л3)лPY(SL)),PC(Y):Л:Р,T-А Y│W е Q,Н.ч SC(Y),11:щ(PQ,Yн8л123),5:ш(PQл2,Yн8л124),SC(Y):Л:Р,║/щ(YPн11л110,122),5:ш(YPн11л112,124),IP:Р,┴0:Г,▄1:Г INPUT FROM KEYBOARD,у2:Г-3I$│"":I$│ Т:Е I$│"" з 51-4Р- 5:Г-&6:Г ERASE LINES 13-15--7:Г-Q8ч 11,11:ъ(2,111)м(195,144),╛,BF-W9Р-^::Г-s;:Г START OF GAME-z<:Г-н=М C(7),PC(7),A(7,7):HJ│0:PT│287:X│ Д(м Я):SL│0-╙>PY(4)│0:PY(3)│5:PY(2)│10:PY(1)│15- ?ч 0,11:ю(1,15),"Skill Level (1-4)":Бж51.@Е I$┤"1" ▒ I$▓"4" з 63.(ASL│ Й(I$).]BЕ SL│2 з ч 6,11:ю(25,21),"6 Gold":W│6:Q│6:Бж45.░CЕ SL▓│3 з ч 7,11:ю(25,22),"7 Purple":ч 6,11:ю(25,21),"6 Gold":W│6:Q│7:Бж45.ЎDА X│1 е 4лSLм1: Я│ Д( Я):RD│ Д((6м1)лSLм1):Е SL│1 з Е RD│6 з RD│0/EЕ SLм(B(P)лH(P))/,Е R│6 з 48/--Е ML(P)▓0 з 63/K.:Г**NO MOVE NEXT PLAYER**/И/T$│M$:ч0,0:ю(8,8),M$:ч1,0:ю(8,7),"No move "лM$л".":Бе 36/Ъ0Е B(P)│0 з 63/н1Е PS(1)│P з 60/└2Е ML(P)│0 з 56/р3В ROLLED A 6 WITH A MAN OUT0K4ч0,0:ю(8,9),"Press any key to roll.":ч1,0:ю(8,9),"Move new man out.(A)":ю(8,10),"Move other man...(B)"0b5B$│ Т:Е B$│"" з 530t6Е B$│"B" з 620╤7Е B$┤▓"A" з 52 :Д ч0,0:ю(8,9),"Move new man out.(A)":ю(8,10),"Move other man...(B)":ч1,00ф8Е PS(1)│0 з 580Ї9BMP│1:Бж 911:А O│1 е 5:Е MP(P,O)┤▓0 з Л O1д;T$│M$:B(P)│B(P)м1:ч Pл1,0:ю(X(1),Y(1)),"O":PS(1)│P:MP(P,O)│1:ч0,0:ю(8,8),M$:ю(I(P,O),J(P,O)),"O":ч1,0:ю(8,10),T$л" moved a man out!":Бе 361─< Я│0:ю(8,6),"Start blocked"1·=Е  Я ┤60 з 61 :Д ч0,0:ю(8,6),"Start blocked":ч1,02E>ч0,0:ю(8,9),"Move new man out.(A)":ю(8,10),"Move other man...(B)":ч1,02a?В MARBLE SELECT MODULE 2┼@ч0,0:ю(8,8),M$:ю(8,9),"Press any key to roll.":ч1,0:ю(8,7),"Marble Select:":ю(24,7),"SEARCHING"2·AZ│0:VM│0:VS(1)│0:VS(2)│0:VS(3)│0:VS(4)│0:VS(5)│03BZ│Zл1:Е Z│6 з 723/CK│MP(P,Z):Е K┤1 ▒ K▓39 з 663ADЕ KлR▓40 з 663PEА SE│1 е R3pFЕ PS((K)лSE)│P з 66 :Д Л SE3КGVS(Z)│1:VM│VMл1:Бе 663ЭHВ VALID MOVES?3┐Iч0,0:ю(24,7),"SEARCHING":ч1,03ЇJЕ VM│0 з ч0,0:ю(8,7),"Marble Select:":ч1,0:Бе 463№KZ│04LZ│Zл1:Е Z│6 з 754MK│MP(P,Z)42NЕ VS(Z)│0 з 764BOЕ VM│1 з 854bPч 6,0:ю(X(K),Y(K)),"O":ч1,04░Qю(8,8),"This one (green marble) (A)":ю(8,9),"Another marble..........(B)"4╟RA$│ Т:Е A$│"" з 824ыSЕ A$│"A" з 85 :Д Е A$┤▓"B" з 825Tч Pл1,0:ю(X(K),Y(K)),"O":ч1,0:Бе 765ЭUч 0,0:ю(8,7),"Marble Select:":ю(8,8),"This one (green marble) (A)":ю(8,9),"Another marble..........(B)":ч1,0:ю(X(K),Y(K)),"O":PS(K)│05└VK│KлR:Е PS(K)┤▓0 з BMP│K:Бж 916WPS(K)│P:MP(P,Z)│K:ч Pл1,0:ю(X(K),Y(K)),"O":ч1,0:Е K│40 з 88 :Д 386 XВ MARBLE HOME MODULE 6зYю(8,10),"Marble home...":ю(X(40),Y(40)),"O":ч Pл1,0:ю(O(P,Z),Q(P,Z)),"O":ч 1,0:H(P)│H(P)л1:MP(P,Z)│41:PS(40)│0:Е H(P)│5 з 90 :Д 387SZч0,0:ю(8,10),"Marble home...":ч1,0:╔"T4;L8;C;P16;L16;C;P16;C;P16;L2;F":ю(8,10),"PLAYER #"л И(P)л" Has won!!":ю(8,8),"RETURNING YOU TO START":А Z│1 е 200:Л Z:ц:т 32:Бе57d[ВBUMP MODULE7s\PA│PS(BMP)7Ь]А T│1 е 5:Е MP(PA,T)│BMP з 94 :Д Л T7╤^ч PAл1,0:ю(I(PA,T),J(PA,T)),"O":ч 1,0:MP(PA,T)│08_B(PA)│B(PA)л1:ч1,0:ю(8,6),"PLAYER"л И(PA)л" Bumped home!!":Р8├`ц:ю(1,2),"The object of the game is to move":ю(0,3),"your 5 colored marbles from the START":ю(0,4),"hole to the FINISH hole.":ю(1,5),"You need to roll a 6 to move a marble"8їaю(0,6),"out of the start hole.You can't jump"9╤bю(0,7),"over your own colored marble,but you":ю(0,8),"can bump your opponent home by":ю(0,9),"landing on their marble.The first":ю(0,10),"player to move all their marbles to":ю(0,11),"the finish hole is the winner.":cю(1,12),"You need to roll an exact # to go home!":Ydю(1,13),"Follow the prompts given...GOOD LUCK!!!!":ю(8,15),"Press any key...":qeA$│ Т:Е A$│"" з 101:Гfц:ч 1,0:Бе 23                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (S(0,0),0)│5 ░ K(12,A)▓0 з K(12,A)│K(12,A)л100:╔"ABCDABCDABCDDCBA":Бе400 :Г YAHTZEE BONUS?&мЕ S(S(0,0),0)│3 ░ S(S(0,1),0)│2 ░ K(9,A)│0 з K(9,A)│25:I│9:Бе400 :ГFULL HOUSE?&┬Е K(11,A)┤▓0 з288'Е S(1,0) ░ S(2,0) ░ S(3,0) ░ S(4,0) ░ S(5,0)│1 з 286 :Г LG. STR?'@Е S(2,0) ░ S(3,0) ░ S(4,0) ░ S(5,0) ░ S(6,0)│1 з 286'JБе288'dK(11,A)│40:I│11:Бе400'{ Е K(10,A)┤▓0 з 300'╜"Е S(1,0)▓0 ░ S(2,0)▓0 ░ S(3,0)▓0 ░ S(4,0)▓0 з 298 :Г SM. STR?'є$Е S(2,0)▓0 ░ S(3,0)▓0 ░ S(4,0)▓0 ░ S(5,0)▓0 з 298()&Е S(3,0)▓0 ░ S(4,0)▓0 ░ S(5,0)▓0 ░ S(6,0)▓0 з 298(3(Бе300(M*K(10,A)│30:I│10:Бе400(К,Е H│4 з NN│2 :Д NN│3:Г DON'T SETTLE FOR 0 IF ONLY A PAIR(╕.А I│6 е 1 йм1:Г CHECK FOR PAIRS OR BETTER(√0Е S(I,0)│▓NN ░ K(I,A)│0 з Е H┤4 Бе330 :Д K(I,A)│IнS(I,0):Бе400)2Л)4Е H┤4 з 332)Q6Е S(S(0,0),0)│▓4 ░ K(8,A)│0 з I│8:Бж650:Бе400:Г 4 OF A KIND)С8Е S(S(0,0),0)│▓3 ░ K(7,A)│0 з I│7:Бж650:Бе400:Г 3 OF A KIND)║:Е K(13,A)│0 ░ H│4 з I│13:Бж650:Бе400)─<Бж704)∙>Е H│4 з Бе380 :Д 332 :Г DONE, GO PRINT SCORE**@:ГPRIORITIES - 12,9,1,2,3,4,5,6,8,7,11,10,13*_BI│M(MR):Е I┤▓0 з 328 :Г WHAT ARE WE GOING FOR?*zDMR│MRл1:Е MR▓13 з MR│1*ДFБе322*бHЕ I│12 ░ K(12,A)▓м1 з332*╙JЕ K(I,A)┤▓0 з 324 :Г HAS IT BEEN PLAYED?*чLZ│3:Г TOP BOARD+NА L│6 е 1 йм1:Г LOOK FOR PAIRS OR BETTER+^PЕ S(L,0)│▓Z ░ K(L,A)│0 з 346:Г IF SPOT NOT FILLED, ROLL REST+hRЛ:L│0+~TЕ Z│3 з Z│2:Бе334+ФVЕ Z│2 з Z│1:Бе334+║XЕ M(MR)│10 ▒ M(MR)│11 з L│0:Бе356+╩ZЕ Z│3 з 356+▄\А J│6 е 1 йм1+°^Е S(J,0)│▓2 з L│J:Бе356+■`Л,>bЕ L│0 з А B│1 е 5:F(B)│1:Л:Бе364:Г NO MATCHES, ROLL 'EM ALL,bdА B│1 е 5:Г LOOK AT EACH DIE,ЭfЕ C(B)│L з 362:Г IF IT'S A PAIR OR BETTER, GO,╠hF(B)│1 :Г ELSE ROLL IT,╥jЛ,ўlА B│1 е 5 :Г ROLL NEW DICE- nЕ F(B)│0 з 374-:pC(B)│ Д(6):DIE│C(B) :ГSELECT COMPUTER'S DIE-MrY1│(Bм1)н32л10-WtБж622-cvЛ:Бе182-~xMR│MRл1:Е MR▓13 з MR│1-оzЕ DEMO│1 з А I│1 е 13:Е K(I,A)│0 з 384 :Д Л-█|I│M(MR):Е I│0 з376:Г HAS IT BEEN PLAYED?-ё~Е K(I,A)┤▓0 з 376.АЕ I▓6 з 396:Г LOWER BOARD?.1ВБж640:Г COMPUTER MUST SCORE.BДЕ X│м1 з 398.XЖЕ K(I,A)┤▓0 з 376.lИK(I,A)│S(I,0)нI.ВКЕ K(I,A)┤▓0 з 400.бМЕ I│13 ░ K(13,A)│0 з Бж650.╝ОЕ K(I,A)│0 з K(I,A)│м1.щРА J│14 е 17:K(J,A)│0:Л:Г ZERO OUT TOTALS/ ТА J│1 е 6:Г GET TOP TOTAL/ФЕ K(J,A)┤0 з 408/:ЦK(15,A)│K(15,A)лK(J,A)/@ШЛ/kЪЕ K(15,A)▓62 з K(14,A)│35:Г TOP BONUS?/НЬА J│7 е 13:Г GET BOTTOM TOTAL/вЮЕ K(J,A)┤0 з 418/╜аK(16,A)│K(16,A)лK(J,A)/├вЛ/·дK(17,A)│K(14,A)лK(15,A)лK(16,A):Г GET GRAND TOTAL0 ж:ГPRINT SCORE0иБж1780(кLO│4н(Aм1)л1706мА J│1 е 60]оЕ K(J,A)┤0 з ю(LO,Jл1)," 0":Бе4380r░Е K(J,A)┤1 з 4380Э▓Е K(J,A)┤10 з ю(LOл1,Jл1),K(J,A):Бе4380▓┤ю(LO,Jл1),K(J,A)0╕╢Л0╟╕А J│7 е 130ю║Е K(J,A)┤0 з ю(LO,Jл4)," 0":Бе4521╝Е K(J,A)┤1 з 4521.╛Е K(J,A)┤10 з ю(LOл1,Jл4),K(J,A):Бе4521`└Е J│12 ░ K(J,A)▓50 з ю(LOм1,Jл4),K(J,A):Бе4521u┬ю(LO,Jл4),K(J,A)1{─Л1З╞CL│LOн81д╚ъ(CL,72)м(CLл24,80),╛,BF1├╩ъ(CL,152)м(CLл24,160),╛,BF1т╠ъ(CL,160)м(CLл24,168),╛,BF2╬ъ(CL,168)м(CLл24,176),╛,BF2╨ю(LO,9),K(15,A)2A╥Е K(16,A)┤10 з ю(LOл1,19),K(16,A):Бе4722l╘Е K(16,A)┤100 з ю(LO,19),K(16,A):Бе4722Г╓ю(LOм1,19),K(16,A)2п╪Е K(14,A)┤35 з ю(LOл1,20),K(14,A):Бе4762─┌ю(LO,20),K(14,A)2Ё▄Е K(17,A)┤10 з ю(LOл1,21),K(17,A):Бе4823▐Е K(17,A)┤100 з ю(LO,21),K(17,A):Бе48232рю(LOм1,21),K(17,A)3PтЕ DEMO│1 з А J│1 е 1500:Л3cфЕ AнCC┤▓N з 763ОцА B│1 е 13 :ГRESET COMPUTER PRIORITIES3вшЕ M(B)│12 з 4923╕ъЕ M(B)│I з M(B)│03└ьЛ B3╪юА J│1 е 1500:Л:Бе764Ёт80:Ю1:ё 24,1:З"* * Y A H T Z E E * *4/Єё 14,4:З" This is the game of YAHTZEE -4iЇё14,5:З"From 1 to 6 players may play at the same time4дЎё14,6:З"with each player's current status shown on the4╫°ё14,7:З"playing board, including total scores.5·ё14,9:З" The only difference between this game and the5O№ё14,10:З"popular home game is that you may get multiple5И■ё14,11:З"YAHTZEEs here..... The first YAHTZEE scores5├ё14,12:З"50 points, and each additional one will yield5¤ё14,13:З"a bonus of 100 points (if the YAHTZEE is put68ё14,14:З"into the YAHTZEE block)..... In addition, you6sё14,15:З"will be given an extra turn at the end of the6мё14,16:З"game. To score a bonus of 35 points, your6┌ ё14,17:З"Top score must be more than 62."7 ё14,19:З" The winner will be announced at the end of7Kё14,20:З"the game - - but I wouldn't advise anyone7gё14,21:З"to be last....7ЫБж176:ё24,23:°3,2,B:З" ANY KEY TO CONTINUE...";7╢KB$│ Т:Е KB$┤▓"" з 5367┌Е  Я│3000 з DEMO│1:Бе536 :Д 5327ш°2,3:Ю1:Р8 X│2:Е N│1 з 572 :Г (S&:ГLOADM"FAST.BIN":EXEC&√:ГIF YOU DO NOT HAVE A HIGH SCORE BOARD SET UP YET-THEN TYPE GOTO9 (ENTER) AND ONE WILL BE PUT ON DRIVE 0. YOU MUST HAVE A DISK WITH SCORE- BOARD INSTALLED IN DRIVE 0 WHEN YOU PLAY THIS GAME.'Ъ:ГFOR RGB MONITORS ONLY --ALSO THIS GAME WORKS THE BEST WITH HISPEED INSTALLED WITH STEVE BJORK'S DFIX.BAS PROGRAM.SIMPLY MAKE A COPY'┘:ГAND CALL IT FAST.BIN--THEN REMOVE THE ' FROM LINE 0(Б:ГALL SCORING IS AUTOMATIC AND HALL OF FAME IS AUTOMTIC. IF YOU HAVE NO PLAY JUST PICK A LINE AND IT WILL BE ZERO 'ED. ')$:ГIF YOU HAVE THE DICE THAT U WANT AND STILL HAVE ROLLS LEFT SIMPLY PRESS 'E' AND U CAN ENTER YOUR SCORE. FLASH- ING LINES ARE LINES FOR PTS.)З:Г ')РБе10)Ь Бж142:О)╔ т40:Т&HE6C6,33:ф2:ц8:Бж11:Бж13:Бж11:Бе19*$ АP│1е2:АE│0е8:чE,15мE:ю(10,10),"COCO3 Yahtzee Game":ю(12,12),"By Keith Morabeto":ЛE,P*l ч11,3:ю(10,10),"COCO3 Yahtzee Game":ю(12,12),"By Keith Morabeto":Р*н АP│0е240й240:АR│0е 150й35:ъ(15лP,15лR)м(40лP,40лR),╜,BF:ЛR,P*╦щ(27,27),4,0:ш(27,27),2,0*¤А R│1е106й35:щ(27,62лR),4,0:ш(27,62лR),2,0:ЛR+0АR│1е146й35:щ(260,19лR),4,0:ш(260,19лR),2,0:ЛR+eАR│1е146й35:щ(274,36лR),4,0:ш(274,36лR),2┤0:ЛR:Р+xЕNP│0зБж11::ДР+МХ2000:Бж20:Бе21+■╚3,1:D$(1)│"76777777":D$(2)│"75757777":D$(3)│"66677777":D$(4)│"75756767":D$(6)│"666775557":D$(5)│"67676367":Р,Бж144,пP3$│"T15;A;C;A;C;A;C;A;C":P2$│"T15;C;E;C;E;CE;C;E;":P1$│"T15;C;E;C;E;C;E;C;E;C ;E;":╔ P1$:P5$│"T25;A;G;F;E;D;C;":P6$│"T25;C;D;E;C;D;E;E;D;C;C;D;D;E;":P7$│"E;E;E;",╥МSS$(26,9),VD(19,19),VC(19,19)-$т40:Ю5:°2,4:ё0,12:S$│ б(40," "):З"ENTER # ";S$;" OF PLAYERS- ";S$;""-?PL│ Й( Т):Е PL┤ 1 з 25-NЕ PL▓4 з25-fNP│PL:PL│1:X│ Д( Я).А N│1 е NP:╔ P1$:Ю:З"YOU MAY ENTER MORE THAN 4 LETTERS BUT ONLY THE FIRST 4 WILL SHOW DURING GAME":З:З"UP TO 8 WILL SHOW ON SCOREBOARD":ё0,12:З"NAME OF PLAYER #";N;S$;.OЙPL$(N):SN$(N)│ О(PL$(N),8):PL$(N)│ О(PL$(N),4):ЛN:Ю6.`Ю2:Бж32:Бе37.ЩPO│POм5:P│21:АT│0е2:ё5нAл5,PлT:°6,4:З" ";:°2,1:Л:Р/f ЖY,A,H,T,Z,E,E," ","One'S >","Two'S >","Three'S>","Four's >","Five's >","Six 's >","3/Kind >","4/Kind >","Full Hs>","Sml Str>","Lge Str>","YAHTZEE>","Chance >","Top/Tot>","Low/Tot>","TOTAL >"/╔!°4,1:АE│1е7:НF$:Л:Бж35:Бж34:°4,1:ё0,1:°6,4:З б(29," ");:АE│1е18:ё30,E:°6,4:З" ";:°2,1:Л:°2,1:Р/ч"АE│1е17:ё3,E:НF$:ЗF$;:Л:Р0 #АE│1е13:ё0,Eл1:З═"##";Eл10;:Л:Р0R$АE│1е5:P│21:АR│1е3:ё5нEл5,P:°6,4:З" ";:°2,1:P│Pл1:ЛR::ЛE:ё0,23:Р0Г%П:Бж32:АR│1е5:ёRн5л3,23:ЗR;:Л:Е PL▓NP з PL│10в&CL$│ б(29," "):ё0,19:ЗCL$;1B'K3│0:K4│0:FH│0:SS│0:LS│0:S│0:YT│0:H1│0:ё0,18:°2,1:АE│1еNP::ё6л5нE,0:ЗPL$(E);:Л:°6,4,B:ё0,18:ЗCL$;:ё0,1:ЗCL$;:ё6л(5нPL),0:ЗPL$(PL);:ё6л5нPL,19:З"TURN";:°4,11](NN$(PL)│SN$(PL)л" "1╟)АR│10е25й5:АE│2е17:ёR,E:З">";:ЛE,R:ё З(PL$(NP))лNPн5л6,0:З" ";:ё32,0:З"POINTS";:Бж36:ф2:ЕGA│0зц1:Бж132`*P1$│"Press ANY Key to continue":ч3,3:ю(6,20),P1$:ч3,3:ю(6,3),P1$:ч1,1:ъ(107,93)м(190,105),╜,BF:ч12,3:ю(10,9),"It's your turn:":┴6,3:ю(15,12),NN$(PL)2╩+ч1,1:ъ(107,93)м(220,115),╜,BF:ЕA$│""зч6,3:ю(15,12),NN$(PL):NN$(PL)│ Р(NN$(PL),2,16)л О(NN$(PL),1):Д┐02ц,A$│ Т:Е A$│"" з 43 :Дф02Ї-ё9,20:З""2■.Бе 473/Бж148:Бж 48:Бе 843o0PO│2:╔P6$:АT│1е6:CT(T)│0:Л:Бж170:ё31,PO:З" ARE ";:PO│POл1:ё31,PO:З"*******";:PO│POл13Э1П:K3│0:K4│0:FH│0:SS│0:LS│0:YT│0:H1│0:Бж323╕2АE│1е5:ЕE(E)│6зCT│CTл14-3Л:ЕCT▓0 з ё31,PO:З П( И(CT),1);" SIX'S ";:CT(6)│CT:CT│0:PO│POл1:Е SS$(16,PL)│""зё0,7:°5,1,B:З"16 SIX'S >";:°2,14H4АE│1е5:ЕE(E)│5зCT│CTл14║5Л:ЕCT▓0зё31,PO:З П( И(CT),1);" FIVES ";:CT(5)│CT:CT│0:PO│POл1:ЕSS$(15,PL)│""зё0,6:°3,1,B:З"15 FIVE'S >";:°2,14╒6АE│1е5:ЕE(E)│4зCT│CTл15G7Л:ЕCT▓0зё31,PO:З П( И(CT),1);" FOURS ";:CT(4)│CT:CT│0:PO│POл1:ЕSS$(14,PL)│""зё0,5:°1,1,B:З"14 FOUR'S >";:°2,15c8АE│1е5:ЕE(E)│3зCT│CTл1:5╒9Л:ЕCT▓0з ё31,PO:З П( И(CT),1);" THREE";:CT(3)│CT:CT│0:PO│POл1:ЕSS$(13,PL)│""зё0,4:°3,1,B:З"13 THREES >";:°2,15Ё:АE│1е6:ЕE(E)│2зCT│CTл16b;Л:ЕCT▓0зё31,PO:З П( И(CT),1);" TWOS ";:CT(2)│CT:CT│0:PO│POл1:ЕSS$(12,PL)│""зё0,3:°1,1,B:З"12 TWO'S >";:°2,16}<АE│1е6:ЕE(E)│1зCT│CTл16я=Л:ЕCT▓0зё31,PO:З П( И(CT),1);" ONES ";:CT(1)│CT:CT│0:PO│POл1:ЕSS$(11,PL)│""зё0,2:°3,1,B:З"11 ONE'S >";:°2,16√>PO│POл17g?АE│1е6:ЕCT(E)▓2зё31,PO:З"3/KD "; И(E);"S";:PO│POл1:K3│1:ЕSS$(17,PL)│""зё0,8:°3,1,B:З"17 3/KIND >";:°2,17m@Л7╤AАE│1е6:ЕCT(E)▓3зё31,PO:З"4/KD "; И(E);"S";:K4│1:ЕSS$(18,PL)│""зё0,9:°5,1,B:З"18 4/KIND >";:°2,17╫BЛ7ЎCАE│1е6:ЕCT(E)│3зE│6:Л:Бе707№DЛ8JУАE │1 е 1000:Л:РJJФАQR│1е5:E(QR)│ Д(6):Л:Г*** DO DICE *************JnХАQR│1е5:P│21:H│5нQRл5:ёH,P:°6,4JПЦИ E(QR) Бе 152,153,154:Бе155JаЧё0,21:Л QR:РJ╟ШH│Hл1:P│Pл1:ёH,P:З"* ";:°2,1:Бе151JєЩЗ"*";:H│Hл2:P│Pл2:ёH,P:З"*";:°2,1:Бе151K<ЪёH,P:З"* ";:H│Hл1:P│Pл1:ёH,P:З"*";:H│Hл1:P│Pл1:ёH,P:З"*";:°2,1:Бе151KзЫ°6,4:З"*";:H│Hл2:ёH,P:З"*";:°2,1:H│Hм2:P│Pл2:ёH,P:°6,4:З"*";:H│Hл2:ёH,P:З"*";:°2,1:ё0,21:ЕE(QR)│4 з151K║ЬЕ E(QR)│6 з158K¤Э°6,4:P│Pм1:H│Hм1:ёH,P:°6,4:З"* ";:°2,1:ЕE(QR) │ 5 зё0,21:Бе151L*Ю°6,4:P│Pм1:H│Hм2:ёH,P:З"* *";:°2,1:Бе151L=Я:Г SET #1 DICEL~аАD│1е3:╜(Eл12,9лYлD,5):╜(Eл14,9лYлD,5):╛ (Eл13,9лYлD,5):ЛD:РL│бE│Eм6:Бж160:E│Eл10:Бж160:Е E(QR)│6 з Р :Д Бе1680LъвБж160:Y│Yм5:E│Eм5:Бж160:Y│Yл10:E│Eл10:Бж160:Бе1680M9гY│Yм5:E│Eм5:Бж160:E│Eл10:Бж160:Y│Yл10:Бж160:E│Eм10:Бж160:Е E(QR)│4 зБе1680MVдY│Yм5:E│Eл5:Бж160:Бе1680MНеБж 161:Y│Yл5:E│Eм4:Бж161:Y│Yм10:E│Eм4:Бж161:Бе1680MЮжБж160:Бе1680M├зRO│0:Бж94:Бж170:АE│1е6:CT(E)│0:ЛM╔иРM▄йЕQ│1з168 :Д167M кАE│2е20:ё31,E:З" ";:Л:РNлРN!мЕSS$(CO,PL)│""з Р:ДБе94NRнАA│1е7:АB│1е7:°A,B,B:З" ";A;"----";B;:ЛB,A                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ┼&В WORDHUNT.CC3&hВ Original program by jeffery A. Stipes adapted for the COCO3 by Garry M. Davis&uТ65497,0&ЖИ Ё Бе 10000&ЧИ Ё Бе 20000&єМ BD$,BD,PS,TW,Z$,I,PN$,SN$,J,SD$,TD,A,B,X,Y,Z,SA,SB,PA,PL,S,AW,CC,CR,AK$,WN,WL,F,MP$,T&¤Бе120'/#╔"T255;L255;V31;12;10;8;6;4;2;1;3;5;7;8;11":Р'K1В *** print routine ***'г2Е О(PN$,1)│"Y"▒ О(PN$,1)│"y"зЗ#м2, Л(14);SN$:ДЗ#м2, Л(14)"WORD HUNT .............."'╕<З#м2, Л(20):З#м2'╨FЗ#м2,"COPY";CC:З#м2'тPАI│1еS:АJ│1еS(ZЕJ│1зЗ#м2,дT)" "PG$(I,J);:ДЗ#м2," "PG$(I,J);(dЛJ((nЗ#м2:ЛI:Р(CwВ *** main program ***(Sxт40:Ю5:°2,4(pВё12,0:З">> WORD HUNT <<"(Мё19,2:З"a"(ЮЦё11,4:З"Jeffrey A. Stipes"(│аё16,5:З"Program"(╦кё15,9:З"QXC ZD IPR") ┤ё14,9:З"QXC";:°7,4:З"D";:°2,4:З"ZD";:°7,4:З"H";:°2,4:З"IPR")L╛ё14,10:З"PF";:°7,4:З"R";:°2,4:З"NMCO";:°7,4:З"U";:°2,4:З"YW")Н╚ё14,11:З"L";:°7,4:З"O";:°2,4:З"QJIKHL";:°7,4:З"N";:°2,4:З"G")─╥ё14,12:°7,4:З"W";:°2,4:З"NDPQXPZS";:°7,4:З"T":°2,4)▌▄ё14,13:З"OWZJPFBLKR"*цё14,14:°7,4:З"COLOR";:°2,4:З"VNUOC"*Ёё14,15:З"JNNPZGVWWO"*F·ё14,16:З"KT";:°7,4:З"COMPUTER":°2,4*oё7,20:З"Modified by Garry M. Davis";*Ыё13,21:З"For the ";:°7,4:З"COCO 3":°2,4*мАTD│1е5000:Л*╒"т40:Ю4:°1,3:ё12,0:З">> WORD HUNT <<"* ,°2,3:ё8,4:З"Select printer baud rate"+-6ё12,8:°3,3,B:З"1";:°2,3:З") -- 600 Baud"+[@ё12,9:°3,3,B:З"2";:°2,3:З") -- 1200 Baud"+КJё12,10:°3,3,B:З"3";:°2,3:З") -- 2400 Baud"+╣Tё12,11:°3,3,B:З"4";:°2,3:З") -- 4800 Baud"+ш^ё12,12:°3,3,B:З"5";:°2,3:З") -- 9600 Baud"+ cBD$│ Т:ЕBD$│""з355,$eBD│ Й(BD$):ЕBD┤1▒BD▓5зБж35:Бе355,7hЕBD│1зТ150,180,IiЕBD│2зТ150,87,[jЕBD│3зТ150,41,mkЕBD│4зТ150,18,~lЕBD│5зТ150,7,Фrт40:Ю4:°1,3:Х3000,▒|ё12,0:З"<< WORD HUNT >>"-5Жё0,4:З" You are to select from three puzzle sizes as indicated below. The maximum number of words allowed are also shown."-bРё6,9:°7,3:З"*>- Select a Puzzle Size -<*-УЪё5,12:°3,3:З"1) -- 20x20 (15 words or less)"-┐дё5,13:З"2) -- 30x30 (23 words or less)"-ыоё5,14:З"3) -- 38x38 (30 words or less)".c╕ё0,17:°2,3:З"NOTE: Your printer must be Epson compatiable and support 80 column format.".┌┬ё8,23:°1,3:З"Enter selection ";:°1,3:З"(";:°3,3,B:З"1";:°1,3:З"/";:°3,3,B:З"2";:°1,3:З"/";:°3,3,B:З"3";:°1,3:З")";.я╠Z$│ Т:ЕZ$│""з460.№╓Z│ Й(Z$)/