8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LMARIOSM p`MAR.SM.RT7S p`TESTMAR*""0$MENU!+ 0 GRSPKPRESHFTf`TEST.CODEMAR ADDSHAPES3!TEST.CODE2$HELPs +- !+/ MAR.SM.RT.7S p`*QUICKDRAW2*""`*"RIGHT*""*"SHAPES *""1 SHOOTOUT(*""*#STARTUP_CAR?*""*"GRSPKPRESHFTo`SCROLL.TESTLEFTR*""*"LOOKUPS*""@*"&PRODOSU:*"" PLO1*"' +SPRITES.BMP # BACK*""*",BASIC.SYSTEM(*"" 'SPRITES 'BMP2HGR<*""!+( SCROLL7BITS? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R.Lj pb8d8`(<DCp"j/p@ Px8`D0T_L8`@ qp@!(?!p@@b `CP~ B`8D q@ "@z+@2pb!8DuWd8~? }?ǀ<{`@A) H~ 1@A9sw0@G @B@$"| @X@,2_@0@`0Z@>0@@B !@a\~ 1@!_/f .@3@  ~f ) @@TQ< ! @ @F ! @ @A@~?~~|n @<`w?p @@; #@ @ ! F ,A@@?a@y~ 0A@s`wp !@a~:| /3|  ?3  k*P  Fb#@b  A ?7A @`J@R݀;P@ @pw؍p  @  ?؍#_ @ 0 p<x  | 90 ̙݀; | 0߀?q | 0u}BM>( ` `;}` ;&8RZ  HHHx?""4$>&8 LLL|0@PPPp?#D$$DDhH|Lpx0`( 0  ` FIHP`00"0"0"p?`@P@`@@@@ @ @ABCDEFGHIJKLMNEQA@Ppo9g=N@sn;n;@@`@x~|?|`b t~nL|'d?~H0|~ 0` ``}`y` ` pRK`} x|@xp?~`|@1FJ@|V?kxW** p>0x`b`#P,4 pG Pc5?*  Xo x<}w?x?` @ @ @ @ @ @ @ @p HD$B 8,}b L4 /~ ?~@` ` @C  <@4x@\~  <@+ X ? #???~0 S,@h `7@z<@<>;?<`0?x?P wj+P  @w x4P  @w0P H ` q @w?@~?@~0#1pwOOc#1Hp " )oxh 4 ?JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IջL !"#$%&'()*+ȥj>>m⻑>` !im8i仍nj廍ki滥lj绥oi>?Ek?>Q>> L>ܻ `/ e>>?ܻ?ޱ>Kpn͵ @p;=po:?Ek?!>Q>>>ڻۻ `` `>ڻ ۻ `e>>?ܻ?ܻ>?Emn(>e>ܻȱ>e?>Q>ؠ> ie>>?`׻;ػ=:<ٻ:<=;`׻׻mػ;>:8o>oȑ>ppȑ>> :oݻp` HLJپھ pHJh` H!h߻g޻tػٻpứ `޻ٻtػp߻8nٻniػtpiٻٻtụs໅o8ễpڻiۻniݻi>j?kܻڻ߻>ٻ׻pڻ׻Ii׻׻߻߻ڻ l 1ڻۻ `>i3Lm8n933LҞAAJL ةޘг uv $ 8LʞeЌ>?@`>?@`Ba8` K  LK ֟ ֟  KK`JJJJ8`轶K)` #hhp@3 @LtJ)s@J f 򟰸 p`H? hth?,E30ɍФ3 E3HD F3 Ʉ%h3 fM E  pLthɍLL3`3,A0s0% Ipn HpnI:L ؅30پھ p WH־Ǿh۰8L־JjjjZ[ɾ)Ⱦ8 AOLӜ ҤLLX>(F`־ؾپھ׾` fɄ KDEF zLp z pL[ fKɍKL?`  zL$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ͱc־JjjjZ[ (`O>0O z PODEF޾ p  ޾ p($ذ z (0 k( L?ԦʚLeةީe s  pL f,FLk,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ kB94 l% fʽ  ՚,S` H H06172839h` z97L75v^e ?/( ze?L[LLɍ$?`?e ɍɥAH93827160hH46576879h`,C fL ɍ f ,S0 @ pLޭBYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠ DHh,PIN'ҍIxy =LDIx y Jp noF == ~lm =w)!,ZJYH)h****)  md8S`\H[< h  =( +󩭙L=id =`H) +hJJJJ ɺi` [  ` . 8  `O`S  )AI-LG B C VWS ST$I2 U)VJ :T)`l8`a HbIJhjǾȾɾ p٭b=a<I/q)im@^ʈ0 L/S 51-m@ʈ0 L٨/` E չ5L/A2ʩJ -V HrTJ6LGSL )AJ E @V n k38`J" Hʩ V HЧ H HЖabT)!J B8`@U)9VJ T)h*I/W):`V)R ޾,N0MHhHh p' P,N HCNh`M`M N `޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8` ȾɾʾNfne }ȾȾI > Ie f`8` P־ǾҾ,G0C ж=W)_`ZV"׾پӾؾھ pD`Y׾ؾOW)Ⱦɾʾ pD`8`W)CB) 5W) )W)@! p:d |bk te5u N|<xDV?~h| ~ q+qpp< ,|'PX TT,8pp`xX~xO ?x |}l,pp_x_l}<@ p ,0}p@~`P,PVP~0q`9@?@w?@`@X`z`?}@_`_pR~C@@@`ddBKBi`LB@@B) ppB(`@B@`-.LLLLL[^)o `\o8` ԠŬLL,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~Tһ   LiLMTRӱüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0PENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND Hѫ5 FڬB :hQ|Q@@ -!S    !C- !ABELSDFRV@@ !$(19@E ۭ (8 mȾȾmɾɾʾiʾ` Lpl8l:/0sНsƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ ж p ධۥs׾tؾE` ( о(־Ǿ,G 8`_`W)H־JjjjhZ[ p̭ зLKǾ  . .8  0ex?>~A1@u@z@o`o`n` @ `n`  :9000% PRINT TEXT/8000F# SETUP VARIABLES\- INITIAL CURSORf27000w MAIN LOOP3000: GET INPUT1000   GET INPUT   (16384)127ľA$ A$"J"XX1  A$"="YY250 30 2 43 3 3 12 0 4 2 22 3 3 7 l16385,Yv16386,W&16387,H1163887HL SAVE ANIMUV21:1:r`21:"SAVE ANIM AS :";A$jA$""ıt(4);"OPEN";A$~(4);"WRITE";A$SXSYSWSHC1C2CN(4);"CLOSE";A$9000:xX0XXXC:E1(yY0YYYC:E1FzYH191A$"K"YY1:E1^{YH191YYYC:E1k16384,Xx16385,Y16386,W16387,H16391ZA$""b c V W X INITIAL CURSORY SAVEZ b16384,X XXC:YYYC:3400:I:AN0-A$"3"İ7500LA$"4"İ7600:A$"6":5130Rrf| SHOW GRAPHIC16386,W:16387,H:16394n o p SAVE SCREEN q UNDER CURSORr tXW40A$"L"XX1:E1uXW40XXXC:(7):E17000: INITIAL CALL7 ANIMATION COMMANDSU IF ANIM=NO THEN RETURNA$"5"SXX:SYY:SWW:SHH:C1XC:C2YC:21:"CELLS ?";CNA$"|"İ9500: SAVE ALL SHAPES IN ANIM A$"6"XSX:YSY:WSW:HSH:XCC1:YCC2:AN1:6000:I1CN::X ";A$/ (4);"BSAVE ";A$;",A16995,L";(HW)? 23::1:A$E L  S  c  LOAD HGRj  q  21:1:" "; 21::21:"FILE TO LOAD ";A$ (4);"BLOAD";A$;",A$2000" 9000 5500S1:A$"":7 A$(13)FS1Ĺ16301,0:FS0:A$"":O AN1ı: animatingi 5100: ANIM CMDS s A$""y    CAPTURE SHAPE   21:1:" ":21:1 "NAME OF SHAPE TO SAVECB C A$"8"Ĺ16301,0:21:1:"WC ";WC:21:10:"HC ";HC:9000r D A$(27)ĺ(4);"PREFIX /":(4);"RUN MENU" H H0H1 R W0W1 XOXYOYWOWHOHİ6000::OWW:OHH:OXX:OYY 23:30:"H= ";H;" W= ";W; A$(13)FS0Ĺ16302,0:F16403 A$(22)Č164061 A$(9)YYYCH (A$)(11)YYYC] A$(10)XXXCr  A$(12)XXXC  A$"9"Ĺ16301,0:21:1:"XC ";XC:21:10:"YC ";YC:9000 A$(23)HHHC * A$(19)HHHC 4 A$(1)WWWC > A$(4)WWW0234589  A$"-"YY25& & A$"L"XX18 0 A$"I"YY1J : A$"K"YY1\ A$"A"WW1n A$"D"WW1 A$"W"HH1 A$"S"HH1 A$"1"İ5000 A$"2"İ4000:9000:A$"" A$"."Ē0:Y9135180:240,Y9270,Y9:Y9:7 A$(24) LOAD ANIM21:1:A21:"ANIM. NAME TO LOAD :";A$NA$""ıb(4);"OPEN";A$v(4);"READ";A$~SXSYSWSHC1C2CN(4);"CLOSE";A$ 9000:> ? @ SETUP VARIABLESA B .Lj pb8d8`(<DCp"j/p@ Px8`D0T_L8`@ qp@!(?!p@@b `CP~ B`8D q@ "@z+@2pb!8DuWd8|bk te5u N|<D32 D15ēCT3,RT:DD168 D7ēCT4,RT:DD8P D3ēCT5,RT:DD4h D1ēCT6,RT:DD2z D0ēCT7,RT "COL:ROW ,"DONE!" 21:1 "NAME TO SAVE GRAPHIC AS ";N$ (4);"BSAVE ";N$;",A$2000,L8192" (4);"RUN MENU";=FILE.":N SD16384(16394)(16395)256(16396)65536(16397)16777216W :3p 1:21:"LOADING..." ROW0191:COL034 D(SDROW36COL) CTCOL8:RT191ROW D127ēCT,RT:DD128 D63ēCT1,RT:DD64 D31ēCT2,RT:D FILENAME BMP2HGR"430( U"BITMAP TO HGR CONVERTER BY TOM GREENE"]10s"FILE NAME: ";F$F$""ī430d(4);"BLOAD "F$",A$4000"nID$((16384))((16385)) xID$"BM"ĺ"THIS FILE DOES NOT APPEAR TO BE A VALID BITMAP 0 124 3 16 5 5 6 0%XSX:YSY:WSW:HSH:XCC1:YCC2:AN1:6000: SAVE SCREEN UNDER CURSORm:%A$F$"0":4030: INITIAL FRAMED%:I1CN: COUNT THROUGH CELLSN%:XXXC:YYYC:3400:%N$(48I)%A$F$N$:4030%I:AN0%9000: DRAW CONTROLS% #<#"JKL ASD CTRL=FAST"EF#"1)LOAD HGR 2)CAPTURE SHAPE"P#24:1:"XC ";XC;" YC ";YC;" WC ";WC;" HC ";;HC;" ";Z#% SAVE ANIM SEQUENCE AS % AS SERIES OF SHAPES% %!%22:::::22&%"FILENAME TO SAVE SHAPES ";F$I JX0KOXXTY0$UOYY<VXC1:YC1:HC1:WC1V^W2: WIDTH IN BYTES_cOWWxhH10: HT IN PIXELSmOHH(4);"BLOAD YLOOKUP,A$7000"(4);"BLOAD SHAPEROUTINES"l &# '# (#21:12#"-I- MV CRSR -W- CHG SIZE"A@`HHqn`o@ @!@~'xAap;@{\~ ?pPx ` ?@ @F @"@ @`aA@'?@_<f p@`zp/0}A? " EAAB@@wCCGe@&?\~P @@ ~pp\`9`=`=@@h/ ppAx>8h 8 pHah0,p4xtxKxx|x`@p` @#@@?@{!s y@!~ ?@ |\? @ @T(+\_@ @ 00xRR`nqw@{x; L @`?@u`_`za_D @ n,<<4~8~8:| 1  |`;`9x?|@{@{P<  0@X  ,4~ 0AAB@@wCCg\Pi`|@@0 JB!0q Vpkppxp@?`p x88~lA978>@#@%@ ~ k@? @uq/\ Xxxh P)|qtx@b(@ @(x@w@s@ 1ww~?>??`<`=;n y @`~1@X|`~nO8 | 0?@| 0 `  B0e& ,`W P ^@`` p|p>GF@@wCB?h|t`/x#bP@@p@`CPaP~~ pip 8<0qpQ|}A??xchq||~~~@<<<<p@v\@r)@!@}#<b41 x7@}\ p @:X x@` @8 @$(@@ 1@X>@/#@A``p$ $ |@?wpw  @ <A@@`Ax`} nPx hppGF  #`@  C ~~`S`/``p` <?~@x 01F:wCf?~r ~? 0pp>p| 00PVj p>|xx}||xxxxp8l8 8<`ux 0~p||~|?@p`x@@ L @``}@y@@|`?A|F`~nN`` 0inBo  |))x`}| t?@xx <<_\@@#@# @{!at~zA_|1@q4xd04Tx+0x`b`#P,4 pG Pc808|@~`/ ?|@~pp{xxpqpq<<XpDh|\xOH|'d?`x|1@` @A @?@{!@s'@@`nw@{!@p;@%%pp\@_b x3,~5V?|k TT 0 @`}`p@E@G`_A{` G # `^sN{@\w\w@?/p|x~~0@eSB{GxDhb@Fpo{ p>0x @+j`H|`?AAq@HP$ " `Q1}_F3Px80~pxOr@qxc ? J Jl}?78??D( pgX~|k,~5@((@` @! @{!@a#  `oyw@.@?F@@ @B}OppA`wwp`p> x}@_@~~? 0|@ AD~?, &u`/O~?y``wpp<`c`c@wn0` 3P@@8`O0}xWX~QP"(  ?xN8nx_{p^p^O l`# # P@?l@` @! @{!@a3.(@ovpD @D$,84Du|z` <<x @on ` @`}@pz?}?~`x|2XLq`}~r@@o``x@G@G>|`@~?~?~_`xp|?`f pp>`|`? ~pycpGAAAwCgO005 -wCaw @@ ~@@@?|p~~(@@X?@G ,@FhX?  @%!Hp_{kx5EQA@Ppo9g=N@sn;n;@@`@x~|?|`b t~nL|'d?~H0|~ 0` ``}`y` ` pRK`} xOvwxyz{|}~뿩 8!@8` MNЩUMܩ  L 5   8 0 8 `0 / x X$$%&%0`ŠӠЭ[ V7 c L '0%O '8O JmO * ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`;YYZLYLYLY"7"Y"/"ll"*# HQ$WON!-PB}OBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ TVWXYZ[\]^_`abcdefghijklmnopq)f 8'  )ɀ)4,- U JNT)  !N)Gi/ "4 "" " " iL X%!L!ΠΠҠ`C! $ " " &#M8nf $ ) L! " " &J, )7(P0  ( @p !"0 *%"0"" &/) )"" &ЭL!)0I0 (Щ ߍ ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?p< ,|'PX TT,8ppxDV?~h| ~ q+qpԠŠҬîʎ1DžϠl&8f ZHH)hh8JhJJJJJ j&Hk&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 |&`L($_l&j"L  <8# ȱ)ɀ  )t& ` (Xp< @t& )mt&t&.t&w& Mt&i  ``rȱȱȱȱ0]cȱeem(ȱ(ȱ((ȱ 밯ZF[G 밠S%܈P" X)Im'܅F(܅G)܍^*܍Q 4 䭐 $H %HFFHGHG 됨`R8`)` QH_` :R(5IHH__Ѝ_@`8 e ͙_ʈ@}ȱ@oȱ@y{|rZ[_)7_I0ܢܽ \'Q*ܩu 7pqFG (ST L܅I^ mQIH` } }Y0\F]G Q_HZF[G` G8`F@ 0 e LK8`F GI8`FHGH hGhF܌ բFܽܕF芝ܝ 밶FFGG H܅I mIIHHyHȘI Lܝ` @o@ w@Ю׍_)m0JHi 뎑`C8` @ 3N@) d莽 ⭺i`0 v0GF #0 W,0 ).H hȑNWȮّNW8`ٍّNθ0NN,뎞׮Б` L` @>_)I38Ypqם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA <'KI؍'P0ōҍJJJJ ɺi) ɺiLD )?      `l@Hȱ@IױHXATȱH ɯȩ׍̞5H)/@a)_ .0 :A[8@`@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ# ߐ ߐ ߐ 0 HϭߍLпllllhh8` QSTV،h@ihAiȱ@JJJJq@)@evȱ@Hȱ@Ah@@cee J) LxL LxJiB LxJ) GxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@ڍL3<>=?<>CAB@?A` 1 L  <>` ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112`݁(݉(`}(`e`H)hJJ?(0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <((ȱ( Y'( ' f'L&`L' 'L' Y' L& Y'L'8ei` ,$`ee` `( '( (` *( ' (`hh8`8`(* ΙQ8`5IF܅G 됾`\܍]^ {8D`F` tlH)HFȍZHG[ $%܍&܍!ܢ8* J8` L ܝJ)I 'ܝF`R8i^F\G]`R5IH3H ( )ȱHθ`Κ8QeHI SBF0Y ٙWٙUFZSʈ {猺`8m0`,0H hi L荸Ƚθhٍ0GF8yאFG  ` i 8`L L )ܹ0 )p )@ )  ؝X0ZF[G 밝 \]Z[FG 嬒؍r؍s؝t ؝o _) _ )حYͦ `H@h ع H ؙ؊ؠIhHIhH  iع `   عiعi` )؍0CGHFHBFG ުhFhG`@5͔ M @Bi ׭` &. J#ع؍0 v讑)`L@.jIHIH؊  )PLEήʱNLMOMEKP%MEKήL< O,  PeNNO f(` R  F 8AJHIHI؊ HIHI`  ;` 8A H `@Nȱ@O`؝}I轆ؐ` ~ؽ؝ ~ = ~؝؈` ` H  hh)N@ X; L  H$ )bJ s ) H LhL ) 8  )حJ@ȭ@LH쬒8NNO 8 ؍JL`RήʱLN.MOMEKP/MEKήLML-M O,p莭eNNO(`JNKOL H/  :P L8 gؑJ`L@ȱ@` H h)N$% LL L L H  :pJ덯 )@፲NJOK HiKKήή IJί JФ̭JjHFIH HIGxKE ް((H hH h8`8_JJJJح}) ) )в|J8` GpF $ ᭔ع+ؠ HH  Jh8` 䮑ٽ ٬ؠ@` ( X )8`)i пJGBJ a FإG`BH aFإG`H hHB؅F  ؅GxDE؍00C ް(`(8` L7J  G"L H  G 9ؙ` @ P8`B8` X؈ ;JHIH ILFFHGI ѭJjHIH;7IؙJJ g3HIHILJKJK`FHIG ( Ȣ؝؈JL)eKM`)` J Jͫ $0 ΚJFJL8`0C ް(`(8`ؑ@`M8`8@ؐʈI묒)8 L LةC8`؍)@ i)8zJ _ ؅F L) +&J(b ;FإGؐ/8`*J۩ ٰ`JJJJi LdH8`ͦ ٍ0  ` `ٍyٍiB0H0FG h0`שB5xED "8`  `ٽJJJJ`H͜hn)NjNjNjN. dH͜ ;٭ *Nۙ۰ڙک `Z8` d# B` . . .8۰0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`) 8ʈ` )0ٝ)i `8`R "ꍜ NمFمG < Μ0 FGL鮑0 ٭٭ٽ8`H8`  ,0 d01 E8`100 v$0ʩGF 밽 谸 谳`12)1`0`Ȏi 0U`)8`θ` )W G JA)H ܝʈh٭`h``N8`  ) X⬒Ȣ؝@ݪ@ʈLf &KIJHȢݪ)Jn 8  ؍ ؍ xH8 ع)JJJJ Ȣ؝I؈ Hh(8H X &h(8Hh(`ؑ@`@ȱ@ ` B@8Z_ ~鮑ٍٍٍHٍ~8rhs_JJJJ_ )_@` %I -}) ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿLL`BLLޢޢޢޢޢޢޢޢޢޢޢޢޢޢޢCOPR. APPLE,1983LM Mh@8nЍLޭ 0J @,,L:,L@   !"#$Ԡ͠ˠĠԠhhhhILhH),dx8 (8`@Ae f!55s+aIJK,-NOPQRSuHUSTON!' J5 s9X(K sXXK تKo`V8`no` < on sI9XX`)HJJJh`OeNeO࿰ s9XАO`@ȭ@` ON YNJKO`HHHHх܅F݅G ` ͬ 밽܅F݅G ` * % L`FGL 4܍ݍ8`FHGH 4ܙhGhF`@Bɼ>K@yٙ٩`O dIpFqG :%&N  # 4܅F܅G `J HH hh` 0 @ L\L# [Tܝ ݝ0ȩFG  0` רם__)׍_pFqG 밍 :Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8````p` <?~@x 01F:wCf?~r ~? 0pp>p| 00PVj p>|xx}||xxxxp8l8 8<`ux 0~pA@`HHqn`o@ @!@~'xAap;@{\~ ?pPx ` ?@ @F @"@ @`aA@'?@_< p0`(@3@"p9X& (0 ``0H3^h8~  @ES" l &#'#"(#21:1O2#" I MOVE CURSOR W CHANGE CURSOR SIZE"v<#"JKL (CTRL=FAST) ASD (CTRL=FAST)"F#"1)LOAD HGR 2)CAPTURE SHAPE"P#24:1:"XC ";XC;" YC ";YC;" WC ";WC;" HC ";;HC;" ";Z#@RZ@ @@ |Fbd MENU" rt 1 "8) CHANGE DISTANCE OF CURSOR RESIZE"7 Q "ESC) RUN MAIN MENU"W } "PRESS FOR NEXT SCREEN" A$  "ADDSHAPES :"  "SELF EXPLANATORY. " "PRESS FOR NEXT SCREEN" A$  (4);"RUN "CAPTURE PROGRAM: "&V(" I MOVE CURSOR. HOLD CTRL TO MOVE FAST"d24:"JKL"j<F" W RESIZE CURSOR. HOLD CTRL FOR FAST"P"ASD"Zd"1) LOAD HGR 2) CAPTURE SHAPE"n x"9) CHANGE DISTANCE OF CURSOR MOVE" &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ ƠϠ ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$@A``p$ $ |@?wpw  @ <A@@`Ax`} nPx hppGF  #`@  C ~~`S`/||~~~@<<<<p@v\@r)@!@}#<b41 x7@}\ p @:X x@` @8 @$(@@ 1@X>@/#~?~?~_`xp|?`f pp>`|`? ~pycpGAAAwCgO005 -wCaw @@ ~@@@?|p~~(@@X?@G ,@FhX?  @%!Hp_{kx5 t?@xx <<_\@@#@# @{!at~zA_|1@q4xd04Tx+8h 8 pHah0,p4xtxKxx|x`@p` @#@@?@{!s y@!~ ?@ |\? @ @T(+\_@ @ 00xRR`nqw@{x; L @`?@u`_`za_D @ n,<<4~8~8:| 1  |`;`9x?|@{@{P<  0@X  ,4~ 0AAB@@wCCg\Pi`|@@0 JB!0q Vpkppxp@?`p x88~lA978>@#@%@ ~ k@? @uq/\ Xxxh P)|qtx@b(@ @(x@w@s@ 1ww~?>??`<`=;n y @`~1@X|`~nO8 | 0?@| 0 `  B0e& ,`W P ^@`` p|p>GF@@wCB?h|t`/x#bP@@p@`CPaP~~ pip 8<0qpQ|}A??xchqz` <<x @on ` @`}@pz?}?~`x|2XLq`}~r@@o``x@G@G>|`@O l`# # P@?l@` @! @{!@a3.(@ovpD @D$,84Du|SHAPESu"' *""' 0')ADDSHAPES*""+ QBRK0*`QBRK1*`QBRK2*`QBRK3*`QBRK4`xX~xO ?x |}l,pp_x_l}<dd 7cζc0`$% " cٺϺź`L8d``` `` (b``` ` ` `x `Len `Led `Le( `Le `Le `Le) ` ` b` Lc HH`)d)dHh` d X e d Ld c d ge e0L2dLMe"c=c cc x`Ldcλc cc ````c`c`` cc Pa`dd dd a` bc((((PPPP Q8L?c3c8LSc4c5c4cȮ3ccccccc2c@ac}P4cȮ3c@` dc dc 󩣢c `hh  ) pp$ `8L-b|ȹ|  |ȹ|i|bib) pp(| `8Lb҆ȹ҆  ҆ȹ҆iҍbib) pp(҆ `ȹށ  ށȹށiލ?ai@a) pp(ށ `8LUaȹ  ȹiaia) pp( `8Laȹ  ȹibibL,dL `r8L`ȹ  ȹig`ih`) pp( `8L}`ȹ  ȹi`i`) pp( `8L`ށJ'vp PD #`_v 0 @`}`pWT@_{x@b "HD+`Tbz> @B}OppA`wwp`p> x}@_@~~? 0|@ AD~?, &u`/O~?y``wpp<`c`c@wn0` 3P@@8`O0}xWX~QP"(  ?xN8nx_{p^p^*`QBRK5*`QBRK6*`'ALLCAPS *"" 'SPRITESP GRSPKPRESHFTo`MAR.SM.RT0*cB :?"SHAPE TABLE CREATOR:":"----------------------"XSLOC32768: $8000"LOADS FILENAME1 THROUGH #OF SHAPES""CREATES THE SHAPETABLE REQUIRED BY GRAPHICALLY SPEAKING PRESHIFT ENGINE"::: "ENTER SHAPE WIDTH ";W 000"& @:"BLOADED ";A$;I;",A$2000"6 :C0(WH)I :::D(8192C)y ::: E = (I - 1) * (W * H) :::PLC,D :::"MOVE ";D;" FROM ";8192C;" TO ";PLC :::C: :PLPLL: I XL(WH(NS1))16 b"NAME TO SAVE? " ";SLOCI PFFL ZI; dWLSLOC((NS1)2):HLWL1K nWL,W:HL,Hc x"WL ";WL;" HL ";HLk }A$ PLHL1: poke loc "FILENAMES TO LOAD? =CAT ";:A$ A$""ĺ(4);"PREFIX":(4);"CAT":200 ,I0NS 6:(4);"BLOAD ";A$;I;",A$2 "ENTER SHAPE HEIGHT ";H: "ENTER # OF SHAPES ";NSD LWHM (F16 2I0((NS)2)2: step through address offsets <:::::SLOCI,(F256): poke hibyte F:::::SLOCI1,F(F256)256: poke lobyte K"I ";I;" F ";F;" POKE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~PPp(x  II$&@L 2@d$#V?U*u` !|pxxL`p {05x/Z3ST xx X gNN<8o(}`z`p p r@>`` p/ dTrl?uwW!`Gq@s88xx x `5;/xd!br'#brbr'#`xxxx`<xx`xx`0\WzUzo2xd``p,(  H@ ;%]~t ht t h?n,y@@@@LE pw`p'TU0 xx (  s&, <nVPz x @`PP0oV\zf-E k:+*uANw<@s8989|x0{p_ /pG4qq0`xxHH@'$n: 0  00~8W|w|BuqxGxxx`  0||@psf@O#V5 (  (@3`L3`@ p ,0}p@~`P,PVP~0q`9@?@w $n:z2&/&/.;`xpxx`/x #ocnv1<f-`ppp@ C/0&/V\zp/u/U{d&`T<@H3||||8x 0 {p_  `` H$ H@  @$  2@4@0& &zJ 9(}`z05pp,<<xh  8o` !|ppz~x0^``h085;/d? 7km\$ ?x/Z3`<<P<@DX `tp`0pCp'p&`|S@gn?n?AL ? TrldSlppppp ``@II$&@L 2@d$qCAF1A1AaG?o^}ffL gT@Pz `pxx .xp <nVpp~p 2@ @ T/h)N_ /V\?O}OtG`>1t'T<@<<0<`H ( {p  2L4|8`p@@@`/p?@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@~`kv@[~zf-e PP` gsH&O p<i@s9#W5Q~$0$$0?W.}za20`z05x/Sm88 f88o(}tppzp`@3@3H0s/dT {b;cdF7xZ3@H:<<<<8<` X `5;qCn<3f0f0;`ppp`?p `~0_yyqF>lrldSm 0`` 0@ eRH&K P, i@2)/W5]~pd!Bd!d!B?V,y~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>pp,|hz `p'[Uxx(g<<nVPz~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~0paaSCaeaeCC0t b\SQ0.^Ix7@@.O.O!L@\zf-[mar2tex@K r r|{p_ /V s~;~;A(h~p'T< ||`<@\( L`8L`p`ȹp`  p`ȹp`ip^`i`_`) pp(p` `TTESTBRIK *cB&TESTBK *TEST.CODE3MAR.SM.RT7S p`TEST0>*cBTEST1Q*cBMAR.SM.RT1*cBMAR.SM.RT2*cBMAR.SM.RT3*cBMAR.SM.RT4*cBMAR.SM.RT5*cBMAR.SM.RT6*cB(DRAW.ONEE2j/b! ~A1@u@z@o`o`n` @ `n`?@`@X`z`?}@_`_pR~0ex?>i'' do(}`z05xxpd 8@3`L3`#eE:I=v@gp8p8<<2`5;/y:y:BPx/Z3Sm  xx8@ X d!br0 44 0tHQ.k*jPW9Axw@p@ppQwdTrldSE``0||@psf@Ot pLrDp@xH@=`` \nVPz `pp <<pt  <@@@L`8L`p`ȹp`  p`ȹp`ip^`i`_`) pp(p` `2288,13312,14336,153604 <# 8320,9344,10368,11392R F# 12416,13440,14464,15488:(4);"RUN DRAW.ONE" 10 screenx +Y0 ,X06* 1YLOC,Y5 6SCX,X@ @24576K EYY15R JX T"FILENAME TO SAVE HGR TO SKIP";A$:A$""ĺ(4);"BSAVE ";A$;",A$2000,L8192" 24 " TO GO TO MENU";A$ (4);"PREFIX /":(4);"RUN MENU"  FILENAME DRAW.ALL#410)3:24M"SHAPES TO LOAD ";A$]A$""ī410| (4);"BLOAD";A$;",A$6070"(4);"BLOAD GRSPKPRESHFT,A$6000"(4);"BLOAD YLOOKUP,A$7000"d grspkpreshft variablesnYLOC2: screen y xSCX4:0ex?>:d |bk te5u N|<xDV?~h| ~ q+qpp< ,|'PX TT,8pp`xX~xO ?x |}l,pp_x_l}<@ p ,0}p@~`P,PVP~0q`9@?@w?@`@X`z`?}@_`_pR~X @24576 JX# X5011 YLOC,100< SCX,XG 24576N XW 300 !"SHAPES TO LOAD ";A$@ (4);"BLOAD";A$;",A$6070"g(4);"BLOAD GRSPKPRESHFT,A$6000"(4);"BLOAD YLOOKUP,A$7000"d grspkpreshft variablesnYLOC2: screen yxSCX4: screenxYLOC,100,X02001YLOC,100 6SCX, d q D`p |A$ , (# 8192,9216,10240,11264K 2# 12288,13312,14336,15360h <# 8320,9344,10368,11392 F# 12416,13440,14464,1548814):HEIGHT(SLOC15):SPNTRSLOC16, "H #I020:7:I,0I,20:IS $I06 %SPNTSLOC(SLOC(I2))256(SLOC1(I2)) &24:1:"spnt ";SPNT ,H0HEIGHT1 6W0SW1 @SL(H)W,(SPNTR) ESPNTRSPNTR1 JW TH YA$ wI :9"DISPLAYS A SHAPE CAPTURED BY CAPTURE PRG"S "SHAPES TO LOAD ";A$h (4);"PREFIX /"(4);"BLOAD ";A$;",A$6070"(4);"PREFIX SHAPES"(4);"BLOAD YLOOKUP,A$7000"'SL(15)(I015:SL(I):IdSLOC24688& SW(SLOC, (4);"BLOAD MAR.SM.RT7S,A$6070"L(4);"BLOAD LOOKUP,A$7000"r(4);"BLOAD GRSPKPRESHFT,A$6000"x(Y100dYLOC2:SCX4nWIDTH8:HEIGHT9xWIDTH,3WIDTH,3HEIGHT,14I1200SCX,I24576IR~0ex?8b |bk te5u N|<xDV?~h| ~ q+qpp< ,|'PX TT,8pp`xX~xO ?x |}l,pp_x_l}<@ p ,0}p@~`P,PVP~0q`9@?@w?@`@X`z`?}@_`_p8b |bk te5u N|<xDV?~h| ~ q+qpp< ,|'PX TT,8pp`xX~xO ?x |}l,pp_x_l}<@ p ,0}p@~`P,PVP~0q`9@?@w?@`@X`z`?}@_`_p\\08>@ppx`3Px80~pxOr@qxc ? J Jl}?78??D( pgX~|k,~5@((@` @! @{!@a#  `oyw@.@?F@@0p   @p@prg@xx@^yPD0p `a`@s@`qK@H 0x @+j`H|`?AAq@HP$ " `Q1}_F@ p ,0}p@~`P,PVP~0q`9@?@w`xX~xO ?x |}l,pp_x_l}<p< ,|'PX TT,8ppxDV?~h| ~ q+qp|bk te5u N|<DC@2pP~ 808|@~`/ ?|@~pp{xxpqpq<<XpDh|\xOH|'d?`x|1@` @A @?@{!@s'@@`nw@{!@p;@%%pp\@_b x3,~5V?|k TT 0 @`}`p@E@G`_A{` G # `^sN{@\w\w@?/p|x~~0@?@`@X`z`?}@_`_pR~0ex?> ";C21::21:"FILE TO LOAD ";A$b(4);"BLOAD";A$;",A$2000"l9000v600055007000| SHOW GRAPHIC16386,W:16387,H:16394nop SAVE SCREEN q UNDER CURSORrt  #  CAPTURE SHAPE) / k 21:1:" ":21:1 "NAME OF SHAPE TO SAVE ";A$ (4);"BSAVE ";A$;",A24576,L";(HW) 9000     LOAD HGR  !21:1:" (4);"PREFIX /":(4);"RUN MENU"0 H H0H1= R W0W1 XOXYOYWOWHOHİ6500:6000:7000:OWW:OHH:OXX:OYY 23:30:"H= ";H;" W= ";W; A$(13)FS0Ĺ16302,0:FS1:A$"": A$(13)FS1Ĺ16301,0:FS0:A$"": A$"" ";XC:21:10:"YC ";YC:9000@ A$(23)İ6500:HHHC:6000a * A$(19)İ6500:HHHC:6000 4 A$(1)İ6500:WWWC:6000 > A$(4)İ6500:WWWC:6000 B E1İ7000:E0 C A$"8"Ĺ16301,0:21:1:"WC ";WC:21:10:"HC ";HC:9000# D A$(27)İ6000% A$"S"İ6500:HH1:60007 A$"1"İ5000I A$"2"İ4000[ A$"3"İ5500{ A$(9)İ6500:YYYC:6000 (A$)(11)İ6500:YYYC:6000 A$(10)İ6500:XXXC:6000  A$(12)İ6500:XXXC:6000  A$"9"Ĺ16301,0:21:1:"XC u6000%  A$"="İ6500:YY25:6000D  A$"-"İ6500:YY25:6000b & A$"L"İ6500:XX1:6000q / Y0ī3130 0 A$"I"İ6500:YY1:6000 : A$"K"İ6500:YY1:6000 A$"A"İ6500:WW1:6000 A$"D"İ6500:WW1:6000 A$"W"İ6500:HH1:  :9000$ PRINT TEXT.8000D# SETUP VARIABLESN(6000`- SAVE SCREENj27000z MAIN LOOP3000: GET INPUT1000   GET INPUT   (16384)127ľA$ X0ī3110  A$"J"İ6500:XX1:B*""@*#RIGHT4B*""@*#RIGHT5B*""@*#RIGHT6B*""@*#RIGHT7B*""@*#-SHAPEROUTINES,e*""@1 YLOOKUP*""@*#'CAPTURE2Q *""!+'MAKEHASH2*""*#MAN *"" %-MARKBYTES[*""*#RIGHT1B*""@*#RIGHT2B*""@*#RIGHT3~A1@u@z@o`o`n` @ `n`XW40A$"L"XX1:E18uXW40XXXC:(7):E1LxX0XXXC:E1`yY0YYYC:E1~zYH191A$"K"YY1:E1{YH191YYYC:E116384,X16385,Y16386,W16387,H16388ZA$""bcd LOAD BACK  "HEIGHT ";YS:YYS2*Y1150YS10@0,Y279,YS0,Y1279,Y1ZYa7qY1150YSX02797X,YXYXY1150YSbX027928lX,Y1X20,Y1vXY X2127928*X,0X,150 4X^1 #t1@ x`@f cD1 O$D"@on`  !"#$! (4);"BLOAD LOOKUP,A$7000"F(4);"BLOAD SCROLL7BITS,A$5FE0"Lm(4);"BLOAD SPRITES,A$2000"#7:0,50110,110224544<50pp)`@b8`@@8qp@L @b@8Ff`DG@ 0dH@ ^X Hp2dxH `p?xp`8  1|>@   #& `y`O`@`8(PL&($ |Q\8@0h`(@B L0"& @s "0@d0 _ $  P(  SH$@|~0'$ > pP@ L&D$@ ^T(@ HP0<x?~x0<`(@( $(@#( 8~\H|9P (   "h4 b(@4d $ `x `HL&/z @D@ H H 8@9 (1`(|hF L.P (  $0 D"`H$ @& `D624 N@9@@xp F X "  !_@@ F@1j1 @ (@3.@"f@0D0"1 (4);"PREFIX SHAPES":(4);"RUN ADDSHAPES"(?D0SPNTR) ESPNTRSPNTR1! JW( TH (# 8192 ,9216,10240,12288,13312,14336,15360,8320,9344,10368,11392,12416,13440,14464' (4);"BLOAD MAR.SM.RT.7S,A$6070"G(4);"BLOAD LOOKUP,A$7000"MY'SL(13)o(I013:SL(I):I~dSLOC24688SWSLOC14:SHEIGHTSW1SPNTRSH1"WIDTH = ";(SW);" HEIGHT= ";(SHEIGHT),H0HEIGHT6W0SW @SL(H)W,(pbB8!8`8 7I62797-(I,0I,190:42IY<(4);"BSAVE BYTES,A$2000,L8192"@+ `DF @@`@18>2`Dzq<L&~~@_``?|8!B@@0&'8p|~P, ( (4);"BLOAD MARIOSM,A$6070"H(4);"BLOAD LOOKUP,A$7000"NZ'SL(13)p(I013:SL(I):IdSLOC24688SWSLOC14:SHEIGHTSW1HEIGHT(SHEIGHT):SW(SW)SPNTRSH124"WIDTH = ";(SW);" HEIGHT= ";(SHEIGHT)  FILENAME DRAW.ONE#510+:[ "DISPLAYS A SHAPE CAPTURED BY CAPTURE PRG"u "SHAPES TO LOAD ";A$ A$""ī510(4);"BLOAD ";A$;",A$6070"(4);"BLOAD YLOOKUP,A$7000"'SL(15)(I015:SL(I):IdSLOC24688 A$"1"ĺ(4);"PREFIX SHAPES":(4);"RUN CAPTURE2"l A$"2"ĺ(4);"PREFIX SHAPES":(4);"RUN ADDSHAPES" A$"3"ĺ(4);"RUN BMP2HGR" &A$"?"ĺ(4);"RUN HELP" 0A$"4"ĺ(4);"PREFIX SHAPES":(4);"RUN DRAW.ALL" :A$"5"ĺ(4);"PREFIX SHAPES"  :"MAIN MENU: "$10=("1) CAPTURE SHAPES"C)g2"2) 'COMPILE' SHAPES TO TABLE"m3<"3) CONVERT BMP TO HGR"=F"4) DISPLAY ALL SHAPES IN A TABLE"PZ"5) DISPLAY 1 SHAPE"dn"?) HELP""20,A$4 ) (4);"BLOAD SHAPES/ALLCAPS"121]"SHAPE CAPTURING AND ANIMATION SYSTEM"("COPYRIGHT 2006, RICHARD JACKSON"2"PRESS RETURN ";A$<(4);"RUN MENU"!T_((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@@@@@@@@@@pp@m@I@@@`@@@I@`!@#@bB$@aB@#@pp"@cB@#@$@`_BbC`BcCbBeCaBdCbBaBmaB@cBfC@`eCdCmdC@@@@) pp@(fL@L@L%@Ls@L@LALALB#@_B@`B @@aB@bB@@@ @pp@cB@ @@ ZA`aB@`Bpp_BcB@`BbB` %@ @` s@ %@ @``Bpp DA`Bm@pp DA@@@@@@@@pp@I"8`DA$ ,H0HEIGHT" 1"H ";H. 6W0SWD @SL(H)W,(SPNTR)V ESPNTRSPNTR1] JWd TH (# 8192 ,9216,10240,12288,13312,14336,15360,8320,9344,10368,11392,12416,13440,14464SPNTRSLOC3 24:"WIDTH ";SW:"HEIGHT ";HEIGHTC ,H1HEIGHTO 1"H ";H] 6W0SW1s @SL(H)W,(SPNTR) ESPNTRSPNTR1 JW TH 24:" TO GO TO MENU";A$ (4);"PREFIX /":(4);"RUN MENU" (# 8192,9216,10240,11264 2# 1MOVECURSOR **TEST/0+ 0"(CAPTURE21 0*!1POPUP60405EN070606SPINNER:11CAR `px|f?B?CgCGgO~?Ppp`;A$& g PRINT CHR$(4);"PREFIX /"M l(4);"BSAVE ";A$;",A";SLOC;",L";L` v"LENGTH = ";Lq {"SAVED ! ": "PRESS ENTER TO RETURN TO MENU" A$  (4);"PREFIX /":(4);"RUN MENU"7)(W7)1,YH1>%?;@ SETUP VARIABLESAAGBOJX0XKOXX`TY0iUOYYVXC1:YC1:HC1:WC1^W2: WIDTH IN BYTEScOWWhH10: HT IN PIXELSmOHH(4);"BLOAD YLOOKUP,A$7000"(4);"BLOAD SHAPEROUTINTOe SCREENf$n16384,X1x16385,Y>16386,WK16387,HV16391`5500flVrWX DRAW CURSORYZb7lX7,Y(X7)(W7)1,YvX7,YX7,YH1X7,YH1(X7)(W7)1,YH1(X7)(W7)1,Y(X X10:Y10X,Y421:"X ";X;" Y ";Y;" "<(A$N2A$"J"XX1`7A$"L"XX1r<A$"I"YY1FA$"K"YY1P20 SPRITESP QBRK1 *`QBRK2 *`QBRK3*`QBRK4*`QBRK5*`0 5 4 14 0 15 7 QBRK6*`QBRK7*`TRYQBRK0*`QBRKMARIO.SML.RT0*`
Make your own free website on Tripod.com