' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<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 õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`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- ( N  Р-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠Ġz# u` @ @ @ @ @ @ @WVWWVXWUVXWUVXWTUVYXWTUVYXWSTUVZYXWSTUVZYXWRSTUVZYXWRSTUV[ZYXWQRSTUV[ZYXWQRSTUV[ZYXWPQRSTUV\[ZYXWPQRSTUV\[ZYXWOPQRSTUV\[ZYXWOPQRSTUV]\[ZYXWNOPQRSTUV]\[ZYXWNOPQRSTUV]\[ZYXWMNOPQRSTUV]\[ZYXWNOPQRSTUV[ZYXWNOPQRSTUV%%%%%%&&&&&&&''''''' @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @  !!!!!!!"""""""#######$$$$$$$%PPPPPPPPPPPPPPPPPPPPPPPPPPPP                        }xrmga[UOJD=71+%  %+17=DJOU[agmrx}((((((((((((((((((((((((((((((((PPPP@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @  %+17=DJOU[agmrx}}xrmga[UOJD=71+% "$116E:CLINESET":"$1370:CBOX":"$13F6:CCHARSET":"$145F:CCIRCLE":X'24:"ESC FOR DEMOS, RETURN TO CONTINUE...";:A$::A$(27)ĺ:(4)"RUN DEMOS!"X'PPG1W"2140:DISPPG2WrW'24:"ESC FOR DEMOS, RETURN TO CONTINUE...";:A$::A$(27)ĺ:(4)"RUN DEMOS!"xW'T$800":"$83C":"$9C8"::"$BEC":"$C5E":"$D4D":"$D7C":"$E2F":"$E47":"$E6C"::"$EBC":"$F17":"$FE5":"$FCX"$103C:CLINE":"$FC-$FD":" $FE":" $FF"&V,VRVp10000::25)"PAGE 6.5 OF "N::~Vz"2105:HIRES (NONE OF THESE ROUTINESV"2112:HROFF HAVE ANY PARAMETERS)V"2116:WINDOWV"2120:WINDOFFV"2124:DRWPG1V"2130:DRWPG2W"2136:DISY1)" U_U'24:"ESC FOR DEMOS, RETURN TO CONTINUE...";:A$::A$(27)ĺ:(4)"RUN DEMOS!"eU' P ";:1::U"$08-$09":" $19":" $1B":" $1C":" $1D":" $1E":" $1F" V"$E8-$E9":"$F9-$FA":" $FB":10000::25)"PAGE 6.5 OF "N::LTz"2105:HIRES (NONE OF THESE ROUTINESvT"2112:HROFF HAVE ANY PARAMETERS)T"2116:WINDOWT"2120:WINDOFFT"2124:DRWPG1T"2130:DRWPG2T"2136:DISPPG1T"2140:DISPPG2U"2144:FILL (COLOR,X1,Y TO SEE HEXADECIMAL VALUES";:A$:1:" ";:1::S"$08-$09":" $19":" $1B":" $1C":" $1D":" $1E":" $1F"S"$E8-$E9":"$F9-$FA":" $FB":"$FC-$FD":" $FE":" $FF"SS TpRE EACH ONE. EXAMPLES:.R"&PENGUIN,50,50,0R("INPUTR:FORA=1TO1000:&CIRCLE,4,30+220*RND(1),30+100*RND(1),R,0,0:&HISCROLL:NEXTR2:"THANKS ARE DUE TO THE MAD MESSAGE MANGLER FOR THE AMPERSAND ROUTINES.R<10000R 5WS24:"PRESS ANY KEMMAND NAMES ARE ALL AS IN THEqQ"TABLE ON PAGE 6, EXCEPT CLEAR AND BDRAW,WHICH ARE REPLACED BY CLR AND BDRW TOQ"AVOID PROBLEMS WITH BASIC KEYWORDS. THEPARAMETERS SHOULD ALL BE IN THE ORDERQ "LISTED ON PAGE 6, THERE SHOULD BE AR"COMMA BEFOOF "N:P:"THE AMPERSAND ROUTINES CAN BE ENABLED BYTYPING 'BRUN AMPER'. THE SOURCE CODE ISIN FILE XAMPER. THE ROUTINES TAKE UPP"600 OR SO BYTES AND LOAD UNDER HIMEM. THE FORMAT FOR USING THEM IS P"&COMMANDNAME,PARAMETER LISTQ"THE COHE WORKS: AN IMPROVED CHARSETIO"EDITOR, A LINESET EDITOR, AND A GAMEsO$"OR TWO... PLEASE SEND SUGGESTIONS!O%::"(THE LINESET EDITOR IS NOW WORKING!":" IT'S A BIT PRIMITIVE, PLEASE SEND SUGGESTED IMPROVEMENTS...)P.10000:25)"PAGE 8 ҠԠԠŠؠŠŠ РРϠΠˠˠˡҠҠԠԠҠؠҠŠ ӠԠҠҠԠҠҠ٠ԠرĠٱҠԠԠŠؠϠԠҍҠ٠ԠرĠٱҠԠԠӠؠӠŠ ҠԠԠŠؠŠŠŠҠԠԠŲؠŲŠŲРРϠŠΠҠ٠ԠرĠٱàР РϠàנҠ٠ԠرĠٱҠԠԠȠؠȠŠ ҠԠԠԠؠԠŠ ٠ԫŠ РРϠנŠҠҠؠԠҠ٠ԠرĠٱҠԠԠȠؠȠŠ ҠԠԠԠؠԠŠ ٠ԫŠ ҠԠԠŠؠŠŠ РŠРϠԠ РРϠР̠РРϠ̠ؠҠ٠ԠرĠٱҠٲԠزĠٲҠԠԠŠؠŠŠ ҠԠԠŲؠŲŠ РРϠԠԠŠؠŠŠ ҠԠԠŠؠŠŠŠРàРϠԠҠҠԠԠŲؠŲŠ РƠРϠҠРҠԠԠŲؠŲŠŠԠҠҠԠҍҠ٠ԠرĠٱҠԠԠԠؠԠŠ ٠ԫŠ ҠԠԠȠؠȠŠ ҠԠԠŠؠŠŠ ŠԠҠ٠ԠرĠٱҠԠԠŠؠŠŠ РРϠԠŠŠҠ٠ԠرĠٱҠٲԠزĠٲҠԠԠŠؠŠŠŠРРϠŠ ҠԠԠٱؠٱŠ ӠٲҠԠԠزؠزŠ ٠زŠ ҠԠԠٲؠٲŠ ӠԠҠ٠ԠرĠٱРРϠԠE "A$",A4096,L"AD4095:&A PLOT X1Y1 TO X2Y2 WITH MODE...GAAD,X1","Y1","X2","Y2","MODEuAAD1,X1256:AD,X1256(X1256):AD2,Y1AAD4,X2256:AD3,X2256(X2256):AD5,Y2AAD6,MODE:ADAD7:A"FILE NAME? ";A$AA13:AD,255:ADAD1:B(4)"BSAV @ AD4096*@"STEP,DISPLACEMENT";S,Di@A0739S:ZA:100:X1X:Y1Y:ZAD:100:X2X:Y2Y:1000:u@(2000:@dZ739ZZ740@iZ185XZ3:Y187:@nZZ185:Z185X187:Y188Z:@xZZ185:Z185X188Z:Y3:@ZZ185:X3:YZ3A   iLeeLLLL0LLL5IL5IбLL8eL8iLIOOOWXYQRSTUVWXYYZSTUVWXYZTUVWXYZ[VWXYZ[\WLLLLLLLLL8iLuuYXWNOPQRSTUVXWOPQRSTUVOPQRSTUVPQRSTUVP('&%$#cDDCEEEFEFFGFGGHFGHGHIGHIHIJGHIJHIJKHIJKIJKLHIJKLJKLMIJKLMJKLMNIJKLMNKLMNOJKLMNOLMNOPJKLMNOPLMNOPQKLMNOPQMNOPQRKLMNOPQRNOPQRSLMNOPQRSNOPQRSTLMNOPQRSTOPQRSTUMNOPQRSTUPQRSTUVMNOPQRSTUVQRSTUVWOPQRSTUVWTUVWXPQRSTUVWXƍԍԫɠōȠԍԫŠٍԍЍàà؍ٍҠԍβٍàà؍ٍӠٍٍààЍٍؠثàЫثٱààԍٱàرŠٲàرٲҠԍŠرРزŠ΍رРزŠ΍РˍҠٲààٱӠȍҠȠŠŠٲ٠΍àثΠؠؽح٠ààٍ؍Ӡ؍àثɠǠؼؠàرŠٍàر٠ҠԲŠ٠ΧԠĠРōǠؠԠرĠٱààЍ؍Ơ٠Ѡβٽ̠Šà΍پԍŠōΠƠټԍŠثŠƍ؍Р٠ٽؿѠǠӬŠŠƠؠؽح٠ààٍ؍ӠŠŠóРرĠٱ٠àرŠȠРóٱààԍٱҠԍٱРٲŠǍРˍҠҠԠؾ٠؍ЍثЫٲààٱĠΠàٱ̠ŠҠԍٱРٲŠ΍РˍΠҠԠ̠ŠβàرŠ̍àر̠ҠԲرРزŠβرРزŠβРˍǠàرŠŠ؍àà٠ؾٿӠҠӬРؠŠРҠϬР٠Ġرز٠ƠؽٽΠŠԠŠ̠ŠҠԍРˠԠٲààٱӠōҠȍŠҠԍàٱˠٍؠزؽӨرزààر؍زàر̠˲ҠȍР؍˲ثŠҠƠؾԠŠ٠ؠؽѠرزӠ٠ٽѠΠӬڮÍDzРDZРDzРÍ̠ҠҍҠٍРŠ ҠԠԠԠؠԠŠ ٠ԫŠ ҠԠԠŠؠŠŠ РРϠԠӠРƠРנРƠРDZРԠرٱҠٲԠزٲҠԠԠŠؠŠŠ ҠԠԠŲؠŲŠ РРϠؠԠҠҠԠҠҠ٠ԠرٱҠԠԠȠؠŠŠ РРϠԠŠҠҠԠҠҠ٠ԠرĠٱҠٲԠزĠٲҠԠԠŠؠŠŠ РРϠŠؠҠҠԠҠҠ٠2YD:X1ZX1Z:DXDX,BVY1ZY1Z:DYDYBBWX2ZX2Z:XDXDXBXY2ZY2Z:YDYDnBYX1RX1R:DXDXBZY1BY1B:DYDYB[X2RX2R:XDXDB\Y2BY2B:YDYDB]40BcDX9(1)4:DY13(1)6:XD9(1)4:YD13(1)6:DDA1(1):R(TL,5),0/A7(49152)155ĺ:(4)"RUN DEMOS!"A<AR(HD,1)COLR:AR(HD,2)X1:AR(HD,3)Y1:AR(HD,4)X2:AR(HD,5)Y2:HDHD1:HDMXHD0AFTLTL1:TLMXTL0AKDDDD1:DD0İ99APDCDC1:DC0COLR4(1):DCA2(1)BUX1X1DX:Y1Y1DY:X2X2XD:Y2Y!@A125:A212:MX88:AR(MX,5)'@ 5@16302,0@@CLR,3t@X1140(1):Y1192(1):X2140(1):Y2192(1)@COLR4(1):DCA2(1)@HDMX:99@#Z0:R139:B191@(CLINE,COLR,X1,Y1,X2,Y2,1 A2CLINE,AR(TL,1),AR(TL,2),AR(TL,3),AR(TL,4),A  ààŠ؍¬؍٠ٲҠԲ٠΍ɠŲҠƍààŲàà؍؍ٲ¬؍٠زҠԲ٠΍̠ųҠƍààԍ̠؍ƍЫР؍ΠؠҠҠҠҠҠҠ٠Ĭٍ΍Ĭٍ΍Ġƍؠ¬؍٠زҠԲ٠΍̠ōҠƫٍ̠Šōԍ̠ӍԍɠԍàԫРԍӠԍ̠ԍàԫԠԫӠԲԍЍЫԍԫҠЍҠЫҠЍԍ̠؍ЫưЫؠٍŠĠٍѠčЍààԍԍЫàԫԫĠ̠Ѝ̠Ҡ٠ŠԍàūԠӠȠ٠زҠԍزٲҠԍٲӠԠԍЫЍԍԫҠЫҠЍҠЫҠЍҠЫҠҍ٠؍ҍРàčҠōРҍĠҠرҠرҠزҠزҠō̠ر̠رРҍŠҠҍ٠؍زرزرٲٱРҍ׍ҠȍנōѠԍҠ΍Ԡؠز̠ӍƍӠززààرززàرزٲààٱٲ٠؍ũٍŠōРōŠӰ؍Ҡ٠؍ũٍزҠҍũٍٲŠύРزŠύؠˠҬ؍؍ؠ̠ˍӠϠҠҍ٠؍ŲРѠҬ؍ؠ̠ҍōŲԍōԫūȍ̠٠ũٍЍ٠ũٍؠЍààōōàūūرٱԬȬŬŬŮӠҠҠȠ͠ŠŠԠ٠ӠԬȠŠƠůĠĠŪӠԠرٱԠؠҠ؍ԍ֫ٱҫҍӠȠرȠرٱȠؠززٲؠرزرؠزؠرزٱ٠ٲ٠ٱٲӠŠԍӺرԠرĠٱààԍررàԫر٠àٱҠԍàԍŠβРˍˠ֠ԠرĠٱϠرӠزĠٲĠ֫ΠǠŠرX1Z:DXDX!BVY1ZY1Z:DYDY7BWX2ZX2Z:XDXDMBXY2ZY2Z:YDYDcBYX1RX1R:DXDXyBZY1BY1B:DYDYB[X2RX2R:XDXDB\Y2BY2B:YDYDB]40BcDX9(1)4:DY13(1)6:XD9(1)4:YD13(1)6:DDA1(1):YA7(49152)155ĺ:(4)"RUN DEMOS!"zA<AR(HD,1)COLR:AR(HD,2)X1:AR(HD,3)Y1:AR(HD,4)X2:AR(HD,5)Y2:HDHD1:HDMXHD0AFTLTL1:TLMXTL0AKDDDD1:DD0İ99APDCDC1:DC0COLR4(1):DCA2(1) BUX1X1DX:Y1Y1DY:X2X2XD:Y2Y2YD:X1Z!@A125:A212:MX88:AR(MX,5)'@ 5@16302,0i@X1139(1):Y1192(1):X2139(1):Y2192(1)@COLR4(1):DCA2(1)@HDMX:99@#Z0:R138:B191@(CLINE,COLR,X1,Y1,X2,Y2,0@2CLINE,AR(TL,1),AR(TL,2),AR(TL,3),AR(TL,4),AR(TL,5),1$  ҍرҫٲҫٱҫٲزҫزҫҠōҠԍҫزҫزҫٲҠōҠԍ̠ЍӠŠ؍ӺرٱزٲŬŲΠ٠ŠӠرٱĠزٲӠŠŠخŲŬĠήؠŲŠ؍رб±؍ű²؍ōűؠ±؍Ų²؍Ų٠дŲٍűٍ٠̠дؠƍŠб٠Рİٍ٠ЭٍĠЭٍЭٍ٠٠٠٠٠٠٠ŠдӠŠ̍ӺŮӠŠɭӠΠРŠΠŮ̠ؠϠ°ٍ°ٍҠðٍðٍҠİٍİٍҠŰٍŰٍҠưٍưٍ٠ѠōРЍŠ٠ōҠƍؠдĠЭ٠ٍٍҠٍٍҠٍٍҠٍٍҠٍٍҠٍٍҠٍٍҠٍٍҠ°ٍ°ٍҠðٍðٍҠİٍİٍҠŰٍŰٍҠưٍưٍҠٍٍҠٍٍҠٍٍҠٍٍҠٍٍҠٍٍҠٍٍҠٍٍҠٍٍҠٍٍҠٍٍҬٍЭٍЭٍ٠٠٠٠٠٠٠Šг٠ؠŲ¬؍ؠРҠٍٍҠٍٍҠٍٍ٠٠̠вӠŠЍӺŲӠӠƠɭӠΠǠύŠƠŲӬӬȮР٠ؠōгЭٍЭٍٍٍٍ°ٍðٍİٍŰٍưٍҠؠ¬؍٠ŠЍ٠ōҠƍؠвĠЫٍЫٍ٠čٍٍٍٍٍٍٍ°ٍðٍİٍŰٍưٍٍٍٍٍٍٍٍҠĠ٠ŠŠƠŲҠ٠ؠōРЫٍЫٍ٠٠٠̠Ѝ٠ؠŲ¬؍Рٍٍٍ٣ųٍ¬؍٠ٲҠԲ٠΍̠ŴҠƍààŴààٍٲ؍زӠŠҍӺŲӠŠɭӠΠȠŠé& (769)181ĺ(4)"BLOAD GRAFYX"A(4)"BLOAD O2,A$5000"p2255,0:16297,0:16304,0:16302,0:2063yP768dA$::(A$)27ĺ(4)"RUN DEMOS!"n50ٍӍ٠ԩٍӍЍààԍԍЫàԫԫԱӍЍˍرЍرЫŠӍЍ٠ٱЍҠЍӠŠؠԍԫ̠ԍ̠ԫ̠ԍ̠ԫԍààԍԍԫàԫԫ٠ԩٍЍ٠ԩٍЫ٠ԠԫӠ٠ԠӠϠŠĠΠՍΧԠԠϠŠŠԠӠҠԬĠȠȠՠĠΠǠŠŮԠؠȍ٠ԩٍРȍӠōҠЍҠŠŠĠԍԮŠŠ٠ԠӠԱӺرٱӬӬԬŮҠϠŬԠԠȠΠӬԠΠӬĠ٠ΠԠȠŠРӠ΍ԠĭàؠР¬؍Ҡ¬؍«؍Ҡ«؍ؠؠŠЍӠŠԍӺرٱȬԠŮӠҠҠȠ͠زٱРҫѠȍààҫٱٲРЍȠӠŠÍӺŮӠˠĠŠӠ͠˱ĠűϠ˲ĠŲҫٲҫرҍرҫٱٲزҫزҫРҠōҍرҫرҫزҫҫٲҍزҫزҠōҠԍҍزҫزҫٲҠōҠԍӠؠؠٲààٱӠԍؠƍԠ 06<B$H*N0T6Z<`BfHlNrTxZ~`flrx~`xkfrqllwrf}x`~ZTNHB<60*$  $*+ %$ * 06 <#B)$H/*N50T;6ZA<`GBfMHlSNrYTx_Z~~ey~esxkmrqglwaf}[`yUZsOTmINgCHa=B[7<U16O+0I%*C$= 71 o,1 u&+{ %  #)/5;AGMSY_y smga!z['tyU-nsO3hmI9bgC?\a=EV[7KPU1QJO+WDI%]>Cc8=i27 !z't-n3h9b?\EVKPQJWD]>c8i2o,u&{      ҠӠرزٱٲРزР̠پؠààٍرزàرٲÍà؍ٱҠԠԠر٬ٱةزÍàٍŠӠӠӠϿŠϠϮҠԠӬԠԠԠҠӠĠΠϠؠؠӠҠƍҍàҠҠӠ٠٠رزŠàԍԍРڍŠԍàԍԍРԍŠЍŠӍŠōӺҬرٱӬŮӠŠȠҠԠرٱĠӠӠĮԍٱààԍ٠±ٍű²ٍōűРԍԠ٠ЩٍؠàЍŠҍàЫҠرààԍ٠űٍӠĠŠĠΠЍĠЫנԍЍԫЫؠȍРؠɠײЍààԪڍЍЫàԪڍЫРЍײĠŠȠčӠנ٠ӠŬӠȬŠӠ΍ŠŠŮŠŠ٠ԠײƠՠȠϠٍ٠ŠӠƠŠЬҠΠǠԍĠРΠŭŠōŠԍàٱЍرЫرàЍŠōӠŠ׍ӺرٱȬԮӠҠҠȠ͠ŠŠԠԠԍرٱرԠŠ͠Ϡ±ٍű²ٍōűԠ٠ԩٍĠˍѠԍҠԲԠ̠ˍàōàˍàԍŠōàԫŠàرŠزàرزàrZ~x`~flrx~ * 06 <$B*$H 0*N60T<6ZB<`$HBf*NHl0TNr6ZTx<`Z~Bf`HlfNrlTxqYlw_f}~e`xkZrqTlwNf}H`BZ<T6N0H*B$< 60* $$%= 71 + %# )/5 ;#A)G/M5S;YA_G~eMxkSrmgay[syUmsOgmIagC[a=yU[7sOU1mIO+gCI%a=C[7=U17O+1 I%+C]>{ c8i2o,u&{ ys !z 't-n3h9b!z?\'tEV-nKP3hQJ9bWD?\]>EVc8KPi2QJo,WDu&  ҠԍàرàرҠԍàرàٱҠԍàٱàٱҠԍѸà̠̠РčŠЍӠԠرРӠˍѴٱРӠˍر̠ر̠رѠƍ̠ȠР̲Ơ̠̲ȠҠÍ̲č̍ōرұٱҠàčРؠ̠ұ؍رҬ؍ٱàر ԫӍӍҠԱӍŠ̍ӺرٱҮӠΠǠŠԠرٱȠōĠҬŬŲ̠ҍĠҠԍԍرҠԍРԍ̲ٱٲԍزҠōРԍŠ΍ӺرٱŮӠΠԠرٱΠ ԠԫزҠōԠؠ̳Ҭ؍ƹ؍؍̠̳ؠ̴ҫ؍؍؍̴̠ӍàҠԫҠԍҠ֫Ҡ֍֍ر֫ٱŲŠҫ؍؍̠̲ҍРàÍ֍ر֫ر֫ٱŲŠ̍ҠԍԍرԫرҠԍРԍ̠ٱٲԍزټؠѠŠϬٽؠӍŠРЍԠر֠ر֫ٱ֫ӍԠرԍرԫؠ̠ƹ؍Ҭ؍؍̠̍ؠ̲؍ҠƠҠɠƠàҍàҍ̠؍ҍÍà؍ҠҺҫثҠؠàؠؽحƠ٠ƠÍàؠŠŠĿàŠϬٱҠԠԠرجٱ٩زÍà؍رزàرҠԠԠرجٱ٩ٍ̠ÍàҍҠҠҫ٫à٠ٽ٫Íà؍رزàرٲÍàٍٱҠԠԠرجٱ٩زÍà؍رزàرҠԠԠرجٱ٩ٲÍàٍزàرҠԠԠر٬ٱةٲÍà؍ٱҠԠԠر٬ٱةزÍàٍرزàرҠԠԠر٬ٱةزflrx~bIgNlSqXv]{bglqv{exkrqlwf}`ZTNHB<60*$  $* 06<B$H*N0T6Z<`BfHlNrTxZ~`ysmga[yUsOmIgCa=[7U1O+I%C=71 +%  #)/5;AGMSY_~h !z't-n3h9b?\EVKPQJWD]>c8i2o,u&{   ٱÍàԍٱàرҠԍŠرРزŠ΍РˠҠٲÍàٱӠȍҠȍƍԍɠōȠԍŠ٠ԍà΍ԍŠŠΠƍԍŠ؍РٍѠǍ؍Íàٍ؍ΠؠÍàٍؠàǠؠàرҠԲРōǠ؍ÍàЍ؍ΠҠԍβàرҠԲرРزŠβРˠǠàرٱÍàԍٱҠԍٱРٲŠǍРˠҠҠԍ؍ЍٲÍàٱѠβ˲ؠѠرزٍѠ΍؍Íà٠ӠҍРҍرزҠԠ٠ŠԍӠԠٲÍàٱӠ΍ҠȍΠàٱҠԍٱРٲŠ΍РˠűٍűٍӠĠōŠز֍ٲ֫ٱÍàٲӠˍٲÍàٱˠٍؠزÍàرӠ˲ҠȍР؍ԠűٍűٍРԍԠƍĠűٍűٍԠؠōѠԍ؍ŠЍƠҠƍĠűٍűٍŠӠԠűٍűٍӠР±ٍű²ٍōűԲؠرؠӠōҍР̠Π±؍ٍ±؍ŠƠΠ²؍ٍ²؍Ơ؍ҍҠàӠƠ٠čŠҢӠנҠҠ̠ƠŠӺάĬŬŮĠԍԠ٠ٱ٠ðӠōҠĠĠŬǠΠנՠŠîŠǠҠӠō̠ΠҬĠ̠ŠŠŠǠӠӠōˠĠŠӠȠŠǠӺōΠӠנĠӠ٠˲ҠرҠرӍԠƠŠǠӠȠנөŠ٠ˠĠŬȠŠŧӠĠǍ̠ŠҠŠĠΠҠԠŠ˲àرҠԍŠ˲ҍРàѲҠԍàرҠԲРѲѲĠѠčàرĠҠԍѲҠرҠرؠčرұ؍ٱҬ؍àčˠӠ????@?????????????????????????????????????????????????????????????????????????????????L???????????????????????????????????  ITKhJJJJJ KhJ) K`%jKkKK $jK$`%$iKJJJJG KiK)G K$ %%`((((PPPPPRESS ANY KEY TO BEGINUSE ARROW KEYS TO SELECT A CHARACTER^S TO SAVE, X TO EXIT, RETURN TO ED̠dzȠ蠠҆Š𠠍Ѕ̠dzȠ᠟ǗϠΠPRESS H TO REVIEW COMMANDS..HIT ANY KEY TO RESUME EDITINGPLOT MODE ERASE MODETRAVEL MOD%$ K KgJJJJJ KgJ) K$ K Ԡ΍ĵƍ ƍ ĵƍ  ƬƍŠ ±ӠͱӠͲӠͲӠÍ Ӡ Ӡ±Ӡð²Ӡð Ӡ ӠұӠҠӠ    ø Ŭ ðƬ֠ӠԠӠҠӠƍĠ ƬƍĠ ƬƬ  ƍ ԍҠԲԠ̠ˠàŠàˍàԠŠŠàԫŠàرàЍŠԍàٱРرàЍŠōӍ  Ű ÍàԫԫԱӍЍˍرРŠӠЍ٠ٱ±ٍű²ٍōűԠ٠ԩ٠ĠˍѠàԍààԍԍԫàԫԫ٠ԩٍЍ٠ԩٍЫ٠ԩٍӍ٠ԩٍӍЍààԍԍЫРЍȠӍĠԍԠؠȍ٠ԩٍРȍӠōҠЍҠЍҠЍӠŠؠԍԫ̠ԍ̠ԫ̠ԍ̠ԫؠƍԠؠҫٲҫرҍٱٲزҫРҠōҍرҫزٱРҫѠȍÍàҫٱٲҫҠōҫزҫٲҠōҫٲҍزҠōҍزҫٲҠōӍؠؠٲÍàٱӠԍčٱӍȠرؠزؠرزٱ٠ٲ٠ٱٲӍĠ؍ؠŲŠ؍رҍٲҫٱҫٲزÍà؍ٍҠԍβ٠Íà؍٠Ӡ٠ٍÍàЍٍؠرÍàԍر٠àٱҠԍàԠŠβРˠˠ֍ر֫ @ZZ0@XX30$@:16302,0h@ CIRCLE,ZZ2((1).5),30220(1),30130(1),23(1),2(1),1@XXXX1:XX0XX30:ZZ1ZZ:SCFLIP,1@(49152)155ĺ:(4)"RUN DEMOS!"@10E <#C$"2"įCLR,1%F#C$"3"įCLR,28P#C$"4"įCLR,3KZ#C$"5"įCLR,4^d#C$"6"įCLR,5qn#C$"7"įCLR,6x#C$"8"įCLR,7#C$"D"Ģ22:" ":150#9005''E255550$'"" N:HROFF*N"KEYS ME OF PICTURE >";N$@>!:"INSERT DISK & PRESS A KEY":OOGLE$:FC!YH!D$;"BLOAD";N$eM!10000wR!HIRES::150"::"PICTURE NOT FOUND!":10000":A1666::HIRES::150(#22:" PRESS KEYS 1-8. 'D' TO END."-#C$2#C$"1"įCLR,0;:S$,J(S$"S")(S$"L")ė:HIRES:1507O8888HTS$"L"8500f^:"NAME OF PICTURE >";N$h:"INSERT DISK & PRESS A KEY":OOGLE$mrD$;"BSAVE";N$;",A$2000,L$2000"|:"N$";::" SAVED!!!"10000HIRES::1504!:"NAX,C,X,Y,X1,Y1,0,F150EXC4VX:V1X1:WY:W1Y1:VV2:V1V12b\C3VX:V1X1:WY:W1Y1]A2(V1V):B2(W1W):R(A22B22)bC5įCIRCLE,C,V1,W1,R,1,F:150lCIRCLE,C,V1,W1,R,0,Fv150@HROFF:::"(S)AVE OR (L)OAD A PICTURE>"0C5įDOT,X,Y,11500CDOT,C,X,Y,09150GC45100bC4įLINE,X,Y,X1,Y1,0}C5įLINE,X,Y,X1,Y1,1150CLINE,C,X,Y,X1,Y1,0150pC46100zC4įBOX,X,Y,X1,Y1,0,FC5įBOX,X,Y,X1,Y1,1,F150CBO4)(C3)XX2:O279:X1X12H(C23)(C4)X(X2):O139:X1(X12)22:15:"COLOR= ";("GREEN ORANGEPURPLEBLUE WHITE BLACK ",16C,6)XOXOX0X0Y159Y159Y0Y0C2CT0150C41500C4įDOT,X,Y,:"SEND ALL YOUR MONEY TO MARCUS GEDULD -- 1120 EAST 1ST STREET. BLOOMINGTON IN. 47401":I1900:I:HIRES:150HA$(7)įHROFF:10:15:"BEEP":I1100::HIRES:150RA$(27)WI1WI:WINDOW:WI0įWINDOFF CONVERTC2C950(C2ѭA$"/"X1X:Y1Y' A$"B"F0:6000> A$(2)F1:6000O A$"*"8000e A$"O"F0:7000} A$(15)F1:7000 A$"@"9000 A$"%"ĝ::: A$"H"20000 *A$(9)30000 4A$(6)įFILL,C,X,Y:150r>A$(13)įHROFF::1010 0A$"E"XX1:YY16 5A$(5)XX10:YY10N :A$"Z"XX1:YY1j ?A$(26)XX10:YY10z bA$"1"C0 lA$"2"C1 vA$"3"C2 A$"4"C3 A$"5"C4 A$"6"C5 A$"8"T1 A$"9"T0 A$"L"5000 ,2 A$"W"YY1) A$(23)YY10; A$"X"YY1P A$(24)YY10b A$"A"XX1v A$(1)XX10 A$"D"XX1 A$(4)XX10 A$"Q"XX1:YY1 !A$(17)XX10:YY10 &A$"C"XX1:YY1 +A$(3)XX10:YY ";Y;" X1= ";X1;" Y1= ";Y1A 24:"TYPE 'H' FOR HELP.";:1:I 22a T0ĺ"TRAVEL MODE"y T1ĺ"PLOT MODE " 1: A$ (T0)(C3)įLINE,X2,Y,X2,Y,2:LINE,X,Y2,X,Y2,2 (T0)(C4)įCLINE,C,X1,Y,X1,Y,2:CLINE,C,X,Y2,X,Y2CLR,0 _ dO279# nC4:C250 xT0:WI1? X139:Y96x (T0)(C3)įLINE,X2,Y,X2,Y,2:LINE,X,Y2,X,Y2,2 (T0)(C4)įCLINE,C,X1,Y,X1,Y,2:CLINE,C,X,Y2,X,Y2,2 :20::" " 21:"X= ";X;" Y=  *D$(13)(4)S(104)64Ĺ104,64:16384,0:103,1:D$"RUN DRAWIT"h(16391)4290v 16391,43|34D$"BLOAD CAT.PIC6816304,0:16301,0:16297,0<D$"BLOAD GRAPHIX II"FD$"BRUN AMPER"P10000 ZHIRES:           & (769)181ĺ(4)"BLOAD GRAFYX"C(4)"BLOAD O8.2,A$5000"r2255,0:16297,0:16304,0:16302,0:2063{P768dA$::(A$)27ĺ(4)"RUN DEMOS!"n50 L@tBcQ r< @`|q``S(@JH@x~!@B @ @!bn@ QH |@\@@ $!`>`py<Ag"0p 4`~@ P 0`@ A@A@-";::"GRAPHIX":jO25000(tO20000\a23:"ANY KEY FOR MORE HELP.ESCAPE TO END.":K$ba|aK$(27)įHIRES:150a0uC430100:uBOX,0,0,279,191,2,1Du150uCBOX,C,0,0,139,191,2,1u150/.O" DRAWIT WAS WRITTEN MOSTLY BETWEEN THE"V8O:"HOURS OF 12:00 AM AND 3:00 AM"BO:"WITH THE HELP OF DELVIN THE DORK AND"LO:"THE GREAT SAMURAI CAT."VO:"THIS PROGRAM WAS WRITTEN BY ";::"OOGLEZORT":`O:" AND USES ";::"CAT";::"N0N" O -- CIRCLE WITH X1,Y1 AS THE CENTER"6NbN" @ -- CHANGE COLOR OF WHOLE SCREEN":N" CTRL I -- INVERSE SCREEN"OO" * -- TO SAVE OR LOAD A PICTURE" OO" % -- TO QUIT"O25000O"CONTROL F -- FILLS REGION"$O::N AND RIGHT":N250006N" 8 -- FOR PLOT MODE":UN" 9 -- FOR TRAVEL MODE":wN" KEYS 1-6 CHANGE THE COLOR"}NN" / -- TO STORE A POSITION IN X1,Y1"N:" L -- A LINE FROM X,Y TO X1,Y1":N" B -- BOX. X,Y AND X1,Y1 ARE CORNERS"AROUND 'S' MOVE THE DOT"/NM4N"CTRL + THE DIRECTION MOVES IN BIG JUMPS"S>NfHN:"W -- UP":yRN"X -- DOWN":\N"A -- LEFT":fN"D -- RIGHT":pN"Q -- UP AND LEFT":zN"E -- UP AND RIGHT":N"Z -- DOWN AND LEFT":N"C -- DOW(1)11010,1020,1030,1040$AX10:1AX1279:pI$!!  @@!@@!B P D@ B!A@B""`AjE?`8D&pags!`` 8"pI"R! Ias  d@ .R  D Pp@@B!>pA0\`s< @@%I_ q9'p!"!@@TB py<Ogsy@  ! Q! @ @0R|@ @ "Dx `(x $!B A!0 |<~     @ :16302,0@9,4$@8,50C@(4)"BLOAD SERENDIPITOUS"}@#7669,100:7670,9:7671,37:7672,123:7673,4:7674,88@%255,5:2063@&249,0:250,1:251,0:252,23:253,1:254,191:28,1:255,1:2072@(7313@2A$::(4)"RUN DEMOS!"9IN BINARY FILEFN(34)"GRAPHIX II"(34)". THEY LOAD INTO MEMORY ATsN"2048, AND TAKE UP ABOUT 5250 BYTES, SON"PUT YOUR PROGRAMS STARTING AT 16384.N"IN BASIC THIS CAN BE DONE BY TYPINGN"POKE103,1:POKE104,64:POKE16384,0:NEWO:"IN TUSE0M"2096:CLINE THE SAME PARAMETERS ASZM"2099:CBOX THE BLACK AND WHITEM"2102:CCHARSET ROUTINES PLUS THEM" PARAMETER 'COLOR'.)M5000M6000M10000M25)"PAGE 7 OF "NMN"THE ROUTINES ARE SWITCHC (NO PARAMETERS)HLH"2078:CHARSET (X1,Y1,WHICH,TABSTART,MODE)";pLf"2081:BDRAW (X1,Y1,WHICH,TABSTART)Lp"2084:CIRCLE (COLOR,X1,Y1,RADIUS,MODE,Lu" MODE2)Lz"2087:PENGUIN (X1,Y1,MODE)M"2090:CDOT (ALL COLOR ROUTINES 057:LINE (X1,Y1,X2,Y2,MODE) FK"2060:LINESET (COLOR,X1,Y1,TABSTART,sK " WHICH,SCALE,ROTATE,MODE)K"2063:CLEAR (MODE2)K "2066:SCFLIP (MODE2)K*"2069:HISCROLL (NO PARAMETERS) K4"2072:BOX (X1,Y1,X2,Y2,MODE,MODE2) L>"2075:ANGE FROM4J"0-191, AND X FROM 0-279 OR 0-139 FORbJ"THE COLOR ROUTINES. THE SOURCE CODE ISJ"A TEXT FILE IN APPLE'S DOS TOOLKITJ"ASSEMBLER FORMAT.":10000J25)"PAGE 6 OF "NJ"2048:DOT (X1,Y1,MODE)J"2054:CHKDOT (X1,Y1)K"2FOLLOWS OF THE LOCATIONS7Ib"OF ALL OF THE INDIVIDUALbIl"ROUTINES AND WHICH PARAMETERS AFFECTIv"THEM. THE SOURCE CODE LISTINGI"(XGRAPHIX II) HAS MORE INFORMATION ONI"HOW THE PARAMETERS AFFECT EACH ROUTINE, J"REMEMBER THAT Y VALUES R BE ADVISABLE TO ASSIGNDH&"VARIABLES (OR DEFINE SYMBOLS IF YOU'REoH0"WORKING IN ASSEMBLY LANGUAGE) TO THEH:"ADRESSES OF THE PARAMETERS YOU NEEDHD"AND ALSO TO THE ADRESSES OF THEHN"ROUTINES IN THE PACKAGE YOU INTEND TOIX"CALL. A LIST G|" 28=MODE&G" 29=ROTATE:G" 30=WHICHNG" 31=COLOReG"232-233=TABSTARTvG"249-250=X1G" 251=Y1G"252-253=X2G" 254=Y2G" 255=MODE2GG 4000G 10000G25)"PAGE 5 OF "NH:"IT WOULD AN AMPERSAND BASED;F,"ROUTINE TO MAKE LIFE EASIER IS ONaF6"THE DISK ALSO. THERE FOLLOWS AF@"TABLE OF ALL OF THE RELEVANT ZEROFJ"PAGE ADRESSES.FT10000F^25)"PAGE 4 OF "NFh:" 8-9=NDOTFr" 25=SCALEFw" 27=RADIUSSE ROUTINES: ALL OF THEBE"ROUTINES ACCEPT A SET OF PARAMETERSkE"WHICH ARE PUT INTO MEMORY (IN ZEROE"PAGE) FOLLOWED BY A CALL TO THE MACHINE LANGUAGE ROUTINE. IF YOU ARE USINGE"BASIC, YOU CAN USE THE POKE COMMANDF""TO SET THE VALUES,HE PLATO5D"SYSTEM, DAVID/GOLD/CERL, OR ON USENET,oD"PUR-EE!IUVAX!ISRNIX!KAT (OR SOMETHING LIKE THAT).D:"CHECK FILE 'ANNOUNCEMENTS' FOR NEWD"DEVELOPMENTS RELATING TO THE PACKAGE."D10000D25)"PAGE 3 OF "N:E"HOW TO USE THE"PRODUCT OF THECHU SOFTWARE CREATIONS."5C10000LC25)"PAGE 2 OF "NuC:"YOU CAN GET IN TOUCH WITH ME AT:{CC" DR. CAT":" 316 E. 2ND ST. #1":" BLOOMINGTON, IN 47401C" (812) 332-6604D:"I CAN ALSO BE CONTACTED ON TME AND I'LL PUT THEM?НLP` L PL +)@ 104,96:24576,0:"RUN CIRCLES 1B"d6ӠŠ͠ĠȠԠӠŠŠӠӮŠŠƠڠΠΠǠŠӠĠŠ͠ŠԠŠҠԠ̠ϠŠĠΠŠŠӠƠŠŬϠԠӠҠȠŠԠŠӠŮŠ׺ӠҠĠ٠Ƞ͠ŠŠԠԬŠŠΠӠŠĠԠӠԠԠӠĠΠӬҠΠӬرӠΠĠĠƠǠԠĠȬՠԠԠ̠ϠŠӠԠȠŠҠΠŠĮӠӠŠΠŠՠĠŠҠǠԠӠԠΧԠĠϠŠĠҠĬԠҠŠӠΠŠԠŠ٠ŠĮŠŧӠӠӠΠ٠ԬĠŠҠϠנӠĠ٠ȮŠŠ٠ԠԱӠՠϠԠҠΠԠĠȠ٠ǠӠĠӬӮŠԺӠŠԠƠŠȠĠȠĠԠΠӠĠԠ٠ŮȠҠӠĠϠŠРҠ٠ӠԠӠϠԠԬĠƠŠŠҠҠ̠ƠŠˠĠŠӻԠӠԠԠϬȠ̠ŠӠϠŠŠĠΠӠĠ̠ŠӠȠŠĠΠӮǠŠҠԠϠŠƠŠ̠ȠϠŠĠĠҠزٲŲӠҠŠŲҠĠΠؠŲΠŠĠΠŬŠŠӠΠŠĠȠŠРŮŠúӠŠӠŠԠŠƠŠҠԠŠӠŲР̠ƠŠҠӠŲҠРȠŲŠ̺ӠŠŠРŠŬǠŠ͠ŠĠǠŠРŮŠغӠؠȠӠԠرٱx3    _RDe*$?H@( 6,0,1,0,0C @ (4)"BLOAD SPIN"*@232,0:233,803@CL0O@-A018:X:20480A,X:U@2i@416302,0:28,0@6CLCL1:CL5CL0@831,CLR@<768@P(49152)155ĺ:(4)"RUN DEMOS!"@U28,1:768:28,0@Z52 Ad2,0,8,8,0,0,240,1,240,0,1,0,16,1,1  011:CIRCLE,NS,NS,NS,A,Z,ZCa(49152)155ĺ:(4)"RUN DEMOS!"caA1M1PA:PA3PA:A2M2PAaCIRCLE,NS,NS,NS,A1,1,Z:aA1M1PA:PA3PA:A2M2PAa120A)`2A12132:A22118:M14:M26:NS96:Z04`dPAGE1<`n:J`s16302,0r`xA160:A1įCIRCLE,NS,NS,NS,A,Z,Z`(49152)155ĺ:(4)"RUN DEMOS!"`A1M1PA:PA3PA:A2M2PA`CIRCLE,NS,NS,NS,A1,1,Z:`A1M1PA:PA3PA:A2M2PAaA6 ٠͠جƠŠԠӠŬŠĠؠˠϠŠҠĠŠ٠ŠԠΠȠӬŠŠԠРŠԠΠŠؠήƠ٠جŠϠŠŠǬԠԠٱ٠ŠȠŠĮŠà͠ĠŠӠϠԠؠϠŠŠŠƠŠŠΠؠӬĠ٠ϠŠŠΠ٠ӬΠƠؠ٬ŠȠϠРǠ͠رϠزȠŠȬŠƠŮΠǠŠŬرĠٱ̠ŠŠӠԠزĠٲĠΠǠŠŬǠՠϠננŠ͠ŠĠƠŠԠŠ٠ǠŠӠƠزĠٲŠǠرĠٱΠԠŠϠŠנӬĠԠŠӠƠűΧԠΠĮŠźӠŠ͠رٱϠزٲӠŬӠϠ̠ӠȠ̠ŠԠŬӠǠϠŠŠǠӠŠȠΠŠӠ٠٠ŠǠנԠƠӍԠƠŠŠΠŠĠϠҠͮŠĠ٠ԬԲΠŠĠΠŠԠϠŠĠӠŠŠ٠ŠӠŠҠԠƠŠӠĠҠŠӬΠŠӠƠĬӠԬӠŠŠӠԠŮԠƠŠҠ̠Ӡ̠ŠԠӠҠ̠ǬŠ٠ŠΠĠҠԠЮŠԺӠԠԠرٱȠŠǠԠŬԬŬЮرӠԠŠ͠ٱӠΠԠҠ͠ӠŠĠŠҠԠŠϠˠϠŠŠŠΠŠͮǠŠӠŠǠŠӠƠŠӠӬԠ٠ϬĠנҠǠӠԠͮƠǠӠԠŠҠϠլԍŠӠĠŠ̠ΠΠ٠ŬǠԠӠĠǠРӮ̠ӠŠĠϠŠӠȠϭŠ٠ӬϠ٠ŠȠŠ٠ϠӠ٠٠ŠԠԠӠΠŠŠŠ٠ԠĠԻԠӠŠΠƠԭРӠȠΠŠĠӠĠŠ٬ԠӠԠƠӠȠΠŠĠįҠĮ    & (769)181ĺ(4)"BLOAD GRAFYX"C(4)"BLOAD O1.4,A$5000"r216297,0:16304,0:16302,0:255,0:2063{P768dA$::(A$)27ĺ(4)"RUN DEMOS!"n50 DEMOS!"aSWITCHC?a21324PAGE:PAGE3PAGE:21186PAGE[aCIRCLE,9,96,96,A,1,0:da120f `dPAGE1`n:"`s16302,0D`xA060:CIRCLE,9,96,96,A,0,0j`(49152)155ĺ:(4)"RUN DEMOS!"w`SWITCHC`21324PAGE:PAGE3PAGE:21186PAGE`CIRCLE,9,96,96,A,1,0:`A6001:CIRCLE,9,96,96,A,0,0a(49152)155ĺ:(4)"RUN ԠĠ٠ŠŮάӠӠ̠ήŠŠŠ̠ԠŠӠŬȠΧԠ͠ΠǠԠΠԠĠŠӬԠΠǠԠΠРŬŠӠ̠ŠĠŶӬŠӠĠŠȠҠԠӬƠՠԠϠԠРҠŬԠ٠ӠҠήŠŠŠӠӠˠҠԠ͠ŠРŠŠԠƠŠȠӠĠƠҠǠӠŮŠƠ͠ŠӬҠ٠ŠĠŠϠԠ٠Ӡ͠ǮŠנŠӠԠРϠŠԠŠӠΠŠŠŠƠȠŠԠ٠̠ŠРӠΠĠΠРŮǠؠȠҠԠϠҠĠŠԠϠҠŬ̠ŠĠӍӠΠŠȠϠԠŠӠ٬נӠŠĠȠΠԠנŠ٠ĠԠŠӠԠϠԮϠŠԠǠŠЧŠȠĠĠŠ̠ŠҠŠӬӠŠҠԠӠĠӠƠԠŠԠƠȠԧȠ̠ŠĬǠŠŠ٠ŠԠӠϠΠŠŠ͠ŠϠŠŧӠҠ̠٠ƠǠӠΠŠɭӠήӠ٠ƠǠŠؠӠӠŠҠӠϠŠҠŠԠӬԠҠŠŠŠӠԬŬԬجԬĠŠŠ̠٠ŠŠӠҠˠĠŠӬԠԠ٠ԠΠŠҠĠ٠ҬάĬŬĠŻĠ٠ŠؠŠӠ٠ƠΠĠάȠΠ̠Π٠Š͠ӠĠΠԠƠ٠Ҡ̠ŠΠŠӠΠŠǮŠκӠΠԠرٱĬԠӠĠĠŠŠϠĠӮ٠ŠĠΠӠƠӠȠŠŠŠ٠ŬϠԠŠŠӠ٠ӠϠŠĠŬŠĠԠӠĠȠ̠ϠԲŠŠҠΠǠԠĠȮŠźӠŠԠرٱȠӠĠ٠ӮӠŠӠΠ͠ȠɠҠҠ٬ӠŠŠϠ̠ŠҠԮҠȠԠӠԠΧԠĠϠŠĠ٠٬ԠĠŠĠҠɭӠҠҠҠӠͬҠŮŠ٠ԠײӠՠϠ٠ŠǠ٠ӠƠŠŠΠЬԠΠŠԠϠנĠӬԠ٬ŠȠŠӠΠĠҠƠӠΠԬǠ͠ΠĠϠΠΠŠ̠ȠŠȠάĠĠȠŮӠŠӠԠ̠ҠǠӠԫ& (769)181ĺ(4)"BLOAD GRAFYX"C(4)"BLOAD O1.5,A$5000"r216297,0:16304,0:16302,0:255,0:2063{P768dA$::(A$)27ĺ(4)"RUN DEMOS!"n50 @CLR,0:HIRES?@21:"USE PDL (0) TO CONTROL RADIUS..."d@"PRESS BUTTON TO CLEAR SCREEN."@ CIRCLE,5,96,96,(0)4,2,0@(49152)155ĺ:(4)"RUN DEMOS!"@(16287)127įCLR,0@10@@102   " " """ŠӠӮŠ̠͠ĠŠӬŠŠӠΠ٬ĠŠŠŠǠӠŠ٠ŮŠӠŠŭĬŠŠĠΠŠĠŠԠ̠ϠŠ̠ΠƠŠӠƠ̠±ĠŠŠΤĠŠԠϠŠŠƠŠ٠ŠǠŠԠŠϠҠΠǠŠҠϠŠΠԠԠƠ͠ӠԠƠŠŠŬà͠ӠĠϠŠŠӠԠŠŠ٠ӠĠŠͮӠ͠Ġ٠ŠĠŠҠȠҠŠӠĠ٠ŠԠŬҠĠӠϠŠӠΠŠŠƮŠӠӠŠӠŠŠƠĠҠƠӠϠĠРάŠŠŠӠȠƠͬӠϠŠŠƠӠ٠Ǡ̠ƠŠӠϠԠΠŠҠӠȠӠϠԮƠՠȠϠŠŠԠӠƠŠάϠ̠ΠӠĬŠՠ̠ŠϠ٠̠̠ԻԠĠؠȠ̠ŻԠĠؠ̠ŬĠΠӠԮƠՠŠΠΠȠ٠ӠŠŠƠΠӠӠҠˠĠŠӬՠΠԠŠՠԠРΠĠԠΠӠ̠Ҡ̠ӬȠԠŠԠƠŠҠ̠ӠŠϠŠĮٺŬԬĠŠ̠̠ŠԠŻŬԬĠŠĠΠΠҠӠŬǠŠŠϠŠӠΠԮǠŠӠƠ٠ŠӠͬՠΠŠŠŬǠ٠ŠӠՠĠҠҠήҬ"NOW CREATING BITTAB"G N1:A0279:AD1480A,N:NN2:N128N1M o (4)"BSAVE "N$",A2048,L6100"u  "NN2:N128N1 ,NN2:N128N1C,X64A,(AD560A):; "NOW CREATING SLTAB1 AND SLTAB2"H Y0191 W(Y64)40((Y64(Y64))8)128(Y8(Y8))1024 HI(W256):LOW256HI:AD816Y,LO:AD816192Y,HI: "NOW CREATING BYTETAB" A0279:AD1200A,(A7): 9:AD280A,((2A)7):5 n"NOW CREATING CBITAB2"^ xN1:A0139:AD420A,N:290:290:y "NOW CREATING SINTAB" PI3.14159265358979 XAD560:A0PIPI128:X,255(A):XX1: "NOW CREATING COSTAB" XX1:A063:XA,(AD624A): AD5448:N$"GRAPHIX II";:"GRAPHICS TABLE MAKER"AU((4)"BLOAD "N$q2"NOW CREATING CBYTAB1"<A0139:ADA,((2A1)7):F"NOW CREATING CBITAB1"PN2:A0139:AD140A,N:290:290:Z"NOW CREATING CBYTAB2" dA013    +)` 104,96:24576,0:"RUN CIRCLES 1C d1ƭנDZנDzנDZנDzנ̭ԠҠ͠ˠҠҠ̠ŠҠԠԠϠҠؠ٠Ӡ٠ҠԠԠرؠرŠ ٠رנԭנŭנҭנЭנ̭נحנíנԭנ׭נŭנέנԭנŭנحנԭנӭנƭנ׭נϧקɠƧɠDZɠDzɠDZɠDzɠ̧ Ҡ ŠŮӠŠӠƠŠӠԠĠϠŠӠŠ̠נԭנԭɠԧɠŧɠҧɠЧɠ̧ɠاɠçɠԧɠקɠŧɠΧɠԧɠŧɠاɠԧɠӧɠƧɠ̬ؠΠϠРӠӠҠ ĠŮӠ̠ĠĠàΠӮ ԠŠĠΠ̠ӠԠԬŠԠԠŠԠ̠ɠԧɠԧ٠Ġ٠ϠԠҠϠԠӠԠԠà̠ҠƠĠ̠àҸàȠҸ̠ԠԠҠƠ ؠԠĠԠ٠ԠؠĠȠΠˠ̬ؠؠԬԠԠҠҵĠĠԠƠĠ̬ؠԠĠŠҲΠŠȠؠŠҵӠҶؠĠԠĠРҠϠؠҠҷàĠĠ̬ؠŠѠҶĠƠſϠР̠Šҳ٠ҲؠŠұӠҳĠƠ٠ȠȠ Р̠ƠĠƠѠҷĠĭϠҴàԠԠĬàĠǠĠΠĠŮӠϠĠ®ҠؠϠĠŠ٠ҬԠҠ٠ԠĠԠұ̩٠ŠӠ̠͠ԠŠȠĠԱӬ٠ϠħӠì٠РҠ٠̠ԱҠԠ͠Ϡ͠ԠӮҍͫӠӠРҠҠ­ҮӠРĠ̠ՠ¸Ƞՠ¹àՠƵ̠ՠķ ͠ՠōԠՠƲҠՠĴӠŠӠРŠčРҠҠŠҠ­ҠР٠ĠРΠӠŠՠӠՠŠՠÍŠՠčȠՠŠҠՠƍԠՠŸرՠƹٱՠزՠÍӠՠÍӠՠčٲՠōŲՠƍ̠ՠàȠՠĠԠՠ͠ՠؠԠƍǠԮǠŠ٠ΠŠΠҠҠӠΠҠԭؠΠ٠ŠĠŠҬ޳ӬŠΠԠ       @,@ :21:"USE THE NUMBER KEYS 1-8"G@"TO CHOOSE COLORS..."Y@A$:16302,0q@(A(A$):A1A860~@2CLR,A1@<(A$)27ĺ:(4)"RUN DEMOS!"@FA$:404027ĺ:(4)"RUN DEMOS!"@FA$:40JϠزٲŠزŠزĠٲ֠ϠԠرٱزϠԠĠƠŠ֫ٲ֫ҠŠҠҫٱٽӨٱٲààٲӠˍٲà«؍РٍŠ¬؍٠¬؍٠ĠűٍĠƍŠō΍ӠŠ΍ӠŠōӺرٱزٲŮӠԠ͠رٱԠԠرٱϠŠƠԠӠԠҠԮӠӠΠҠĠΠ٠ΠΧԠ٠ٱ±ٍű²ٍōűؠررѠō«؍ٍ¬؍ԠؠōѠԍؠŠЍƠҠƍĠűٍűٍǠӠԠűٍűٍӠРҠűٍűٍӠŠԍӺرٱήӠԲؠررѠűϠؠرӬŠԠŠؠӠǍ٠ر٠ŠǍ«ؠƠŠ٠«؍ŠԍűؠرŠĠŠ¬ؠƠŠ٠ɠŠĬǠӠҠԮ̠ƠŠҠӠŠŠƠӠ٠ԍŠŮԠ٠ٱРðӠǍ±٠ˠРŠӠű²ٍōűŠŠōرٱŠ٠ŠŠӠԠЬӠǠӠՠΧԠҍŠӠƠű٠ӠĠƠŠԍϠŠĠӠŠŠ٠ŠӠŠӠԬ٠ԠԲӺرٱŮӠԠԠرٱӺ׬ŬЮŠŠӠ٠Ϡ̠ƍŠҠ̠Ӡԍ̠ŠԠŮŠԠϠŠŠŠΠӠȠԍԠĠ٠ϠԠԠɷԠðӠƠԠðӠנԠðӠƠԠðӠDZōӠDzōӠDZԠðӠDzԠðӠ̠Р̍ŠԍҍРРЍ̠Р̍ؠР؍àРÍԠРԍנР׍ŠРōΠР΍ԠРԍԲРԲŠРōؠР؍ԠРԍӠԠðǠՠōРՠƍ٠ՠƍвՠƍŲՠƍΠՠƍԠՠڠՠРՠčǠРōԠРԍԲРԲԠРԍŠРōԠРԍҠР٠ՠčȠՠōؠՠōҠՠƍŠՠؠՠŲՠ٠ՠԠՠΠՠΠՠԠՠŸرՠƹٱՠزՠÍӠՠÍӠՠčٲՠōРՠōԠƠűՠԠՠԠՠԠՠŲՠРՠŠՠĠՠؠՠ٠ՠ̠ՠԠՠӠՠŠՠÍŠՠčˠՠčҠՠč                                         @ :16302,0@@249,130(1):Q(249)224(1):Q13920o@251,180(1):Z(251)338(1):Z19125@254,Z:252,Q@31,4(1)@(28,2:255,0:2097:(49152)15520@2:(4)"RUN DEMOS!"511000:XCX:YCY:MG13000:"F- FREEZES SCALE FACTOR":"U- UNFREEZES SCALE"G"PRESS RETURN WHEN DONE VIEWING."::10000:"THERE ARE "LD" DRAWINGS. WHICHG"ONE WOULD YOU LIKE TO LOOK AT? ";A$:W(A$):W1WLD660G:TW1:WW1.H12000:120WING":"2) VIEW ALL DRAWINGS":"3) CALCULATE AMOUNT OF MEMORY AVAILABLE":"4) ADD A NEW DRAWING":"5) EDIT AN OLD DRAWING"Fn"6) SAVE TABLE TO DISK":"7) RETURN TO MASTER MENU"Fv1:15:A$:A(A$):A1A8630FA650,740,830,880,1000,950,30GENOUGH ROOM FOR "MCLD" MORE.";ELA(ADDR)256(ADDR1)E"A2LD:MA(ADDR2A2)256(ADDR2A1):MA(LA)ALD:::230E,LAMA:::"HIT ANY KEY TO CONTINUE...";:A$:600EXMC(ADDR)2E]FZ0Eb:"SELECT OPTION:":zFl"1) VIEW A DRAMC(ADDR)2:MC(MC)(ADDR1)0MC0260YD"SORRY, BUT DUE TO IT'S FORMAT, I CAN'TD"EDIT THIS LINESET. HIT ANY KEY TOD"RETURN TO THE MAIN MENU...";:A$:30D10000:"THIS LINESET HAS "LD" DRAWING";:LD1ĺ"S";D " IN IT,"E"AND E YOURFCZ"LINESET TO HAVE ROOM FOR? ";NC$:NC(NC$):NC1NC12780CdADDR,2NC:ADDR1,0:A22NC:ADDRA,255::A2NC2NC2:ADDRA,0:Cn600C:"WHAT IS THE NAME OF THE LINESET YOUC"WANT TO LOAD? ";NA$::(4)"BLOAD "NA$",A"ADDR,DTH A /B,"JOYSTICK, BUT CAN ALSO BE USED WITH[B-"PADDLES. IF YOU HAVE NEITHER, YOU'REqB."OUT OF LUCK...)B21:15:A$:A(A$):A1A550B71:9B<A80,200,220,70,65BA:(4)"RUN DEMOS!"BF10:CP:"HOW MANY DRAWINGS WOULD YOU LIK7AF(X)X256(X127)1AU(X)X256(X0)KA:"SELECT OPTION:":A("1) CREATE NEW LINESET":"2) LOAD LINESET FROM DISK":"3) EDIT LINESET CURRENTLY IN MEMORY":"4) QUIT"A)"5) BRANCH TO DEMO MENU"B+20:"(NOTE: THIS EDITOR WORKS BEST WI @I@(104)64Ĺ104,64:16384,0:103,1:(4)"RUN LINESET EDITOR"r@(2054)76ĺ(4)"BLOAD GRAPHIX II"@ (7654)32ĺ(4)"BRUN AMPER"@ TM(115)256(116)@JS1@A229696:ADDR30720:A2@TMA2TM38400AB(X)(49249X)12砠 bI GG GGU Q~10000:SPOTADDR2(LD1):SPOTADDR(SPOT)256(SPOT1)tQLDMCĢ13:1:"SORRY, THIS TABLE IS FULL.":1060Q(SPOT)0(SPOT1)01180QSPOTSPOT3:1160RSPOTSPOT3:HI((SPOTAD)256):LO(SPOTAD)256HI:ADDR2LD,LO:ADDR2LD1,HISPOT)256(SPOT1)3PQ(SPOT)0(SPOT1)01110IPSSPOTSPOT3:1105sPVDTZZ(YYXX):(DT)21130,1120,1140P`UU0ZZ:XXUU,(A22UU)::600PjAYYDT1SPOTDT4:A,(ADT)::1500:1120QtASPOTDT4YYDT11:A,(ADT)::1500:1120REPLACE IT WITH THE NEW ONE":"3) KEEP THE OLD ONE AND ADD THE NEW ONE ONTO THE END OF THE TABLE"O$1:15:A$:A(A$):A1A31060O8ZZA22OB(ZZ)0(ZZ1)0ZZZZ3:1090OLZZZZA2OMA600,1103,1150POSPOTADDR2(EZ1):SPOTADDR(BEEN DEFINED YET.":1020LNXXAD(AD2(EZ1))256(AD2(EZ1)1):YYXXqN (YY)0(YY1)0YYYY3:1034N YYYY2:VV2:UUXXYY:A2VV,(UU):VVVV1:NWH1:BSA22:5000dO::"SELECT OPTION:"::"1) KEEP CHARACTER THE WAY IT WAS":"2) 30MA2,2:A21,07MMM2:ROSCOEA2:MC(ADDR)2M16::"THERE ARE "MC" CHARACTERS IN THIS":"TABLE. WHICH ONE WOULD YOU LIKE TO"M"EDIT? ";A$:EZ(A$):EZ2EZMC1020N(AD2(EZ1))255(AD2(EZ1)1)255ĺ:"THAT CHARACTER HASN'T SPOTADDR:HI(SPOT256):LOSPOT256HI:ADDR2LD,LO:ADDR2LD1,HI:ADDRSPOT,10:ADDRSPOT1,10:A25:ADDRSPOTA,0:LADDRSPOT2,1LMM1:ROSCOEADDR:5000L:600L18::"FILENAME? ";F$:20000:(4)"BSAVE "F$",A"ADDR",L"SPOT6ADDRM1:MEM" BYTES OF SPACE REMAINING."+Kf630gKp10000:LDMCĢ13:1:"SORRY, THIS TABLE IS FULL.":630sKuWHLD1KzSPOTADDR2(LD1):SPOTADDR(SPOT)256(SPOT1)K(SPOT)0(SPOT1)0915KSPOTSPOT3:900KSPOTSPOT3:BSSPOT{LSPOT,ADDR,W,16,0,0,J LWW:(49152)141ĉ:600MJ*W((0)(256LD)):WLW800vJ4LINESET,4,XC,YC,ADDR,LW,16,0,1:780J>10000:SPOTADDR2(LD1):SPOTADDR(SPOT)256(SPOT1)JH(SPOT)0(SPOT1)0860JRSPOTSPOT3:840"K\MEMTMSPOT3:15:12050:LXJX:LYJY:LINESET,4,XC,YC,ADDR,W,JY,JX,0 ``氠ɠԠO `= > 888 , L -8LL ` 8 , L!  L! e L! 8ϐ˥88 Lee L! 8 , 08   N OFF GRAVITATIONAL DELTA SHIFTER 8- TURN ON GRAVITATIONAL DELTA SHIFTER"Z ("BLOAD YZ" -23:"HIT ANY KEY TO START...";:A$: 017408 2"RUN DEMOS!"΁ :"D A Z Z L E R"I:::"THE NUMBER KEYS AFFECT THE DISPLAY:":"1- SET FLIP DELAY TO 1":"2- SET FLIP DELAY TO 7":"3- SET FLIP DELAY TO 255""4- SET RANDOM COLOR MODE":"5- TURN OFF RANDOM COLORS""6- CLEAR SCREEN"I "7- TUR 040Y.'LDLD2:10010-Y8'LD(LDADDR)21:UY* CHOOSE START (X,Y) COORDINATES...Y+::21:"USE THE PADDLES TO SELECT THE STARTINGY +"POINT FOR THE DRAWING, THEN HIT EITHERY+"BUTTON. ";::"OR";::" HIT RETURN TO START INZ +"THE CENTER.XhXrB(0)B(1)8050-X|MM1įCLR,03XX(#VNVN1:MD2020(BS3VN2):SXSXDX:SYSYDY:DXF((BS3VN)):DYF((BS3VN1)):17000:X'LDADDR: FIND LAST DEFINED DRAWINGX'(LD)255(LD1)255LDLD2:10040Y$'(LDADDR)21MCī10VN2,MD2020:LINESET,4,XC,YC,ROSCOE,WH1,16,0,0:=W@MM2ıeWEMM3(BS3VN)0(BS3VN1)0ıWJB(1)MD20201MD2020:17000WOB(0)08040WTBS3VN,U(DX):BS3VN1,U(DY):BS3VN2,MD2020:MM3İ9000:8040WYL0333:L1333X^160000:(VAK200Ĺ49168,0:13000:14000:.V:VXMM2ıbVZMM3(BS3VN)0(BS3VN1)0ısV[FX0FY0ıV]23:23:"DX="FX" DY="FY" ";1WbL0FX:L1FY:DXFX:DYFY:LINESET,4,XC,YC,ROSCOE,WH1,16,0,1:BS3VN,U(DX):BS3VN1,U(DY):BS32((BS3VN)0(BS3VN1)0)Ĺ49168,0:SXSXDX:SYSYDY:VNVN1:DXF((BS3VN)):DYF((BS3VN1)):MD2020(BS3VN2):UAK193MM1:15000:49168,0:16000:CLR,0:L0333:L1333:UAK198MM2:15000:49168,0:VAK210MM3:15000:49168,L1İ7000"T(49152)127İ60009T(B(0)B(1)İ8000FT2RFLAGıPT<5110{TpAK(49152):AK141RFLAG1:49168,0:TzAK136MM2VN0VNVN1:49168,0:DXF((BS3VN)):DYF((BS3VN1)):MD2020(BS3VN2):SXSXDX:SYSYDY:~UAK149MM1200:SL0333:L1333%SRFLAG0+S=S15000:17000eSLINESET,4,XC,YC,ROSCOE,WH1,16,0,0S IMPORTANT MAIN EDIT LOOPSCLINE,33MD,SX2,SY,(SXDX)2,SYDY,2SA115:S CLINE,33MD,SX2,SY,(SXDX)2,SYDY,2 T12000:FXL0FYRXXSPOT:1120RAEZ1LD:RP(AD2(A1))256(AD2(A1)1)DT:HI(RP256):LORP256HI:AD2(A1),LO:AD2(A1)1,HI::R13000:14000R:TW1RVN0:DXF((BS)):DYF((BS1)):MD2020(BS2)R11000:XCX:SXX:YCY:SYYSA1ʠ bI]]]]$H$H)$H $H$H`HH`H)4HHHMHHNHnHnHnHnHNH0HIHHIHHIHHIHHIHHIHH`ɠ֠kGkGgG/gGLFgGL;D H HHH '8 H'8 HHH '8 H'8 H/8H/8H  H H/8H/8H ` F)xJJJH F)H` FhG FiG FjG FkGU F)H` F)8iH F)0 HIHHH`H GH8 d FHH H !HHH HHdGlGeGGfGGgGGHH HH FH FdGmhGdG'hGIhGhGdG'dGLEdGeGmiGeG'iGIiGiGeG'eGLEeGfGmjGfG0jGIjGjGfG/fGLEfGgGmkGgG0kGIDZ,P,R,V 2NH' FdG/ FfG' FeG/ FgG F FdG HeG HfGHgGHH F)HH d F H0dGeG hGiGLDhGiGfG8gG jGkGLDjGkG;ɛ`ɱ  EHLDɲ  EHLDɳ EHLDɴHlG HG HGHGH    x@?xppp8<31?@?777BDD""DDB X  `@C"D"D`o1TW:49234TW,0{[.(49152)176(49152)186Ģ24:1::JS(49152)176:49168,0:"JOYSTICK SENSITIVITY:"JS;::JSJS1.63[.JX((0)JS):JY((1)JS):FX(((0)128)JS):FY(((1)128)JS)[.SXFX0FXSX[/SXFX279FX279SX\/SYFY0FY"; Z*+X(0)280256:Y(1).752Z/+X(X):Y(Y)AZ4+DOT,X,Y,0tZ>+(49152)141įDOT,X,Y,1:X140:Y80:49168,0:ZH+B(0)B(1)įDOT,X,Y,1:ZR+DOT,X,Y,1:A14::11050Z. READ JOYSTICK, CHECK FOR ESCAPE AND 1-9...[.(49152)155Ĺ49168,0:TWDX,LO:IDX1,HI:IDX2,W:IDX3,H:IDXIDX4c.LC(HW8.99):ASPOTSPOTLC:A,0::SPOTSPOTLCi8LX$(4)"BSAVE "A$",A30720,L"(SPOT30710)VA1(X$):767A,((X$,A,1))::767(X$)1,141:767(X$)2,0`,141:767(X$)2,0 5 :"NAME OF TABLE? ";A$` "NUMBER OF CHARACTERS? ";N:30720,N1} SPOT307214N:IDX30721 ZZ0N1 "CHARACTER #"ZZ" HEIGHT, WIDTH";:H,W H32W401040 GEESPOT30720+$HI(GEE256):LOGEE256HI:I:"2) MAKE NEW TABLE"9 15:1:A$:A(A$):A1A2210@ 5P A230,1000o 5::"NAME OF TABLE? ";A$ :(4)"BLOAD "A$",A30720" X$(4)"BSAVE "A$",A30720,L"((43616)256(43617)) A1(X$):767A,((X$,A,1))::767(X$)1 :"USE CONTROL KEY WITH MOVEMENT KEYS TO":"MOVE FIVE SPACES INSTEAD OF ONE."[ 20:e 170 (4)"BRUN EDIT.OBJ,D1" :"INSERT DISK WITH CHARSET EDITOR, THEN "HIT RETURN:";:A$:50 :"SELECT OPTION:"::"1) LOAD TABLE FROM DISK"ESCAPE: SELECT DIFFERENT CHARACTER"P n:"MOVEMENT: Q W E SCROLLING: I{ x" \!/ ! " A-*-D J-*-K " /!\ ! " Z X C MQ: ENTER PLOT MODE":"2: ENTER ERASE MODE":"3: ENTER 'TRAVEL' MODE"r A"S: FLIP DOT UNDER CURSOR (IF IN MODE 3)" F"CONTROL-S: QUIT AND SAVE TABLE" P"CONTROL-Y: CLEAR ALL DOTS" Z"CONTROL-I: INVERT ALL DOTS" _"CONTROL-F: FILL REGION"# d"@(104)64Ĺ104,64:16384,0:103,1:(4)"RUN CHAR-EDIT 3"j(2052)115ĺ(4)"BLOAD GRAPHIX II" ADDR30720:S(115)256(116)ADDR:S0S7680ADDR232,0:233,120(:16303,0-2002:"CHARSET EDITOR COMMANDS:C <:"1       -RES DAZZLER DHI-RES DAZZLER3DANNOUNCEMENTSDDCHAR-EDIT 3XDLINESET EDITOReDUPGRADEqDDRAWITDSTAINED GLASSDEXITD END  ENDEMENTSDEXITD ENDLENDKINETIC 1CKINETIC 2*CCLEAR DEMO9CCIRCLES 1HC"CIRCLES 2WC,CIRCLES 4jC1MESSY CIRCLESCJCOLORED BOXES 1C^COLORED BOXES 3CrSERENDIPITYC|SEA OF GREENCQUIXOTIC 1CQUIXOTIC 3CKALEID 4CDOCUMENTATION DLOn21:" ";:1B:Z1A:A$:::BA$"EXIT"ė:"HOPE YOU HAD FUN!":B(4)"RUN "A$BSPIN DEMOBSQUARE 4BPATTERN CRSTUVWXYZ*#$%&",A,1)". "A$:IA24:"(ESCAPE RETURNS TO MAIN MENU...)";UADRWPG1cA16301,0A1:1:A$:(A$)0A(A$):100A((A$)64(A$)91A(A$)55:100A2A15:A$("*#$%&",A,1)AA35:100A<:30AdAL30Ai202,(78)B@(104)643@@104,64:16384,0:103,1:(4)"RUN DEMOS!"i@(2054)76ĺ(4)"BLOAD GRAPHIX II"q@:@(4)"BRUN AMPER"@ "GRAPHIX DEMOS!!!"::A140:A$:A$"END"LA1:20A2A20(A20):120(A20):("123456789ABCDEFGHIJKLMNOPQ  GHT OF THE ACTUAL CHARACTER.'Kb10000CK'20::(4)"RUN DEMOS!"pK'24:"HIT ANY KEY TO CONTINUE...";:A$: ,J0"CHARACTERS IN THE TABLE, FOLLOWED BY AVJ:"FOUR BYTE ENTRY FOR EACH CHARACTER,yJD"WHICH CONSISTS OF A TWO BYTEJN"DISPLACEMENT FROM THE START OF THE TABLEWHICH TELLS WHERE THE CHARACTER ITSELFKX"CAN BE FOUND, FOLLOWED BY THE WIDTH AND HEII"ADDENDUM TO FILE 'DOCUMENTATION', WHICH IS NOW OUT OF DATE AND INACCURATE."I:"THE CHARSET FORMAT HAS CHANGED, THERE ISNOW ONLY ONE ENTRY POINT, AND THE TABLEI"ORGANIZATION WORKS AS FOLLOWS: FIRSTI&"THERE IS A BYTE GIVING THE NUMBER OF AND THE PREVIOUSROUTINE WORK REGARDLESS OF WHICH PAGE ISACTUALLY BEING DISPLAYED."H:"DISPPG1- CAUSES PAGE 1 OF GRAPHICS TO BEDISPLAYED (DEFAULT CONDITION)."H"DISPPG2- DISPLAYS PAGE 2.H10000H:"BY THE WAY, THIS IS TO BE CONSIDERED ANPFAULT CONDITION)6G"WINDOFF- TURNS OFF TEXT WINDOW.dG"DRWPG1- CAUSES THE ROUTINES TO DRAW ALLG"SUBSEQUENT GRAPHICS ON HI-RES PAGE 1.G"THIS IS THE STARTING DEFAULT.G"DRWPG2- CAUSES DRAWING TO TAKE PLACE TOSH"PAGE 2. NOTE THAT THIS MEMORY LOCATION 255;(F^"1=ON, 0=OFF.RFh:"HIRES- SETS UP SCREEN SWITCHES TO|Fr"DISPLAY THE HI-RES GRAPHICS SCREEN.F|:"HROFF- SWITCHES THE DISPLAY TO TEXT.F10000F:"WINDOW- ACTIVATES THE FOUR LINE TEXTG"WINDOW. (THIS IS THE DER THIS. 4E""A VALUE OF 0 FOR MODE2 RESULTS IN A _E,"NORMAL CIRCLE, ANY OTHER VALUE GIVESE6"A FILLED IN CIRCLE. THE FOLLOWING NEWE@"ROUTINES HAVE BEEN ADDED TO THE PACKAGE:"EJ"CHKDOT- CHECKS FOR A DOT AT (X1,Y1),FT"RETURNS A VALUE INVE/D"HAD THE PARAMETER COLOR ADDED TO THEM.\D"USING ANY COLOR OTHER THAN 0 THROUGH 3D"WILL RESULT IN A BLACK AND WHITED"IMAGE. CIRCLE ALSO HAS THE PARAMETERD"MODE2 ADDED TO IT, NOTE THAT RADIUS WAS E"MOVED TO $1B TO MAKE ROOM FOS OF THE CALL,:C"ONLY A FEW HAVE CHANGED THEIR FORMAT.fC"USERS OF THE AMPERSAND ROUTINES WON'TC"HAVE TO WORRY ABOUT DEALING WITH THE NEWADDRESSES."C10000::"ROUTINES CLINESET AND CCIRCLE HAVE BEEND"REMOVED, AND LINESET AND CIRCLE HAH A JUMP4Bx"TABLE STARTING AT 2048 ($800) NOW, SO`B"FUTURE VERSIONS OF THE PACKAGE WON'T B"CAUSE INCOMPATIBILITY PROBLEMS. TOB"ADAPT TO THIS VERSION OF THE PACKAGE,B"FOR MOST OF THE ROUTINES YOU'LL JUSTC"HAVE TO CHANGE THE ADRESSLIGHTLY LONGER NOW, TAKING 614 BYTES."TAF"FILE AMPER IS STILL AT THE SAME ADRESSAP"GIVEN IN THE HELLO PROGRAM, IT COULD BEAZ"REASSEMBLED A BIT LOWER IF YOU WANT TO Ad"USE THE EXTRA SPACE LEFT OVER. THE Bn"ROUTINES ARE ALL CALLED THROUGr T@ ::"THE GRAPHICS PACKAGE HAS BEEN OFFICIALLYUPGRADED AS OF 1/28/82. THE NEW{@"ROUTINES HAVE THE SOURCE IN FILE@"XGRAPHIX II, AND OBJECT CODE IN FILE @("GRAPHIX II, WHICH TAKES ABOUT 4966@2"BYTES. THE AMPERSAND ROUTINES ARE'A<"! ! ! !!!!!!!!!500AFD$"OPEN DOCUMENT"4APD$"READ DOCUMENT"V1V4:V2V5:V3V6:ISIS3:16020m`hB24:26:("MOVEPLOT",14MD2020,4);" MODE";:` N10000:SPOTADDR2(LD1):SPOTADDR(SPOT)256(SPOT1)`*N(SPOT)0(SPOT1)0ı`4NSPOTSPOT3:200100010IND VECTOR MODE":5_:MM3ĺ"REPLACE VECTOR MODE":O_:(7)"ERROR!";:15040_>VNVN1:ISBS3VN:V1(IS):V2(IS1):V3(IS2):IS,1:IS1,1:IS2,MD2020:ISIS3_>SXSXDX:SYSYDY_>DX1:DY1`>V4(IS):V5(IS1):V6(IS2):IS,V1:IS1,V2:WITH THE JOYSTICK AND";^6"THEN HIT BUTTON 0 TO KEEP IT."d^7"BUTTON 1 TOGGLES BETWEEN PLOT AND"w^ 7"MOVE MODES."^724:"HIT ANY KEY TO CONTINUE...";:A$^7^:22:^:" ":22:^:MM1ĺ"ADD VECTOR MODE":_:MM2ĺ"FNTER ADD VECTOR MODE."8]6"F- ENTER FIND VECTOR MODE."]]6"R- ENTER REPLACE VECTOR MODE."]6"<- AND -> KEYS SCAN THROUGH THE VECTOR"]6" LIST WHILE IN FIND MODE."]6]6"IN ADD OR REPLACE MODES, SELECT THE"^6"DESIRED POINT SY\/SYFY191FY191SY#\/E\/24:27:"X=";JX;" Y=";JY;:n\/21:1:"SCALE="JY;" ROTATION=";JX:\2:"ACTIVE KEYS:"::"ESCAPE- TOGGLE TEXT WINDOW ON/OFF.":"1-9 SELECT JOYSTICK SENSITIVITY":"(1 IS MAXIMUM, 9 IS MINIMUM)"\2]6"A- ERUN DEMOS!"U :"D A Z Z L E R"I:::"THE NUMBER KEYS AFFECT THE DISPLAY:":"1- SET FLIP DELAY TO 2":"2- SET FLIP DELAY TO 7":"3- SET FLIP DELAY TO 255"BLOAD LORES"("BLOAD YZ3"-23:"HIT ANY KEY TO START...";:A$:017408 2"" "   (      ɛL;  P`w  !"#$%&'()*+,-./0123456789:;<=>?НLP` L PL`"