ю$:ГCOPYRIGHT(C) 1983 CLOAD INC.=:Г SCREEN REVERSEP:Г BYk:Г DANIEL N. HAMILTONЕ:Г 9717 S. 52ND AVE.а:Г OAK LAWN IL. 60453з:Гн Ю╞TR│ Ж(39)н256л Ж(40)╓Х 200,TRм70ё(RS│ Ж(39)н256л Ж(40)л1¤2ST│RSл8<А LOC│RS е RSл68FН OBJ*PТ LOC,OBJ4ZЛ LOC=dв STnЗ:З:З" PLEASE MAKE A NOTE OF THE FOLLOWING ADDRESSES.┼xЗ:З:З" TO TURN OFF REVERSE VIDEO:":З" TYPE ' EXEC";RS;"'" ВЗ:З:З" TO TURN ON REVERSE VIDEO:":З" TYPE ' EXEC";ST;"'"МЦэЦЖ174,141,0,62,191,1,13,57,48,141,0,13,16,190,1,13,16,175,141,0,45,191,1,13,57,52,127,106,141,0,37,38,30,134,10,167,141,0,29,142,4,0,166,128,129,64,45,8,129,127,46,4,128,64,167,31,140,6,0,39,2,32,235,53,127,126,0,0,10 TYPE ' E                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 $ :ГCOPYRIGHT(C) CLOAD INC. 1983C:ГBY TOM MARAZITA AT CLOADMХ1000T(┌ИZ2Юx<З" --FILE COPY--"~FЗHPЗ" THIS WILL COPY AN ENTIRE DISK FILE BY FILE INSTEAD OF TRACK BYTRACK (AS backup DOES). THIS WAYYOU CAN MAKE A BACKUP OF A DISK (OR MOST OF A DISK) THAT GETS ANI/O ERROR WHEN A backup IS DONE.":ЗaZЙ"COPY FROM DRIVE";FxdЙ"COPY TO DRIVE";TиnЙ"INSERT DISKS AND HIT 'ENTER' TO START";N$оxЗ└ВЗ"COPYING..."╧МTRACK │ 17▀ЦА S│ 3 е 11ёа▀F,17,S,A$,B$кA$│A$л О(B$,127)┤А P│ 1 е 255 й 322╛NAME$│  Р(A$,P,8)H╚EXT$│ Р(A$,Pл8,3)z╥Е EXT$┤▓" "з EXT$│"."лEXT$:NAME$│NAME$лEXT$Ш▄Е  О(NAME$,1)│ Л(255) з К╢цЕ  О(NAME$,1)│ Л(0) з 280╜Ё:Г═·Е F│T з 330шЗ NAME$;" FROM"F"TO"T▐ NAME$л":"л П( И(F),1) е NAME$л":"л П( И(T),1)#ЛPy"Е F│T з Ю:Й"INSERT SOURCE DISK AND HIT ENTERTO READ MORE OF THE DIRECTORY";N$:G│1А,ЛSЗ6┌кН@КЯJЮ:Е G│1 з 350шTЗ"INSERT SOURCE DISK AND HIT ENTERTO COPY ";NAME$;:ЙN$:▐ NAME$:Бе280^З"COPYING ";NAME$:▐ NAME$:G│0:Бе280( И(T),1)#ЛPy"Е F│T з Ю:Й"INSERT SOURCE DISK AND HIT ENTERTO READ MORE OF THE DIRECTORY";N$:G│1А,ЛSЗ6┌кН@КЯJЮ:Е G│1 з 350шTЗ"INSERT SOURCE DISK AND HIT ENTERTO COPY ";NAME$;:ЙN$:▐ NAME$:Бе280^З"COPYING ";NAME$:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                2,═"#####.#"; Й( Р(T$(J),57,4));/aРЗ#м2," -----":TT│TTл Й( Р(T$(J),37,7))н Й( Р(T$(J),57,4)):Л/БЪLC│LCл3:Бж440:ЕLC│8зLC│LCл2/┬дЗ#м2:З#м2:З#м2,д35)"ESTIMATED TOTAL ";:З#м2,═"$###.##";TT/хоЕLC┤66зLC│LCл1:З#м2:Бе430:ДЮ:Р0╕ЕLC┤63зР:ДЗ#м2:З#м2:З#м2:З#м208┬З#м2:З#м2:З#м2:З#м2,д30)"SHOPPING LIST":З#м20Ы╠З#м2,д4)"UNITS COUPONS NAME BRAND PRICE QTY CHECK":З#м2:LC│8:Р0л╓Ю:ЕTM│0з7201рJ│0:Ю:З"TO LOCATE A ITEM, ENTER THE NAMEOTHERWISE JUST PRESS .":╗Й"? ";DD$:Ю:SF│01│ъЕA$│ Л(94)зР:ДJ│Jл1:Бж520:ЕJ▓TM ░SF┤1з500:ДЕJ▓TM зJ│0:Бе490:ДЕT$(J)│""░A$│ Л(8)Бж620:Бе490:ДK│ Ю(1, Р(T$(J),1,30),DD$):ЕK│0░A$│ Л(8)Бж620:Бе490:ДЕK│0з490:ДБж530:Бе4901ъЇЮ:З"*NOT FOUND*":З@64,"PRESS ANY KEY TO CONTINUE."2 ■Е Т│""з510:ДJ│0:DD$│"":Бе49021ЕDD$│""зР:ДЗ@0,"*SEARCHING* ";J:Р2]З@0,д6)"VIEW / CHANGE ITEM":Бж540:Бе5802┤SF│SFл1:З б(32,191)"ITEM NO."J:З:Е Р(T$(J),61,1)│"S"зЗ@80,"SELECTED !!";:З@128,"";3&Зд5)"NAME:"д12) Р(T$(J),1,15):Зд4)"BRAND:"д12) Р(T$(J),16,15):U$│ Р(T$(J),31,6)3П0Зд4)"UNITS:"д12)U$:Зд4)"PRICE:"д12)"$" Й( Р(T$(J),37,7))"PER "U$:Зд2)"COUPONS:"д12) Р(T$(J),44,3):З" PERIOD:"д12) Р(T$(J),47,10)3╦:З" QUANTITY:"д11) Й( Р(T$(J),57,4)):З@384, б(32,191);:Р42DЗ" Add Change Delete":З" Select Unselect List":З" ";4VNБж210:ЕA$│"L"зБж350:J│0:A$│"":Р4ЫXЕA$│"S"з Р(T$(J),61,1)│"S":Р:ДЕA$│"U"з Р(T$(J),61,1)│" ":J│Jм1:Р5bЕA$│ Л(8)Бж620:Р:ДЕA$│"A"Бж720:Р:ДЕA$│"C"Бж630:J│Jм1:Р:ДЕA$│"D"зT$(J)│"":SF│SFм1:Р:ДЕA$│ Л(9)зР:ДЕA$│ Л(94)зР:Да128,1:Бе59057lJ│Jм2:ЕJ│▓0зР:ДJ│TMм1:Р5═vЗ@416,"ENTER NEW DATA OR":З" JUST PRESS TO RETAIN":З" THE CURRENT DATA." б(12,32);:З@137,"? ";:╗ЙD$:ЕD$┤▓""з Р(T$(J),1,15)│D$л б(15,32)6!АЗ@137,": " Р(T$(J),1,15):З@169,"? ";:╗ЙB$:ЕB$┤▓""з Р(T$(J),16,15)│B$л б(15,32)6ЗКЗ@169,": " Р(T$(J),16,15):З@201,"? ";:╗ЙU$:ЕU$┤▓""з Р(T$(J),31,6)│U$л б(6,32):ДU$│ Р(T$(J),31,6)6▓ФЕ П(U$,1)│" "зU$│ О(U$, З(U$)м1):Бе6607ЮЗ@201,": "U$:З@233,"? ";:╗ЙP$:ЕP$┤▓""з Р(T$(J),37,7)│ П( И( Й(P$)),7)л" "7YиЗ@233,": $" Й( Р(T$(J),37,7))"PER "U$:З@265,"? ";:╗ЙA$:ЕA$┤▓""з Р(T$(J),44,3)│A$7н▓З@265,": " Р(T$(J),44,3):З@297,"? ";:╗ЙF$:ЕF$┤▓""з Р(T$(J),47,10)│F$л б(10,32)8 ╝З@297,": " Р(T$(J),47,10):З@329,"? ";:╗ЙQ$:ЕQ$┤▓""з Р(T$(J),57,4)│ П( И( Й(Q$)),4)л" "86╞З@329,": " Й( Р(T$(J),57,4)):SF│SFм1:Р8▓╨ЕTM│MX зР:ДЮ:Зд10)"ADD NEW ITEM":З б(32,191);:TM│TMл1:T$(TM)│ б(61,32):З"ITEM NO."TM:З:╗Й"NAME? ";D$: Р(T$(TM),1,15)│D$9┌З@128,д5)"NAME:"д12) Р(T$(TM),1,15);:З@160:╗Й"BRAND? ";B$: Р(T$(TM),16,15)│B$9^фЗ@160,д4)"BRAND:"д12) Р(T$(TM),16,15):З:╗Й"UNITS? ";U$:U$│ О(U$,6): Р(T$(TM),31,6)│U$9тюЗ@192,д4)"UNITS:"д12)U$:З:ЗK$U$;:╗Й"? ";P$: Р(T$(TM),37,7)│ П( И( Й(P$)),7):З@224,д4)"PRICE:"д12)"$" Й( Р(T$(TM),37,7))"PER "U$:U°З:╗Й"COUPONS? ";A$: Р(T$(TM),44,3)│A$:З@256,д2)"COUPONS:"д12) О(A$,3):З:╗Й"HOW OFTEN? ";F$: Р(T$(TM),47,10)│F$:ВЗ@288,д3)"PERIOD:"д12) Р(T$(TM),47,10):З:т ╗Й"QUANTITY? ";Q$: Р(T$(TM),57,4)│ П( И( Й(Q$)),4):З@320," QUANTITY: " Й( Р(T$(TM),57,4)):З;^З@384, б(32,191);:З"ENTER Correct TO START OVER, OR":З"PRESS TO CONTINUE, OR":З" TO EXIT Add MODE.";:J│TMм1;╜ A$│ Т:ЕA$│""з800:ДЕA$│ Л(13)з720:ДЕA$│"C"зTM│TMм1:Бе720:ДЕA$┤▓ Л(94)за128,1:Бе800:ДA$│"":Р;╟*Ю:К:Р;╒4ЕTM┤2з140<>Ю0:З@169," SORTING ";:B│1:S│TMм1:N│0:PS│0 TOLOAD MATHVADERS. AFTER IT IS LOADED, TYPE 'RUN'.":З:К-3'В the music for this program was generated using two music program by DR. SANTEE - reCHORDer selects the notes and chords - BEATMAKER adds the beat,Щ'Ю:З:З"TYPE 'CLOAD' AND THEN TOLOAD MATHVADERS. AFTER IT IS LOADED, TYPE 'RUN'.":З:К-3'В the music for this program was generated using two music program by DR. SANTEE - reCHORDer se                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ·&%:ГCOPYRIGHT (C) 1983 CLOAD INC.&a :ГE P MEINERS, 9350 COUNTRY CREEK #30, HOUSTON TX 77036&kБе880&УN│1:T$│T$(K):T$(K)│T$(J):T$(J)│T$:Р&ў(MX│ Б( Уо66):M│MXн61:Т1024, Б(MXо256):Т1025,MXм Ж(1024)н256:ХM:MX│ Ж(1024)н256л Ж(1025):MX│MXм7'2МT$(MX):K$│"PRICE PER ":X│96'М<З@0,д8)"SHOPPING MENU":З б(32,191):Зд8)"LOAD FILE":Зд8)"SAVE FILE":Зд8)"CLEAR SELECT FLAGS":Зд8)"ENTER PRICES"(FЗд8)"UPDATE & LIST FILE":Зд8)"SORT FILE":Зд8)"EXIT":З б(64,32) б(32,191)" & KEYS MOVE POINTER,USE TO MAKE CHOICE"(OPТ1535,96:З б(31,32);:З@480," MAX ="MX;д20)"USED ="TM;(╛ZЗ@X,д5)"->";:A$│ Т:ЕA$│""з90:ДЕA$│ Л(94)зБж130:Бе90:ДЕA$│ Л(10)▒A$│" "зБж120:Бе90:ДЕA$┤▓ Л(13)за128,1:Бе90(ЁdS│(Xм64)о32:И S Бж320,240,150,180,470,820,810(∙nБе60)"xЗ@X,д5)" ";:X│Xл32:ЕX▓288зX│96:Р:ДР)KВЗ@X,д5)" ";:X│Xм32:ЕX┤96зX│288:Р:ДР)rМЗ@359,"";:╗Й"MEMORY EMPTY!! ";A$:Р)оЦЕTM│0з140:ДЮ:АJ│1еTM:ЕT$(J)┤▓""зЗ@0,"WORKING AT"J"OF"TM)╘аЕT$(J)│""з170:Д Р(T$(J),61,1)│" ")▄кЛ:Р)ъ┤ЕTM│0з140*0╛Ю:АJ│1еTM:Е П(T$(J),1)▓" "зБж200:Л:Р:ДЗ@0,"WORKING AT"J"OF"TM:Л:Р*д╚З@0,д10)"PRICE REPORT":Бж540:З@416:З@416,"NEW PRICE? ";:╗ЙP$:ЕP$┤▓""з Р(T$(J),37,7)│ П( И( Й(P$)),7)л" ":Р:ДР*╪╥A$│ Т:ЕA$┤▓""зР:ДЕ Ж(343)┤▓247░ Ж(344)┤▓247з210*Ї▄Е Ж(343)│247зA$│ Л(8):Р+цЕ Ж(344)│247зA$│ Л(9):Р:Д210+wЁЕTM│0з140:ДЮ:Зд8)"SAVE FILE SETUP":З б(32,191);:Бж270:З@384," WRITING FILE";:Бж300:Щ"O",DV,F$+╝·K│0:АI│0еTM:ЕT$(I)┤▓""зK│Kл1:З#DV,T$(I):З@448," AT ITEM"K"OF"TM;+╔Л:Ъ#DV:Р,З:Й"FILE NAME";F$:F$│ О(F$,8):Е Ж(188)│6зDV│м1:ДБж290,1ЕDV│1зЮ0:Р:ДЗ:З"POSITION CASSETTE.":Бе310,r"З:Й"USE DISK";A$:Е О(A$,1)┤▓"Y"зDV│м1:Р:ДDV│1:F$│F$л"/DAT":Р,У,З" ";:ЕF$│""зР:ДЗ">"F$" ";:Р,╜6╗Й"PRESS WHEN READY ";A$:Ю0:Р,ї@ЕTM│0з330:ДЗ@359,"";:Й"ARE YOU SURE?";A$:ЕA$┤▓"Y"зР-tJЮ:TM│0:Зд8)"LOAD FILE SETUP":З б(32,191);:Бж270:З@384," SEARCH FOR FILE";:Бж300:Щ"I",DV,F$:Ю0:З@384," LOADING FILE";:Бж300-╛TЕ М(DV)▒TM│MX зЪ#DV:Р:ДTM│TMл1:╗Й#DV,T$(TM):З@448," AT ITEM"TM;:Бе340. ^Ю:З"PREPARE PRINTER":З:╗Й"PRINT WHOLE FILE? (Y/N) ";ALL$:ALL$│ О(ALL$,1).%hЮ0:Бж450:LC│LCм1:TT│0.krАJ│1еTM:ЕT$(J)│""зЛ:Бе410:ДЕALL$│"Y"▒ П(T$(J),1)│"S"з380:ДЛ:Бе410.}|LC│LCл1:Бж440/ЖЗ#м2,д4) Р(T$(J),31,6)" " Р(T$(J),44,3)" " Р(T$(J),1,15)" " Р(T$(J),16,15)" ";:З#м2,═"$###.##"; Й( Р(T$(J),37,7));:З#м 4%:ГCOPYRIGHT (C) 1983 CLOAD INC. :ГBY CHARLES SANTEE 7516 COUNTRY LN. DARIEN, IL 60559Й\Х1000ПfЮЭpАB│0е32й4иzАA│2е8═ДЕ Б(Aо2)│Aо2зL│Aн32м32:ДL│Aн32мBхОЗ@L, б(B,127лAн16);ШЗ@Lл224, б(B,127лAн16);вЛAма100мBн2,1╢ЛBD╗Е  Ж(338)│191 ▒  Ж(339)│191 з 955N└LN│64Ю╩НX$:ЕX$│"*"з990:ДLN│LNл Б((32м З(X$))о2):З@LN,X$;:IC│ICл1:LN│64лICн64:Бе970╘Ж "*MATH*VADERS*","*BY*","*DR. CHARLES H. SANTEE*","","*hold ENTER when done* ","*hold CLEAR for instructions*",*а▐Е  Ж(338)│191 з 10000 :Д Е  Ж(339)│191 з 1000 :ДЗ@327,"enter";:З@391,"CLEAR";:Бж 5000:З@327,"ENTER";:З@391,"clear";:Бж 5000:Бе990pшЮ:З:З"to select the type of problems:":З:З" 1. USE THE UP AND DOWN arrow TO MOVE TO THE TYPE OF PROBLEMS YOU WANT. 2. PRESS THE space bar. 3. PRESS enter WHEN FINISHED"┘ЄЗ:З"to select level (OF PROBLEMS):":З:З" PRESS A NUMBER BETWEEN 1 (EASY) AND 4 (HARD)"¤№З@481,"HOLD enter TO CONTINUE";FЕ  Ж(338)┤▓191 зЗ@486,"enter";:Бж 5000:З@486,"ENTER";:Бж 5000:Бе1030#Ю:З"to play the game:":З:З" 1. USE arrows TO MOVE THE LAZER GUN UNDER THE PROBLEM YOU WANT":З" 2. TYPE THE NUMBER OR NUMBERS":З" THAT ANSWER THE PROBLEM":З" 3. THEN PRESS THE spacebar"GЗ@480,"HOLD clear TO CONTINUE";П$Е  Ж(339)┤▓191 з З@485,"clear";:Бж5000:З@485,"CLEAR";:Бж5000:Бе1060г.Ю:П:IC│0:Бе 955хИН X$:Е  Ю(X$,"*")┤▓0 з 5000 :Д Е X$│"%" з П:Бе 5000 :Д ╔ X$:РЁ#(Ж "T4" л#2Ж "V20T250L250O1CO2CV5T4P8V20T250O1CO5CV5T4P8V20T250L250O1CO5CV5T4P8V20T250O1CO2CV5T4P8V20T250L250O1CO5CV5T4P8V20T250O1CO5CV5T4P8V20T250L250O1CO2CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3E"!Д#<Ж "V20T250L250O1CO2CV5L8T4O3AV20T250L250O1CO5CV5L8T4O2AV20T250L250O1CO5CV5L8T4O2BV20T250L250O1CO2CV5L8T4O3CV20T250L250O1CO5CV5L8T4O3CV20T250L250O1CO5CV5L8T4O3DV20T250L250O1CO2CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3F""]#FЖ "V20T250L250O1CO2CV5L8T4O3FV20T250L250O1CO5CV5L8T4O3GV20T250L250O1CO5CV5L8T4O3AV20T250L250O1CO2CV5L8T4O4CV20T250L250O1CO5CV5L8T4O4CV20T250L250O1CO5CV5L8T4O3BV20T250L250O1CO2CV5L8T4O3BV20T250L250O1CO5CV5L8T4O3G"#6#PЖ "V20T250L250O1CO2CV5L8T4O3AV20T250L250O1CO5CV5L8T4O2AV20T250L250O1CO5CV5L8T4O2BV20T250L250O1CO2CV5L8T4O3CV20T250L250O1CO5CV5L8T4O3CV20T250L250O1CO5CV5L8T4O3DV20T250L250O1CO2CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3F"$#ZЖ "V20T250L250O1CO2CV5L8T4O3FV20T250L250O1CO5CV5L8T4O3GV20T250L250O1CO5CV5L8T4O3AV20T250L250O1CO2CV5L8T4O3AV20T250L250O1CO5CV5L8T4O3GV20T250L250O1CO5CV5L8T4O3GV20T250L250O1CO2CV5L8T4O3FV20T250L250O1CO5CV5L8T4O3F"$ч#dЖ "V20T250L250O1CO2CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO2CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO2CV5L8T4FV20T250L250O1CO5CV5L8T4O2F+"%╛#nЖ "V20T250L250O1CO2CV5L8T4EV20T250L250O1CO5CV5L8T4O3DV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO2CV5L8T4O3FV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO2CV5L8T4O3DV20T250L250O1CO5CV5L8T4O3D"&е#xЖ "V20T250L250O1CO2CV5L8T4O3CV20T250L250O1CO5CV5L8T4O3CL50T4GGO4CEO3GGO4CEL8O3CL4DL8EP8L50EG+BO4EL8O3EL50EG+BO4EL8O3E;V20T250L250O1CO5CV5T4P8V20T250O1CO2CV5T4P8V20T250L250O1CO5CV5T4P8V20T250O1CO5CV5T4P8V20T250L250O1CO2CV5T4P8"&╚#ВЖ "V20T250L250O1CO5CV5L8T4O3E"'б#МЖ "V20T250L250O1CO2CV5L8T4O3AV20T250L250O1CO5CV5L8T4O2AV20T250L250O1CO5CV5L8T4O2BV20T250L250O1CO2CV5L8T4O3CV20T250L250O1CO5CV5L8T4O3CV20T250L250O1CO5CV5L8T4O3DV20T250L250O1CO2CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3F"(z#ЦЖ "V20T250L250O1CO2CV5L8T4O3FV20T250L250O1CO5CV5L8T4O3GV20T250L250O1CO5CV5L8T4O3AV20T250L250O1CO2CV5L8T4O4CV20T250L250O1CO5CV5L8T4O4CV20T250L250O1CO5CV5L8T4O3BV20T250L250O1CO2CV5L8T4O3BV20T250L250O1CO5CV5L8T4O3G")S#аЖ "V20T250L250O1CO2CV5L8T4O3AV20T250L250O1CO5CV5L8T4O2AV20T250L250O1CO5CV5L8T4O2BV20T250L250O1CO2CV5L8T4O3CV20T250L250O1CO5CV5L8T4O3CV20T250L250O1CO5CV5L8T4O3DV20T250L250O1CO2CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3F"*,#кЖ "V20T250L250O1CO2CV5L8T4O3FV20T250L250O1CO5CV5L8T4O3GV20T250L250O1CO5CV5L8T4O3AV20T250L250O1CO2CV5L8T4O3AV20T250L250O1CO5CV5L8T4O3GV20T250L250O1CO5CV5L8T4O3GV20T250L250O1CO2CV5L8T4O3FV20T250L250O1CO5CV5L8T4O3F"+#┤Ж "V20T250L250O1CO2CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO2CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO2CV5L8T4FV20T250L250O1CO5CV5L8T4O2F+"+█#╛Ж "V20T250L250O1CO2CV5L8T4EV20T250L250O1CO5CV5L8T4O3DV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO2CV5L8T4O3FV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO5CV5L8T4O3EV20T250L250O1CO2CV5L8T4O3DV20T250L250O1CO5CV5L8T4O3D",.#╚Ж "V20T250L250O1CO2CV5L8T4O3CV2 &{В DRAWN BY DOUGLAS R BELL RT 7 BOX 42 LOT 14 DUNCAN OKLA 73533&У:ГCHROMASETTE STAFF&е:ГPO BOX 1087&├:ГSANTA BARBARA, CA 93102':Г ALL COVERS MUST HAVE THE LOGO AT THE TOP OF THE SCREEN DURING GRAPHICS DISPLAY.'x:ГDECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.'т:ГLINES 50-95 PUT THE LOGO ON SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.(4:ГDISCLAIMER (LINES 1000-1160) MUST ALWAYS BE INCLUDED IN ANY COVER PROGRAM.(A М LO$(7)(ZI│0:J│0:K│0:Q│0:CR│0(c╚4,1(p(╝: ┐ 1,1)>2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк"* 4LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк"*┌6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"+и8LO$(3)│"кккйZккЦккккккккккккккккZЦкккккккккйZккЦкЦккккккккккккккZЦкккккккккеZккЦкЦккккккккккZкккZЦкккккккккеZккЦZХккккккккккZкккZЦкккккккккеjккХVХUiZйeiZкVZZкккZЦкккккккккеjккХVХUeVйeYZйUZZкVкZЦкVкккк",v:LO$(4)│"кккеjккUЦХUeVйUUVеUYZйUеUUiUкккккккеjккVЦЦХЦейUUVеiYVйUеUUiUкккккккеjккVЦVЦЦейZVЦХйYVеeeUUeejккккккеjккZЦZVЦейjZЦЦйYVейijZейjккккккеjккZЦZZVеeiZVЦйiUХйijZейjккккккеjккZЦYZZйeйjZVйeeЦйijZЦйjккк"-DLO$(6)│"кккйUкйjYijЦеЦейjZекеVкейjЦкккккккккUUUjYiZЦеЦейjЦХкХХкейjХкккккккккUUUjUjUUUЦейUUUUUеUUYUeUjкккккккХUUjUjUUVЦейUUUUVеUUYUiUjкккккккеUUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк".fALO$(7)│"╜│эО  Ж 4жа4 4Ж4╞жДздГ рГ рZ&ыГ Є5J&█5жА5 5J&╞9".ВFVP│0:AD│0:VP│ Э(LO$(0)).ЯKAD│ Ж(VPл2)н256л Ж(VPл3).▒PVP│ Э(LO$(7)).╙UQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q.чXТ Qл7, Ж(188)м1/Z╞"C3BM0,191R255U149L255D148R255BM0,0"/_Q│ Г(AD)/;dВ USER ROUTINE (100-999)/EnХ1000/Sx╚4,1:┐1,1/bВA│140:XX│1/аМB$│"U4R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2"0'ЦD$│"U10R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2"0оаDD$│"U8R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2"1кF$│"U7R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2"16┤G$│"U4R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2"1n╛H$│"U4R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2"1▓╚I$│"U4R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2U2D2R2"1╨╥J$│"R98D77R38D30L136U107"1ф▄C$│B$л";A3;"лB$2ц╞ "BM230,150;A1;S5;"лC$2Ё╞ "BM215,150;A1;"лC$22·╞ "BM200,150;A1;"лC$2K╞ "BM185,150;A1;"лC$2d╞ "BM170,150;A1;"лC$2}╞ "BM155,150;A1;"лC$2Ц"╞ "BM140,150;A1;"лC$2п,╞ "BM125,150;A1;"лC$2╚6╞ "BM110,150;A1;"лC$2с@╞ "BM173,100;A1;"лD$2ЁJ╞ "A3;"лD$3T╞ "BM173,50;A1;"лD$3^╞ "A3;"лD$30h╞ "BM127,100;A1;"лD$3?r╞ "A3;"лD$3X|╞ "BM102,100;A1;"лD$3gЖ╞ "A3;"лD$3АР╞ "BM130,62;A2;"лDD$3РЪ╞ "A0;"лDD$3йд╞ "BM148,100;A1;"лC$3┬о╞ "BM148,121;A1;"лI$3╤╕╞ "A3;"лI$3щ┬╞ "BM130,80;A2;"лI$3°╠╞ "A0;"лI$4╓╞ "BM156,50;A1;"лF$4р╞ "A3;"лF$47ъ╞ "BM138,50;A1;"лF$4FЇ╞ "A3;"лF$4^■╞ "BM128,50;A2;"лG$4m╞ "A0;"лG$4Е╞ "BM85,123;A1;"лG$4Ф╞ "A3;"лG$4л&╞ "BM78,44;A0;"лJ$4╬0╞ "BM220,45;D60R25D50L195U110"4ы:╞ "BM12,45;R30D40L30U40"5iD╞ "BM60,50;R5BD3L5BD3R5BD3L5BD3R5BD3L5BD15R5BD3L5BD3R5BD3L5BD20R5BD3L5BD3R5BD3L5BL10U5BL3D5BL3U5BL3D5BL10BU5L5BU3R5BU3L5"5|N┬(163,95),5,,15РX┬(100,150),4,,15гb┬(38,110),4,,15╔l╞ "BM15,170;R20D7L20U7D4L2BR22R2"5ўv╞ "BM30,150;R10D10L10U10D3L3R3D3L3R3D3L3"6 А╞ "BM60,140;A1;R20D7L20U7D4L2BR22R2"6ЦК╞ "BM218,50;A0;R5BD2L5BD2R5BD2L5BD2R5BD2L5BD2R5BD2L5BD2R5BD2L5BD2R5BD2L5BD2R5BD2L5BD2R5BD2L5BD2R5BD2L5BD2R5BD2L5"6бФВ LOOP6тЮ╞ "C1;BM30,70;A0;R2D2L4U4R5D6L7U8R9D10L11U12R13D14L15U16R20"7и╞ "BR5U7R4L4D3R4L4D3R4L4D3R4L4D3R4L4D3R4L4"7?▓╞ "BR14R4U3L4R4U3L4R4U3L4R4U3L4R4U3L4R4"7P╝╞ "D35L4U10"7f╞╞ "BL10D15R10D23"7В╨╞ "BL10U10L10U4D6L6R10"7Ч┌╞ "BD10L10L5U12"7йф╞ "BU4L17D53"7╛ю╞ "BU50BR5D35R5"7╧°╞ "U20R27D5"7ч╞ "BD27D5L10R20U30"8 ╞ "R10U50R23L23U18R                                                                                                                                                                                                                                                                                        ├┼┼┬!"╚$├&'─ *+,╟                       GUTSCOV BAS BOUNBABYBAS#оMATHINS BAS7MATHVADEBAS%═KEEPLISTBAS¤MASLISTDAT (ЁZAPEM BAS)СREVERSE BASёFILECOPYBAS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                23"8%╞ "BD28R20U30BR14D25R14U26D30"8┴ ╞ "BR20U30R15BD2L15BD2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2"9\*╞ "BR17U30D40L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2"9╤4╞ "BL38U26D35L37U38D38L1D15U15R24D15U15R24D15U15R24D15U15R24D15BL12U11D16L24U15D15L24U15D15L24U15D15L28U20L3U35":>╞ "C0;BM30,70;A0;R2D2L4U4R5D6L7U8R9D10L11U12R13D14L15U16R20":BH╞ "BR5U7R4L4D3R4L4D3R4L4D3R4L4D3R4L4D3R4L4":oR╞ "BR14R4U3L4R4U3L4R4U3L4R4U3L4R4U3L4R4":А\╞ "D35L4U10":Цf╞ "BL10D15R10D23":▓p╞ "BL10U10L10U4D6L6R10":╟z╞ "BD10L10L5U12":┘Д╞ "BU4L17D53":юО╞ "BU50BR5D35R5": Ш╞ "U20R27D5";в╞ "BD27D5L10R20U30";2м╞ "R10U50R23L23U18R23";U╢╞ "BD28R20U30BR14D25R14U26D30";ё└╞ "BR20U30R15BD2L15BD2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2R15L15D2"<М╩╞ "BR17U30D40L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2L18R18D2"=╘╞ "BL38U26D35L37U38D38L1D15U15R24D15U15R24D15U15R24D15U15R24D15BL12U11D16L24U15D15L24U15D15L24U15D15L28U20L3U35"=&▌Е XX│10 з Бж 1010:XX│1:╚4,1:┐1,1=9▐XX│XXл1:Бе 670=DчБе 999=PшБе 1000=VЄЮ=v№З@38,"CHROMASETTE MAGAZINE"=ЭЗ" ISSUE #24 JUNE 1983"=╟З:З:З" ALL PROGRAMS CONTAINED HEREIN"=шЗ" COPYRIGHT (C) CLOAD"> $З" PUBLICATIONS P.O. BOX 1448">1.З" SANTA BARBARA, CA 93102.">U8З" REPRODUCTION BY ANY MEANS">|BЗ" PROHIBITED. CLOAD PUBLICATIONS">вLЗ" ASSUMES NO RESPONSIBILITY FOR">╚VЗ" ERRORS, OMISSIONS OR DAMAGES">э`З" CAUSED BY THE USE OF THESE"?jЗд11)"PROGRAMS."?~АI│1е7500:ЛI?ИРA BARBARA, CA 93102.">U8З" REPRODUCTION BY ANY MEANS">|BЗ" PROHIBITED. CLOAD PUBLICATIONS">вLЗ" ASSUMES NO RESPONSIBILITY FOR">╚VЗ" ERRORS, OMISSIONS OR DAMAGES">э`З" CAUSED BY THE USE OF THESE"?jЗд11)"PROGRAM                                                                                                                                                                                                                                                                  л&$:ГCOPYRIGHT(C) 1983 CLOAD INC.&g:ГBY BRUCE TATE 1456 TUSCANY WAY, GERMANTOWN, TN 38138&r Бе 650'[Ю:З" BOUNCING BABY BOYS --------------------------------":З" THE ABSENT-MINDED LADY UP- STAIRS IS THROWING HER BABIES OUT OF THE WINDOW WITH THE DISH-WATER AGAIN. YOUR JOB IS TO USE THE CRIB TO BOUNCE THE POOR"'╛З"THINGS ACROSS THE STREET. IF ONEHAPPENS TO REACH THE GROUND, YOUHAVE TO CLEAN UP THE MESS!!!'Ї"З" AFTER YOU LOSE, HIT RED BUTTON TO PLAY AGAIN."(#З:З" PUSH RED BUTTON TO BEGIN"(;(Е( Ж(65280) ░ 1)│1 з 40 :Д ╝3( 2╞"S8C1BM120,16D15R6E2U4H2L6R6E2U4H2L6BM+12,+16U13E3R4F3D13U6L9BM+13,-9D15R6E2U4H2L6R6E2U4H2L6BM+12,0F6E6G6D6D4G3L43BM+11,5D15R6E2U4H2L6R6E2U4H2L6BM+15,0G3D10F3R5E3U10H3L6BM+12,0F6E6G6D10G3L30)<┐1) F:Г)P╚1,1:┴4,3)$Z┐1,0)@dМB(11):─(0,0)м(6,6),B,G)Yn╗(0,0)м(26,191),╜,BF)jxМX(47),Y(47))оВМB1(11),B2(11),B3(11),B4(11),F2(20),B5(11),B6(11),B7(11),B8(11))╣ММF(20))юЦАY│0е191й16:АX│0е26й8:╗(X,Y)м(Xл2,Yл9),╛,BF:ЛX,Y*:аЖ 26,32,40,33,48,40,56,48,60,56,66,72,72,90,76,112,80,138,82,160,82,176*ТкЖ 92,152,94,126,98,104,100,88,108,70,120,88,124,104,128,122,134,140,136,158,136,176*Ё┤Ж 142,144,146,132,152,122,158,118,164,118,170,126,172,134,174,142,176,150,180,158,180,176+f╛Ж 184,150,188,146,192,142,196,140,200,140,204,144,208,148,210,152,212,156,212,160,212,176,220,152,228,144,236,136+╚АI│1е47:НX(I),Y(I):Л+е╥Ж 1,1,1,2,1,3,3,2,2,2,3,3,2,2,3,3+░▄АI│1е4+╫цАY│0е6й2:АX│0е6й2:НP:╜(X,Y,P):ЛX,Y+¤ЁЖ 2,2,1,1,2,2,3,1,3,3,3,1,3,3,2,2,#·Ж 3,3,2,2,3,3,2,2,2,3,3,1,2,1,1,1,IЖ 2,2,3,3,1,3,3,3,1,3,2,2,1,1,2,2,кЕI│1з─(0,0)м(6,6),B1,G :ДЕI│2з─(0,0)м(6,6),B2,G :ДЕI│3з─(0,0)м(6,6),B3,G :Д─(0,0)м(6,6),B4,G,░Л,╦"─(0,174)м(30,190),F2,G,╘,┴2,3,▌6NB│1,Ї@A$│"O2;T255;C1;C1",¤J┴1,3-ЭT╗(0,174)м(32,191),╛,BF:╗(4,184)м(26,186),╜,B:┴2,3:╗(2,174)м(14,182),╜,BF:╗(10,176)м(14,180),╛,BF:╜(10,176):╜(10,180):╛(2,174):╜(26,182):╜(24,182):╜(26,180)-ж^┴4,3-тh╗(6,186)м(8,190),╜,BF:╗(22,186)м(24,190),╜,BF:╛(26,186)-№r─(0,174)м(30,190),F,G.|B│0.ЖBB(1)│1.CР┼(0,174)м(30,190),F2,╜:─(32,174)м(62,190),F2,G.LЪX│68.uдЕOX┤▓X з┼(X,174)м(Xл30,190),F,╜:OX│X.МоOB│OBл1:ЕOB│5зOB│1.Ш╕АQ│1еNB.└┬B│BB(Q):ЕB┤1зBB(Q)│BB(Q)л1:ЛQ:Бе540.╘╠BX│X(B):BY│Y(B).ё╓┼(BX,BY)м(BXл6,BYл6),B,╜/5рЕB│47зB│1:SC│SCл1:Бж610:ЕSCо5│ Б(SCо5)зNB│NBл1:BB(NB)│м1н Д(26)/OъB│Bл1:BX│X(B):BY│Y(B)/iЇИOB Бж570,580,590,600/Х■ЕBо11│ Б(Bо11)зЕX▓BX ▒Xл24┤BX з630:Д╔A$/бBB(Q)│B/░ЕQ┤│NB зЛQ/шX│68:Е Н(0)▓5зX│122:Е Н(0)▓32зX│166:Е Н(0)▓58зX│1980&ЕX┤▓OX з┼(OX,174)м(OXл30,190),F2,╜00Бе42009:┼(BX,BY)м(BXл6,BYл6),B1,╜:Р0YD┼(BX,BY)м(BXл6,BYл6),B2,╜:Р0yN┼(BX,BY)м(BXл6,BYл6),B3,╜:Р0ЩX┼(BX,BY)м(BXл6,BYл6),B4,╜:Р0┌b┼(LX,LY)м(LXл6,LYл6),B1,╜:LX│LXл12:ЕLX▓255зLX│0:LY│LYл8:Р:ДР0фlБе6201zv┼(BX,BY)м(BXл6,BYл6),B,╜:┼(BX,184)м(BXл6,190),B1,╜:АI│1е20:Л:╗(BX,190)м(BXл5,188),╜,B:АI│1е5:╔"T255;O1;C;A":Л:АI│1е15:╜( Д(10)лBX,190м Д(10),4):Л1ЫАЕ(1░ Ж(65280))│1 з 640 :Д О 1кК╚1:└2:Бе20LYл6),B1,╜:LX│LXл12:ЕLX▓255зLX│0:LY│LYл8:Р:ДР0фlБе6201zv┼(BX,BY)м(BXл6,BYл6),B                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╩$:ГCOPYRIGHT(C) 1983 CLOAD INC.-Бе 87Бе 10G└4:╚3,1:Бе7S Бе 1080РЕ FF│0 з MX│3 :Д Е FF│1 з MX│5 :Д Е FF│2 з MX│7 :Д MX│10╝(Бж 720:Ю3:З@325,"PRESS CLEAR TO BEGIN";2Z$│ Т:ЕZ$┤▓ Л(12)зЗ@331,"clear";:╔"T8P8":З@331,"CLEAR";:╔"P8":Бе50sXH(I)│H:C(I)│ Д(3)л1:KX$(I)│K$(W))=HЛ I)CRР* 8M1│ Ж(39)н16л15:Х M1:QS│20л10н( Ж(39)┤70)::МN$(9),I(16),J(16),K(16),R(16),S(16),G(14),S$(3),XH(QS),C(QS),KX$(QS),P$(QS),V(4),U(4):X│0:Z│0:Y$│"":H1│0:V1│0:V2│0:HF│0:V$│"":А A│0е4:U(A)│0:V(A)│0:ЛA*╙LN$(0)│"R4U4L4D4BR8":N$(1)│"U4BF4":N$(2)│"BU4R4D2L2G2R4BR4":N$(3)│"BU4R4D2NL2D2L4BR8":N$(4)│"BU4D2R4U2D4BR4":N$(5)│"R4U2L4U2R4BF4":N$(6)│"R4U2L4U2D4BR8":N$(7)│"BU4R4D4BR4":N$(8)│"U4R4D2NL4D2NL4BR4"*єVG$│"D4F4D4F4L16E4U4E4":AD│4+h`N$(9)│"BU2NR4U2R4D4BR6":S$(0)│"BU2R4BH2D4BR6":S$(1)│"BU2R4BF2BR2":S$(2)│"E4BL4F4BR4":S$(3)│"BU2R4BH2U1BD5ND1BR6"+√jK$(0)│"E4R4U2R20D2R4F4G4L4D2L20U2L4H4BR8":K$(1)│"E4R28F4G4L28H4BR4":K$(2)│"BR4H4E2R28F2G4F4G2L28H2E4BR8":K$(3)│"U4R14E4F4R14D8L14G4H4L14U4BR4",9~╚ 3,1:╝:╞"BM32,28C2"лG$:├(32,38),2,2:─(24,28)м(44,48),G,G- ░QH│4:LV│1:Ю:З"USE UP OR DOWN arrows TO MOVE PRESS space bar TO SELECT PRESS space bar AGAIN TO ERASE PRESS enter WHEN DONE --------------------------------SELECT THE TYPE(S) OF PROBLEMS:"-Q║З" addition":З" SUBTRACTION":З" multiplication":З" DIVISION"-з─X$│ Т:З@LVн32л160, Л(128);:╔"T4L4P8":З@LVн32л160, Л(32);:╔"T4L4P8":Е X$│"" з 1220-°╬Е X$│ Л(94) ░ LV▓1 з LV│LVм1:Бе 1220 :Д Е X$│ Л(10) ░ LV┤4 з LV│LVл1:Бе 1220.E╪Е X$│ Л(32) з SG(LV)│ В(SG(LV)м1):З@LVн32л161, Л(108нSG(LV)л32);:Бе 1220.]тЕ X$┤▓ Л(13) з 1220.ШчAF│0:А ZC│ 0 е 3:SG(ZC)│SG(ZCл1):Е SG(ZC)┤▓0 з AF│AFл1.мшЛ:Е AF│0 з 1200.фьЗ@320, б(32,"-");"PRESS A NUMBER FOR A LEVEL (1-4)"/ЎX$│ Т:Е X$┤"1" ▒ X$▓"4" з 1270 :Д З@388,X$;:FF│ Й(X$)/yЗ@416, б(32,"-");:З@448,"HAVE YOU ENTERED CORRECTLY? PRESS y FOR YES OR n FOR NO";/╔ X$│ Т:Е X$│"N" ▒ X$│"n" з 1200 :Д Е X$│"Y" ▒ X$│"y" з FF│FFм1:Бе 30 :Д 1290UMBER FOR A LEVEL (1-4)"/ЎX$│ Т:Е X$┤"1" ▒ X$▓"4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                360K DISK DRIVEFUJITSU 1 50 N 1 2 CONTROLLER DISTO 1 130 N 1 1 4 IN 1 BOARD DISTO 1 105 N 1 1 HARD DRIVE CASEFRANK HOGG LABS1 119 N 1 1 40MG HARD DRIVESEGATE 1 250 N 1 1 3.5" DISK DRIVEFUJITSU 1 70 N 1 1 COCO MAX COLORWARE 1 50 N 1 1 MAX 10 COLORWARE 1 50 N 1 1 1 40MG HAR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !О&":Г**********ZAP'EM**********&F:ГCOPYRIGHT (C) 1983 CLOAD INC.&g:Г******BY MARIO GUZZI******&sБе 1000&ЙЮ:Х500:╔"T255V30"'МP(1),SK(1),NB(1),E(3),E$(3),B$(1),N$(9),AX(3),AY(3),BX(3),BY(3),C(3),PX(11),PY(11),S$(3),NN$(1),XX$(1),S(2),XT(1)'кП:НB$,OV$,H$,PL$:АZ│0е9:НN$(Z):Л:НNN$(0),NN$(1):АZ│0е3:НAX(Z),AY(Z),BX(Z),BY(Z),C(Z):Л:АZ│0е11:НPX(Z),PY(Z):Л:НE$:АZ│0е3:НX$:E$(Z)│X$лE$:Л:НS$:АZ│0е3:НX$:S$(Z)│X$лS$'┘Л:АZ│0е1:НB$(Z),XX$(Z):Л:НE$,ZP$,BY$,G$,M$'эТ62846,0:╝:┐1,0'° ╝:Бж69( Бж189( Бж208( Бж202(3 ╞B$:├(120,96),8,6:╞S$(A)(EТ135,0:╔"V30"(]Бж192:N│0:NN│0:EE│0(oЕNP│1зNB(1)│0(xAA│A(ГK1│247(ШЕ Ж(343)│K1 зA│3(нЕ Ж(344)│K1 зA│1(┬Е Ж(342)│K1 зA│2(╪Е  Ж(341)│K1 зA│0(цЕA│AA з25)╞"C5XS$(AA);C6XS$(A);")Е Т│" "з130)EЕEE│0░N▓│25зN│0:Бж82:ЕSK(PL)│3зN7│N1о3л1:ДN7│N1)eSK│ Б(SK(PL)лNN):ЕSK▓6зSK│6)ГИ ST Бе 29,49,49,49,64,64)бEN│C(EN):ЕN▓24░E(EN)│0з17)╦ЕSS│4░N┤25░SK▓4░ Д(4)│1░E(EN)│1зSS│EN)сЕSS┤▓4зEN│SS:Бе33* ЕSK(PL)▓4зR│ Д(8)м1:ЕR┤4зEN│R*;!ЕE(EN)│2▒E(EN)│м1з39:ДЕE(EN)│1░N┤25з37:ДЕE(EN)│1з17*N"Е Д(7мSK)│1з36*W#Бе17*д$E(EN)│1:╞"C7XE$(EN);":╔"O3CDE":R│(7мSK(PL))н В(SK(PL)▓4):Е Д(R)│1з37:Д17*╜%Е Д(7мSK)▓2▒N▓│25з17+N&X(EN)│AX(EN):Y(EN)│AY(EN):XX(EN)│BX(EN)нSKн3.5:YY(EN)│BY(EN)нSKн3.5:B(EN)│0:Т200,X(EN):Т202,Y(EN):╞"C6XB$(0);":╔"O3BGC":E(EN)│2:EE│EEл1:Бе17+d'X1│X(EN):Y1│Y(EN)+╢(X(EN)│X(EN)лXX(EN):Y(EN)│Y(EN)лYY(EN):BB│B(EN):B(EN)│B(EN)л1:ЕB(EN)│2зB(EN)│0+╩)Т200,X1:Т202,Y1,*╞"C5XB$(BB);":Т200,X(EN):Т202,Y(EN):╞"C6XB$(B(EN));",I+ЕE(EN)┤▓м1зXZ│X(EN):YZ│Y(EN):ЕXZ▓108░XZ┤148░YZ▓76░YZ┤116зE(EN)│м1,c,И ENл1 Бе 45,46,47,48,y-ЕY(EN)▓90з106:Д17,Р.ЕX(EN)┤134з106:Д17,з/ЕY(EN)┤102з106:Д17,╛0ЕX(EN)▓122з106:Д17,р1ЕST│2зNS│NSл1:ЕNS│2зNS│0:Бе17,ю2ЕN1┤│0з58-3N2│N2л1:ЕN2│12зN2│0-4Т200,X:Т202,Y-&5╞"C5XE$;"-[6X│PX(N2):Y│PY(N2):Т200,X:Т202,Y:╞"C7":╞E$:╔"O4B"-p7N1│N1м1:ЕN1▓0з17-Щ8ЕST│4зZX│1:ST│5:N1│N7:Бж94:ZX│0:Бе64-╗9X5│(128мX)о2:Y5│(96мY)о2:Бе17-╔:X1│X:Y1│Y-█;X│XлX5:Y│YлY5-∙<Т200,X1:Т202,Y1:╞"C5XE$;".=Т200,X:Т202,Y:╞"C7XE$;":╔"O5B".<>ЕX▓112░X┤144░Y▓80░Y┤108з106.E?Бе17.S@X1│X:Y1│Y.rAN2│N2лN3:ЕN2│0▒N2│2зN3│мN3.КBИ N7 Бе 67,68,67,68.вCX│S(N2):Y│YлYS:Бе60.║DY│S(N2):X│XлYS:Бе60.╪EАZ│4е1йм3:S│1:АY│96е40йм4.ьFS│Sл.3:ЕS▓4зS│4/ GТ233,S:Т200,128:Т202,Y:┴Z,1//H╞ZP$:ЕZ│1з╞"BM128,40C4S4XZP$;"/7IЛ:Л/XJ╞B$:├(120,96),8,6:АZ│1е500:Л/иK╞"C6XS$(0);":X1│128:Y1│76:X2│128:Y2│64:Бж80:Т200,X2:Т202,Y2:╞BY$:АZ│1е500:Л/ L╞"C5XS$(0);C6XS$(3);":X1│108:Y1│96:X2│60:Y2│96:Бж80:Т200,X2:Т202,Y2:╞M$:АZ│1е500:Л0WM╞"C5XS$(3);C6XS$(1);":X1│148:Y1│96:X2│196:Y2│96:Бж80:Т200,X2:Т202,Y2:╞G$:АZ│1е500:Л0╪N:ГDRAW"C5XS$(1);C6XS$(2);":X1=128:Y1=116:X2=128:Y2=134:GOSUB80:POKE200,X2-24:POKE202,Y2-4:DRAW"XN$(1);XN$(9);XN$(8);XN$(2);"0яOТ200,128:Т202,40:Р1(P╗(X1,Y1)м(X2,Y2),╜:╔"O5BAGFEDC":╗(X1,Y1)м(X2,Y2),╛:Р1oQ╔"V30O5FGABFGABFGABFGABFGAB":NB(PL)│NB(PL)л1:XT(PL)│XT(PL)л20000:Р1RZX│0:АZ│0е31╝S╞"C5":╞E$(Z):ЕE(Z)│2зТ200,X(Z):Т202,Y(Z):╞"C5":╞B$(B(Z))1╟TE(Z)│01═UЛ1юVИ SK(PL) Бе87,88,89,90,91,912WST│2:N1│( Д(3)м1)н3л24:N2│ Д(3)н3л1:Бе922GXST│3:N1│( Д(2)м1)н3л9:N2│ Д(3)н3л1:Бе922eYST│4:N1│ Д(3)н3:N2│0:Бе922ВZST│5:N1│ Д(4):N7│N1:Бе922Ф[ST│6:N1│ Д(4)2б\ЕST▓4з942╤]X│PX(N2):Y│PY(N2):Т200,X:Т202,Y:╞"C8XE$;":Р2ю^N3│1:И N1 Бе 95,96,95,963'_S(0)│112:S(1)│128:S(2)│144:YS│(SK(PL)м2)н4:N2│1:Бе973^`S(0)│80:S(1)│96:S(2)│112:YS│(SK(PL)м2)н4:N2│1:Бе973xaИ N1 Бе98,100,102,1043ТbЕST│▓5░ZX│0зX│128:Y│83ШcР3│dЕST│▓5░ZX│0зX│222:Y│963└eYS│мYS:Р3▄fЕST│▓5░ZX│0зX│128:Y│1823щgYS│мYS:Р4hЕST│▓5░ZX│0зX│32:Y│964 iР4=j╔"V30":АZ│1е5:┐1,1:╔"O1CCV-V-":┐1,0:╔"CCV-V-":Л4GkБж1734`l╝:ЕP(PL)▓XT(PL)зБж814tmNB(PL)│NB(PL)м14НnЕNB(0)│0░NB(1)│0з1154ЮoЕNB(PL)▓0з124╡p╞OV$:╞PL$:╞NN$(PL)4┼qАZ│1е2000:Л4╨r╝:Бе124щs╞OV$:╞H$:Бж202:Бж1244■tАZ│4е0йм1:ZZ│4мZ5uТ200,90:Т202,ZZн12л645ZvP$│ И(H(Z)):P$│ б(7м З(P$)л1," ")л П(P$, З(P$)м1):АT│1е З(P$)5ЗwЕ Р(P$,T,1)│" "▒H(Z)│0з╞"BF6R0BE6":Бе1215Яx╞N$( Й( Р(P$,T,1)))5зyЛ:Л5▓zТ135,05╠{Т200,128:Т202,20:Бе105▐|АZ│0е1:P│P(Z)5ь}АT│4е0йм16"~ЕP▓H(T)зАQ│0еTм1:H(Q)│H(Qл1):Л:H(T)│P:T│0:Л:Бе1286(Л6.АЛ64БР6NВ╔"V30":ЕST│1з131:Д1526jГИ Aл1 Бе132,135,138,1416{ДTX│128:TY│766ЩЕЕE(A)┤2зSX│128:SY│0:Бе1446▓ЖSX│128:SY│Y(A):Бе1446├ЗTX│148:TY│966тИЕE(A)┤2зSX│222:SY│96:Бе1446·ЙSX│X(A):SY│96:Бе1447 КTX│128:TY│1167,ЛЕE(A)┤2зSX│128:SY│190:Бе1447EМSX│128:SY│Y(A):Бе1447VНTX│108:TY│967tОЕE(A)┤2зSX│32:SY│96:Бе1447ЖПSX│X(A):SY│967оР┴7,1:╗(TX,TY)м(SX,SY),╜:╔"O5BBCCO1"7┼С╗(TX,TY)м(SX,SY),╛7яТЕE(A)│2з╗(SXм4,SYм4)м(SXл4,SYл4),╛,BF8ЕУSY│SYл6н А(Aм1)н(A│0▒A│2):SX│SXм6н А(Aм2)н(A│1▒A│3):ЕE(A)│1з╞"C5XE$(A);":Т200,SX:Т202,SY:╞"S3C8XXX$(0);":╔"O1CDE":Т200,SX:Т202,SY:╞"C5XXX$(0);S4"8ФФЕE(A)┤0з269ХP(PL)│P(PL)л(3мE(A))н10нSK(PL)н В(E(A)▓0):ЕE(A)▓0зN│Nл1:E(A)│E(A)м1:NN│NNл.2нSKн В(SKлNN┤│5):ЕE(A)│1зEE│EEм19ЦЕA│SS зSS│49ЧБе269:ШИ Aл1 Бе153,155,157,1599iЩTX│128:TY│76:ЕX│128░Y┤78зSX│128:SY│Y:Бе1619ЪSX│128:SY│0:Бе1619нЫTX│148:TY│96:ЕY│96░X▓146зSX│X:SY│96:Бе1619─ЬSX│222:SY│96:Бе1619їЭTX│128:TY│116:ЕX│128░Y▓114зSX│128:SY│Y:Бе161: ЮSX│128:SY│190:Бе161:;ЯTX│108:TY│96:ЕY│96░X┤110зSX│X:SY│96:Бе161:KаSX│32:SY│96:sб┴3,1:╗(TX,TY)м(SX,SY),╜:╔"O5BBCCO1":Кв╗(TX,TY)м(SX,SY),╛:ЯгЕSX│X ░SY│Y з165:идБе26:═е╔"V30O1":Т200,X:Т202,Y:╞"C5XE$;";ж╔"V30":АZ│1е5:╞"C7":Т233,Z:Т200,X:Т202,Y:╞XX$(0):╔"O1CCV-V-V-";2з╞"C5":Т200,X:Т202,Y:╞XX$(0):Л;nиАZ│5е1йм1:╞"C7":Т233,Z:Т200,X:Т202,Y:╞XX$(1):╔"CV-V-V-";Цй╞"C5":Т200,X:Т202,Y:╞XX$(1):Л:╞"S4";┼кP(PL)│P(PL)лSK(PL)н100:ЕP(PL)▓│XT(PL)зБж81;флSK(PL)│SK(PL)л В(SK(PL)┤6);їмPL│PLм1:Бе12<^н╔"T255":EX$│"R0BE2R0BD4BR2R0BR6R0BH4R0BR10R0BH2R0BL4R0BL6BH2R0BE2BU2R0BR8R0BH2R0BH2R0BR10BD2R0BF2R0"L╜╞"C7XZP$;":X$│ П(PL$,107):Т200,54:Т202,154:╞"C8XNN$(0);BR8U10R8D10NL8BR4U4NR6U6R6F2D2G2D2F2BR8BU10XNN$(1);BR10BU10XX$;BL2BD10NH2R4E2H2L2H4E2R4F2BR8BD8R0BU4U2R2E2H2L4G2">m╛NP│ Ж(135)м48:ЕNP▓2▒NP┤1з190>u┐╝:Р>К└ЕNP│1зPL│0:Бе195>б┴PL│PLл1:ЕPL│2зPL│0>│┬ЕNB(PL)│0з193?├ЕPL│0зX1│10:Y1│170:X2│10л12н( З( И(P(0)))м1):Y2│182 :ДX1│178л12н(6м З( И(P(1)))л1):Y1│170:X2│254:Y2│182?+─АZ│1е10?D┼╗(X1,Y1)м(X2,Y2),╜,B?R╞АT│1е50:Л?k╟╗(X1,Y1)м(X2,Y2),╛,B?y╚АT│1е50:Л?З╔Л:Бж211:Р?┬╩X$│ П(S$(0),28):┴4,1:╗(0,170)м(255,184),╛,BF:АZ│0еNPм1@╦P$│ И(P(Z)):Т200,Zн(170л12н(6м З( И(P(1)))л1))л12:Т202,172@╠АT│2е З(P$)@)═╞N$( Й( Р(P$,T,1)))@h╬Л:АT│1еNB(Z)л2:Бж186:Т200,CX:Т202,CY:ЕT▓NB(Z)з╞"C5":Д╞"C6"@|╧╞X$:Л:╞"C8":Л:Р@З╨АZ│0е1@о╤P(Z)│0:NB(Z)│3:SK(Z)│1:XT(Z)│10000@╣╥Л:PL│1@─╙АZ│0е3@▀╘E(Z)│0:XX(Z)│0:YY(Z)│0@я╒Л:ST│1:SS│4@ї╓РAJ╫Ж "C6BM128,96BH14R8D2R12U2R8D8L2D12R2D8L8U2L12D2L8U8R2U12L2U8BF4F10NF10NG10NE10"Aы╪Ж "C3BM80,136BR2R4F2BL8D6F2R4E2U2L4BM+8,+4;U4NR6U2E4F4D6BR4U10F4E4D10BR4NR8U6NR6U4R8BR12R4F2D6G2L4H2U6BM+12,-2D6F4E4U6BR4NR8D4NR6D6R8BR4U4NR4U6R6F2D2G2D2F2"B┴┘Ж "C2BM70,40D4ND6R8NU4D6BR4R2NR2U10NL2R2BR6R4F2BL8D6F2R4E2U2L4BE6BR2D4ND6R8ND6U4BR12R4F2BL8F4R2F2G2L4H2BE8BR6R4F2BL8D6F2R4E2BE6BU2G2D6F2R4E2U6H2L2BR8NR6D6ND4R6E2U2BD8H2BE6U2NR8D4NR6D6R8BE10NF2L4G2F4R2F2G2L4H2"C<┌Ж "BM86,60C8ND10R6F2D2G2L4BE6BR6D10R8BR4U8E2R4F2D4NL8D4BR8U4NE4H4U2BR8R0BR4NR8D4NR4D6R8BR4U4NU6R6F2D2BU6U2H2NL6BR8BR2"D█Ж BR2R2F2D4G2L2H2U4BR12BU2,BR4G2R2D6NL2R2BE6BU2,BD2E2R2F2G6R6BE6BU2,R6D2G2F2G2L2H2BE6BR6,D4R4NU4ND4R2BE4BR2,NR6D2F2R2F2G2L4BE8BR4,BR2NR4G2D2NR4D2F2R2E2BE6,R6D2G6BE8BR4,BD2E2R2F2G2L2G2F2R2E2BE6,BD2E2R4D4ND4NL4BE4BR2D>▄Ж BF2E2D10L2R4,BD2E2R4F2D2G2L2G4R8Dz▌Ж 128,16,0,1,1,206,96,-1,0,2,128,176,0,-1,3,48,96,1,0,0D╒▐Ж128,40,156,46,178,66,184,96,178,126,156,146,128,152,100,146,78,126,72,96,78,66,100,46E(▀Ж R6ND8L12D8BE4U2R4D2L2D8A0,"BM128,0A0","BM224,96A1","BM128,190A2","BM32,96A3"E~рЖ NL2R2E2L8H2U2BR12D2BL6R0A0,"BM128,82A0","BM142,96A1","BM128,110A2","BM114,96A3"FсЖ ND2NR2NU2NL2,BL4G2U2G2U2H2L2U2R2E2R4E2R4F2G2D4R4D8L2D2L4H2G2L4H2L2U2E4,NE2NF2NG2NH2,BR4E4F2D2F2G2L6E2H2BH4R2U2H2L2U2L6D2G2R2D4R8BG4BD2F2D4H2L2U2F░тЖ BU2F2R4U2H2BD8E2BL6H2L4D2F2BU8G2,BL48BU8R14D2G14D2R14BR4U8NR14U4E6R2F6D12BR4U8NR12U10R12F2D6G2BE10L2F2R2D2L2D2L2BE6BR2NR14D8NR6D10R14BR4U18F6R2E6D18G|уЖ "BH2H2L6D8R6E2H2BM+6,-4D2F4D2U4R2E2U2","BM-24,-4BR2NR6G2D6R8U4L2BE4BR2D6F2R4E2U6BR4R8G8R8BU8BR4R8G8R8BR4R4H2U4H2R4","BM-26,-4ND8F4E4D8BR4U4NR8U2E2R4F2D6BR4U4NR6U4R6F2G2D2F2BR4R4H2U4H2R4BR4R8D8L8U8"GМш╚1,1:└2:Бе4R2NR14D8NR6D10R14BR4U18F6R2E6D18G|уЖ "BH2H2L6D8R6E2H2BM+6,-4D2F4D2U4R2E2U2","BM-24,-4BR2NR6G2D6R8U4L2BE4BR2D6