' +JJJJ ?\>m0M='+l> /+l  ӍԠ٠Ġٮčɭ0LL Լ ռ ռ ռ`HJ>݌h Hh݌`S6`LxQɿu  ة֩JJJJIЅ֠],LWH鷎JJJJx  f5巬 췌`GG FGx (`(8`z𷭷I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ԠĠٮ  !"#$%&'()*+,-./0123456789:;<=>?+ 0+ 0+824+82<<+ 0+ 0*#8*!6*?!5*#<"0#<)#=*4!5(.-:::20 $=-/"0(,&#:-#=-"**'>' -*-#<-*#8- -/"0 +9-+9---+;-"(::3;-#;-3<-38-47!)("4?94=9/,  +-#<-*#<-+--?#:-**$24>:-->--?;680^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED f $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  cpq` [` Y Y LCFG8`0($ p,&" L鷭  d@LҦ{|LFBBbL`y".Q`pNФbptťܥm2<(-Py0\|66e< L鷭巬 췌`x (`(8`z𷭷I`B` ` `Ӝu`y".Q`pNФbptťܥm2<(-Py0\|66e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎL yz a`` L̦̀_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n{ y `@-eff z L }f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\yzL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NСyz `A@` LL`  \ ޿0 \  ȟ Q ^\lZl^?cqH şch`f}h~j@OAP`u@`@g&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`M ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-XϠٿԠŠˠĠ@yy`\ m ͭ \6\ 8 ЊL5`H h L~̮ `{|Jmmjnnnۭ}m~mm`"L 8H (Y`  d̠֠Y)xꪽ)' `LV0^*^*>&` aI꽌ɪVLɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`E8191:::LC37107:LP37041:HP37179:SR36917:SL57:F$"BRUSHES"SH%768:XC%769:YC%770:XB%771:YB%772:XP%773:YP%774:SB%782:TL37888:TH38144:230,32:D$(4):H%8:W%4:N%0600'21:DF$"LOAD":"CREATE OR LOAD A PALETTE(C,L) ?";:990T BRUSH 'N' NEXT/NEW BRUSH OR PATTERN (MORE)";:990:"CTRL 'L' LOAD A PALLET CTRL 'S' SAVE A PALLET 'Q' QUIT PRESS ANY KEY TO CONTINUE.";:990: SETUP LAY LO-RES SCREEN 'H' DISPLAY HI-RES SCREEN 'C' CLEAR LO-RES HI-RES SCREENS 'E' SCREEN EDITOR (MORE)";:990M:"'T' TRANSFER BRUSH OR PATTERN (TABLE) 'D' DIMENSION BRUSH 'S' SHIFD$"CATALOG":"PRESS ANY KEY TO CONTINUE.";:990:::330kl:"ERROR ";(222);" AT ";E;:DF$"":990:950yq QUIT v:"DO YOU REALLY WANT TO QUIT (Y/N) ?";:DF$"YES":990:A$"Y"ĺ:D$"RUN HELLO"{ HELP SCREEN DF$"":"'L' DISP̠Ҡԍà̠àԠŠвӍŠ ӠԠōĠ̠Š̠̠ҍҠŠвÍҠŠà̍Í̠Ġàҍ؍Ŭ؍̠Ҡ̠̍٠̠ҠӠÍàŠٍĩ٠ŠҠӍàҠҍРŠӍàŠà̠à̠̠РŠӍӍ׮Ӡīز؍ؠȍŠ̠ÍٍĠƍĩٍٍàԍŠ̠ӍӮҠ̠Ӡ٠ŠϬ٠Ġɬ٠ī9824HM(I3)1:868:DF$;:HM:A$:(A$)27ġN(A$)13A$(DF$,1)^868:A$:350:D,W%:D1,H%:N%1AH%(TS256)256:AL%(TS256)AH%256:40#N%N%1:575:N%N%1:3505 (DL,AL%:DL1,AH%:AAH%256AL%:L0:Y0H%1:X0:250:)127983:(49152)155ġ:A$:ZB$:(B$)8ĖH:C$;:HH1(HHM):A$(A$,1,HHM):982(B$)30A$A$B$:H:B$;:HH1(B$)13ĖHM:A$A$(DF$,1,((A$)1)(DF$)):868:A$:(B$)21B$C$:A$A$B$:H:B$;:HH1(I3)39H39DF$(12)(19)"LHCETSNQDP":I0:J1(DF$):I((DF$,J,1)A$)JI:JI1650,325,500,275,300,450,100,30,550,525,625,475,700:950 INPUT HM(I3)1:868:DF$;HHM:A$""H:C$(((40)256(41)H1)128)::C$;:(49152AD SHAPE TABLE (C,L) ?";:990:A$"C"A$"L"920:A$"L"İ325:930TS24576:50:I0255:TSI,0:I:7,TS256:6,TS(7)256:475950:625:930 MAIN PROGRAM :24:N%;" OF ";MN%;" SHAPES IN ";F$;:21:1:"COMMAND ?";:DF$"":990:HS)0):I: SETUP Z8191:::LC37242:LP37176:HP36932:SR37052:SL57:LO37018SH%768:XC%769:YC%770:XB%771:YB%772:XP%773:YP%774:SB%782:TL37888:TH38144:230,32:D$(4):H%8:W%1:N%0600D725:21:DF$"LOAD":"CREATE OR LOTTE tDF$"BRUSHES"::"ENTER PALETTE:";:980::D$;"BLOAD ";A$:PS(43634)(43635)256:8,(43634):9,(43635)MS%(1)0:I12825516:MS%(1)MS%(1)((IPS)0)(I128)16((IPS)0):I MS%(0)0:I01272:MS%(0)MS%(0)((IPS)0)I2((IP0(A$)MS%(0)705:BP%(0)(A$):784,BP%(0)"SELECT BRUSH (0-";MS%(1);") :";:DF$(BP%(1)):980:(A$)0(A$)MS%(1)710:BP%(1)(A$):768,BP%(1):"BUTTON 0 PAINTS":"BUTTON 1 ERASES":230,0:36608:A$:(A$)27ė:700 LOAD PALE:" 'P' PAINT CTRL 'L' LOAD SHAPE TABLE CTRL 'S' SAVE SHAPE TABLE 'Q' QUIT - PRESS ANY KEY TO CONT.";:990: PAINT +"SELECT PATTERN (0-";MS%(0);") :";:DF$(BP%(0)):980:(A$)@*U @T*U(U*U*U*U*U*`a@x?*Uժժժժ@*ՀЪՀU*U*U*U*U*U`say@s~?P*U*U*U*U*U`@ժժժժpaC|?ժժժժxpa`C~x(UP P* U*U*U*U*U*(Uժժժժ@*ЪՊԪՂU*U*U*U*U*xsay@s@?P*U*U*U*U*U`@ժժժժaA|?ժժժժxpa@C~pP * U*U*U*U*U*(Uժժժժ@*ԪժժՊU*U*U*U*U*~say@s?`?T*U*U*U*U*U`@ժժժժaAx?ժժժժxpa@C~`H39 982<HM(I3)1:868:DF$;:HM:A$:(A$)27ġV(A$)13A$(DF$,1)f868:A$:;" ";N%;" TO PALETTE":350:BP%ĹD,W%:D1,H%:N%1AH%(TS2048)256:AL%(TS2048)AH%256:40 BP%0N%1AH%(TS256)256:AL%(TS256)AH%256'(49152)127983:(49152)155ġ:bB$:(B$)8ĖH:C$;:HH1(HHM):A$(A$,1,HHM):982(B$)30A$A$B$:H:B$;:HH1(B$)13ĖHM:A$A$(DF$,1,((A$)1)(DF$)):868:A$:(B$)21B$C$:A$A$B$:H:B$;:HH1(I3)39;:DF$"":990:XDF$(12)(19)"LHCETSNQD":I0:J1(DF$):I((DF$,J,1)A$)JI:JI1650,325,500,275,300,450,100,30,550,525,625,475:950 INPUT HM(I3)1:868:DF$;HHM:A$""H:C$(((40)256(41)H1)128)::C$;::A$"C"A$"L"920:A$"L"İ325:930vTS16384:50:I0255:TSI,0:I:7,TS256:6,TS(7)256:BP%1:475:F$""950:625:930 MAIN PROGRAM :24:N%;" OF ";MN%(BP%);" ";("PATTERNSBRUSHES ",1BP%8,8);" IN ";F$;:21:1:"COMMAND ?"P*U*U*U*U*U* Uժժժժ`@@*ժժժժU*U*U*U*U*Asay@sx?T*U*U*U*U*U`@ժժժժՂa?@`?ժժժժxpa@C~P*T*U*(U*U ժժժժՀ`@*UժժժժU*U*U*U*U*asayAs|?T*U*U*U*U*U`@ժժժժՂ~a@?@?ժժժժxpa@C@~~P*T*U*A U*U ЪժժժժՀ`@*UժժժժU*U*U*U*U*qsayAs|?T*U*U*U*U*U`@ժժժժxpa`C`~?|?U*U*U*U*U*qsayC`~P*U*@U*U(U*U*U*U*U xa@~?*UժժժժP*U*U*U*U*U*U`@sx?Ъժժժժ`@ժժժժxpapC~x?ժժժժxpapC@~?@*U @T*U(U*U*U*U*U*`a@x?*Uժժժժ@*ՀЪՀU*U*U*U*U*U`say@s~?P*U*U*U*U*U`@ժժժժpaC|?ժժժժxpa`C~x(UP P* U*U*U*U*U*(Uժժժժ@*ЪՊԪՂU*U*U*U*U*xsay@s@?P*U*U*U*U*U`@ժժժժaA|?ժժժժxpa@C~pP * U*U*U*U*U*(Uժժժժ@*ԪժժՊU*U*U*U*U*~say@s?`?T*U*U*U*U*U`@ժժժժaAx?ժժժժxpa@C~`P*U*U*U*U*U* Uժժժժ`@@*ժժժժU*U*U*U*U*say?@sp?T*U*U*U*U*U`@ժժժժa@p?ժժժժxpa@C~@ԠҍŠ٠ΠƠŠŠԮҠŠӠƠҠԍΠӮӠâϠҠōӠƠӠӠҠԠŬӠŢϠŠŠҠϠ׍ҠŮՠ٠ӠТϠԍŠԠŠâٮŠŠâ٠ϠΠϠč̮Š̠ӢϠŠҍŮϠŠŠōԠΠ͠ŠΠծĠŮӠâϠŠŠŠĠԠŠԠŬˠԠũԠȠ͠ŠĠ̠ōƠӠӠҠԠŬˠԠũΠŠȠΠōΠȠŠˮӠ΍ϠԠҠȠҠάӠ٠٠ŠΠծĠŠԠөύԠĠΠŮӠâϠҍŠӮӠȢϠԠōӠΠٮӠТύԮԠΠ͠ōĠ̠ŠƠӠӠҍϠŠ΍ŠՠŠĠΠŠōŠӠӠŠũ̢̢ĠŠŬŠҍΠŮ̢ӢŠŠŬŠҍΠŮϠŠǍԠΠ͠ΠΠ̠ōҠŠȠӮѢԍӢԠĠŮՠ΍ŠӠĠϠԠōŠ̠ϠŠԠҠԮԢҠΠŠϠōŠŠӠĠȠĠήΠŠōˠҠӠϠΠōȠΠŠήǠ΍Π̠ԠŠΠύŠΠŠŠϠԠōӠΠǠŠȢĩǠ٠٠ŠŠƠōӠΠҮТԠΠΠǠˠҍӮԠ͠ҠōŠŠŠĠӍ̠ՠŠŠƠҠ΍ȠŠŠҠ̠ͩōȠˠϠנŠŠčŠŠԠӠǠĠԍŠŠŠΠΠŠčũϠҠĠӍנŠҠϠĠ΍ĠҠϠŠŠҮŠΠĠΠҍҠΠӮҠҍάՠ٠נŠԍ٠ƠԠ̠ةӮȠŠƠōΠӠĠӠĠٍŠ٩ժժժժxpa`C`~?|?U*U*U*U*U*qsayC`~P*U*@U*U(U*U*U*U*U xa@~?*UժժժժP*U*U*U*U*U*U`@sx?Ъժժժժ`@ժժժժxpapC~x?ժժժժxpapC@~?欠宠堢̢젲堯婮殠堢âҠ讍ŢԠ䮠ɢʢˢ䠢͢堨ݠ󠱹蠲۠宠宠󮠠ҮȠˠ󮍍ĢӠ宠占󠨤󍠠詮̠ӠΠϠԠӠΠӠŠâҠ󮠠占󍠠Ʃ占嬠ԮԮҠΠĠĠԠԮŠŠϠנ΍ϠϠРŠŠŠϠ͠ҠΠحŠƠӠŮŠĠӠŠčΠԠŠĠӢԠԠǠӠȠӍҠΠĠĠԠŭ٠ҠƬĠŠŠĠϠӠ̠ήŠנؠĠ٠ōנŠŠΠŠΠŠԍŠנؠĠ٠ӍŠŠؠĠ٠ӠҠӠōԠŠЮŠؠĠ٠ӠƠȠōԠŠŠϠנ΍٠ŠҠōנŠŠΠŠΠŠԍĠؠĠ٠Ӡ̠ŠōŠŠŠȠˠ̠ŠŠԠӠΠɠ̠ΠōҠȠӠӠҬҲĠҠŠŠĠŠȠˍŠҠؠΠ٠ӍŠŠŠϠŠčנŠŠԠؠĠ٠ΠȠӠӠөӠԍҠҠΠĠ̠ōŠҠƠΠĠōԠŠҠؠӮōŠŠӠŠȠˠȍ٠ΠӠŠנɭĠ٠Š̠ŮԠƠŮӍ̠ӢϠŠҠŮŠŠŠӠŠȠˠȍԠƠŠӠŠҠΠ̠ΠĠΠȍŠΠΠנԠŠčŠήŠŠŠΠԠԠԠŠȍ̠ԠŠĠϠŠˠōҠŠŠȠӠӠčΠŠҠԠҠƠŠӍήΠՠŠčǠҠŬӠԢύҠԠϠҠԠ堣􍤱Ơ頣荠堣堣򠠠Ġ頣ŠƠ頣占堨덤蠠頣頣頣 頣àﮍ頣ﮍ孭蠠占宍󍤹Ơ덤ƠōƠōӍŠŠԍԠ͠Š΍Šԍ卤덤Ơ󍤴Ơ卤Ơ󍤸ưƠ򠨰󩍤卤卤堨멍 à蠨멍Ŷ堨٠Š󩍍Ӡ쩠卭􍤰堭堢㢠󠭠򩮍󠭠젭򮍍򠭠䠭󮠠٠󮠠嬮蠵κ󮠠Ƞˠ                      嬠Ԣ宠젢Ӣ宍ŠŠ󮠠â󮠠嬠Ţ宠Т蠢â쮠젢Ӣ宍ϠŠŠō宠â婮堨嬠렰婮뮠堢â堨ө宠â󮠠ȢТ堨嬠렰堨婮̢̢Ġ嬠宍̢ӢŠ嬠宍ϠŠǍ堢Ȣ䩮󮍠ѢԍӢԠ宠ԢҠ宠ӠŠҠ򩮠ҠϠҠŠҮҮТԠ󮠠堨栱젨ة󮠠堨Š堨Š󮠠ᠢȢӮ̢Ӯ΢Ԡ宠堢Ȣ宍2):A128210:49168,02 A155100:49385,0::4 INSTRUCTION CONTROL ( 100}D$(4):D$,"OPEN INSTRUCTIONS 40":D$,"READ INSTRUCTIONS 40"::D49385:O0:T292A$:A$;:D,O:(A$)T200:50d:D$"CLOSE":49168,0:D$"RUN HELLO""PRESS ANY KEY TO CONTINUE":49384,0 A(4915 ΍ŠΠϠŠŠŠƍՠȠϠŠԮΠčˠӬΠӠōĠϠ٠Š΍ŠΠŠήōӠ̠ŠĠϠӍԠǠōȢٮŠŠŠ٠ύΠϠĠŮȢԠ٠ϠӮ̢Ԡ٠ϠӮ΢ԠŮŠӠ٠ϠԍŠϠŠĠήŠōϠҠ٠Š٠׬٠ŠōҠĠŠŠƠōΠŠנ̠נōҠ٠ԠŠĠĠōӠƠŠԠӠǍĠΩՠΠנҠˍΠŠӠΠ٠ԍȠԩΠҠƬǍŠҠƠŠΠҠӍөΠŠŮŠٍ̢̠נՠϠנΠƍŠӠΠΠӠ׍ԠӠȠ̠خύŠԠԬҠάŠŠɢʢˢĠ͢ӍٮŠΠ٠̍Ԡ٠̠ҠŠҠύƮŠŠҠ̠Ԡٍ̠ҠŠҠϠήōâ٠̠ŠҠۍŠ̠ҠŠΩĠԠӠȮŢԠŠҠΠŮōҠӠՠϠŠŠ٭ĠϠΠΠҠƠ٠̍ΠŠӠήϠ΍ŠҠЬΠΠōӠŠŠŠΠƠōԠӠΠŠŠčӠӠΠŠӠάōȠԠӠĠϠԠōҠƠŠΠӬōӠȠƠŠŠŠԠӠΠĠύŠŠŮԠӠՠύԠŠȠĠԠƠŮȠĠԠōĠΠӠƠӮōӠƠŠҠ΍ŠԠΠΠӠŠâҠӠĠӠӮӍӠŠԠƠǠōàӠҠĠҮĢԠӠƠŮӍĠӠ٠ĠΠǍΠŠԠԠƠōŠԠΠήӠȠΠӠ΍ԠԠҩӠנΠӠή̠ŠԠԠԠΠōĠΠŠӠή̠ӠΠϠԠӍϠŠǠ͠ōĠĠ٠ӍƠŠΠٮĠΠΠŠ٠΍ĠҠǠčǠήŭŠâٮŠӠύӭǠŠΠ٠ȠōҠΠŠԠ΍ƠŠҠĠ̠ōŠ͠ϠԠŠŭԠӠƠŠҠč٠ĠŠҮҠȠōȠ٠ĠŠΠϠōԩϠӬҠĠŬŠΠĠϠĠӍΠǠҠΠӮ٠ԭ٠ҬĠ٠ōͬϠԮӠҠΠӠٍŠ̠ӮӍŠӠĠӠΠӍΠӠĠӍΠŠŠӠĠΠȍҠԠԠŠĠҠčĠŠΠӠƠҧӠȠˠӍκӠŠӍӠĠӠԠ̠ōҠӠϠŠҍӠĠŠӮŠōӠ٠ŠĠȠŠȠˍΠΠ                卹󍠠占欠Ƞˍ󍴮䍵󩍶卷蠠ōŠ宍ԠƠ̠ΠōҬҲ᷍娳㮍ݍ娰娱娲󮠠宠䠠占堷ݠ堷ݠ련Š~@@~px?x?p`@`?pp`?@ ?@``@? `x|~~|x`@px||xp@`p*\*U^*U_*U@W*U@W*U`W*U `W* `U*U `U*U `_*U `W*U @W*U@W*U_*U^*U\*Up**T`U*8}*U*/U*/U*@/U*@/U*@+U*@+U*@/U*@/U*/U*/U*>U*U*U>U*U.U*U>U*U>U*U>U*U>  й`  ȱ mȱ` H*)h)   ` ȱ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP    !!!""""###$$$$%%%&&&&`                                                                        !! ! ! !   ȱ mȱ摍㑍ڑe瑍䑍ۑ  (=V]VV  Ъ() 1<<<  К` {xe|y   (>>  й`  ȱ mȱ` H*)h)   ` ȱ     @a88@8@` `p ` 0Bp@x8@`A@`@@q@PLa` P0 g @s gC cFPs! C1@1p8 @8@`@@pLf`88`p@@``@p`PLah d #PA2 Dq bx<`c}~wApLaAL 0pg xsgA cF@s  C1$$$$                                      !!!!!!!"""""""#######                                      p888|?@@`x@p8@1@ @1(` $` 0 gq cF@s8 C1` 8@@8@`q``#@|Nw=_p >g{` p?P 8888@@`p`p@a`|@` 0|0Ag Ow=gHsMg{@08@@@` @q@`` cv0pLC1917A9 p  p 0b Pa ǏL`]!= Ǐ!1`]w Bw`` i@ ȱ mȱ ȱ` ) %"e&#  $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?AA$((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP   !!!""""###$$$$%%%&&&&'''(((()))                                                                        ȱH NjJ)h)  ) ` m z  (` )* NN )m  d  `   (=]Ю` +(  () 1     Й` e捄   (    й`  ȱ mȱ` H*)h)   `  w  w 0b Wa ΏL`])=&$ Ώ)&1$`] J`` i ȱ mȱ ȱ` ) -*'e.     ̠ؠ̠٠ĩ٠Ӡ٠ĩ٠̠ҠӠҠҠĠƍōÍӠĠōĩٍ٠ŠزàӍ̠ĠƠŠĠŠĩٍٍŠرàīر؍ؠȍŠҠàԍŠҠӍԮԠҠؠҠӍ٠à΍ٍٍ̩čٍٍ̩īӍԮԠҠؠҠӍ٠ҠؠؠӍÍҠĩ٠̠Ӡ̠Ӡ؍ٍŠòàīòàԍŠرà٠àԍŠٱӍŠҠӠŠٍٍ̠̠̠̠̩ȍٍٍ̩ԍϬ؍űűɬ؍àōűűȍԍؠōر٠РðӠбؠӠбĩ٠ԬؠűԬؠбÍŠԬؠРà؍ٍŠñàīñàԍŠ؍à٠àԍŠٍӍנŠҠҠĠӠҠ؍ҠӠױ٠ؠӍؠٍٱؠ٠Ġōūŭŭȍԍؠōؠ٠РðӠЍؠӠЍ٠٠ĠЍٍĩٍ٠ٍĠĩٍԬؠԬ؍ԩٍīӍԠԠҠ؍ҠȦ΍٠ؠӍؠٍ٠ؠ٠Ġ̠̠ЍϬ؍ūŭŭɬ؍à̠̠̠Íàلԩٍȍٍԩٍԍà΍ٍԩٍčٍԩٍī΍ٍ̠ԩٍčٍčűҠ؍ҠȦ΍ҠױčűӍ̠ؠؠӠά؍΍ɬ؍ōӍȠĠΠҠȦΠŠ̠ҠԍР̍ΠӍŠŠĠŭĠŭ±ŭҠԍĠŭŭŭӍҠҠҠčб؍ؠŠб٠؍؍ӍٍӍҠҍؠҠč٠Ӡ؍Ӎčɠ΍α̠°Ҡō°ΰ̠̠ɠՠĠՠðΰՠðαՠðԠՠƸ̠ՠƸĠՠ±ōԠ̠̠͠ӠؠӠٍҠҍؠа؍ؠŠаȠՠԠՠԠՠҠՠÍҠՠčŠՠōΠՠƍΠՠؠՠؠՠ٠ՠ٠ՠ٠ՠΠՠɠՠϠՠ٠Ǡư̠ՠԠՠĠՠĠՠŠՠŶŠŠŠՠӠՠӠՠŠՠŠՠ̠ՠ̠ՠРՠӠՠ     $A$(DF$,1,((A$)1)(DF$)):868:A$:U(B$)21B$C$:A$A$B$:H:B$;:HH1i(I3)39H39r982HM(I3)1:868:DF$;:HM:A$:(A$)27ġ(A$)13A$(DF$,1)868:A$:LOR TOGGLE 'M' DOWN 'RETURN'ERASE POINT"PUT HM(I3)1:868:DF$;/HHM:A$""`H:C$(((40)256(41)H1)128)::C$;:(49152)127983:(49152)155ġ:A$:B$:(B$)8ĖH:C$;:HH1(HHM):A$(A$,1,HHM):982(B$)30A$A$B$:H:B$;:HH1*(B$)13ĖHM:AC,L) ?";:990:A$"C"A$"L"925:A$"L"İ325B950:625:930X MAIN PROGRAM :24:F$;:21:1:"COMMAND ?";:DF$"":990:DF$(12)(19)"LHCEPQ":I1(DF$):(DF$,I,1)A$ĂII325,500,275,300,450,100,700,625,650:950 IN)27ė:700! SETUP A8191:::LC37242:LP37176SH%768:XC%769:YC%770:XB%771:YB%772:XP%773:YP%774:SB%782:TL37888:TH38144:230,32:D$(4):H%191:W%40:N%0600350:375/21:DF$"LOAD":"CREATE OR LOAD AN IMAGE ( :";:DF$(BP%(0)):980:(A$)0(A$)MN%(0)705:BP%(0)(A$):784,BP%(0)"SELECT BRUSH (0-";MN%(1);") :";:DF$(BP%(1)):980:(A$)0(A$)MN%(1)710:BP%(1)(A$):768,BP%(1):"BUTTON 0 PAINTS":"BUTTON 1 ERASES" 230,0:36608:A$:(A$R (MORE)";:990:"CTRL 'L' LOAD AN IMAGE CTRL 'S' SAVE AN IMAGE 'P' PAINT 'Q' QUIT PRESS ANY KEY TO CONT.";:990: PAINT J"SELECT PATTERN (0-";MN%(0);")"DO YOU REALLY WANT TO QUIT (Y/N) ?";:DF$"YES":990:A$"Y"ĺ:D$"RUN HELLO"S{h HELP SCREEN DF$"":"'L' DISPLAY LO-RES SCREEN 'H' DISPLAY HI-RES SCREEN 'C' CLEAR LO-RES HI-RES SCREENS 'E' SCREEN EDITO;F$;",A";TS;",L";L:#X ERROR v]E(219)256(218):"ERROR ";(222);" AT ";E;:DF$"":980:E605Č3288:950bE330E355Ħl::(13);D$;"CATALOG":"PRESS ANY KEY TO CONTINUE";:DF$"":990:::3288:E330330:355q QUIT Mv:)16((IPS)0):IZMN%(0)0:I01272:MN%(0)MN%(0)((IPS)0)I2((IPS)0):I:q FORMAT SCREEN ~:200: SAVE IMAGE TS0TS8192:L8192DF$F$:1:21:"SAVE :";:980:F$A$:21:"BSAVE ";F$;",A";TS;",L";L:D$;"BSAVE ",A$2000":TS8192:L8192:/ ^ LOAD PALETTE cDF$"BRUSHES"::"ENTER PALETTE:";:980::D$;"BLOAD ";A$:PS(43634)(43635)256:8,(43634):9,(43635):375: w FIND NUMBER OF SHAPES |MN%(1)0:I12825516:MN%(1)MN%(1)((IPS)0)(I1287:YP%,(YYL%)2:250:SB%,SV%:LC:@ HIRES SCREEN VALUE m SA%(TLY)256(THY)X7:SV%(SA%):|  LORES 16298,0:225: , HIRES 116297,0: E LOAD IMAGE  JDF$F$:1:21:"LOAD :";:980:F$A$::D$;"BLOAD ";F$;"Y:200 \ YY17((16286)127):YY(YH%)(H%1)(YH%1):YYL%19YL%Y19:200b x LORES WINDOW XL%XL%(XL%0XL%36):YL%YL%(YL%0YL%173):XB%,XL%:YB%,YL%:LP: LORES CURSOR $ XB%,XL%:YB%,Y:XP%,((X7)XL%)V%128)128(SV%127):115& A27ı/ 115k XX17((16286)127):XX(X0):XXL%7XL%X7:200q XX17((16286)127):XX(XW%7)(XW%7)(W%71):X(XL%4)7XL%X74:200  YY17((16286)127):YY(Y0):YYL%YL%; s250:A%SV%W xC%34(SV%127):X,Y:225:C%C%:(49152)128120:SA%,A%:225 }SA%,A%:225:A$:A(A$):A70A78ĴA71300,175,155,165,275,185:115 A13Ē4(SV%127):X,Y:115 A32Ē34(SV%127):X,Y:115 A67ĹSA%,SV%128(S IMAGE EDITOR 9007d LORES PLOTTER bi:230,32:200:XX(X7W%):YY(YH%) n:275:21:"'ESC' COMMAND MODE 'I' UP 'SPACE' PLOT POINT LEFT 'J' 'K' RIGHT'C' COLOR TOGGLE 'M' DOWN 'RETURN'ERASE POINT"     0:SR(A$"L")SL6:400:200:A? FIND NEXT AVAILABLE ADD. DBP%İ350:A((DL)(DL1)256(D)(D1))1:AH%(A256):AL%AAH%256:I350:ATS25632(N%1):AH%(A256):AL%AAH%256:X ERROR 8]3288:(219)256(218)330ĉ::(A$):N%MN%(BP%)İ400:200:+!475::& SHIFT N+N%MN%(BP%)25021:"RIGHT OR LEFT (R / L) :";:DF$"RIGHT":990:A$"L"A$"R"5655BP%ĹSH%,N%7:XC%,N%(N%7)7:SR(A$"L")SL:400:200::YC%,0:SH%,N%:XC%,0:36864:3725DF$("PATTERNBRUSH ",1BP%7,7):21:"BRUSH OR PATTERN ?";:990:BP%(A$"B"):A$"P"A$"B"530DF$(MN%(BP%)(MN%(BP%)64)):21:"WHICH ";("PATTERNBRUSH ",1BP%7,7);" (0-";MN%(BP%)1;") ?";:980:(A$)0(A$)MN%(BP%)(MN%(BP%)64)535 N%$)40485:W%(A$)jDF$(H%):21:"ENTER BRUSH HEIGHT(1-191):";:980:(A$)1(A$)191490:H%(A$): SAVE PALETTE BP%1:DF$F$:1:21:"SAVE :";:980:F$A$:N%MN%(BP%):575:LATS::D$"BSAVE ";F$;",A";TS;",L";L:  NEW SHAPE c230,0:SH%,N%:XC%,0:37250:W%(777):H%(778):YC%,0:36864:37250:HP6:230,32:200:t FORMAT SCREEN :200: WIDTH AND HEIGHT 350:N%MN%(BP%)L2BP%0ıDF$(W%):21:"ENTER BRUSH WIDTH (1-40) :";:980:(A$)1(A1)((ITS)0)(I128)16((ITS)0):I:MN%(1)(MN%(1)1)71MN%(0)0:I01272:MN%(0)MN%(0)((ITS)0)I2((ITS)0):I: TABLE TO HIRES BP%Ĺ230,0:SH%,N%7:XC%,N%(N%7)7:36880:W%(777):H%(778):YC%,0:HP:230,32:200:]:980:F$A$::D$;"BLOAD ";F$:TS(43634)(43635)256:6,(43634):7,(43635):N%0:375:r^ TABLE POSITION cBP%DTS12816(N%7):L22(N%(N%7)7):hDTS2N%:L0:w FIND NUMBER OF SHAPES >|MN%(1)0:I12825516:MN%(1)MN%(XL%:YB%,Y:XP%,((X7)XL%)7:YP%,(YYL%)2:250:SB%,SV%:LC:] HIRES SCREEN VALUE SA%(TLY)256(THY)X7:SV%(SA%): LORES 16298,0:225:, HIRES 116297,0:E LOAD PALETTE ZJDF$F$:1:21:"LOAD :";S195:YY17((16286)127):YY(YH%)(H%1)(YH%1):YYL%19YL%Y19:200YyPĒ34(SV%127):X,Y:225 LORES WINDOW XL%XL%(XL%0XL%36):YL%YL%(YL%0YL%173):XB%,XL%:YB%,YL%:LP: LORES CURSOR AXB%,A27ı 115S 195:XX17((16286)127):XX(X0):XXL%7XL%X7:200Y 195:XX17((16286)127):XX(XW%7)(XW%7)(W%71):X(XL%4)7XL%X74:200 195:YY17((16286)127):YY(Y0):YYL%YL%Y:200 :(49152)128120:SA%,A%:225j }SA%,A%:225:A$:A(A$):A70A78ĴA71300,175,155,165,275,185:115 A13Ē4(SV%127):X,Y:115 A32Ē34(SV%127):X,Y:115 A$"P"PP:195:115 A67ĹSA%,SV%128(SV%128)128(SV%127):115 * i:230,32:200:XX(X7W%):YY(YH%) n:275:21:"'ESC' COMMAND MODE 'I' UP 'SPACE' PLOT POINT LEFT 'J' 'K' RIGHT'C' COLOR TOGGLE 'M' DOWN 'RETURN'ERASE POINT"; s250:A%SV% xC%34(SV%127):X,Y:225:C%C% 721:DF$(TS):"ENTER ADDRESS (16384-32768) :";:980:(A$,1)"$"TS(A$):70l <A$(A$,(A$)1):TS0 AI1(A$):J0:J((A$,I,1))48:JJ(J10)7:JJ(J16):JJ(J0):TSTSJ16((A$)I):I FTS16384TS3276850: d LORES PLOTTER :40" #N%N%1:575:N%N%1:350 (DL,AL%:DL1,AH%:AAH%256AL%:Y0H%1:X0(W%1)77:250:AX7W%Y,SV%:X,Y:MN%(BP%)MN%(BP%)(N%MN%(BP%)) -N%(N%7)7N%MN%(BP%)BP%1āI16:N%N%1:30:A$"R":565:I / 2 HEX CONVERT Rg PALETTE EDITOR "9004 TRANSFER 21:1:"TRANSFERING ";("PATTERNBRUSH",1BP%7,7);" ";N%;" TO PALETTE":350:BP%ĹD,W%:D1,H%:N%1AH%(TS2048)256:AL%(TS2048)AH%256:40 BP%0N%1AH%(TS256)256:AL%(TS256)AH%256       `|c|~w@{?`@{`A> ٍ̄Ӎ٠ٍ̩ӫȍԍӍðӠĠؠӠĠөٍŠԬؠĠÍ؍ٍŠȲàӫȲàԍŠ؍àӍàԍŠٍӍŠΠРŠٍ̠ӠҠؠҠӍ̠٠٠ؠӠϬ؍ūɬ؍àōūנȍԍؠōؠӍРҠŠРÍҠŠàЍÍ̠Ġàҍ؍Ŭ؍РҠ̠̍٠̠Ҡԍà̠àԠŠЍӍŠ ׮ҠӍàҠҍРŠӍàŠà̠à̠̠РŠӍӍ׮ӠӠԠōĠ̠Š̠̠ҍԍŠ̠ӍӮҠ̠Ӡ٠ŠϬ٠Ӡɬ٠ӫ̠ҠӠÍàŠٍө٠Š٠̠ҠӠҠҠĠƍōÍӠĠōөٍ٠Šȱàӫȱ؍ؠȍŠ̠ÍٍĠƍөٍٍàŠөٍٍŠȍàӫȠ؍ؠȍŠҠàԍŠҠӍԮԠҠؠҠӍ٠̠ؠ̠٠ө٠Ӡ٠өӫӍԮԠҠؠҠӍ٠ҠؠؠӍÍҠө٠̠Ӡ̠ӠӍ̠ĠƠŠĠŠōӍŠȠӠŠ̠̠̠̠Íàٍٍ̩ȍٍٍ̩ԍà΍ٍٍ̩Ӎٍٍ̩ĠՠÍҠՠĠŠՠŠΠՠƠΠՠɠՠϠՠɠՠԠՠƸ̠ՠƸ̠ȠؠؠӠά؍΍ɬؠǠ̠ՠӠՠŠՠŶŠՠӠՠӠՠŠՠŠՠ̠ՠ̠ՠŠՠӠՠȠՠԠՠԠՠ      p  p 0b Pa ǏL`]!= Ǐ!1`]s >s`` i@ ȱ mȱ ȱ` ) %"e&# ` i ȱ mȱ` H*)h)   ` ȱH NjJ)h)  ) ` m  (` ) $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?$$$$((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP  !!!!!!!"""""""#######                                    * NN )m 3 d  `    kel   (   ` ȱ  `ȱ摍㑍ڑe瑍䑍ۑ(=]Ю`#` i ȱ mȱ` H*)h)   ` ȱH NjJ)h)  ) ` m  (` )     4N;30);(38144N);" "# NN1. C,J,I; IN255J 37888I,0Y 38144I,0a "23h ,1 6I;5);37888I;15);(37888I);20);38144I;30);(38144I);" " @I E(4)"RUN HELLO"LUN HELLO"Jd::"YTABLE GENERATOR"%N00I02ALB8192I40LJ07YSBJ128dC0738144N,((8192I40J128C1024)256)37888N,8192I40J128C1024(38144N)256231 N;5);37888N;15);(37888N);20);3814   210:J K 23:1::37376X;10);N(J);" ";20);37632X;30);I;" ":IW |p  1,5,9,13,3,7,11 5Ld::"XTABLE GENERATOR"1nJ06:N(J):J9xX0OI0392:180:IYX150rI2262552:180:I(4)"RUN HELLO" 1,5,9,13,3,7,11 J03:37376X,N(J):37632X,I:XX1:210:J J46:37376X,N(J):37632X,I1:XX1:   )XN:XX(P):XC,X:YC,Y:AN:XN} XN0255:PGP,O:PP:P%,PTH:XX(P):XC,X:YC,Y:AN:X(P)XN:XX(P):XC,X:YC,Y:AN:XN (49152)1554:49168,0:"RUN HELLO"LM(4)"BLOAD GRAPH PACK":(4)"BLOAD RUNNER":(4)"BLOAD APPLE LOGO.PIC"49232,1:49234,1:49239,1:6,0:7,128:TH32:Y50:PG49236:768,0:XC769:YC770:O1:AN37232:P%230XN0255:PGP,O:PP:P%,PTH:XN23:XX(P):XC,X:YC,Y:AN X(P  ``ppxx````p|6#@@@@@@@@@@@@@@pp@?o?@{`a|0   <<<8>>>~~>|~_0xxp8xxxxxxppppp`pp`pppppppp``p|@``@  INITIALIZE N SELECT01f PAGE%,PAGE(SELECT)x X%,X(SELECT) Y%,Y(SELECT) DRW SELECT SELECT0 10 XX(XHIGH)HIGH:XX(XLOW)HIGH:YY((O%)NNTHS)F%:YY(YHIGH)HI  SETUP  :/ $PAGE(0)0:PAGE(1)32E .SELECT0: 0 OR 1S 8DRW37232e VX(0)0:X(1)0w `Y(0)0:Y(1)0 jX%769:Y%770 t768,0: SHAPE 0 ~SOUND49200 HIGH255:LOW0 PAGE%230 DISPLAY(0)49236 DISPLAY(1)49237 NNGH:YY(YLOW)HIGHb (X(SELECT)X:Y(SELECT)Y:X%,X(SELECT):Y%,Y(SELECT):DRW:(49152)15510} 249168,0:"RUN HELLO"  START D$(4) D$"BLOAD GRAPH PACK" D$"BLOAD ASTEROIDS"  TABLE ADDRESS 6,(43634):7,(43635))8191:X(1),Y(1),DISPLAY(1),PAGE(1)31000o DISPLAY(SELECT),LOW:SELECTSELECT:PAGE%,PAGE(SELECT)X%,X(SELECT):Y%,Y(SELECT):DRW: ERASES XX((Z%)NNTHS)F%:XX(XHIGH)HIGH:XX(XLOW)HIGH:YY((O%)NNTHS)F%:YY(YHIGH)HI"" " "