9ОО9жаК@зАМ&їнЯа'·╜VЖ√╖ ╢ Д@'"О└О┘жаК@зАМ &їнЯа'·БY'╜БN' ЁЖ`ОзАМ&∙9╜√Ж╖=╖< >ЖO╖╬BD╠'¤E╢ #К╖ #╜М╜C╜П╜ы ЄЖ╖:╢:Й─'╜н ╜╦z:╢:Б &х9Д╞ =├жД╖9╞жзАZ&∙╢9зД9Д╞ =├жД╖9╞жзД0Z&ў╢9зД9╛E0&№9Ош0&№9ООаца─'TTTTTЖ=╦П ╞АчАМр&уО╢жаК@зАМ&їЖ0╖¤╖■9╢;╞=╦ ў;9╢=Д' ╢9О'4╜7╩ў  ╜╞жДLКАзД50&ц ▄ОdO╞╜*Ж@╞М╜*ЖА╞╜*0&ш9К╖  Z&¤9О ╜?0&∙9Ж╖  ╞ Z&¤ЖГ╖  ╞7Z&¤9╞ Ж╖  ШJ&¤ЖГ╖  ШJ&¤Z&щ9╢BЛ╖B╖CДЛ0╖■╢CDDDDЛ0╖¤9╢D▒='9Б'Ж╖D D╜o╜T№EГ╚¤E9CONVEYOR BELT SCORE 00 GAME OVER PLAY AGAIN (Y/N)? COCO-CASSETTE PRESENTS CONVEYOR BELT (C) 1982 BY T&D SOFTWARE BY A PAKERSKI USE THE UP AND DOWN ARROW KEYS TO MOVE ACROSS THE CONVEYOR BELTS. AVOID HITTING THE BLACK BOXES. EARN POINTS BY GOING COMPLETELY ACROSS AND BACK AS MUCH AS POSSIBLE. PRESS ANY KEY TO START   THE UP AND DOWN ARROW KEYS TO MOVE ACROSS THE CONVEYOR BELTS. AVOID HITTING THE BLACK BOXES. EARN POINTS BY GOING COMPLETELY ACROSS AND BACK AS MUCH AS POSSIBLE.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  |&':ГCOPYRIGHT (C) T&D SOFTWARE 1982&P :Г*BAGIT* (A MEMORY TRAINING GAME)&b:ГGEOFF WELLS&~:Г21-12 EAST AVE. NORTH&Х(:ГHAMILTO, ONTARIO&л2:ГCANADA L8L 5H2&└<:Г(416) 529-1319&╥F:ГSPRING 1982'PХ1000:МST$(20),G(20),PN$(6),MA(6),MS(6),B$(5),EP(6),TR(6)'2ZЮ:З@45,"BAG-IT":З@77,"******"'UdЗ@133,"A MEMORY TRAINING GAME"'snЗ@359,"INSTUCTIONS (Y/N)"'ЫxA$│ Т:ЕA$│"N"з130:ДЕA$│"Y"з945:Д120'╝ВЗ:З" HOW MANY PLAYERS (1-6)"'цМA$│ Т:ЕA$│▓"1"░A$┤│"6"зPL│ Й(A$):Д140' ЦАNF│1еPL:K│16нNFл143(аЮ:З@44,"PLAYER";NF(GкЗ@193,"WHAT IS YOUR FIRST NAME "; б(6, Л(K))(R┤PP│217(g╛N$│ Т:ЕN$│""з190(з╚ЕN$│▓"A"░N$│┤"Z"░PP┤223зPN$(NF)│PN$(NF)лN$:З@PP,N$;:PP│PPл1(Є╥ЕN$│ Л(8)░PP▓217зPN$(NF)│ О(PN$(NF), З(PN$(NF))м1):PP│PPм1:З@PP, Л(K);) ▄ЕN$│ Л(13)з230:Д190)RцЗ@323,"HOW MANY MISTAKES ARE YOU":З@392,"ALLOWED ";PN$(NF);:ЙMA(NF))ZЁЛNF)к·ST│0:АNF│0е20:ST$(NF)│"":G(NF)│0:ЛNF:АNF│0е6:MS(NF)│0:EP(NF)│0:TR(NF)│0:ЛNF)╞АNF│1еPL:ЕEP(NF)│99з730)сK│16нNFл143:Ю0:ST│STл1)°B$(0)│ б(ST, Л(K))*$"B$(1)│ Л(Kм2)л б(8, Л(K))лB$(0)л Л(Kм1)*P,B$(2)│ Л(Kм2)л б(6, Л(K))лB$(0)л Л(Kм1)*|6B$(3)│ Л(Kм2)л б(4, Л(K))лB$(0)л Л(Kм1)*и@B$(4)│ Л(Kм2)л б(2, Л(K))лB$(0)л Л(Kм1)*╚JB$(5)│ Л(Kм2)лB$(0)л Л(Kм1)*╙TPP│320*√^АP│1е5:З@PPл(32м З(B$(P)))о2,B$(P);+ hPP│PPл32:ЛP+grЗ@352л(32м З(PN$(NF)))о2,PN$(NF);:З@480, б(31, Л(128));:З@484,"ADD AN ITEM TO THE BAG";+}|З@0, б(28, Л(K));+СЖPP│0:ST$(ST)│""+жРA$│ Т:ЕA$│""з400+ъЪЕPP┤28░A$┤▓ Л(8)░A$┤▓ Л(13)зST$(ST)│ST$(ST)лA$:З@PP,A$;:PP│PPл1,3дЕA$│ Л(8)░PP▓0зST$(ST)│ О(ST$(ST), З(ST$(ST))м1):PP│PPм1:З@PP, Л(K);,cоЕA$│ Л(13)з440:ДЗ@160, б(32, Л(128));:Бе400,w╕ЕST▓1зFL│0:Д470,┬┬АC│1еSTм1:ЕST$(ST)│ST$(C)зЗ@164,"ONLY ONE OF EACH ITEM";:FL│м1:ЛC :ДЛC,╤╠ЕFL│м1з380-╓З@0, б(32, Л(128));:A1$│ б(10, Л(128))лST$(ST)л б(9, Л(128))-!рЕFL│м1з380-5ъАDL│1е З(A1$)м9-AЇЗ@0,"";-j■A2$│ П(A1$,10):A1$│ О(A1$, З(A1$)м1)-}PP│15:АLD│1е10-ЭЗ@PP, Р(A2$,LD,1);:PP│PPл32-еЛLD-н&ЛDL-ё0З@480,"OK ";PN$(NF);" WHAT'S IN THE BAG NOW";:АN│0еST:G(N)│0:ЛN-■:АIB│1еST.EDЗ@32, И(IB);")"; б(28, Л(K));:ST$(0)│"":G(0)│0:ЕIB┤10зPP│35:ДPP│36.ZNA$│ Т:ЕA$│""з590.вXЕIB┤10░PP┤63░A$┤▓ Л(8)░A$┤▓ Л(13)зST$(0)│ST$(0)лA$:З@PP,A$;:PP│PPл1.ыbЕIB│▓10░PP┤64░A$┤▓ Л(8)░A$┤▓ Л(13)зST$(0)│ST$(0)лA$:З@PP,A$;:PP│PPл1/8lЕIB┤10░A$│ Л(8)░PP▓35зST$(0)│ О(ST$(0), З(ST$(0))м1):PP│PPм1:З@PP, Л(K);/ЖvЕIB│▓10░A$│ Л(8)░PP▓36зST$(0)│ О(ST$(0), З(ST$(0))м1):PP│PPм1:З@PP, Л(K);/ЩАЕA$│ Л(13)з660/╣КЗ@160, б(32, Л(128));:Бе590/┼ФАC│1еST0.ЮЕST$(0)│ST$(C)зG(0)│99:G(C)│G(C)л1:ЕG(C)▓1зЗ@164,"YOU ALREADY SAID THAT";:MS(NF)│MS(NF)л1:C│ST:Бе94005иЛC0~▓ЕG(0)│0зЗ@163,"I DON'T SEE THAT IN HERE";:MS(NF)│MS(NF)л1:C│ST:Бе9400й╝З@168,"OK, IFOUND IT";:TR(NF)│TR(NF)л10▒╞ЛIB1╨З@480, б(31, Л(128));:З@483,"GREAT, YOU GOT THEM ALL";:TR(NF)│ST:АM│1е1000:ЛM1 ┌ЛNF1=фEP(0)│0:АNF│1еPL:ЕEP(NF)│0зEP(0)│99:ЛNF :ДЛNF1[юЕST│20з760:ДЕEP(0)│99з2601о°Ю:ЕST│20зЗ@35,"***THE BAG IS FULL***":ДЗ@32,"***ALL PLAYERS ARE ELIMINATED***"1┘З@96,"PLAYERS MISTAKES MISTAKES TOTAL"2 З@128,"NAME ALLOWED MADE RIGHT"2АNF│1еPL2? ЗPN$(NF);д9)MA(NF);д18)MS(NF);д27)TR(NF)2G*ЛNF2[4З@459,""2p>A$│ Т:ЕA$│""з8302СHЮ:З@37,"THE BAG CONTAINED:-"2нRЗ:АNF│1е10:ЗST$(NF):ЛNF2╟\ЕST$(11)┤▓""з870:Д9002█fЗ@459,""2ЁpA$│ Т:ЕA$│""з8803zЗ@96,"":АNF│11е20:ЗST$(NF):ЛNF32ДЗ@448,"ANOTHER GAME (Y/N)"3WОA$│ Т:ЕA$│""з910:ДЕA$│"Y"з920:ДК3uШЗ@448,"SAME SET UP (Y/N)"3ЬвA$│ Т:ЕA$│"Y"з250:ДЕA$│"N"з80:Д9304,мЕMS(NF)▓MA(NF)зАM│1е1000:ЛM:З@162,"YOU HAVE MADE";MS(NF);"MISTAKES SO";:З@230,"YOU ARE ELIMINATED";:EP(NF)│99:IB│ST:АM│1е1000:ЛM:Бе730:Д5805▒Ю:З@8,"*** BAG-IT ***":З:З" THIS GAME INVOLVES TAKING TURNS PUTTING ITEMS INTO A BAG AND THEN TRYING TO REMEMBER THE CONTENTS. TRY TO FORM A MENTAL IMAGE THAT CONNECTS THE ITEMS IN SOME WAY, THE SILLIER THE BETTER."5{╢З:З" HANDICAP PLAYERS OF DIFFERENT SKILL BY ADJUSTING THE NUMBER OF MISTAKES ALLOWED.":Бе 130O A BAG AND THEN TRYING TO REMEMBER THE CONTENTS. TRY TO FORM A MENTAL IMAGE THAT CONNECTS THE ITEMS IN SOME WAY, THE S                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ) = (SIN B/ b)"/W З"WHERE ANGLE A IS OPPOSITE a":З"AND ANGLE B IS OPPOSITE SIDE":З"b."/]З/Р З"TO USE THE SINE LAW, YOU MUST":З"BE GIVEN :"/╣*З" 1. 2 ANGLES AND 1 SIDE":З" OR"04З" 2. 2 SIDES AND AN ANGLE":З" OPPOSITE ONE OF THE GIVEN":З" SIDES"0>Бж 17400HЮ(6)0cRЗ"EXAMPLE : GIVEN, ANGLE A = 30,":З"a = 10, ANGLE B = 50, FIND b."0i\З0ВfЗ"SIN A/a = SIN B/b"0ЮpЗ"SIN 30/10 = SIN 50/b"0╣zЗ"0.5/10 = 0.7660 / b"0╥ДЗ"0.05 = 0.7660 / b"0ыОЗ"0.05 * b = 0.7660"1ШЗ"b = 0.7660 / 0.05"1вЗ"b = 15.32"1!мБж 17401*╢Ю(6)1o└З"COSINE LAW : (THE '^' SHOWS ":З" EXPONENTIATION)"1u╩З1Ш╘З"a^2 = b^2 + c^2 - 2bc COS A"1Ю▐З1°шЗ" TO USE THE COSINE LAW, YOU":З"MUST BE GIVEN TWO SIDES AND THE":З"INCLUDED ANGLE."1■ЄЗ2Q№З"SOMETIMES, IT WILL BE NECESSARY":З"TO USE BOTH LAWS TO SOLVE A":З"TRIANGLE."2]Бж 17402fЮ(6)2ЪЗ"EXAMPLE : a = 10, b = 20, C =":З"30, FIND c."2╜$З"c^2 = a^2 + b^2 - 2ab COS C"2с.З"c^2 = 100 + 400 - 400 COS 30"2 8З"c^2 = 500 - 400 COS 30"3BЗ"c^2 = 500 - 400 (0.8660)"38LЗ"c^2 = 500 - 346.4"3KVЗ"c^2 = 153.6"3[`З"c = 12.4"3gjБж 17403ptЮ(6)3С~З"MULTIPLE CHOICE QUESTIONS"3ЧИЗ3╡ТЗ"1. SIN IS DEFINED AS :"3┴ЬБж 17703╩жCA│23╓░Бж 18303Ї║З"2. COS IS DEFINED AS :"4─Бж 17704 ╬CA│54╪Бж 183043тЗ"3. TAN IS DEFINED AS :"4?ьБж 17704HЎCA│14TБж 18304] Ю(6)4ЫЗ"SCORE THUS FAR, ";TR;"OUT OF";TE:З"FOR ";TRоTEн100;" %"4зБж 17404░(Ю(6)4╠2З"CALCULATION PROBLEMS"5*<З" THE NEXT SET OF PROBLEMS":З"WILL REQUIRE YOU TO USE THE":З"SINE AND/OR COSINE LAWS."50FЗ5sPЗ" PLEASE ENTER ALL ANSWERS TO":З"THE NEAREST WHOLE NUMBER."5ZБж 17405ИdЮ(6)5║nЗ"4. ANGLE A=23, b=45, ANGLE B=48":З"FIND a."5─xCA│245╨ВБж 19706МЗ"5. ANGLE A=45, a=62, ANGLE C=51":З"FIND c."6 ЦCA│686аБж 19706JкЗ"6. ANGLE A=42, a=72, ANGLE B=67":З"FIND c."6U┤CA│1026a╛Бж 19706У╚З"7. ANGLE A=36, a=41, c=50":З"FIND ANGLE C."6Э╥CA│466й▄Бж 19706╒цЗ"8. a=10, b=17, ANGLE C=45":З"FIND c."6▀ЁCA│126ы·Бж 19707З"9. b=45, a=60, ANGLE C=40":З"FIND c."7!CA│397-Бж 19707Z"З"10. a=20, c=10, ANGLE B=25":З"FIND b."7d,CA│127p6Бж 19707Ы@З"11. a=4, b=7, ANGLE C=60":З"FIND c."7дJCA│67░TБж 19707┼^З"FINAL SCORE :"7▀hЗ" ";TR;" OUT OF ";TE7¤rЗ" FOR ";TRоTEн100;" %"8|З:З8 ЖК81РАI│8е15:Ь(28,I,2):Ь(Iл20,15,2):ЛI8TЪJ│8:АI│28е35:Ь(I,J,2):J│Jл1:ЛI8cдЗ@140,"b";8rоЗ@236,"c";8Б╕З@243,"a";8З┬Р8о╠З@484,"PRESS [ENTER] TO CONTINUE";8─╓Е Т┤▓ Л(13)Бе17508╩рР9ъЗ"1) (SIDE OPPOSITE ANGLE)/(SIDE":З" ADJACENT ANGLE)"9;ЇЗ"2) (SIDE OPPOSITE ANGLE)/":З" (HYPOTENUSE)"9n■З"3) (HYPOTENUSE)/(SIDE ADJACENT":З" ANGLE)"9кЗ"4) (SIDE ADJACENT ANGLE)/(SIDE":З" OPPOSITE ANGLE)"9▀З"5) (SIDE ADJACENT ANGLE)/":З" (HYPOTENUSE)"9хР:&TE│TEл1:З"ENTER YOUR CHOICE";:0Й AN:::ЕAN┤▓1░AN┤▓2░AN┤▓3░AN┤▓4░AN┤▓5 з 1940:MDЕ AN│CA з 1890:ЛNЗ"SORRY, INCORRECT ANSWER.":З"THE CORRECT ANSWER WAS ";CA:ЦXБе1910:пbЗ"**** CORRECT ****":╗lTR│TRл1:╟vБж 1740:╨АЮ(6):╓КР:№ФЗAN;"IS NOT ONE OF YOUR CHOICES.";*ЮЗ"PLEASE ENTER AGAIN":З"(1,2,3,4, OR 5)";;5иБе1840;r▓З"ENTER YOUR ANSWER TO THE NEAR-":Й"EST WHOLE NUMBER";AN;Е╝Е AN│CA з 2010;╝╞З"SORRY, YOU ARE INCORRECT.":З"THE ANSWER WAS ";CA;╚╨Бе 2030;с┌З"**** CORRECT ****";эфTR│TRл1;∙юTE│TEл1<7°З"SCORE :":З" ";TR;" OUT OF ";TE:З" FOR ";TRоTEн100;" %"МЕ SC│10 ░ XX│0 з C(B)│C(B)л10>.ЦЕ SCлF2│10 ░ SC┤▓10 з C(B)│C(B)л5>CаЗ@58лBн96,TS(B);>PеT$│A$(B)>sкА V│1 е 10:P(V)│0:ЛV:C1│0:F1│0>Ч┤Е F│10 ░ XX│1 ░ C(B)│5 з C(B)│0>─╛Е F│10 ░ C(B)▓4 з XX│1:B│B :Д XX│0:B│Bл1>┌╚Е B▓P з F│Fл1:B│1>я╥З@58лBн96,TS(B);? ╫ЕSC│10зM$│"strike":Бж3000?5┘Е SCлF2│10░SC┤▓10зM$│"spare":Бж3000?Ю▄Е F▓10 з АV│1е8:АQ│480е510:З@Q, Л(128);:ЛQ:З@492,"game";:З@497,"over";:ЛV:Бж 1110:АPA│1е1400:ЛPA:О10?╕цZ5│0:SC│0:F1│0:F2│0:Р?╧ ╕:ГSTRIKE AND SPARE@} ┬АV│480е510:З@V, Л(128);:ЛV:З@489,"nice";:З@494,M$;:З@495л З(M$),T$;:АPA│1е400:ЛPA:АV│1еSCн2:┐0,1:АPA│1е30:ЛPA:┐0,0:АPA│1е30:ЛPA:ЛV:АV│1е400:ЛV:АV│480е510:З@V, Л(128);:ЛV@Г ╠Р 1110:АPA│1е1400:ЛPA:О10?╕цZ5│0:SC│0:F1│0:F2│0:Р?╧ ╕:ГSTRIKE AND SPARE@} ┬АV│480е510:З@V, Л(128);:ЛV:З@489,"nice";:З@  й&' :ГCOPYRIGHT (C) T&D SOFTWARE 1982&G:ГDESIGNED BY: LYLE ZOERMAN&QХ2000&X(:Г&f2Ю:МT$(20)&t<З::ГTITLE&}FЮ(0)&кKЗ@426,"press";:З@432,"any";:З@436,"key";&┘PT$(1)│ Л(131):АT│1е11:T$(2)│T$(2)лT$(1):ЛT'ZT$(3)│ Л(143):АT│1е11:T$(4)│T$(4)лT$(3):ЛT'7dT$(5)│ Л(191):АT│1е14:T$(6)│T$(6)лT$(5):ЛT'fnT$(7)│ Л(159):АT│1е14:T$(8)│T$(8)лT$(7):ЛT'мxT$(9)│"prom"л Л(128)л"+"л Л(128)л"loans":T$(10)│T$(7)лT$(9)лT$(7)'╔ВT$(11)│T$(5)лT$(9)лT$(5)'▀к╔"T200A2L2P5C1L2"'Ё╛З@201,T$(6);(╚З@233,T$(11);(╥З@265,T$(6);:╔"T9P10"(-цЗ@201,T$(8);(?ЁЗ@233,T$(10);(P·З@265,T$(8);(kT$│ Т:ЕT$│"" з170:Д270)IЮ:З" A COMMON CREDIT INSTRUMENT IS THE PROMISSORY NOTE. A PROMIS- SORY NOTE IS A WRITTEN PROMISE TO PAY A CERTAIN SUM OF MONEY (PRINCIPAL AND INTEREST) TO A CERTAIN PERSON AT A CERTAIN TIME IN THE FUTURE.")мЗ" A LOAN DIFFERS FROM A PROMIS- SORY NOTE IN THAT IT IS DIVIDED INTO INSTALLMENT PAYMENTS."*A"З:З" THIS PROGRAM WILL HELP YOU COMPUTE THE AMOUNT OF YOUR PAY- MENT(S) FOR A PROMISSORY NOTE AND A LOAN.":З" HIT ANY KEY TO CONT";*[,IN$│ Т:Е IN$│"" з 300*л.Ю:З@169,"MAIN MENU":З:З" TYPE 'P' FOR PROMISARY NOTE":З" TYPE 'L' FOR LOAN"*╘/Q$│ Т:Е Q$│"P" ▒ Q$│"L" з 330 :Д 303*шJЕQ$│"P"з Бж 360+TЕQ$│"L" Бж 470:Д Бе302+^Бе 302+NhЮ:З:Зд6) Л(128); Л(181);"PROMISSORY NOTE"; Л(186); Л(128):З+▒rЗ" "; Л(181);"ENTER AMOUNT BORROWED"; Л(186):З" "; Л(149);"$210.65=210.65"; Л(154);:Й" $";P,|З:З" "; Л(181);"ENTER INTEREST RATE"; Л(186):З" "; Л(149);"9.31%=9.31"; Л(154);:Й " %";R,|ЖЗ:З" "; Л(181);"ENTER TIME OF PAYMENT"; Л(186):З" "; Л(149);"IN MONTHS"; Л(154);:Й " MOS";T:T│Tо12,дРR│Rо100:I│RнTнP:F│PлI:АPA│1е500:ЛPA,┴ЪЮ:З:З" PROMISSORY NOTE", дЗ:З Л(181);" TOTAL FACE VALUE IS:":З" ";:З═"$#####.##";F-:оЗ:З Л(181);"TOTAL INTEREST IS:":З" ";:З═"$#####.##";I-x╕З:З:З Л(181);" AMOUNT OF LOAN IS:":З" ";:З═"$#####.##";P-а╜АV│1е32:З@63лV,"$";:З@415лV,"$";:ЛV-┌┬З@486,"HIT ANY KEY FOR MENU";:I$│ Т:Е I$│""з 450 :Д Р.╠:ГINSTALLMENT ADD-ON*****************************************.Q╓Ю:З:З" INSTALLMENT LOAN WITH ADD-ON INTEREST".┤рЗ:З" "; Л(181);"ENTER AMOUNT BORROWED"; Л(186):З" "; Л(149);"$210.13=210.13"; Л(154);:Й" $";P.╛хБе510/ъЗ:З" "; Л(181);"ENTER TIME OF LOAN"; Л(186):З" "; Л(149);"1  Д&' :ГCOPYRIGHT (C) T&D SOFTWARE 1982&1╚1:└2&=B│1:F│1&Z(Бж 900:Бж50:Бж940:Бе1130&о2М A1(18), A2(14), A3(14),A4(14),B(14),C1(14),D(18),E(14), K(10), K1(10), K2(10)&╡<╚1'FЖ 160,100,172,88,172,112,184,76,184,100,184,126,196,62,196,86,196,112,196,136''PА V│1е10:Н K1(V):НK2(V):Л V'UZ╞"BM40,50C3ND2R2F2G2D2R6C4R2C3BL8D2NF6D6"'Еd╞"BM40,20C3ND2R2F2G2D2R6C4R2C3BL8D2ND6F4D2"'▓n╞"BM40,80C3ND2R2F2G2D2R6C4R2C3BL8D8R2U4"'ъx╞"BM40,110C3ND2R2F2G2D2R6C4R2C3BL8D2F4D2BL4BU4D2G2"(В╞"BM70,50C3ND2R2F2G2D2R4C4NF2C3BL4D2ND6F4D2"(WМ╞"BM100,50C3ND2R2F2G2D2R2F4C4F1C3BH5L2D2F4D2BL4BU4D2G2"(УЦ╞"BM130,50C3ND2R2F2G2G2D2D2BL2C4F2C3BR4NH2D2BL4BU4D2G2"(═а╞"BM161,50C3ND2R2F2G4L4C4BG2NG1C3BR6BU2D2F4D2BL8E4U2")Ек─(36,50)м(50,64),A1,G:─(36,20)м(50,34),A2,G:─(36,78)м(50,96),A3,G:─(36,110)м(50,124),A4,G:─(66,50)м(80,64),B,G:─(96,50)м(110,64),C1,G:─(122,50)м(140,64),D,G:─(152,50)м(166,64),E,G)Л┤Р)ў╛Z│0:╚1,1:╝:┐1,1:╞"BM64,80C2R190;BD32L190BR16C3BU7R2BU4R2BU4R2BU4BL4R2BU4BL4R2":╜(232,80,3):╜(232,112,3)*╚ЕP(1)│0з╜(236,96,4)*(╥Е P(2)│0з╜(240,92,4)*B▄Е P(3)│0з╜(240,100,4)*ZцЕP(4)│0з╜(244,88,4)*rЁЕP(5)│0з╜(244,96,4)*Л·ЕP(6)│0з╜(244,104,4)*гЕP(7)│0з╜(248,84,4)*╗ЕP(8)│0з╜(248,92,4)*╘ЕP(9)│0з╜(248,100,4)*ю"ЕP(10)│0з╜(248,108,4)*№,X│16:Y│90+6┼(X,Y)м(Xл14,Yл18),A3,╜+G@P5│ Ж(65280):ЕP5│126 ▒ P5│254 з 380 :Д 330+qJJ0│ Н(0):J1│ Н(1):ЕJ1▓5 ░ J1┤58 з 320+ОTЕ J1▓10 з Y│Yл2 :Д Y│Yм2+Э^ЕY┤70зY│70+мhЕY▓98зY│98+╢rБе310,_|Y│Yл2:АV│1 е 2:┼(X,Yм2)м(Xл14,Yл16),A3,╜:Бж 530:X│Xл2:┼(X,Y)м(Xл14,Yл14),A2,╜:Бж530:X│Xл2:┼(X,Y)м(Xл14,Yл14),A1,╜:Бж530:X│Xл2:┼(X,Y)м(Xл14,Yл14),A4,╜:Бж530:X│Xл2:ЛV,єЖ┼(X,Y)м(Xл14,Yл14),B,╜:Бж 530:X│Xл2:┼(X,Y)м(Xл14,Yл14),C1,╜:X│Xл4:Бж530:┼(Xм4,Y)м(Xл14,Yл14),D,╜:X│Xл2:Бж530:┼(X,Y)м(Xл14,Yл14),E,╜:X│Xл2:Бж530->Р┼(X,Y)м(Xл18,Yл14),D,╜:X│Xл2:Бж530:┼(X,Y)м(Xл14,Yл14),C1,╜:X│Xл2:Бж530-cЪC│5:X│Xл10:Y│Yл10:╜(X,Y,5):X│Xл2-sдX│Xл2:Y│YлZ-МоЕ  а(X,Y)┤▓5 з Бе490-ж╕╜(X,Y,4):╛(Xм2,YмZ,C)-╠┬J0│ Н(0):J1│ Н(1):ЕJ1▓58░Z│0зZ│.3-р╠ЕJ1┤5░Z│0зZ│м.3-ё╓ЕX▓230 з 510-√рБе420.gъЕ  а(X,Y)│6з ╛(Xм2,YмZ,C):А V│X е 232 й 2:╜(V,Y,4):╜(Vм2,Y,2):╔"T250V12O2C":ЛV:ЕY┤90зY│Yм4:Бе520:ДБе520.аЇЕ а(Xл2,Y)│7з╜(Xм2,Y,5):Бе450:Д ╜(X,Y,3):X│Xл2:Бе450.з■:Г.▓Бе 540.╥╔"T250O2V4F":АPA│1е40:ЛPA:Р.чY1│Y:╝:╚0:╝:┐1,1/&ЕP(1)│0зX4│160:Y4│100:Бж660/&0ЕP(2)│0зX4│172:Y4│88:Бж660/F:ЕP(3)│0зX4│172:Y4│112:Бж660/fDЕ P(4)│0зX4│184:Y4│76:Бж660/ЗNЕ P(5)│0зX4│184:Y4│100:Бж660/иXЕP(6)│0з X4│184:Y4│126:Бж660/╚bЕP(7)│0з X4│196:Y4│62:Бж660/чlЕP(8)│0зX4│196:Y4│86:Бж6600vЕP(9)│0зX4│196:Y4│112:Бж6600(АЕP(10)│0зX4│196:Y4│136:Бж66003КБе 6800fФ╗(X4,Y4)м(X4,Y4),╛:╞"BM+0,+0;R4U2NL4U2NL4L2":Р0оЮ╗(X,Y)м(X,Y),╛:╞"BM+0,+0R4E2NL8E2NL10U2NL10U2NL10H2NL6H2L4G4D4F4":Р0╫и╚0:┐1,1:X│148:Y│((Y1м80)н3)л56:Бж6700ч▓╞"C2":Бж6701╝X│Xл2:Y│YлZ:╞"C5":Бж6701,╞Е  а(Xл4,Yл4)┤▓0 з L│Xл4:R│Yл4:Бе8601U╨Е  а(Xл6,Yл4)┤▓0 з L│Xл6:R│Yл4:Бе8601~┌Е  а(Xл8,Yл2)┤▓0 з L│Xл8:R│Yл2:Бе8601ефЕ  а(Xл10,Y)┤▓0 з L│Xл10:R│Y:Бе8601╨юЕ  а(Xл10,Yм2)┤▓0 з L│Xл10:R│Yм2:Бе8601√°Е  а(Xл10,Yм4)┤▓0 з L│Xл10:R│Yм4:Бе8602&Е  а(Xл10,Yм6)┤▓0 з L│Xл10:R│Yм6:Бе8602Q Е  а(Xл10,Yм8)┤▓0 з L│Xл10:R│Yм8:Бе8602Е  а(Xл10,Yм10)┤▓0 з L│Xл10:R│Yм10:Бе 8602н Е  а(Xл10,Yм12)┤▓0 з L│Xл10:R│Yм12:Бе 8602╪*Е  а(Xл8,Yм14)┤▓0 з L│Xл8:R│Yм14:Бе86034Е  а(Xл6,Yм16)┤▓0 з L│Xл6:R│Yм16:Бе8603.>Е  а(Xл4,Yм16)┤▓0 з L│Xл4:R│Yм16:Бе8603@HЕ X▓204 з 8553KRБе 6903WWБж 11603АXЕ Z5▓2 ▒ SC▓9 з Бж 1290:Бж1140:Бе1903КYБе1903г\:ГFIND OUT WHICH PIN3┼aX1│Xл6:Y1│Yм6:RU│LмX1:RI│Y1мR3юbЕ  В(RI)┤3▒  В(RU)┤3зRI│RIн2:RU│RUн24$cЕ  В(RI)▓5 ▒  В(RU)▓5 з RI│RIо1.3:RU│RUо1.3:Бе8674DeX8│X1л(10нRU):Y8│Y1м(10нRI)4nf╗(X1,Y1)м(X8,Y8),╜:╗(X1,Y1)м(X8,Y8),╛4КgЕ Д(4)│1з RI│RIн4:Бе8664жhЕ Д(4)│1з RU│RUн3:Бе8664▒pБе 6904─ВRI│RIнм1:Бе8934╠ДЮ:╝5wОЗ@9,"tropical lanes":З:З" THIS GAME USES THE RIGHT JOYSTICK TO GUIDE THE BOWLER. PLAYERS (UP TO 4) TAKE TURNS BOWLING AND THE COMPUTER WILL KEEP SCORE."6JШЗ:З" FIRST YOU MOVE THE JOYSTICK UP AND DOWN TO CENTER YOUR BOWLER. WHEN READY, FIRE THE BUTTON. MOVE THE JOYSTICK UP OR DOWN TO INDICATE A CURVE. NOTE ONCE YOU START A CURVE YOU CANNOT STOP IT."6PвР6wмЗ" how many players (1-4)";:Й P6б╢Е P▓4 з З" SORRY, ONLY UP TO 4":Бе9406░└Е P┤1з P│17╩А V│1 е P:Ю(0):З@202,"player";:З@209,"#";V;:З@226,"what";:З@231,"are";:З@235,"your";:З@240,"inititals";7o╘Й A$(V):Е  З(A$(V))┤3 з З@326,"NOT ENOUGH LETTERS";:А PA│1 е 500:ЛPA:V│Vм1:Л V7щ▐Q$│ Р(A$(V),1,3):B$(V)│Q$:А X│1 е 3:W$│ Р(Q$,X,1):Y(X)│ К(W$):Y(X)│Y(X)л32:ЛX:A$(V)│"":АX│1е3:A$(V)│A$(V)л Л(Y(X)):ЛX7ёшЛ V8ЄЮ(0):А Q│ Ъ&':ГCOPYRIGHT (C) T&D SOFTWARE 1986&9 Т 359,57:┐0,1&u╛Ю:Х2048:╚0:└4:З@229,"READING DISK DIRECTORY";:Т&HFF22,8&о╚А X│512 е 541:НA$:ТX, Й("&H"лA$):ЛX:╣ Г0│512:F│ г(0)&╬╥МA$(68):Y│1:P1│1:PO│4:T│247&·▄А X│3е11:▀0,17,X,A$,B$:C$│A$л О(B$,127)'4цА N│0е7:A$(Y)│ Р(C$,Nн32л1,8)л"."л Р(C$,Nн32л9,3)л" "'[ЁR│ К(A$(Y)):Е R│255зA$(Y)│"":Бе300'Д·A$(Y)│A$(Y)л Л( Ж(1547лNн32)л48)л" "'┐Е  Ж(1548лNн32)│0 з A$(Y)│A$(Y)л"B" :Д A$(Y)│A$(Y)л"A"(Е R│0 ▒  П(A$(Y),1)┤▓"B" ▒ ( Р(A$(Y),10,3)┤▓"BAS" ░  Р(A$(Y),10,3)┤▓"BIN") з A$(Y)│"":Бе290(<A$(Y)│ О(A$(Y),12):Y│Yл1(F"Л N,X(q,P2│ Б((Yм1)о10):Е P2┤(Yм1)о10 зP2│P2л1(Т6Ю:Зд6)"COLOR DISK DIRECTORY"(ц@A$│ И(68мF)л" USED -"л И(F)л" FREE":Зд(32м З(A$))о2)A$:Зд10)"PAGE";P1;"OF";P2:З(°JH│(P1м1)н10л1)TА X│H е Hл9) ^Е A$(X)│"" зЗ:Бе370)/hЗд9);A$(X))5rЛ)C|Т&HFF22,8)ДЖАI│338 е 345:ТI,255:Л:K│POн32л8:Т529,&H80:A│ Г0(K):Т529,&H8B)ЩРE│(P1м1)н10лPOм3*ЪK$│ Т:ЕK$│"^" ░ PO│4 ░ P1▓1 з P1│P1м1:PO│13:A│ Г0(K):Бе310 :Д Е K$│"^" ░ PO▓4 з A│ Г0(K):PO│POм1:Бе390*yдЕ K$│ Л(10) ░ PO┤13 ░ E┤Yм1 з A│ Г0(K):PO│POл1:Бе390 :Д Е K$│ Л(10)░ P1┤P2 ░ PO│13 з P1│P1л1:PO│4:A│ Г0(K):Бе310*ОоЕ K$│ Л(13) з450*Ш╕Бе410*╛┬ Р(A$(E),9,1)│".":T$│ О(A$(E),12)*ъ╠Z$│ Т : Ю : З @233,"LOADING "л О(T$,8);+╓Е  Ю(A$(E),"BIN") з Т 359,126:╙MT$:в+:рЕ  Ю(A$(E),"BAS") з Т359,126:╙T$,R+DъБе410+ЩЇЖ BD,B3,ED,C3,4,0,1F,1,C3,0,E,ED,8D,0,D,A6,84,8B,40,A7,80,AC,8D,0,3,26,F4,39,0,0┬ Р(A$(E),9,1)│".":T$│ О(A$(E),12)*ъ╠Z$│ Т : Ю : З @233,"LOADING "л О(T$,8);+╓Е  Ю(A$(E),"BIN"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ф&':ГCOPYRIGHT (C) T&D SOFTWARE 1982&D ╝:└4:╚3:╝:М A(42), B(42)&J╝&█Z│1:╞"BM100,40;S3C2R42U20L4H8G2D16L20U16H2G8ND20BR17C2NL6U14NG6R5NF6D14NR6":├(110,38),2,2:├(116,30),3,2:╞"BM122,28C4E3F3G3H3BU2BL10L6D3R6U3"&х(Бе 60'2╞"BM92,40;S4R40U26L40D26"'6<─(90,14)м(132,38),A,G:╝:─(180,40)м(212,64),B,G'MF╞"S2C3":Бж80:Бе110'fP╝:┐1,1:C1│0:Z│1:X│84'═Z╞"C3":А V│1 е 12:╗(0,Vн16)м(3,Vн15),╛:╞"BM+0,+0;S4E1F1NR1G1H1":╞"BM+248,+0;E1F1NR2G1H1":ЛV:╞"S2":Р'╫d╞"S2"'▐n:Г('x╞"C3":A$│"HELLO EVERYONE.":X│62:Y│20:Бж260:АPA│1е400:ЛPA:Бж740:╞"C4"(╩ВA$│" WE HERE AT T AND D ARE PROUD TO SAY THAT WE DO NOT MAKE MISTACES.":X│30:Y│Yл20:Бж260:Бж740:╞"C3":АPA│1е200:ЛPA:╗(102,52)м(168,56),╜:╗(102,56)м(168,52),╜)qМБж760:╞"C4":Y│Yл6:X│94:A$│"MISTACKES.":Бж260:Бж740:АPA│1е200:ЛPA:╞"C3":╗(102,56)м(170,62),╜:╗(102,62)м(170,56),╜:Бж760:╞"C4":Y│Yл6:X│94:A$│"MISTAKES.":Бж260:Бж740)╫ЦАPA│1е1000:ЛPA:╞"C2":A$│"BUT SERIOUSLY, SOMETIMES THINGS HERE GET TURNED":Y│Yл20:X│22:Бж260:Бж740*6аA$│"UPSIDE":Y│Yл10:X│28:╞"A2":Бж260:H│1:Бж740:H│0:X│Xм2:A$│"DOWN.":╞"A0":Y│Yм4:Бж260:Бж740+ кАPA│1е1000:ЛPA:╞"A0C4":Y│Yл20:X│22:A$│"THIS PROGRAM PROVIDES A CATALOG OF OUR PREVIOUS ISSUES. IT WILL RUN AUTO-MATICLY BUT IF YOU PRESS A NUMBER BETWEEN ONE AND FIVE IT WILL SHOW THAT ISSUE.":Бж260:Бж740+пАPA│1е1000:ЛPA+P┤╝:Бж90:V│0:Z│1:C1│0:Y│0:N│Nл1:X│74:ЕN▓6 з О10, ╛Е N│1 з F$│"OJULY 1982/O1. COVER 1/G2. RACETRACK/G3. HANGMAN/O4. MUSIC ALBUM/E5. LIFE EXPECTANCY/E6. WORD TESTS/G7. KILLER MANSION/E8. BARTENDER/E9. CALENDAR/G10. ROBOT WAR/",т╚Е N│2 з F$│"OAUGUST 1982/O1. UFO COVER ONE/E2. BIORHYTHM/G3. BOMBARDMENT/G4. BLACK JACK/E5. COST OF LIVING/G6. FRENZY/E7. BUSINESS LETTER/G8. QUICK THINK/O9. QUEST INSTRUCTIONS/G10. QUEST FOR LENORE/"-У╥Е N│3 з F$│"OSEPTEMBER 1982/O1. UFO COVER TWO/G2. BASKETBALL/G3. CHUCKLUCK/G4. SLOT MACHINE/E5. ALPHABETIZER/E6. NFL PREDICTIONS/G7. FLAG CAPTURE/G8. ROBOT BOMBER/".N▄Е N│4 з F$│"OOCTOBER 1982/O1. UFO RESCUE/G2. TANK BATTLE/G3. DRIVEWAY/G4. SOUNDS/G5. BALLOON DROP/G6. MIND BOGGLE/G7. COCO-TER. ADV./E8. CALORIE COUNTER/O9. JACK-O-LANTERN/"/*сЕ N│5 з F$│"ONOVEMBER 1982/O1. CATALOG COVER/G2. BOWLING/E3. PROGRAM INVENTORY/E4. PROMISSORY-LOANS/E5. CHECKBOOK BALANCER/E6. TRIGONOMETRY TUTOR/G7. CONVOY/G8. BAG                                                                                                                                                                                                                                                                                    ╞ ╟┼├╔╞"#┬%&╚(╚*+╟-╞                      ING BASЗPROGINV BAS$WPROMLOANBASмCHECKBALBAS'°TRIGTUT BASVCONVOY BAS)HDIR BAS ЭCATCOVERBAS!ЧBOWLING BASЗPROGINV BAS$WPROMLOANBASмCHECKBALBAS'°TRIGTUT BASVCONVOY BAS)HBAG-IT BASSPECTRA BAS,3CONBELT BINC                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                -IT/O9. SPECTRA SOUND/G10. CONVEYOR BELT/"/>уЕ N│6 з Бе 1000/HцБе770/SЁБе 240/a·X│30:Y│12/РА P│1 е  З(A$):I$│ Р(A$,P,1):I│ К(I$)м43 /╡X│Xл8:Е X▓226 з Бж750:X│30:Y│Yл6/т┼(Xм22,Yл6)м(Xл20,Yл30),A,╜:╔"T250V4O1C"/∙IN$│ Т:ЕIN$│""з2900BЕ IN$│"1" ▒ IN$│"2" ▒ IN$│"3" ▒ IN$│"4" ▒ IN$│"5" зN│ Й(IN$)м1:Бе1800S"Е I│м11зI│481,╗(X,Y)м(X,Y),╛:И I Бж 330,340,350,1,360,370,380,390,400,410,420,430,440,450,460,1,1,1,1,1,1,470,480,490,500,510,520,530,540,550,560,570,580,590,600,610,620,630,640,650,660,670,680,690,700,710,720,730196Е I┤26 ░ Z│2 з ╔"O1C"1C@Л P:Р1aJ╞"BM+2,+6;ND2R2D2NL2D2":Р1uT╞"BM+2,+4;R6":Р1П^╞"BM+2,+6;D2R2U2L2":Р1йh╞"BM+0,+0;R8D8L8U8":Р1╜r╞"BM+4,+0;D8":Р1┘|╞"BM+0,+0;R8D4L8D4R8":Р1ЎЖ╞"BM+0,+0;R8D4NL6D4L8":Р2Р╞"BM+0,+0;D4R8NU4D4":Р2.Ъ╞"BM+0,+0;NR8D4R8D4L8":Р2Kд╞"BM+0,+0;NR8D8R8U4L8":Р2aо╞"BM+0,+0;R8D8":Р2Б╕╞"BM+0,+0;ND8R8D4NL8D4L8":Р2Я┬╞"BM+0,+0;ND4R8D4NL4D4":Р2╝╠╞"BM+0,+0;ND2R8D4L4D2":Р2р╓╞"BM+0,+0;BR4ND4NF4G4D4BR8U4":Р3р╞"BM+0,+0;ND8R8D4NL8D4L8":Р3ъ╞"BM+0,+0;NR8D8R8":Р38Ї╞"BM+0,+0;ND8R6F2D5G2L6":Р3V■╞"BM+0,+0;NR8D4NR6D4R8":Р3r╞"BM+0,+0;NR8D4NR6D4":Р3П╞"BM+0,+0;NR8D8R8U4L3":Р3м╞"BM+0,+0;D4ND4R8U4D8":Р3└&╞"BM+4,+0;D8":Р3█0╞"BM+0,+0;BR6D8L4U2":Р3∙:╞"BM+0,+0;D8U4R4NE4NF4":Р4D╞"BM+0,+0;D8R8":Р::ГL41N╞"BM+0,+0;ND8R4ND3R4D8":Р4JX╞"BM+0,+0;ND8R8D8":Р4db╞"BM+0,+0;D8R8U8L8":Р4l╞"BM+0,+0;ND8R8D4L8":Р4гv╞"BM+0,+0;R8D8NH3NF2L8U8":Р::ГQ4─А╞"BM+0,+0;R8D4L4NF4L4D4U8":Р4сК╞"BM+0,+0;NR8D4R8D4L8":Р4·Ф╞"BM+0,+0;R4ND8R4":Р5Ю╞"BM+0,+0;D8R8U8":Р5,и╞"BM+0,+0;D4F4E4U4":Р5I▓╞"BM+0,+0;D8R4NU3R4U8":Р5b╝╞"BM+0,+0;F8BL8E8":Р5{╞╞"BM+0,+0;F4ND4E4":Р5У╨╞"BM+0,+0;R8G8R8":Р5б┌Р::ГSPACE5лфX│Xл86ю┼(Xм26,Yл6)м(Xл14,Yл30),B,╜:ЕH│0з╔"L60V30O4EEEV25EEEV20EEEV15EEEV10EEEV5EEEV1EEEEE":Р6°АPA│1е 400:ЛPA:Р6]А V│Z е  З(F$):Е  Р(F$,V,1)│"/" зZ$│ Р(F$,Z,VмZ):Бе 780 :Д Л V6У C$│ Р(Z$,1,1):ЕC$│"G"з╞"C2":ДЕC$│"E"з╞"C3":Д╞"C4"6╨A$│ Р(Z$,2,Vм(Zл1)):Y│10лC1н10:Бж260:Бж740:C1│C1л1:Z│Vл17& ЕC1│1зA$│"COCO-CASSETTE NO."л И(N):X│48:Y│10лC1н10:Бж260:Бж740:C1│C1л2:X│48:ДX│487]*ЕVл З(Z$)м2▓ З(F$)зN│Nл1:АPA│1е1000:ЛPA:Бж80:Бе1907g4Бе7707q>Бе8307╥ш╞"C3":X│38:Y│40:A$│"REPRODUCTION OF ANY OF THE FOLLOWING PROGRAMS ISPROHIBITED.":Бж260:Бж7408}ЄA$│"T AND D SOFTWARE SHALLHAVE NO LIABILITY OR RE- SPONSIBILITY TO CUSTOMER WITH RESPECT TO ERRORS, LOSS OR DAMAGES CAUSED BYTHESE PROGRAMS.":X│46:Y│Yл12:Бж260:Бж7408╡№A$│"T AND D SOFTWARE":Y│Yл18:╞"C4":X│54:Бж260:Бж7408хA$│"P.O. BOX 256-C":X│62:Y│Yл10:Бж260:Бж7409A$│"HOLLAND MI. 49423":X│54:Y│Yл10:Бж260:Бж7409MA$│"COCOCASSETTE NO. 5 ":X│46:Y│Yл10:Бж260:Бж7409|$A$│"NOVEMBER 1982":X│62:Y│Yл10:Бж260:Бж7409У.АPA│1е1000:ЛPA:О10":Y│Yл18:╞"C4":X│54:Бж260:Бж7408хA$│"P.O. BOX 256-C":X│62:Y│Yл10:Бж260:Бж7409A$│"HOLLAND MI. 49423                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 T&( :ГCOPYRIGHT (C) T&D SOFTWARE 1982&A:Г PROGINV/BAS V1.0&\:Г BY: GERRY SCHECHTER&z(:Г 75 MIDLAND TERRACE&Ч2:Г YONKERS, NY 10704&ж<╚0:└1:Ю:┌И&╧FЕ У▓15000зХ13600:MR│450:ДХ2900:MR│90&ЁPМP$(MR),L$(MR),R$(MR):Бж1050'ZЮ:ЗPI$;:З" -=MAIN MENU=-":З'JdЗ" 1. ADD RECORD":З" 2. CHANGE/DELETE RECORD"'rnЗ" 3. SORT FILE":З" 4. BROWSE FILE"'ЭxЗ" 5. PRINT FILE":З" 6. END PROGRAM":З'╜ВЗ" ENTER SELECTION (1-6)":З(МЗ" FILE CONTAINS";LOм1;"RECORDS":ЕOD$┤▓""зЗ" LAST UPDATED ON ";OD$;(ЦI$│ Т:ЕI$│""Бе150(8аЕI$│"1"з200:ДЕI$│"2"з330(UкЕI$│"3"з550:ДЕI$│"4"з710(s┤ЕI$│"5"з850:ДЕI$│"6"з1510(Г╛а100,5:Бе90(л╚Ю:ЗPI$;:З" -=ADD RECORD=-":З(▐╥Бж1010:З@481,"ENTER 'QQ' AS FILENAME TO QUIT";)*▄З@387,"FILE CONTAINS";LOм1;"RECORDS";:З@420,"CAPACITY IS";MR;"RECORDS";)HцЗ@170,"";:ЙPX$:З@170," ";)lЁЕ З(PX$)┤▓2▒ О(PX$,2)┤▓"QQ"з260)А·Ъ#1:Бж1460:Бе90)▒Е З(PX$)┤1▒ З(PX$)▓12зЗ@172," ":а100,5:Бе230)╧З@234,"";:ЙLX$:З@234," ";*LЕ З(LX$)┤1▒ З(LX$)▓3▒( О(LX$,1)┤▓"T"░ О(LX$,1)┤▓"D"░ О(LX$,1)┤▓"C")▒ П(LX$,2)┤"00"▒ П(LX$,2)▓"99"зЗ@236," ":а100,5:Бе270*j"З@297,"";:ЙRX$:З@297," ";*С,Е З(RX$)▓15зЗ@299," ":а100,5:Бе290*н6╘P$│PX$:╘L$│LX$:╘R$│RX$*т@LO│LOл1:┼#1,LO:MS$│"":ЕLOл1▓MR за100,5:Бе90:Д210+!JЮ:ЗPI$;:З" -=CHANGE/DELETE RECORD=-":З:X│2:CF$│"":DF$│""+RTБж1010:З@482,"fWD * bWD * cHG * dEL * mENU";+Ф^─#1,X:З@171,P$:З@235,L$:З@298,R$:З@386,"RECORD";Xм1;"OF";LOм1+кhI$│ Т:ЕI$│""Бе360+╤rЕI$│"F"зЕXл1┤│LO зX│Xл1:Бе350:Д360+ї|ЕI$│"B"зЕXм1▓1зX│Xм1:Бе350:Д360,*ЖЕI$│"D"з╘R$│"deleted":┼#1,X:DF$│"Y":MS$│"":Бе340,LРЕI$│"C"з410:ДЕI$│"M"з460:Д360,НЪЗ@170,"";:ЙPX$:З@170," ";:Е З(PX$)┤1▒ З(PX$)▓12за100,5:Бе410,═дЗ@234,"";:ЙLX$:З@234," ";:Е З(LX$)┤1▒ З(LX$)▓3за100,5:Бе420-оЗ@297,"";:ЙRX$:З@297," ";:Е З(RX$)▓15за100,5:Бе430- ╕╘P$│PX$:╘L$│LX$:╘R$│RX$-?┬┼#1,X:CF$│"Y":MS$│"":Бе340-V╠ЕCF$│""░DF$│""Бе90-q╓Ъ#1:Бж1460:ЕDF$│""Бе90-орX1│1:Щ"D",#2,"PROGINV/TMP",30:╨#2,12 зPZ$,3 зLZ$,15 зRZ$-└ъАX│1еLO:─#1,X-▀ЇЕR$│"deleted "Бе520. ■╘PZ$│P$:╘LZ$│L$:╘RZ$│R$:┼#2,X1:X1│X1л1.Л:Ъ#2:Ъ#1.H╥"PROGINV/DAT":╓"PROGINV/TMP"е"PROGINV/DAT".XБж1460:Бе90.А&Ю:ЗPI$;:З" -=SORT FILE=-":З.┤0З" 1. SORT BY FILENAME":З" 2. SORT BY LOCATION".т:З" 3. SORT BY REMARKS":З" 4. MAIN MENU":З/DЗ" ENTER SELECTION (1-4)"/NI$│ Т:ЕI$│""Бе590/BXЕI$│"4"з90:ДЕI$┤"1"▒I$▓"3"за100,5:Бе550/dbЕMS$┤▓""зMS$│I$:Бе640:ДMS$│I$/ЙlЗ@353,"READING FILE INTO MEMORY"/╕vАX│2еLO:─#1,X:P$(X)│P$:L$(X)│L$:R$(X)│R$:Л0 АЗ@353,"SORTING FILE BY ";:ЕMS$│"1"зЗ"FILENAME":ДЕMS$│"2"зЗ"LOCATION":ДЗ"REMARKS"0'КSW│0:АX│2еLOм1:X1│Xл10KФЕI$│"1"зЕP$(X)┤│P$(X1)з700:Д6900oЮЕI$│"2"зЕL$(X)┤│L$(X1)з700:Д6900ОиЕI$│"3"зЕR$(X)┤│R$(X1)з7001 ▓P$(0)│P$(X):L$(0)│L$(X):R$(0)│R$(X):P$(X)│P$(X1):L$(X)│L$(X1):R$(X)│R$(X1):P$(X1)│P$(0):L$(X1)│L$(0):R$(X1)│R$(0):SW│11&╝Л:ЕSW│1з650:Да100,5:Бе901O╞Ю:ЗPI$;:З" -=BROWSE FILE=-":З1Ш╨З" 1. BROWSE FROM MEMORY":З" 2. BROWSE FROM DISK":З" 3. MAIN MENU":З1┐┌З" ENTER SELECTION (1-3)":З:Бж10201╒фI$│ Т:ЕI$│""Бе7401ўюЕ(I$│"1"░MS$┤▓"")▒I$│"2"Бе7702°ЕI$│"3"з90:Да100,5:Бе7102HЮ:ЗPI$;:З" -=BROWSE FILE=-":З:X│2:Бж10102Р З@387,"RECORD";Xм1;"OF";LOм1:З@481,"* fORWARD * bACKWARD * mENU *";2└ЕI$│"1"зPY$│P$(X):LY$│L$(X):RY$│R$(X):Бе8102ч ЕI$│"2"з─#1,X:PY$│P$:LY$│L$:RY$│R$3 *З@171,PY$:З@235,LY$:З@298,RY$3/4Е Ж(344)│254░Xл1┤│LO зX│Xл1:Бе7803R>Е Ж(340)│254░Xм1▓1зX│Xм1:Бе7803sHЕ Ж(343)│253зI$│ Т:Бе90:Д8203ЫRЮ:ЗPI$;:З" -=PRINT FILE=-":З3т\З" 1. PRINT FROM MEMORY":З" 2. PRINT FROM DISK":З" 3. MAIN MENU":З4 fЗ" ENTER SELECTION (1-3)":З:Бж10204pI$│ Т:ЕI$│""Бе8804AzЕ(I$│"1"░MS$┤▓"")▒I$│"2"Бе9104^ДЕI$│"3"з90:Да100,5:Бе8504pОЮ:ЗPI$:II$│I$4лШЗ" >LINE UP PAPER TO TOP OF PAGE<":З:LC│63:PC│0:Бж14904цвЮ:ЗPI$:З" PRINTING FROM ";:ЕII$│"1"зЗ"MEMORY":ДЗ"DISK"5мАX│2еLO:З@161,"RECORD #";Xм1;:ЕLC┤63Бе9805-╢ЕPC┤▓0зАZ│1е3:З#м2:Л5u└PC│PCл1:З#м2,"PAGE:";PC,"-= PROGRAM INVENTORY =-","DATE: ";TD$:З#м25й╩З#м2," FILENAME","LOCATION","REMARKS":З#м2:LC│45█╘ЕII$│"1"зPY$│P$(X):LY$│L$(X):RY$│R$(X):Бе10006▐ЕII$│"2"з─#1,X:PY$│P$:LY$│L$:RY$│R$68шЗ#м2," ";PY$," ";LY$,RY$:LC│LCл1:Л:а100,5:Бе906sЄЗ@161,"FILENAME:":З@225,"LOCATION:":З@289,"REMARKS:":Р6Ы№ЕMS$│""зЗ" file is not in memory":Р6ьЗ" MEMORY IS IN ";:ЕMS$│"1"зЗ"FILENAME";:ДЕMS$│"2"зЗ"LOCATION";:ДЗ"REMARKS";7З" SEQUENCE";:Р7\PI$│ б(3,128)л"program"л Л(128)л"inventory"л Л(128)л"utility"л б(4,128)л б(32,131):ЗPI$7Г$З" DO YOU NEED INSTRUCTIONS (Y/N)"7Ъ.I$│ Т:ЕI$│""Бе10707м8ЕI$│"N"Бе13307╕BЮ:ЗPI$;87LЗ" THIS PROGRAM WILL ALLOW YOU TO MAINTAIN A DISK FILE CONTAINING THE FOLLOWING INFORMATION ABOUT ALL OF YOUR PROGRAMS;":З8VVЗ" FILE NAME","- 12 BYTES"8t`З" LOCATION","- 3 BYTES"8УjЗ" REMARKS","- 15 BYTES":З8ЁtЗ" WITH IT YOU CAN ADD, CHANGE, ORDELETE RECORDS, AND SORT, PRINT,OR BROWSE THE FILE.":З9~Бж1490:Ю:ЗPI$93ИFD$│" -=FIELD DEFINITIONS=- ":ЗFD$9HТЗ" FILE NAME:":З9├ЬЗ" TAPE FILES - UP TO 8 BYTES.":З:З" DISK FILES - UP TO 8 BYTES FOR NAME, A '/', AND UP TO 3 BYTES FOR EXTENSION.":З9┌жБж1490:Ю:ЗPI$:ЗFD$9ю░З" LOCATION:":З:з║З" 3 BYTES, STARTING WITH 'T' FOR TAPE FILES, 'D' FOR DISK FILES, OR 'C' FOR COCO-CASSETTE FILES, FOLLOWED BY A NUMBER FROM 00-99 INDICATING WHICH TAPE OR DISK THE FILE IS ON.":З:╛─Бж1490:Ю:ЗPI$:ЗFD$:╤╬З" REMARKS:":З;*╪З" UP TO 15 BYTES, USED TO FURTHERIDENTIFY THE PROGRAM IN ANY MANNER DESIRED.":З;<тБж1490:Ю:ЗPI$;hьUP$│" -=USING THE PROGRAM=-":ЗUP$:З;╨ЎЗ"1. PROGRAM WILL FIRST REQUEST TODAY'S DATE. THIS DATE WILL BE LISTED ON ALL PRINTOUTS.":З<З"2. TO GET THE FILE INTO MEMORY, THE FILE MUST BE SORTED.":З<. Бж1490:Ю:ЗPI$:ЗUP$:З<иЗ"3. IF YOU HAVE MORE THAN 1 DISK USE THE 'DRIVE' COMMAND TO SELECT THE DESIRED DRIVE # FOR THE FILE.":З=З"4. DO NOT SWITCH DISKS OR 'BREAK' THE PROGRAM WHILE IT IS RUNNING.":З=(FD$│"":UP$│"":Бж1490=$2Ю:ЗPI$=W<З" >> INSERT DISK IN DRIVE #"; Ж(&H95A);"<<":З=ДFЙ" ENTER TODAY'S DATE (MM/DD/YY) ";TD$:З=▒PM$│ О(TD$,2):D$│ Р(TD$,4,2):Y$│ П(TD$,2)=╘ZЕM$┤"01"▒M$▓"12"за100,5:Бе1330=ўdЕD$┤"01"▒D$▓"31"за100,5:Бе1330>nЕY$┤"82"▒Y$▓"89"за100,5:Бе1330>;xЗ" IS ";TD$;" CORRECT (Y/N)">RВI$│ Т:ЕI$│""Бе1410>eМЕI$┤▓"Y"Бе1330>ГЦБж1460:ЕLO▓1з─#1,1:OD$│P$>Яа╘P$│TD$:╘L$│" ":╘R$│" ">┤к┼#1,1:LO│ е(1):Р>╤┤Щ"D",#1,"PROGINV/DAT",30>Ў╛╨#1, 12  з P$, 3  з L$, 15  з R$?╚LO│ е(1):Р?)╥З" HIT TO CONTINUE";?B▄I$│ Т:ЕI$│""з1500:ДР?SцЪ#1:Ю:Х200:КМЕI$┤▓"Y"Бе1330>ГЦБж1460:ЕLO▓1з─#1,1:OD$│P$>Яа╘P$│TD$:╘L$│" ":╘R$│" ">┤к┼#1,1:LO│ е(1):Р>╤┤Щ"D",#1,"PROGINV/DAT",30>Ў╛╨#1, 12  з P$, 3  з L$, 15  з R$?╚LO│                                                                                                                                                                                                                                                                  ї&':ГCOPYRIGHT (C) T&D SOFTWARE 1982&0 Ю(0)&ЫАV│1е8:C$│C$л Л(188):W$│ Л(204)лW$:L$│ Л(172)лL$:ЛV:АV│1е32:B$│B$л Л(128):ЛV:АV│1е4:SB$│SB$л Л(128):ЛV&еБе470&№(З@130,"then";:З@135,"this";:З@140,"program";:З@148,"is";:З@151,"for";:З@155,"you";'2АPA│1е1000:ЛPA'╡<Ю(0):З@160," SO YOU JUST GOT YOUR CHECKING ACCOUNT STATEMENT FROM THE BANK. FOLLOW THESE EASY STEPS AND BALANCING YOUR CHECKBOOK WILL BE NO PROBLEM."'╫FЗ@454,"HIT ANY KEY TO START";(oPЗ@44,"BALANCE";:З@78,"THE";:З@107,"CHECKBOOK";:АPA│1е30:ЛPA:I$│ Т:Е I$┤▓"" з 90 :Д З@44,"balance";:З@78,"the";:З@107,"checkbook";:АPA│1е30:ЛPA:Бе80(лZЮ(0):З@33,"balance";:З@41,"from";:З@46,"bank";:З@84,L$;(ЄdЗ@106,"+";:З@161,"deposits";:З@170,"not";:З@174,"shown";:З@212,L$;)nЗ@234,"=";:З@298,"subtotal";:З@340,L$;)┐xЗ@385,"enter";:З@391,"the";:З@395,"balance";:З@403,"given";:З@409,"to";:З@412,"you";:З@420,"from";:З@425,"the";:З@429,"bank";:З@434,"statement";:З@466,"";:ЙA* В╔"T4V4O4C":З@51,"";:З═"$#####.##";A:З@60,SB$;:АV│1е3:З@352л(32нV),B$;:ЛV*мМA$│"ENTER SEPARATELY YOUR RECENT DEPOSITS MADE WHICH ARE NOT ON THE BANK STATEMENT ":X│353:Бж630:З@449,"enter";:З@455,"00";:З@458,"when";:З@463,"done";*┤ЦD│1*╨аЗ@439,"dep";:З@443,"#";+dкЗ@445,D;:З@470,"";:ЙZ:B│BлZ:З@179,SB$;:З@193,SB$;:З@179,"";:З═"$#####.##";B:З@188,SB$;:З@471,B$;:З@475,SB$;:╔"T4L4O4C":Е Z│0з180 :Д D│Dл1:Бе160+У┤C│BлA:З@307,"";:З═"$#####.##";C:З@316,SB$;+░╛АV│1е4:З@320лVн32,B$;:ЛV+┌╚A$│"HIT ANY KEY TO CONT ":X│486:Бж630+°╥I$│ Т:Е I$│""з 210 :Д 220,▄Ю(0),╜цX│39:A$│"TOTAL DEBITS ":Бж630:З@86,L$;:З@53,"";:З═"$#####.##";C:З@62,SB$;:З@108,"-";:X│167:A$│"TOTAL CREDITS ":З@214,C$;:Бж630:З@236,"=";:X│291:A$│"CHECKBOOK BALANCE ":Бж630:З@342,W$;-0ЁD│0:A$│"ENTER IN SEPARATELY ALL THE OUTSTANDING CHECKS ":X│354:Бж630:АPA│1е700:ЛPA:З@353,B$;:З@384,B$;-█·A$│"THESE ARE CHECKS WHICH ARE NOT SHOWN ON THE BANK STATEMENT BUT ARE RECORDED IN YOUR BOOK ":X│353:Бж630:З@449,"enter";:З@455,"00";:З@458,"when";:З@463,"done";.=З@469,B$;:З@470,"";:ЙQ:D│DлQ:╔"T4L4O4C":З@181,"";:З═"$#####.##";D:З@190,SB$;:ЕQ│0з 270 :Д 260/ АV│1е4:З@Vн32л320,B$;:ЛV:ЕK▓0з280:ДA$│"NOW ENTER ANY SERVICE CHARGES OR DEBIT MEMOS NOT ENTERED IN YOUR CHECK BOOK ":X│353:Бж 630:З@449,"enter";:З@455,"00";:З@458,"when";:З@463,"done";:K│10:Бе260/:Г/░"E│CмD:З@309,"";:З═"$#####.##";E:З@318,SB$;:АV│1е3:З@320л32нV,B$;:ЛV:A$│"YOUR CHECKBOOK BALANCE SHOULD BE ":X│385:Бж630:З═"$#####.##";E:З@438,B$;/┌,A$│"HIT ANY KEY TO CONT ":X│485:Бж630/Є6I$│ Т:Е I$│"" з 3100К@Ю(0):З@10,"";:З═"$#####.##";E:З@19,B$;:A$│" IF THIS BALANCE DOES NOT CHECK WITH THE BALANCE IN YOUR BOOK THEN CHECK THE FOLLOWING ":X│64:Бж6301JЗ@257,"1";:A$│"HAVE YOU CORRECTED ANY DIFFERENCES FROM LAST MONTHS STATEMENT ":X│260:Бж630:З"?";:Бж 440:Бж4301▒TЗ@257,"2";:X│260:A$│"ARE THE AMOUNTS OF YOUR DEPOSITS ENTERED IN THE BOOK THE SAME AS THOSE APPEARING ON THE BANK STATEMENT ":Бж630:З"?";:Бж440:Бж4302W^З@257,"3";:A$│"ARE THE AMOUNTS OF CHECKS ENTERED IN YOUR BOOK THE SAME AS THOSE APPEARING ON THE BANK STATEMENT ":X│260:Бж630:З"?";:Бж440:Бж4302╕hЗ@257,"4";:X│260:A$│"HAVE ALL OUTSTANDING CHECKS BEEN RECORDED ":Бж630:З"?";:Бж440:Бж4303brЗ@257,"5";:A$│"HAVE ALL CHECKS SEVICE CHARGES AND AUTOMATIC PAYMENTS BEEN DEDUCTED FROM YOUR CHECKBOOK BALANCE ":X│260:Бж630:З"?";:Бж440:Бж4303ё|З@257,"6";:A$│"HAVE YOU CARRIED THE CORRECT BALANCE FORWARD WHEN WRITING CHECKS OR ENTERING DEPOSITS":X│260:Бж630:Бж4404PЖЮ(0):A$│"PLEASE REPORT ANY DIFFERENCES TO THE BANK WITHIN ":X│162:Бж630:З"15";:З"days";4ЗРА PA│1е1000:ЛPA:A$│"RUN AGAIN ":X│360:Бж630:З"?";:4еЪI$│ Т:Е I$│""з 410 :Д 4204╜дЕ I$│"Y"з О 10 :Д К4чоАV│1е 4:З@224лVн32,B$;:ЛV:З@448,B$;:Р5╕A$│"HIT ANY KEY FOR MORE ":X│454:Бж6305.┬I$│ Т:Е I$│""з 450 :Д Р59╠Бе 4605|╓З@69,"do";:З@72,"your";:З@77,"checks";:З@84,"do";:З@87,"this";5ОрА L│1 е400:ЛL5ЪъАZ│1е135мЇА V│18лZ е 315║■Ь(31,V,3)5╨Е V▓19з Э(31,Vм1)5╪Л V5ыА A│1 е 45:Л A6&А V│31 е 18лZ йм160Ь(31,V,3)6&:Е V┤31 з Э(31,Vл1)6.DЛ V6>NА A│1е40:ЛA6EXЛZ6WbАPA│1е500:ЛPA6`lБе406│vА V│1е  З(A$):Z$│ Р(A$,V,1):Е Z$│" " з З@X, Л(128);:X│Xл1:ЕVл2▓ З(A$) з Р :ДЛV6юАZ│ К(Z$):Z│Zл32:З@X, Л(Z);:X│Xл1:ЕVл2▓ З(A$) з Р :Д ЛV6ЇКРе 18лZ й                                                                                                                                                                                                                                                                 E&│Х1200:МOH(30,1),TA$(30),L$(17),S$(10),P$(9),DS$(9):P│м32:X│ Д(м Я)::ГCOPYRIGHT (C) T&D SOFTWARE 1982 *CONVOY* BY GEOFF WELLS*21-12 EAST AVE N*HAMILTON*ONTARIO*CANADA*L8L 5H2'L$(6)│"WELCOME":L$(8)│"T0":L$(11)│"CONVOY":I$│"U15K04J04E06E08E11N11E11N11Z06Z08Z11J00U00":Бж114';S$(10)│"*ABCDEFGHIJKLMNOPQRST"'FАX│0е9'wS$(X)│ Л(Xл48)л б(20, Л(175))л б(11, Л(128))'МP$(X)│ б(21,"*")'УЛX'гЗ@0,S$(10);'оБж93:П'║ АA│1е12'╦ НL$(12),N$,N'Ё L$(12)│"BOW POSITION OF "лL$(12)( L$(13)│ Л(C):L$(14)│"ENTER ROW 0-9"(6 L$(15)│"ENTER COLUMN A-T"(aI$│"M12M13M14C15I14M14Q01M15I15M15Q02"(kБж114(МV│ Й(L$(14)):H│ К(L$(15))м63(шЕ  Р(S$(V),H,1)│ Л(175) з  Р(S$(V),H,1)│N$ :Д L$(12)│"POSITION OCCUPIED-TRY AGAIN":Бе12(¤ Р(P$(V),H,1)│N$)Бж93)Е A▓8 з Л A:Бе 33)AL$(12)│ Л(C):L$(13)│"USE ARROWS")WL$(14)│"TO PLACE")qL$(15)│"BODY OF SHIP")ЗI$│"R12S13S14S15")СБж114)иD$│ Т:Е D$│"" з 26)╞Е D$│ Л(94) ░ VмN│▓0 з 84)фЕ D$│ Л(10) ░ VлN│┤9 з 86*Е D$│ Л(8) ░ HмN│▓2 з 88*Е D$│ Л(9) ░ HлN│┤21 з 90 :Д L$(13)│"YOUR SHIP":L$(14)│"IS OUT OF":L$(15)│"OCEAN":I$│"R13R14R15D10Y13Y14Y15":Бж 114:Бе 21*ЙБж 93*С Л A*о!АX│0 е 9:DS$(X)│S$(X):ЛX+"L$(12)│"IT'S MY TURN":L$(13)│"TO PLACE":L$(14)│"A CONVOY":I$│"M12M13M14":Бж114+#П+$А A│1 е 12+)%I$│"X15":Бж114+;&Н L$(15),N$,N+N'I$│"P15":Бж114+p(V│ Д(10)м1:H│ Д(20)л1:D│ Д(4)+К)Е D│1 ░ VмNм1│▓0 з 76+д*Е D│2 ░ VлNл1│┤9 з 78+╛+Е D│3 ░ HмNм1│▓2 з 80+▀,Е D│4 ░ HлNл1│┤21 з 82 :Д 40+ц-ЛA,.I$│"Z12Z13Z14Z15":Бж114,0/L$(14)│"BATTLESTATIONS":I$│"N14C14":Бж114,B0L$(13)│"FIRE",]1L$(16)│"MY TARGET IS ",а2З@417, б(4,C);:З@449, б(4,C);:I$│"P13I14P14Q01I15P15Q02":Бж114,┴3V│ Й(L$(14)):H│ К(L$(15))м63-4Е Р(P$(V),H,1)│"*"з Р(P$(V),H,1)│"x": Р(S$(V),H,1)│ Л(223):Бж64:Бж93:Бе56-О5Е Р(S$(V),H,1)│ Л(223)▒ Р(S$(V),H,1)│▓"a"░ Р(S$(V),H,1)│┤"s"з Бж67:L$(5)│"POSITION":L$(6)│"ALREADY":L$(7)│"HIT!":Бж68:Бе56-ї6Е Р(P$(V),H,1)│▓"a"░ Р(P$(V),H,1)│┤"s"з Р(S$(V),H,1)│ Р(P$(V),H,1):Бж65:Бж93:PL│PLл1:ЕPL│30з66:Д56.27Бж67:L$(5)│"FIRED":L$(6)│"ON YOUR":L$(7)│"OWN SHIP":Бж68.98:Г.t9Бж97:Е Р(P$(V),H,1)│▓"a"░ Р(P$(V),H,1)│┤"x"зБж104:Бе57.Х:L$(16)│L$(16)л И(V)л Л(Hл63).▒;I$│"C13C14C15P16":Бж114/<Е Р(P$(V),H,1)│▓"A"░ Р(P$(V),H,1)│┤"S"зБж65:Бж109: Р(S$(V),H,1)│ Л(255): Р(P$(V),H,1)│"v":CM│CMл1:Бе62/S= Р(S$(V),H,1)│ Л(223): Р(P$(V),H,1)│"w":Бж64:Бж104/c>Е CM│30 з75/q?Бж93:Бе49/М@Бж67:L$(6)│"MISS":Бе68/зAБж67:L$(6)│"HIT!":Бе68/╥BБж67:L$(5)│"YOU":L$(7)│"WIN":Бж68:Бе690CА X│4е8:L$(X)│ б(8, Л(191)):Л X:P│м20:I$│"P04P05P06P07P08":Бж114:Р0=DI$│"P05P06P07D15":Бж114:P│м32:Р0ЮEL$(13)│"PRESS ANY KEY":L$(14)│"TO SEE THE":L$(15)│"STARTING POSITIONS":L$(16)│ б(16, Л(128))1FАV│0е9:АH│2е21:Е Р(P$(V),H,1)│▓"a"░ Р(P$(V),H,1)│┤"s"з Р(DS$(V),H,1)│ Р(P$(V),H,1):ЛH:ЛV :ДЛH:ЛV1+GI$│"C13C14C15C16R13L14S15I16":Бж1141KHЗ@32,"";:АX│0е9:ЗDS$(X);:ЛX1МIL$(14)│"TO START":L$(15)│"ANOTHER GAME":I$│"M14M15I16":Бж1141ТJО1╗KБж67:L$(5)│"I":L$(7)│"WIN":Бж68:Бе691эLА R│V е VмN йм1:Е  Р(P$(R),H,1)│"*"з Л R :Д402&MА R│V е VмN йм1: Р(P$(R),H,1)│ Л( К(N$)л32):ЛR:Бе 452SNА R│V е VлN:Е  Р(P$(R),H,1)│"*"з ЛR :Д402ЗOА R│V е VлN: Р(P$(R),H,1)│ Л( К(N$)л32):ЛR:Бе452╖PА R│H е HмN йм1:Е  Р(P$(V),R,1)│"*"зЛR :Д402яQА R│H е HмN йм1: Р(P$(V),R,1)│ Л( К(N$)л32):ЛR:Бе453RА R│H е HлN:Е  Р(P$(V),R,1)│"*"зЛR :Д403OSА R│H е HлN: Р(P$(V),R,1)│ Л( К(N$)л32):ЛR:Бе453ЕTА R│Vм1 е VмN йм1:Е  Р(S$(R),H,1)│ Л(175)зЛR :Д923┼UА R│Vм1 е VмN йм1: Р(S$(R),H,1)│N$: Р(P$(R),H,1)│N$:ЛR:Бе313ўVА R│Vл1 е VлN:Е  Р(S$(R),H,1)│ Л(175)зЛR :Д9243WА R│Vл1 е VлN: Р(S$(R),H,1)│N$: Р(P$(R),H,1)│N$:ЛR:Бе314iXА R│Hм1 е HмN йм1:Е  Р(S$(V),R,1)│ Л(175)зЛR :Д924йYА R│Hм1 е HмN йм1: Р(S$(V),R,1)│N$: Р(P$(V),R,1)│N$:ЛR:Бе314█ZА R│Hл1 е HлN:Е  Р(S$(V),R,1)│ Л(175)зЛR :Д925[А R│Hл1 е HлN: Р(S$(V),R,1)│N$: Р(P$(V),R,1)│N$:ЛR:Бе315К\L$(13)│"YOU ARE TRYING":L$(14)│"TO RAM ONE":L$(15)│"OF YOUR OTHER SHIPS":I$│"L13L14L15D10X13X14X15":Бж114:Бе215Ч]З@32,"";5в^АX│0е95о_ЗS$(X);5╖`ЛX:Р5┘aЕDR│0зV│ Д(10)м1:H│ Д(20)л1:Р5ЁbЕDR│1зV│CVмTR:H│CH6cЕDR│2зV│CVлTR:H│CH6dЕDR│3зH│CHлTR:V│CV65eЕDR│4зH│CHмTR:V│CV6pfTR│TRл1:ЕV▓9▒V┤0▒H▓21▒H┤2зH│CH:V│CV:DR│DRм1:FL│1:Бе1056vgР6ЗhЕDR│0░FL│0зР6╜iFL│0:TR│1:DR│DRл1:ЕDR│3зCH│OH(TA,0):CV│OH(TA,1):Р6╥jЕDR│5зTA│TAл1:ДР7kЕOH(TA,0)│0зDR│0:ДDR│1:CH│OH(TA,0):CV│OH(TA,1)7 lР7mmЕ Р(P$(V),H,1)│"P"зР:ДЕDR│0зOH(TA,0)│H:OH(TA,1)│V:DR│1:TR│1:TA$(TA)│ Р(P$(V),H,1):CH│H:CV│V:Р7КnЕTA$(TA)│ Р(P$(V),H,1)зР7УoT│TA7нpT│Tл1:ЕOH(T,0)┤▓0з1127▄qOH(T,0)│H:OH(T,1)│V:TA$(T)│ Р(P$(V),H,1):Р85rАD│1е З(I$)й3:L│ Й( Р(I$,Dл1,2)):S│ К( Р(I$,D,1))м63:ЕL┤17зL$(17)│L$(L):LL│ З(L$(L))8МsИS Бж,,,117,118,119,,,,120,121,122,123,124,125,,126,127,128,129,,130,,,131,132,1338пtЕL┤17зL$(L)│L$(17):ЛD:Р :ДЛD:Р8╬uL$(L)│ б(LL, Л(C)):Бж126:Р8тvАX│1еLнLн5:ЛX:Р95wL$(17)│ Л(C):АX│1еLL:L$(17)│L$(17)л Р(L$(L),X,1)л Л(C):ЛX:L$(L)│L$(17):Бж126:Р9]xL$(17)│ Т:ЕL$(17)│""з120 :Да100,1:Р9hyЮ(L):Р9zC│128л16н(Lм1)лB:Р9м{Бж134:АX│1е32:З@PлLн32, П(L$(0),X);:ЛX:Р9т|Бж134:АX│1е16:L$(L)│ Р(L$(0),17мX,Xн2):Бж126:ЛX:Р:Z}L$(0)│L$(L):АX│1еLL:Е Р(L$(L),X,1)┤"A"▒ Р(L$(L),X,1)▓"Z"зЛX:Бе135 :Д Р(L$(0),X,1)│ Л( К( Р(L$(L),X,1))л32):ЛX:Бе135:Б~З@PлLн32л(32м З(L$(L)))о2,L$(L);:Р:ЦИL Бе136,137,138:╚АБж134:АX│1е32:З@PлLн32л32мX, О(L$(0),X);:ЛX:Р;ББж134:АX│1е16:З@PлLн32, Р(L$(0),17мX,X);:З@PлLн32л32мX, Р(L$(0),17,X);:ЛX:Р;.ВC│CмB:B│L:C│CлB:Р;wГБж134:L$(0)│L$(0)л Л( Ж(1535)):АX│32е1йм1:З@PлLн32, П(L$(0),X);:ЛX:Р;┼ДБж134:L$(0)│ Л( Ж(1535))лL$(0):АX│32е1йм1:З@PлLн32л32мX, О(L$(0),X);:ЛX:РDМЖ AIRCRAFT CARRIER,A,4,BATTLESHIP #1,B,3,BATTLESHIP #2,B,3,CRUISER #1,C,2,CRUISER #2,C,2,CRUISER #3,C,2,SUBMARINE #1,S,1,SUBMARINE #2,S,1,PT BOAT #1,P,0,PT BOAT #2,P,0,PT BOAT #3,P,0,PT BOAT #4,P,0(191)"A-T";:Р :ДР=iКП:А A│1 е 12=zЛНL$(12),N$,N>DМЖ AIRCRAFT CARRIER,A,4,BATTLESHIP #1,B,3,BATTLESHIP #2,B,3,CRUISER #1,C,2,CRUISER #2,C,2,CRUISER #3,C,2,SUBMARINE #1,S,1,SUBMARI                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 0&' :ГCOPYRIGHT (C) T&D SOFTWARE 1982&G:ГDESIGNED BY: LYLE ZOERMAN&[Т65312,1:МB(10)&g(Я И:б И&m2Ю&и<З@42,"spectrasound":З:З" WELCOME TO SPECTRASOUND!";&фFЗ@454,"instructions";:З@467,"y";:З@469,"or";:З@472,"n";&ЁPАV│0е31'ZX│Xл32:ЕX▓159зX│0'vdЗ@Vл192лX, Л(143лC5);:╔"T250O1C":ЛV:╔"T250O5CP2DP2EP2FP2":C5│(( Д(7))н16):IN$│ Т:ЕIN$│"Y"▒IN$│"N"з110:ДБе80'Цn╔"T4L4O3ET250":ЕIN$│"N"з200(xЮ:З@42,"spectrasound";:З:З" THIS PROGRAM WILL GENERATE PATTERNS ON THE SCREEN THRU PLAYING YOUR FAVORITE MUSIC.":З(рВЗ" **IT WORKS TWO WAYS** 1. INSERT TAPE AND AND PRESS PLAY":З:З" 2. USE CASSETTE MICROPHONE BY UNPLUGGING BOTH GRAY WIRES AND PRESS PLAY AND RECORD")МЗ:З" HIT ANY KEY TO CONTINUE";)МЦАV│1е400:ЛV:╔"T250V30O1CDEFGABCDEFGABV25CDEFGABCDEFGABV20CDEFGABCDEFGABV15CDEFGABCDEFGABV10CDEFGABCDEFGABV5CDEFGABCDEFGABCDEFGAB")баQ$│ Т:ЕQ$│""з160)зкЮ)н┤Ю)│╛Ю)└╚Т65312,1*v╥Ю:З@43,"main menu":З:З" 'A' RANDOM KALEIDOSCOPE":З" 'B' SOUND SETTING KALEIDOSCOPE":З" 'C' SOUND SETTING STROBELIGHT":З" 'D' TIMED STROBELIGHT":З" 'E' 4 COLOR TIMED STROBELIGHT"*─▄З" 'F' RANDOM KALEIDOSCOPE WITH TIMED STROBELIGHT":З:З" 'X' EXIT":*ыцЗ:З" ENTER THE CORRECT RESPONSE"+ЁQ$│ Т:ЕQ$│""з240+ ·б И:Я И+ЕQ$│"A"зБж350+0ЕQ$│"F"зБж460+BЕQ$│"D"зБж610+T"ЕQ$│"B"зБж740+f,ЕQ$│"E"зБж850+y6ЕQ$│"C"зБж1060+Й@ЕQ$│"X"з200+├JЕQ$│"A"▒Q$│"B"▒Q$│"C"▒Q$│"D"▒Q$│"Z"▒Q$│"E"▒Q$│"F"з260+═TБе240+╓^Ю(0)+сhБж1150+∙rQ$│ Т:ЕQ$│"R"зБе350,|ЕQ$┤▓""зР,ЖЕS▓250з360,+РЕS▓150░S┤157з350,6ЪБж1330,EдX│ Д(32)м1,TоY│ Д(16)м1,_╕Бж1430,i┬Бе360,r╠Ю(0),~╓Бж 1570,ФрR│ Й(R$):ЕQ▓9зR│9,нъЮ(5):АT│1е10:ЛT:Ю(0),╣ЇАV│1е R,╧■Q$│ Т:ЕQ$│"R"з470,▌ЕQ$┤▓""зР,шБж1150,ўЕS│255з530-&Бж1330-0X│ Д(32)м1- :Y│ Д(16)м1-+DБж1430-3NЛ V-=XБе490-Db:Г-OlБж1570-XvЮ(0)-nАR│ Й(R$):ЕR┤1зR│1-{КЕR▓6зR│6-ДФЮ(5)-УЮА T│1е9:ЛT-диV│3н(Rп2л15)-н▓Ю(0)-╗╝АW│1еV:ЛW-╤╞Q$│ Т:ЕQ$│"R"з620-▀╨ЕQ$┤▓""зР-ъ┌Бе 660-єфЮ(0)-■юАV│1е8. °Бж1150.!Q$│ Т:ЕQ$│"R"зБе740./ ЕQ$┤▓""зР.>ЕS│255з760.I Бж1330.T*Бж1540._4Бж1430.f>ЛV.pHБе740.yRЮ(0).Е\Бж 1570.ОfЮ(0).дpR│ Й(R$):ЕR┤1зR│1.▒zЕR▓9зR│9.┬ДV│3н(Rп2л15).╓ОЮ(8):АT│1е20:ЛT.щШЮ(0):АT│1еV:ЛT. вQ$│ Т:ЕQ$│"R"з860/ мЕQ$┤▓""зР/!╢Ю(3):АT│1е20:ЛT/4└Ю(0):АT│1еV:ЛT/H╩Ю(2):АT│1е20:ЛT/[╘Ю(0):АT│1еV:ЛT/q▐Q$│ Т:ЕQ$│"R"з860/шЕQ$┤▓""зР/УЄЮ(7):АT│1е20:ЛT/к№Ю(0):АT│1е(Vм1):ЛT/└Q$│ Т:ЕQ$│"R"з860/╬ЕQ$┤▓""зР/┘Бе 910/т$Ю(0)/Ў.Q$│ Т:ЕQ$┤▓""зР08АT│1е200 BБж11500LБж13300%VЕZ│0зZ│804`ЕS│255зZ│00HjЮ(Z):АT│1е16:ЛT0StБе10600i~A0$│ И( Ж(65312))0ИA1$│ И( Ж(65316))0ХТA2$│ И( Ж(65320))0лЬA3$│ И( Ж(65324))0┴жA4$│ И( Ж(65328))0╫░A5$│ И( Ж(65332))0э║A6$│ И( Ж(65336))1─A7$│ И( Ж(65340))1!╬Е Й(A0$)│1зB(1)│1:ДB(1)│01?╪Е Й(A1$)│1зB(2)│2:ДB(2)│01]тЕ Й(A2$)│1зB(3)│4:ДB(3)│01{ьЕ Й(A3$)│1зB(4)│8:ДB(4)│01ЪЎЕ Й(A4$)│1зB(5)│16:ДB(5)│01╣Е Й(A5$)│1зB(6)│32:ДB(6)│01╪ Е Й(A6$)│1зB(7)│64:ДB(7)│01°Е Й(A7$)│1зB(8)│128:ДB(8)│02&S│B(1)лB(2)лB(3)лB(4)лB(5)лB(6)лB(7)лB(8)2,(Р2B2ЕS▓210зZ│8:Бе14202X<ЕS▓185зZ│7:Бе14202nFЕS▓155зZ│6:Бе14202ДPЕS▓115зZ│5:Бе14202ЩZЕS▓90зZ│4:Бе14202оdЕS▓55зZ│3:Бе14202├nЕS▓20зZ│2:Бе14202╪xЕS▓10зZ│1:Бе14202эВЕS▓м1зZ│0:Бе14202єМР3ЦЕZ│0з14903аЬ(31мX,16лY,Z)3'кЬ(31мX,15мY,Z)3:┤Ь(32лX,16лY,Z)3M╛Ь(32лX,15мY,Z)3S╚Р3d╥Э(31мX,16лY)3u▄Э(31мX,15мY)3ЖцЭ(32лX,16лY)3ЧЁЭ(32лX,15мY)3Э·Р3оX│ Б(Sо7.97)3└Y│ Б(Sо15.94)3╞Р3Ў"Ю(0):З@8,"enter";:З@14,"speed";:З@20,"1-9";4,R$│ Т:Е R$│"" з 1580 :Д 15904/6Е Й(R$)▓0з Р :Д1570,16лY,Z)3M╛Ь(32лX,15мY,Z)3S╚Р3d╥Э(31мX,16лY)3u▄Э(31мX,15мY)3ЖцЭ(32лX,16лY)3ЧЁЭ(32лX,15мY)3Э·Р3оX│ Б(Sо7.97)3└Y│ Б(Sо15.94)3╞Р3Ў"Ю(0):З@8,"enter";:З@14,"speed";:З@20,"1-9";4,R$│