4 
 1785 
 1614 
 1793 
 0 
 7985 
 1774 
 1557 
 1795 
 0 
 9028 
 1789 
 1500 
 1796 
 0 
 989078 
                                                                            '	PБж 300'>ZXX│XлR: Е XX┤2 ▒ XX▓61 з R│мR: XX│XлRлR: а 230,1'I_Бж 300'udYY│YлU: Е YY┤2 з U│1: YY│YлUлU: а 230,1'иnЕ YY▓31 з Э(X,Y): а 5,5: B│Bл1: З@ 6,B;: Бе 50'рxЕ  С(X,Yл1)│2 з а 180,1: U│м2: XX│X: YY│YлU: Бе 125(yЕ  С(XлR,Yл1)│2 з а 180,1: U│м2: R│мR: XX│XлR: YY│YлU(М}Е  С(XX,YY)▓3 з а 250,1: S│Sл9м С(XX,YY): З@  Б(XXо2)л32н Б(YYо2), Л(128);: U│мU: XX│X: YY│Y: З@ 21,S: Бе 125(з~Е S│450 з S│650: Бе 20(╝Е  Я▓18000 з 200(┌ВЭ(X,Y): X│XX: Y│YY: Бе 70)	╚З@ 68,"GAME OVER: AVERAGE:"; Б(Sн10оB)о10;)/╥З@ 131,"PRESS 'P' TO PLAY AGAIN";)G▄Е  Т│"P" з О :Д 220)U
