К&$:ГCOPYRIGHT 1990, FALSOFT INC.&г Ю:э1,1296:э2,1296:э3,1296:э4,1296:МA$(16),V(5,5),W(5,5):Й"INITIALIZE SPEED-UP POKE? (Y/N)";I$:I$│ О(I$,1):ЕI$│"Y"зТ65497,0'bф2:у0,32:у1,0:у2,63:у3,16:АY│1е2:чY,0:ї"BM14,44R30U2L30ND2RUR2NR24UR3URU3RURU2RU3R3E4M+1,-3U3BM-8,+9M-2,-1M-5,+2GL2HUR2M+4,-1BL6BD1H1U2M+9,-6M+1,-2E2R2M+2,-1R2LUM+2,-3D2ERD2M-1,+2D2BH2U"'┼ї"BM44,42H4M-1,-4U2M+1,+2NU14M-2,-4U8M-2,-4H2BU2NL2M+3,+1F3D2":ЕY│1зш(34,34),2,1:Дш(34,34),1,2'▀(ЕY│1зC│2:D│3:ДC│1:D│2'¤2чC,0:ъ(15,43)м(43,43),╜:П(<АX│1е50:НA,B:є(A,B,D):Л(0Fы(10,10)м(46,46),Y(TPц0:ЛY:ч2:ы(100,100)м(136,136),3(╫ZАX│1е25:НA,B,C:ь(A,B)м(Aл36,Bл36),C:Л:ч2:ъ(40,5)м(220,185),╜,B:АX│40е220й36:ъ(X,5)м(X,185),╜:Л:АX│5е185й36:ъ(40,X)м(220,X),╜:Л)Tdю(30,1),"KNIGHT'S":ю(31,3),"ERRANT":ю(30,5),"PRESS (M)":ю(30,6),"TO MOVE":ю(30,7),"PIECES.":ю(30,12),"SCORE:":ю(32,13),S)аnX│3:Y│3:АZ│1е16:НA$(Z):Л:Z│0:АA│1е5:АB│1е5:НC:W(A,B)│C:ЛB,A:A│0:B│0:C│0)░xБж410:Бж460)║ВI$│ Т)┌МЕI$│ Л(8)зX│Xм1:Бж410:Бе120)·ЦЕI$│ Л(9)зX│Xл1:Бж410:Бе120*аЕI$│ Л(10)зY│Yл1:Бж410:Бе120*<кЕI$│ Л(94)зY│Yм1:Бж410:Бе120*L┤ЕI$│"M"з200*V╛Бе120*О╚Q│0:U$(1)│"L":U$(2)│"R":U$(3)│"D":U$(4)│"U":A│X:B│Y*б╥Q│Qл1:ЕQ│4з280*╧▄I$│ Т:O│X:L│Y:X│A:Y│B:Бж350:Бж460:X│O:Y│L*∙цЕI$│ Л(8)зA│Aм1:M│1:Бж350:Бж340:Бе210+#ЁЕI$│ Л(9)зA│Aл1:M│2:Бж350:Бж340:Бе210+N·ЕI$│ Л(10)зB│Bл1:M│3:Бж350:Бж340:Бе210+yЕI$│ Л(94)зB│Bм1:M│4:Бж350:Бж340:Бе210+ГБе220+┐Бж400:АZ│1е16:ЕM$│A$(Z)з290:ДЛ:а1,1:Z│0:Q│0:M$│"":Бе120,З"ы((Xм1)н36л40,(Yм1)н36л5)м(Xн36л40,Yн36л5),4:ь((Xм1)н36л40,(Yм1)н36л5)м(Xн36л40,Yн36л5),3:ъ((Xм1)н36л40,(Yм1)н36л5)м(Xн36л40,Yн36л5),╜,B:ь((Aм1)н36л40,(Bм1)н36л5)м(Aн36л40,Bн36л5),4:Q│0:Z│0:M$│"",н,ч0:ю(32,13),S:S│Sл1:ч2:ю(32,13),S,х6V(A,B)│ л((Aм1)н36л53,(Bм1)н36л18):V(X,Y)│3:X│A:Y│B-@АA│1е5:АB│1е5:ЕV(A,B)│W(A,B) зЛB,A :ДA│0:B│0:Бе120-еJАX│1е50:у 0, Д(63):Л:у0,16:ц:ю(10,10),"CONGRATULATIONS!":ю(10,12),"YOUR SCORE IS:"л И(S):ю(10,15),"PRESS TO END":╗ЙO$:ф0:Ю:К-╖TM$│M$лU$(M):Р-┼^ЕA│┤1зA│1-╙hЕA│▓5зA│5-сrЕB│┤1зB│1-я|ЕB│▓5зB│5-їЖР.,РЕ л((Aм1)н36л60,(Bм1)н36л25)┤▓0зZ│0:Q│0:M$│"":Р:ДР.:ЪЕX│┤1зX│1.HдЕX│▓5зX│5.VоЕY│┤1зY│1.d╕ЕY│▓5зY│5.j┬Р.ў╠ы((Xм1)н36л40,(Yм1)н36л5)м(Xн36л40,Yн36л5),4:ь((Xм1)н36л40,(Yм1)н36л5)м(Xн36л40,Yн36л5),3:ь((Xм1)н36л40,(Yм1)н36л5)м(Xн36л40,Yн36л5),4:Р/э╓Ж 27,30,27,32,26,34,25,35,23,36,23,38,21,39,29,29,29,31,28,33,27,34,25,35,25,37,23,39,31,28,31,30,30,32,30,34,28,36,26,30,26,18,25,18,26,19,24,18,24,19,18,24,17,24,17,26,14,26,23,21,24,20,26,20,16,26,30,38,30,36,30,28,30,28,29,32,24,32,30,390/рЖ 32,26,32,28,32,29,32,32,32,36,33,39,30,39,28,39,26,39,24,391ъЖ 40,5,2,76,5,1,112,5,1,148,5,1,184,5,1,40,41,2,76,41,1,112,41,1,148,41,1,184,41,1,40,77,2,76,77,2,148,77,1,184,77,1,40,113,2,76,113,2,112,113,2,148,113,2,184,113,1,40,149,2,76,149,2,112,149,2,148,149,2,184,149,1,112,77,31ЙЇЖ RDD,LDD,UUL,UUR,DRR,URR,LLU,LLD,DDL,DDR,RUU,LUU,RRU,RRD,ULL,DLL,2,2,2,2,2,1,1,2,2,2,1,1,3,2,2,1,1,1,2,2,1,1,1,1,1,2,76,77,2,148,77,1,184,77,1,40,113,2,76,113,2,112,113,2,148,113,2,184,113,1,40,149,2,76,149,2,112,149,2,148,149,2,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                9:┬(114,93),12,0,.9/,╥╗(200,0)м(256,58),╛,B/F╫╗(201,1)м(254,57),╛,B/М▄╞"BM204,4C0D4F4ND4E4U4BR4D12R8U12NL8BR4D12R8U12BR4ND12R8D6L8R2F6"/╨с╞"BM204,42R4ND12R4BR4D12R8U12BR4ND12R8D6L8R2F6BR4U12M+8,+12U12"0ц╗(200,62)м(256,160),╛,B:╗(201,63)м(254,159),╛,B0<ы┬(226,78),12,0,.9:┬(226,124),12,0,.9:├(226,124),0,00[Ё├(80,91),0,0:├(112,65),0,00їBD$│"C0BU12L15D24R30U24L15BD12"0г·BU$│"C1BU12L15D24R30U24L15BD12"1o Ю:З@32," E-Z-THELLO IS A SIMPLIFIED & QUICK PLAYING VERSION OF THE CLASSIC STRATEGY GAME. TWO PLAYERS ARE NEEDED. ONE TAKES WHITE AND THE OTHER TAKES THE BLACK. YOU MUST PLACE A PIECE"2З" SO IT TRAPS YOUR OPPONENT'S PIECES BETWEEN YOURS. THEY WILL THEN SWITCH TO YOUR COLOR. IF YOU CANNOT MAKE A LEGAL MOVE PRESS

