R5;U10;R5;BR5;D10;R5;BR5;NR5;U5;NR5;U5;R5;"/<ф:Г "TRIANGLE"/╘юA$(8)│"BU10;R5;BL3;D10;BR8;U10;R5;D5;L5;F5;BR5;NU10;BR5;U8;E2;R1;F2;D3;NL5;D5;BR5;U10;F10;U10;BR5;NR5;D10;R5;NU5;BR5;NU10;R5;BR5;NR5;U5;NR5;U5;R5;"/┌°Р;BR5;D10;BR5;U10;R5;D5;L5;F5;BR5;N                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 f& :Г SONG-TIME&':Г PAUL W. MYERS&6:Г 10/8/83&?(Х 20&F2Ю3&d<М A(84),B(52),C(64),D(64)&tFА X│ 1 е 84&БPН A(X):Л&ШZ:Г TWINKLE TWINKLE&└dЖ 89,8,89,8,147,8,147,8,159,8,159,8&ёnЖ 147,16,133,8,133,8,125,8,125,8,108,8,108,8'!xЖ 89,16,147,8,147,8,133,8,133,8,125,8,125,8'RВЖ 108,16,147,8,147,8,133,8,133,8,125,8,125,8'БМЖ 108,16,89,8,89,8,147,8,147,8,159,8,159,8'▓ЦЖ 147,16,133,8,133,8,125,8,125,8,108,8,108,8'╛аЖ 89,16'═кА X│1 е 52'┌┤Н B(X):Л'ю╛:Г JINGLE BELLS(╚Ж 125,4,125,4,125,8,125,4,125,4,125,8(A╥Ж 125,4,147,4,89,6,108,2,125,8,255,8(k▄Ж 133,4,133,4,133,6,133,2,133,4,125,4(ХцЖ 125,4,125,2,125,2,147,8,147,8,133,8(зЁЖ 108,8,89,32(╢·А X│1 е 64(├Н C(X):Л(█:Г ARE YOU SLEEPING)Ж 89,8,108,8,125,8,89,8,89,8,108,8,125,8)9"Ж 89,8,125,8,133,8,147,16,125,8,133,8,147,16)b,Ж 147,4,159,4,147,4,133,4,125,8,89,8)Л6Ж 147,4,159,4,147,4,133,4,125,8,89,8)│@Ж 89,8,147,8,89,16,89,8,147,8,89,16)┬JА X│1 е 64)╨TН D(X):Л )ф^:Г THIS OLD MAN*hЖ 147,4,125,4,147,8,147,4,125,4,147,8*>rЖ 159,4,147,4,133,4,125,4,108,4,125,4,133,4*j|Ж 125,2,133,2,147,4,89,4,89,2,89,2,89,4*НЖЖ 89,2,108,2,125,2,133,2,147,8*╖РЖ 147,4,108,4,108,4,133,4,125,4,108,4*┬ЪЖ 89,8*юдЗ @ 1,"WHAT SONG DO YOU WANT TO HEAR?";+оЗ @ 96,"A = TWINKLE TWINKLE LITTLE STAR"+:╕З @ 160,"B = JINGLE BELLS"+]┬З @ 224,"C = ARE YOU SLEEPING"+|╠З @ 288,"D = THIS OLD MAN"+Ж╓X$│ Т+ЫрЕ X$│"" з Бе 470+▒ъЕ X$│"A" з Бе 550+╟ЇЕ X$│"B" з Бе 610+▌■Е X$│"C" з Бе 670+єЕ X$│"D" з Бе 730+■Бе 470,:Г TWINKLE TWINKLE,(&А X│1 е 84 й 2,<0S│A(X):D│A(Xл1),F:а S,D,NDЛ X,YNБе 470,mX:Г JINGLE BELLS,АbА X│1 е 52 й 2,ФlS│B(X):D│B(Xл1),Юvа S,D,жАЛ X,▒КБе 470,╔Ф:Г ARE YOU SLEEPING,▄ЮА X│1 е 64 й 2,ЁиS│C(X):D│C(Xл1),·▓а S,D-╝Л X- ╞Бе 470-!╨:Г THIS OLD MAN-4┌А X│1 е 64 й 2-HфS│D(X):D│D(Xл1)-Rюа S,D-Z°Л X-eБе 470BELLS,АbА X│1 е 52 й 2,ФlS│B(X):D│B(Xл1),Юvа S,D,жАЛ X,▒КБе 470,╔Ф:Г ARE YOU SLEEPING,▄ЮА X│1 е 64 й 2,ЁиS│C(X):D│C(Xл1),·▓а S,D-╝                                                                                                                                                                                                                                                                  █& :Г SHAPES AND COLORS&/:Г PAUL W. MYERS&>:Г 10/8/83&H(Х 300&T2М A$(8)&_<Бж 610&iF╚ 3,1&sP┐ 1,0&zZ╝0&Уd:Г DRAW GREEN CIRCLE&зn┬ (180,25),20,1&╕x├ (180,25),1&╥В:Г DRAW YELLOW SQUARE&ЎМ╞ "BM163,55;C2;R35;D29;L35;U29"'Ц├ (170,65),2'!а:Г DRAW BLUE TRIANGLE'Bк╞ "BM163,120;C3;R36;H18;G18"'T┤├ (170,119),3'j╛:Г DRAW RECTANGLE'П╚╞ "BM150,138;C1;R60;D30;L60;U30"'ж╥:Г DRAW NUMBER ONE'╗▄╞ "BM235,15;D20"'╥ц:Г DRAW NUMBER TWO'ўЁ╞ "BM230,60;R10;D10;L10;D10;R10"(·:Г DRAW NUMBER THREE(6╞ "BM230,100;R10;D10;NL5;D10;L10"(N:Г DRAW NUMBER FOUR(q╞ "BM230,145;D10;R10;NU10;D10"(Г":Г "WHICH IS"( ,╞ "BM20,70;D10;E5;F5;U10;BR5;D10;U5;R5;U5;D10;BR5;U10;BR5;NR5;D10;R5;BR5;U10;D5;R5;NU5;D5;BR15;U10;BR5;NR5;D5;R5;D5;L5") 6X│ Д(8))@Е X│Y з 310)RJЕ X▓4 з ╞ "BM100,80;U8;E2;R1;F2;D3;NL5;D5;" :Г "A")jT╞ "BM20,100;"лA$(X))У^╞ "BM120,100;U1;BU3;U2;R2;U5;L5;D2;")ЭhB$│ Т)пrЕ B$│"" з 360)╚|Е X│1 ░ B$│"4" з 500)сЖЕ X│2 ░ B$│"3" з 500)·РЕ X│3 ░ B$│"1" з 500*ЪЕ X│4 ░ B$│"2" з 500*,дЕ X│5 ░ B$│"2" з 500*EоЕ X│6 ░ B$│"4" з 500*^╕Е X│7 ░ B$│"1" з 500*w┬Е X│8 ░ B$│"3" з 500*Л╠:Г WRONG ANSWER*Ч╓а 20,20*врБе 360*╢ъ:Г RIGHT ANSWER*═ЇА Z│150 е 200 й 10*╫■а Z,1*▀Л Z*є:Г DRAW SUBJECT+╞ "BM20,100;C4;"лA$(X)+(&:Г DRAW QUESTION MARK+P0╞ "BM100,80;U8;E2;R1;F2;D3;NL5;D5;"+\:╞ "C1;"+dDY│X+oNБе 310+X:Г "PURPLE"+ўbA$(1)│"U10;R5;D5;L5;BR10;BU5;D10;R5;U10;BR5;ND10;R5;D5;L5;F5;BR5;U10;R5;D5;L5;BR10;BU5;D10;R5;BR5;NR5;U5;NR5;U5;R5",l:Г "BLUE",]vA$(2)│"U10;R3;F2;D3;NL5;D3;G2;NL3;BR7;NU10;R5;BR5;NU10;R5;U10;BR5;NR5;D5;NR5;D5;R5",lА:Г "GREEN",▄КA$(3)│"U10;R5;BD5;NL1;D5;NL5;BR5;U10;R5;D5;L5;F5;BR5;NR5;U5;NR5;U5;R5;BR5;NR5;D5;NR5;D5;R5;BR5;U10;F10;U10",ьФ:Г "YELLOW"-YЮA$(4)│"BU10;F5;NE5;D5;BR7;NR5;U5;NR5;U5;R5;BR5;D10;R5;BR5;NU10;R5;BR5;U10;R5;D10;NL5;BR5;NU10;E5;F5;U10"-iи:Г "SQUARE"-ё▓A$(5)│"R5;U5;L5;U5;R5;BR5;ND10;R5;D10;NL5;NH2;BR5;NU10;R5;NU10;BR5;U8;E2;R1;F2;D3;NL5;D5;BR5;U10;R5;D5;L5;F5;BR5;NR5;U5;NR5;U5;R5;".╝:Г "RECTANGLE".╖╞A$(6)│"U10;R5;D5;L5;F5;BR5;NR5;U5;NR5;U5;R5;BR5;D10;NR5;BU10;R5;BR5;R5;BL3;D10;BR8;U8;E2;R1;F2;D3;NL5;D5;BR5;U10;F10;U10;BR5;NR5;D10;R5;NU5;BR5;NU10;R5;BR5;NR5;U5;NR5;U5;R5;".╟╨:Г "CIRCLE"/*┌A$(7)│"NR5;U10;R5;BR5;D10;BR5;U10;R5;D5;L5;F5;BR5;NAB Бе13020,13040,13050,13060,13070,130808E2▄ТAA,220:ТAAм1,128:AA│AAл18_2сЕAA│1040зAB│2:AA│10398r2цЕAA│1032з130908x2ыР8Т2ЁТAA,211:AA│AAл32:AB│38Ш2їР8┤2·ТAA,220:ТAAм32,128:AB│28╞2 ЕAA│1263зAB│48╠3Р9 3ТAA,211:ЕAC│0зAB│4:AA│AAм1:AC│1::ДТAAл1,128:AB│4:AA│AAм19#3 ЕAA│1247зAA│1248:AB│59)3 Р9C3ТAA,220:AA│AAм32:AB│69\3ЕAA│992зAA│1025:AB│19b3Р9~3ТAA,211:ТAAл32,128:AB│59Д3Р9Р3"╔"L90D-9ш3,AC│0:И AD Бе13110,13120,13130,13140,13150,13160,13170,13180,13190,13200,13210,13220:36Т1063,128:Т1064,128:Т1097,172:Т1066,163:AD│2:Р:N3@Т1097,128:Т1066,128:Т1131,172:Т1100,163:AD│3:Р:Б3JТ1131,128:Т1100,128:Т1133,163:Т1165,172:AD│4:Р:┤3TТ1133,128:Т1165,128:Т1163,163:Т1196,172:AD│5:Р:ч3^Т1163,128:Т1196,128:Т1193,163:Т1226,172:AD│6:Р;3hТ1193,128:Т1226,128:Т1223,163:Т1224,163:AD│7:Р;M3rТ1223,128:Т1224,128:Т1190,163:Т1221,172:AD│8:Р;А3|Т1190,128:Т1221,128:Т1156,163:Т1187,172:AD│9:Р;┤3ЖТ1156,128:Т1187,128:Т1122,163:Т1154,172:AD│10:Р;ш3РТ1122,128:Т1154,128:Т1091,163:Т1124,172:AD│11:Р<3ЪТ1091,128:Т1124,128:Т1061,163:Т1094,172:AD│12:РАВ "TIMES SQUARE HEADER">>ЕВ ENTER YOUR OWN TEXT INPLACE OF RB$>>КЮ0?>ФRB$│" --------------THIS PROGRAM APPEARED IN 'the RAINBOW' VOLUME I NO 5 (TOTAL PAGES=20 INCLUDING COVERS). I HAVE NEVER SEEN IT RE-PRINTED ANYWHERE AND INCLUDE IT HERE FOR THE NEWER 'RAINBOW' READERS--------------"л б(16,32)?>>ЮАAA│1 е  З(RB$)м15:AB│ABл1:ЕAB▓4 з AB│1:E│1125:EE│1140?W>иЗ@328, Р(RB$,AA,15);?k>▓а  Д(240),1:ЛAA?u>╝Бе190?НBhВ COUNTDOWN W/TONES?▄BrЕAZ│0зА AD│1055е1535й32:ТAD,239:ЛAD:AA│1055:ТAA,227:AB│1:аAB,1:AC│1:AZ│1:Р?№BwAB│ABл7:ЕAA│1567 з╔A$:Бе190@B|И AC Бе 17030,17040@6BЖТAA,140:аAB,1:AC│2:AA│AAл32:Р@ZBРТAA,227:ТAAм32,143:аAB,1:AC│1:Р@ЖFPВ ACROSS BOTTOM-DOUBLE BAR/AC=1/AB=1504@вFZЕAZ│0зAC│1:AB│1504:AZ│1@▒FdВ AA,AB,AC@┴FnЕAA│0з18100@шFx╔B$:И AC Бе18050,18060,18070,18080@■FВТAB,247:AC│ACл1:РAFМТAB,245:AC│ACл1:РA*FЦТAB,241:AC│ACл1:РACFаТAB,240:AC│1:AB│ABл1AYFкЕAB│1536з18110:ДРAАF┤АX│1504е1535:ТX,255:Л:AA│1:Бе18040AРF╛╔A$:Ю:Бе190A┤J8В 1 BLOCK - CORNERS CHANGE/AA=1A╚JBЕAZ│0зAA│1:AZ│1AяJL╔B$:И AA Бе19030,19040,19050,19060BJVТ1024,216:AA│AAл1:РBJ`Т1024,228:AA│AAл1:РB7JjТ1024,242:AA│AAл1:РBRJtТ1024,193:AA│1:AB│ABл1BfJ~ЕAB▓10з19080:ДРBvJИ╔A$:Ю:Бе190BОN В HIDDEN CHARACTERSCbN*W1│0:Ю:З@32,"THERE ARE SOME INTERESTING CHAR- ACTERS HIDDEN IN YOUR COCO":АAA│1е2000:Л:З@128,"USING THE CHR$( ) FORMAT YOU CANUSE THOSE CHARACTERS SHOWN IN THE RADIO SHACK MANUALS,BUT HAVEYOU SEEN THESE?"CХN4AB│27:АX│1440е1471:ТX,AB:AB│ABл1:Л:АX│1е6000:ЛD?N>Ю:З@128,"THESE CHARACTERS ARE AVAILABLE USING POKES TO THE SCREEN MEMORYLOCATIONS 1024-1535. PRINT@0," Л(34)"a" Л(34)"OR PRINT@0,CHR$(97) IS THE SAME AS POKE1024,1"D░NHАX│1е6000:Л:Ю:З"THE FORMAT IS POKEXXX,YYY. XXXX=DIGIT BETWEEN 1024 AND 1535 AND YYY=DIGIT BETWEEN 0 AND 255"DЎNRЗ"USE UP AND DOWN ARROWS TO MOVE THE DISPLAY. ENTER TO EXIT"ENWW1│0:З@352,"POKE1392,"W1"=":Т1392,W1E8N\W1$│ Т:ЕW1$│""з20060EINfЕW1$│"E"з190EsNkЕW1$┤▓"^" ░ W1$┤▓ Л(10)за10,1:Бе20060EХNpЕW1$│"^"зW1│W1л1:ЕW1▓255зW1│0E║NzЕW1$│ Л(10)зW1│W1м1:ЕW1┤0зW1│255EцNДЗ@352,"POKE1392,"W1"=":Т1392,W1:Бе20060E№RАX│1е2000:Л:Бе190Fъ`В LISTFWъeQ1│1:Ю:З"USE UP AND DOWN ARROWS TO LOOK AT LIST-PRESS TO EXIT":ЗQ1$(1)FpъjQ1$│ Т:ЕQ1$│""з60010FБъmЕQ1$│"E"з190FлъoЕQ1$┤▓"^" ░ Q1$┤▓ Л(10)за10,1:Бе60010F╧ъtЕQ1$│ Л(10)зQ1│Q1м1:ЕQ1┤1зQ1│20FЁъ~ЕQ1$│"^"зQ1│Q1л1:ЕQ1▓20зQ1│1GъИЗ:ЗQ1$(Q1):Бе60010ъeQ1│1:Ю:З"USE UP AND DOWN ARROWS TO LOOK AT LIST-PRESS TO EXIT":ЗQ1$(1)FpъjQ1$│ Т:ЕQ1$│""з60010FБъmЕQ1$│"E"з190FлъoЕQ1$┤▓"^" ░ Q1$┤▓ Л(10)за10,1:Бе60010F╧ъtЕQ1$│ Л(10)зQ1│Q1м1:ЕQ1┤1зQ1│20FЁъ~ЕQ1$│"^"зQ1│Q1л1:ЕQ1▓20зQ1│1GъИЗ:ЗQ1$(Q1)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !&<Х500:МQ1$(20):Ю:Q1│1:Q1$(1)│" 1=1/4 BLOCK-COLOR CHANGE&ZQ1$(2)│" 2=SINGLE DOT/L-R&xQ1$(3)│" 3=SINGLE BAR/L-R&дQ1$(4)│" 4=MULTIPLE POINTS-CHANGE COLOR&╞Q1$(5)│" 5=RANDOM TIME WASTER&ъQ1$(6)│" 6=MULTIPLE TIME WASTER'Q1$(7)│" 7=DOUBLE BLOCKS/L-R+R-L',Q1$(8)│" 8=COUNTER/0TO99'J Q1$(9)│" 9=COUNTER/0TO999'v Q1$(10)│"10=12 HOUR CLOCK-HOURS+MINUTES'└ Q1$(11)│"11=24 HOUR CLOCK-HOURS+MINUTES +SECONDS+COLOR CHANGE FOR PM'х Q1$(12)│"12=COUNTDOWN DOUBLE BAR( Q1$(13)│"13=CLOCK FACE TIMER(+Q1$(14)│"14=4 BLOCK COLOR CHANGE(TQ1$(15)│"15=0-9 NUMERIC-SHIFT CHANGE(ЫQ1$(16)│"16='TIMES SQUARE HEADER' STOLEN FROM the RAINBOW VOLI NO5(╜Q1$(17)│"17=COUNTDOWN W/TONES(цQ1$(18)│"18=ACROSS BOTTOM DOUBLE BAR) Q1$(19)│"19=1 BLOCK-CORNERS CHANGE)/Q1$(20)│"20=HIDDEN CHARACTERS)@dAA│1:AB│1024)heA$│"L100AP10AP10DP10CCD":B$│"L200A")║nЮ:З@256," TWENTY ODDBALL SCREEN ROUTINES":З@465,"BY greg clark":АY│1е10:╔A$:Л*)xЮ:З@224,"CHANGE VALUE OF Y IN LINE 200 TOSPEED UP OR SLOW DOWN EXECUTION OF EXAMPLES":АY│1е3000:Л*з╛AA│0:AB│0:AC│0:AD│0:AE│0:AF│0:AZ│0:АX│1е1000:Л:Ю:З@256,"ENTER # OF CHOICE (99 FOR LIST) PRESS TO EXIT DURING RUN":ЙXX*╫┐ЕXX│99зБе60000:ДЕXX┤0 ▒ XX▓20з╔"L10A":Бе190*щ┴З@352,Q1$(XX)+c├И XX Бж1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,16000,17000,18000,19000,20000+y┼E$│ Т:ЕE$│"E"з190+О╚АY│1е300:Л:Бе195+Ш═Бе195+╡шВ 1/4 BLOCK-COLOR CHANGE+╦эЕAZ│0зAA│136:AZ│1+▄Є╔B$:Т1024,AA, №AA│AAл16:ЕAA▓248зAA│136:AB│ABл1:ЕAB▓10з1040,Р,"╔A$:Ю:Бе190,G╨В SINGLE DOT-MOVES ACROSS SCREEN,S╤В AA,AB,o╒ЕAZ│0зAA│1:AB│1024:AZ│1,И┌╔B$:И AA Бе2030,2040,еюТABм1,143:ТAB,135:AA│2:Р,╛°ТAB,139:AA│1:AB│ABл1,╙ЕAB▓1055з2060:ДР,у ╔A$:Ю:Бе190,Ї ╕В SINGLE BAR- ╣В AA,AB- ╜ЕAZ│0зAA│1:AB│1024:AZ│1-5 ┬╔B$:И AA Бе3020,3030-H ╠ТAB,135:AA│2:Р-a ╓ТAB,131:AB│ABл1:AA│1-v рЕAB▓1055з3050:ДР-Ж ъ╔A$:Ю:Бе190-йаВ MULTIPLE POINTS-CHANGE COLOR-█еЕAZ│0зAA│1:AB│1532:AZ│1:АX│1532е1535:ТX,191:Л.к╔B$:AC│ACл1:И AA Бе4020,4030,4030,4030..┤ТABл3,191:ТAB,159:AA│AAл1:AB│ABл1:Р.T╛ТABм1,191:ТAB,159:AA│AAл1:AB│ABл1.n╚ЕAB│1536зAB│1532:AA│1.}═ЕAC│20з190.Г╥Р.ЬИВ RANDOM TIME WASTER.╢ТЕAZ│0зAA│ Д(м Я):AZ│1.▄Ь╔B$:AA│ Д(128):AA│AAл127:Т1135,AA.єжAB│ABл1:ЕAB│20з190.∙░Р/pВ MULTIPLE TIME WASTER/.zЕAZ│0зAA│ Д(м Я):AZ│1/hДAA│ Д(128)л127:╔B$:AB│ABл1:И AB Бе6030,6040,6050,6060/wОТ1134,AA:Р/ЖШТ1135,AA:Р/ХвТ1136,AA:Р/змAB│0:Т1137,AA/╜╢AC│ACл1:ЕAC│5з190/├└Р/▀XВ DOUBLE BLOCKS/L-R+R-L0bЕAZ│0зAA│1:AB│1504:AC│1535:AD│159:AF│1:AZ│10,l╔"L100"лC$:ТAB,AD:ТAC,AD0@vAB│ABл1:AC│ACм10fАЕAB│1520зAD│ADл16:AE│AEл1:AF│AFл10ФКЕAB│1536зAB│1504:AD│ADл16:AF│AFл1:AC│15350зФЕAD▓252зAD│1590╢ЩЕAF│8зAF│10┼ЮЕAE▓10з1900▌гC$│ И(AF):C$│";"лC$0уиР0ў@В COUNTER/0TO991(JЕAZ│0зАX│1128е1131:ТX,239:Л:AA│48:AB│48:AZ│11BO╔B$:Т1129,AA:Т1130,AB1cTAB│ABл1:ЕAB│58зAB│48:AA│AAл11~^ЕAA│58░AB│48з╔A$:Бе1901ДhР1Щ#(В COUNTER/0TO9991╤#2ЕAZ│0зТ1086,175:Т1214,175:AA│112:AB│112:AC│112:AZ│11Ї#<╔B$:Т1118,AA:Т1150,AB:Т1182,AC2#FЕAA│121░AB│121░AC│121з╔A$:Бе102Q#PAC│ACл1:ЕAC│122зAC│112:AB│ABл1:ЕAB│122зAB│112:AA│AAл12W#ZР2y'В 12 HOUR CLOCK-HOURS+MINUTES2┬'ЕAZ│0зТ1484,159:Т1487,122:Т1490,159:AA│112:AB│112:AC│112:AD│112:AZ│12ю'$╔B$:Т1485,AA:Т1486,AB:Т1488,AC:Т1489,AD3 '.ЕAA│113░AB│114з╔A$:Бе1903\'8AD│ADл1:ЕAD│122зAD│112:AC│ACл1:ЕAC│118зAC│112:AB│ABл1:ЕAB│122зAB│112:AA│AAл13b'BР3а*°В 24 HOUR CLOCK-HOURS+MINUTES+SECONDS+COLOR CHANGE FOR PM4+ЕAZ│0зТ1024,223:Т1027,122:Т1030,122:Т1033,223:AA│112:AB│112:AC│112:AD│112:AE│112:AF│112:AZ│14+ЕAG│1з111004K+ Т1025,AA:Т1026,AB:Т1028,AC:Т1029,AD:Т1031,AE:Т1032,AF4e+ЕAA│113░AB│114зAG│1:Р4ф+ AF│AFл1:ЕAF│122зAF│112:AE│AEл1:ЕAE│118зAE│112:AD│ADл1:ЕAD│122зAD│112:AC│ACл1:ЕAC│118зAC│112:AB│ABл1:ЕAB│122зAB│112:AAлAAл14ъ+*Р5/+\ЕAZ│1зAA│49:AB│50:AC│48:AD│48:AE│48:AF│49:Т1027,58:Т1030,58:AZ│25i+fТ1025,AA:Т1026,AB:Т1028,AC:Т1029,AD:Т1031,AE:Т1032,AF5Д+pЕAA│50░AB│52з╔A$:Бе1905∙+zAF│AFл1:ЕAF│58зAF│48:AE│AEл1:ЕAE│54зAE│48:AD│ADл1:ЕAD│58зAD│48:AC│ACл1:ЕAC│54зAC│48:AB│ABл1:ЕAB│58зAB│48:AA│AAл15 +ДР6.рВ COUNTDOWN DOUBLE BAR6Y.ъЕAZ│0зАX│1120е1151:ТX,179:Л:AA│1151:AB│1151:Т1151,191:AZ│16y.ЇAE│ Ж(AA):AA│AAм1:AC│ Ж(AA)6╩.∙ЕAA│1119зAD│ Ж(1120):ЕAD│191зAA│1151:Т1120,179:ТAB,176:AB│ABм1:ТAA,188:╔B$:Р6√.■ЕAC│179зТAA,191:ЕAE│188зТAAл1,176:ДТAAл1,1797,/ЕAC│176зТAA,188:ЕAE│188зТAAл1,176:ДТAAл1,1797T/ЕAA│1120░AC│176зТ1120,176:╔A$:Бе1907Z/Р7q2╚В CLOCK FACE TIMER7Ё2╥ЕAZ│0зАX│1024е1039:АY│0е7:ТXл(Yн32),128:ЛY,X:AA│1032:AB│1:AZ│1:Т1127,225:Т1128,226:Т1159,228:Т1160,232:Т1063,172:Т1064,1727°2╓╔B$8'2╫И  Б(SCм Б(SCо60)н60)),3):Е  З(S$)┤3 з S$│"0" л  П(S$,1) :Д S$│ П(S$,2)/f&А PP│1312 е 1343:Т PP,33:Л PP/Д0PS$│M$л":"лS$:З@ 301,PS$;/╜:А O│1 е 5:А N│1 е 12:╔"T255 O"л И(O)л"N"л И(N):Л N,O/╘DА PP│1 е 1800:Л PP/щNЕ HT┤BS з Бж 790/ЁX:Г0b:Гshow best score0!lЮ0:З@ 10,"BEST SCORE";0^vЗ@ 224, б(32,143);:З@ 192, б(32,255);:З@ 256, б(32,255);0|АЗ@224,N$;"---------" BS$;0┐КА O│5 е 1 й м1:А N│12 е 1 й м1:╔"T255 O"л И(O)л"N"л И(N):Л N,O0╓ФА PP│1 е 1800:Л PP0▌Ю:Г0юи:Гplay again0·▓а 100,21╝Ю:З"ANOTHER GAME (Y/N)"16╞Z$│ Т:Е Z$┤▓"" з 720 :Д 7101h╨Е Z$│"N" з З"BEST SCORE:";N$:З:З BS$:З:Бе 8501Ж┌Е Z$┤▓"Y" з а 25,1:Бе 7001Нф:Г1гю:Гreset and start1╫°Бж 840:L│1025:R│1054:P│1039:M│0:Q│0:SC│0:Бе 1001▐:Г1є :Гnew best score26BS│HT:HT│0:BS$│PS$:Ю  Д(8):З"WHAT IS YOUR NAME";:╗ Й">>>>?";N$2< Р2C*:Г2T4:Гhigh speed2ц>:ГIF YOUR COMPUTER CANNOT TAKE THE HIGH SPEED POKE, THEN CHANGE THE FOLLOWING LINE TO: 840 RETURN 2ЎHТ 65495,0:Р2№RКT│0:BS$│PS$:Ю  Д(8):З"WHAT IS YOUR NAME";:╗ Й">>>>?";N$2< Р2C*:Г2T4:Гhigh speed2ц>:ГIF YOUR COMPUTER CANNOT TAKE THE HIGH SPEED POKE, THEN CHANGE THE FOLLOWING LINE TO: 840 RETURN 2ЎHТ 65495,0:Р2№RК                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 l&:Г PICTURE MAKER&8:Г BY STEPHEN LAI&Q:Г (C) 1983&c X│50:Y│50:C│4&t╚3,1:╝2:┐1,0&ЧАF│10е180й5:╗(28,F)м(32,F),╜:Л&▀(╗(34,9)м(246,179),╛,B:╗(2,150)м(24,180),╛,BF:╗(6,154)м(20,176),╜,BF'Y2C$│"BM10,10;N;R10;D15;R10":D$│"BM10,30;R6;F4;D7;G4;L6;U15":L$│"BM10,50;D15;R10":P$│"BM10,70;R6;F4;D2;G4;L6;N;U10;D10"'m<╞C$:╞D$:╞L$:╞P$'ЙFA$│ Т:ЕA$┤"5"▒A$▓"9"з70'ЦPA│ Й(A$)'╢ZИ Aм4 Бе230,330,440,540,660'╥dP1│ а(X,Y):P2│ а(X,Yм1)'ЇnA$│ Т:╜(X,Y,5мP1):╜(X,Yм1,P2)(x╜(X,Y,P1):╜(X,Yм1,P2)(ВЕA$│""з110(SМЕA$┤"5"░A$▓"0"зC│ Й(A$):┴C:╗(6,154)м(20,176),╜,BF(цЦЕA$│"Q"зX│Xм2:Y│Yм2:ДЕA$│"A"зX│Xм2:ДЕA$│"Z"зX│Xм2:Y│Yл2:ДЕA$│"X"зY│Yл2:ДЕA$│"C"зX│Xл2:Y│Yл2:ДЕA$│"D"зX│Xл2:ДЕA$│"E"зX│Xл2:Y│Yм2:ДЕA$│"W"зY│Yм2)yаЕA$│"U"зX│Xм5:Y│Yм5:ДЕA$│"J"зX│Xм5:ДЕA$│"M"зX│Xм5:Y│Yл5:ДЕA$│","зY│Yл5:ДЕA$│"."зX│Xл5:Y│Yл5:ДЕA$│"L"зX│Xл5:ДЕA$│"O"зX│Xл5:Y│Yм5:ДЕA$│"I"зY│Yм5)ЦкЕX┤36зX│36:ДЕX▓244зX│244)│┤ЕY┤10зY│10:ДЕY▓178зY│178)╟╛ЕA$│"R"░A│6з420)ш╚ЕA│5▒A▓6зЕA$│ Л(13)за100,2:Р)є╥ЕA│6зР)¤▄Бе100* ц╞"C3"лC$*ЁБж100*"·X1│X:Y1│Y*0╜(X,Y,C2)*:Бж100*HX2│X:Y2│Y*S"а200,2*~,R│ Ы((X2мX1)п2л(Y2мY1)п2):┬(X1,Y1),R,C*Л6╞"C4"лC$*Ф@Бе70*бJ╞"C3"лD$*┤T╗(X,Y)м(X,Y),╜*┬^X1│X:Y1│Y*╠hБж100*┌rX2│X:Y2│Y*с|┴C*°Ж╗(X1,Y1)м(X2,Y2),╜+РX1│X2:Y1│Y2+ЪБе360+%д╞"C4"лD$:а50,2+.оБе70+;╕╞"C3"лL$+E┬Бж100+S╠X1│X:Y1│Y+a╓╜(X,Y,C2)+kрБж100+rъ┴C+ЗЇ╗(X,Y)м(X1,Y1),╜+Т■а220,2+Я╞"C4"лL$+иБе70+╡╞"C3"лP$+┐&Бж100+╚0CP│C+╥:Бж100+█DCB│C+хNБж100,X┴CB:╗(34,9)м(246,179),╜,B,b├(X,Y),CP,CB,.l╗(34,9)м(246,179),╛,B,8vа25,2,EА╞"C4"лP$,NКБе70,оФ┴2:╗(0,0)м(256,9),╜,BF:╗(0,0)м(34,192),╜,BF:╗(256,192)м(246,0),╜,BF:╗(256,192)м(0,179),╜,BF-kЮЮ:З"WHAT IS THIS PICTURE'S NAME":ЙNA$:З:З"POSITION THE TAPE AND PRESS .";:╗ЙX$:╗Й"PRESS PLAY AND RECORD ON YOUR TAPE RECORDER AND PRESS ";A$:ШMNA$,1536,7679,00)м(34,192),╜,BF:╗(256,192)м(246,0),╜,BF:╗(256,192)м(0,179),╜,BF-kЮЮ:З"WHAT IS THIS PICTURE'S NAME":ЙNA$:З:З"POSITION THE TAPE AND PR                                                                                                                                                                                                                                                                }°0Н┐Т9╜зщ╜йt╜н3o╜╣\╜╣пO1Нп0╡╜~%0Н┌╜~%.FжА'нЯа Ў9NEXT WITHOUT FOR SYNTAXRETURN WITHOUT GOSUB OUT OF DATAFUNCTION CALLOVERFLOWOUT OF MEMORYUNDEFINED LINEBAD SUBSCRIPTREDIMENSIONED ARRAY DIVIDE BY ZEROILLEGAL DIRECTTYPE MISMATCHOUT OF STRING SPACE STRING TOO LONGSTRING TOO COMPLEX CAN'T CONTINUEBAD FILE DATAALREADY OPENDEVICE NUMBERINPUT-OUTPUTBAD FILE MODEFILE NOT OPENINPUT PAST END OF FILE DIRECT STATEMENT UNDEFINED FUNCTION~0~B~I~_~k~y~В~Р~Я~н~┬~╤~р~ю'6DQ_lzИа▓ ERROR }°RING TOO LONGSTRING TOO COMPLEX CAN'T CONTINUEBAD FILE DATAALREADY OPENDEVICE NUMBERINPUT-OUTPUTBAD FILE MODEFILE NOT OPENINPUT PAST END OF FILE DIRECT STATEMENT UNDEFINED FUNCTION~0~B~I~_~k~y~В~Р~Я~н~┬~╤~р~ю'6DQ_lz                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ¤&%:Г----------------------------'&I:Г snaker '&m:Г----------------------------'&С:Г BY GARY RITCHIE '&╡:Г MARCH 1983 '&┘:Г----------------------------'&¤:Г BOX 393 BELLEVUE ALBERTA ''!:Г CANADA TOK-OCO ''E:Г----------------------------''S Т 65494,0'еL│1025:R│1054:P│1039:M│0:HT│0:Q│0:BS│70000:SC│0:А PP│1 е 5:Н PL:C(PP)│PL:Л PP'┐Ж 159,191,207,239,255((Ю  Д(4)л1:З@ 192, б(32,"%");:З@224, б(13,255);:З@237,"snaker"; б(13,255); б(32,"%");)2╔ "T4 O3 V25 L8 D G A L4 B L8 A G P8 O4 D C# C O3 L4 B L8 A G P8 D G B O4 L4 D L8 C# L4 D O3 L8 B A G L4... B L8 B O4 E D# L4 E O3 L8 B L4 O4 C L8 O3 B O4 D C L4 O3 B L8 A L4 G L8 B O4 D C O3 B P8 A L4 G L8 A G F# E P8 B P4 O4 E" :ГBublitchki)E<З@ 480,"<>";:Е  Т│"" з 60)LF:Г)XP:Гsetup)cZБж 840)╡dЮ:А PP│1024 е 1504 й 32:Т PP,175:╔"T255 O4 A B":Т PPл31,175:╔"O4 E":Л PP: Я│0)╝n:Г)╠x:Гmain loop)юВА QQ│1 е 2:А N│148 е 244 й 16* МM│( Н(0)┤6) м ( Н(0)▓57)*ЦSP│ Н(3)*=аP│PлM:Е P┤L з P│L :Д Е P▓R з P│R*SкЕ  Ж(P)┤▓96 з 320*]┤Т P,N*s╛╔"O2 T255 G O3 C"*И╚А PP│1 е SP:Л PP*г╥Т  Д(30)л1504,C( Д(5))*╛▄Т  Д(30)л1504,C( Д(5))*▌цТ 1504,175:З@ 511, Л(175);*шЁЛ N,QQ*я·:Г+:Гadvance snake+L│Lл32:R│Rл32+BЕ L│1441 з Т P,148:P│Pл32:Т P,244:Бе 380+\"Т P,148:P│Pл32:Бе 130+c,:Г+o6:Гcrash+Ъ@L│Lм32:R│Rм32:Е L┤1025 з L│1025:R│Rл32+╧JА PL│1 е 2:╔"O2 T2 L8 B":┐0,1:╔"L8 E":┐ 0,0:Л PL,9TТ  Д(29)л1505,C( Д(5)):Т 1504,175:Т 1535,175:Т P,96:P│Pм32:Т P,96:Т Pл1,96:Т Pм1,96:Е P┤1025 з P│Pл32,D^Бе 130,Kh:Г,`r:Гreached bottom,||HT│ Я:Q│Qл1:Е Q│3 з 430,╙ЖА PP│1 е 15:╔"O4 T255 A B E":Т 1504,175:З@ 511, Л(175);:Л PP:Т 1504,175:Т 1535,175,¤РL│1025:R│1054:P│1039:M│0: Я│HT:Бе 130-Ъ:Г-д:Гwin-SоТ 65494,0:Ю  Д(8):╔"V7 O2 T2 L8 F A O3 C L4 F L8 C L4. F":Бж 470-О╕Ю  Д(8):╔"V> O2 T2 L8 A O3 C E L4 G L8 E L4. G":Бж 470-╧┬Ю  Д(8):╔"V> O3 T2 L8 C F A O4 L4 C O3 L8 A O4 L4. C":Бж 470-с╠╔"V15":Бе 510.Z╓╔"T255 O1 E F G B C A E D A G F C E D C B G E A D D A B C G E A D G C A E F E B C E D G A E D B C D E D G B C E D C".`рР.gъ:Г.sЇ:Гscore.Ы■Ю  Д(4)л1:З@ 168,"YOU MADE IT IN:";.╘SC│HTо60:M$│ О( И( Б(SCо60)),3):Е  Й(M$)┤1 з M$│"00".ёЕ  З(M$)▓2 з M$│ П(M$,2)/DS$│ О( И( Р& Х75:Бе680&╚3,1:┐1,1&+╝(3):┴5,3&I(┬(0,196),175,5,.75,.75,.5&[2├(25,150),2,5&r<┬(200,35),20,5,.25&РF┬(200,70),20,5,.25,.0,.45&╒P╗(220,35)м(220,70),╜:╗(180,35)м(180,70),╜:╗(203,35)м(198,20),╜,B&їZ├(190,35),5,5:├(190,50),4,5'\d╗м(180,15),╜:╗(198,20)м(180,25),╜:╗(198,20)м(216,25),╜:╗(198,20)м(216,15),╜:╗(203,75)м(198,90),╜,B'nn├(200,85),5,5'}xАX│0е40й10'ЭВ╗(180лX,90)м(180,97),╜,B:ЛX'┘М├(185,94),1,5:├(195,94),2,5:├(205,94),3,5:├(215,94),4,5'хЦАX│1е20'№аR│ Д(180):S│ Д(60)(кT│ Д(70)л180:U│ Д(90)л100(0┤╜(R,S,5):╜(T,U,5)(7╛ЛX(T╚┬(0,176),68,5,1.3,.75,.9(q╥┬(0,104),60,5,.9,.95,.08(П▄┬(0,150),100,5,.8,.85,.05(мц┬(110,180),22,5,1,.65,.9(╩Ё┬(115,148),20,5,1,.98,.17(є·╗(135,146)м(143,155),╜:╗м(150,142),╜)┬(96,168),62,5,.7,.92,.05),╗(155,180)м(168,168),╜)=├(10,90),5,5)Y"┬(15,195),20,5,1.7,.6,0)k,├(15,190),5,5)Ы@АX│60е192:╜(0,X,2):ЛX:АX│0е175:╜(X,191,2):Л)дJ╚3,5)╡TАX│1е4:Y│Xл4)┴^╟ X е Y)╚hЛX)╓r╚3,1:┴5,3)ц|АX│10е180й3* ЖY│ Б(100м(Xо6)):Z│ Б(140м(Xо2.7))*"Р╜(X,Y,4):╜(X,Z,4)*)ЪЛX*9дАX│80е180й3*OоA│ Б(260м(Xо.97))*\╕╜(X,A,4)*c┬ЛX*r╠АX│0е30й10*П╓╗(190лX,38)м(180лX,73),╜*ЦрЛX*бъАX│1е5*┴ЇR│ Д(180):S│ Д(60):╜(R,S,4)*ш■T│ Д(75)л180:U│ Д(90)л100:╜(T,U,4)*яЛX*¤╚3,5:┴5,3+ АX│0е20й10+&┐1,1+20╗(195лX,38)м(185лX,73),╜+9:ЛX+RD╗(215,73)м(220,56),╜+aNАX│8е178й3+ЗXY│ Б(100м(Xо6)):Z│ Б(140м(Xо2.7))+Эb╜(X,Y,4):╜(X,Z,4)+дlЛX+┤vАX│78е178й3+╓АA│ Б(260м(Xо.97)):╜(X,A,4):ЛX+сКАX│1е5,ФR│ Д(180):S│ Д(60):╜(R,S,4),+ЮT│ Д(75)л180:U│ Д(90)л100:╜(T,U,4):ЛX,5гБе700,AиМA$(63),W▓АQ│1е63:НA$(Q):ЛQ,`╖Бе20,h╝Q│0,u╞АX│1е8й4,Г╨╚3,X:┐1,1,Ц┌ЕQ│63з733:Д747,з▌АAA│1е20:ЛAA,┼щA│ Д(100):ЕA│12з Q│0:Д760,╧ыQ│Qл1,хю╔"L40;O5;XA$(Q);",ЇєАP│1е10:ЛP,√°ЛX-Бе710-k Ж E,E,E,G,E,E,E,G,E,G,C,D,E,E,E,E,F,F,F,F,F,E,E,E,E,D,D,E,D,G,F,D,E,E,E,G,E,E,E,G,E,G,C,D,E,E,E,E-ПЖ F,F,F,F,F,E,E,E,G,G,F,D,C,C,CД747,з▌АAA│1е20:ЛAA,┼щA│ Д(100):ЕA│12з Q│0:Д760,╧ыQ│Qл1,хю╔"L40;O5;XA$(Q);",ЇєАP│1е10:ЛP,√°ЛX-                                                                                                                                                                                                                                                                 ы&dВ *SAMPLE PROGRAM*&n:Г&,xБж 10000&5В╚ PN&>М╝ BK&IЦ┐ 1,SC&Uа┴ FG,BK&dкА N│1 е 25&}┤X│ Д(240): Y│ Д(180)&Щ╛╗(X,Y)м(Xл10,Yл10),╜,BF&б╚Л N&и╥:Г&├▄А WAIT│1 е 1000:Л WAIT&╔чК&▀'В *SUBROUTINE FOR&ў'В GRAPHIC OPTIONS*&■'$:Г''.Ю' '8Й "PMODE NUMBER 0-4";PN':'BЕ PN┤0 ▒ PN▓4 з 10040'V'LЙ "COLOR SET 0 OR 1";SC'p'VЕ SC┤0 ▒ SC▓1 з 10060'Р'`Й "BACKGROUND COLOR 0-8";BK'к'jЕ BK┤1 ▒ BK▓8 з 10080'╩'tЙ "FOREGROUND COLOR 0-8";FG'ф'~Е FG┤0 ▒ FG▓8 з 10100'ъ'╪РC OPTIONS*&■'$:Г                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                2,T1$;C$/$╬З@96,"0=BLACK 1=BLUE"/A╪З@128,"2=GREEN 3=RED"/\тЗ@192,"COLOR DESIRED "/dьЙ C/oЎБе 100ПGЗ@288,"ENTER TEXT DESIRED".ШLЙ T$.жVЗ#м2,"S"S.┤`З#м2,"Q"Q.┬jT$│"P"лT$.╬tЗ#м2,T$.┘~Бе 100.р░Ю:.ў║З@0,"COLOR CHANGE"/─З@3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ы& :Г Number Base&:Г&2:Г  Conversion&9(:Г&K2:Г  Quiz&R<:Г&tF:Г (C) 1982 By Sugar Software&УP:Г Written by Gary Davis&пZ:Г 2153 Leah Lane&╨d:Г Reynoldsburg, Ohio 43068&ыn:Г (614) 861-0565&Єx:Г'ВА I│1 е 10'МЮ4''ЦЗ д8);"PROBLEM NUMBER";I:З'AаЗ д11);"WHAT IS...":З'PкFROM│ Д(3)'b┤T0│FROMл Д(2)'w╛Е T0▓3 з T0│T0м3'М╚NUMBER│ Д(256)м1'ж╥И FROM Бж 470,500,530'╛▄И T0 Бж 570,610,650'╠цА J│1 е 3'сЁЗ N1$;" IN ";N2$'ъ·Й A$(Е A$│ANSWER$ Бе 360(Е A$│"?" Бе 310($З "wrong"(."а 5,2(6,Л J(c6З @448," THE CORRECT ANSWER IS ";ANSWER$(w@W2RONG│W2RONGл1(ЫJЗ @484,"HIT enter TO CONTINUE";(оTЕ  Т│"" Бе 340(╣^Бе 400(цhЕ J│1 з RIGHT│RIGHTл1 :Д PRIGHT│PRIGHTл1(∙rЗ "VERY GOOD!") |А K│1 е 500:Л)'Жа 150,1:а 250,1:а 200,1)/РЛ I)6ЪЮ5)_дЗ "NUMBER COMPLETELY RIGHT: ";RIGHT)ЙоЗ "NUMBER RIGHT AFTER RETRY: ";PRIGHT)│╕З "NUMBER COMPLETELY WRONG: ";W2RONG)╣┬К)╬╠:Г From Decimal)ю╓N1$│ И(NUMBER)л" (DECIMAL)")ЇрР*ъ:Г From Hex*+ЇN1$│ П("0"л Ь(NUMBER),2)л" (HEX)"*1■Р*E:Г From Binary*PБж 710*gN1$│N$л" (BINARY)"*m&Р*А0:Г To Decimal*Т:N2$│"DECIMAL"*пDANSWER$│ Р( И(NUMBER),2)*╡NР*─X:Г To Hex*╥bN2$│"HEX"*єlANSWER$│ П("0"л Ь(NUMBER),2)*∙vР+ А:Г To Binary+КN2$│"BINARY"+'ФБж 710+6ЮANSWER$│N$+<иР+U▓:Г Convert "NUMBER"+p╝:Гto binary and return+Г╞:Гstring in N$+Н╨N$│""+Ъ┌N│NUMBER+ифА K│1 е 8+╢юBIT│N ░ 1+╬°N$│ П( И(BIT),1)лN$+▄N│ Б(Nо2)+ф Л K+ъРER),2)*∙vР+ А:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                AA│0:V│Vл1:B$(V)│B$:J│1::Д 710/J▓Е PL│1 з P1│P1л1:PL│2:DONE│DONEл1:Бе 750/w╝Е PL│2 з P2│P2л1:PL│1:DONE│DONEл1:Бе 750/Л╞А H│1 е 500:Л H/▐╨╞ "S3":╞ "C1":╞ "BM"лX$л","лY$л"BD1":╞ B$:╞ "BM"лX1$л","лY1$л"BD1":╞ C$:╞ "C4"0 ┌├ (8лX,48лY),2,4:├ (8лX1,48лY1),2,4:AA│00Qф╗(8лX,48лY)м(13лX,53лY),╛,BF:╗(8лX1,48лY1)м(13лX1,53лY1),╛,BF:J│10КюЕ PL│1 з PL│2:╞ "BM123,5;D10":╞ "BM133,5;D14":Бе 7700║°Е PL│2 з PL│1:╞ "C1":╞ "BM133,5;D14":╞ "C4"0·Е DONE│20 з Ю:З @192,"PLAYER 1 -"P1:З @256,"PLAYER 2 -"P2:К1 Р2,4:AA│00Qф╗(8лX,48лY)м(13лX,53лY),╛,BF:╗(8лX1,48лY1)м(13лX1,53лY1),╛,BF:J│10КюЕ PL│1 з PL│2:╞ "BM123,5;D10":╞ "BM133,5;D14":Бе 7700║°Е PL│2 з PL│1:╞ "C1":╞ "BM133,5;D14":╞ "C4"0·Е DONE│20 з Ю:З @192,"PLAYER 1 -"P1:З @256,"PLAYER 2 -"P2:К1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   p& Ю&*З@197,"COLOR GRAPHICS DOODLER"&=(А T│1 е 1000:Л&M2З#м2, Л(18)&Z7З#м2,"I"&bRAW LINE"'Б╛З@256,"IRCLE"'У╚З@288,"OX"'л╥З@320,"

RINT TEXT'├▄З@352,"EW COLOR"'╓цЗ@384,"UIT"'ЇыЗ@416,"SELECTION PLEASE:"'■ЁK$│ Т(·Е K$│"D" з 400($Е K$│"C" з 600(7Е K$│"B" з 800(KЕ K$│"P" з 1000(_"Е K$│"N" з 1200(|,Е K$│"Q" з З#м2,"A" :Ю:К(Ы1H│ Н(0)н7.61:V│м Н(1)н7.61(┐6З@64,T2$;"X="; Б(H);"Y="; Б(мV)(╤@З#м2,"M"H","V(▄JБе 240(є^Е C│0 з C$│"BLACK") hЕ C│1 з C$│"BLUE") rЕ C│2 з C$│"GREEN")5|Е C│3 з C$│"RED");ЖР)AРЮ)`ЪH│ Н(0)н7.61:V│м Н(1)н7.61)zдЗ@0,"DRAW SUBROUTINE")ИоЗ@128,T3$)Я┬З@192," TO EXIT)п╠З@32,T1$;C$)╥╓З@64,T2$;"X="; Б(H);"Y=" Б(мV))▄рK$│ Т)яъЕ K$│"X" з 100*ЇЕ K$│"N" з 1200*■З#м2,"D"H","V*Бе410*%XЮ*AbЗ@0,"CIRCLE SUBROUTINE"*QlЗ@32,T1$;C$*tvЗ@64,T2$;"X="; Б(H);"Y=" Б(мV)*ЫАЗ@128,"INPUT RADIUS (1-240) ";:Й R*═КЕ R▓5 з З@160,"CIRCLES ARE SLOW BUT WORTH IT"*сФЗ#м2,"M"H","VлR*°ЮА Y│VлR е VмR й м1+иX│Hл Ы(RнRм(YмV)н(YмV))+&▓З#м2,"D"X","Y+-╝ЛY+?╞А Y│VмR е VлR+[╨X│Hм Ы(RнRм(YмV)н(YмV))+m┌З#м2,"D"X","Y+tфЛY+юБе 100+П Ю:D│0:B$│""+и*З@0,"BOX SUBROUTINE"+╕4З@32,T1$;C$+▀>H│ Б( Н(0)н7.61):V│м Б( Н(1)н7.61)+√HЗ@64,T2$;"X=";H;"Y=";мV,8RЕ D│O з З@128,"POSITION PEN TO FIRST CORNER ANDPRESS ,z\Е D│1 з З@128,"POSITION PEN TO DIAGONAL CORNER AND PRESS ",МfЗ#м2,"M"H","V,ЦpB$│ Т,йzЕ B$│"Z" з 940,├ДЕ B$│"A" з 910 :Д 830,█ОX1│H:Y1│V:B$│"":D│1,ыШЗ#м2,"J1,0",ЎвБе 830-мX2│H:Y2│V:D│0-╢Бе 970-'└З#м2,"M"X1",Y1"-Y╩З#м2,"D"X2","Y1","X1","Y1","X1","Y2","X2","Y2-k╧З#м2,"M"H","V-u╘Бе100-ЩшЮ: З@0,"PRINT SUBROUTINE":T$│""-йЄЗ@32,T2$;C$-╬№З@64, T2$;"X="; Б(H);"Y="; Б(мV)-█З@96," ".Й"SELECT CHARACTER SIZE (0-63)";S.$З@160,"ORIENTATION:".B.З@192,"0= NORMAL 1= RIGHTSIDE".h8З@224,"2= UPSIDE DOWN 3=LEFTSIDE".pBЙ Q.ПGЗ@288,"ENTER TEXT DESIRED".ШLЙ T$.жVЗ#м2,"S"S.┤`З#м2,"Q"Q.┬jT$│"P"лT$.╬tЗ#м2,T$.┘~Бе 100.р░Ю:.ў║З@0,"COLOR CHANGE"/─З@3 THE clear KEY. IF YOU ARE DONE WITH THE EQUATION, PRESS THE enter KEY TO SEE IF YOU GOT IT CORRECT. YOU WILL BE PLAYING MATHGAME AGAINST THE CLOCK, AND WITH"9'╚З" PROBLEMS THAT GET HARDER AS THE GAME GOES ON. YOU MAY PRESS THE 'H' KEY FOR HELP OR THE 'Q' KEY TO QUIT."9P╥З@452,"(PRESS 'C' TO CONTINUE)": Я│09k▄Q$│ Т:Е  Я▓2400 з 12709АцЕ Q$┤▓"C" з 15009ЙЁNW│09 ·Ю:З:З" PICK YOUR STARTING LEVEL":З:З" ADDITION/SUBTRACTION":З" 1) EASY":З" 2) MEDIUM":З" 3) GETTING HARDER":З:]З" MULTIPLICATION/DIVISION":З" 4) NOT SO BAD":З" 5) THESE ARE TOUGH":З" 6) FORGET IT!":ДЗ@452,"(PRESS 1-6 FOR LEVEL)": Я│0:ЯQ$│ Т:Е  Я▓2900 з 1270:▓"Е Q$│"" з 1560:╧,Е Q$┤"1" ▒ Q$▓"6" з 1560:с6N│ Й(Q$):L5│N; @Е N┤4 з N│Nн2л1 :Д Е N┤6 з N│4 :Д N│5;JЮ3:Бе 140;4TЖ AFF5FFFFFFAFF5FFFFFF;O^Ж AFAFF5FFFFFFACACACAF;jhЖ ACACF5FFAFF5FFFFAFF5;ЕrЖ FFFFAFAFF5FFAFAFF5FF;а|Ж FFAFF1F3AFF5FFFFFFFF;╗ЖЖ FFAFF5FFFFFFAFF5FFFF;╓РЖ AFF5FFFFAFF1AFAFF1AF;ёЪЖ F5FFAFF1F7FFF3AFF5FF< дЖ FFFFFFAFF5FFFFFFAFF5<'оЖ FFFFAFF5FFFFAFF5F3F3 bЖ AFF1AFAFF1AFF5FFAFAC>(lЖ ACACF5FFFFFFAFF5FFAC>CvЖ ACAFF5FFAFACACACACAF>^АЖ F5FFAFF5F3F3F7AFF5FF>yКЖ AFF5FFFFFFFFFFFFAFF5>ФФЖ FFFFFFAFF5FFAFF5FFFF>пЮЖ FFAFF5FFAFF5FFFFFFAF>╩иЖ F5FFAFF5FFFFFFFFFFFF>х▓Ж ACACACACACACF5FFACF5?╝Ж FFFFFFACF5FFACF5FFFF?╞Ж FFACF5FFACACACACACF5?+╨╚0:└1:Бе 30 ACAFF5FFAFACACACACAF>^АЖ F5FFAFF5F3F3F7AFF5FF>yКЖ AFF5FFFFFFFFFFFFAFF5>ФФЖ FFFFFFAFF5FFAFF5FFFF>пЮЖ FFAFF5FFAFF5FFFFFFAF>╩иЖ F5FFAFF5FFFFFFFFFFFF>х▓Ж ACACACACACACF5FFACF5?╝Ж FFFFFFACF5FFACF5FFF                                                                                                                                                                                                                                                                  &:Г BY MICHAEL POPOVICH&8:Г 6 ALEX CIRCLE&U:Г NASHUA NH 03062&\:Г&m T│0:MM│1:Z│1&АМ L(50),B$(25)&Т╚ 3,1:╝:┐ 1,0&з(А A│0 е 220 й 30&╜2А C│40 е 160 й 30&┘<╗ (A,C)м(Aл20,Cл20),╜,B&эF├ (Aл2,Cл2),2,4' P╗(8лA,8лC)м(13лA,13лC),╛,BF'ZЛ C'dЛ A'7n╗ (8,48)м(13,53),╜,BF'DxR│ Д(40)'NВT│Tл1'_МЕ T│41 з 210'jЦL(T)│R'zаЕ T│1 з 120'КкА M│1 е Tм1'ж┤Е L(M)│R з T│Tм1:Бе 120'о╛Л M'╣╚Бе 120'ї╥PL│1:а 50,1:┐ 1,1:А W│1 е 100:Л W:┐ 1,0:╞ "BM123,5;D10"' ▄A$│ Т(цЕ A$│"L" Бж 340(~ЁЕ A$│"P" ░ ZX│0 з ╗(8лX,48лY)м(13лX,53лY),╛,BF :X│Xм30:J│1:Z│Zм1::Д Е A$│"P" ░ ZX│1 з X│Xм30:J│1:Z│Zм1(ш·Е A$│"@" ░ ZX│0 з ╗(8лX,48лY)м(13лX,53лY),╛,BF:X│Xл30:J│1:Z│Zл1::Д Е A$│"@" ░ ZX│1 з X│Xл30:J│1:Z│Zл1)RЕ A$│"A" ░ ZX│0 з ╗(8лX,48лY)м(13лX,53лY),╛,BF:Y│Yл30:J│1:Z│Zл8::Д Е A$│"A" ░ ZX│1 з Y│Yл30:J│1:Z│Zл8)╝Е A$│"Q" ░ ZX│0 з ╗(8лX,48лY)м(13лX,53лY),╛,BF:Y│Yм30:J│1:Z│Zм8::Д Е A$│"Q" ░ ZX│1 з Y│Yм30:J│1:Z│Zм8)╥Е X┤0 з X│0:Z│Zл1)ь"Е X▓210 з X│210:Z│Zм1*,Е Y┤0 з Y│0:Z│Zл8*6Е Y▓120 з Y│120:Z│Zм8*O@Е J│1 з ╗ (8лX,48лY)м(13лX,53лY),╜,BF:J│0:ZX│0*ZJБе 220*fTZZ│L(Z)*Б^X$│ И(Xл6):Y$│ И(Yл45)*аhX1$│ И(X1л6):Y1$│ И(Y1л45)*╖rЕ ZZ▓20 з ZZ│ZZм20+|И ZZ Бе 390,400,410,420,430,440,450,460,470,480,490,500,510,520,530,540,550,560,570,580+:ЖB$│"BD3D12U12E3R4F3D12U7L9":Бе 590+hРB$│"BR3G3D9F3R4E3U2H3L4R4E3U2H3L4":Бе 590+НЪB$│"BR3G3D9F3R4E3BU9H3L3":Бе 590+лдB$│"R7F3D9G3L7U14":Бе 590+═оB$│"R10L10D7R8L8D8R10":Бе 590+ь╕B$│"R10L10D7R8L8D8":Бе 590,┬B$│"BR3G3D9F3R4E3U2L3R3BU7H3L4":Бе 590,5╠B$│"D15U8R10U7D15":Бе 590,Q╓B$│"R9L5D15L4R9":Бе 590,oрB$│"BD12F3R4E3U12":Бе 590,НъB$│"D15U8R2E7G7F8":Бе 590,дЇB$│"D15R10":Бе 590,╞■B$│"D15U15R6D9U9R6D15":Бе 590,цB$│"D15U15F10U10D15":Бе 590- B$│"BR3G3D9F3R4E3U9H3L4":Бе 590-0B$│"BD3D12U12E3R4F3D2G3L4":Бе 590-X&B$│"BD3D12U12E3R4F3D2G3L4F8":Бе 590-p0B$│"R9L5D15":Бе 590-Н:B$│"D13F2R6E2U13":Бе 590-▓DB$│"D3F9D3U3H5G5D3U3E9U3":Бе 590-└NА G│1 е V-┘XЕ B$│B$(G) з а 1,1:Р-сbЛ G.l╗(8лX,48лY)м(13лX,53лY),╛,BF:ZX│1.v├ (8лX,48лY),1,4.CА╞ "S3":╞ "BM"лX$л","лY$л"BD1":╞ B$.OКAA│AAл1.nФЕ AA│1 з C$│B$:X1│X:Y1│Y:Р.бЮЕ AA│2 ░ C$│B$ ░ X│X1 ░ Y│Y1 з а 1,1:AA│AAм1:Р/иЕ AA│2 ░ C$│B$ з ├ (2лX,48лY),2,4:├ (2лX,48лY),1,1:├ (2лX1,48лY1),2,4:├ (2лX1,48лY1),1,1: ,& Ю0&Бе 2000&qЕ  Ж(&H3EB9)┤▓ &H32 з Х 700,&H3EB0:А I│&H82B9 е &H831E:Т Iм&H4400, Ж(I):Л :Д Х 700:Бе 70&Ш(А I│0 е 2:Т &H3EBDлI,18:Л:I│&H3F1E&┘2Т I,&H26:Т Iл1,3:Т Iл2,&H7E:Т Iл3,&H83:Т Iл4,&H22:Т Iл5,&H7E&є<Т Iл6,&HA4:Т Iл7,&H4C'FТ &H19B,&H3E'PR│ Д(м Я)'ZМ EA(14)'+dБе 1170'AnA│ннннннннннннннн'ZxA│ Б(Aн1000л.5)о1000'fВБе 1120'йМЮ3:А X│33 е 449 й 32:З@X, б(30," ");:Л X:З@66,"THE NUMBER IS";'┐ЦЗ@418, б(26,191);'╒аЗ@290, б(26,191);( кА X│322 е 386 й 32:З@X, Л(191);:З@Xл25, Л(191);:Л X(&┤ST│ Ж(25)н256л Ж(26)(=╛Е  Ж(ST)│173 з 220(I╚ST│STл1(T╥Бе 190(c▄А X│1 е 14(oцEA(X)│0(wЁЛ X(Б·E$│""(ПА X│1 е N(пR│ Д(9):E$│E$л Р( И(R),2,1)(┴EA(R)│EA(R)л1(╤"Е X│N з 330),Е EA(12)│0 ░ (L5│4 ▒ L5│6) ░  Д(3)│1 з E$│E$л"*":EA(12)│EA(12)л1:Бе 330)i6Е EA(13)│0 ░ (L5│5 ▒ L5│6) ░  Д(3)│1 з E$│E$л"/":EA(13)│EA(13)л1:Бе 330)░@Е  Д(2)│1 з E$│E$л"+":EA(10)│EA(10)л1 :Д E$│E$л"-":EA(11)│EA(11)л1)╕JЛ X)╪TЕ EA(10)│0 ▒ EA(11)│0 з 220)Ї^Е L5│4 ░ EA(12)│0 з 220*hЕ L5│5 ░ EA(13)│0 з 220*9rЕ L5│6 ░ (EA(12)│0 ▒ EA(13)│0) з 220*S|CE$│E$:A$│E$:L│ З(E$)*^ЖБж 970*lРE│A:A$│""*ЕЪЗ@80," ";*СдЗ@80,E;*еоА X│27 е 4 й м1*╜╕Ь(58,X,5):Ь(59,X,5)*┼┬Л X*═╠T│4*╓╓ Я│0+рA$│"":З@200, б( З(E$),".");" ";:P│200+KъЗ@323,"";:А X│1 е 9:Е EA(X)│0 з Л X :Д А Y│1 е EA(X):З X;:Л Y:Л X+ИЇЗ@355,"";:Е EA(10)│0 з 510 :Д А X│1 е EA(10):З" + ";:Л X+╗■Е EA(11)│0 з 520 :Д А X│1 е EA(11):З" - ";:Л X+юЕ EA(12)│0 з 530 :Д А X│1 е EA(12):З" * ";:Л X,!Е EA(13)│0 з 540 :Д А X│1 е EA(13):З" / ";:Л X,@З@390,"USE THESE SYMBOLS";,J&I$│ Т,}0Е  Я▓Nн25 з Э(58,T):Э(59,T): Я│0:T│Tл1:а 200,1,О:Е T│28 з 800,аDЕ I$│"" з 550,│NЕ I$│"Q" з Ю:К,╟XЕ I$│"H" з 1380,▌bЕ I$│ Л(13) з 690,єlЕ I$│ Л(12) з 480-vЕ I$│" " з 550-NАА W│1348 е 1369 й 3:Е  Ж(W)│ К(I$)л64 з Т W,96:З@P,I$;:P│Pл1:Бе 550-VКЛ W-ЮФА W│1380 е 1398 й 3:Е  Ж(W)│ К(I$)л64 з Т W,96:З@P,I$;:P│Pл1:Бе 550-жЮЛ W-▒иБе 550.1▓А X│200 е 200л З(E$)м1:Е  Ж(1024лX)│110 з З@451,"YOU MUST USE ALL SYMBOLS";:а 1,20:З@451," ";:Бе 480.M╝A$│A$л Л( Ж(1024лX)м64).U╞Л X.b╨L│ З(A$).m┌Бж 970.uфS│A.ЕюЗ@P," =";S;.┬°Е E┤▓S з NW│0:З@164,"INCORRECT EQUATION!";:а 1,15:Бе 810.чNW│NWл1:Е NW│3 з N│Nл1:NW│0:WF│1.ў Е N▓8 з N│8/4З@164,"YOU GOT IT RIGHT!";:╔"T2O2L4ABGO1L4GO2L2D":Бе 810/] З@164,"YOU RAN OUT OF TIME!";:а 1,15/t*А X│323 е 387 й 32/И4З@X, б(24," ");/Р>Л X/┤HЗ@324,"COMPUTER'S EQUATION IS";/├RЗ@362,CE$;/╪\А X│1 е 2500:Л X/·fЗ@164," ";0$pАX│323 е 387 й 32:З@X, б(24," ");:Л X0;zЕ WF│0 ▒ N│8 з 9600\ДЗ@324,"LET'S MAKE THE GAME";0~ОЗ@356,"A LITTLE HARDER, OK?";0ЯШ╔"T4O1L8FFFL1DP2L8EEEL1C#P1"0─вЗ@324," ";0цмЗ@356," ";0я╢WF│00·└Бе 1801╩А X│1 е L1╘A│ К( Р(A$,X,1))18▐Е A┤58 ░ A▓47 з Т ST,A1NшЕ A│43 з Т ST,1711dЄЕ A│45 з Т ST,1721z№Е A│42 з Т ST,1731РЕ A│47 з Т ST,1741ЬST│STл11дЛ X1╢$Е L│15 з 11101╟.А X│1 е 15мL1╙8Т ST,321▀BST│STл11чLЛ X1ЄVБе 1101 `ST│STм152jА X│0 е 142tТ STлX,1732%~Л X2+ИР2?ТА X│1 е 19:Н D$2RЬА Y│1 е 19 й 22lжA│ Й("&H"л Р(D$,Y,2))2Б░A1$│A1$л Л(Aм16)2Л║Л Y,X2Я─А X│1 е 19:Н D$2▓╬А Y│1 е 19 й 22╠╪A│ Й("&H"л Р(D$,Y,2))2стB1$│B1$л Л(Aм16)2ыьЛ Y,X2ЄЎЮ73 ╔"O3T2L8CDEFGDEFECP4"3Y З@33,A1$;:╔"T255CDEFGABBBT4P4P4":З@257,B1$;:╔"T255CDEFGABBBT4P4P4":L│4863wR$│" BY RICH DERSHEIMER "3ЫА X│1 е  З(R$):N│ К( Р(R$,X,1))3╢(Е N▓64 ░ N┤91 з N│Nм643╥2Т 1509лX,N:╔"T255O1CCC"3┌<Л X4+FА X│1 е 2000:Л X:Ю:З:З" DO YOU WANT INSTRUCTIONS?":З:З" PRESS Y OR N": Я│04FPQ$│ Т:Е  Я▓1200 з 12704АZЕ Q$│"" з 1360 :Д Е Q$│"N" з 1530 :Д Е Q$┤▓"Y" з 13605$dЮ:З:Зд12);"M A T H":Зд12);"G A M E":З:З" IN 'MATHGAME' THE COMPUTER WILL PICK A NUMBER, AND IT IS YOUR JOB TO BUILD AN EQUATION TO MATCH THAT NUMBER."5иnЗ:З" IF THE COMPUTER PICKED 4 AS IT'S NUMBER, THEN 1+1+2 WOULD BE A LEGAL EQUATION.":З@452,"(PRESS 'C' TO CONTINUE)": Я│05├xQ$│ Т:Е  Я▓2400 з 12705╪ВЕ Q$┤▓"C" з 14006┬МЮ:З:З" BUT YOU WON'T BE ABLE TO USE JUST ANY NUMBERS OR SYMBOLS. THE COMPUTER WILL PICK WHICH NUMBERS AND SYMBOLS YOU WILL BE ABLE TO USE. EACH NUMBER AND OPERATOR (+ - * /) THAT YOU MAY USE WILL BE INSIDE A"7gЦЗ" RED BOX. EACH ONE CAN BE USED ONLY ONCE. TO USE A NUMBER OR SYMBOL, PRESS IT'S KEY ON THE KEYBOARD, AND IT WILL GO FROM THE RED BOX TO THE EQUATION."7РаЗ@452,"(PRESS 'C' TO CONTINUE)": Я│07лкQ$│ Т:Е  Я▓2400 з 12707└┤Е Q$┤▓"C" з 14508к╛Ю:З:З" IF YOU WANT TO START OVER ON THE EQUATION, PRESS p&#:Г ### COLOR-EYED-O-SCOPE ###&A:Г BY TERRELL TOUCHSTONE&H:Г&[:Г INITIALIZE&bЮ0&uD1│0:D3│1:D4│1&К(A│ Д(4):B│ Д(10)&Ф2Бе225&еZ:Г MAIN LOOP&╗dЕ  Д(0)▓.6 Бе 210&╤╨DA│ Д(2):DB│ Д(3)&щ╥A│AмDAлD3:B│BмDBлD4& ▌Е  Д(0)▓.2 Бе 230' сCL│ Д(8)'4цЕ  В(A)▓15 ▒  В(B)▓15 ▒ D1▓8 Бе 300'MшЕ  В(A) ┤│ 12 Бе 235'`щD3│мD3:D1│D1л1'zыЕ  В(B) ▓ 12 з D4│мD4'Р·Ь(31л2нA,15лB,CL)'ж Ь(31л2нA,15мB,CL)'╝Ь(31м2нA,15мB,CL)'╥ Ь(31м2нA,15лB,CL)'шЬ(31л2нB,15лA,CL)'■Ь(31л2нB,15мA,CL)(Ь(31м2нB,15мA,CL)(*Ь(31м2нB,15лA,CL)(5"Бе 100(I,Е  Д(3)▓1 Бе 30(^@А K│1 е 4000:Л K(eJЮ0(o^Бе 30з D4│мD4'Р·Ь(31л2нA,15лB,CL)'ж Ь(31л2нA,15мB,CL)'╝Ь(31м2нA,15мB,CL)'╥ Ь(31м2нA,15лB,CL)'шЬ(31л2нB,15лA,CL)'■Ь(31л2нB,15мA,CL)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 $& Ю4:З@128,"COLOR CAD"&<З@224,"THE IMPOSSIBLE OBJECT"&dЗ@320,"BY DAVID SLIGAR":АX│1е999:ЛX&ВЮ3:З@192,"GOOD THINGS..."&о(З@256,"COME IN SMALL BOXES":АX│1е999:ЛX&╖2╚4,1&┴<Бе730&═F╝0:┐1,1&╪PАZ│1е8&яZЕ Z│8 з АZ│8е4 йм1&Ўd╝0' nS$│"S"л И(Z)л";"'?x╞ S$л";BM100,100U30NR30E15R30NG15D30G15NU30L30"'OВАX│1е120:ЛX'VМЛZ'fЦАX│1е400:ЛX'Ща╝:╞"BM100,100U30NR30E20R30G20D30NL30F20L30H20"'▓к╗(100,100)м(70,95),╜'┬┤╗м(70,65),╜'╙╛╗м(100,70),╜'ь╚╗(70,95)м(40,65),╜,B(╥╗(130,100)м(160,95),╜(▄╗м(160,65),╜((ц╗м(130,70),╜(8ЁАX│1е600:ЛX(h·Ю8:З@224," KA-BOOM!!!":АX│1е200:ЛX(t╝0:┐1,1(УАN│1е101 й5:┬(126,95),N:ЛN(╡АN│101е1 йм5:┬(126,95),N,0:ЛN(э"╝:АN│1е50:S│ Д(255):аS,1:╗(126,95)м(S, Д(195)),╜:ЛN),Ю0:З@192,"AS THE DUST SETTLES,")<6З@256,"THE WIZARD'S WORK IS REVEALED.")r@З@320,"THE ULTIMATE POWER DEVICE!!!":АX│1е2000:ЛX*J╝:╞"BM 55,156;R150;U10;BH40;BL10;L140;D10;R125;F20;L125;U10;R105;F10;BM 55,156;U10;R140;BR10;U78;D10;BL10;D68;H40;U28;D28;F40;BR10;U68;BL10;"*T┬(55,151),3,5,2*,^┬(35,131),3,5,2*@h┬(15,111),3,5,2*Щr╞"BM 55,78;R140;BR10;U10;H40;L150;D10;R125;F20;L125;U10;R105;F10;BM 55,78;U10;R150;"*■|╞"BM 205,156;U40;C0;U10;C5;R20;H19;F19;U38;R10;L10;H40;D18;U18;R10;F40;D90;L10;H19;F19;U42;L20;"+Ж┬(55,73),3,5,2+$Р┬(35,53),3,5,2+7Ъ┬(15,33),3,5,2+Hд┐1,1:╚4,5:╝0+UоТ65495,0+h╕PI│3.14159:Q│1+Ж┬A│м4нPI:B│4нPI:N│360:R│20+Щ╠Е Q▓│1 з R│RлQ+з╓X│(BмA)оN+╖рF│255о(BмA)+╔ъА I│A е B й X+▀ЇX│IнF:Y│Rн Е(IлQ)+ў■╜((Xл140),(80лY),1)+■ЛI,Q│Qл7,FЮ0:Е Q│8 з З@224,"BEGIN WAVE FORM GENERATION":АX│1е900:ЛX,O&┐1,1,`0Е Q▓56 Бе580,j:Бе450,wDТ65494,0,▒NЮ0:З@224,"WARNING-EXCESSIVE ENERGY LEVEL":АX│1е900:ЛX,╘XЮ4:З@96," ALERT! ALERT!",яbАX│1е5:а156,3:а92,2:ЛX-lЗ@128,"THERMAL RUNAWAY CONDITIONS!"-5vЗ@192,"DEVICE OVERLOAD!!"-aАЗ@256,"SPONTANEOUS EMISSIONS EXPECTED!"-ТКЗ@320,"DISINTEGRATION ALERT!!!":АX│1е2500:ЛX-ЯФАS│1е100-╕Ю╚4,1:┐1,1:АX│1е50:ЛX-╬иЕ S│50 з ╝0:Бж720-ч▓╚4,5:┐1,1:АX│1е50:ЛX-ю╝ЛS-ў╞Бе10.╨АN│1е91 й5:┬(126,95),N:ЛN:Р.#┌└8:Бе70ICE OVERLOAD!!"-aАЗ@256,"SPONTANEOUS EMISSIONS EXPECTED!"-ТКЗ@320,"DISINTEGRATION ALERT!!!":АX│1е2500:ЛX-ЯФАS│1е100-╕Ю╚4,1:┐1,1:АX│1е50:ЛX-╬иЕ S│50 з ╝0:Бж720-ч▓╚4,5:┐1,1:АX│1е50:ЛX-ю╝ЛS-ў╞Бе10.╨АN│ +&dЮ&nJ│0:K│0:ZZ│0&3xA│ Д(63)м1:AA│ Д(15)л1&LВB│ Д(31)м1:BB│ Д(31)&aМX│ Д(8): Y│ Д(4)&mСR│ Д(8)&wТM│Rл4&аЦZ │ Zл1 :Е Z │ 20 з Z│0:Ю(T): Бе 120&мЫT│ Д(8)&┐ЬЕ T│8 з а 89,M&╙ЭЕ T│7 з а 108,M&чЮЕ T│6 з а 125,M&√ЯЕ T│5 з а 133,M'аZZ│Zм Б(Zо2)н2'"вЕ T│3 з а 147,M'6гЕ T│2 з а 159,M'JдЕ T│1 з а 170,M'zжЕ T │4 з З @ 8," KOLAR'S DESIGNS ";:а 176,M'СзА S │ 1 е 400: Л S'░кА J │ A е B й((A▓B)н2л1)нX'╥┤А K│AA е BB й ((AA▓BB)н2л1)нY'ё╛И ZZ Бе 200: Э(J,K):Бе 210'№╚Э(J,K)( ═Ь(J,K,Y)(*╥Л K,J: А P│1 е 1000:Л:Бе 120з а 159,M'JдЕ T│1 з а 170,M'zжЕ T │4 з З @ 8," KOLAR'S DESIGNS ";:а 176,M'СзА S │ 1 е 400: Л S'░кА J │ A е B й((A▓B)н2л1)нX'╥┤А K│AA е BB й ((AA▓BB)н2л1)нY'ё╛И ZZ Бе 200: Э(J,K):Бе 210'№╚Э(J,K)(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  №&с :Г***SEE TAKING 'BASIC', SEPT.'83. THIS INFO WAS OMITTED AND ADDED TO GIVE YOU SOME PRACTICE IN COPYING LISTINGS EXACTLY AND TO HAVE A LITTLE FUN ADDING AN- OTHER BIT OF INFO TO YOUR EX- PANDING ARSENAL OF KNOWLEDGE.&чЮ'ВЗ@34,"TO UTILIZE THE 'IMAGINARY VERTICAL LINE' CONCEPT TO NEATLYALLIGN THE ROWS IN A PARAGRAPH, WHEN USING STATEMENTS, DO THE FOLLOWING:"(I(З@226,"IT IS ASSUMED YOU WILL USE TWOSPACES TO INDENT THE FIRST WORD OF THE SENTENCE OR PARAGRAPH. LINE LOCATION IS FOUND BY ADDING+2 TO THE FIRST PRINT@ SCREEN ROW LOCATION. (2ND ROW=32+2).(q2З:Й" TO CONTINUE, PRESS ";O1(╖<Ю:З@64л2,"YOU MAY USE OR YOU MAY USE .)/FЗ@162,"DO NOT INCLUDE ANY SPACES BE- TWEEN THE FIRST QUOTE MARK AND THE FIRST LETTER OF THE SENTENCEOR PARAGRAPH.")YPЗ:З:Й" TO CONTINUE PRESS . ALL FURTHER LINES IN THE PARAGRAPH WILL FALL UNDERTHE <,>.*зdЗ@192л2,"REMEMBER, THE ONLY LOCATION NUMBERS YOU WILL USE TO FORMAT THE SENTENCE OR PARAGRAPH WITH ATWO SPACE INDENTATION WILL BE: 2; 34; 66; 98; 130; 162; 194; 226; 258; 290; 322; 354; 386; 418; 450; 482;"*╧nЗ:Й" TO CONTINUE PRESS ";A1+SxЮ:З@66,"NEARLY ALL THE PROGRAM LINES IN THIS TUTORIAL USE . YOU MAY COMPARE THE LINES IN THELISTING WITH THE DISPLAY.+√ВЗ@226,"I THINK THAT I SHALL NEVER SEEA POEM LOVELY AS A TREE OR A MAGAZINE AS GOOD AS 'THE RAIN- BOW' TO KEEP MY INTEREST IN THE COLOR COMPUTER FROM FLAGGING!"H                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                0D10XD$;D20L60":├(112,90),7,6:Бе1008`К╞"BM120,96U10XU$;U30F60L25XL$;L25U10":├(122,90),8,6:Бе1008ЧФ╞"BM120,96U50R20F50L30XL$;L30":├(122,90),7,6:Бе1008╘Ю╞"BM120,120U15XU$;XU$;U15R50D50L50":├(126,118),8,6:Бе1009 и╞"BM128,96U10XU$;U10R10XR$;R10D10XD$;D10L10XL$;L10":├(135,92),7,6:Бе1009▀▓╞"BM128,96U20XU$;U20R10XR$;R10XR$;R10D39XD$;XD$;D40L80XL$;L10U60R10XR$;R10D10R20":┬(153,121),15:┬(153,71),15:┬(103,121),15:├(135,90),8,6:├(153,121),7,6:├(153,71),7,6:├(103,121),7,6:Бе100:6╝╞"BM128,96U75R30D150L30U65L10D50L10XL$;L10U90R10XR$;R10D30R10":├(135,90),8,6:Бе100:q╞╞"BM128,96U30XR$;R20D40XL$;U10L20":├(135,90),7,6:Бе100:▌╨╞"BM60,100U50R100D40XD$;XD$;D40L100U50":АB│70е150й20:А C│140е60йм20:┬(B,C),5:Л C:Л B:├(65,95),8,6:Бе100;_┌╞"BM60,146U50XU$;XU$;U40R30U20R10XR$;R10D50R30U20R10XR$;R10D50L30U20L30D70L60":┬(90,116),20:├(65,140),8,6:├(90,116),7,6:Бе100;█ф╞"BM60,96U30R10U30F50R20U40R60D80L25XL$;L25U30L5XL$;L5D40L60U10XU$;U20":┬(88,96),10,6,2:├(88,96),7,6:├(63,96),8,6:Бе100<ю╞"BM118,106U30R10XR$;R10D30L10XL$;L10":├(124,96),7,6:Бе100┬(128,96),30:╞"BM123,125XR$;":├(128,96),7,6:Бе100>NH┬(128,96),25:┬(128,96),50:╞"BM123,145XR$;":├(128,96),7,6:├(128,140),8,6:Бе100>жR╞"BM80,110U10XU$;U10E30R10XR$;R10F30D10XD$;D10G30L10XL$;L10H30":├(128,96),7,6:Бе100>щ\╞"BM80,110U10XU$;U10E30R30F30D30G30L30H30":├(128,96),8,6:Бе100?f╞"BM114,120U50R30D50L30":├(128,96),7,6:Бе100?_p╞"BM128,140H30U10XU$;U10E30F30D10XD$;D10G30":├(128,96),8,6:Бе100?йz╞"BM80,146U45XU$;U45R100D45XD$;D45L40XL$;XL$;L40":├(128,96),7,6:Бе100@xД╞"BM50,180U20NR160U20NR160U20NR160U20NR160U20NR160U20NR160U20NR160U20R20ND160R20ND160R20ND160R10XR$;ND160XR$;R10ND160R20ND160R20ND160R20D160L70XL$;XL$;L70":А X│60е180й40:А Y│30е150й40:├(X,Y),8,6:Л Y:Л XAОА X│80е200й40:А Y│50е170й40:├(X,Y),8,6:Л Y:Л X:А X│60е180й40:АY│50е170й40:├(X,Y),7,6:Л Y:Л X:А X│80е200й40:А Y│30е150й40:├(X,Y),7,6:Л Y:Л X:Бе100AKШ╞"BM90,140U55XU$;U55F120L55XL$;L55":├(110,100),7,6:Бе100AВв╞"BM128,96H30R60F30L25XL$;L25":├(132,92),8,6:Бе100A└м╞"BM90,120E60R35XR$;R35G60L35XL$;L35":├(128,96),8,6:Бе100A■╢╞"BM60,120E60R55XR$;R55G60L55XL$;L55":├(128,96),7,6:Бе100B9└╞"BM70,120E40R60F40L60XL$;XL$;L60":├(128,96),8,6:Бе100Bq╩╞"BM30,120E70R20XR$;R20F70L190":├(128,96),7,6:Бе100Bз╘╞"BM80,116E40R5XR$;R5F40L100":├(128,96),8,6:Бе100B▄▐╞"BM128,96U30R20D30L5XL$;L5":├(131,92),7,6:Бе100Cш╞"BM128,96U10XU$;U10R20D30L20":├(131,92),8,6:Бе100CIЄ╞"BM118,116U40R20D40L5XL$;L5":├(128,96),8,6:Бе100CБ№╞"BM118,116U15XU$;U15R20D40L20":├(128,96),7,6:Бе100C╛╞"BM118,116U15XU$;U15R20D40L5XL$;L5":├(128,96),7,6:Бе100D┬(128,120),50,6,1,.5,1:╞"BM78,120R45XR$;R45":├(128,96),8,6:Бе100D=┬(128,96),70,6,.5:╞"BM123,60XR$;":├(128,96),7,6:Бе100Do$╞"BM128,96U20F20L5XL$;L5":├(131,93),8,6:Бе100Dв.╞"BM128,96U5XU$;U15F30L30":├(131,93),7,6:Бе100Dр8╞"BM90,116U15XU$;U15R40F40L35XL$;L35":├(128,96),8,6:Бе100EB╞"BM90,76U5XU$;U5R80D80L5XL$;L5U60L60":├(98,70),7,6:Бе100E`L╞"BM70,60R10XR$;R10F30E30R10XR$;R10G60H60":├(80,65),8,6:Бе1003),8,6:Бе100Dв.╞"BM128,96U5XU$;U15F30L30":├(131,93),7,6:Бе100Dр8╞"BM90,116U15XU$;U15R40F40L35XL$;L35":├(128,96),8,6:Бе100EB╞"BM90,76U5XU$;U5R80D80L5X                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 a&% :Г(C)1982 PRICKLY-PEAR SOFTWARE&БU$│"L1U10R3D10L2BU10":R$│"U1R10D3L10U2BR10":D$│"L1D10R3U10L2BD10":L$│"D2L10U3R10D1BL10"&╔Ю3:З@98,"HIT THE DESIRED ROOM NUMBER";:З@165,"(FROM '01' TO '99')";&ь(X$│ Т:Е X$│"" з Бе40 :Д а150,1'2XX$│ Т:Е XX$│"" з Бе50 :Д X$│X$лXX$:а150,1'B                                                                                                                                MENU BAS ДMOD ART BAS"ACEYDUCYBAS#9DRAGBYTEBASdTPTDSK BIN&К+TITLE BAS'─KOLARDESBAS.AUXART8 BAS PAC EM BAS((BASICODEBAS);CLRSCOPEBASsCAD 16 BAS'LTRWRITRBAS*FACES BAS+ЕMATHGAMEBAS/COCOTYPEBAS-┐MEMORY BASDOODLER BASsCHECKS BAS0+NUM QUIZBASюPROTECT BAS3yHOLIDAY BASУSAMPLE BASюFISHING BAS4jERRMSG BIN5ERRMSC BIN SNAKER BAS PUZLSTIXBAS6ТPICMAKERBAS oPIEGRAPHBAS9o20 ODD BAS KEYFUN BAS<НMISNLTR BAS=#SONGTIMEBASiSHPS&CLRBAS▐SHAP BAS>┤                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  & └8&╝&G│255:H│191&R(A│ Д(G):B│ Д(G):C│ Д(G):D│ Д(H):E│ Д(H):F│ Д(H)&В2L│ Д(1):CO│ Д(8):CL│ Д(8):COL│ Д(8):P│ Д(4)&С<╚P,L:┐1,CO&ЬF┴CO,CL&▒P╗(A,D)м(B,F),╜,B&║ZаA,1&┼d┴CL,CO&ьn╗(C,F)м(A,D),╜:╗м(B,E),╜:╗м(C,F),╜&∙xЕP│2з230'ВаB,1'МA│ Д(A):D│ Д(D)',Ц┬(A,E),D,COL,COо3'DаЕP▓0з├(A,E),Pл1,COL'MкаC,1'Z┤ЕP│1з200'l╛ЕP│3з200:Д220'И╚╗(B,F)м(C,D),╜,BF:Бе270'С╥аD,1'к▄╗(B,F)м(C,D),╜:Бе260'│цаE,1'├Ё╟(COL)е(CL)'╠·Бе30'щАG│1е(A)й20:аG,1:Л:Бе280(АG│(C)е1йм20:аG,1:Л( Бе30):D│ Д(D)',Ц┬(A,E),D,COL,COо3'DаЕP▓0з├(A,E),Pл1,COL'MкаC,1'Z┤ЕP│1з200'l╛ЕP│3з200:Д220'И╚╗(B,F)м(C,D),╜,BF:Бе270'С╥аD,1'к▄╗(B,F)м(C,D),╜:Бе260'│цаE,1'├Ё╟(COL)е(CL)'╠·Бе30'щАG│1е(A)й20:аG,1:Л:Бе280(АG│(C)е1йм20:аG,1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 6& :Гacey ducy&':ГBY BARRY FURMAN&<:Г21 SUNSET LANE&X(:ГLEVITTOWN, N.Y. 11756&r2:ГTEL: (516) 796-5040&y<:Г&ЖFТ65495,0&єPЮ0:N│100:A│0:B│0:C│0:D│0:E│0:G│0:H│0:I│0:J│0:K│0:L│0:M│0:O│0:P│0:Q│0:R│0:S│0:T│0:U│0:V│0:W│0:X│0:Y│0:Z│0'ZАH│16е47' dАV│4е23'nЬ(H,V,2)'"xЛV,H'0ВАH│0е63й4'=МАV│24е31'UЦЬ(H,V,8):Ь(Hл1,V,8)'oаЬ(Hл2,V,7):Ь(Hл3,V,7)'xкЛV,H'Е┤АH│26е35'Т╛АV│16е21'Я╚Ь(H,V,4)'и╥ЛV,H'╡▄АV│10е11'═цЬ(24,V,3):Ь(25,V,3)'хЁЬ(36,V,3):Ь(37,V,3)'ь·ЛV( З@5,"THE ACEY-DUCEY DEALER";(@ЕF▓4зЗ@304,"REMEMBER...";:З@338," PRESS 'B' ";(MЕF▓4з300(W"ЯИ:бИ(a,O$│ Т(w6ЕO$│"W"зЯк:Бж2660(Н@ЕO$│"L"зЯк:Бж2700(гJЕO$│"C"зЯк:Бж2740(▓TЕO$│"B"зЯк(─^ЕO$│"B"зF│Fл1(╙hЕO$│""з400)rЕO$│"B"зЗ@480,"HOW MUCH MONEY DO YOU HAVE";:ЙQ)|ЕQ▓0зЯк:Бе430)1ЖЕO$│"B"░Q│0зЯк:Бе430)GРЭ(30,18):Э(30,19))jЪЕ Д(4)│4зЬ(24,10,2):Ь(37,10,2))tдБе180)~оN│100)Е╕Ю0)Ф┬ЕQ│0зQ│100)и╠K│Kл1:ЕK┤▓1з540)┘╓З@224,"YOU ARE STARTING WITH"Q"BUCKS";:Бе590)црАX│64е95)ўъЗ@X, Л(128);)■ЇЛX* ■АX│64е95*З@X, Л(128);*#ЛX*`АX│64е95:З@X, Л(128);:ЛX:З@68,"YOU NOW HAVE"Q"DOLLARS.";*x&З@459,"$";:З@460,Q;*Ж0АX│1е1100*Н:ЛX*ЫDЕK┤▓1з610*нNА J │ 1 е 900*┤XЛJ*╛bБе660*╚lQ│QлM*╥vБе460*▄АQ│QмM*цКБе460+ФL│Lл1:ЕL▓1зN$│"NEXT":ДN$│"FIRST":Бж1690+3ЮЕL▓1зЗ@16,"NEXT TWO CARDS:";+@иA│ Д(13)+M▓B│ Д(13)+`╝Е A ▓│ B з 680+o╞ЕBмA│1з680+y╨Бе740+Г┌Бе640+ЙфП+╩юЖ1,A,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,J,12,Q,13,K,14+█°НG:ЕG│14з800+уНC$+∙ Е A │ G з L$ │ C$,Бе760,  П,*Н G:ЕG│14з850,#4НC$,9>Е G │ B з V$ │ C$,CHБе810,NRБж1800,X\Бе870,yfЗ@288,"WHAT IS YOUR BET";:ЙM,ИpАX│310е319,ЩzЗ@X, Л(128);,аДЛX,пОЕM┤▓0з1010,╟ШЗ@437,"CHICKEN!!!";,╪ва21,8:а16,18,чмАX│288е319,°╢З@X, Л(128);, └ЛX-╩АX│437е447-╘З@X, Л(128);-&▐ЛX-0шБе660-DЄЕ M ┤│ Q з 1140-{№T│339:З@T,"SORRY BUT YOU";:З@Tл32,"BET TOO MUCH ";-╛З@Tл64,"YOU HAVE ONLY";:З@Tл96,Q"DOLLARS ";:З@Tл131,"TO BET.";-┘З@Tл161," BET AGAIN ";-чАD│1е1750-ю$ЛD-¤.АX│299е319.8З@X, Л(128);:ЛX.BАG│39е63.+LАJ│18е31.6VЭ(G,J).?`ЛJ,G.IjБе860.VtC│ Д(13).\~П.cИНG.qТЕG│14з960.yЬНC$.ПжЕ G │ C з D$ │ C$.Ъ░Бж2420.е║Бе1220.╕─Е C ▓ A з 1240.├╬Бе1410.╫╪Е C ▓│ B з 1410.ттАY│1е8.·ьЗ@405,"YOU WIN!!!";/Ўа225,5/БЗ@405, Л(128);:З@406, Л(128);:З@407, Л(128);:З@408, Л(128);:З@409, Л(128);:З@410, Л(128);:З@411, Л(128);:З@412, Л(128);/г З@413, Л(128);:З@414, Л(128);/кЛY/╣АP│300е319/╩(З@P, Л(128);/╤2ЛP/р<АZ│288е319/ёFЗ@Z, Л(128);/°PЛZ0ZАX│405е4150dЗ@X, Л(128);0nЛX0)xБе6200PВЗ@438,"SORRY,";:З@469,"YOU LOSE!";0[Ма13,170iЦАX│1е10100pаЛX0кАY│288е3190Р┤З@Y, Л(128);0Ч╛ЛY0ж╚АX│438е4470╖╥З@X, Л(128);0╦▄З@Xл30, Л(128);0╥цЛX0уЁЕ M ┤ Q з6400щ·З10V│307:З@V,"SORRY FRIEND,";:З@Vл34,"YOU LOST";:З@Vл65,"YOUR DOUGH";1kЗ@436,"WANT TO TRY";:З@468,"AGAIN(Y/N)";:З@505,"";:ЙA$1zАX│478е4831Л"З@X, Л(128);1Т,ЛX1б6ЕA$│"Y"з801╟@З@484,"O.K. HOPE YOU HAD FUN!!";1╓JАX│508е5101чTЗ@X, Л(128);1ю^ЛX1∙hБе16402rЮ02 |АH│11е212ЖАV│5е132&РЬ(H,V,5)2QЪЮ0:З@2,"HERE ARE YOUR "N$" TWO CARDS";2hдЗ@288,"NEXT CARD";2Ио:Г***GREEN PILE OF DOUGH***2а╕З@361,"YOUR DOUGH";2п┬АX│425е4342├╠З@X, Л(143л80);2┌╓З@Xл32, Л(143л80);2ёрЗ@Xл64, Л(143л80);2°ъЛX3ЇЗ@459,"$";:З@460,Q;3■Р36:Г******BACK OF CARD*******3CАX│64е963TЗ@X, Л(128);3[&ЛX3h0АH│10е213t:АV│7е153ЛDЗ@288,"NEXT CARD";3нNЗ@69,"HERE'S THE SHUFFLE...";3║XЬ(H,V,4)3╥bЬ(10,V,5):Ь(21,V,5)3фlЬ(Hл32,Vл1,4)3юv:Г***4АЬ(Hм6,Vл15,4)4КЬ(42,Vл1,5):Ь(52,Vл1,5)4&ФO│Oл140Ю:Г***4MиЬ(4,Vл15,5):Ь(14,Vл15,5)4V▓ЛV,H4n╝PP│PPл1:ЕPP▓20з20104|╞а190лPP,14З╨Бе19804Ы┌PP│0:АX│101е1064пфЗ@X, Л(131л64);4╣ю:Г***4╤°З@Xл221, Л(131л64);4щЗ@Xл160, Л(140л64);4є :Г***5 З@Xл381, Л(140л64);5" З@Xл16, Л(131л64);5:*З@Xл176, Л(140л64);5D4:Г***5K>ЛX5YHАT│1е15005`RЛT5m\АH│12е215yfАV│6е135еpЗ@65,"NOW I'LL TURN THE CARDS OVER...";5┬zЬ(H,Vл2,5):Ь(Hл32,Vл2,5)5╔ДЛV5╨ОЛH5▄ШАV│7е125ъвЬ(11,V,5)5°мЬ(21,V,5)5 ╢ЛV6└З@200, Л(132л64);6+╩З@199, Л(142л64);6A╘З@232, Л(135л64);6T▐З@215, Л(128);6gшЗ@216, Л(128);6}ЄЗ@217, Л(133л64);6У№З@248, Л(135л64);6й З@184, Л(140л64);6┐ З@183, Л(142л64);6═ З@134,L$;6╫ $а90,26х .АJ│1е10006ь 8ЛJ6· BЗ@150,V$;7 Lа110,17 VАX│1е16007 `ЛX7 jР7B t:Г**TURN OVER DEALER'S CARD**7P ~АX│1е10007W ИЛX7c ТАH│4е147p ЬАV│23е307} жЬ(H,V,5)7Ж ░ЛV,H7Щ ║З@420, Л(128);7м ─З@421, Л(128);7┬ ╬З@422, Л(133л64);7╪ ╪З@388, Л(142л64);7ю тЗ@389, Л(140л64);8 ьЗ@453, Л(135л64);8 ЎП8 НG8 ЕG│14з26108( НC$8> Е G │ C з D$ │ C$8I (Бе25608V 2АX│1е3008] <ЛX8k FЗ@355,D$;8q PР8| ZБе26508З dАX│1е48У nа 225,58Ъ xЛX8а ВР8л МАX│1е88▓ ЦЛX8╜ аа13,178├ кР8╬ ┤АX│1е88╒ ╛ЛX8ц ╚а21,8:а16,188ь ╥Р8  ▄:Г************9 ц╗ЙA$9 ЁЗ#м2,A$95 ·A$│ Т:ЕA$│""з2810:ДЯк:Бе2790$ │ C$8I (Бе25608V 2АX│1е3008] <ЛX8k FЗ@355,D$;8q PР8| ZБе26508З dАX│1е48У nа 225,58Ъ xЛX8а ВР8л МАX│1е88▓ ЦЛX8╜ аа13,178├ кР8╬ ┤АX│1е88╒ ╛ЛX8ц ╚а21,8:а16,188ь ╥Р8  ▄:Г************                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                А╬Ж~О▓╖О┐ПО`жДCcДбД&cА є0Й ┐<╬Ж`ОЯИзАМ%∙_╜йЭОП╜ё╜∙ Е Ж @нЯаОPЯ~нЯа |&я Б&ы╜▐ОаЯИОс╜ёОP╞жА╜чZ&°О 0L30":├(131,93),7,6:Бе100Dр8╞"BM90,116U15XU$;U15R40F40L35XL$;L35":├(128,96),8,6:Бе100EB╞"BM90,76U5XU$;U5R80D80L5X                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┴&'З:З:З:Й" YOUR TITLE";A1$&Ы'З:Й" COUNT ALL LETTERS AND SPACES IN THE TITLE. (IF RESULT IS AN ODD NUMBER, ADD +1. DIVIDE THE RESULT BY 2. L=";L&о'$З:Й" 16-L=";T&┤'.Ю&╟'8А I│ 1 е 6:З:Л&╘'BЗ дT)A1$&ь'LЗ д10)"JOSEPH KOLAR' 'VЗ д7)"INVERNESS, FLORIDA'"'`┐ 0,1:А Z│1 е 1500:Л'Р(<З@416," IF YOU ARE SATISFIED WITH THE TITLE, PRESS ELSE PRESS AND TRY AGAIN.";:Й O1'¤(FЮ:З:З:З" RETYPE LINES 10000 TO 10020. REMEMBER TO PLACE QUOTE MARKS AROUND YOUR TITLE IN LINE 10000.(T(PЗ:З" 10000 A1$=(YOUR TITLE) 10010 L=(LENGTH/2) 10020 T=16-L.(└(ZЗ:З" DELETE LINES 10300-10330 AND APPEND THIS TO YOUR MAIN PRO- GRAM. DON'T FORGET TO LINK IT UP!ER TO PLACE QUOTE MARKS AROUND YOUR TITLE IN LINE 10000.(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 %& Ю:╚ 4,1:╝:┐ 1,1&@Х:М P(20,20),K$(4),B(20,20): Т 65495,0&vK$(1)│ Л(9):K$(2)│ Л(94):K$(3)│ Л(8):K$(4)│ Л(10)&З(X│8:Y│6:F│50&п2╝:IX│ Б(256о(Xл1)):IY│ Б(182о(Yл1))&ь<╗ (3,3)м(252,3),╜:╗ м(252,178),╜:╗ м(3,178),╜:╗ м(3,3),╜';F╗ (20,182)м(20,190),╜:╗ м(F,190),╜:╗ м(F,182),╜:╗ м(20,182),╜:├ (21,185),1'MPDZ│2л(XлY)о10'WZN│XнY'╫dА I│1 е X:А J│1 е Y:┬ (IXнI,IYнJ),3:B(I,J)│0:Е  Д(XлY)│1 з P(I,J)│ Д(23):├ (IXнI,IYнJ),1:а P(I,J)н10,1:Д P(I,J)│1:╔"L220;A"'рnЛJ,I'юxDX│0:DY│0(ВX0│ Д(X):Y0│ Д(Y):X1│ Д(X):Y1│ Д(Y)(<МЕ  В(X0мX1)┤4 ▒  В(Y0мY1)┤4 з 130(МЦ┬ (X0нIX,Y0нIY),6:┬ (X1нIX,Y1нIY),7:├ (X1нIXл4,Y1нIY),1:├ (X1нIXл4,Y1нIY),0(гаЕ P(X0,Y0)│0 з 180)кА I│1 е P(X0,Y0):╔ "L170;"л И( Б(Iо2л1)):F│Fл1:╗(F,182)м(F,190),╜:Л I:T│TлP(X0,Y0):N│Nм1:Е N│0 з X│Xл1:Y│Yл1:Бе 50).┤A│X0нIX:B│Y0нIY)W╛Е P(X0,Y0)┤▓0 з ├ (A,B),1: ├ (A,B),0)s╚P(X0,Y0)│0:Бж 210:Бе220)─╥╗ (F,182)м(F,190),╛:F│Fм1:╔"L150;C":Е F│19 з З@170,"OUT OF FUEL":Бе 460 :Д Р)╩▄В*:цA$│ Т:Е A$│" " з B(X0,Y0)│B(X0,Y0)л3:╔"V30;L200;O1;G":╜(Aл Д(5)м3,Bл Д(5)м3):Бж 210:Бе 230 :Д Е A$│"" з 280*\ЁЕ A$│K$(1) з DX│1:DY│0:Бе 280*·Е A$│K$(2) з DY│м1:DX│0:Бе 280*вЕ A$│K$(3) з DX│м1:DY│0:Бе 280*╜Е A$│K$(4) з DY│1:DX│0*╪X0│X0лDX:Е X0│0 з X0│X*ъ"Е X0▓X з X0│1+,Y0│Y0лDY:Е Y0│0 з Y0│Y+6Е Y0▓Y з Y0│1+9@┬ (A,B),6,0:┬ (X0нIX,Y0нIY),6+YJA│X1нIX:B│Y1нIY:├ (Aл4,B),0+wTЕ P(X1,Y1)┤▓0 з ┬ (A,B),3+Х^EX│ А(X0мX1):EY│ А(Y0мY1)+лhЕ  Д(DZ)┤│1 з 400+тrЕ  Д(2)│1 з Е X1лEX▓0 ░ X1лEX┤│X з X1│X1лEX:Бе 390,|Е Y1лEY▓0 ░ Y1лEY┤│Y з Y1│Y1лEY,ЖA│X1нIX:B│Y1нIY,4Р┬ (A,B),7:├ (Aл4,B),1,RЪЕ P(X1,Y1)▓0 з P(X1,Y1)│1,ЬдЕ X1│X0 ░ Y1│Y0 з А I│1 е 1000:Л I:З@266,"SORRY.....":а 1,30: Бе 460 ,ъоЕ B(X1,Y1)┤▓0 з А I│1 е B(X1,Y1)н4:╔"L200;A":ЛI:DZ│DZоB(X1,Y1):B(X1,Y1)│0,ў╕DZ│DZл.1-┬Бе 160-$╠З@325,"YOU SCORE"T"POINTS!!!"7:├ (Aл4,B),1,RЪЕ P(X1,Y1)▓0 з P(X1,Y1)│1,ЬдЕ X1│X0 ░ Y1│Y0 з А I│1 е 1000:Л I:З@266,"SORRY.....":а 1,30: Бе 460 ,ъоЕ B(X1,Y1)┤▓0 з А I│1 е B(X1,Y1)н4:╔"L200;A":ЛI:DZ│DZоB(X1,Y1):B(X1,Y1)│0,ў╕DZ│DZл.1-┬Бе                                                                                                                                                                                                                                                                  8& Ю:З" ONE MOMENT PLEASE"&3А G│31744 е 32330&JН P$:P│ Й("&H"лP$)&X З@32,G,P$&b(Т G,P&l2Л G:Ю&Р<З"NOW TO SAVE THE PROGRAM TYPE"&╩FЗ"CSAVEM"; Л(34);"FORTYK"; Л(34);",31744,32330,31744"&ыPЗ"TO RUN IT TYPE EXEC31744"&¤Z:ГDATA IN HEX'ЄdЖBD,A9,28,1A,50,8E,80,00,EC,84,B7,FF,DF,ED,81,B7,FF,DE,8C,FE,FE,26,F1,B7,FF,DF,CC,12,12,FD,96,8F,FD,96,A3,FD,96,A5,FD,AC,4F,B7,AC,51,86,2D,B7,82,E3,B7,82,ED,8E,7D,D7,10,8E,80,E8,A6,80,27,04,A7,A0,20,F8,10,8E,7E,2A,A6,A0,27,06,AD,9F,A0,02,20'∙n:Г(юxЖF6,AD,9F,A0,00,27,FA,BD,A9,28,81,31,27,0C,81,32,26,E1,8E,00,00,1C,AF,7E,80,02,8E,34,30,BF,80,E8,8E,80,00,10,8E,DF,00,EC,84,6F,81,ED,A1,8C,A0,00,26,F5,8E,E0,F0,A6,84,8B,5F,A7,81,8C,E1,1E,26,F5,8E,E1,57,A6,84,8B,5F,A7,81,8C,E1,73,26,F5,8E,DF(їВ:Г)ъМЖ00,10,8E,7D,33,A6,80,81,8E,27,2B,81,BD,27,27,81,CE,27,23,81,7E,27,1F,81,11,27,15,8C,FE,FF,27,0E,AC,A4,26,E1,31,22,30,B4,31,22,30,01,20,D7,20,16,A6,80,81,83,26,E5,A6,84,81,80,25,DF,81,9F,22,DB,8B,5F,A7,81,20,D5,8E,7D,59,86,5F,B7,7D,32,70,7D)ёЦ:Г*цаЖ32,A6,94,BB,7D,32,A7,94,30,02,8C,7D,A3,27,EF,8C,7D,D7,26,ED,8E,A0,D1,86,7E,A7,80,CC,DF,02,ED,84,86,9F,B7,BC,85,8E,A0,84,CC,8E,9F,ED,81,CC,FE,7E,ED,81,CC,A0,93,ED,84,4F,97,71,8E,00,00,1C,AF,7E,A0,27,00,DF,DA,E0,3B,E0,83,E1,73,E2,AB,E3,46,E3*эк:Г+т┤ЖC4,E3,F1,E8,0B,E8,0F,F1,DD,F1,E5,F6,06,F6,0E,FB,5B,FB,B6,FD,79,FD,A0,FE,FF,DF,AE,E0,FA,E2,20,E2,32,E2,4F,E2,9E,E3,4B,E3,79,E3,C1,E4,41,E4,FC,E7,04,E7,3A,E7,EA,E8,72,EB,40,EB,68,EB,79,EB,AF,EB,E8,EC,8B,EE,A9,F2,20,F2,93,F2,E4,F3,14,F3,1A,F3+щ╛:Г,▐╚Ж5C,F4,61,F7,DB,F8,C8,F8,D5,F9,41,F9,D8,FB,45,FE,03,FE,3F,DF,DF,DF,E1,DF,E6,DF,E4,F1,9C,F1,9E,F1,A0,F1,A2,F1,A4,F3,8A,F3,8C,F3,8E,F3,90,F3,92,E3,7B,F7,39,F7,3B,F7,3E,F7,40,F7,43,F7,45,F7,48,F7,4A,F7,4D,F7,4F,FC,11,33,32,4B,20,52,4F,4D,2D,52,х╥:Г-┌▄Ж41,4D,0D,0D,56,45,52,53,49,4F,4E,20,31,2E,31,20,31,39,38,33,20,42,59,20,52,41,59,20,47,41,55,56,52,45,41,55,45,58,54,45,4E,44,45,44,20,42,41,53,49,43,20,20,0D,4E,4F,57,20,49,4E,20,36,34,4B,20,52,41,4D,20,4D,4F,44,45,0D,00,50,52,45,53,53,20-сц:Г.7ЁЖ20,20,31,20,20,46,4F,52,20,34,30,4B,20,20,20,20,32,20,20,46,4F,52,20,33,32,4B,009,20,47,41,55,56,52,45,41,55,45,58,54,45,4E,44,45,44,20,42,41,53,49,43,20,20,0D,4E,4F,57,20,49,4E,20,36,34,4B,20,52,41,4D,20,4D,4F,44,45,0D,00,50,52,45,53,53,20-сц:Г.7ЁЖ20,20,31,20,20,46,4F,52, &BВ"A LITTLE LETTER WRITER BY STEVE BLYN,COMPUTER ISLAND,1983"&H Ю&_L$│"LETTER WRITER"&~АT│1е13:З@8лT, Р(L$,T,1):Л&ж(З:╗ Й"ARE YOU USING A PRINTER?";PR$&└-Е  О(PR$,1)│"Y" з Z│1&┘2З@9,"LETTER WRITER";'<а200,1:З@64,"the date":З"WHAT IS TODAY'S DATE?":ЙD$'FЗ@160," "'wPа200,1:З@192,"the greeting or salutation":З"TO WHOM ARE YOU WRITING A LETTER";:Й W$'╕Zа200,1:З:З"the closing or ending":З"WHAT IS YOUR NAME?":Й N$(dа200,1:З:З"the body or story - PRESS ENTER AND BEGIN YOUR MESSAGE";:Й EN$( nЮ(xЙ B$(*ВЮ:Зд15)D$;",1984(JЗЕ Z│1 з З#м2,д40)D$;",1984"(^МЗ"DEAR ";W$;","(~СЕ Z│1 з З#м2,"DEAR ";W$;","(ОЦB$│" "лB$(иЫЕ Z│1 з З#м2," ";(╘аЗ:АT│1 е  З(B$):З Р(B$,T,1);:а175,1:Л:З)еЕ Z│1з З#м2," ":А T│1е  З(B$):З#м2, Р(B$,T,1);:Л T:З#м2," ") кR│ Д(4))>┤Е R│1 з R$│"YOURS TRULY,")U╛Е R│2 з R$│"LOVE,")q╚Е R│3 з R$│"SINCERELY,")К╥Е R│4 з R$│"FONDLY,")Ы▄З" ":Зд15)R$)╝сЕ Z│1 з З#м2," ":З#м2,д40)R$)╚цЗд15)N$)рыЕ Z│1 з З#м2,д40)N$)юЁAGAIN$│ Т*·Е AGAIN$│"" з 240 :Д Ю:Бе50" ") кR│ Д(4))>┤Е R│1 з R$│"YOURS TRULY,")U╛Е R│2 з R$│"LOVE,")q╚Е R│3 з R$│"SINCERELY,")К╥Е R│4 з R$│"FONDLY,")Ы▄З" ":Зд15)R$)╝сЕ Z│1 з З#м2," ":З#м2,д40)R$)╚цЗд15)N$)рыЕ Z│1 з З#м2,д40)N$)юЁAGAIN$│ Т*·Е AGAIN$│""                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  В& Ю4&:Г&p:Г BY JOHN W. KOZUBAL 10353 COMPTON BLVD. BELLFLOWER, CA 90706&w(:Г&~2:Г&Я<:Г FOR USE ON 16K OR GREATER&┐F:Г MUST HAVE EXTEVDED BASIC&рP:Г NO SPEED-UP FUNCTION USED&ЎZЗ @ 236, "FACES";' d╔ "T255O3CGCGO5CG"'+nA│Aл1:Е A│20 з 120 :Д 100'9x╝:P│ Д(4)'GВS│ Д(2)м1'QМ╚ P,1'[Ц┐ 1,S'aа╝'БкА X│1 е 30:Л:╔"O5T255CGCGCG'О┤E│ Д(8) 'Я╛Е E│1 Бж 860'░╚Е E│2 Бж 970'┬╥Е E│3 Бж 1000'╘▄Е E│4 Бж 1030'ццЕ E│5 Бж 1080'°ЁЕ E│6 Бж 1050( ·Е E│7 Бж 910(Е E│8 Бж 1110(5H│ Д(7):Г HEAD(FЕ H│1 Бж 610(W"Е H│2 Бж 670(h,Е H│3 Бж 740(y6Е H│4 Бж 720(К@Е H│5 Бж 770(ЫJЕ H│6 Бж 790(мTЕ H│7 Бж 830(╔^M│ Д(11):Г MOUTH(█hЕ M│1 Бж 1440(эrЕ M│2 Бж 1470( |Е M│3 Бж 1490)ЖЕ M│4 Бж 1510)#РЕ M│5 Бж 1560)5ЪЕ M│6 Бж 1580)GдЕ M│7 Бж 1680)YоЕ M│8 Бж 1700)k╕Е M│9 Бж 1730)~┬Е M│10 Бж 1750)С╠Е M│11 Бж 1780)й╓N│ Д(5):Г NOSE)╗рЕ N│1 Бж 1320)═ъЕ N│2 Бж 1350)▀ЇЕ N│3 Бж 1370)ё■Е N│4 Бж 1390*Е N│5 Бж 1410*B│ Д(5):Г BROW*-Е B│1 Бж 1170*?&Е B│2 Бж 1200*Q0Е B│3 Бж 1230*c:Е B│4 Бж 1260*uDЕ B│5 Бж 1290*СNА X│1 е 2000:Л X:Бе 120*│X:Г**********HEAD********.*****═b┬(128,96),80 :ГCIRCLE*цl╞ "BM49,86;L5D15R5"+v╞ "BM207,86;R5D15L5"+А╞ "BM168,165;F10"++К╞ "BM88,165;G10"+1ФР+bЮ┬(128,96),44.44,,1.8 :Г VERTICAL ELIPSE+ди╞ "BM128,175;R30U5D5E5G5R5L5F5H5L30D15U15L30U5D5H5F5L5R5G5E5"+к▓Р+╟╝╞"BM128,96;BL75E50R30F50+═╞Р, ╨╞"BM128,96;BL75E50R50F50G50L50H50U10D20U10F50R50E50U10D20,┌Р,?ф┬(128,96),100,,.5 :Г HORIZ ELIPSE,Вю╞ "BM128,160;U15D15R30U2R2D4L2U2L60U2L2D4R2U2R30D7D15F6H6G6E6",И°Р,п╞"BM125,96;BL50U84R100D168L100U84",╡ Р,╦┬(128,96),200,,.3,щ :Г HOR ELIPSE, WIDE,я*Р-4:Г VERT ELIPSE, HIGH-$>┬(128,96),40,,3.5-*HР-KR:Г*********EYES*************-[\┬(100,96),3-kf┬(156,96),3-p┬(156,96),8,,.3-Уz┬(100,96),8,,.3-ЩДР-кО┬(100,96),10-╗Ш┬(156,96),10-▄в╞"BM100,96;BR8;R38;U2;L38D2"-ьм┬(100,96),1-№╢┬(156,96),1.└Р.╩┬(100,96),3."╘┬(156,96),3.(▐Р.Dш╞ "BM100,96;H4F8H4E4G8".TЄ┬(100,96),6.Z№Р.n┬(100,96),5,,.2.tР.Й┬(156,96),8,,1.5.Ю$┬(100,96),8,,1.5.д.Р.╣8┬(100,96),8,,.45.╬B┬(156,96),8,,.45.╘LР.фV┬(100,96),8.Ї`┬(156,96),8/ j╞"BM100,96;BD2;L3R7"/&t╞"BM156,96;BD2;L3R7"/,~Р/MИ:Г*********BROW*************/iТ╞ "BM100,86;L3G1E1R3F3"/ЕЬ╞ "BM156,86;L3G3E3R3F1"/ЛжР/д░╞ "BM100,86;L5R8F10"/╜║╞ "BM156,86;R5L8G10"/├─Р/ъ╬╞ "BM100,86;R10L20U1R20U1L20U1R20"0╪╞ "BM156,86;L10R20U1L20U1R20U1L20"0тР0.ь╞ "BM100,82;G13H2"0EЎ╞ "BM156,82;F13E2"0KР0f ┬(100,96),15,,2,.6,.910В┬(156,109),13,,2,.6,.910ИР0й(:Г**********NOSE************0┬2╞ "BM128,96;D10L3R6"0╚<Р0фF╞ "BM128,100;G10E10F10"0ъPР0■Z┬(128,106),4,,21dР1n┬(128,106),21xР11В┬(128,106),15,,.217МР1XЦ:Г********MOUTH*************1nа╞ "BM110,130;R46"1Ук╞ "BM122,130;D6L3U6R2D6L2U6R1D6"1Щ┤Р1│╛┬(128,136),30,,.25,.51╣╚Р1╙╥┬(128,136),20,,1.2,.51┘▄Р1ъц┬(128,136),91√Ё┬(128,136),72·а 200,2:а 190,2:а 200,32Z╔ "T100;CDEFG;O3;ABO4;CDEFGABO5;CDEFG":а 250,2:А Y│1 е 800:Л Y2`Р2y┬(128,136),30,,.1,.52"Р2Х,┬(128,132),30,,.52о6:Г HOR ELIPSE - FULL3@╞ "BM128,126;BR20U4L1D4BL5U6L1D6BL6U7L1D7BL7U8L1D8BL6U7L1D7BL6U5L1D5BL6U3L1D3"3TJ╞ "BM128,138;BR20D4L1U4BL6D6L5U6BL7D8L1U8BL5D7L1U7BL6D7L1U7BL7D5L1U5BL4D3L1U3"3^Tа 1,13r^╔"T255;O5CDEFG"3|hB│Bл13ОrЕ B│14 з 16703Ъ|Бе 16203аЖР3╝Р┬(128,115),30,,.8,.1,.43┬ЪР3▀д┬(128,115),30,,.8,.95,.43ўо:Г OFF CENTER SMILE3¤╕Р4 ┬╞ "BM128,135;H20E2G4E2F30E2G4"4&╠Р4B╓┬(128,115),30, ,.7,0,.54Xр:ГON CENTER SMILE4^ъР4{Ї┬(128,115),30,,.7,.1,.554Б■Р│14 з 16703Ъ|Бе 16203аЖР3╝Р┬(128,115),30,,.8,.1,.43┬ЪР3▀д┬(128,115),30,,.8,.95,.43ўо:Г OFF CENTER SMILE3¤╕Р4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╝&#Ю:МA$(18),B$(26):З б(32,168);&[З б(10,168)л" COCOTYPING "л б(10,168);:З б(32,168);&╡З б(8,207)л"by"л б(2,128)л"leonard"л Л(128)л"hyre"л б(8,207);:З б(32,207):З б(32,175)&ъБж6000:З@448,"***PRESS ANY KEY TO CONTINUE***";'╔"T150O5V31GGGGG"'I$│ Т:ЕI$│""з6')╔"T150O5V31GGGGG"'╚ Ю:З б(32,159);:З"THIS PROGRAM IS DESIGNED TO GIVEYOU A NUMBER OF BASIC TYPING EXERCISES TO GET YOU STARTED ON THE WAY TO BECOMING A CAPABLE TYPIST.";(^ З:З"THE SECRET IS TO KEEP YOUR EYES ON THE SCREEN--NOT ON THE KEYS. KEEP YOUR FINGERS ON THE 'HOME KEYS'.THESE ARE---ASDF(LEFT) & JKL;(RIGHT);"(б З б(32,159);:З"*****PRESS ANY KEY TO START*****";:З б(32,159);(╡I$│ Т:ЕI$│""з14(╠Ю:╔"T200V31O5FGGF")З б(32,175):З:З:З б(32,207);:З"**L E V E L S E L E C T I O N**";:З б(32,207):)7Зд10) "1> BEGINNER")PЗд10) "2> SECONDARY")hЗд10) "3> ADVANCED")БЗд10) "")ЧI$│ Т:Е I$│""з 21)╔Е I$│"1"з1000:ДЕI$│"2"з2000:ДЕI$│"3"з3000:Д21)╧К*,шЮ:З"BELOW ARE SEVERAL EXERCISES TO GET YOU FAMILIAR WITH THE MOST COMMONLY USED KEYS."*жъЗ"YOU WILL BE GIVEN THEM 1 AT A TIME.TO MOVE TO THE NEXT ONE YOUMUST TYPE THE CURRENT SELECTION CORRECTLY 4 TIMES."*╕ыЗд6)"1> ASDF"*╩ьЗд6)"2> JKL;"*▄эЗд6)"3> TGUH"*ююЗд6)"4> QWEV"+яЗд6)"5> POIN"+'ЁЗд6)"6> BRNY":Зд6)""+`ёЗ"*******";:╔"T150V31O5GGGG"+wЄI$│ Т:Е I$│""з1010+Мє╔"T150V31O5GGGG"+▐ЇA$(1)│"SFAD":A$(2)│"FADS":A$(3)│"KJL;":A$(4)│"J;LK":A$(5)│"GHTU":A$(6)│"UGHT",3їA$(7)│"WEVN":A$(8)│"VEWQ":A$(9)│"INOP":A$(10)│"PINO":A$(11)│"XZTR":A$(12)│"BRNY",ЛЎA$(13)│"CLOD":A$(14)│"SEKP":A$(15)│"TYUI":A$(16)│"REOP":A$(17)│"MVWH":A$(18)│"DALK",дўА X│1 е 18:Бж4000:ЛX,о°Бе 15-C╨Ю:╔"T150V31O5GGGG":З"BELOW ARE SEVERAL INTERMEDIATE EXERCISES. AS IN THE BEGINNER EXERCISES, THEY ARE BASICALLY FOR LEARNING KEY LOCATION.-_╤З:З"EXERCISES INCLUDE:"-u╥Зд4)"1> A1S2D3F4"-Л╙Зд4)"2> T56Y7K86"-а╘Зд4)"3> R-/.K-O"-╖╒Зд4)"4> CATJOBTIP"-╬╓Зд4)"5> EXCLAIMIT"-ф╫Зд4)"6> !W%V()$'"-№╪Зд4)"-AND 12 MORE!".┘З:З"".5┌I$│ Т:Е I$│""з2010.с█╔"T150V31O5GGGG":A$(1)│"A1S2D3F4":A$(2)│"T56Y7K86":A$(3)│"R:/.K-O":A$(4)│"CATJOBTIP":A$(5)│"EXCLAIMIT":A$(6)│"!W%V()$'":A$(7)│"A;8LDKFJ":A$(8)│"IEQUAY":A$(9)│"9ECLIDS"/~▄A$(10)│"QPWOEI":A$(11)│"RAZELBOP":A$(12)│"FELKROLO":A$(13)│"KRIPNIC":A$(14)│"DANLOUP":A$(15)│"ARKNORP":A$(16)│"POINTER":A$(17)│"THRISG":A$(18)│"FLIPGUT"/Щ▌А X│1 е 18:Бж 4000:Л X/в▐Бе15/╟ ╕Ю:╔"T150V31O5GGGG":З  б(32,175);/ю ╣З б(12,175)л"ADVANCED"л б(12,175);/■ ║З б(32,175)0e ╝З"YOU WILL BE GIVEN A SHORT PHRASEOR SENTENCE TO TYPE.TYPE AS FASTAS YOU CAN BUT TYPE ACCURATELY."0x ╜З:З б(32,128);1 ╛З Л(128)л""л Л(128);:З б(32,128);:З"YOU MUST TYPE 24 PERFECT PHRASES";:З б(32,"*");:З"TIMER STARTS WHEN PHRASE APPEARS";:З б(32,"*")1S ┐TY│0:I$│ Т:Е I$│""з3007 :Д Ю:╔"T255V31O5EFEFEF"1А └E$(1)│"NOW IS THE TIME FOR ALL GOOD MEN"1н ┴E$(2)│"EVERY GOOD BOY WILL HAVE HIS DAY"1┌ ┬E$(3)│"THERE IS NOTHING STOPPING ME NOW"2 ├E$(4)│"ROSES ARE RED-VIOLETS ARE VIOLET"24 ─E$(5)│"MANY A GOOD MAN HAS GONE ASTRAY."2` ┼E$(6)│"I LOVE TO TYPE WITH MY OWN COCO"2Н ╞E$(7)│"THE SLY FOX WILL GET THE CHICKEN"2║ ╟E$(8)│"COMPUTERS ARE NOT ACTUALLY SMART"2╥ ╠А Z│1 е 3:А X│1 е 82у ═З б(32,175);2· ╬З"YOUR PHRASE IS-"3 ╧З:ЗE$(X)3 ╨╔"T150V31O5GGGG"3- ╓ Я│0:╗ Й AN$3t ╫Е AN$│E$(X)з ╔"T4O3L15P20O4CP20O4CP20EP20L12CP10L24EP20L3G":Бе30363╗ ┌Е AN$┤▓E$(X)з а 1,4:З:З:З"**********E R R O R !***********":Бе30404C ▄З:З:З"**********C O R R E C T*********";:TY│TYл1:З@420,"PERFECT PHRASES SO FAR= "TY:З"**YOUR SPEED WAS "; Ш(3600о Я)н9;"WORDS/MIN";4Z рА DL│1 е 1600:Л DL4o сЮ:Е TY│24 з 30554z хЛ X:ЛZ4А цЮ4Т чЕ TY┤24 з30084Ш ъК5< яЮ:З:З б(32,175);:З"IN HONOR OF YOUR COMPLETION OF ALL REQUIRED EXERCISES YOU ARE HEREBY GRADUATED AND AWARDED A GOLD MEDAL!":З б(32,159);:А DL│1 е 1000:Л DL5N Ё╚ 1,1:┐ 1,0:╝5g ё╞"C2BM96,96U20L7R15"5Й Є╞"C2BM116,96;U20D10R10U10D20"5┤ є╞"C2BM136,96;U20R10L10D10R10L10D10R10"5▀ Ї╞"C2BM96,126;U20R10L10D10R10L10D10R10"5№ ї╞"C2BM118,126;U20F20U20"6 Ў╞"C2BM146,126;U20R7F5D10G5L7"61 ў┬(60,100),25,26R °├(60,100),2,2:┬(60,100),20,36s ∙╞"BM60,145;G4BE4D40R4BRL4L4"6О ·╗(50,140)м(70,190),╜,B6з √╗(60,140)м(60,125),╜6▓ Бе30806╔аЮ:TI│0:З б(32,"*")7бЗ@64,"HERE IS YOUR EXERCISE:":З@96, Л(128)лA$(X)л Л(128)7#вЗ@128,"TIMES PERFECT="TI7MеЗ@192,"TYPE:":ЙAN$:ЕAN$│A$(X)зTI│TIл17~жЕ AN$│A$(X)зЗ@128,"TIMES PERFECT=";TI:а125,17ХзЕ AN$┤▓A$(X)за 1,17киА DL│1 е 20:Л DL7╨йЗ@192," ":Е TI┤4 з 40058кЕ TI│4 з ╔"T2O3L16CP16O2L32GP32GP32L8AGP9L16BP16O3C":Е TI│4 з Р8oК8QpЖ A,,B,E,G,I,N,N,I,N,G,,T,Y,P,I,N,G,,P,R,O,G,R,A,M8\rPR│2598htАX│1е268qvН B$8~xЗ@PR,B$;8Сz╔"T255V31O2EE"8в|АDL│1е50:ЛDL8о~PR│PRл18╡АЛX8╗ВР ":Е TI┤4 з 40058кЕ TI│4 з ╔"T2O3L16CP16O2L32GP32GP32L8AGP9L                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (&_ Ю:З@(200),"CHECK REGISTER S.G.BROOKS NEWBERRY S C"&vАJ│1е1000:ЛJ:J│0:Ю&ЛМF$(39):МA(6,50)&Э(МB(30):МC(30)&┼2N$│"DATE NUM # DEP CHECK BAL "&ь<З@(196),"PRIOR MONTH REVIEW (Y/N)"&ЎFI$│ Т' PЕI$│"Y"з1650:Д90'ZЕI$│"N"з100:Д70'|dЗ@(194),"YOU MAY USE UP TO 14 SPACES EACH TO NAME UP TO 50 ACCTS":АJ│1е2000:ЛJ:J│0:Ю'┘nЮ:З@(196),"HOW MANY ACCOUNTS DO YOU REQUIRE FOR THIS LISTING":Й" ";B'щxЕB▓99 з 110'ёВH│1'■МЮ:Бе1420( ЦЮ:W│Wл1(аЕ B┤1 з B│1([к З@ (198),"DATE OF TRANSACTION":З:Й" ";A(1,W)(А┤Е A(1,W)┤101 ▒ A(1,W)▓1231 з 170(Ж╛Ю(╚╚З @(195),"NUMBER OF DEPOSIT OR CHECK":З:Й" ";A(2,W)(ь╥Е A(2,W)┤111 ▒ A(2,W)▓999 з 200(Є▄Ю)8цЗ@(197),"TYPE (D) FOR DEPOSIT TYPE (C) FOR CHECK ")TЁЕ A(4,W)▓0 з 320 :Д 250)p·Е A(5,W)▓0 з 870 :Д 260)zY$│ Т)ХЕ Y$┤▓"D" з 280 :Д 320)░Е Y$┤▓"C" з 230 :Д 870)╢"Ю)└,Бе150)╞6К*.@Ю:З @(198),"AMOUNT OF DEPOSIT":З:Й" ";A(4,W):а225,2:Ю:Е A(4,W)┤1 ▒ A(4,W)▓9999.99 з 320*KJA(6,W)│A(6,(Wм1))лA(4,W)*\TЕ W▓9 з WW│9*t^Е W┤10 з M│W :Д M│9*ТhЕ CC$│ Л(94) з 380 :Д 370*ЫrЮ(1)*├|Ь(8,0,1):Ь(9,0,1):Ь(8,1,1):Ь(9,1,1)*╨ЖЗ@(0),N$*▐РS│1:Бе420*шЪS│Sл1*№дЕ W▓9 з WW│WWм1+оЕ W▓9 з SS│WмWW+"╕Е W┤10 з SS│S+R┬Е A(1,SS)▓0 з З@(0л(Sн32)),═"####";A(1,SS);+В╠Е A(2,SS)▓0 з З@(4л(Sн32)),═"####";A(2,SS);+▒╓Е A(3,SS)▓0 з З @(9л(Sн32)),═"##";A(3,SS);+╒рЕ A(3,SS)│0 з З@(9л(Sн32))," ", ъЕ A(4,SS)▓0 з З @(11л(Sн32)),═"####.##";A(4,SS);,4ЇЕ A(4,SS)│0 з З@(11л(Sн32))," ",i■Е A(4,SS)▓0 з A(6,SS)│A(6,(SSм1))лA(4,SS) :Д 520,ЭЕ A(5,SS)▓0 з З@(17л(Sн32)),═"####.##";A(5,SS);,╟Е A(5,SS)│0 з З@(18л(Sн32))," ",№Е A(5,SS)▓0 з A(6,SS)│A(6,(SSм1))мA(5,SS) :Д 550-2&Е A(6,SS)┤▓0 з З@(24л(Sн32)),═"#####.##";A(6,SS);-W+Е A(6,(Wл1))│A(6,W) з 570 :Д 560-n0Е S▓8 з 570 :Д 410-{:З@(0),N$-ЙDWW│0:SS│0-╞NЗ@(425),"POSITION THEN PRESS "-цSЕ A(6,(Wл1))│0 з 610 :Д 600-■XЕ TT│0 з 610 :Д 680. bА X│2 е 8.<lЬ(44,26,X):Ь(45,26,X):Ь(44,27,X):Ь(45,27,X).HvCCC$│ Т.gАЕ CCC$│ Л(94) з 680 :Д 650.ЗКЕ CCC$│ Л(13) з 1280 :Д 660.жФЕ CCC$│ Л(10) з 680 :Д 670.┤ЮЛ X:Бе610.╚иЗ@(434)," ".ц▓Е W▓8 з X│20 :Д X│(Wн2)л2/╝Е CC$┤▓ Л(94) з 710 :Д X│2/╞А DD│2 е 8/H╨Ь(8,X,DD):Ь(9,X,DD):Ь(8,(Xл1),DD):Ь(9,(Xл1),DD)/S┌CC$│ Т/wфЕ CC$│ Л(94) ░ X▓1 з 750 :Д 790/ОюЕ X▓2 з 760 :Д 770/─°Ь(8,X,1):Ь(9,X,1):Ь(8,(Xл1),1):Ь(9,(Xл1),1):X│Xм2/тW│Wм1:TT│TTл1:Е X┤2 з X│2/∙ Е X│2 з 340 :Д 7900Е CC$│ Л(10) ░ X┤21 з 800 :Д 84006 Е X┤21 з 810 :Д 8200l*Ь(8,X,1):Ь(9,X,1):Ь(8,(Xл1),1):Ь(9,(Xл1),1):X│Xл20М4W│Wл1:TT│TTм1:Е X▓20 з X│200°>Е W▓TT з З@(32),N$:З@(384),"":З:З:З:З@(425),"POSSITION THEN PRESS ":S│9:Бе4101HЕ CC$│ Л(13) з 860 :Д 8501%RЛ DD:Бе71010\Бе12801jfЮ:З@(198),"ACCOUNT NUMBER":Й" ";A(3,W):Ю1pЕ A(3,W)▓B з 8701аzЕ A(3,W)┤1 ▒ A(3,W)▓99 з 8701жДЮ1сОЗ @(198),"AMOUNT OF CHECK":Й" ";A(5,W):Ю1ьШа225,22вЕ A(5,W)┤1 ▒ A(5,W)▓9999.99 з 91020мA(6,W)│A(6,(Wм1))мA(5,W)2;╢Бе 3402c└Ю:а225,2:Е A(6,W)┤0 з Ю4 :а 100,10 2i╩Ю2}╘P│0:T│0:R│0:D│02╛▐З @(2), "PERIOD "A(1,1)"THRU"A(1,W);2 шЗ@(34), "CHECKS "A(2,1)"THRU"A(2,W);3ЄА Q│1еW:ГREM TOTALS DEP3*№P│PлA(4,Q)32Л Q3hЗ @(66), "TOTAL DEPOSITS = "3иЕ P┤1000.00 з З @(88),═"####.##";P :Д З @(87),═"#####.##";P3┤$А Q│1еW3├.T│TлA(5,Q)3╦8Л Q4BЗ@(98), "TOTAL CHECKS = "4DLЕ T┤1000.00 з З @(120),═"####.##";T :Д З @(119),═"#####.##";T4XVА N│1еB:R│0:Q│04d`А Q│1еW4ЕjЕ A(3,Q)│N з R│RлA(5,Q) 4НtЛ Q4Я~Е R▓0 з D│Dл14╕ИЕ D▓7 з 1170 :Д 12004шТЕ D│8 з З@(418),"TO CONTINUE PRESS "5ЬBB$│ Т:Е BB$│ Л(13) з 1190 :Д 11805жD│15:░Е R▓0 з З @(98л(Dн32)),═"##";N5\║Е R▓0 з З @(101л(Dн32)),F$(N)5|─Е R▓0 з З @(116л(Dн32)),"="5ж╬Е R▓0 з З @(119л(Dн32)),═"#####.##";R5о╪Л N5╝тЗ:З:З:З:З5фьЗ@(418),"TO CONTINUE PRESS "6 ЎL$│ Т:Е L$│ Л(13) з 1280 :Д 12606Ю:З@(143),"MENU"6╔З@(194),"CHECKS/DEPOSITS PRESS PRINT REGISTER PRESS <1> ADD ACCOUNTS PRESS <2> LIST ACCOUNTS PRESS <3> SAVE ON TAPE PRESS <4>"6╙ Z$│ Т6єЕ Z$┤▓ Л(52) з 1310 :Д 14607Е Z$┤▓ Л(51) з 1320 :Д 97071(Е Z$┤▓ Л(13) з 1330 :Д 2907P2Е Z$┤▓ Л(49) з 1340 :Д 3407p<Е Z$┤▓ Л(50) з 1290 :Д 13507▐FE│0:Ю:Y│99мB:З @(198), "YOU HAVE"(Y)"ACCOUNTS. HOW MANY ARE REQUIRED":З:Й" ";E7·PЕ BлE▓99 з 1370 :Д 13908░ZЮ:З:З:З @(68), "YOU AND I BOTH KNOW THAT YOU DON'T NEED ANY WHERE NEAR THAT MANY ACCOUNTS. COME BACK TO REALITY AND SELECT" (Y) "ACCOUNTS OR LESS"8▀dЙ" ";E:Е BлE▓99 з 1370 :Д 13908єnЕ BлE▓99 з 13708 xЮ:H│Bл19ВБж 1420:W│Wл1:Бе1709)МА C│H е (BлE)9lЦЗ @(193),"TYPE NAME OF ACCOUNT NUMBER";C:З:Й" ";F$(C)9rаЮ9ЛкЛ C:Ю:B│(BлE):Бе12809╚┤З@(389),"PRESS PLAY AND RECORD "9я╛EE$│ Т:Е EE$│ Л(13) з 1480 :Д 14709∙╚Ю:G│W:╥Щ "O",#м1,"CHECKS":▄З #м1,G:,цЗ #м1,H,B,E::ЁА S│1 е G:H·А V│1 е 6:XЗ#м1,A(V,S):`Л V:hЛ S:z"А C│H е (BлE):К,З #м1,F$(C):Т6Л C:Ь@Ъ #м1:иJБе 1280:░TЛ S:╣^Ъ#м1:─hБе1280;(rЮ:З@(192)," TO REVIEW PRIOR MONTH REWIND TAPE DEPRESS PLAY BUTTON AND ";O|ZZ$│ Т:Е ZZ$│ Л(13) з 1670 :Д 1660;fЖЩ "I",#м1,"CHECKS";rРЙ #м1,G;ВЪЙ #м1,H,B,E;РдА S│1 е G;ЮоА V│1 е 6;п╕Й #м1,A(V,S);├┬Е  М(м1) з 1800;╦╠Л V;╙╓Л S;хрА C│H е (BлE);їъЙ #м1,F$(C);¤ЇЛ C<■Е  М(м1) з 1800<'Ъ #м1:W│WлG:Бе340O|ZZ$│ Т:Е ZZ$│ Л(13) з 1670 :Д 1660;fЖЩ "I",#м1,"CHECKS";rРЙ #м1,G;ВЪЙ #м1,H,B,E;РдА S│1 е G;ЮоА V│1 е 6;п╕Й #м1,A(V,S);├┬Е  М(м1) з 1800;╦╠Л V;╙╓Л S;хрА C│H е (BлE);їъЙ #м1,F$(C);¤ЇЛ C<                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 v& Бж9000&/:Г ***************************&7:Г &Y:Г TYPE YOUR PROGRAMS BETWEEN&s:Г STEPS 10 AND 8999.&П:Г TO CSAVE, JUST TYPE:&л:Г GOTO 10000 &▓:Г&╒ :Г ***************************&█#'К&·#(:Г** PROTECT SUBROUTINE **'#2:Г** BY: JORGE MIR **'1# AND SAVE THE PROGRAM AGAIN.":З:З)Q'VТ25, Ж(27):Т26, Ж(28):Ц)o'`ТPл14, Ж(25):ТPл15, Ж(26))u'jР'8Ю:З:З"O.K., PROGRAM IS NOW SAVED."(╨'BЗ:З"REWIND TAPE AND 'CLOAD' IT AT THIS TIME.")5'LЗ:З"IF YOU GET AN 'I/O ERROR', THEN TYPE '                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 g&:Г"GONE FISHING"&.:Г by NORMAN MATICE&@:ГAPRIL, 1983&p МA(50),B(50),C(50),G(100),M(10),N(50),S(50)&xT│0&БK│40&З(╝&С2╚ 3,1&Ы<┐ 1,0&еF┴ 2,3&лP╝&╦Z╞"BM40,60;U8R8BD4L4BR4D4L8"&уd╞"BM55,60;U8R8D8L8"&№n╞"BM70,60;U8F8U8BG8"'x╞"BM85,60;U8R8BD4L8BR8BD4L8"'=В╞"BM115,60;U8R8BD4BL4L4BD4"']М╞"BM130,60;BU8R8BL4D8BR4L8"'БЦ╞"BM145,60;BU4U4R8BD4L8BR8D4L8"'ба╞"BM160,60;U8BR8D8BU4L8BD4"'┴к╞"BM175,60;BU8R8BL4D8BR4L8"'█┤╞"BM190,60;U8F8U8BG8"'№╛╞"BM205,60;U8R8BD4L4BR4D4L8"( ╚┬(128,96),8((╥┬(130,130),5,,1.75,O,.5(E▄─(125,129)м(135,135),M,G(aц╜(126,94,2):╜(130,94,2)(zЁ╗(126,97)м(130,97),╜(Ц·╗(124,86)м(132,88),╜,BF(п╗(120,89)м(136,89),╜(╔╞"BM128,104;NG5ND5F5"(х┬(128,109),35,,.35,0,.5( "╗(93,109)м(163,109),╜),├(128,111),4,2)*6╞"BM125,109;H25D35")E@─(93,86)м(163,120),G,G)\J─(0,0)м(34,10),C,G)rT┬(163,130),10,,.5)Н^╞"BM169,135;E10D10H10")Юh╜(160,130,2))╗r─(154,125)м(188,135),A,G)╨|┬(93,130),10,,.5)ъЖ╞"BM88,135;H10D10E10")·Р╜(97,130,2)*Ъ─(72,125)м(106,135),B,G*'д┬(128,150),8*Aо╞"BM128,156;NG6F6L12"*R╕╜(128,148,2)*o┬─(120,142)м(136,168),N,G*Э╠╔"O3L8GAL4GL2EGO4L4CL2EL4DCCL2DCO3L4AL2G"*г╓╝*║р╗(0,40)м(255,40),╜*╘ъ┼(140,5)м(210,40),G,╜*шЇO│ Д(10):IN│Oл5*ў■А V│1 е IN+D│ Д(120):E│ Д(120)+!Y│Dл60:W│Eл60+5А I│5 е 255 й 5+I&H│ Н(0):J│ Н(1)+m0Е J┤26 з K│Kл1 :Е K▓188 з K│188+О:Е J▓38 з K│Kм1 :ЕK┤40 з K│40+ЮDP│ а(140,K)+▓NЕ P│2 з Бж 1000+┴X╜(149,K,2)+▐b┼(140,Kл1)м(150,Kл6),M,╜+эl╛(146,Kл7)+їvX│I,АZ│255мX,HКЕ X┤220 з ┼(X,Y)м(Xл34,Yл10),B,╜ :Д X│220 : ┼(X,Y)м(Xл34,Yл10),C,╜,НФЕ Z▓35 з ┼(Zм34,Wм10)м(Z,W),A,╜ :Д Z│35 : ┼(Zм34,Wм10)м(Z,W),C,╜,ХЮЛ I,ЭиЛ V,з▓┐ 0,1,н╝Ю,┼╞З@172,"TIME IS UP!",ш╨З@231,"YOU CAUGHT ";T;" FISH!"-┌З@323,"WOULD YOU LIKE TO TRY AGAIN?"-фA$│ Т-,юЕ A$│"Y" з О->°Е A$│"" з 740-FЮ:К-aш┼(X,Y)м(Xл34,Yл10),C,╜-|Є┼(Zм34,Wм10)м(Z,W),C,╜-Ш№┼(141,K)м(157,Kл24),N,╜-м╔"O5T150L4ADP4"-└H│ Н(0):J│ Н(1)-фЕ J┤26 з K│Kл1: Е K▓188 з K│188.$Е J▓38 з K│Kм1: Е K┤40 з K│40..Е K│42 з 1090.$8Бе 1020.;B─(0,0)м(16,26),S,G.VL┼(141,41)м(157,67),S,╜.`VT│Tл1.f`Рм34,Wм10)м(Z,W),C,╜-Ш№┼(141,K)м(157,Kл24),N,╜-м╔"O5T150L4ADP4"-└H│ Н(0):J│ Н(1)-фЕ J┤26 з K│Kл1: Е K▓188 з K│188.$Е J▓38 з K│Kм1: Е K┤40 |є0Н┐Т95 ╜н3╜╤х4$╜╩;0b╜зщ╜йto╜╣\╜╣п5O1НО0╡╜}.0Н╤╜}./=жА'нЯа Ў9NEXT WITHOUT FOR SYNTAXRETURN WITHOUT GOSUB OUT OF DATAFUNCTION CALLOVERFLOWOUT OF MEMORYUNDEFINED LINEBAD SUBSCRIPTREDIMENSIONED ARRAY DIVIDE BY ZEROILLEGAL DIRECTTYPE MISMATCHOUT OF STRING SPACE STRING TOO LONGSTRING TOO COMPLEX CAN'T CONTINUEBAD FILE DATAALREADY OPENDEVICE NUMBERINPUT-OUTPUTBAD FILE MODEFILE NOT OPENINPUT PAST END OF FILE DIRECT STATEMENT UNDEFINED FUNCTIONFILE NOT FOUNDBAD RECORD NUMBER DISK SPACE FULLOUT OF BUFFER SPACE WRITE PROTECTBAD FILENAMEBAD FILE STRUCTURE FILE ALREADY EXISTS FIELD OVERFLOWSET TO NON-FIELDED STRING VERIFYWRITE OR INPUT PAST END OF RECORD}9}K}R}h}t}В}Л}Щ}и}╢}╦}┌}щ}ў~ ~~0~?~M~Z~h~u~Г~С~й~╗~╬~▌~Ё#0DYhГК ERROR |єF BUFFER SPACE WRITE PROTECTBAD FILENAMEBAD FILE STRUCTURE FILE ALREADY EXISTS FIELD OVERFLOWSET TO NON-FIELDED STRING VERIFYWRITE OR INPUT PAST END OF RECORD}9}K}R}h}t}В}Л}Щ}и}╢}╦}┌}щ}ў~ ~~0~?~M~Z~h~u~Г~С~й~╗~╬~▌~Ё#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 П&:Г PUZZLE STICKS&8:Г BY STEPHEN LAI&Q:Г (C) 1983&╦ ╚3:F│ Д(м Я):МO(34),S1(60),S2(60),BX(4),BY(4):АF│1е34:O(F)│F:Л:Ю:Й"DO YOU NEED INSTRUCTIONS (Y/N)";QU$:ЕQU$│"Y"зБж720'Ю:Й"34 OR 17 STICKS";ST:ЕST┤▓34░ST┤▓17з20:ДЕST│34зIN│5:P│8:ДIN│10:P│5';Й"NUMBER OF SHUFFLES";SH:ЕSH┤1з30'E(Бж150'г2ЖR4D6L4U6BD10,BDR2NUD5NL2R2BL4BD4,NDR4D3L4D3R4UBL4BD5,NDR4D3NL2D3L4NUBD4,D3R4ND3U3BD10BL4(<ЖNR4D3R4D3L4NUR4BU5UBD10BL4,NR4D3NR4D3R4U3BU2UBD10BL4,BD6E4U2NL4BD10BL4,NR4D3NR4D3R4U6BL4BD10,NR4D3R4D3L4NUR4U6BD10BL4(3FАF│0е9:НNU$(F):Л(YP╞"S8BM4,6C3"лNU$(0)лNU$(0)лNU$(0)(`Z┴4(╛dD1│ Б(SHо100):D2│ Б((SHмD1н100)о10):D3│SHмD1н100мD2н10:╞"BM4,120"лNU$(D1)лNU$(D2)лNU$(D3)(ьnАF│0е8й4:╗(40мF,9мF)м(246лF,180лF),╜,B:ЛF)3x┴2:╗(32,10)м(40,180),╜,BF:┴4:╗(32,9)м(40,9),╜:╗(32,180)м(40,180),╜)ZВ┴3:АF│10е180йIN:╗(28,F)м(32,F),╜:Л)dМБе170* ЦTT│0:Ю:З:З"PICTURES:":З:З" 1) MR. GROUCH":З" 2) HAPPY FACE":З" 3) BUGGY":З" 4) BOUNCING BOXES":З" 5) SPIRALING LINES":З" 6) YOUR OWN CREATION":З:ЙA:ЕA▓6 з150:Д╝2*.аИ A Бж340,510,590,430,650,840:Р*:кАF│1еSH*j┤A│ Д(ST):B│ Д(ST):F3│O(A):O(A)│O(B):O(B)│F3*║╛A│10л(Aм1)нIN:B│10л(Bм1)нIN:─(36,A)м(244,AлINм1),S1:─(36,B)м(244,BлINм1),S2*ю╚┼(36,A)м(244,AлINм1),S2:┼(36,B)м(244,BлINм1),S1*∙╥Л:┐1,0+▄F1│5:F2│10:E1│5:E2│10+\ц┴2:╗(25,E1нINлP)м(30,E1нINлPм1),╜,B:╗(25,E2нINлP)м(30,E2нINлPм1),╜,B+lЁE1│F1:E2│F2+Ф·┴4:╗(25,F1нINлP)м(30,F1нINлPм1),╜,B+╣╗(25,F2нINлP)м(30,F2нINлPм1),╛,B,A$│ Т:ЕA$│"^"зF1│F1м1:ДЕA$│ Л(10)зF1│F1л1:ДЕA$│ Л(9)зF2│F2м1:ДЕA$│ Л(12)зF2│F2л1:ДЕA$│ Л(13)з310,=ЕF1▓ST зF1│1:ДЕF1┤1 зF1│ST,\"ЕF2▓ST зF2│1:ДЕF2┤1 зF2│ST,f,Бе230-96TT│TTл1:D1│ Б(TTо100):D2│ Б((TTмD1н100)о10):D3│TTмD2н10мD1н100:┴2:╗(0,0)м(20,90),╜,BF:╞"S8BM4,6C3"лNU$(D1)лNU$(D2)лNU$(D3):G1│10л(F1м1)нIN:G2│10л(F2м1)нIN:─(36,G1)м(244,G1лINм1),S1:─(36,G2)м(244,G2лINм1),S2-И@┼(36,G1)м(244,G1лINм1),S2:┼(36,G2)м(244,G2лINм1),S1:╔"T255L25O4CDEFGABGEC"-╦JG3│O(F1):O(F1)│O(F2):O(F2)│G3:АF│1еST:ЕO(F)│F зЛ:Бе700::ДБе230.╞T╞"C4;BM42,10;S20;B;R6;N;R27;G1;D1;G1;D3;R1;E1;R3;F1;R1;E1;R2;F2;E1;R1;E2;F2;R2;E2;F2;R1;E2;F2;R2;E2;U1;H3;L1;B;M+3,5;D2;F1;D2;F1;D1;N;D1;R1;F1;D7;G1;L2;U7;N;E1;D10;G1;D2;G1;D1;G1;D1;G1;D1;L25;U1;H1;U1;H1;U1;H1;U2;H1;U3;N;U7;L2;H1;U7;E1;R1;D1;N;F1.ъ^╞"U2;E1;U2;E1;U1":├(150,15),1,4/Oh╞"BM42,10;B;M+7,12;D2;F2;R5;E3;U1;H2;L1;L5;G2;B;R4;D1;R2;U1;H1;G1;D1":├(102,70),3,4:├(95,65),4,4/кr╞"B;R18;U1;R2;D1;G1;H1;U1;B;U2;R4;F2;D2;G2;L4;H3;U1;E2;R2":├(190,75),3,4:├(185,72),4,4/╔|┬(148,100),30,4,.8,.86,.650Ж╞"C3;BM42,10;B;M+11,30;E3;R1;E1;R9;F1;R1;F3;L2;H1;L1;H1;L8;G1;L1;G1;L3;C40*Р├(140,146),4,30_Ъ╞"BM42,10;B;M+9,8;F1;R5;M+2,1;B;R9;M+2,-1;R5;E1"0eдР0ЧоX│ Д(205):Y│ Д(168):SX│ Д(5)л5:SY│ Д(5)л4:C│10╩╕АF│1е20:X│XлSX:Y│YлSY:C│Cл1:ЕC│5зC│1:ДЕC│2зC│30╤┬┴C0√╠ЕX▓205зX│205:SX│мSX::ДЕX┤0зX│0:SX│мSX1%╓ЕY▓168зY│168:SY│мSY::ДЕY┤0зY│0:SY│мSY1Rр╗(36лX,10лY)м(36л(205мX),10л(170мY)),╜,B1XъЛ1^ЇР2'■╞"C3;BM42,10;S20;B;R11;N;M-9,+10;R14;M+8,5;M+3,5;M-18,-9;M-16,+9;D3;G1;D6;F1;R2;U2;H1;U4;H1;B;M+2,8;F2;N;M+6,10;M-6,+5;M+6,5;R26;M+8,-5;M-9,-4;N;M-5,+9;M+3,-4;R2;N;E1;L2;U2;E1;U4;E1;F1;N;D6;H1;U2"2√╞"B;M-5,+2;U1;H2;L5;H2;U1;B;L5;D1;G2;L5;G2;D1;B;F7;D1;F1;R1;F1;R3;E1;R1;E1;U1;H1;L1;H1;L3;G1;L1;G1;B;H3;L2;H1;U1;E2;R1;E1;R2;F3;G2;L4;B;R17;L6;H2;E3;R2;F1;R1;F2;D1;G1;B;D3;M-7,+6;L5;M-8,-6;M+6,10;R9;M+5,-10"3┬(110,80),8,4:┬(168,80),8,43W├(110,80),3,4:├(168,80),3,4:├(100,80),4,3:├(178,80),4,33i&├(100,50),1,33|0├(140,140),4,33В:Р3МD╝2:┐14:N╞"C1BM42,10;S20;B;R19;M-4,6;N;M-3,1;M-6,-4;M-7,8;M+7,-5;M+3,2;M-8,5;D13;M+6,2;N;M+10,3;M+4,6;R11;M+5,-7;N;M-10,4;M+6,-3;U12;M-10,-3;N;M-3,-2;E3;M+6,3;M-6,-6;M-6,4;M-4,-64YX├(80,30),3,1:├(180,30),3,14▄b╞"B;M+4,10;M+5,1;M+2,4;L4;M-3,-5;B;L7;M-4,5;L4;M+2,-4;M+6,-1;B;D6;F1;D1;L2;U1;E1;B;R6;F1;D1;L2;U1;E1;B;R10;M-8,7;M-9,2;M-7,-4"4№l├(100,70),4,1:├(170,70),4,15v├(120,95),1,1:├(152,95),1,15"АР5aКPI│3.1415926:F│ Д(4):ЕF│2з650:Д┴F:R1│40:R2│85:IA│ Д(20)л305╗ФАF│мPI еPI йPIо20:R1│R1л1:X1│ Е(F)нR1:Y1│ Х(F)нR1:X2│ Е(FмPIмIA)нR2:Y2│ Х(FмPIмIA)нR25рЮ╗(X1л140,Y1л95)м(X2л140,Y2л95),╜5циЛ5ь▓Р64╝╔"T15L15O5AO4AO3AO2AO1FCDEFGABO2CDEFGABO3CDEFGABO4CDEFGABO5CDEFGAB"6L╞A$│ Т:ЕA$│""з710:ДО7#╨Ю:З"----------INSTRUCTIONS----------";:З:З" IN THIS GAME, A PICTURE (CHOSEN BY YOU) WILL BE SHUF- FLED UP INTO HORIZONTAL STICKS. YOUR GOAL IS TO REARRANGE THEM SO THAT THEY ARE ALL IN CORRECT ORDER."7-┌Бж8208фЮ:З:З" YOU CAN CHOOSE BETWEEN TWO DIFFERENT STICK AMOUNTS, 34 OR 17. IF YOU CHOOSE 34, THE STICKS WILL BE THINNER.":З:З" TO MOVE THE STICKS, MOVE THERED AND GREEN POINTERS UP AND DOWN TO TWO STICK LOCATIONS AND ";8eюЗ"PRESS . THE TWO STICKS WILL AUTOMATICALLY SWITCH POSI- TIONS."8o°Бж8209DЮ:З" TO MOVE THE RED POINTER, USETHE UP AND DOWN ARROW KEYS.":З" TO MOVE THE GREEN POINTER, USE THE RIGHT ARROW AND CLEAR KEYS.":З:З" THE BLUE NUMBER REPRESENTS THE NUMBER OF SWITCHES MADE AND ";9И З"THE RED NUMBER REPRESENTS THE NUMBER OF COMPUTER SHUFFLES."9╫З:З" AFTER YOU HAVE COMPLETED THEPUZZLE, PRESS ANY KEY TO PLAY A-GAIN."9с Бж8209ч*Р:4З@490,"HIT ANY KEY";:>Е Т│""з830:ДР:ИHЮ:З"WHAT IS THE PICTURE'S NAME":ЙNA$:З:ЗNA$" IS NOW BEING LOADED...":ЧMNA$:З:З" LOADING COMPLETE.":АF│1е460:Л:Р:ОRР AFTER YOU HAVE COMPLETED THEPUZZLE, PRESS ANY KEY TO PLAY A-GAIN."9с Бж8209ч*Р:4З@490,"HIT ANY KEY"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 l&$:Г****************************&;:Г PIEGRAPH&U:Г DAVID CLEMENTS&q:Г 1099 ROSALIA DRIVE&Н:Г NOVATO, CA 94947&з:Г (415) 897-8342&╩:Г****************************' Х500,&H7D65:АKK│&H7D65 е &H7D8B:НXX:ТKK,XX:ЛKK:Т346,201:╣ Г0│&H7D65:Бе30'0IK$│ Т:ЕIK$│""з20:ДР'vЮ(3):З@235,"pie graph";:Т1024л238,128:XJ│ Г0(XJ):АZZ│1е500:Л:Бе50'}&:Г'Ф':ГDRAW HI-RES TEXT'═(А X1│1е  З(X$):Y1│ К( Р(X$,X1,1))м32:╞"XL$(Y1);":Л:Р'є2╙M"GSPRP":╣ Г1│&H7D90:╣ Г2│&H7D92'■<Бе1690(4FМL$(60),F(10),A(10),B(10),P(10),PT(10):CC│0:Бе570(;b:Г(\c:Г INPUT PREVIOUS SAVED DATA(ЦdЮ:Й"DATA FILE NAME";NF$:ЕNF$│"Q"з210 :Д NF$│ О(NF$,8)(▒nЩ"I",#1,NF$:Й#1,I,SUMF(╓xА KK│1е Iм1:Й#1,F$(KK),F(KK):Л:Ъ(рВБе340(чЮ:Г( Я:ГINPUT SAVED GRAPH)KаЮ:Й"GRAPH NAME";FI$:ЕFI$│"Q"з210 :Д FI$│ О(FI$,8):╙MFI$:┐1,0:Бж20:Бе520)R╝:Г)u╜:Г SCREEN BACKGROUND SELECTION*+╛Ю:З:З:З" DO YOU WANT LIGHT PRINT ON DARK BACKGROUND OR DARK PRINT ON LIGHT BACKGROUND?":З:З" PRINT TYPE? ARK OR IGHT":а140,1:Бж20*P╚ЕIK$│"D"з PR│0:BG│1 :Д PR│1:BG│0*│╥Ю:З@72,"DATA ENTRY MODES":З:З:З:Зд10)"ANUAL":Зд10)"UTO":Зд10)"AVED GRAPH":а140,1:Бж20*ш▄ЕIK$│"M"зБе260:Д ЕIK$│"A"зБе100:Д ЕIK$│"S"зБе160+%цЮ:З"MUST CHOOSE AVAILABLE OPTION":а5,3:АZZ│1е800:Л:Бе210+,:Г+=:ГDATA INPUT+NЮ:I│0:SUMF│0+aI│Iл1:ЕI▓9з340+|Й"DESIRED LABEL";F$(I)+Т"F$(I)│ О(F$(I),8)+│,ЕF$(I)│""▒F$(I)│"Q"░ I▓1з340+═6Й"AMOUNT/VALUE ";F(I)+р@SUMF│SUMFлF(I)+ъJБе270,.TЮ:АK│1е Iм1:P(K)│F(K)оSUMF:ЗF$(K);д10)F(K);д20);:З═".##";P(K):Л,W^З:З" DATA OK (Y/N)?":а140,1:Бж20,jhЕIK$│"N"зБе260,кrЮ:З:Зд5)"SAVE INPUT DATA (Y/N)?":а140,1:Бж20:ЕIK$│"Y"Бж1490,▒О:Г,┼П:ГPIEGRAPH PLOT,▀Р╚4,1:┴ PR,BG:╝:Бж1040,ёЪТ65495,0:CP│0- д╗(153,115)м(78,115),╜-оАK│0е Iм2-*╕CP│CPлP(Kл1)-O╜ЕK│Iм2 ░  В(1.0мCP)┤.005з CP│1.0-А┬┬(78,115),75,PR,.93,0,CP:S│ Ж(190):E│ Ж(192)-Ц╠╗(S,E)м(78,115),╜-Ь╓Л-йрТ65494,0-╣ъБж20:Бж1370-╟Ї┐1,0:Бж20-¤■Ю:З:Зд7)"SAVE GRAPH?":а140,1:Бж20:ЕIK$│"Y"зБж1540.7Ю:З:Зд8)"WANT HARD COPY?":а140,1:Бж20:ЕIK$│"Y"зБж1570.iЮ:З:Зд11)"FINISHED?":а140,1:Бж20:ЕIK$│"Y"зЮ:К.╫Ю:З"WANT TO REVERSE PRINT AND BACK- GROUND (Y/N)?":а140,1:Бж20:ЕIK$│"Y"з TE│PR:PR│BG:BG│TE:Бе210 :Д Бе210.▐8:Г.Ї9:Г LTRS & NUMBERS/ :L$(33)│"BM+1,0U4E2R1F2D4BL3BU2R2BD2BR3"/TDL$(5)│"BM+1,0E6BL5D1R1U1L1BF5D1L1U1R1BD1BR3":Г%/ДNL$(34)│"BM+2,0U6BL1R3F1D1G1L1R1F1D1G1L3BR7"/ЫXL$(15)│"NE6BR7":Г//─bL$(35)│"BM+5,-5H1L2G1D4F1R2E1BD1BR3"/ыlL$(29)│"BM+1,0BU2R3BU2L3BD4BR7":Г=0vL$(36)│"BM+1,0U6R2F2D2G2L3BR7"06АL$(37)│"BM+5,0L4U6R4BD3BL2L1BD3BR6"0\КL$(38)│"BM+1,0U6R4BD3BL2L1BD3BR6"0ЙФL$(39)│"BM+5,-5H1L2G1D4F1R3U2L1R3BR3BD2"0▓ЮL$(40)│"BM+1,0U6BR4D6BL3BU3R3BR4BD3"0╘иL$(41)│"BM+5,-6L4R2D6L2R4BR3"0∙▓L$(42)│"BM+1,-2D1F1R2E1U5BD6BR3"1╝L$(43)│"BM+1,0U6D3R1E3G3F3BR3"18╞L$(44)│"BM+1,-6D6R4BR3"1_╨L$(45)│"BM+1,0U6R1F2D1U1E2R1D6BR3"1Ж┌L$(46)│"BM+1,0U6R1D1F4D1R1U6D6BR3"1мфL$(47)│"BM+5,-1U4H1L2G1D4F1R2BR4"1╥юL$(48)│"BM+1,0U6R3F1D1G1L2BR6BD3"1·°L$(49)│"BM+5,-1U4H1L2G1D4F1R2F2BE2"2#L$(50)│"BM+1,0U6R3F1D1G1L2R1D1F2BR3"2L L$(51)│"BM+1,-1F1R2E1H4E1R2F1BD5BR3"2lL$(52)│"BM+3,0U6L3R6BR2BD6"2С L$(53)│"BM+1,-6D5F1R2E1U5BD6BR3"2┤*L$(54)│"BM+1,-6D4F2E2U4BD6BR3"2▐4L$(55)│"BM+1,-6D6R1E2U1D1F2R1U6D6BR3"3>L$(56)│"BM+1,0U1E4U1BL4D1F4D1BR3"3+HL$(57)│"BM+1,-6D1F2D3U3E2U1BD6BR2"3MRL$(58)│"BM+1,-6R4D1G4D1R4BR3"3c\L$(0)│"BM+1,0BR7"3|fL$(14)│"BM+2,0R1BR2"3ШpL$(17)│"BM+2,-4E2D6BR4"3└zL$(18)│"BM+1,-5E1R2F1D1L1G3D1R4BR3"3яДL$(19)│"BM+1,-1F1R2E1U1H1E1U1H1L2G1BD5BR7"4ОL$(20)│"BM+4,0U6L1G2D1R5BD3BR3"4>ШL$(21)│"BM+1,-1F1R2E1U1H1L3U3R5BR3BD6"4kвL$(22)│"BM+5,-6L3G1D4F1R2E1U1H1L2BR6BD3"4ЙмL$(23)│"BM+1,-6R5D2G4BR7"4┐╢L$(24)│"BM+1,-1U1E1R2E1U1H1L2G1D1F1R2F1D1G1L2BR6"4ы└L$(25)│"BM+1,0R3E1U4H1L2G1D1F1R2BD3BR4"5╩L$(16)│"BM+6,-1U4H1L2G1D4F1R2BR4"5.╘L$(13)│"BM+2,-3R3BD3BR2"58▐Бе1905?:Г5Z:Г HIRES SCREEN FORMAT5юЮ:З" WANT LARGE TITLE PRINT (Y/N)?":З" LARGE = 15 CHAR MAX":З" STD = 30 CHAR MAX":а140,1:Бж20:ЕIK$│"Y"з З@33,">>>>";:Д З@65,">>>>";6&З@96,"":Й"GRAPH TITLE";TI$:Й"SUBTITLE";STI$:TP$│IK$6o$Ю:З" WANT PERCENTAGES AND AMOUNTS ON GRAPH (Y/N)?":а140,1:Бж206А.LA$│IK$:┐1,06ё8ЕTP$│"Y"з TC│16:TS$│"S8":T1S$│"24":TI$│ О(TI$,15):X1$│"13" :Д TC│8:TS$│"S4":T1S$│"18":TI$│ О(TI$,30):X1$│"9"7BТ 65495,0:X$│TI$:ЕTI$│""з11107WLP$│"BM"л И(128м Б(TCн( З(TI$))о2))л","лX1$л";"лTS$л";":╞P$:Бж407xVX$│ О(STI$,30):ЕSTI$│""з11507╢`P$│"BM"л И(128м Б(8н( З(X$))о2))л","лT1S$л";S4;":╞P$:Бж407╜|:Г7╥}:Г PRINT LABELS?7р~АK│1е Iм18ИPL$│"BM155,"л И(20л18нK)л";S4;"8%ТZL$│"BM162,"л И(29л18нK)л";"88ЬPT(K)│100нP(K)8YжX$│ И(K)л" "лF$(K):╞PL$:Бж408k░ЕLA$│"N"з12308К║QQ$│ И(PT(K)):RR$│ И(F(K))8┤─X$│ О(RR$,7)л О(QQ$,4)л"%;":╞ZL$:Бж408║╬Л8┴ъ:Г8▀ы:ГSECTOR CENTER LOCATIONS8ёьSUMF│0:PSUM│08 ЎАK│0е Iм19'SUMF│SUMFлP(Kл1):PSUM│SUMFмP(Kл1)о29r ┬(78,115),70,BG,.93,0,PSUM:A(K)│ Ж(190):B(K)│ Ж(192):ЕK│0з B(K)│B(K)л39АЕK▓0з13409│┬(78,115),72,BG,.93,0,PSUM:S│ Ж(190):E│ Ж(192)9╘(LL$│"BM"л И(S)л","л И(E)л";"9э2X$│ И(Kл1):╞LL$:Бж409■<Л:Т65494,0:Р:X:Г:Y:Г HI-LITE SECTORS:jZЮ:З:З" DO YOU WANT TO HI-LITE ANY SECTORS (Y/N)?":а140,1:Бж20:ydЕIK$│"N"зР:┌nЮ:Т65495,0:З:З" WHICH SECTORS ?":АZ│1е Iм1:З@40л32нZ,Z;:Зд10)F$(Z);д20);:З ═".##";P(Z):Л:уxQQ│1;ВЗ@455," 'F' WHEN FINISHED";; МБж20;ЦЕIK$│"F"з1460;RаZ│ Й(IK$):З@39л32нZ,">";:├(A(Zм1),B(Zм1)),PR,PR;jкQQ│QQл1:ЕQQ┤I з1420;y┤Т65494,0:Р;Б╨:Г ;Щ╤:ГDATA SAVE ROUTINE;ф╥Ю:Й"ENTER DATA FILE NAME";NF$:ЕNF$│"Q"з Р :Д NF$│ О(NF$,8):Щ"O",#1,NF$;є▄┘#1,I,SUMF<цАKK│1е Iм1:┘#1,F$(KK),F(KK):Л:Ъ:Р< :Г<9:ГGRAPH SAVE ROUTINE<ЫЮ:Й"GRAPH NAME";FI$:ЕFI$│"Q"з Р:Д FI$│ О(FI$,8):┐1,0:╪MFI$, Ж(188)н256, Ж(188)н256л6143,380:Р<в :Г<╣!:ГPRINTER ROUTINES<ё"Ю:З"HALF AND FULL WIDTH PAGE COPY ARE AVAILABLE."=2,З:З"HALF PAGE COPY CAN BE LOCATED RIGHT, LEFT, OR CENTER."=f6З:З"DO YOU WANT hALF OR fULL PAGE?":а140,1:Бж20=Г@ЕIK$│"F"▒IK$│"f"з Бе1630=┐JЕIK$│"H"▒IK$│"h"░ CC│0з Бж1650 :Д ╙M"GSPRP":CC│0:Бж1650=∙T┐1,0:Е а(5,190)│1з P│ Г2(XP):Бе530 :Д P│ Г1(XP):Бе530> ^ЕCC│1з 1620>jhS│&H7D90:ТSл37,2:ТSл45,95:ТSл62,4:ТSл67,47:ТSл197,48:ТSл277,18:ТSл278,18:CC│1:XP│м125:Бе1620>бrЮ:З"POSITION OF GRAPH (L/R/C)":а140,1:Бж20:XP$│IK$>╣|ЕXP$│"L"з XP│м160:Р>╨ЖЕXP$│"R"з XP│125:Р>█РXP│0:Р>чЪ└4:Бе70?kдЖ 198,32,182,1,90,142,4,0,167,128,140,4,31,38,249,142,5,224,167,128,140,6,0,38,249,142,4,32,167,132,167,31,58,140,6,0,38,246,57rЮ:З"POSITION OF GRAPH (L/R/C)":а140,1:Бж20:XP$│IK$>╣|ЕXP$│"L"з XP│м160:Р>╨ЖЕXP$│"R"з XP│125:Р>█РXP│0:Р>чЪ└4:Бе70?kдЖ 198,32,182,1,90,1                                                                                                                                                                                                                                                                 К& :Г KEYBOARD FUN&*:Г PAUL W. MYERS&9:Г 10/8/83&@(Ю5&Q2:Г DRAW NOSE&a<А X│10 е 15&qFА Y│28 е 33&~PЬ(Y,X,1)&ИZЛ Y,X&Ъd:Г DRAW MOUTH&кnА X│20 е 41&║xА Y│20 е 21&╟ВЬ(X,Y,4)&╤МЛ Y,X&чЦ:Г DRAW RIGHT EYE&ўаА X│20 е 23'кА Y│4 е 7'┤Ь(X,Y,3)'╛Л Y,X'1╚:Г DRAW LEFT EYE'A╥А X│38 е 41'O▄А Y│4 е 7'\цЬ(X,Y,3)'fЁЛ Y,X'{·:Г SELECT LETTER'ИV│ Д(26)'ШL$│ Л(Vл64)'┤:Г PRINT LETTER ON NOSE'─"З @ 207,L$;'╬,Z$│ Т'р6Е Z$│"" з 300'Ї@Е Z$┤▓ L$ з 570(J:Г RIGHT ANSWER(T:Г DRAW SMILE(*^А X│20 е 21(:hА Y│18 е 19(GrЬ(X,Y,4)(Q|Л Y,X(aЖА X│40 е 41(qРА Y│18 е 19(~ЪЬ(X,Y,4)(ИдЛ Y,X(ЮоА S│100 е 200 й 5(м╕а S,1:Л S(┐┬:Г ERASE SMILE(╧╠А X│20 е 21(▀╓А Y│18 е 19(ьрЬ(X,Y,5)(ЎъЛ Y,X)ЇА X│40 е 41)■А Y│18 е 19)#Ь(X,Y,5))-Л Y,X)8Бе 260)L&:Г WRONG ANSWER)^0:Г DRAW FROWN)n:А X│20 е 21)~DА Y│22 е 23)ЛNЬ(X,Y,4))ХXЛ Y,X)еbА X│40 е 41)╡lА Y│22 е 23)┬vЬ(X,Y,4))╠АЛ Y,X)█КА S│1 е 10)хФа 1,2)єЮА B│1 е 5)¤иЛ B,S*▓:Г ERASE FROWN* ╝А X│20 е 21*0╞А Y│22 е 23*=╨Ь(X,Y,5)*G┌Л Y,X*WфА X│40 е 41*gюА Y│22 е 23*t°Ь(X,Y,5)*~Л Y,X*Й Бе 300)ХXЛ Y,X)еbА X│40 е 41)╡lА Y│22 е 23)┬vЬ(X,Y,4))╠АЛ Y,X)█КА S│1 е 10)хФа 1,2)єЮА B│1 е 5)¤иЛ B,S*                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  & :Г MISSING LETTER&,:Г PAUL W. MYERS&;:Г 10/8/83&B(Ю4&h2З @ 4,"WHAT LETTER IS MISSING ?";&С<М B(26) :Г SAVES LOCATION OF LETTERS&гF:Г DRAW BOARD&мPA│65&╡ZZ│67&╦dА X│1 е 5 :Г ROWS&фnА Y│1 е 6 :Г COLUMNS&ёxA$│ Л(A)& ВЗ @ Z,A$;'МЗ @ Zл1, Л(138);'ЦA│Aл1'(аC│Cл1'3кB(C)│Z'E┤:Г FINISHED ?'V╛Е C│26 з 270'i╚:Г NEXT COLUMN's╥Z│Zл5'{▄Л Y'Лц:Г NEXT ROW'ЦЁZ│Zл34'Ю·Л X'╗:Г SELECT LETTER TO HIDE'╚R│ Д(26)'▐З @ B(R), Л(128);'∙"З @ B(R)л1, Л(133л48);(!,З @ 420,"PRESS THE MISSING LETTER";(+6L$│ Т(=@Е L$│"" з 310(UJЕ L$│ Л(64лR) з 400(iT:Г WRONG ANSWER(w^А X│1 е 3(Йhа 110,7:а 1,7(СrЛ X(Ь|Бе 310(░Ж:Г RIGHT ANSWER(┴РЗ @ B(R),L$;(┘ЪЗ @ B(R)л1, Л(138);(хда 147,5(ёоа 108,4(¤╕а 133,1) ┬а 125,5)╠а 89,5)╓Бе 270(+6L$│ Т(=@Е L$│"" з 310(UJЕ L$│ Л(64лR) з 400(iT:Г WRONG ANSWER(w^А X│1 е 3(Йhа 110,7:а 1,7(СrЛ X(Ь|Бе 310(░Ж:Г RIGHT ANSWER(┴РЗ @ B(R),L$;(┘ЪЗ @ B(R)л1, Л(138);(хда 147,5(ёоа 108,4(¤╕а 133,1)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ▒& :ГSHAPES AND COLORS&#(Х 400&/2М A$(8)&:<Бж 610&DF╚ 3,1&NP┐ 1,0&UZ╝0&nd:Г DRAW GREEN CIRCLE&Вn┬ (180,25),20,1&Уx├ (180,25),1&мВ:ГDRAW YELLOW SQUARE&╨М╞ "BM163,55;C2;R35;D29;L35;U29"&сЦ├ (170,65),2&√а:Г DRAW BLUE TRIANGLE'к╞ "BM163,120;C3;R36;H18;G18"'.┤├ (170,119),3'D╛:Г DRAW RECTANGLE'i╚╞ "BM150,138;C1;R60;D30;L60;U30"'╥:ГDRAW NUMBER ONE'Ф▄╞ "BM235,15;D20"'кц:ГDRAW NUMBER TWO'╧Ё╞ "BM230,60;R10;D10;L10;D10;R10"'ч·:ГDRAW NUNBER THREE( ╞ "BM230,100;R10;D10;NL5;D10;L10"($:ГDRAW NUMBER FOUR(G╞ "BM230,145;D10;R10;NU10;D10"(Y":Г "WHICH IS"(╒,╞ "BM20,70;D10;E5;F5;U10;BR5;D10;U5;R5;U5;D10;BR5;U10;BR5;NR5;D10;R5;BR5;U10;D5;R5;NU5;D5;BR15;U10;BR5;NR5;D5;R5;D5;L5"(с6X│ Д(8)(ё@Е X│Y з 310)'JЕ X▓4 з ╞ "BM100,80;U8;E2;R1;F2;D3;NL5;D5;" :Г"A")?T╞ "BM20,100;"лA$(X))h^╞ "BM120,100;U1;BU3;U2;R2;U5;L5;D2;")rhB$│ Т)ДrЕ B$│"" з 360)Э|Е X│1 ░ B$│"4" з 500)╢ЖЕ X│2 ░ B$│"3" з 500)╧РЕ X│3 ░ B$│"1" з 500)шЪЕ X│4 ░ B$│"2" з 500*дЕ X│5 ░ B$│"2" з 500*оЕ X│6 ░ B$│"4" з 500*3╕Е X│7 ░ B$│"1" з 500*L┬Е X│8 ░ B$│"3" з 500*`╠:Г WRONG ANSWER*l╓а 20,20*wрБе 360*Лъ:Г RIGHT ANSWER*вЇА Z│150 е 200 й 10*м■а Z,1*┤Л Z*╚:Г DRAW SUBJECT*у╞ "BM20,100;C4;"лA$(X)*¤&:Г DRAW QUESTION MARK+%0╞ "BM100,80;U8;E2;R1;F2;D3;NL5;D5;"+1:╞ "C1;"+9DY│X+DNБе 310+SX:Г"PURPLE"+╦bA$(1)│"U10;R5;D5;L5;BR10;BU5;D10;R5;U10;BR5;ND10;R5;D5;L5;F5;BR5;U10;R5;D5;L5;BR10;BU5;D10;R5;BR5;NR5;U5;NR5;U5;R5"+┘l:Г "BLUE",1vA$(2)│"U10;R3;F2;D3;NL5;D3;G2;NL3;BR7;NU10;R5;BR5;NU10;R5;U10;BR5;NR5;D5;NR5;D5;R5",@А:Г "GREEN",░КA$(3)│"U10;R5;BD5;NL1;D5;NL5;BR5;U10;R5;D5;L5;F5;BR5;NR5;U5;NR5;U5;R5;BR5;NR5;D5;NR5;D5;R5;BR5;U10;F10;U10",└Ф:Г "YELLOW"--ЮA$(4)│"BU10;F5;NE5;D5;BR7;NR5;U5;NR5;U5;R5;BR5;D10;R5;BR5;NU10;R5;BR5;U10;R5;D10;NL5;BR5;NU10;E5;F5;U10"-=и:Г "SQUARE"-┼▓A$(5)│"R5;U5;L5;U5;R5;BR5;ND10;R5;D10;NL5;NH2;BR5;NU10;R5;NU10;BR5;U8;E2;R1;F2;D3;NL5;D5;BR5;U10;R5;D5;L5;F5;BR5;NR5;U5;NR5;U5;R5;"-┘╝:Г "RECTRANGLE".Н╞A$(6)│"U10;R5;D5;L5;F5;BR5;NR5;U5;NR5;U5;R5;BR5;D10;NR5;BU10;R5;BR5;R5;BL3;D10;BR8;U8;E2;R1;F2;D3;NL5;D5;BR5;U10;F10;U10;BR5;NR5;D10;R5;NU5;BR5;NU10;R5;BR5;NR5;U5;NR5;U5;R5;" .Э╨:Г "CIRCLE"/┌A$(7)│"NR5;U10;R5;BR5;D10;BR5;U10;R5;D5;L5;F5;BR5;NR5;U10;R5;BR5;D10;R5;BR5;NR5;U5;NR5;U5;R5;"/ф:Г "TRIANGLE"/кюA$(8)│"BU10;R5;BL3;D10;BR8;U10;R5;D5;L5;F5;BR5;NU10;BR5;U8;E2;R1;F2;D3;NL5;D5;BR5;U10;F10;U10;BR5;NR5;D10;R5;NU5;BR5;NU10;R5;BR5;NR5;U5;NR5;U5;R5;"/░°Р;BR5;D10;BR5;U10;R5;D5;L5;F5;BR5;NR5;U10;R5;BR5;D10;R5;BR5;NR5;U5;NR5;U5;R5;