,Z│ Ж(135))~
6TT│Tл((Z│9)н(T┤478))м((Z│8)н(T▓449)))и
@З@ T, Л(128);: T│TT: З@ T, Л(156);: РЕ  Я▓18000 з 200(┌ВЭ(X,Y): X│XX: Y│YY: Бе 70)	╚З@ 68,"GAME OVER: AVERAGE:"; Б(S                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ▌&:Г TARGET&.
Ю: З"SCORE:";S;"  TIME:";T&=P│239: Я│0&kX│ Д(28)л33: D│ Д(3)л30: C│( Д(7)н16)л143&{(З@ X, Л(C);&Ж2Бж 200&й<Е P│X з а 225,10: S│Sл5: D│600&╫FA│ В(PмX): Е A│31 ▒ A│33 з а 255,1: S│Sл1'PLT│T: T│ Б( Яо60): Е T▓LT ░ T┤61 з а Tн3,1: З@16,T'ZЗ@ 6,S;',dЕ T▓│60 з 300'SnЗ@ X, Л(143);: X│XлD: Е X▓510 з 30'^xБж 200'hВБе 40'Г╚I$│ Т: Е I$│"" з I$│L$'─╥PN│Pм((I$│ Л(9))л32н(I$│ Л(10)))л((I$│ Л(8))л32н(I$│ Л(94)))(▄Е PN┤▓P з З@ Pм33, Л(143);: З@ Pм31, Л(143);: З@ Pл31, Л(143);: З@ Pл33, Л(143);(5цЕ PN▓65 ░ PN┤478 з P│PN(|ЁЗ@ Pм33, Л(92);: З@ Pм31, Л(47);: З@ Pл31, Л(47);: З@ Pл33, Л(92);(Ж·L$│I$(М
Р(╕
,З@ 65,"GAME OVER: PRESS 'P' TO REPLAY";(─
6а 180,5(▄
@Е  Т│"P" з О :Д 32043);: З@ Pм31, Л(143);: З@ Pл31,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ш:Г THE BALL GAME
B│1^Ю 0: З"BALL:";B: А J│31 е 447 й 32: З@ J,"  ";: Л J: З@ 479hT│464q( Я│0Х2X│ Д(59)л2: Y│2: U│1: R│ Д(5)м3а<Бж 310нFЬ(X,Y,4)╕PБж 300эZXX│XлR: Е XX┤2 ▒ XX▓61 з R│мR: XX│XлRлR: а 230,1dYY│YлU: Е YY┤2 з U│1: YY│YлUлU: а 230,1Е YY▓31 з Э(X,Y): а 5,5: B│Bл1: Е B▓10 з 200 :Д З@ 6,B: Бе 50мxЕ  С(XX,YY)│2 з а 180,1: U│м1: XX│X: YY│Y: R│м Д(2)н А(R): Е R│0 з R│ Д(5)м3╩ВЭ(X,Y): X│XX: Y│YY: Бе 70Ў╚З@ 69,"YOU LASTED"; Б( Яо60);"SECONDS";╥З@ 132,"PRESS 'P' TO PLAY AGAIN";4▄Е  Т│"P" з О :Д 220B
,Z│ Ж(135)m
6TT│Tл((Z│89)н(T┤478))м((Z│84)н(T▓449))Ч
@З@ T, Л(128);: T│TT: З@ T, Л(156);: Р Е R│0 з R│ Д(5)м3╩ВЭ(X,Y): X│XX: Y│YY: Бе 70Ў╚З@ 69,"YOU LASTED"; Б( Яо60);"SECONDS";╥З@ 1н10оB)о10;1╥З@ 131,"PRESS SPACE TO PLAY AGAIN";L▄Е  Т│ Л(32) з О :Д 220Z
,Z│ Ж(135)Г
6TT│Tл((Z│9)н(T┤478))м((Z│8)н(T▓449))н
@З@ T, Л(128);: T│TT: З@ T, Л(156);: Р▓18000 з 200┌ВЭ(X,Y): X│XX: Y│YY: Бе 70	╚З@ 68,"GAME OVER: AVERAGE:"; Б(S                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 m:Г DECISIONS, DECISIONS)
М A$(9)HА J│1 е 9: Н A$(J),S(J): ЛfЮ: З"ASK ANY QUESTION",,,o(Й Q$А2Е Q$│"" з 30Й<C│10вFA│ Д(C): Е A│PA з 70лPPA│A■ZЕ A│10 з З@ 192,"THIS IS TRICKY...LET ME THINK...": а 5, Д(100)л20: C│9: Бе 70DdЗ@ 128,A$(A): а S(A),5: З@ 192,"ARE YOU SATISFIED WITH MY REPLY?"inI$│ Т: Е I$┤▓"Y" ░ I$┤▓"N" з 110ЖxЕ I$│"N" з З@ 128: Бе 70▒ВЗ@ 256,"PRESS SPACE TO ASK SOME MORE."═МЕ  Т│ Л(32) з 30 :Д 140lЦЖ "YES",220,"NO",5,"MAYBE",110,"HOW SHOULD I KNOW?",100,"NEVER",1,"OF COURSE",200,"THAT IS UP TO YOU",100,"POSSIBLY",90,"I GIVE UP-WHAT DO YOU THINK?",100 I$│"N" з З@ 128: Бе 70▒ВЗ@ 256,"PRESS SPACE TO ASK SOME MORE."═МЕ  Т│ Л(32) з 30 :Д 140lЦЖ "YES",220,"NO",5,"MAYBE",110,"HOW SHOULD I                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  п:Г OUIJA
Ю6I$│ Т: Е I$┤"A" ▒ I$▓"Z" з 20WЕ  Д(4)│4 з I$│ Л( Д(26)л64)x(З I$;: Е  Д(8)│8 з З  Л(32);О2Е  Д(30)┤▓30 з 20о<З ".": З: З"END OF MESSAGE"(PЦЖ "YES",220,"NO",5,"MAYBE",110,"HOW SHOULD I KNOW?",100,"NEVER",1,"OF COU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
╤:Г SIMON SAYS 
М A(500)(J│04X│ Д(8)?(A(J)│Xb2А C│0 е J: X│A(C): Бж 200: Л Cj<Ю 0xFА R│0 е JЪPI$│ Т: Е I$┤"1" ▒ I$▓"8" з 80пZX│ Й(I$): Бж 200╩dЕ X┤▓A(R) з ERR│1: R│J╥nЛ RыxЮ 0: А C│1 е 50: Л CВЕ ERR з 140 :Д J│Jл1: Бе 30М╔"FC"*ЦА C│1 е 100: Л CRаT│8: А C│0 е J: X│A(C): Бж 210: Л CГкЮ: З"SCORE:";J: З@ 134,"PRESS SPACE TO PLAY"Ъ┤Е  Т┤▓ Л(32) з 180а╛О╕╚T│16мJ: Е T┤1 з T│1╩╥Ю X: а Xн20,T╨▄РыxЮ 0: А C│1 е 50: Л CВЕ ERR з 140 :Д                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  r:Г MINEFIELD:
Ю: А J│159 е 191 й 16: З  Л(J): Л JgА J│1 е 7: З"---*";: Л J: З"*--"; Л(223)вМ A(3,1): А J│1 е 3: A(J,0)│1: A(J,1)│J: Л J: D│0: H│0о(X│ Д(6)╪2З@ 192,"MOVE";X;"PACE";: Е X▓1 з З"S"<З@ 256,"WHICH MAN?",,,,"(Y=YELLOW , B=BLUE , R=RED)")FI$│ Т: Е I$│"" з 70OPM│м(I$│"Y")м2н(I$│"B")м3н(I$│"R")aZЕ M│0 з Бе 70ЯdЕ A(M,1)▓3 з З@ 288,"INVALID MOVE": а 50,5: З@ 288: Бе 70оnN│A(M,0)лX└xЕ N▓32 з N│32тВЕ Nо4│ Б(Nо4) ▒ N│29 з Бж 500МЗ@ (Mм1)н32лA(M,0)м1, Л(143)ЦA(M,0)│N9аЗ@ (Mм1)н32лNм1, Л(143л16н(A(M,1)));KкЕ HлD┤▓3 з 40u┤Е D│3 з З@ 394,"ALL MEN DEAD": Бе 210в╛Е H│3 з З@ 393,"CONGRATULATIONS": Бе 210▀╚З@ 387,"GAME OVER.";D;"MEN KILLED.": Е D│1 з З@ 401,"A";╥З@ 452,"PRESS SPACE TO PLAY AGAIN"!▄Е  Т│ Л(32) з О :Д 220S
ЇЕ N│32 з H│Hл1: A(M,1)│7: а 250,5: а 220,5: Рq
■D│Dл1: A(M,1)│4: а 1,5: Р0в╛Е H│3 з З@ 393,"CONGRATULATIONS": Бе 210▀╚З@ 387,"GAME OVER.";D;"MEN KILLED.": Е D│1 з З@ 401,"A";╥З@ 452,"PRESS SPACE TO PLAY                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
ю
:Г PEEK THE PROG.└ 1=J│ Ж(25)н256л Ж(26): LL│JH(Бж 200P2X│1\<P│ Ж(J)uFЕ J│L з LL│L: Бж 200БPЕ E з КЫZЗ J;д6);P;д12); Л(P);╞dЕ J│LL ▒ J│LLл2 з З д16);"(";P;"*256";nЕ J│LLл1 ▒ J│LLл3 з З д16);"+";P;"=";: Е J│LLл1 з З L;")"; :Д З N;")";%xJ│Jл1: X│Xл1: З5ВЕ X┤15 з 60MМЕ  Т│"" з 140 :Д 50e╚L│ Ж(J)н256л Ж(Jл1)╥N│ Ж(Jл2)н256л Ж(Jл3)к▄Е L│0 з З"END OF PROGAM": E│м1: Бе 260└цЗ"THIS IS LINE";N▌ЁЗ"NEXT LINE BEGINS AT";Lч·X│Xл3э
Р: Е J│LLл1 з З                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
:Г POKE THE PROG.
└ 4*D│35856Т Dм1,0F(А J│0 е 255U2N│3591л6нJ`<Бж 200sFТ D,H: Т Dл1,L}PN│Jл1ИZБж 200ЭdТ Dл2,H: Т Dл3,LлnТ Dл4,130╖xТ Dл5,0┴ВD│Dл6╔МЗ J╤ЦЛ J▌а╟ 1 е 5укК
╚H│ Б(Nо256): L│NмHн256: Р:Г POKE THE PROG.
└ 4*D│35856Т Dм1,0F(А J│0 е 255U2N│3591л6нJ`<Бж 200sFТ D,H: Т Dл1,L}PN│Jл1ИZБж 200ЭdТ Dл2,H: Т Dл3,LлnТ Dл4,130╖xТ Dл5,0┴ВD│Dл6╔МЗ J╤ЦЛ J▌а╟ 1 е 5укК
╚H│ Б(Nо256): L│NмHн256:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╬&
:Г SORT&NшN│13: М A(N): Ю: А J│0 е N: A(J)│ Д(1000): З J;д5);A(J): Л J&mЄА J│0 е Nм1: А K│0 е NмJм1&Я№Е A(K)┤A(Kл1) з T│A(K): A(K)│A(Kл1): A(Kл1)│T&йЛ K,J&═А J│0 е N: З@ 16л32нJ,A(J): Л J                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         Ч&:Г SORT DEMO&SшN│13: М A(N): Ю: А J│0 е N: A(J)│ Д(1000): З J;д5);A(J): Л J&rЄА J│0 е Nм1: А K│0 е NмJм1&~ўБж 4000&╣№Е A(K)┤A(Kл1) з Бж 5000: T│A(K): A(K)│A(Kл1): A(Kл1)│T&┼
Бж 4500&╧Л K,J'З@ 310,"FINISHED.": З@ 344, Л(32): З@ 377,"   ": З@ 408, Л(32): З@ 436: К'ДаЗ@ Kн32л3, Л(255);: З@ (Kл1)н32л3, Л(255);: З@ 310,"COMPARING": З@ 344,K: З@ 377,"AND": З@ 408,Kл1'ЩкА M│1 е 250: Л M'Я┤Р'╬ФЗ@ Kн32л3, Л(143);: З@ (Kл1)н32л3, Л(143);'╘ЮР(
ИА L│5 е 15: З@ (Kл1)н32лL,A(Kл1);: А M│1 е 20: Л M,L(#ТЗ@ Kн32л6,"    ";(;ЬЗ@ (Kл1)н32л5,A(K);(VжЗ@ (Kл1)н32л15,"    ";(Р░А L│15 е 5 й м1: З@ Kн32лL,A(Kл1);: А M│1 е 20: Л M,L(Ц║Р'Я┤Р'╬ФЗ@ Kн32л3, Л(143);: З@ (Kл1)н32л3, Л(143);'╘ЮР(
ИА L│5 е 15: З@ (Kл1)н32лL,A(Kл1);: А M                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 2&%
Х 5000: М B$(500,3),B(500): L│0&BG$│"%      %  #####.##-"&kH$│"%      %              #####.##-"&}(Ю: Й"DATE";D$&Г*З&┐-З"NOTE:  PROGRAM WILL HANG IF NO  PRINTER IS ATTACHED!"&┼.З&ъ2З"DO YOU HAVE A CUMULATIVE FILE"'<I$│ Т: Е I$│"Y" з Бж 500: L│C: Бе 80'&FЕ I$┤▓"N" з 60'SPЗ"LOAD YOUR CURRENT LEDGER FILE": Бж 520'iZC│CлL: CN│C: GT│0'}dА J│1 е C: OS│0'ОnЕ B(J) з 310'ЭxT$│B$(J,1)'пВЗ#м2,T$: З#м2'┌МЗ#м2,"DATE      INVOICES     PAYMENTS"'шЦА K│J е C(аЕ B(K)│0 ░ B$(K,1)│T$ з Бж 570 :Д 180('кOS│OSлP: B(K)│м1(/┤Л K(<╛GT│GTлOS(i╚Ю: З T$: З@ 128,"ANY PAYMENTS (Y OR N)?"(Г╥I$│ Т: Е I$│"N" з 290(Ч▄Е I$┤▓"Y" з 210(гцCN│CNл1(╣ЁЙ"AMOUNT";P: P│мP(╥·M$│D$: F$│H$: Бж 590( 
B$(CN,1)│T$: B$(CN,2)│ И(P): B$(CN,3)│D$)
OS│OSлP: GT│GTлP)
Бе 200)=
"З#м2: З#м2, ═ G$;"O/S";OS)V
,А K│1 е 4: З#м2: Л K)^
6Л J)x
@А K│1 е 10: З#м2: Л K)Т
JЗ#м2, ═ G$;"TOTAL";GT)╖
TЮ: З"NOW RECORD CUMULATIVE FILE")╒
^З"PRESS SPACE WHEN READY")ь
hЕ  Т┤▓ Л(32) з 360*

РЩ "O",#1,"SALES"*
ЪЗ#1,CN*&
дА J│1 е CN: А K│1 е 3*6
оЗ#1,B$(J,K)*H
╕Л K,J: Ъ#1: К*f
ЇЗ"PRESS SPACE WHEN READY"*Г
■Е  Т│ Л(32) з 520 :Д 510*ШЩ "I",#1,"SALES"*вЙ#1,C*╗А J│1 е C: А K│1 е 3*╧&╗ Й#1,B$(JлL,K)*с0Л K,J: Ъ#1: Р* :P│ Й(B$(K,2)): M$│B$(K,3)+DЕ P┤0 з F$│H$ :Д F$│G$+1NЗ#м2, ═ F$;M$;P: РK)*H
╕Л K,J: Ъ#1: К*f
ЇЗ"PRESS SPACE WHEN READY"*Г
■Е  Т│ Л(32) з 520 :Д 510*ШЩ "I",#1,"SALES"*вЙ#1,C*╗А J│1 е C: А K│1 е 3*╧&╗ Й#1,B$(JлL,K)*с0Л K,J: Ъ#1: Р* :P│ Й(B$(K,2)): M$│B$(K,3)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ъ&:Г COIN ANALYSIS&
L│10&5М C$(L),C(L),N(L)&VА J│1 е L: Н C$(J),C(J): Л J&╗(Ж "FIFTY",50,"TWENTY",20,"TEN",10,"FIVE",5,"ONE",1,"50c",.5,"25c",.25,"10c",.1,"5c",.05,"1c",.01&├2N│1&ы<Ю: З"ENTER NET AMOUNT: PAYSLIP #";N'FЗ@ 64,"(OR X TO FINISH)"'!PЙ T$: Е T$│"X" з 200'.ZT│ Й(T$)'idЕ  В(Tн100м Ш(Tн100л1Eм4))▓1Eм3 ▒ T┤.01 з а 5,5: Бе 70'wnSUM│SUMлT'ЕxА J│1 е L'ТВT│Tл1Eм5'гМX│ Б(TоC(J))'▓ЦT│TмXнC(J)'┬аN(J)│N(J)лX'┘кЕ  В(T)┤1Eм4 з J│L'с┤Л J'√╛а 200,5: N│Nл1: Бе 60(
╚Ю(╥А J│1 е L(F▄З ═"#### X %    % = #####.##";N(J);C$(J);N(J)нC(J)(NцЛ J(tЁЗ ═"       TOTAL  = #####.##";SUM(Щ·З@ 416,"NUMBER OF PAYSLIPS:";Nм1TоC(J))'▓ЦT│TмXнC(J)'┬аN(J)│N(J)лX'┘кЕ  В(T)┤1Eм4 з J│L'с┤Л J'√╛а 200,5: N│Nл1: Бе 60(
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 -&:Г ODDS ON&(
LIMIT│30: PAUSE│500&7М COUNT(1)&=Ю&M(X│ Д(LIMIT)&i2Y│ Д(LIMIT): Е Y│X з 50&Ы<Е X▓Y з UPPER│X: LOWER│Y: :Д UPPER│Y: LOWER│X&▐FЗ@ 64,"RANDOM NUMBERS IN THE RANGE:-": З@ 138,LOWER;"TO";UPPER& PR1│ Д(UPPERмLOWERл1)лLOWERм1'.ZR2│ Д(UPPERмLOWERл1)лLOWERм1: Е R2│R1 з 90';dЗ@237,R1'HnЗ@301,R2'VxSUM│R1лR2'┐ВЕ SUMо2│ Б(SUMо2) з COUNT(0)│COUNT(0)л1: A$│"EVEN": а 200,5: :Д COUNT(1)│COUNT(1)л1: A$│"ODD": а 1,5'▀МЗ@ 352,"TOTAL=";д13);SUM;A$(ЦЗ@ 416,"EVENS","ODDS",COUNT(0),COUNT(1)("аА J│1 е PAUSE: Л J(,кБе 30';dЗ@237,R1'HnЗ@301,R2'VxSUM│R1лR2'┐ВЕ SUMо2│ Б(SUMо2) з COUNT(0)│COUNT(0)л1: A$│"EVEN": а 200,5: :Д COUNT(1)│COUNT(1)л1: A$│"ODD": а 1,5'▀МЗ@ 352,"TOTAL=";д13);SUM;A$(ЦЗ@ 416,"EVENS","ODDS",COUNT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 [&:Г MAGIC DICE&%
М D(3,5),W(1)&OА J│0 е 3: А K│0 е 5: Н D(J,K): Л K,J&ЕЖ 9,9,3,3,3,3,8,8,8,2,2,2,7,7,7,7,1,1,5,5,5,5,5,5&┬(Ю: З"SELECT ONE OF THE FOLLOWING DICE (1, 2, 3, OR 4):-"&▌2З@ 96,"NUMBER : FACES"&ы<А J│0 е 3'FЗ@ Jн64л130,Jл1;д8);'PА K│0 е 5'0ZЗ D(J,K);: Е K┤▓5 з З",";':dЛ K,J'DnI$│ Т'`xЕ I$┤"1" ▒ I$▓"4" з 110'pВYD│ Й(I$)м1'ХМЗ@ 384,"YOUR DIE IS NUMBER";YDл1'▓ЦЕ YD│0 з CD│3 :Д CD│YDм1'╥аЗ"I SELECT DIE NUMBER";CDл1'√кЗ"NOW PRESS SPACE TO START ROLLING";(┤Е  Т┤▓ Л(32) з 180(1╛В ** TOTALLY RANDOM THROWS(M╚Ю: Y│ Д(6)м1: C│ Д(6)м1(i╥З"YOUR THROW :";D(YD,Y)(К▄З@ 64,"MY THROW :  ";D(CD,C)(ъцЕ D(YD,Y)▓D(CD,C) з WINNER$│"YOU": а 200,5: W(0)│W(0)л1: :Д WINNER$│"I": а 1,5: W(1)│W(1)л1)ЁЗ@ 128,WINNER$;" WIN"),·З@ 256,"WINS SO FAR:-": З"YOU","ME")<
З W(0),W(1))Z
А J│1 е 1000: Л J: Бе 190W :";D(YD,Y)(К▄З@ 64,"MY THROW :  ";D(CD,C)(ъцЕ D(YD,Y)▓D(CD,C) з WINNER$│"YOU": а 200,5: W(0)│W(0)л1: :Д WINNER$│"I": а 1,5: W(1)│W(1)л1)ЁЗ@ 128,WINNER$;"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
г&:Г KEYBOARD TEST&"
 Я│0: Ю&1А J│2 е 10&FA$│"": А K│1 е J&^(A$│A$л Л( Д(26)л64)&f2Л K&Ф<З"ENTER THE FOLLOWING",,,"(";J;"LETTERS)"&кFЗ@ 192,A$: З@ 288&╕P╗ Й B$: Ю&шZА K│1 е J: S│Sм( Р(B$,K,1)│ Р(A$,K,1)): Л K&ЁdЛ J&№nT│ Яо60'SxЗ"YOU SCORED";S,,,,"OUT OF 53 ",,,,"IN";T;"SECONDS": З@ 192,"RATING:";47лSм Б(Tо5)'rВЗ@416,"ANOTHER GO ? (Y/N)"'КМI$│ Т: Е I$│"Y" з О'вЦЕ I$│"N" з К :Д 140@ 288&╕P╗ Й B$: Ю&шZА K│1 е J: S│Sм( Р(B$,K,1)│ Р(A$,K,1)): Л K&ЁdЛ J&№nT│ Яо60'S                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 a&%:Г DATABASE (USE WITH CASSETTE)&H
Х 5000: Ю: Й"HOW MANY WORDS";N&TМ W$(N)&bА J│1 е N&}(Ю: З"TYPE IN WORD #";J&Й2Й W$(J)&С<Л J&ўFЮ: З"ENTER FILENAME FOR THESE WORDS",,,"(OR PRESS ENTER FOR DEFAULT","FILENAME OF 'SPELLING')",,,'PЙ T$'DZF$│ О(T$,1): Е F$▓│"A" ░ F$┤│"Z" з N$│ О(T$,8) :Д N$│"SPELLING"'ЗdЮ: З"PRESS PLAY & RECORD ON CASSETTE","UNIT, THEN PRESS SPACE"'ЮnЕ  Т┤▓ Л(32) з 110'пxЩ "O",#м1,N$'┬ВЗ"WRITING ";N$'═МЗ#м1,N'ьЦА J│1 е N: З#м1,W$(J): Л J'ЎаЪ #м1("кЮ: З"DO NOT TOUCH CASSETTE BUTTONS!",,,(I┤З"DISCONNECT 'MIC' LEAD (ONLY)",,,(e╛З"AND THEN PRESS SPACE"(|╚Е  Т┤▓ Л(32) з 200(К╥А J│1 е N(и▄Ю: З"PRONOUNCE THE WORD:"(┐ца 200,5: Я И:  Я│0(▄ЁЗ@ 272м З(W$(J))о2,W$(J)(··З@384, Я: Е  Я┤│290 з 250)	
Я к: а 5,5)!
Ю: А K│1 е 250: Л K))
Л J)`
"З"END OF SET-UP PROGRAM.",,,"SWITCH OFF CASSETTE."E"(|╚Е  Т┤▓ Л(32) з 200(К╥А J│1 е N(и▄Ю: З"PRONOUNCE THE WORD:"(┐ца 200,5: Я И:  Я│0(▄ЁЗ@ 272м З(W$(J))о2,W$(J)(··З@384, Я: Е  Я┤│290 з 250)	
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
м&:Г PRINT@ TEST&
Ю 5&,X│ Д(512)м1&:З@ X,"*";&U(Е X▓255 з Y│0 :Д Y│320&У2З@ Y,"WHAT IS THE 'PRINT @' POSITION","OF THE ASTERISK ";&ж<Й A$: A│ Й(A$)&╘FЕ X│A з З"CORRECT": ╔"T7O5CO4GEC": Бе 110'	PЕ  В(XмA)│1 ▒  В(XмA)│32 з З"CLOSE!" :Д З"WRONG"'*ZЗ"THE CORRECT POSITION IS";X'jdЕ A▓│0 ░ A┤│511 з А J│1 е 100: З@ A, Л(32);: З@ A,"*";: Л J'ФnЗ@ Yл128,"PRESS ANY KEY TO TRY AGAIN"'лxЕ  Т│"" з 120 :Д О│A з З"CORRECT": ╔"T7O5CO4GEC": Бе 110'	PЕ  В(XмA)│1 ▒  В(XмA)│32 з З"CLOSE!" :                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
Ї&:Г ASCII TEST&"
R$│"WRONG"&2X│ Д(96)л31&RЮ: З"WHAT IS THE CODE FOR:"&c(З@ 240, Л(X)&l2 Я│0&v<A$│""&АFI$│ Т&хPN│ Я: Е N▓Tл60 з T│N: Z│Zл1: З@ 542м(Zн32), Л(191);: а Zн10,1: Е Z│16 з R$│"OUT OF TIME": Бе 150'ZЕ I$▓│"0" ░ I$┤│"9" з A$│A$лI$'5dЕ I$│ Л(8) ░ A$┤▓"" з A$│ О(A$, З(A$)м1)'KnЗ@ 384,A$; Л(32);'axЕ I$│ Л(13) з 140'kВБе 70'xМY│ Й(A$)'СЦЕ Y│X з R$│"CORRECT"'▓аЗ@ 416,R$;". THE CODE IS";X;'╪кЗ@448,"PRESS SPACE TO TRY AGAIN";'є┤Е  Т│ Л(32) з О :Д 180I$┤│"9" з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ─&

:Г DICE&(└ 2: ╚ 1,1: ┐ 1,1: ╝ 2&>
М A(1,1,1),D(7,1)&vA(0,0,0)│60: A(0,0,1)│82: A(0,1,0)│88: A(0,1,1)│110&░A(1,0,0)│168: A(1,0,1)│82: A(1,1,0)│196: A(1,1,1)│110&╛А J│0 е 1&Ё╗(A(J,0,0),A(J,0,1))м(A(J,1,0),A(J,1,1)),╜,BF&°#Л J'(А J│1 е 7: Н D(J,0),D(J,1): Л J'G-Ж 6,6,22,6,6,14,14,14,22,14,6,22,22,22'U2А J│0 е 1'a7N│ Д(6)'Д<И N Бж 100,200,300,400,500,600'МAЛ J'жFЕ  Т│ Л(32) з О :Д 70'╖dX│4: Бж 1000'╜nР'╬╚X│2: Бж 1000'▀╥X│6: Бж 1000'х▄Р'°
,Бж 100: Бж 200'■
6Р(
РX│1: Бж 1000( 
ЪX│2: Бж 1000(1
дX│6: Бж 1000(B
оX│7: Бж 1000(H
╕Р([
ЇБж 100: Бж 400(a
■Р(lXБж 400(}bX│3: Бж 1000(ОlX│5: Бж 1000(ФvР(╜ш╜(A(J,0,0)лD(X,0),A(J,0,1)лD(X,1),1)(├ЄР Бж 1000'▀╥X│6: Бж 1000'х▄Р'°
,Бж 100: Бж 200'■
6Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 √&:Г CRAP-SHOOTER&!
М D$(6)&=А J│1 е 6: Н D$(J): Л J&GN│101&M(Ю&U2C│0&_<N│Nм1&xFЗ@ 36,"YOU HAVE $";N&АPY│0&жZЗ@ 452,"PRESS SPACE TO ROLL DICE"&╜dЕ  Т┤▓ Л(32) з 100&├nЮ&╧xX│ Д(6)&сВY│YлX: Бж 290&ёМЕ Y│X з 120& ЦЕ C з 190'аЕ Y┤4 ▒ Y│12 з 270'-кЕ Y│7 ▒ Y│11 з 280';┤COMEOUT│Y'E╛C│Cм1'i╚З@ 257,"COME-OUT ROLL:";COMEOUT'Е╥Е C│м1 з а 130,1: Бе 70'Ь▄Е Y┤▓COMEOUT з 250'┤цЗ@ 321,"POINT MADE"'╬Ёа 200,5: N│Nл2: Бе 50'▐·Е Y│7 з 270(
З@ 321,"THIS ROLL:";Y: а 50,1: Бе 70(+
З@ 320,Y;":CRAP": а 1,12: Бе 50(J
З@ 321,"NATURAL";Y: Бе 240(X
"А J│1 е 9(Ю
,З@ 137лJм29н(J▓3)м29н(J▓6)м7н(Y▓X), Л(143л3н( Р(D$(X),J,1)│"D"));(ж
6Л J(м
@Р(·
JЖ "XXXXDXXXX","XXDXXXDXX","XXDXDXDXX","DXDXXXDXD","DXDXDXDXD","DXDDXDDXD"0,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┬&:Г KALEIDOSCOPE&
Ю 0&AX│ Д(32)м1: Y│ Д(16)м1: C│ Д(8)&ГЕ  С(X,Y) з Э(X,Y): Э(63мX,Y): Э(X,31мY): Э(63мX,31мY): Бе 20&┴(Ь(X,Y,C): Ь(63мX,Y,C): Ь(X,31мY,C): Ь(63мX,31мY,C): Бе 20                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               е&:Г PAINTBOX&%
S│1: В (OR S=0)&7╚ 3: ┐ 1,S: ╝&PX│ Д(256): Y│ Д(192)&y(R│ Д(80)л10: HW│ Д(5)о Д(7): C│ Д(4)&Л2┬(X,Y),R,C,HW&Ъ<├(X,Y),C,C&дFБе 30 Бе 20100                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      H&:Г ACT YOUR AGE&9
Ю: З"INITIALIZING: PLEASE WAIT"&LМ B(6,29),P(6)&[А J│1 е 60&c(Y│J&o2Бж 1000&}<А K│0 е 5&пFЕ  Р(A$,Kл1,1)│"1" з B(K,P(K))│J: P(K)│P(K)л1&╣PЛ K,J&├ZAGE│0&╤dА K│0 е 5&√nЮ: З"IS YOUR AGE IN THIS LIST? (Y/N)"',xА J│0 е 29: Е B(K,J)┤▓0 з З@ 16нJл32,B(K,J);'4ВЛ J'>МI$│ Т'\ЦЕ I$┤▓"Y" ░ I$┤▓"N" з 140'zаЕ I$│"Y" з AGE│AGEлB(K,0)'ВкЛ K'Ь┤Ю: З"YOUR AGE IS";AGE'╗╛З@ 288,"ANOTHER GO (Y/N)?"'═╚Е  Т│"Y" з 90'х╥Е  Т│"N" з К :Д 200'■шA$│"": А K│5 е 0 йм1(%ЄX│ Б(Yо Б(2пK)): A$│A$л П( И(X),1)(9№Y│Yм(Xн Б(2пK))(AЛ K(GРY" ░ I$┤▓"N" з 140'zаЕ I$│"Y" з AGE│AGEлB(K,0)'ВкЛ K'Ь┤Ю: З"YOUR AGE IS";AGE'╗╛З@ 288,"ANOTHER GO (Y/N)?"'═╚Е  Т│"Y" з 90'х╥Е  Т│"N" з К :Д 200'■шA$│"": А K│5 е 0 йм1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
1&:Г PIANO&
OCT│3&CN$│"^1QW3E4R5TY7U8IO0P:@-"л Л(8)л Л(9)&WМ P$(23),N(255)&f(А J│1 е 23&2O│OCTм(J▓│11)м(J│23)&Й<T│Jл2&дFЕ T▓12 з T│Tм12: Бе 70&┬PP$(J)│"O"л И(O)л";"л И(T)&┌ZN( К( Р(N$,J,1)))│J&чdЛ J: Ю 3'nI$│ Т: Е I$│"" з 110'
xI│ К(I$)'%ВЕ N(I) з ╔ P$(N(I))'0МБе 110:@-"л Л(8)л Л(9)&WМ P$(23),N(255)&f(А J│1 е 23&2O│OCTм(J▓│11)м(J│23)&Й<T│Jл2&дFЕ T▓12 з T│Tм12: Бе 70&┬PP$(J)│"O"л И(O)л";"л И(T)&┌ZN( К( Р(N$,J,1)))│J&чdЛ J: Ю 3'nI$│ Т: Е I$│"" з 11                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 }&)
:Г PROGRAM : MENU DRIVER : DISKMENU&B:Г COCO EXTRAVAGANZA&\:Г COPYRIGHT (C) 1984&{#:Г JOHN WILEY & SONS, INC.&Ч(:Г ALL RIGHTS RESERVED.&д2М P$(50)&м<Ю 8&╣FЗ@32,"";&┐KЗ&┘PЗ "COCO EXTRAVAGANZA"&▀ZЗ&∙dЗ "COPYRIGHT (C) 1984'nЗ "BY JOHN WILEY & SONS, INC."'9xЗ "ALL RIGHTS RESERVED."'?ВЗ'cГЗ "PUBLISHED SIMULTANEOUSLY IN"'ЕДЗ "CANADA.  REPRODUCTION OR "'мЕЗ"TRANSLATION OF ANY PART OF THIS"'╤ЗЗ"WORK BEYOND THAT PERMITTED BY"'ЁИЗ"SECTION 117 OF THE 1976"(ЙЗ"UNITED STATES COPYRIGHT ACT"(8КЗ"WITHOUT THE PERMISSION OF THE"(\ЛЗ"COPYRIGHT OWNER IS UNLAWFUL."(qМА K│1 е 3000:Л K(}НЗ:З:З:З(ЙОЗ:З:З:З(лПЗ"REQUESTS FOR PERMISSION OR"(╤ЦЗ "FURTHER INFORMATION SHOULD BE"(ЎаЗ "ADDRESSED TO THE PERMISSIONS")
кЗ "DEPARTMENT ...")0┤З "   JOHN WILEY & SONS, INC.")6╛З)[╚З "PRESS ANY KEY TO CONTINUE...")m╥Е  Т│"" з 210)|▄А I│1 е 50)ИцН P$(I))РЁЛ I)м·Ж "NUMEROLO","STOPWATC")┼ Ж "ACT YOUR","PIANO")▐
Ж "PRIMES","I CHING")·
	Ж "KALEIDOS","PAINTBOX"*
Ж "SKETCHPA","PRINT@ W"*.
Ж "DICE","CRAP-SHO"*G
Ж "BOULE","ROULETTE"*^
Ж "PRINT@","ASCII"*z
"Ж "GRAPHICS","CHR$ TES"*Ц
'Ж "KEYBOARD","DATABASE"*▒
,Ж "SPELLING","HANGMAN"*╠
1Ж "ODDS ON","MAGIC DI"*ч
6Ж "HEX TIME","INVOICE"+
;Ж "SALES LE","COIN ANA"+
@Ж "BAR CHAR","ELECTRON"+7
EЖ "SORT","SORT DEM"+R
JЖ "INPUT RO","DEFAULT"+n
OЖ "PEEK THE","POKE THE"+Й
TЖ "JUSTIFIC","BULLS &"+е
YЖ "SIMON SA","MINEFIEL"+╝
^Ж "MAZE","WORSEAR"+╒
cЖ "DECISION","OUIJA"+я
hЖ "QUESTION","TENPIN",	
mЖ "TARGET","THE BALL",#
rЖ "BUSTOUT","SKYLINE",0
ЪI│0: J│0,8
дЮ 3,[
оЗ@32,"SELECT A PROGRAM TO RUN",g
╕З@64,"",x
┬I│Iл1: J│Jл1,Й
╠Е I▓50 з I│1,Ч
╓З I,P$(I),▓
рЕ Jо10┤▓ Б(Jо10) з 450,╕
ъЗ,т
ЇЗ@448,"INPUT PROGRAM # OR / FOR MORE",ы
■Й R$,■Е R$│"/" з 420-K│ Й(R$)-EЕ 0┤K ░ K┤│8 з И K Бе 701,702,703,704,705,706,707,708-В&Е 8┤K ░ K┤│16 з И Kм8 Бе 709,710,711,712,713,714,715,716-┴0Е 16┤K ░ K┤│24 з И Kм16 Бе 717,718,719,720,721,722,723,724.:Е 24┤K ░ K┤│32 з И Kм24 Бе 725,726,727,728,729,730,731,732.?DЕ 32┤K ░ K┤│40 з И Kм32 Бе 733,734,735,736,737,738,739,740.~NЕ 40┤K ░ K┤│48 з И Kм40 Бе 741,742,743,744,745,746,747,748.еXЕ 48┤K ░ K┤│50 з И Kм48 Бе 749,750.░bБе 410.┐╜О"NUMEROLO.╬╛О"STOPWATC.▌┐О"ACT YOUR.щ└О"PIANO.Ў┴О"PRIMES/┬О"I CHING/├О"KALEIDOS/"─О"PAINTBOX/1┼О"SKETCHPA/@╞О"PRINT@ W/K╟О"DICE/Z╚О"CRAP-SHO/f╔О"BOULE/u╩О"ROULETTE/В╦О"PRINT@/О╠О"ASCII/Э═О"GRAPHICS/н╬О"CHR$ TES"/╝╧О"KEYBOARD/╦╨О"DATABASE/┌╤О"SPELLING/ш╥О"HANGMAN/Ў╙О"ODDS ON0╘О"MAGIC DI0╒О"HEX TIME0"╓О"INVOICE01╫О"SALES LE0@╪О"COIN ANA0O┘О"BAR CHAR0^┌О"ELECTRON0i█О"SORT0x▄О"SORT DEM0З▌О"INPUT RO0Х▐О"DEFAULT0д▀О"PEEK THE0│рО"POKE THE0┬сО"JUSTIFIC0╨тО"BULLS &0▀уО"SIMON SA0юфО"MINEFIEL0∙хО"MAZE1цО"WORDSEAR1чО"DEISION1"шО"OUIJA11щО"QUESTION1>ъО"TENPIN1KыО"TARGET1ZьО"THE BALL1hэО"BUSTOUT1vюО"SKYLINE1|чКINPUT RO0Х▐О"DEFAULT0д▀О"PEEK THE0│рО"POKE THE0┬сО"JUSTIFIC0╨тО"BULLS &0▀уО"SIMON SA0юфО"MINEFIEL0∙хО"MAZE1цО                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ┴ ├├├┴┬─┬┬┴├╞├├─┬─┬┬├├┴┴├┬!├┬┬┴┴┴┬─┼├┬├╞┬<╚├┬┴├─╞─┬┬─├─       DISKMENUBAS АNUMEROLOBAS"4STOPWATCBAS#BACT YOURBASKPIANO   BAS4PRIMES  BAS$√I CHING BAS%╞KALEIDOSBAS┼PAINTBOXBASиSKETCHPABAS&▐PRINT@ WBAS'ЄDICE    BAS╟CRAP-SHOBAS■BOULE   BAS(йROULETTEBAS)╢PRINT@  BASпASCII   BASўGRAPHICSBAS*нCHR$ TESBAS+кKEYBOARDBASжDATABASEBASdSPELLINGBAS,5HANGMAN BAS-ЮODDS ON BAS0MAGIC DIBAS^HEX TIMEBAS.╚INVOICE BAS/╝SALES LEBAS5COIN ANABASЭBAR CHARBAS0(ELECTRONBAS1╔SORT    BAS╤SORT DEMBASЪINPUT ROBAS2xDEFAULT BAS3╣PEEK THEBASёPOKE THEBASJUSTIFICBAS4<BULLS & BAS58SIMON SABAS╘MINEFIELBAS
uMAZE    BAS6hWORDSEARBAS7бDECISIONBAS
pOUIJA   BAS▓QUESTIONBAS8.TENPIN  BAS9єTARGET  BASрTHE BALLBAS	ЫBUSTOUT BAS:лSKYLINE BAS;№GRAPH   DAT
 f                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
1&:Г NUMEROLOGY&
Ю&6З@ 384,"ENTER YOUR NAME"&MЙ N$: Е N$│"" з 20&Z(C│0: N│0&m2А J│1 е  З(N$)&Е<C│ К( Р(N$,J,1))м64&ЬFЕ C┤1 ▒ C▓26 з 100&╡PЕ C▓9 з C│Cм9: Бе 80&╬ZN│NлC: Е N▓9 з N│Nм9&╓dЛ J'nЮ: З"NAME:-": З@ 65,N$: З@ 160,"NUMBER:-": З@ 224,N'0xЗ@320,"NEXT ONE PLEASE": О 20ME"&MЙ N$: Е N$│"" з 20&Z(C│0: N│0&m2А J│1 е  З(N$)&Е<C│ К( Р(N$,J,1))м64&ЬFЕ C┤1 ▒ C▓26 з 100&╡PЕ C▓9 з C│Cм9: Бе 80&╬ZN│NлC: Е N▓9 з N│Nм9&╓dЛ J'nЮ: З"NAME:-": З@ 65,N$: З@ 160,"NUMB                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
?&:Г STOPWATCH&(
Ю: З"PRESS KEY:-"&FА J│1 е  Д(1000)л100: Л J&VX│ Д(26)л64&p(а 255,1: З@ 271, Л(X)&y2 Я│0&Щ<I$│ Т: Е I$│"" з 60 :Д T│ Я&═FЕ I$┤▓ Л(X) з З@ 362,"WRONG KEY!": а 5,5: Бе 90&¤PЗ@ 352,"YOUR TIME:";Tо60;"SECONDS": а 200,5'#ZЗ@ 451,"PRESS SPACE TO TRY AGAIN"'>dЕ  Т│ Л(32) з О :Д 100: Л J&VX│ Д(26)л64&p(а 255,1: З@ 271, Л(X)&y2 Я│0&Щ<I$│ Т: Е I$│"" з 60 :Д T│ Я&═FЕ I$┤▓ Л(X) з З@ 362,"WRONG KEY!": а 5,5: Бе 90&¤PЗ@ 352,"YOUR TIME:";Tо60;"SECONDS": а 200,5'                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 °&:Г PRIMES&7
М P(1000): P(1)│2: P(2)│3: N│3: P│1&BБж 100&VPN│1: А J│2 е P&r(Е P(J)н2▓N з J│P: Бе 60&Ц2Е NоP(J)│ Б(NоP(J)) з PN│0: J│P&Ю<Л J&┐FЕ PN з P│Pл1: P(P)│N: Бж 100&рPЕ P│1000 з К :Д N│Nл2: Бе 30&ўdЗ P(P);"IS #";P: Р К(I$                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ├&:Г I CHING&%
L$│"": А J│0 е 4&7L$│L$л Л(159)&?Л J&V(P│74: Ю: А J│0 е 5&c2З@ P,L$;&Й<Е  Д(2)│1 з З  О(L$,2); :Д З"  ";&УFЗ L$;&ЮPP│Pл64&жZЛ J&┬dЕ  Т│ Л(32) з 40 :Д 100                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              █&:Г SKETCHPAD&+
└ 4: ╚ 4: ┐ 1,1: ╝ 1&;X│128: Y│96&F╛(X,Y)&P(I$│ Т&d2Е I$│"" з I$│L$&Ф<X│Xл((I$│ Л(9))н(X┤256))м((I$│ Л(8))н(X▓0))&╞FY│Yл((I$│ Л(10))н(Y┤192))м((I$│ Л(94))н(Y▓0))&╨PL$│I$&┌ZБе 30                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
я&:Г PRINT@ WHERE?&,'Ю: З"PLEASE WAIT"&>'╚ 3: ┴ 3,1: ╝&L'$М S(7,11)&h'.╞ "BM0,0;R7;D11;L7;U10"&~'8─(0,0)м(7,11),S,G&д'BА X│0 е 248 й 8: А Y│0 е 180 й 12&╛'L┼(X,Y)м(Xл7,Yл11),S,╜&╚'VЛ Y,X''`Ю: З"WHICH 'PRINT@' POSITION (0-511)",,,: Й"(ENTER X IF NOT REQUIRED)";P$'+'jЕ P$│"X" з 10180'Q'tP│ Й(P$): Е P│0 ░ P$┤▓"0" з 10080'k'~Е P┤0 ▒ P▓511 з 10080'Д'ИY│ Б(Pо32): X│PмYн32'Ъ'ТX│Xн8л4: Y│Yн12л6'░'Ь┐ 1,0: ├(X,Y),4,3'╗'жа 50,5'╧'░Е  Т│"" з 10160'ш'║├(X,Y),1,3: Бе 10080'ю'─К",,,: Й"(ENTER                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ж&:Г BOULE&N
А J│1 е 5: Y$│Y$л Л(159): B$│B$л Л(128): R$│R$л Л(191): Л J&xY1$│ Л(159): B1$│ Л(128): R1$│ Л(191)&~Ю&К(N│ Д(9)&в2F│ Д(600)л300:  Я│0&╤<И N Бж 210,220,230,240,250,260,270,280,290&ёFа Nн10,3: А J│1 е  Яо4: Л J'PЕ  Я▓│F з 300'%ZА J│A е Aл128 й 32: З@ J: Л J'=dN│Nл1: Е N│10 з N│1'GnБе 60'[╥A│35: Бж 400: Р'p▄A│291: Бж 600: Р'ДцA│42: Бж 400: Р'ЩЁA│298: Бж 600: Р'о·A│174: Бж 500: Р'┬
A│49: Бж 400: Р'╫
A│305: Бж 600: Р'ы
A│56: Бж 400: Р(
"A│312: Бж 600: Р(C
,З@ 416,"PAY:";N;":";: Е N│5 з З " ALL OTHER BETS LOSE": Бе 340(u
6Е Nо2│ Б(Nо2) з З" PAIR :"; :Д З " IMPAIR :";(Я
@Е N▓5 з З" PASSE :"; :Д З" MANQUE :";(├
JЕ A▓200 з З" ROUGE" :Д З" NOIR"(ы
TЗ@ 483,"PRESS SPACE TO PLAY AGAIN";)

^Е  Т│ Л(32) з Ю: Бе 50 :Д 350)?
РЗ@ A,B$;: З@ Aл32,B1$;;N;B1$;: З@ Aл64,B$;: Р)t
ЇЗ@ A,Y$;: З@ Aл32,Y1$;" 5 ";Y1$;: З@ Aл64,Y$;: Р)еXЗ@ A,R$;: З@ Aл32,R1$;N;R1$;: З@ Aл64,R$;: Р200 з З" ROUGE" :Д З" NOIR"(ы
TЗ@ 483,"PRESS SPACE TO PLAY AGAIN";)

^Е  Т│ Л(32) з Ю                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 │&:Г ROULETTE&6
М S$(5): А J│1 е 5: Н S$(J): Л J&ЙЖ "RANDOM BETTING","MARTINGALE","REVERSE MARTINGALE","D'ALAMBERT","LABOUCHERE"&ЫS│1: P│0: T│0&з(WAIT│50&щ2Ю: З"CHOOSE YOUR SYSTEM": А J│1 е 5: З@ Jн64,J;д3);S$(J): Л J'<I│ Й( Т): Е I┤1 ▒ I▓5 з 60'FЕ I│5 з Бж 5000'cPЮ: З"USING THE ";S$(I);" SYSTEM",,,"BETTING CONSISTANTLY ON EVENS"'yZN│ Д(37)м1: T│Tл1'ЧdЗ@ 128,"CURRENT BET: $";S'бnP│PмS'ёxЗ@ 224,"THIS SPIN IS";N;: Е N│0 з З" (STANDOFF)": P│PлSо2: а 100,10: Бе 150(]ВЕ Nо2┤▓ Б(Nо2) з З" (ODD)",,,"BET LOSES": а 5,5: W│0 :Д З" (EVEN)",,,"BET WINS": а 200,5: W│м1: P│PлSлS(БМИ I Бж 1000,2000,3000,4000,5100(╢ЦЗ@ 416,"POSITION AFTER";T;"SPIN";: Е T▓1 з З"S";(хаЗ":","$";P;: Е P┤0 з З"LOSS" :Д З "PROFIT")кА J│1 е WAIT: Е  Т│ Л(32) з О)┤Л J: Бе 90)#шВ RANDOM)8ЄS│S: В NO CHANGE)>№Р)O╨В MARTINGALE)f┌Е W з S│1 :Д S│Sн2)lфР)В╕В REV. MARTINGALE)Щ┬Е W з S│Sн2 :Д S│1)Я╠Р)░аВ D'ALAMBERT)╓кЕ W з S│Sм1: Е S┤1 з S│1: Бе 4030)р┤S│Sл1)ц╛Р)ўИВ LABOUCHERE*ТA$│ Л(1)л Л(2)л Л(3)л Л(4)*6ЬS│ К( О(A$,1))л К( П(A$,1))*<жР*MьЕ и W з 5200*cЎЕ  З(A$)┤3 з 5010*ЕA$│ Р(A$,2, З(A$)м2): Бе 5020*ЩPЕ S▓255 з S│255*▓ZA$│A$л Л(S): Бе 5020Е W з S│Sм1: Е S┤1 з S│1: Бе 4030)р┤S│Sл1)ц╛Р)ўИВ LABOUCHERE*ТA$│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 к&:Г GRAPHICS TEST&%
R$│"WRONG"&JX│ Д(127): Е Xо16│ Б(Xо16) з X│0&VX│Xл128&vЮ: З"WHAT IS THE CODE FOR:"&И(З@ 112, Л(X);&С2 Я│0&Ы<A$│""&еFI$│ Т&ЎPN│ Я: Е N▓Tл60 з T│N: Z│Zл1: З@ (Zн32)м2, Л(255);: а Zн10,1: Е Z│10 з Бж 200'UЕ Z│16 з R$│"OUT OF TIME": Бе 150'?ZЕ I$▓│"0" ░ I$┤│"9" з A$│A$лI$'ldЕ I$│ Л(8) ░ A$┤▓"" з A$│ О(A$, З(A$)м1)'ВnЗ@ 384,A$л Л(32);'ШxЕ I$│ Л(13) з 140'вВБе 70'пМY│ Й(A$)'╚ЦЕ Y│X з R$│"CORRECT"'щаЗ@ 416,R$;". THE CODE IS";X;(кЗ@ 448,"PRESS SPACE TO TRY AGAIN";(+┤Е  Т│ Л(32) з О :Д 180(@╚C│ Б((Xм128)о16)(X╥З@ 160, Л(128);128;(г▄А J│1 е 15: З@ 160л(8нJ)л(32н Б(Jо4)),  Л(128лJл16нC);128лJл16нC;: Л J(йцРA$)'╚ЦЕ Y│X з R$│"CORRECT"'щаЗ@ 416,R$;". THE CODE IS";X;(кЗ@ 448,"PRESS SPA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
з&:Г CHR$ TEST&2
J│ Д(86)л31: Е J▓90 з J│Jл5&QЮ: З"WHAT IS CHR$(";J;")?"&mI$│ Т: Е I$┤ Л(32) з 30&z(A│ К(I$)&Ц2З@ 64,"YOU PRESSED ";I$&╗<Е A│J з З@ 128,"CORRECT": Бе 100&юFЗ@ 128,"WRONG": З@ 192,"CHR$(";J;") IS "; Л(J)'PЕ J▓90 з З@ 256,"(SHIFT-0 AND "; Л(Jм32);")"'dZЕ A▓90 ░ A│Jл32 з З@ 256,"(PRESS SHIFT-0 TO RELEASE SHIFT LOCK)"'КdЗ@448,"PRESS 'ENTER' FOR ANOTHER"'жnЕ  Т│ Л(13) з 10 :Д 110,"CORRECT": Бе 100&юFЗ@ 128,"WRONG": З@ 192,"CHR$(";J;") IS "; Л(J)'PЕ J▓90 з З@                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  2&[:Г SPELLING QUIZ                   (USE WITH CASSETTE AND           DATABASE PROGRAM)&
Х 5000: Ю: Й"ENTER FILENAME";N$&ТЮ: З"LOAD ";N$&гЩ "I",#м1,N$&╢(З"READING ";N$&┬2Й #м1,N&╬<М W$(N)&їFА J│1 е N: Й #м1,W$(J): Л J: Ъ #м1'PА J│1 е N'ZЮ: З"SPELL THE WORD:"'0dЯ И: б И:  Я│0'DnЕ  Я┤│290 з 110'QxЯ к: б к'ZВЙ T$'╗МЕ T$│W$(J) з S│Sл1: З@ 160,"CORRECT" :Д З@ 160,"WRONG",,,,"THE CORRECT SPELLING IS:",,,W$(J)'рЦЗ@ 416,"PRESS SPACE TO CONTINUE"'ўаЕ  Т┤▓ Л(32) з 160' кЛ J(1┤Ю: З"TEST OVER.",,,,"YOU SCORED";S;"OUT OF";NnЕ  Я┤│290 з 110'QxЯ к: б к'ZВЙ T$'╗МЕ T$│W$(J) з S│Sл1: З@ 160,"CORRECT" :Д З@ 160,"WRONG",,,,"THE CORRECT SPELLING IS:",,,W$(J)'рЦЗ@ 416,"PRESS SPACE TO CONTINUE"'ўаЕ  Т┤▓ Л(32) з 160' кЛ J                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ы&>:Г HANGMAN (USE WITH CASSETTE      AND DATABASE PROGRAM)&b
Х 5000: Ю: Й"ENTER FILENAME";N$&uЮ: З"LOAD ";N$&ЖЩ "I",#м1,N$&Щ(З"READING ";N$&д2Й#м1,N&░<М W$(N)&╫FА J│1 е N: Й #м1,W$(J): Л J: Ъ #м1&хPА J│1 е N'ZX│ Д(N): Е W$(X)│"" з 90'#dT$│W$(X): L│ З(T$): W$(X)│""')nП'MxЮ 0: А K│1 е L: З  Л(178);: Л K'ZВS│0: C│0'sМI$│ Т: Е I$│"" з 140'ЖЦF│0: А K│1 е L'╨аЕ  Р(T$,K,1)│I$ з З@ Kм1,I$;: а 200,5: F│1: C│Cл1:  Р(T$,K,1)│ Л(128)'╪кЛ K(%┤Е F│0 з а 5,5: S│Sл1: И S Бж 270,280,290,300,310,320,330,340,340,350,350(5╛Е C│L з 220(F╚Е S┤11 з 140(И╥З@ 256,"FAILURE";: З@ 320,"YOU OMITTED:";: З@ 384,T$;: Бе 230(Ю▄З@ 256,"SUCCESS";(╕цЗ@ 480,"PRESS SPACE";(╧ЁЕ  Т┤▓ Л(32) з 240(╫·Л J(Ё
Ю: З"END OF FILE": К)
А K│494 е 510: З@ K, Л(243);: Л K: Р)X
А K│150 е 470 й 32: З@ K, Л(250);: Л K: З@ 502, Л(251);: Р)Б
"А K│118 е 123: З@ K, Л(243);: Л K: Р)╣
,З@ 151, Л(241); Л(248);: З@ 182, Л(251); Л(248);: Р)╨
6З@ 155, Л(149);: Р*
@З@ 187, Л(175); Л(175);: З@ 219, Л(173); Л(174);: Р*
JT│14: Бж 360: Р*/
TT│7: Бж 360: Р*B
^T│3: Бж 360: Р*l
hА K│1 е T: Н A,B: З@ A, Л(B);: Л K: Р*т
rЖ 250,209,251,215,252,219,253,210,282,213,283,223,284,223,285,218,314,213,315,223,316,223,317,218,347,221,348,222+ 
|Ж 378,209,379,216,409,209,410,216,441,213,472,212,473,220+^
ЖЖ 380,212,381,210,413,212,414,210,446,218,478,220,479,216+|
РЖ 250,211,281,214,313,218+Ъ
ЪЖ 253,211,286,217,318,2133,223,284,223,285,218,314,213,315,223,316,223,317,218,347,221,348,222+ 
|Ж 378,209,379,216,409,20                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
┼&:Г HEX TIMES TABLE&
Ю&-А J│1 е 15&LЗ  Ь(J);" X F = "; Ь(Jн15)&T(Л J&j2А J│1 е 5000: Л J&У<Ю: A│ Д(16): B│15: В ***OR B=RND(15)&╢FЗ"WHAT IS "; Ь(A);" X "; Ь(B);&═PЙ A$: Е A$│"" з 80&хZX│0: А J│1 е  З(A$)'dZ│ К( Р(A$,J,1)): Е Z┤48 ▒ Z▓70 ▒ (Z▓57 ░ Z┤65) з X│1'1nЛ J: Е X з 70'CxC│ Й("&H"лA$)'АВЕ C│AнB з З"CORRECT" :Д З"WRONG. THE ANSWER IS "; Ь(AнB)'иМЗ@ 322,"PRESS SPACE FOR ANOTHER GO"'─ЦЕ  Т│ Л(32) з 60 :Д 150" з 80&хZX│0: А J│1 е  З(A$)'dZ│ К( Р(A$,J,1)): Е Z                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╣&
:Г INVOICE&9
Х 10000: М A$(100,4),N$(4),SL$(10,3)&UА J│1 е 4: Н N$(J): Л J&ДF$│"#####- %                            %"&╝(F$│F$л" #####.##- #####.##-  #####.##-   #####.##-"&ы2G$│"       TOTAL                         "'#<G$│G$л"           #####.##-  #####.##-   #####.##-"'RFH$│" QTY.                                "'ЙPH$│H$л"        @       NET        TAX       TOTAL"'ЮZTAX│6: NC│0: C│0(+dЮ:З"SELECT 1,2,3 OR 4": З@128,"1: LOAD CUSTOMER LIST",,,"2: PRODUCE INVOICE",,,"3: RECORD CUSTOMER FILE",,,"4: RECORD SALES LEDGER FILE"(NnI$│ Т: Е I$┤"1" ▒ I$▓"4" з 110(rxИ  Й(I$) Бж 1000,2000,3000,4000(}ВБе 100(ЫшЮ: З"SET UP DISK TO LOAD"(╣ЄЗ"PRESS SPACE WHEN READY"(╪№Е  Т│ Л(32) з 1030 :Д 1020(яЮ: З"LOADING FILE")Щ "I",#1,"CUSTOMER")Й#1,NC),$А J│1 е NC: А K│1 е 4)?.╗ Й#1, A$(J,K))Q8Л K,J: Ъ#1: Р)g╨Е C│10 з а 5,5: Р)|┌Ю: Е NC│0 з 2060)ЬфА J│1 е NC: З J;д4);A$(J,1))╕юЕ Jо14┤▓ Б(Jо14) з 2050)╨°Е  Т│"" з 2040 :Д Ю)╪Л J)рR│0)ЎЗ"0 NEW CUSTOMER"*Й"CUSTOMER NUMBER ";T*( Е T┤0 ▒ T▓NC з 2070*9*Е T▓0 з 2140*E4NC│NCл1*V>Ю: А J│1 е 4*АHЗ"ADDRESS LINE";J;: ╗ Й A$(NC,J): Л J*ЙMT│NC*ФNW$│" "*└RЗ:З "OUTPUT TO S)CREEN OR P)RINTER?";W$+SЗ: З"WARNING: IF YOU CHOOSE PRINTER  AND NO PRINTER IS CONNECTED,    PROGRAM WILL HANG!"+2TЙ"S OR P?";W$:Ю +EUЕ W$│"P" з R│2+YVЕ R│2 з Бж 8000+lWЕ W$│"S" з R│0+АXЕ R│0 з Бе 2140+░\А J│1 е 4: З#мR,д40м З(N$(J))о2);N$(J): Л J+╙pЗ:А J│1 е 4: З#мR,A$(T,J): Л J+ЇtЗ:З"PRESS SPACE TO CONTINUE",xЕ  Т│ Л(32) з Бж 8000 :Д 2168,"zБж 8000,4ДЮ: Й"DATE";D$,OОЙ "INVOICE NUMBER";IN$,mУЗ:Е R│2 з З#мR,"DATE ";D$,ТШЕ R│2 з З#мR,"INVOICE NO. ";IN$ ,мЫЕ  Т│ Л(32) з Бж 8000,╩ЭЕ R│2 з З#мR:Е R│2 з З#мR,▐вЕ R│2 з З#мR,H$,ємTP│0: TV│0: TS│0-оЗ:З"PRESS SPACE TO CONTINUE"-3░Е  Т│ Л(32) з 2230 :Д 2224-H╢Ю: Й"QUANTITY";Q-\└Й"NARRATIVE";T$-p╩Й"UNIT PRICE";U-z╘P│QнU-О▐Й"TAX (Y/N)";V$-суЗ:З"LINE 2280 IS THE LINE TO CHANGE IF YOU WISH TO CHANGE THE SALES TAX RATE.".шЕ V$│"Y" з V│ Б(PнTAXл.5)о100: S│PлV :Д V│0: S│P.4ЄTP│TPлP: TV│TVлV: TS│TSлS.W№Е R│2 з З#мR,═ F$;Q;T$;U;P;V;S.x	З:З"PRESS SPACE TO CONTINUE".Ъ	Е  Т│ Л(32) з Бе 7500 :Д 2315.┐	$Е R│2 з З#мR: З#мR,═ G$;TP;TV;TS.ч	.Ю: З"ACCEPT OR REJECT THIS INVOICE".ў	3З"A OR R??"/
	4I$│ %&/:Г BAR CHARTS, PIE CHARTS AND      GRAPHS&Z
М S(3,14): А J│1 е 3: S(J,0)│1800: Л J&▒Ю: З@ 64,"1: DATA":З@ 128,"2: GRAPH": З@ 192,"3: PIE CHART": З@ 256,"4: BAR CHART"&╙I$│ Т: Е I$┤"1" ▒ I$▓"4" з 30&ї(Е I$▓"1" ░ M│0 з а 5,5: Бе 20'2И  Й(I$) Бе 100,1000,2000,3000'CdЮ: З"LOAD A PREVIOUS DATA FILE? (Y/N)"'hnI$│ Т: Е I$┤▓"Y" ░ I$┤▓"N" з 110'ТxЕ I$│"Y" з Q$│"INPUT": Бж 200: Бе 240'мВЕ M│12 з а 5,5: Бе 20(*МЮ: M│Mл1: З@ 10,"MONTH NUMBER";M: А J│1 е 3: З@ Jн64,"SALES FOR SALESMAN #";J;: Й T: S(J,M)│1800мT: Е S(J,M)┤0 з S(J,M)│0(@СS(J,13)│S(J,13)лT(HЦЛ J(`аQ$│"OUTPUT": Бж 200(кЗ#1,M:А J│1 е 3: А K│1 е M(У┤З#1,S(J,K): Л K(и╣З#1,S(J,13): Л J(╕╛Ъ #1: Бе 20(Ў╚Ю: З"SET UP DISK FOR ";Q$: З@ 64,"PRESS SPACE WHEN READY")╥Бж 4000)▄Щ  О(Q$,1),#1,"GRAPH")"цР)BЁЙ#1,M: А J│1 е 3: А K│1 е M)V·Й#1,S(J,K): Л K)k Й#1,S(J,13): Л J)z
Ъ#1: Бе 20)М
Ї╚ 3: ┐ 1,1: ╝)г
■╗(16,0)м(16,180),╜)╜╗(16,180)м(256,180),╜)тА X│16 е 256 й 24: ╜(X,182): Л X*А Y│0 е 180 й 20: ╜(14,Y): Л Y*&Р*шБж 500*/ЄА J│1 е 3: А K│1 е M*;№┴ Jл5,5*p╗(16л(Kм1)н20,S(J,Kм1)о10)м(16лKн20,S(J,K)о10),╜*zЛ K,J*ЖБж 4000*Р$Бе 20*╗╨SUM│0: А J│1 е 3: SUM│SUMлS(J,13): Л J*у┌А J│1 е 3: S(J,14)│S(J,13)оSUM: Л J*їф╚ 3: ┐ 1,1: ╝+юX│128: Y│96+!°F│0: А J│1 е 3: ┴ Jл5,5+6S│F: F│FлS(J,14)+H┬(X,Y),96,Jл5+y╗(X,Y)м(Xл96н Х(6.283нS),Yл96н Е(6.283нS)),╜+к ╗(X,Y)м(Xл96н Х(6.283нF),Yл96н Е(6.283нF)),╜+ы*├(Xл90н Х(6.283н((FлS)о2)),Yл90н Е(6.283н((FлS)о2))),Jл5,Jл5+є4Л J,>┬(X,Y),96,5,HБж 4000: Бе 20,)╕R│0: А J│1 е 3,4┬Бж 500,K╠А K│1 е M: ┴ Jл5,J,{╓╗(16л(Kм1)н20,180)м(16лKн20,S(J,K)о10),╜,BF,ГрЛ K,къА K│1 е 500: I$│ Т: Е I$│"" з 3090,┴ЇЕ I$│"R" з Бж 4000,╫■Е I$│ Л(32) з R│1,сK│500,щЛ K,ёЛ J-&Е R│1 з 20 :Д 3000-$аЕ  Т│ Л(32) з Р :Д 4000 3,4┬Бж 500,K╠А K│1 е M: ┴ Jл5,J,{╓╗(16л(Kм1)н20,180)м(16лKн20,S(J,K)о10),╜,BF,ГрЛ K,къА K│1 е 500: I$│ Т: Е I$│"" з 3090,┴ЇЕ I$│"R" з Бж 4000,╫■Е I$│ Л(32) з R│1,сK│500,щЛ K,ёЛ J-&Е R│1 з 2                                                                                                                                                                                                                                                                 ╞&:Г ELECTRONIC MAIL&1
Х 15000: М A$(10,10)&YЮ: З@ 128,"1: SEND",,,,"2: RECEIVE"&{I$│ Т: Е I$┤"1" ▒ I$▓"2" з 30&У(И  Й(I$) Бе 100,200&╖dЮ: Й"RECIPIENT NUMBER (1-10)";N&╫nN│ Б(N): Е N┤1 ▒ N▓10 з 100'xБж 500: Е M│10 з З"MAILBOX FULL": А J│1 е 500: Л J: Бе 20'9ВЗ"ENTER YOUR MESSAGE:",,,: Й T$'NМA$(N,Mл1)│"*"лT$'XЦБе 20'}╚Ю: Й"ENTER YOUR PERSONAL CODE";N'Э╥N│ Б(N): Е N┤1 ▒ N▓10 з 200'и▄Бж 500'╦цА J│1 е M: Е M│0 з M│1: Бе 260'сЁЮ: З"MESSAGE #";J'є·З@ 65,A$(N,J)(9
Е J│M з З@ 423,"NO FURTHER MESSAGES" :Д З@ 424,"FOR NEXT MESSAGE"(S
З@ 490,"PRESS SPACE";(j
Е  Т┤▓ Л(32) з 280(y
"A$(N,J)│""(И
,Л J: Бе 20(Ь
ЇM│0: А J│1 е 10(║
■Е  О(A$(N,J),1)│"*" з M│J(┼Л J: Р260'сЁЮ: З"MESSAGE #";J'є·З@ 65,A$(N,J)(9
Е J│M з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
u&:Г INPUT ROUTINE&=шPROMPT$│"ENTER YOUR NAME ": MAX│10&hЄЮ: З PROMPT$;: А J│1 е MAX: З"-";: Л J&r№A$│""&ЛP│ З(PROMPT$)л З(A$)&ЩЗ@ P,"?";&│I$│ Т: Е I$│"" з 1050'$Е (I$│ Л(8) ▒ I$│ Л(21)) ░ A$┤▓"" з A$│ О(A$, З(A$)м1): З@ P,"-";: Бе 1030'".Е I$│ Л(13) ░ A$┤▓"" з 1110'98Е I$┤ Л(32) з 1030'PBA$│A$лI$: З@ P,I$;'hLЕ  З(A$)┤MAX з 1030'tVЗ@ P: ЗP│ З(PROMPT$)л З(A$)&ЩЗ@ P,"?";&│I$│ Т: Е I$│"" з 1050'$Е (I$│ Л(8) ▒ I$│ Л(21)) ░ A$┤▓"" з A$│ О(A$, З(A$)м1): З@ P,"-";: Бе 1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╢&:Г DEFAULT&AшPROMPT$│"ENTER REQUIRED FILE": FAULT$│"FILE"&TЄLP│ З(PROMPT$)&v№Ю: З@ 64,PROMPT$;"   ";FAULT$&НЗ@ 65лLP,"";: Й A$&еЕ A$│"" з A$│FAULT$&╡З@ 67лLP,A$1)) ░ A$┤▓"" з A$│ О(A$, З(A$)м1): З@ P,"-";: Бе 1030'
.Е I$│ Л(13) ░                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 9:Г JUSTIFICATION$
Ю: Х 10001М A$(10)LА J│0 е 10: А K│0 е 31d(I$│ Т: Е I$│"" з 40Й2Е I$│ Л(13) з K│31: J│10: Бе 100и<Е I$┤ Л(32) з а 5,1: Бе 40┬FA$(J)│A$(J)лI$: З I$;ьPЕ I$│ Л(32) ░ K▓25 з а 100,1: З: K│31
ZЕ K│25 з а 200,1dЛ K,J╚А J│0 е 10'╥T$│A$(J)Z▄Е  П(T$,1)│ Л(32) з T$│ О(T$, З(T$)м1): Бе 220{цЕ  З(T$)│0 ▒  З(T$)│32 з 280ОЁS$│ Л(32): P│0╓·P│ Ю(Pл1,T$,S$): Е P│0 з S$│S$л Л(32): Е  З(S$)│ З(T$) з 280 :Д 250
T$│ О(T$,P)л Л(32)л П(T$, З(T$)мP): P│Pл1: З@ Jн32,T$;(
Е  З(T$)┤▓32 з 2508
Л J: З@ 3842) з T$│ О(T$, З(T$)м1): Бе 220{цЕ  З(T$)│0 ▒  З(T$)│32 з 280ОЁS$│ Л(32): P│0╓·P│ Ю(Pл1,T$,S$): Е P│0 з S$│S$л Л(32): Е  З(S$)│ З(T$) з 280 :Д 250
T$│ О(T$,P)л Л(32)л П(T$, З(T$)мP):                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  5:Г BULLS AND COWS,
М A(3),B(3),C(3)MS$│ Л(128)л Л(128): S│1: Ю 0nА J│0 е 3: A(J)│ Д(6)л1: Л JД(З  П( И(S),2);S$;Т2А J│0 е 3┤<I$│ Т: Е I$┤"2" ▒ I$▓"7" з 60╨FЗ S$; Л( Й(I$)н16л124);ыPB(J)│ Й(I$): C(J)│A(J)єZЛ JdЗ S$;: P│0&nА J│0 е 3: Е B(J)│C(J) з Бж 500.xЛ JeВЕ P│4 з З@ Sн32,"    THAT IS CORRECT IN";S: Бе 300~МА J│0 е 3: А K│0 е 3бЦЕ B(J)┤▓0 ░ B(J)│C(K) з Бж 600лаЛ K,JркЕ P│0 з а 5,5 :Д Е P┤▓4 з А J│P е 3: а 25,5: Л J┤CP│ Ъ(м0): А J│CP е 31: З  Л(128);: Л J$╛S│Sл1: Е S┤▓11 з 40K╚З"YOU HAVE FAILED TO BREAK CODE:-"{╥А J│0 е 3: З@ 422л3нJ, Л(A(J)н16л124);: Л Jг
,З@ 483,"PRESS SPACE TO PLAY AGAIN";╛
6Е  Т│ Л(32) з О :Д 310╨
ЇЗ S$; Л(136);є
■а 200,5: B(J)│0: C(J)│0: P│Pл1∙РXЗ S$; Л(248);.bа 180,5: B(J)│0: C(K)│0: P│Pл14lРLED TO BREAK CODE:-"{╥А J│0 е 3: З@ 422л3нJ, Л(A(J)н16л124);: Л Jг
,З@ 483,"PRESS SPACE TO PLAY AGAIN";╛
6Е  Т│ Л(32) з О :Д 310╨
ЇЗ S$; Л(136);є
■а 200,5: B(J)│0: C(J)│0: P│Pл1∙РXЗ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 e
:Г MAZE$
└ 4: ╚ 3: ┐ 1,1: ╝3М S(15,15)P╞"BM0,0;R15;D15;L15;U14"g(─(0,0)м(15,15),S,GО2А X│0 е 240 й 16: А Y│0 е 176 й 16й<┼(X,Y)м(Xл15,Yл15),S,╜│FЛ Y,X╦PC│6: А J│1 е 9: Н AфZА K│0 е 2: А M│0 е 2dP│AлKл16нM: Бж 2000: Бж 3000nЛ M,K,JIxC│7: P│191: Бж 2000: Бж 3000: P│0: Бж 2000: Бж 4000S╛A$│""b╚а 150,5: Ю▓╥З"PRESS:",,,,"1: TO SEE THE MAZE",,,"2: TO EXTEND YOUR PATH",,,"3: TO MOVE"╓▄З@352,"YOUR PATH SO FAR:-",,,A$∙цI$│ Т: Е I$┤"1" ▒ I$▓"3" з 230ЁИ  Й(I$) Бе 300,400,500:
,┐ 1,1: А J│1 е 1000: Л J: Бе 200a
Ра 200,5: Ю: З"ENTER YOUR PATH",,,,й
ЪI$│ Т: Е I$│ Л(13) ▒ I$│"U" ▒ I$│"D" ▒ I$│"L" ▒ I$│"R" з 420 :Д 410┐
дЕ I$│ Л(13) з 200█
оA$│A$лI$: З I$;: Бе 410·
ЇW│0: ┐ 1,1: А J│1 е  З(A$)
■C│5: Бж 3000I$│ Р(A$,J,1)PPN│Pм(I$│"R")л(I$│"L")м16н(I$│"D")л16н(I$│"U")ДЕ PN┤0 ▒ PN▓191 з W│5: J│ З(A$): Бе 590 :Д P│PNХ&C│7: Бж 2000└0Е  а(X,Y)│7 з W│м1: J│ З(A$): а 200,30р:Е  а(X,Y)│6 з W│6: J│ З(A$)їDБж 4000: а 250,5	NЛ J: Е W з 1000'XА J│1 е 1000: Л J: Бе 190<шА J│1 е 500: Л JЬЄЮ: Е W▓0 з а 5,20: C│W: Бж 3000: З@ 172,"BAD LUCK" :Д З@ 162,"YOU MADE IT, CONGRATULATIONS"├№З@ 451,"PRESS SPACE TO PLAY AGAIN"сЕ  Т│ Л(32) з 120 :Д 1030·╨Y│ Б(Pо16): X│PмYн16┌X│Xн16л8: Y│Yн16л8фР&╕├(X,Y),C,4,┬Р;а┬(X,Y),5,7AкРdИЖ 5,17,25,45,70,82,107,146,1522,"BAD LUCK" :Д З@ 162,"YOU MADE IT, CONGRATULATIONS"├№З@ 451,"PRESS SPACE TO PLAY AGAIN"сЕ  Т│ Л(32) з 120 :Д 1030·╨Y│ Б(Pо16): X│PмYн16┌                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ю:Г WORDSEARCH:
М A$(10),W$(15,15),S(10,1),D(10,1)UЮ: А J│1 е 10: Н A$(J)wЗ"INSERTING ";A$(J): а Jн10,1Й(L│ З(A$(J))м1в2SX│ Д(15): SY│ Д(15)╤<DX│ Д(3)м2: DY│ Д(3)м2: Е DX│0 ░ DY│0 з 60ьFFX│SXлLнDX: FY│SYлLнDYPЕ FX┤1 ▒ FX▓15 ▒ FY┤1 ▒ FY▓15 з 50!ZА K│0 е LQdЕ W$(SXлDXнK,SYлDYнK)│ Р(A$(J),Kл1,1) з 120tnЕ W$(SXлDXнK,SYлDYнK)┤▓"" з 50|xЛ KлВS(J,0)│SX: S(J,1)│SY: D(J,0)│DX: D(J,1)│DY╗МR$│R$лA$(J)╔ЦА K│0 е LёаW$(SXлDXнK,SYлDYнK)│ Р(A$(J),Kл1,1)√кЛ K,J
┤Ю╛А J│1 е 150╚Е J┤11 з З@ 32нJл19,J;A$(J)?╥А K│1 е 15p▄T$│W$(J,K): Е T$│"" з T$│ Р(R$, Д( З(R$)),1)ВцЗ@ Jн32лK,T$;МЁЛ K,JЮ·Е  Т│"" з 250н
А J│1 е 10┼
А K│0 е  З(A$(J))м1

З@ 32н(S(J,0)лD(J,0)нK)лS(J,1)лD(J,1)нK, Л( К( Р(A$(J),Kл1,1))л32);#
"Л K: а 100,1: Л J:
,Е  Т│"" з 300 :Д ОЭ
ЇЖ "DRAGON","TANDY","COMMODORE","ACORN","APPLE","ATARI","SINCLAIR","SHARP","JUPITER","NEWBRAIN"н
А J│1 е 10┼
А K│0 е  З(A$(J))м1

З@ 32н(S(J,0)лD(J,0)нK)лS(J,1)лD(J,1)нK, Л( К( Р(A$(J                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
+:Г ???
╚ 4: ┐ 1,1: ╝3А J│8 е 168 й 40L╗(80,J)м(130,Jл15),╜s(Е J┤168 з ╗(150,Jл20)м(100,Jл35),╜{2Л JЖ<X│3790ТFТ X,119╛PЕ  Ж(Xл32)│0 з NX│Xл32: а 200,1: Бе 100фZЕ  Ж(Xл1)│0 з NX│NXл33 :Д NX│Xл31ЇdТ X,0: X│NXnЕ X┤9400 з 70 xА J│1 е 5: а 5,2: Л J*ВБе 608 й 40L╗(80,J)м(130,Jл15),╜s(Е J┤168 з ╗(150,Jл20)м(100,Jл35),╜{2Л JЖ<X│3790ТFТ X,119╛PЕ  Ж(Xл32)│0 з NX│Xл32: а 200,1: Бе 100фZЕ  Ж(Xл1)│0 з NX│NXл33 :Д NX│Xл31ЇdТ X,0: X│NXnЕ X┤94                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
Ё:ГTENPIN
Ю 0GА J│1 е 10: Н X: З@ X, Л(143л16н Д(7));: Л J]S│0: B│1: З@ 0,S;k(А J│0 е 3w2Т 135,0З<З@ 480,BлJ;ХFX│4: Y│16▌PЕ  С(X,Y) з З@  Б(Yо2)н32л Б(Xо2), Л(128);: а 200,1: S│Sл1: З@ 0,S;ъZЬ(X,Y,2)їdNX│Xл1nP│ Ж(135)xNY│Yл(P│94)м(P│10)6ВЕ NY┤0 з NY│1: Т 135,10TМЕ NY▓31 з NY│30: Т 135,94kЦЭ(X,Y): X│NX: Y│NY{аЕ X┤64 з 80Жка 50,5О┤Л Jз╛З@ 64,"PRESS SPACE";┬╚Е  Т│ Л(32) з О :Д 200я╥Ж 61,123,153,189,215,251,317,345,379,445Xл1nP│ Ж(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 и&:Г BUSTOUT&
B│1:  Я│0&hЮ 0: З"BALL:";B,"SCORE:";S: А J│31 е 447 й 32: З@J,"  ";: Л J: З@ 479&rT│464&▒(А J│0 е 4: А K│1 е 30: З@ (Jн32л64)лK, Л(191л16нJ);: Л K,J&╦2X│ Д(3)л30: Y│15: U│2&х7R│ Д(3)м2: Е R│0 з 55&Ё<Бж 310&¤FЬ(X,Y,3)'PБж 300'=ZXX│XлR: Е XX┤2 ▒ XX▓61 з R│мR: XX│XлRлR: а 230,1'H_Бж 300'tdYY│YлU: Е YY┤2 з U│1: YY│YлUлU: а 230,1'зnЕ YY▓31 з Э(X,Y): а 5,5: B│Bл1: З@ 6,B;: Бе 50'▀xЕ  С(X,Yл1)│2 з а 180,1: U│м2: XX│X: YY│YлU: Бе 125(yЕ  С(XлR,Yл1)│2 з а 180,1: U│м2: R│мR: XX│XлR: YY│YлU(Л}Е  С(XX,YY)▓3 з а 250,1: S│Sл9м С(XX,YY): З@  Б(XXо2)л32н Б(YYо2), Л(128);: U│мU: XX│X: YY│Y: З@ 21,S: Бе 125(ж~Е S│450 з S│650: Бе 20(╗Е  Я▓18000 з 200(┘ВЭ(X,Y): X│XX: Y│YY: Бе 70)╚З@ 68,"GAME OVER: AVERAGE:"; Б(Sн10оB)о10;).╥З@ 132,"PRESS 'P' TO PLAY AGAIN";)F▄Е  Т│"P" з О :Д 220)T
,Z│ Ж(135))}
6TT│Tл((Z│9)н(T┤478))м((Z│8)н(T▓449)))з
@З@ T, Л(128);: T│TT: З@ T, Л(156);: РЕ  Я▓18000 з 200(┘ВЭ(X,Y): X│XX: Y│YY: Бе 70)╚З@ 68,"GAME OVER: AVERAGE:"; Б(Sн                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ∙:Г SKYLINE
Ю 0$М T(31)=А J│1280 е 1504 й 32K(А K│0 е 3z2X│ Д(32)м1: Е T(X)│0 з T(X)│( Д(8)м1)н16л9В<Л KСFА K│0 е 31дPТ JлK,128лT(K)оZЛ K,J┴dS│0: L│0: BF│0сnЗ"SCORE:";S,"SHIPS LOST:";LёxX│32нLл1056ВЕ BF│0 ░  Т│ Л(32) з BF│м1: BP│X@МТ X,241: Т Xл1,251: Е Xл1▓│1535 з 190RЦЕ BF з Бж 300}аЕ  Ж(Xл2)│128 з Т X,128: X│Xл1: Бе 130╕кА K│2 е 0 й м1: Т XлK,106: а 20нKл10,2: Т XлK,128: Л K▀┤L│Lл1: З@ 27,L: Е L┤5 з 120 :Д 200╛B│500м(Lн100): З@ 64,"BONUS:";B;: З@ 128,"TOTAL:";SлB;G╚З@ 193,"GAME OVER: PRESS 'P' TO REPLAY";_╥Е  Т│"P" з О :Д 210u
,Е BP▓X з Т BP,128а
6BP│BPл32: Е BP▓1535 з а 100,1: BF│0: Рш
@Е  Ж(BP)┤▓128 з Т BP,42: а 250,1: Т BP,128: S│Sл1: З@ 6,S;: BF│0: Р°
JТ BP,178: РONUS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ""/O	8I$│ Т: Е I$│"A" з C│Cл1: SL$(C,1)│A$(T,1): SL$(C,2)│ И(TS): SL$(C,3)│D$:Р/h	BЕ I$│"R" з Р :Д 2360/~╕Е NC│0 з а 5,5: Р/К┬Бж 7000/б╠Щ"O",#1,"CUSTOMER"/м╓З#1,NC/╞рА J│1 е NC: А K│1 е 4/╓ъЗ#1,A$(J,K)/шЇЛ K,J: Ъ#1: Р/¤аЕ C│0 з а 5,5: Р0	кБж 70000┤Щ "O",#1,"SALES"0(╛З#1,C0A╚А J│1 е C: А K│1 е 30R╥З#1,SL$(J,K)0d▄Л K,J: Ъ#1: Р0ДXЮ: З"SET UP DISK TO RECORD"0вbЗ"PRESS SPACE WHEN READY"0╛lЕ  Т│ Л(32) з Р :Д 70200╞LЮ:З0сQЗ"DATE............";D$0¤VЗ"INVOICE NUMBER..";IN$1`З"CUSTOMER NUMBER.";T12jЗ"NARRATIVE.......";T$1LtЗ"UNIT PRICE......";U1f~З"QUANTITY........";Q1АИЗ"NET.............";P1ЪТЗ"TAX.............";V1┤ЬЗ"TOTAL...........";S1ЄжЗ:З"NOTE: ONLY ONE ITEM CAN BE      DISPLAYED AT A TIME."2$░З"ANY MORE FOR THIS INVOICE        (Y OR N)?"2>║I$│ Т:Е I$│"Y" з 22302Z─Е I$│"N" з 2340 :Д 76102v@А J│1 е 4: З#мR: Л J: Р2╕#(Ж" JOHN WILEY & SONS","605 THIRD AVE.","NEW YORK, NY","10158"З"NOTE: ONLY ONE ITEM CAN BE      DISPLAYED AT A TIME."2$░З"ANY MO