TO PASS ON THAT TURN.";2x З" IF NO ONE CAN MAKE A LEGAL MOVE THEN PRESS TO END THE GAME. PRESS TO PLAY.";2ТX$│ Т:ЕX$┤▓ Л(13)з2702бЮ0:X│1:Y│12╡SW│1:CC│2:Бе2902├SW│2:CC│13"TT│0:┬(226,29),12,0,.9:├(226,29),SW,SW:┬(226,29),12,0,.9:Бж10103'Е BLлWH│36з10803=,C$│"BM"л И(A(X))л","л И(B(Y))3L1╞ C$:╞ BD$3[6A$│ Т:┐1,03q;╞ BU$:╞ BD$:╞ BU$3В@ЕA$│"P"з10003УEЕA$│"E"з10803мJЕA$│""з310:ДT│ К(A$)3╩OЕT│8зX│Xм1:ЕX┤1зX│1:Бе3603шTЕT│9зX│Xл1:ЕX▓6зX│6:Бе3604YЕT│94зY│Yм1:ЕY┤1зY│1:Бе3604&^ЕT│10зY│Yл1:ЕY▓6зY│6:Бе36044cЕT│13з3654>hБе3004XmЕ SQ(X,Y)│0з370 :Д3004arEX│04nwЕY│1з4404~|АQ│Yм1е1йм14СБЕSQ(X,Q)│0з4054жЖЕSQ(X,Q)│SW з4104╜ЛЕSQ(X,Q)│CC з EX│14├РЛ4╥ХЕ EX│1з4404сЪЕ EX│0з4404ЄЯАK│Y е Q йм153д┬(A(X),B(K)),12,0,.9:├(A(X),B(K)),SW,SW:┬(A(X),B(K)),12,0,.95<йTT│15KоSQ(X,K)│SW5Q│Л5Z╕EX│05g╜ЕY│6з5105t┬АQ│Yл1е65З╟ЕSQ(X,Q)│0з4755Ь╠ЕSQ(X,Q)│SW з4805│╤ЕSQ(X,Q)│CC з EX│15╣╓Л5╚█Е EX│1з5105╫рЕ EX│0з5105фхАK│Y е Q6%ъ┬(A(X),B(K)),12,0,.9:├(A(X),B(K)),SW,SW:┬(A(X),B(K)),12,0,.96.яTT│16=ЇSQ(X,K)│SW6C∙Л6L■EX│06YЕX│6з5806fАQ│Xл1е66y ЕSQ(Q,Y)│0з5456ОЕSQ(Q,Y)│SW з5506еЕSQ(Q,Y)│CC з EX│16лЛ6║!Е EX│1з5806╔&Е EX│0з5806╓+АK│X е Q70┬(A(K),B(Y)),12,0,.9:├(A(K),B(Y)),SW,SW:┬(A(K),B(Y)),12,0,.97 5TT│17/:SQ(K,Y)│SW75?Л7>DEX│07KIЕX│1з6507[NАQ│Xм1е1йм17nSЕSQ(Q,Y)│0з6157ГXЕSQ(Q,Y)│SW з6207Ъ]ЕSQ(Q,Y)│CC з EX│17аbЛ7пgЕ EX│1з6507╛lЕ EX│0з6507╧qАK│X е Q йм18v┬(A(K),B(Y)),12,0,.9:├(A(K),B(Y)),SW,SW:┬(A(K),B(Y)),12,0,.98{TT│18(АSQ(K,Y)│SW8.ЕЛ8<КPP│0:EX│08IПЕY│1з7358YФАQ│Yм1е1йм18rЩPP│PPл1:Е XлPP▓6з7358ИЮЕSQ(XлPP,Q)│0з6908агЕSQ(XлPP,Q)│SW з6958║иЕSQ(XлPP,Q)│CC з EX│18└нЛ8╧▓Е EX│1з7358▐╖Е EX│0з7358ш╝PP│м18∙┴АK│Y е Q йм19╞PP│PPл19O╦┬(A(XлPP),B(K)),12,0,.9:├(A(XлPP),B(K)),SW,SW:┬(A(XлPP),B(K)),12,0,.99X╨TT│19j╒SQ(XлPP,K)│SW9p┌Л9~▀PP│0:EX│09ЛфЕY│1з8209ЫщАQ│Yм1е1йм19┤юPP│PPм1:Е XлPP┤1з8209╩єЕSQ(XлPP,Q)│0з7759т°ЕSQ(XлPP,Q)│SW з7809№¤ЕSQ(XлPP,Q)│CC з EX│1:Л:Е EX│1з820:  Е EX│0з820:)PP│1::АK│Y е Q йм1:FPP│PPм1:Р ┬(A(XлPP),B(K)),12,0,.9:├(A(XлPP),B(K)),SW,SW:┬(A(XлPP),B(K)),12,0,.9:Щ%TT│1:л*SQ(XлPP,K)│SW:▒/Л:┐4PP│0:EX│0:╠9ЕY│6з905:┘>АQ│Yл1е6:ЄCPP│PPл1:Е XлPP▓6з905;HЕSQ(XлPP,Q)│0з860; MЕSQ(XлPP,Q)│SW з865;:RЕSQ(XлPP,Q)│CC з EX│1;@WЛ;O\Е EX│1з905;^aЕ EX│0з905;hfPP│м1;ukАK│Y е Q;БpPP│PPл1;╦u┬(A(XлPP),B(K)),12,0,.9:├(A(XлPP),B(K)),SW,SW:┬(A(XлPP),B(K)),12,0,.9;╘zTT│1;цSQ(XлPP,K)│SW;ьДЛ;·ЙPP│0:EX│0<ОЕY│6з990<УАQ│Yл1е6<-ШPP│PPм1:Е XлPP┤1з990╞"BM216,107C1">(Q$│ И(WH):Е WH▓9з Q$│ П(Q$,2)>VА Q│1е2:P$│ Р(Q$,Q,1):P│ Й(P$):╞ N$(P):ЛQ>t╗(206,138)м(248,156),╛,BF>З$╞"BM216,153C1">й)Q$│ И(BL):Е BL▓9з Q$│ П(Q$,2)>╫.А Q│1е2:P$│ Р(Q$,Q,1):P│ Й(P$):╞ N$(P):ЛQ>▌3Р>°8╗(200,0)м(256,58),╛,BF?=Е BL▓WH з ┬(226,20),12,1,.9?FBЕ WH▓BL з ┬(226,20),12,1,.9:├(226,20),1,1?YGЕ WH│BL з 1110?ЯL╞"BM206,40C1D12R6NU12R6NU12BR6NU12BR6U12M+8,+12NU12BR4R6U6L6U6R6"?кQБе1115?┌V╞"BM209,24C1R6ND12R6BR6ND12BR8NR8D6NR8D6R8"?Ї[╗(203,3)м(251,55),╜,B@`X$│ Т:ЕX$│ Л(13)зО:Д11201,.9?FBЕ WH▓BL з ┬(226,20),12,1,.9:├(226,20),1,1?YGЕ WH│BL з 1110?ЯL╞"BM206,40C1D12R6NU12R6NU12BR6NU12BR6U12M+8,+12NU12BR4R6U6L6U6R6"?кQБе1115?┌V╞"BM209,24C1R6ND12R6BR6ND12BR8NR8D6NR8D6R8"?Ї[╗(203,3)м(251,55),╜,B@`X$│ Т:,341,256,256,336,256,256,341,,80,80,,80,80,8I~Ж0,1,4,5,16,20,64,68,80,848кАЖ18,22,25,27,32,22,18,6,16,6,6,6,6,18,18,22,2,18,20,20,39,18,22,2,8,2,22,18,4,8,14,24,39,4,49ВЖ39,20,38,2,2,22,18,8,10,20,38,22,22,18,39,2,4,6,10,20,20,18,22,22,18,22,22,18,18,22,22,18,2,4,169LДЖ,,,,9,5,5,12,9,5,5,12,,,,,,,,,10,9,13,6,3,13,12,10,,,,9ЖЖЖ,,,,11,6,3,12,9,6,3,14,,,,,,,,,3,12,9,6,3,12,9,6,,,,9┌ИЖ9,5,5,5,13,6,10,9,12,10,3,13,5,5,5,12,10,9,5,12,3,12,11,14,11,14,9,6,9,5,12,10:+КЖ10,10,1,6,9,6,10,3,6,10,3,12,3,4,10,10,10,3,5,5,7,5,14,9,12,11,5,7,5,5,6,10:PМЖ3,5,5,5,5,5,7,6,3,7,5,5,5,5,5,6:КОТ65485,0:Т65487,0:Т65477,0:Т65314,( Ж(65314)░7)▒248:Р:└РТ65484,0:Т65486,0:Т65476,0:Т65314,( Ж(65314)░7):Р,14,11,14,9,6,9,5,12,10:+КЖ10,10,1,6,9,6,10,3,6,10,3,12,3,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &"В***************************&CВ* E-Z-THELLO *&dВ* COPYRIGHT (C) 1990 *&ЕВ* ADAPTED *&жВ* BY FRED B. SCERBO *&╟В* 60 HARDING AVENUE *&шВ* NORTH ADAMS, MA 01247 *' В***************************' Х500'1 Ю0:З б(32,220); б(32,204);'KАI│1е160:НA:ЕA┤128з25'иЮ:З@96," GO BACK AND CHECK YOUR DATA IN LINES 30-50. I THINK YOU MADE A TYPO !":З:З:К'║З Л(Aл128);:Л(Ж31,31,31,26,31,31,31,31,,47,47,47,47,42,47,42,37,47,37,47,47,47,37,47,32,37,47,,37,47,47,47(p#Ж31,26,16,,,,23,30,,,37,47,32,,47,42,37,47,37,47,32,,37,47,32,37,47,,37,42,32,47(╧(Ж31,31,26,28,24,23,30,16,28,24,37,47,32,,47,47,47,47,37,47,47,42,37,47,32,37,47,,37,42,,47)$-Ж31,26,,,21,31,16,,,,37,47,32,,47,42,37,47,37,47,32,32,37,47,32,37,47,,37,42,,47)Г2Ж31,31,31,26,21,31,31,31,,,37,47,32,,47,42,37,47,37,47,47,47,37,47,47,37,47,47,37,47,47,47)Я7З б(32,195); б(32,211);)▀<З@326," A SIMPLER VERSION ";:З@358," OF A CLASSIC GAME ";*AЗ@390," ADAPTED ";*AFЗ@422," BY FRED B.SCERBO ";:З@454," COPYRIGHT (C) 1990 ";*ZKX$│ Т:ЕX$┤▓ Л(13)з75*{PЮ:З@231,"PLEASE STAND BY !";*ЩUМ SQ(6,6),A(6),B(6),N$(9)*йZВ WH=1:BL=2*╒_SQ(3,3)│1:SQ(4,4)│1:SQ(3,4)│2:SQ(4,3)│2+vdN$(0)│"U12R8D12NL8BR6":N$(1)│"BR3R3U12NG3D12R3BR5":N$(2)│"NR8U6R8U6NL8BD12BR6":N$(3)│"R8U6NL8U6NL8D12BR6":N$(4)│"BU6NU6R8U6D12BR6":N$(5)│"R8U6L8U6R8BD12BR6"+ьiN$(6)│"R8U6L8D6U12R6BD12BR6":N$(7)│"BR8U12L8ND2R8D12BR6":N$(8)│"NU12R8U6NL8U6NL8D12BR6":N$(9)│"BR8U12L8D6R8D6BR6"+¤n╚4,1:╝1:┐0,0,s╗(0,0)м(196,160),╛,B,/x╗(1,1)м(195,159),╛,B,?}АI│2е194й32,VВ╗(I,2)м(I,158),╛:Л,yЗАI│2е158й26:╗(2,I)м(194,I),╛:Л,БМB│1,ТСАY│15е145й26,еЦB(B)│Y:B│Bл1:Л,нЫA│1,╛аАI│18е178й32,╤еA(A)│I:A│Aл1:Л-hк╞"BM0,190C0U26R20D6L12D4R12D6L12D4R12D6NL20BU10BR6R12U6L12D6BD10BR16U6E14L14U6R24D6G14R14D6NL24BU10BR6R12U6L12D6BU16BR16R28D6L10D20L8U20L10U6BR34"- п╞"D26R8U10R10D10R8U26L8D10L10U10L8BR32BD26U26R20D6L12D4R12D6L12D4R12D6NL20BR6U26R8D20R10D6NL18BR6U26R8D20R10D6NL18BR6U26R24D26L24BE6BR2R8U14L8D14".,┤├(4,188),0,0:├(28,178),0,0:├(44,188),0,0.T╣┴1,0:АI│2е72й4:╗(I,190)м(I,162),╜:Л.в╛├(82,178),0,0:├(100,178),0,0:├(130,178),0,0:├(160,178),0,0:├(184,178),0,0.─├├(206,178),0,0:├(248,178),0,0.ъ╚┬(82,67),12,0,.9:┬(82,93),12,0,.9/═┬(114,67),12,0,. ┴&$:Г COPYRIGHT 1990 FALSOFT, INC&зЮ:З@8,"DATA TRANSFER":З@104,"BY JEFF STEIDL":З@166,"PRODUCED IN 1989 &":З@198,"MADE IN THE U.S.A.":З@453,"(SETTING UP MEMORY)"&шТ65495,0:Х200,13069:МM(15,8):АA│13210е13307:НB:ТA,B:Л:в13266'ДАA│0е6:НA(A),B(A):Л:АA│0е36:НB:D│Aн32:АC│1е6:E│ Б(Bо7):ТCлDл13856,A(BмEн7):Т15039мCмD,B(BмEн7):B│E:Л:Т13856лD,63:Т13863лD,192:Т13887лD,252:Т13880лD,3:Л'╔Т14372,253:Т14436,254:Т14819,19:Т14523,127:Т14459,191:Т14076,196(3 АA│0е2048й256:НB,E:АC│0е14й2:ЕBм Б(Bо2)н2зТAлCл14080,255:ТAлCл14081,255:Т14110мCлA,255:Т14111мCлA,255(Л ЕEм Б(Eо2)н2зАD│A еAл256й32:ТDлCл14081, Ж(DлCл14081)▒3:Т14109мCлD, Ж(14109мCлD)▒3:Л(зB│ Б(Bо2):E│ Б(Eо2):Л:Л(╨АA│14087е14343й64:ТA,255:ТAл17,255:Л)АA│0е24й2:АB│0е192й32:НC:ТAлBл13347,Cо32:ТAлBл13348,Cн8м Б(Cо32)н256:Л:Л)jАA│0е10й2:АB│0е192й32:НC:ТAлBл13600,Cо64:ТAлBл13601,Cн4м Б(Cо64)н256:Л:Л)╢АA│0е8й2:АB│0е192й32:НC:ТAлBл13864,Cо64:ТAлBл13865,Cн4м Б(Cо64)н256:Л:Л*АA│0е9:НA(A):Л:АA│0е138й2:НB:ТAл13070,A(Bо10):ТAл13071,A(Bм Б(Bо10)н10):Л*#АB│0е8:АA│0е15:НM(A,B):Л:Л*╤T│200:SC│0:Z│0:A│7:B│5:Т13310,51:X│2:D(0)│8:D(1)│1:D(2)│2:D(3)│4:D(4)│8:S(1)│1:S(4)│м1:T(2)│м1:T(8)│1:H│13311:I│13308:J│13309:K│13280:L│154:M│168:N│182:O│196:S1│2:O1│500+)X(0)│0:X(1)│0:X(2)│15:Y(0)│4:Y(1)│8:Y(2)│8:P│100:Q│10:R│14:S│59:V│.03:U│54:F│32:G│2+= Z1│0:Бж72:Бж142+░"ЕT зT│Tм1:ТI,U:ТJ,50:ТH, Б(TоP)нRлR:вK:ТJ,52:ТH, Б((Tм Б(TоP)нP)оQ)нRлR:вK:ТJ,U:ТH, Б(Tм Б(TоQ)нQ)нRлR:вK::Д82+┘$ЕZ1│0зZ1│1:P1│( Д(G)м1)н7::ДЕZ1│2з40,0&ТH, Д(Q)нR:ТI,55:ТJ,40лP1нG:вK:ЕB│.░A│4лP1 зZ1│G:SC│SCл50:Бж72:АC│89е239й10:аC,1:Л,Л(ТI,55лB:ТJ,FлGнA:ТH,L:вK:C│ А( Б( Н(.)оSмV)):ЕC зE│2.5мCн1.5:ЕM(A,B)░E зA│AлC:Бе44:Д44,╝*D│ А( Б( Н(1)оSмV)):E│5лDн3:ЕM(A,B)░E зB│BлD,є,ТI,55лB:ТJ,FлGнA:ТH,M:вK:Е Ж(65280)░1▒Z ▒(S1│0)з48-m.а239,1:а176,1:S1│S1м1:ТH,L:ТI,53:ТJ,UлGнS1:вK:ЕE ░M(A,B)зD1│E:X1│AлS(E):Y1│BлT(E):Z│1:ТI,55лY1:ТJ,FлGнX1:ТH,O:вK::Д82-▐0ЕZ1│2░B│0░A│11мP1 зSC│SCлPлT:T│200:Бж72:Z1│0:АC│239е89йм10:аC,1:Л:X│Xл1:X(X)│( Д(G)м1)н15:Y(X)│4л( Д(G)м1)н4.y2ЕX┤0з64:ДЕZ зАW│0еX:ЕX1│X(W)░Y1│Y(W)зX│Xм1:АC│W еX:X(C)│X(Cл1):Y(C)│Y(Cл1):Л:а200,1:а200,1:а200,1:Z│0:SC│SCл20:ТI,55лY1:ТJ,FлGнX1:ТH,L:вK:Бж72:Бе50:ДЛ.╡4АW│0еX:ТI,55лY(W):ТJ,FлGнX(W):ТH,L:вK:ЕA│X(W)░B│Y(W)з82.╩6И Д(3)Бе56,58,60/8D│D( Д(4)):ЕM(X(W),Y(W))░D зX(W)│X(W)лS(D):Y(W)│Y(W)лT(D):Бе62:Д62/_:D│D( А(X(W)мA)лG):ЕM(X(W),Y(W))░D зX(W)│X(W)лS(D):Y(W)│Y(W)лT(D):Бе62:Д62/дЕA│X(W)░B│Y(W)з82:ДТI,55лY(W):ТJ,FлGнX(W):ТH,N:вK:Л/ш@ЕZ│0з340РBЕA│X1 ░B│Y1 з82:ДТI,55лY1:ТJ,FлGнX1:ТH,L:вK:ЕX▓м1зАW│0еX:ЕX1│X(W)░Y1│Y(W)зX│Xм1:АC│W еX:X(C)│X(Cл1):Y(C)│Y(Cл1):Л:а200,1:а200,1:а200,1:Z│0:SC│SCл20:вK:Бж72:Бе34:ДЛ0╚DЕD1 ░M(X1,Y1)зX1│X1лS(D1):Y1│Y1лT(D1)::ДD1│D( Д(4))0¤FЕA│X1 ░B│Y1 з82:ДТI,55лY1:ТJ,FлGнX1:ТH,O:вK:Бе341%HТI,53:D│10000:ЕSC▓99999зSC│SCм999991ЗJE│SC:АC│44е52й2:ТJ,C:ТH, Б(EоD)нRлR:вK:E│Eм Б(EоD)нD:D│DоQ:Л:ЕSC▓O1 зO1│O1л500:ЕS1┤5 зS1│S1л11ЩLТH,O:C│U:E│S11┐NЕE│0зР::ДТJ,C:вK:E│Eм1:C│CлG:Бе781┼PР2=RАC│1е3:а218,1:а221,1:Л:АC│1е3:а176,1:а180,1:Л:АC│1е3:а89,1:а99,1:Л:а89,2:а117,2:а147,2:а153,10:а140,2:а147,2:а176,22bTЮ:З@160,"SCORE:"SC:ЕSC▓HS зHS│SC2НVЗ:З"HIGH SCORE:"HS:З@448,"PLAY AGAIN?"2ёXТH,L:АA│8е22й2:ТJ,32лA:АB│0е3:ТI,55лB:вK:Л:Л:АA│0е30й2:ТJ,FлA:АB│4е8:ТI,55лB:вK:Л:Л:Бж144:A$│ Т37ZA$│ Т:ЕA$│""з90:ДЕA$│"Y"з28:ДЕA$┤▓"N"з90:ДЮ:Х200,32767:Т65494,0:К3Р\Ж,,,,,,,,,,,,,,17,16,85,84,21,80,85,84,21,80,85,84,17,16,128,,160,,42,,10,128,2,160,3╜^Ж40,,8,,,,192,12,204,3,240,12,204,,192,,3°`Ж142,52,,204,,,237,129,140,64,,38,249,57,190,51,254,164NbЖ142,,7,254,51,252,230,65,196,3,166,128,234,128,237,196,51,200,32,49,63,38,239,574БdЖ0,0,3,192,48,12,51,204,243,207,252,63,255,2554╝fЖ117648,117648,117648,62425,117355,117362,62245,1173634ЄhЖ62244,62140,117469,62142,61903,61799,61903,617995*jЖ60188,117365,115411,61799,61903,61799,117126,617995alЖ61903,62142,117469,62140,62244,62154,117307,621535ЗnЖ62132,62425,117648,117648,1176485═pЖ240,136,96,152,128,168,96,168,159,96,46,169,20,107,172,65,62,1286PrЖ340,65,65,65,65,65,340,16,68,257,257,341,257,257,341,16,16,16,16,16,16,16,68,257,257,341,257,257,,,,,,,,341,16,16,16,16,16,166╛tЖ340,257,257,340,272,260,257,16,68,257,257,341,257,257,257,257,321,273,261,257,257,84,257,256,84,1,257,847vЖ341,256,256,336,256,256,256,341,256,256,336,256,256,341,340,257,257,340,272,260,2577gxЖ84,257,256,84,1,257,84,84,257,256,256,256,257,84,84,257,257,257,257,257,847│zЖ340,257,257,340,272,260,257,341,256,256,336,256,256,341,,80,80,,80,80,8*|Ж341,16,16,16,16,16,16,84,16,16,16,16,16,84,257,325,273,273,257,257,257  &d:Г CANNONBALLS&+nМ NC(100), NS(100)&;xА I│1 е 100&YВNC(I)│(Iн(Iл1)н(2нIл1))о6&gМNS(I)│IнI&mЦЛ& аА I│1 е 100: A│NC(I): А J│1 е 100: Е A│NS(J) з З "BASE OF CANNONBALL STACK IS"; I ; "BY"; I; ",SQUARE ON GROUND IS";  Ы( NS(J) ); "ON A SIDE"'кЛ: ЛNNONBALLS&+nМ NC(100), NS(100)&;xА I│1 е 100&YВNC(I)│(Iн(Iл1)н(2нIл1))о6&gМNS(I)│IнI&mЦЛ& аА I│1 е 100: A│NC(I): А J│1 е 100: Е A│NS(J) з З "BASE OF CANNONBALL STACK IS"; I ; "BY"; I; ",SQUARE ON GROUND IS";  Ы( NS(J) ); "ON A SIDE"":CIRCLE(16,24),16,1,.8,.8,.17:DRAW"BD22BR4F2RDRM+2,+17L8U4LU7LU3L2UL2UL7D16NL8U16BU7U12R8DR2DRFRD2RD2LD2LGLGLDL8" 47 DRAW"BR25BD23M+12,-42R10M+10,+42L8M-2,-8NL11BU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10" 48 DRAW"BR48U42R20":CIRCLE(154,24),16,1,.8,.8,.17:CIRCLE(154,44),16,1,.8,.8,.17:DRAW"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8" 49 CIRCLE(190,34),21,1,1.2:CIRCLE(190,34),13,1,1.2 50 DRAW"BU18BR110NL8M-6,+42L12M-4,-26L2M-4,+26L12M-6,-42R9M+4,+26M+4,-26R12M+4,+26M+4,-26" 51 POKE178,129:PAINT(6,14),,1:POKE178,33:PAINT(48,14),,1:POKE178,62:PAINT(74,14),,1:POKE178,150:PAINT(94,14),,1:POKE178,62:PAINT(142,14),,1:POKE178,190:PAINT(181,18),,1:POKE178,34:PAINT(214,14),,1:PCOPY3TO1:PCOPY4TO2 52 CIRCLE(14,170),16,1,.9:CIRCLE(14,170),10,1,.9:PAINT(2,170),3,1:DRAW"BM34,182C1U24R6F12U12R6D24L6H12D12L6":PAINT(36,180),3,1 53 PCOPY3TO1:PCOPY4TO2 54 DRAW"BR54U18L10U6R26D6L10D18L6BR18M+9,-24R10M+9,+24L6M-4,-8L8M-4,+8NL6M+4,-8BU4BR2R4U4L2U2LD2L2D4BM140,182U24R20D2R2D12L2D2L14D8NL4BU14U4R10D4L10BR24BD14U24R20D6L14D4R14D4L14D4R14D6L20" 55 PAINT(92,180),1,1:PAINT(110,180),1,1:PAINT(142,180),1,1:PAINT(172,180),1,1:PCOPY3TO1:PCOPY4TO2 56 FORI=0TO24STEP24:CIRCLE(216+I,176),12,2,.85,.85,.7:CIRCLE(216+I,176),10,2,.85:CIRCLE(216+I,176),8,2,.85:CIRCLE(216+I,164),10,2,.85:CIRCLE(216+I,164),8,2,.85:NEXTI 58 PCOPY3TO1:PCOPY4TO2 59 FORII=1TO1000 60 IFINKEY$=""THEN61ELSE600 61 NEXTII 600 REM START MENU TEXT 610 DIM A$(40) 620 READ MN$ 630 FORP=1TO34:READ A$(P):IF A$(P)="END"THEN640ELSENEXTP 640 IF A$(P)="END"THEN A$(P)="" 650 CLS 660 PRINT" RAINBOW ON TAPE" 670 PRINT" (C) FALSOFT, 1987" 680 PRINT 690 PRINT " (XX)=PAGE NUMBER OF LISTING":KK=LEN(MN$):KK=INT(KK/2):PRINTTAB(9-KK)"IN "MN$"'S RAIN Л&d:Г THE MEETING&!nМ M(224)&/xА W│1 е 7&DВWD│ Б(2п(7мWл5))&SМА J│0 е 31&lЦM((Wм1)н32лJл1)│WDлJ&yаЛ J: Л W&вкА I│1 е 224: Е (M(I) ░ 5)│5 з M(I)│0&и┤Л&╙╛А I│1 е 224: Е (M(I) ░ 24)│24 з M(I)│0&┘╚Л'╥А I│1 е 224: Е (M(I) ░ 16)│16 з Е (M(I) ░ 4) ┤▓ 4 з M(I)│0'▄Л'JцА I│1 е 224: Е (M(I) ░ 16)┤▓16 з M(I)│0'PЁЛ'`·А I│1 е 224'iCT│0'ИЕ (M(I) ░ 16)│16 з CT│CTл1'еЕ (M(I) ░ 8)│8 з CT│CTл1'┬"Е (M(I) ░ 4)│4 з CT│CTл1'▀,Е (M(I) ░ 2)│2 з CT│CTл1'№6Е (M(I) ░ 1)│1 з CT│CTл1(@Е CT┤3 з M(I)│0(JЛ(YTА I│1 е 224: Е (M(I) ░ 2)│2 з Е (M(I) ░ 2048) ┤▓ 2048 з M(I)│0(_^Л(ДhА I│1 е 224: Е M(I)┤▓0 з З M(I);(КrЛЕ (M(I) ░ 8)│8 з CT│CTл1'┬"Е (M(I) ░ 4)│4 з CT│CTл1'▀,Е (M(I) ░ 2)│2 з CT│CTл1'№6Е (M(I) ░ 1)│1 з CT│CTл1() COCOART"," (81) MIRORPIX" 1030 DATA " (82) P178&GL"," (82) WINDCHIL"," (83) FOOTBALL"," (95) CCBLITZ"," (99) MENUGEN"," (99) COCODRAW","(103) 3DLETTER","(107) READPROG","(118) ANIMATE","(124) PICTBOOK" 9999 DATA END ," (78) FUNFACE"," (79) MARTIAN"," (80                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Edit Line #";LI/Eё3,16:З"[":ё4,16:ЗL$(LI);:ё39,16:З"]";/o ё3,17:З"[":ё39,17:З"]":ё4,17:╗ЙL$(LI)/Рё0,22:ЗC$::Гclear out prompt/ц Е LI│1 з C1│0 :Д Е LI│2 з C2│0 :Д Е LI│3 з C3│0 :Д Е LI│4 з C4│0 :Д Е LI│5 з C5│0/я*CF│004L$(LI)│ О(L$(LI),35)0>Бж30000DHё0,14:АX│1е5:ЗC$:ЛX::Гclear out editor lines0JRР0Q\:Г0b ╕:ГLIST LABEL0г ┬Е CF│0 ░ C1│0 з ё0,7:З" 1 ";::Д Е CF│1 ▒ C1│1 з ё0,7:З">1<";0▒ ╠ё3,7:З"["0╬ ╓ё4,7:ЗL$(1);:ё39,7:З"]";1 рЕ CF│0 ░ C2│0 з ё0,8:З" 2 ";::Д Е CF│1 ▒ C2│1 з ё0,8:З">2<";1 ъё3,8:З"["1: Їё4,8:ЗL$(2);:ё39,8:З"]";1{ ■Е CF│0 ░ C3│0 з ё0,9:З" 3 ";::Д Е CF│1 ▒ C3│1 з ё0,9:З">3<";1Й ё3,9:З"["1ж ё4,9:ЗL$(3);:ё39,9:З"]";1щ Е CF│0 ░ C4│0 з ё0,10:З" 4 ";::Д Е CF│1 ▒ C4│1 з ё0,10:З">4<";1° &ё3,10:З"["2 0ё4,10:ЗL$(4);:ё39,10:З"]";2Z :Е CF│0 ░ C5│0 з ё0,11:З" 5 ";::Д Е CF│1 ▒ C5│1 з ё0,11:З">5<";2i Dё3,11:З"["2И Nё4,11:ЗL$(5);:ё39,11:З"]";2к XЕ  З(L$(5))│35 з 3170 :Д 32102╣ bё0,12:ЗC$;2╘ lё0,13:°0,0,U:ЗU$;:°0,02ь vё0,14:З"BAUD =";BD;3J АЕ TB┤10 з ё31,14:З" TAB =";TB;::Д Е TB┤100 з ё31,14:З" TAB =";TB;::Д ё31,14:З"TAB =";TB;3P КР3W Ф:Г3xа:ГCLEAR LABEL LINE VARIABLES3йкL$(1)│"":L$(2)│"":L$(3)│"":L$(4)│"":L$(5)│""3п┤Р3╢╛:Г3╩И:Г

RINT LABEL48Тё1,22:З"Quantity to print ";:ЙQ:Е Q┤0 з ё21,22:З" ";:Бе 5010::Д Е Q│0 з ё1,22:ЗC$;:Бе 2804GЬё1,22:ЗC$;4zжё1,22:З"Ready printer, press ";:в&HA1714б░ё1,22:ЗC$;:ё1,22:З"Printing. . .";4п║А I│1 е Q4┬─З#м2,дTB)L$(1)4╒╬З#м2,дTB)L$(2)4ш╪З#м2,дTB)L$(3)4√тЗ#м2,дTB)L$(4)5ьЗ#м2,дTB)L$(5)59ЎЗ#м2,""::Гlinefeed to ready next label5AЛ I5P ё1,22:ЗC$;5VР5]:Г5xp:ГENTER LABEL LINES5├zЕ CF│1 з ё1,22:З"Label centered. Press ";:в&HA171:ё1,22:ЗC$;:Р6`ДЕ (I$│"1" ░ C1│1) ▒ (I$│"2" ░ C2│1) ▒ (I$│"3" ░ C3│1) ▒ (I$│"4" ░ C4│1) ▒ (I$│"5" ░ C5│1) з ё1,22:З"Line centered. Press ";:в&HA171:ё1,22:ЗC$;:Р6┌ОЕ I$│"C" ▒ I$│"c" з Е (CF│0) ░ (C1│0 ░ C2│0 ░ C3│0 ░ C4│0 ░ C5│0) з ё1,22:З"Want all lines centered (Y/N) ";:ЙW$::Д Р6 ШЕ W$│"N" ▒ W$│"n" з ё1,22:ЗC$;:Р7вё1,22:ЗC$;7VмЕ I$│"1" ▒ I$│"2" ▒ I$│"3" ▒ I$│"4" ▒ I$│"5" з CL│ Й(I$)::Д Бе 60807б╢И CL Бе 6090,6120,6150,6180,6210::Гswitch to center lines 1,2,3,4,or 57┼└CF│1::Гset center (all) flag on80╩LT$│"":LG│ З(L$(1)):Е (LG▓0) ░ (LG┤35) з IN│( Б(35мLG)о2):А SP│1 е IN:LT$│LT$л" ":Л SP:L$(1)│LT$лL$(1)8U╘C1│1::Гset line 1 center flag on8d▐Е CF│0 з Р8╧шLT$│"":LG│ З(L$(2)):Е (LG▓0) ░ (LG┤35) з IN│( Б(35мLG)о2):А SP│1 е IN:LT$│LT$л" ":Л SP:L$(2)│LT$лL$(2)8ЇЄC2│1::Гset line 2 center flag on9№Е CF│0 з Р9nLT$│"":LG│ З(L$(3)):Е (LG▓0) ░ (LG┤35) з IN│( Б(35мLG)о2):А SP│1 е IN:LT$│LT$л" ":Л SP:L$(3)│LT$лL$(3)9УC3│1::Гset line 3 center flag on9вЕ CF│0 з Р: $LT$│"":LG│ З(L$(4)):Е (LG▓0) ░ (LG┤35) з IN│( Б(35мLG)о2):А SP│1 е IN:LT$│LT$л" ":Л SP:L$(4)│LT$лL$(4):2.C4│1::Гset line 4 center flag on:A8Е CF│0 з Р:мBLT$│"":LG│ З(L$(5)):Е (LG▓0) ░ (LG┤35) з IN│( Б(35мLG)о2):А SP│1 е IN:LT$│LT$л" ":Л SP:L$(5)│LT$лL$(5):╤LC5│1::Гset line 5 center flag on:╫VР:▐`:Г:ўX:ГAUD RATE CHANGE;bЕ BD│9600 з BD│600 :Д BD│BDн2;1lЕ BD│600 з Т150,180;IvЕ BD│1200 з Т150,87;aАЕ BD│2400 з Т150,41;yКЕ BD│4800 з Т150,18;РФЕ BD│9600 з Т150,7;ЬЮ╔"L64C";виР;й▓:Г;╛@:ГAB SETTINGS;уJё1,22:З"Enter new TAB -->";:Й TB< TЕ TB┤0 ▒ TB▓999 з ё 19,22:З" ";:Бе8010UIT (exit) PROGRAM<е#2ё1,22:°0,0,B:З"Are you sure (Y/N) ";:ЙQ$<р#<Е Q$│"Y" ▒ Q$│"y" з Т113,0:в40999::Д °0,0:ё1,22:ЗC$;:Р< TЕ TB┤0 ▒ TB▓999 з ё 19,R$(202)R$CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(207)R$CHR$(199)CHR$(203)CHR$(192)R$CHR$(199)CHR$(203)CHR$(197)CHR$(203); 28 PRINTCHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(207)CHR$(195)CHR$(207)CHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(199)CHR$(203)CHR$(192)CHR$(197)CHR$(203)CHR$(192)CHR$(199)CHR$(203)CHR$(192)CHR$(207)CHR$(195)CHR$(207); 29 FORI=1TO1000:IFINKEY$=""THENNEXTI 30 PMODE2,1:PCLS1:SCREEN1,1:PMODE1:PCLS0:SCREEN1,1:POKE65314,248 31 PMODE2,3:PCLS1:PMODE1,3 32 DRAW"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45" 33 LINE(50,80)-(78,100),PSET,BF:LINE(194,80)-(166,100),PSET,BF:LINE(102,80)-(142,100),PSET,BF:LINE(86,84)-(94,96),PSET,BF:LINE(150,84)-(158,96),PSET,BF 34 PCOPY3TO1:PCOPY4TO2 35 PMODE2,3:PCLS1:PMODE1,3 36 DRAW"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12" 37 PAINT(128,116),1,1:DRAW"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12" 38 PAINT(128,90),3,1:DRAW"BU20C1" (91) KNIGHT"/ўЖ "END"K".7ьЖ " (25) EASYASPI".LэЖ " (25) HACKER".aюЖ " (25) CANNON".wяЖ " (25) MEETING".НЁЖ " (25) SHUFFLE".дёЖ " (25) SUMDIGIT".╗ЄЖ " (28) DATATRAN".╧єЖ " (39) RETRV".цЇЖ " (54) EZTHELLO".°їЖ " (86) MAP"/ ЎЖ 'ЇЖ " (54) EZTHELLO"'(їЖ " (86) MAP"'=ЎЖ " (91) KNIGHT"'IўЖ "END"UCK"&gьЖ " (25) EASYASPI"&|эЖ " (25) HACKER"&СюЖ " (25) CANNON"&зяЖ " (25) MEETING"&╜ЁЖ " (25) SHUFFLE"&╘ёЖ " (25) SUMDIGIT"&ыЄЖ " (28) DATATRAN"& єЖ " (39) RETRV"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 с&$:Г COPYRIGHT 1990 FALSOFT, INC&F :ГThe WYSIWYG Label Maker V.2&_:ГBy Timothy W. Hart&:ГJune 26, 1988/Version 1.0&Я(:ГJune 22, 1989/Version 2.0&╝2:Г(C) 1989 Falsoft, Inc.&├<:Г&╩F:Г&рPТ65497,0:Х500:т40'5ZТ 150,87:BD│1200::Гset initial baud rate (600 at double clock speed = 1200 baud)'PdTB│2::Гset initial TAB'rnТ&H11A,&HFF::Гforce uppercase'ЪxUC│1::Гset upper/lower case flag on'бВЮ3'░Му0,63:у8,0'╣Ц°0,0'¤аC$│" "::Гclear line array(BкU$│" "::Гunderline string(X┤А C│1 е 24:З"":ЛC(О╛ё0,0:З"<><><><>The WYSIWYG Label Maker<><><><>";(─╚ё0,1:З"<><><><><> By Timothy W. Hart <><><><><>";(·╥ё0,2:З"<><><><><><><> (C) 1989 <><><><><><><>";)0▄ё0,3:З"<><><><><><> Falsoft, Inc. <><><><><><>";)aцЗ"<><><><><><><><><><><><><><><><><><><><>";){Ёё0,5:°0,0,U:ЗU$;:°0,0)Ж·Бж3000)бё0,13:°0,0,U:ЗU$;:°0,0)мБж4000)─ё0,14:З"BAUD =";BD;*""Е TB┤10 з ё31,14:З" TAB =";TB;::Д Е TB┤100 з ё31,14:З" TAB =";TB;::Д ё31,14:З"TAB =";TB;*j,Е UC│1 з ё18,19:°0,0,U:З"MENU";:°0,0 :Д ё18,19:°0,0,U:З"menu";:°0,0*т6Е UC│1 з ё0,21:З"TART LABEL / DIT LABEL /

RINT ? ";::Д ё0,21:З"tart label / dit label /

rint ? ";*ь@I$│ Т+_JЕ I$│ Л(12) з Е UC│1 з а220,1:а210,1:а200,1:Т&H11A,0:UC│0:Бе280 :Д а200,1:а210,1:а220,1:Т&H11A,&HFF:UC│1:Бе280+эTЕ I$│"S" ▒ I$│"s" з CF│0:C1│0:C2│0:C3│0:C4│0:C5│0:ё1,22:ЗI$;:╔"L64EA":Бж 4000:Бж 3000:Бж 1000:Е  Ж(&H11A)│&HFF з UC│1:Бе280 :Д UC│0:Бе280,9^Е I$│"E" ▒ I$│"e" з Бж 2000:Е  Ж(&H11A)│&HFF з UC│1:Бе280 :Д UC│0:Бе280,_hЕ I$│"P" ▒ I$│"p" з Бж 5000:Бе280,МrЕ I$│"C" ▒ I$│"c" з Бж 6000:Бж3000:Бе280,╘|Е I$│"1" ▒ I$│"2" ▒ I$│"3" ▒ I$│"4" ▒ I$│"5" з Бж 6000:Бж3000:Бе280,·ЖЕ I$│"B" ▒ I$│"b" з Бж 7000:Бе280- РЕ I$│"T" ▒ I$│"t" з Бж 8000:Бе290-FЪЕ I$│"Q" ▒ I$│"q" з Бж 9000:Бе280-PдБе320-Wо:Г-kш:ГEGIN LABEL-vЄБж4000-б№ё4,7:╗ЙL$(1):L$(1)│ О(L$(1),35):Бж3000-╠ё4,8:╗ЙL$(2):L$(2)│ О(L$(2),35):Бж3000-ўё4,9:╗ЙL$(3):L$(3)│ О(L$(3),35):Бж3000.#ё4,10:╗ЙL$(4):L$(4)│ О(L$(4),35):Бж3000.O$ё4,11:╗ЙL$(5):L$(5)│ О(L$(5),35):Бж3000.U.Р.\8:Г.o╨:ГDIT LABEL.У┌ё1,22:З"Edit which line ";:Й LI.│фЕ LI│0 з ё 1,22:ЗC$;:Бе 280.ЁюЕ LI┤1 ▒ LI▓5 з ё 19,22:З" ";:Бе 2010/°ё0,14:З"                                                                                                                                                                                                     №?№??№?   №  └№╒╨  №ї?№Ц?╬?№╬?ЦФ?    O╩H№H╒╒ ёї?№Ц?╬╧№╬?ЦЦГ Ё? O╩H№H├ ёї╧№Ц?╬╧№╬?АР  O╩H№H?╘ ёї╧№Ц?╬├№╬?ПЁЦ?╩C J2C?Ё╘ ёї╧№Ц?╬├№╬?П№<╩C J2C?№╘?┼ї╧№Ц?╬╠№╬?П№ ╩C J2C?№╘ ┼┼є№Ц?┬╠№╬?П№Ц<?Ё╩C J2C?└╘ ┼┼є№Ц?┬╬<╬?П┬Ц2 № C 2C├ 51є№Ц?╠╬<╬?АРЄ   C 2C╒╒ 51є№Ц?╠╬<╬?ЦЦГЄ   HH JC╒╒? 51Ї№Ц?╧╠╬?ЦФ?┬  HH JO╒╒├ 51Ї№Ц?╧╠╬?АГЄ  2HC╩JO╙№Ї№Ї№Ц?╧╬└╬?ПЁРЄ  2HC╩JO?┴╙№ЇЇ№Ц?╧╬└╬?П№2 №2JC╩JO?ё╙№їїї<Ц?╧╬╠╬?П№<?ЁЄJC╩JO?ё╙ёїїї<Ц?╧Є╠╬?П№Ц ЄJC╩JO?ё╘ёЁ5<Ц?╧Є╬╬?П┬Ц?ЄJC╩JO?ё╘ёє 5<Ц?╧№╬╬?АЦ?№JOЄJ??Ё╘ё╧ ┼╠Ц?╧№╬╬?ЦЦР №JOЄJ??№╘┼╧ ┼╠Ц?╧ ╬?ЦЦГ Ё?№JOЄJ??№└ └ ? ??   №Ё?                       №                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     &#:Г***************************&E:Г* RAINBOW ON DISK GRAPHIC *&g:Г* BY FRED B. SCERBO *&Й:Г* COPYRIGHT (C) 1985 *&л:Г* UNDER LICENSE TO *&═:Г* FALSOFT PUBLISHING INC. *&Ё:Г*************************** &¤ Ю0:Х1000'OAA$│ б(3,143):АI│1е5:╙M" FALSOFT/"лAA$:╙M"PRESENTS/"лAA$:ЛI:╙M" RAINBOW/"лAA$'fАI│1е300:Е Т│""зЛI'Н(╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,248'Ю2╚2,3:╝1:╚1,3'▒<╙M" ON/"лAA$'┐F╟3е1:╟4е2(P╝0:╗(40,190)м(212,60),╛,BF:┬(126,126),24,0,.9:├(126,126),0,0:┬(126,126),20,1,.9(LZ┬(170,126),8,0,.9:╞"BM122,186C0R10E4U26H4L10G4D26F4"(hd╟3е1:╟4е2:▀0,17,2,A$,B$(Бn╙M" DISK/"лAA$:╟3е1)'x╚1,1:╞"BM70,88C3U12R12D12NL12BR8U12F12NU12BR16R2U12NL2R10F2D8G2NL10BR12NU12BR10R10U6L10U6R10BR8D12U6R4NE6NF6BM98,156C2R14D10L14NU10R14D10L14BR44BU20R14D20L14U20")5ВАII│1е500)IМЕ Т│""з150:Д160)QЦЛII)gаВ START MENU TEXT){кМ A$(34),B$(34))▓┤АI│1е26:B$(I)│ Л(64лI):Л:АI│27е34:B$(I)│ Л(22лI):Л)╝╛Н MN$)ц╚АP│1е34:Н A$(P):Е A$(P)│"END"з210:ДЛP*╥Е A$(P)│"END"з A$(P)│""* ▄NP│Pм1*'цАI│NPл1е34:B$(I)│"":Л*-ЁЮ*L·З" RAINBOW ON DISK"*kЗ" (C) FALSOFT, 1990"*ФЗ" PRESS LETTER TO LOAD BASIC ONLY";*эЗ " (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"*є"З+,АP│1е7:ЗB$(P)A$(P),B$(7лP)A$(Pл7):ЛP+"6З+(@З+=JX$│ Т:ЕX$│""з330+W^АI│1е14:ЕX$│B$(I)з500+dhЛI:Бе330+jrЮ+У|З:З " (XX)= PAGE NUMBER OF LISTING"+┤ЖЗ:З" SIDE ONE":З:З+▀РАP│11е14:ЗB$(P)A$(P),B$(4лP)A$(Pл4):ЛP+чХЗ:З,*ЪЗ " PRESS TO RETURN TO FIRST PAGE OF MENU",RдЗ " PRESS ^ (UP ARROW) FOR

";,jоXX$│ Т:Е XX$│""з430,Б╕ЕXX$│ Л(94)з Ю:╬:Ц,Т┬ЕXX$│" "з240,п╠АI│11е NP:ЕXX$│B$(I)з500,╝╓ЛI:Бе430,╦рЕXX$┤▓з430,╒ъБе240,їЇQ$│A$(I):Е П(Q$,1)┤▓"*"з540-<■Ю:З@138,"SORRY, BUT":З:Зд8)Q$:З:З" IS A MACHINE LANGUAGE PROGRAM."-ЯЗ:З" THE MENU PROGRAM HAS NOW BEEN CLEARED SO YOU MAY THE PROGRAM BY ITS FILENAME."-еЦ-┼Q│ З(Q$):Q│Qм6:SL$│ П(Q$,Q)-╤&╙ SL$,R-▐шЖ "JULY"-ЄщЖ " (14) LABEL". ъЖ " (25) COINTOSS". ыЖ " (25) MAKEBUCK".7ьЖ " (25) EASYASPI".LэЖ " (25) HACKER".aюЖ " (25) CANNON".wяЖ " (25) MEETING".НЁЖ " (25) SHUFFLE".дёЖ " (25) SUMDIGIT".╗ЄЖ " (28) DATATRAN".╧єЖ " (39) RETRV".цЇЖ " (54) EZTHELLO".°їЖ " (86) MAP"/ ЎЖ р╝┐╝╜║┐╝╜║┤╜╛╕А┐╝╝┐╡╛╝┐┤╜╛╝┐╡╝┐╝║А┐░╡║┐А╡║А╡║А░┐А░┐╡║░┐░╡║░┐╡░┐░║А ААА Ёї·Аї·АА АЁ ї·╨ Аї·А№їЁ Ё·А ААЁ Аї·Аї·АА ЁА ї·╨ Аї·АААА АААЯЁХЪЯАХЪАХЪААЯАР░ХЪРЯАХЪРЯААЯАААЯЬЭЪЯЬЭЪАХЪААЬЬЬЯХЪРЯРХЮЬЯрРЯАААПАААПАЕКАЕКААПААПЕКАПАЕКААрАПАААПАААПАЕКАЕКААПААПЕКАПАЕКААААПАААпАААпАекАекбвпаАпекАпаекААААпАААпАААпЁекАекекпААпекАпАекААААпААуяуруяРхытчычъяууяхыуясчытААсятА└└└└└р└└└└└└а└└└└└└└└└└└└└└└└└└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ПАЕКАЕКААПААПЕКАПАЕКАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                рьяьэъяьэъфэюшАяььяхюьяфэюьяхьяьъАя░хъяАхъАхъА░яА░яхъ░я░хъ░яхря░ъАпАААпЁекАекААпАЁпек╨пАекАмеЁпакапААЁпАекАекААпЁапек╨пАекААААпАААПЁЕКПАЕКАЕКААПАР░ЕКРПАЕКРПААПАААПМНКПМНКАЕКААМММПЕКРПРЕОМПрРПАААЯАААЯАХЪАХЪААЯААЯХЪАЯАХЪААрАЯАААЯАААЯАХЪАХЪААЯАРЯХЪАЯРХЪААААЯААА ААА Аї·Аї·ёЄ аА ї·А аї·АААА ААА ААА Ёї·Аї·ї· АА ї·А Аї·АААА АА│┐│░│┐Р╡╗▓╡╗╖║┐││┐╡╗│┐▒╖╗▓АА▒┐▓А└└└└└р└└└└└└а└└└└└└└└└└└└└└└└░└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ЯАХЪАХЪААЯАРЯХЪАЯРХЪАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ├╔├┬├┼┴╟┬┬├$%╟┬┴┴┬┬┼-./0╞╔                   FALSOFTППП ъPRESENTSППП!ъ RAINBOWППП" ON ППП# DISK ППП MENU BASLABEL BASфCOINTOSSBAS&╞MAKEBUCKBAS'жEASYASPIBAS(LHACKER BAS)┘CANNON BAS MEETING BASОSHUFFLE BAS*сSUMDIGITBAS+ФDATATRANBAS─RETRV BAS,╠EZTHELLOBASMAP BAS1(KNIGHT BASН                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                № №¤·ЯЬЭЪдноиА┐╝╝┐╒▐▄▀фэюьяЕМПМКА Аї·ЯАХЪАекАА┐АА┐╒┌╨▀АхъАяЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъАьЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъААААПААА Ёї·ЯАХЪАекАА┐АА░╒┌А▀АхъАяААПААА №¤·ЯЬЭЪАекАА╝╝╝┐╒┌А▀АхюьярАПААА АААЯАХЪАекАА┐АА┐╒┌А▀АхъААрАПА А АААЯАХЪАекАА┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦└╧├╧А ЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           №       Ё?      └       ЁЁ           №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       └                             №         №         Ё?  Ё?        Ё?    Ё?        └      └         └?      Ё?Ё              └        №?    Ё       №?  Ё       Ё?      Ё  ?      └└      └ 0       0       0     №  └     №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ├&d:Г COIN TOSS&nМ C(255)&:xА I│0 е 255: C(I)│I: Л&IВCT│0: PT│0&YМА I│0 е 255&bСCT│0&ГЦЕ (C(I) ░ 256)│256 з CT│CTл1&даЕ (C(I) ░ 128)│128 з CT│CTл1&├кЕ (C(I) ░ 64)│64 з CT│CTл1&т┤Е (C(I) ░ 32)│32 з CT│CTл1'╛Е (C(I) ░ 16)│16 з CT│CTл1'╚Е (C(I) ░ 8)│8 з CT│CTл1';╥Е (C(I) ░ 4)│4 з CT│CTл1'X▄Е (C(I) ░ 2)│2 з CT│CTл1'uцЕ (C(I) ░ 1)│1 з CT│CTл1'КЁЕ CT│4 з PT│PTл1'Р·Л'┬З "% OF EQUAL HEADS AND TAILS="; (PTн100о255)т┤Е (C(I) ░ 32)│32 з CT│CTл1'╛Е (C(I) ░ 16)│16 з CT│CT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 г&d:Г CHANGING A DOLLAR&XnА P│0 е 100 й 5:А N│0 е 20:А D│0 е 10:А Q│0 е 4:А H│0 е 2&ФxЕ PлNн5лDн10лQн25лHн50│100 з CNT│CNTл1: З P;N;D;Q;H;CNT&вВЛ:Л:Л:Л:Л;H;CNT 130 NEXT:NEXT:NEXT:NEXT:NEXT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  I&d:Г EASY AS PI&HnА X│м1 е 1 й .001:Y│ Ы(1мXнX):A│Aл2нYн.001:Л:З A:PRINT A 28)'м З Л(252) Л(255) Л(252) Л(253) Л(250) Л(159) Л(156) Л(157) Л(154) Л(164) Л(173) Л(174) Л(168)R$ Л(191) Л(188) Л(188) Л(191) Л(213) Л(222) Л(220) Л(223) Л(228) Л(237);(f З Л(238) Л(236) Л(239) Л(133) Л(140) Л(143) Л(140) Л(138)R$ Л(255)R$ Л(245) Л(250) Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);) З Л(234)R$ Л(239) Л(133)R$ Л(143)R$ Л(138)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);)иЗ Л(234)R$ Л(236) Л(133)R$ Л(143)R$ Л(138)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);*DЗ Л(234)R$R$R$R$ Л(143)R$R$R$ Л(255) Л(240) Л(245) Л(250) Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(176) Л(213) Л(218)R$ Л(223)R$ Л(229);*ЇЗ Л(234)R$ Л(239)R$R$ Л(143)R$R$R$ Л(255) Л(252) Л(253) Л(250) Л(159) Л(156) Л(157) Л(154)R$ Л(165) Л(170)R$R$ Л(188) Л(188) Л(188) Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);+РЗ Л(238) Л(236) Л(239) Л(224)R$ Л(143)R$R$R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);,'З Л(234)R$R$ Л(224)R$ Л(143)R$ Л(105)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);,├З Л(234)R$R$R$R$ Л(143)R$ Л(110)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170) Л(161) Л(162) Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);-^З Л(234)R$R$R$R$ Л(143)R$ Л(99)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170) Л(165) Л(170) Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);."З Л(234)R$R$R$R$ Л(143)R$R$ Л(243) Л(255) Л(243)R$ Л(147) Л(159) Л(145) Л(151) Л(155) Л(146) Л(167) Л(171) Л(167) Л(170) Л(191) Л(179) Л(179) Л(191) Л(213) Л(219) Л(211) Л(223) Л(225) Л(231);.┬З Л(235) Л(226)R$R$ Л(129) Л(143) Л(130)R$ Л(195) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195) Л(195) Л(193) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195) Л(193);/lЗ Л(195) Л(195) Л(194) Л(195) Л(194) Л(193) Л(195) Л(195 ╓&d:Г HACKER'S DISEASE&'nМ P(1000)&CxА I│1 е 1000: P(I)│0: Л&wВP(13)│1: P(213)│1: P(500)│1: P(717)│1: P(861)│1&лМP(17)│1: P(134)│1: P(381)│1: P(816)│1: P(978)│1&╝ЦА I│1 е 1000&█аЕ  Д(10)┤│9 з RE│0 :Д RE│1&√кЕ P(I)│0 з Е RE│0 з NO│NOл1'$┤Е P(I)│0 з Е RE│1 з YS│YSл1: NC│NCл1'D╛Е P(I)│1 з Е RE│1 з NO│NOл1'm╚Е P(I)│1 з Е RE│0 з YS│YSл1: CO│COл1'u╥Л I'е▄З "WELL PEOPLE DIAGNOSED WITH DISEASE:"; NC'╒цЗ "SICK PEOPLE DIAGNOSED WITH DISEASE:"; COE│1&√кЕ P(I)│0 з Е RE│0 з NO│NOл1'$97) Л(202)R$ Л(207)R$ Л(202) Л(207)R$ Л(207)R$;1┐З Л(207)R$ Л(202) Л(197) Л(202) Л(197) Л(199) Л(202)R$ Л(197) Л(202)R$ Л(207)R$ Л(207)R$ Л(199) Л(203) Л(192)R$ Л(199) Л(203) Л(197) Л(203);2gЗ Л(193) Л(207) Л(195) Л(202) Л(207) Л(195) Л(207) Л(193) Л(207) Л(195) Л(202) Л(199) Л(203) Л(192) Л(197) Л(203) Л(192) Л(199) Л(203) Л(192) Л(207) Л(195) Л(207);2АI│1е1000:Е Т│""зЛI2ж╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,2482╖╚2,3:╝1:╚1,32ъ ╞"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45"3e!╗(50,80)м(78,100),╜,BF:╗(194,80)м(166,100),╜,BF:╗(102,80)м(142,100),╜,BF:╗(86,84)м(94,96),╜,BF:╗(150,84)м(158,96),╜,BF3s"╟3е1:╟4е23Д#╚2,3:╝1:╚1,34,$╞"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12"4Н%├(128,116),1,1:╞"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12"4╖&├(128,90),3,1:╞"BU20C1NL20C4R76C1R20"4┼'╟3е1:╟4е24╓(╚2,3:╝1:╚1,35E)╞"BM8,150C1H8R45U2R166D2R45G8L40D2L160U2L40H8M+32,-80R192M+32,+80L45H20L128NG20L40M+18,-52R176M+18,+52L42"5З*┬(76,94),14,1,.8:┬(176,94),14,1,.8:├(76,94),1,1:├(176,94),1,15╟+╗(76,86)м(176,102),╜,B:╗(96,90)м(156,96),╜,BF:├(128,74),3,16C,╞"C1BM50,144R154L2D2L150R2D2R146BL36C4U4L18D4BL40U4L18D4BU12C1BL14L4U2R4BR18R4U2L4BR32BU4R4U2L4BR32BD6R4D2L4BR26L4D2R4"6Q-╟3е1:╟4е26╨.╞"BM0,54C1U42R20":┬(16,24),16,1,.8,.8,.17:╞"BD22BR4F2RDRM+2,+17L8U4LU7LU3L2UL2UL7D16NL8U16BU7U12R8DR2DRFRD2RD2LD2LGLGLDL8"7b/╞"BR25BD23M+12,-42R10M+10,+42L8M-2,-8NL11BU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10"7ї0╞"BR48U42R20":┬(154,24),16,1,.8,.8,.17:┬(154,44),16,1,.8,.8,.17:╞"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8"81┬(190 ▐&Gd:Г FARO SHUFFLE - INTERSPERSE CARDS FROM TWO HALVES - OUT SHUFFLE&\nМ CA(52), NW(52)&иxЖ 6,33,45,37,41,3,25,23,5,49,36,27,50,16,48,29,34,38,17,8,28,22,2,39,26&єВЖ 12,24,18,51,15,19,46,21,11,35,13,7,31,9,42,43,47,10,44,51,30,1,52,40'МЖ 20,14,15'ЦА I│1 е 52: Н CA(I): Л'<аА I│1 е 52: З CA(I);: Л: З'JкА J│1 е 8'`┤З "SHUFFLE #:"; J'Щ╚А I│26 е 1 й м1:NW(Iн2)│CA(26лI): NW(Iн2м1)│CA(I): Л'╕╥А I│1 е 52: CA(I)│NW(I): Л'╛▄Л'▌цА I│1 е 52: З CA(I);: Л: З10,44,51,30,1,52,40'МЖ 20,14R20D2R2D12L2D2L14D8NL4BU14U4R10D4L10BR24BD14U24R20D6L14D4R14D4L14D4R14D6L20":Ф7├(92,180),1,1:├(110,180),1,1:├(142,180),1,1:├(172,180),1,1:╟3е1:╟4е2;8АI│0е24й24:┬(216лI,176),12,2,.85,.85,.7:┬(216лI,176),10,2,.85:┬(216лI,176),8,2,.85:┬(216лI,164),10,2,.85:┬(216лI,164),8,2,.85:ЛI;':╟3е1:╟4е2;6;АII│1е1000;I<Е Т│""з61:Д600;Q=ЛII;gXВ START MENU TEXT;tbМ A$(40);~lН MN$;иvАP│1е34:Н A$(P):Е A$(P)│"END"з640:ДЛP;─АЕ A$(P)│"END"з A$(P)│"";╩КЮ;щФЗ" RAINBOW ON TAPE"< ЮЗ" (C) FALSOFT, 1987"<иЗvЄЖ " (22) HORROR"," (27) SCROLL"," (29) QUEENS"," (32) SCRNDMP"," (36) SCRNDMPS"," (38) LP78DMPS"," (39) TESTSCRN"," (46) ENERGY"?№Ж " (50) GRAFTRAN"," (63) DESKTOPL"," (68) DESKTOPH"," (72) GENFONT1"," (75) GENFONT2"," (78) FUNFACE"," (79) MARTIAN"," (80) COCOART"," (81) MIRORPIX"?╛Ж " (82) P178&GL"," (82) WINDCHIL"," (83) FOOTBALL"," (95) CCBLITZ"," (99) MENUGEN"," (99) COCODRAW","(103) 3DLETTER","(107) READPROG","(118) ANIMATE","(124) PICTBOOK"?╚'Ж ENDNT2"," (78) FUNFACE"," (79) MARTIAN"," (80) COCOAR                                                                                                                                                                                                                                                                 С&d:Г SUM OF DIGITS MATRIX&PnP1│0: P2│0: P3│0: P4│0: P5│0: P6│0: P7│0: P8│0&ixЩ "O", #1, "RESULTS"&ЕВP1│P1л1: Е P1│10 з Ъ: С&╜МP2│P2л1: Е P2│10 з P2│0: Бе 130 :Д Е P2│P1 з Бе 140&¤ЦP3│P3л1: Е P3│10 з P3│0: Бе 140 :Д Е P3│P2 ▒ P3│P1 з Бе 150'EаP4│P4л1: Е P4│10 з P4│0: Бе 150 :Д Е P4│P3 ▒ P4│P2 ▒ P4│P1 з Бе 160'ХкP5│P5л1: Е P5│10 з P5│0: Бе 160 :Д Е P5│P4 ▒ P5│P3 ▒ P5│P2 ▒ P5│P1 з Бе 170'э┤P6│P6л1: Е P6│10 з P6│0: Бе 170 :Д Е P6│P5 ▒ P6│P4 ▒ P6│P3 ▒ P6│P2 ▒ P6│P1 з Бе 180(M╛P7│P7л1: Е P7│10 з P7│0: Бе 180 :Д Е P7│P6 ▒ P7│P5 ▒ P7│P4 ▒ P7│P3 ▒ P7│P2 ▒ P7│P1 з Бе 190(╡╚P8│P8л1: Е P8│10 з P8│0: Бе 190 :Д Е P8│P7 ▒ P8│P6 ▒ P8│P5 ▒ P8│P4 ▒ P8│P3 ▒ P8│P2 ▒ P8│P1 з Бе 200)%╥P9│P9л1: Е P9│10 з P9│0: Бе 200 :Д Е P9│P8 ▒ P9│P7 ▒ P9│P6 ▒ P9│P5 ▒ P9│P4 ▒ P9│P3 ▒ P9│P2 ▒ P9│P1 з Бе 210)>╫Е P9┤▓P3лP6 з Бе 310)Q▄C1│0:C2│0:C3│0)ЦцC3│P3лP6: Е C3▓│20 з C3│C3м20: C2│2 :Д Е C3▓│10 з C3│C3м10: C2│1)▐ЁC2│C2лP2лP5: Е C2▓│20 з C2│C2м20: C1│2 :Д Е C2▓│10 з C2│C2м10: C1│1*·C1│C1лP1лP4: Е C1▓│10 з Бе 310*)Е C1┤▓P7 ▒ C2┤▓P8 ▒ C3┤▓P9 з Бе 310*LЗ#1,P1,P2,P3,P4,P5,P6,P7,P8,P9*[З P1;P2;P3*j"З P4;P5;P6*y,З P7;P8;P9*Е6З "---"*Р@Бе 2102│1)▐ЁC2│C2лP2лP5: Е C2▓│20 з C2│C2м20: C1│2 :Д Е C2▓│10 з C2│C2м10: C1│1*·C1│C1лP1лP4: Е C1▓│10 з Бе 3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 )╔&$:Г COPYRIGHT 1990, FALSOFT INC&.dХ 650&;xМ LI$(8)&GММ RV(8)&uаЮ0:З @0,"----- DATA BASE RETRIEVAL------a&Т┤LI$(1)│"1. CHECK LISTING&▒╚LI$(2)│"2. DEPOSIT LISTING&═▄LI$(3)│"3. BILL LISTING&юЁLI$(4)│"4. SPECIAL REPORTING'LI$(5)│"5. RUN THE DATABASE UPDATE'5LI$(6)│"6. END THIS SESSION'Q,SL│96:NL│6:RC│0:Бж 9020'u@И A Бе 460,444,442,3000,440,340'вTЗ @416,"** SESSION OVER - TOUCH ANY KEY"'╬hА I│ 1 е 150:AA$│  Т:Е AA$ ┤▓ "" Бе 420'ш|Л I:З @416, б(31," ")(!РА I│ 1 е 60:AA$│  Т:Е AA$ ┤▓ "" Бе 420 :Д Л I:Бе 340()дЮ:К(7╕О "DATAB"(]║RT$│"BILL":RV(8)│2:RX$│"B":Бе 470(Ж╝RT$│"DEPOSIT":RV(8)│3:RX$│"D":Бе 470(ж╠RT$│"CHECK":RV(8)│1:RX$│"C"(╨╓AD│1:LI$(1)│"1. FIND A SPECIFIC "лRT$)рLI$(2)│"2. FIND A RANGE OF "лRT$л"S":LI$(3)│"3. RETURN TO THE MAIN MENU)`ъLI$(4)│"4. RUN THE DATABASE UPDATE":LI$(5)│"5. END THIS SESSION)ЩЇЮ:З @25,"------b":З @0," --- FIND (SOME) ";RT$;"S ";)░SL│96:NL│5:Бж 9020)╨И A Бе 560,1035,160,440,340*0Ю:З @25,"------c":З @0,"-- SEARCH FOR A ";RT$;" ";*CDSL│64:VT$│"N":LV│1000:HV│9999:P$│"ENTER "лRT$л" NUMBER"*WXБж 9220:SN$│VA$*ulSL│128:VT$│"N":HV│12:LV│1*╡АP$│"ENTER MONTH OF "лRT$л": 1-12":Бж 9220:MM$│ П("0"лVA$,2)*▐ФSL│192:P$│"NEXT ENTER THE DAY: 1-31"*¤иVT$│"N":LV│1:HV│31:Бж 9220+╝DD$│ П("0"лVA$,2):Бж 9800+J╨MK$│MM$лDD$лRX$лSN$:Бж 9900:Е GE│2 Бе 1022+QфЮ0+|юHF$│"<<<<<<<<< CHECK FOUND >>>>>>>>>>"+жєЕ RX$ │ "B" з  Р(HF$,9,7) │ "<< BILL"+╨їЕ RX$ │ "D" з  Р(HF$,9,7) │ "DEPOSIT"+┌ЎЗ HF$+є°J│ Ю(11,LI$, Л(127)),¤CA│ Й( Р(LI$,11,Jм11))о100:SL│64,VCI$│ Р(LI$,10,1):Е CI$│"Y" з CD$│"' ' YES" :Д CD$│"'*'NO",Г I│ Ю(17,LI$, Л(127)):CP$│ Р(LI$,17,Iм17),Я\CF$│ П(LI$,( З(LI$)мI)),╦pЗ @224,"NUMBER DATE CLEARED AMOUNT",¤ДЗ @256," ";SN$;" ";MM$;"/";DD$;" ";CD$;" ";-ОЗ ═ "##,###.##";CA-7УЗ @288," ":А J│1 е 4:З " ":Л J-zШЕ RT$│"CHECK" з З @288,"PAID TO: ";CP$:З @352,"PAID FOR: ";CF$-жвЕ RT$│"DEPOSIT" з З @288,"SOURCE: ";CP$-▀мЕ RT$│"BILL" з З @288,"FROM: ";CP$:З @352,"FOR:";CF$.└З @192,"-----";RT$;" DETAILS -----".1╘LI$(1)│"1. RETURN TO PREVIOUS SCREEN".Y▐LI$(2)│"2. RUN THE DATABASE UPDATE".ЗшLI$(3)│"3. END THIS SESSION":NL│3:Бж 9020.Ю№И A Бе 470,440,340.╓■Ю:З "*** ";RT$;" ";SN$;" ";MM$;"/";DD$;" NOT FOUND".шSL│128:Бе 980/ А I│1 е 7:RV(I)│0:Л I/"Ю:ST│0:NS$│ П(" "лRT$,7)/MЗ @0,"--FIND ";NS$;"S WITHIN A RANGE--/`З @31,"r":ST│0/Ц$LI$(1)│"1. BY "лRT$л" NUMBER":LI$(2)│"2. BY DATE"/╤8LI$(3)│"3. BY CLEARED/UNCLEARED":LI$(4)│"4. BY AMOUNT"0 LLI$(5)│"5. BY PAID TO OR FROM":LI$(6)│"6. BY PURPOSE"0=VLI$(7)│"7. PRINT TOTALS":LI$(8)│"8. CONTINUE"0fXЕ RV(8)│3 з LI$(6)│"6. # NOT USED #"0Ц[А I│1 е 7:Е RV(I) ┤▓ 0 з  Р(LI$(I),3,1)│"*"0Ю^Л I0╡`NL│8:SL│64:Бж 90200шtИ A Бе 1160,1260,1440,1480,1580,1680,1155,17801 ГЕ RV(7)│0 з RV(7)│1 :Д RV(7)│01ЕБе 10401MИP$│"ENTER LOWEST NUMBER 1000-9998":SL│320:VT$│"N"1qЬLV│1000:HV│9998:Бж 9220:LN$│VA$1е░P$│"ENTER HIGHEST NUMBER "л И( Б(VVл1))л"-9999"1╪─SL│320:VT$│"N":LV│VVл1:HV│9999:Бж 9220:HN$│VA$1ь╪RV(1)│1:Бе 10402ьP$│"ENTER LOWEST MONTH 1-11":SL│320:VT$│"N"2EHV│11:LV│1:Бж 9220:LM$│ П("0"лVA$,2)2sP$│"ENTER LOWEST DAY 1-30":SL│320:VT$│"N"2Ь(LV│1:HV│30:Бж 9220:LD$│ П("0"лVA$,2)2═ bЕ  Р(LI$,5,1)│"C" з З " ";>2 lЗ ═ "#####.##";CAо100;>_ vЕ  Р(LI$,5,1)│"C" з CT│CTлCA :Д DT│DTлCA>v КЕ PL┤ 14 з Бе 3110>Ю ФЗ @480,"PRESS ANY KEY TO CONTINUE";>║ ЮA$│ Т:Е A$│"" з Бе 3230>╨ иЮ:Бж 3900:Бе 3110>ю ▓Е RV(7)│0 з З " ":Бе 3270? ╖З " ":З "SUBTOTALS ";?' ╣З ═ "#####.##";DTо100;?B ╝З ═ " #####.##";CTо100?Z ┴З "OP BAL/TOTALS ";?q ┬З ═ "#####.##";OB;?Й ├FT│OBл((DTмCT)о100)?а ─З ═ " #####.##";FT?╠ ╞Е RC│0 з З "** NO RECORDS IN THIS RANGE?∙ ╦З "-END OF SELECT - PRESS ANY KEY-";:Ъ#1@ ╨A$│ Т:Е A$│"" з Бе 3280 :Д Бе 3000@I<Ю:З "--- CHECK/DEPOSIT REPORT -----"@vFЗ @32,"DATE NMBR CD DEPO-AMT CHCK-AMT"@БPPL│1:Р@гаRV(8)│5:А I│1 е 7:RV(I)│0:Л I@пБе 1040@╗ Бж 4900@┌Бж 10280:И RI Бе 4120,4250@юRC│RCл1:PL│PLл1A"J│ Ю(10,LI$, Л(127)):K│ Ю(Jл1,LI$, Л(127))AK,З @(32нPL), О(LI$,2);"/"; Р(LI$,3,2);" ";A6З  Р(LI$,6,4);" "; Р(LI$,5,1); Р(LI$,10,1);" ";A░@CA│ Й( Р(LI$,11,Jм11)):TF$│ Р(LI$,Jл1,KмJм1)A╠JЗ  О(TF$л" ",9);A■OЕ  Р(LI$,5,1)│"C" з PC│м1нCAо100 :Д PC│CAо100BTЗ ═ "#####.##";PC;BB^Е  Р(LI$,5,1)│"C" з CT│CTлCA :Д DT│DTлCABYrЕ PL┤ 14 з Бе 4110BБ|З @480,"PRESS ANY KEY TO CONTINUE";BЭЖA$│ Т:Е A$│"" з Бе 4230B│РЮ:Бж 4900:Бе 4110B╦ЪЕ RV(7)│0 з Бе 4270CЯЗ " BILL TOTAL ";:З ═ " ######.##";DTо100C;дЗ "CHECK TOTAL ";:З ═ " ######.##";мCTо100C[йЗ "OUTSTANDING AMOUNT ";CГлFT│((DTмCT)о100):З ═ " #####.##";FTCпоЕ RC│0 з З "** NO RECORDS IN THIS RANGEC▄│З "-END OF SELECT - PRESS ANY KEY-";:Ъ#1D╕A$│ Т:Е A$│"" з Бе 3280 :Д Бе 3000D,$Ю:З "------ CHECK/BILL REPORT -----"DY.З @32,"DATE NMBR TC DESCRIP AMOUNT"Dd8PL│1:РDБ#<А I│ 1 е NL:З @SL,LI$(I)DУ#PSL│ SLл32:Л ID╜#dЗ @32,"* SELECT FROM THE FOLLOWING"D╧#xА I │ 1 е 200Dї#МA$ │  Т:Е A$ ┤▓ "" Бе 9180 :Д Л IE#аЗ @32," ":А I │ 1 е 65E6#┤A$ │  Т:Е A$ ┤▓ "" Бе 9180 :Д Л IEB#╚Бе 9060Eh#▄A │  Й(A$):Е A ▓ 0 ░ A ┤ NLл1 з РEt#ЁБе 9060EЧ$З @SL,P$ :ГPROMPT FOR VARIABLEE╡$З @SLл32," " :ГCLEAR LINEE┌$,З @SLл32,""; :ГREPOSITION CURSORF$@╗ Й "==> ";VA$ :ГINPUT THE VARIABLEF&$TLA│  З(VA$):Е VT$ │ "D" Бе 9460F>$hЕ VT$ │ "N" Бе 9380FX$|Е LA ▓  Б(HV) Бе 9220Fu$РР :ГVARIABLE IS IN RANGEFЕ$дVV│  Й(VA$)FЫ$╕Е VV ┤ LV Бе 9220F▒$╠Е VV ▓ HV Бе 9220F╜$рБе 9360F█$ЇЕ LA ▓ 9 ▒ LA ┤ 3 Бе 9220F %Е  Р(VA$,LAм2,1) ┤▓ "." Бе 9220G %Бе 9380G7&HЕ DD$ ▓ "15" з DF$ │ "15" :Д DF$ │ "01"G`&\SG$ │ "M" л MM$ л "D" л DF$ л "/CHK"Gu&pЪ:Щ "I",#1,SG$:РGЫ&Д:ГAD=1 LOCATE, 2 CHANGE, 3 DELETEG╔&Ш:ГRA 1 ADDED,CHANGED,DELETED 0 NO ACTIONGт&мЕ  М(1) │ м1 Бе 9990G &└Й #1,LI$:IK$ │  О(LI$,9)H&╘Е IK$┤MK$ з Бе 9900H5&шЕ IK$│MK$ з GE│1 :Д GE │2H=&№Ъ:РHJ'GE│2:Ъ:РHn'Е IK$ ┤ LK$ ▒ IK$ ▓ HK$ Бе 9900HЛ'$RC│RCл1:┘ #2,LI$:Бе 9900HЪ'8MV│ Й(MM$)H╕'LЕ MV │ 12 ░ DF$ │"15" з РH╙'`Е MV │ 12 з DF$ │ "15"H№'tЕ DF$ │ "01" з DF$ │ "15" :Д MV│MVл1I'ИMM$ │  П( И(MVл100),2):Ъ #1IE'ЬSG$ │ "M" л MM$ л "D" л DF$ л "/CHK"I^'░Щ "I",#1,SG$:Бе 9900IП'─Е RV(2) │ 1 з Бе 10200 :Д MM│1:DD│1:Бе 10220I╣'╪MM│ Й(LM$):Е LD$ ┤ 16 з DD│1 :Д DD│15I·'ьSG$ │ "M" л  П("0"л И(MM),2) л "D" л  П("0"л И(DD),2)л"/CHK"J/(А I │ 1 е 6:Е  Р(SG$,I,1)│ " " з  Р(SG$,I,1)│"0"JI(Л I:Ъ #1:Щ "I",#1,SG$Ju((A$│ Т:Е A$│" " з RI│2:Р :ГFORCED RETURNJЯ(*Е  М(1) │ м1 Бе 10680 :ГCHANGE FILES?J╔(<Й #1,LI$:RI│0:RJ│0 :Г EXAMINE RECORDJш(FИ RV(1) Бж 10380 :ГCHECK #K(HИ RV(2) Бж 10430 :ГDATEK(IЕ RI│2 з РK2(JИ RV(3) Бж 10440 :ГCLEAREDKP(LИ RV(4) Бж 10480 :ГAMOUNTKo(NИ RV(5) Бж 10560 :ГPAID TOKО(OИ RV(6) Бж 10600 :ГPURPOSEKв(PIN$│ Р(LI$,5,1)K╓(RИ RV(8) Бж 10520,10530,10540,10550,10556 :ГTYPEKя(VЕ RJ ┤▓ 0 з Бе 10280K·(dRI│1:РL(МIN$│ Р(LI$,6,4) :ГNUMBERL:(аЕ IN$ ┤ LN$ ▒ IN$ ▓ HN$ з RJ│1L@(┤РLR(╛IN$│ О(LI$,4)Lk(└Е IN$ ┤ LX$ з RJ│1:РLЕ(┬Е IN$ ▓ HX$ з RI│2:Р LС(─Р :ГHITL║(╚IN$│ Р(LI$,10,1) :ГCLEARED INDICATORL╥(▄Е IN$ ┤▓ CC$ з RJ│1L╪(цРLё(ЁI│ Ю(11,LI$, Л(127))M(·IN │  Й( Р(LI$,11,Iм11))о100M1)Е IN ┤ LA ▒ IN ▓ HA з RJ│1M7)РMV)Е IN$ ┤▓ "C" з RJ│1:Р :Д РMu)"Е IN$ ┤▓ "B" з RJ│1:Р :Д РMФ),Е IN$ ┤▓ "D" з RJ│1:Р :Д РM│)6Е IN$ │ "B" з RJ│1:Р :Д РM╥)<Е IN$ │ "D" з RJ│1:Р :Д РN)@J│1л Ю(11,LI$, Л(127)):K│ Ю(Jл1,LI$, Л(127))N)JIN$│ Р(LI$,J,KмJ)N<)TЕ IN$ ┤ LT$ ▒ IN$ ▓ HT$ з RJ│1NB)^РNs)hJ│1л Ю(11,LI$, Л(127)):K│ Ю(Jл1,LI$, Л(127))NС)|J│ З(LI$):IN$│ П(LI$,JмK)N┤)РЕ IN$ ┤ LF$ ▒ IN$ ▓ HF$ з RJ│1N║)дРN▄)╕Е  О(SG$,6)│"M12D15" з RI│2:РO)╠MM│ Й( Р(SG$,2,2)):DD│ Й( Р(SG$,5,2))O")рЕ DD│1 з DD│15:Бе 10760O=)ЇЕ DD│15 з DD│1:MM│MMл1OW*MM│100лMM:DD│100 л DDOl*RS$│ П( И(MM),2)OА* Р(SG$,2,2)│RS$OХ*&RS$│ П( И(DD),2)Oй*0 Р(SG$,5,2)│RS$O╚*DЪ #1:Щ "I",#1,SG$:Бе 10280"M12D15" з RI│2:РO)╠MM│ Й( Р(SG$,2,2)):DD│ Й( Р(SG                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 %& В"USING MAP DIRECTIONALS"&WВ"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1990"&lХ 2000:X│ Д(м Я)&Л(A$│"BEHUNU2R4NU2DGL2BGBL6"&й2B$│"BEHENR3HER3D4L3BGBL6"&╞