' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./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(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-( p Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(` d£֠ԠŠz# u`6 KM6a(ӭàϠҠΠ)d6Ued6UeDa()a(Ԡé)Ja()a(ӭàŠ)Ba(ЮϮؠ)a(Ӭ͠ĠӭàϠҍ͠ϠŠŠč̭ððĠӭîͮϮÍàĠŰưĠŰĠŰİĠŰ ĠıǍƸƸ͍ðijǍR PAGE*** BOB SANDER-CEDERLOF ***DRANGEXTRA DEFINITIOBAD ADDRESUNDEFINED LABEBAD SYMBOVALUE > 25NO NORMAL LABENESTED .ILOAOPEWRITDELET ERRORMISSING .D.DO NEST TOO DEE ERRORS IN ASSEMBLYKEY TOO LONNO MACRO NAM REPLACE?REPLACE TOO LONBAD MACRO PARAMETEUNDEFINED MACv~SBCSTASTXSTYLD @ST 0PLDD`STDpSTPADDSUBCPRINRDCRPOPSETS-C MACRO ASSEMBLER ][ V1.0 SYMBOL TABLE *** SOURCE PROGRAM: SYMBOL TABLE: MEM PROTECMEM FULSYNTANO LABEBAD OPCONBK RS ADCiemaqu}yAND)%-!15=9ASL BIT$,CMPCPXCPYDECEORIEMAQU]YINCJMPLJSR LDALDXLDYLSRFNJV^ORA  ROL&.*6>RORfnjL e0eL$AS%AT!BSWDADOELENEQFIHSdIN'LIMABORPGTATFTIUS CCCSEQMI0NEPLVCPVSpR NCC P M Z NZM1NM S BRKCLCCLDCLIXCLVDEXDEYINXINYNOPPHAHPHPPLAhPLP(RTI@RTS`SEC8SEDSEIxTAXTAYTSXTXATXSTYART 5, 5ҰpFp LP`8$04 STU#Vp ! ݥSӥT /` < e߅ߥee^^e__`$ ۩ JLL$LH, 5Ұ,MN FhHhHhLP LeL  eL$e0I/ L #/ 5,˥۰dVdIɢLݕʕL@J̕J өX  @ʕݕεJX LPLm$ ʊHMH` d LP d``L$0 ݥӥ ޠ LХdɢLʕεLd``% ۅU{` ۅߥ܅LL dۅ^܅_L$ᩀzy *ҰQ- 5ҰD 5Ұ; y LDyEz L$ *Ұ L y Lm 5kL, ,L  HH hh` ۤ L$.: ۠ȑۑȑؠ8ИL$ *Ұ# .  ө`X  өLX J Jy Jz JL$@) @` lXH өXhH Xh`M` . 8^兑ȥ_冑L B YXX ӱXH hX  ` B   {H ݩ , 5Ґh{Lݠ{ LPHΥϐL<ѥh` 5," 5, Lҩ` 5Ұ" 5,݅LޅMM/,΅ȱ΅ȱ΅ȱ΅ȱ΅ȱHȱ΅hLb ڢ  `)_`{ 58`a`DOELFIMAEMIN dƃ` ^_LP. 5`8` LYҨ. Y']# Y#&:10ȱȄ̦`LmݠΨ ʈ 0۠ Loݩ[ 5  * LҥHH "H h h h      qeݥiޥՅH , L /ҩ. ݢhөԄ/ ݩ= ݤ/ȱeyHzi h д`$[ *Ң  8fL$ Lm$N`9   Lo c L 7Ұ L 8`  f8``HʥːL<Ѣh` 2 * 5 *Ұ əiHe̐ʪ˰̄h`L<Ѡ0 ̠8ȥ̅ͅТL8ߑȥȹ`L<Ѡ01?yȱz ݠ)?ȱ 0 /Hhä6Э`)?iұ)iȱ&)?Ȱ S8`)?yȱz`bc.)?iȱqyȱiz`L ()?ii8`y`.L:LibL0(: LҢy` w& %~`L.$ ' *L L 5Ұyz 5'в`J̥Kͩ8c/`.:/ 50(:$ Ѣzyd  LҎ`A%[!  5Ұ.0 :A[`8.m:L@ i0 LҤ~` 5҆} |}0HuۥuL8ۥܦ0ۢL0J+&&&8HۅhHhLJ uuffffۈLLyz ` 5I0 i L` &y&z8` l ܦ A$0 `$0`Ҿ" Jݥ ` `0 VUV ` w' L` @:bc` ,L wx y }IzzwP}`weywx8wwx`L *Ұ LҢۆ܆|~@ 5Ұ1+4-/|/*%/ , )<;, 5X 5): X3 5,( 5Y!wLlw L!L~0`w` *Ұ@ L (ȱw̅ڥ` ¥ڤ`HH$0 ) / $0<^Υ_ϰ-^_ ^_h^$0 ^_`Lmh JLߤ` uY uZ ul LoLwH 5d 5_h LPw 51ԩ 0߅ȘL L cL$ 5 *@a ( vL$ c 5,K L? 5ҰE 5># /({ #2/*(B 53, 5Ҡ X( Y" L wL!܅۠w L! LB 5) LІ`ST \ Lʅ݅Υ˅ޅϢeՆ׆f߆^_ɍLТ bLe0/ɀ) ٢ fΤf  ꐾffLP ' z 2Ұ|*v @ *Ұn>LvP 5҅Q 5҅RP. q3ȱwHwH`B [ q< q u@,jH8:H>ސ hhihh$P $` d ް+ yް%ݥ ް ް yް ߥ`Lz.I0  LҢy,\ `ʅݥ˅ޥLߥM` *Ұ AU,` L8`` 5Ґ߄<Ȅ>=?`Lz8L>߅݅?>` -LL<8LʅߥM˅ L L8$f`0   $0LPLЩ )`$ 0ɍ ɍLИH h ݠxuv0 0 Luvu`` L ɠLHh 2ۦ 8`LMߥ e߅ߐ8` m܊iА` ` 2۩ L4Щ`(($% " ԅa`܂ۄۆۈۉ܌4܍2܎ۏۑ/ܒ۔Zܕ|ܘ  ݅ʥޥؐ` ؐ Lڥ%8 ީ 2ۦ fې 2 LХ%$ " ݢ ɠ)$'%ƀ LB ɠa`ݽ- :Lf۽HH`<ݥ= آ` ``# ܆}~ ~} ~Liۦ} :`ʈ`eڪܐܰө ݢ ɠ  #)?   8`J`FF *Ұ AfUf`$`)_`b *#/bb L ޥߥ ڥb 0 ީ Y LL ҅ ҅` ] B `' ڑ# 礂`8`ȱý ]ؐjf Lҩ eؐV B tکp ذ< ؐ8ۆ ٰ!恦 ٰ㥁 Х L`LzРLgݭ 8 ީ0 7<8ې6 eܰL٪܆ܹ> ֥LM&Hȥ:e<:ȥ;e=';he` Lg ] B t ؐ` ؐ<= LHةp *҅ڰ1,-.)I0 # 5Ұ'Lgݤ8`LLҥ݅<ߥޅ= ڢ Yҝ`݆ ݥ ݥ  ޤ> ݈ `8BCB`LzL< Bޢ 8߅eBeCBJCKˢ: ֥$ߥeݥeeߥe נߥݥސߑL` ץʅ>˅?BʥCˠ >B?C>B`8ʅ˪` 9ؕ:ANUAMEMORMERGMGMNTNEPRRENUMBEREPLACRESTORRSSAVSLOSYMBOLTEXUSVAY1>ѷ>phQ Mіʅ˅LM)eȱȱ ` BސLzТ8ޕC0 eʥeˠ B )``ɇ Ɂ`iX` )`ɠ)?  :`Ԡȹ) ` ъ 8:Z\;[]8f`F`~ 7Ұ'`)_aA[20a")a{~ MHLH`~вLzASAUTCOPDELETEDIFASFINHIDINCREMENLISLOAMА & *L\eZӥ]e[Ԡ8 ޘL 4 4 :LA14 LA) /hHgH/`WeA**e *խ&`ԑ(('$`Ġ 9Y`LzР ӱX0 `$(H #)? @(h ,c `L ۥ܌I`/ӅX0mY` VR $ ݥ ݠ ݢ$L ɠ6ɍZɛiɘ/Ɉ3ɏɕhɅ% :L^ ,( *о LA ЊL^׽? *L^ө ȭɤ^LD ΰ H VhɰL^iLР ݦʤ ML A ݦJK ͦ AL 5Ұ`,{)aȄ{ ` `Ha{{h`!()@ ҅)? `C` Щ  / XЅKJ[Ʌd \ Zޅ\] өX٭LsLtMLsF֠ Ӡ ӑXBeC L#eBeCBJCK ׮ʽ`Lgݥ %А``@ ?멿 ֆ@ 5ҰI0 Ѧ@y:z:` LҩWyz 5I0  eyHezhyzW`8f`HLеʕL`IH ɥЅLхM` # LLLL$ LKJՅ  BFحR`ن{Uئ% /% " A 2A tL4" L4 5ҐLg 2 ѥW몹) Aѹ) Aѩ芨y\y 887e          MAL LABENESTED .ILOAOPEWRITDELET ERRORMISSING .D.DO NEST TOO DEE ERRORS IN ASSEMBLYKEY TOO LONNO MACRO NAM REPLACE?REPLACE TOO LONBAD MACRO PARAMETEUNDEFINED MACR PAGE*** BOB SANDER-CEDERLOF ***DpSTPADDSUBCPRINRDCRPOPSETS-C MACRO ASSEMBLER ][ V1.0 SYMBOL TABLE *** SOURCE PROGRAM: SYMBOL TABLE: MEM PROTECMEM FULSYNTANO LABEBAD OPCODRANGEXTRA DEFINITIOBAD ADDRESUNDEFINED LABEBAD SYMBOVALUE > 25NO NORCPXCPYDECEORIEMAQU]YINCJMPLJSR LDALDXLDYLSRFNJV^ORA  ROL&.*6>RORfnjv~SBCSTASTXSTYLD @ST 0PLDD`ST,TA*TF)TI,US CCCSEQMI0NEPLVCPVSpR NCC P M Z NZM1NM S BRKCLCCLDCLIXCLVDEXDEYINXINYNOPPHAHPHPPLAhPLP(RTI@RTS`SEC8SEDSEIxTAXTAYTSXTXATXSTYARTNBK RS ADCiemaqu}yAND)%-!15=9ASL BIT$,CMPݥSӥT  !` g"< !e߅ߥee^^e__`$ ۩ )L6-LLA+H, 5,MN FhHhHhL g"LA+eL eLe0ILe0eLAS*AT*BS -DA+DO-EL-ENH,EQE+FI-HS+IN+LIO-MA&OR*PG̕J X * * !@ʕݕεJX ;,LLm$ ʊHMH` !d ,L *``L$0  K& ӥ  LdɢLʕεLd``% g"ۅU 5, 5pFp ,L`8$04 STU#Vp ! ; y C!L*yEz C!L * L ~# ~# y C!L!+ 5kL , ,L HH g"hh` ۤ !L.: ۠ȑۑȑؠ8ИL *#/ L g"#/ C! C! 5,˥۰dVdIɢLݕʕL@JXH XhH Xh`M` ) $ %8^兑ȥ_冑Le* ) YXX XH hX  ` * ) * * *{H  , 5h{L{ {` g" ۅߥ܅L*LA+ g" *ۅ^܅_Lzy *Q- 5D 5 5" 5,݅LޅMM/,΅ȱ΅ȱ΅ȱ΅ȱ΅ȱHȱ΅hL)  ' `)_`݌){ݍ) 58`a`DOELFIMAEMIN *ƃ` ^_L ) $ `X j* LX ) )y )z )L@) @` l`LmΨ ʈ 0۠ Lo[ 5 r$ $ * LHH (H ! !h (h (h ( ( ( ( ( (qeݥiޥՅLHΥϐL<h` 5," 5, L`[ * r$ $ %8fL Lm$N`9 '  r) Lo r) c 'L{' r) 7 'L]' '8` '  r)f8``HʥːL<h` 2 * 5 * . 5`8` LY. Y']# Y#&:10ȱȄ8ȥ̅ͅТL;+8ߑȥȹ`L<01?yȱz ! )?ȱ 0 !Hhä6Э`)?iұ)H ,  L& !ҩ. hөԄ/ = /ȱeyHzi h д`$yȱz`bc.)?iȱqyȱiz`L()?ii8`y`.L:L&biHe̐ʪ˰̄h`L<0 ̠yz 5'в`J̥Kͩ8c/`.:/ 50(:$ zyd  r$ L`A%[!  5.0 :A[`8.m:LL%@ i0iȱ&)?Ȱ %8`)?ۢL}"0J+&&&8HۅhHhL}"J uuffffۈL}"L yz ~# ~#` 5I0 i L` &y&z8` g"l g"ܦ AL0(:  Ly` +$& $%~`LA+.$ ' *L m#L# 5L%` @:bc` ,Lwx ["y ["}IzzwP}`weywx8wwx`L * Lۆ܆|~@ 51+4-/|/*%/ , )<; L~` 5} #|}0HuۥuL}"8ۥܦ0L ~0`w` *@ L o"(ȱw̅ڥ` ¥ڤ`HH$0 ) ! ! $0<^Υ_ϰ-^_ ^_h^$0 ^_`Lmh )L!ߤ` $0 `$0`Ҿ! Jݥ ` `0 VUV ,` +$' $ȘL L !L 5 *@a o"( *!L ! 5,K o"L 5E 5># /({ o"#2/*(B 53, 5 X( Y" LwL܅۠w C!L !B 5), 5X 5): !3 5,( 5Y!wLlw C! C!LՆ^_ɍL )LL,e0/ɀ) '٢ r)fΤf r) r)ffL ! .' 2|*v ! *n>L*(P 5Q 5RP.- %"3ȱwHwH`B . %" hhihh$P $` d  + y%ݥ   y ߥ`Lz.I0   Ly,\ `ʅݥ˅ޥLߥM` * AU,` L8``ST $ ,Ln,ʅ݅Υ˅ޅϢeՆ׆f߅` 5߄<Ȅ>=?`Lz8L>߅݅?>` -LL<8LʅߥM˅  L L8$f`0   ! $0LL )`$ 0ɍ ɍLH h ,u0v0 0  Luvu`` L  ɠLHh 2 8`LMߥ e߅ߐ8` mi` ` 2 L4`(($% " a`42/Z|   ݅ʥޥ`  L%8  2 f 2 L%$ "  ɠ)$'%ƀ LB ɠa`ݽ- :LfHH`<ݥ= ` ``# }~ ~} ~Li} :`ʈ`eڪܐܰө  ɠ  #)?     8`J`FF * AfUf`$`)_`b *#/bb L j* ߥ b 0   Y LL   ` ] B `' # 礂`8`ȱý ]jf L eV B tp < 8ۆ !恦 㥁  L`LzLg 8 0 7<8ې6 eܰL܆ܹ> LM&Hȥ:e<:ȥ;e=';he` Lg ] B t ` <= LHp *ڰ1,-.)I0 # 5'Lg8`LL݅<ߥޅ=  Y`݆     >   '`8BCB`LzL< B 8߅eBeCBJCKˢ: $ߥeݥeeߥe ߥݥސߑL` ʅ>˅?BʥCˠ >B?C>B`8ʅ˪`   9:ANUAMEMORMERGMGMNTNEPRRENUMBEREPLACRESTORRSSAVSLOSYMBOLTEXUSVAY1>>p#hQ, MJ&#ʅ˅LM)eȱȱ ` BLz8ޕC0 eʥeˠ B )``ɇ Ɂ`iX` )`ɠ)?  :`Ԡȹ) `  8:Z\;[]8f`F`~ 7'`)_aA[20a")a{~ MHLH`~вLzASAUTCOPDELETEDIFASFINHIDINCREMENLISLOAM & *L\eZӥ]e[Ԡ8 L 4 4 :LA14 LA) /hHgH/`WeA**e *&`(('$`Ġ 9Y`Lz X0 `$(H #)? @(h ,c `L g"ۥ܌I`/X0mY` VR $   $L ɠ6ɍZɛiɘ/Ɉ3ɏɕhɅ% :L^ ,( *о LA L^׽? *L^ ȭɤ^LD ΰ H VhɰL^iL ʤ ML A JK ͦ AL 5`,{)aȄ{ ` `Ha{{h`!()@  )? `C` Щ  / XKJ[Ʌd $ Zޅ\] X٭ sLtMLsF֠  XBeC L#eBeCBJCK ʽ`Lg %``@ ?멿 ֆ@ 5I0 @y:z:` LWyz 5I0  eyHezhyzW`8f`HLеʕL`IH ɥЅLхM` , ! LLLL L2KJՅ  )FحR`ن{Uئ% /% " A 2A tL4" L4  5Lg 2 W몹) A) A芨y\y 887e            ' FILES ON THIS DISK ARE"::"NOT";::" INTEGER BASIC PROGRAMS; THEY ARE":"ALL ASSEMBLY LANGUAGE SOURCE PROGRAMS.)":U"---------------------------------------":"S-C SOFTWARE CORPORATION" "P. O. BOX 280300":"DALLAS, TX 75228 (214) 324-2050"% "BLOAD S-C.ASM.MACRO":4096S ASSEMBLER"::5:"2 -- ENTER APPLESOFT":::5:"WHICH? "; (A$:A$"1"A$"2"40 2A$:A$"1"ĺ(4)"PR#3":(4)"BLOAD S-C.ASM.MACRO":4096 <:(4)"CATALOG" F100:(4)"FP"w d20:"(NOTE: TYPE 'I&u ::"S-C MACRO ASSEMBLER VERSION 1.0":"---------------------------------------":"COPYRIGHT (C) 1982""---------------------------------------":"S-C SOFTWARE CORPORATION" "P. O. BOX 280300":"DALLAS, TX 75228 (214) 324-20  N!@L!L!L!L!L#L##L,#L5#L>#8 "7  # , Q" *  G"L7! (  $L7!; % )  $L7!+ : I: "L7!, ; I; !L:!- . 8 L` !L7! :L7!@ 0` " " !`; ; " X67 < = 67 $,H L!L!  P$ ( ?'('(BCDcdef ` ۤ _Lț Å#/  #%%(MLJ!c!K!ML!(M!ލ     ϠӍŠΠǍǠ̠ŠΧĠçŠӠƠϠӮŠۧӠˠƠŠҬîŠҠΠŠӮӠŠŠŠϬŠŠάԠΠȠŮɠŠԠƠէŠΠĠƠϠĠӠҬĠŠĠϠҠ͠ՠƠՠŠϠĮŠנǍҭŠӠŠҠ̠٠ĬŠ٬ΠҠŠƠƭȮĠŠ٬٠ŠԮɠĠϠҠԠϠϠŠΠȠӮР̠נɠԠĠŠ͠ӠĠΠנȠ٠ΠŠΠĠנȠŠΠŠĮҠΠƠҠӬŭˠ ӠĠǠƠȠҠŠŠŠ̠ŠƠӠҠٮŠԠͮԠĠŠ٠ǠҠŠƠӠŠŠϠϠ̠ӠǠçٮŠӠƠ̠ǠŠ٠Ġ̮ɠĠŠΠǠΠŠ̠ҠΠӠҠӠĠӠҠԠŮԠԠΠӠŠԠӬӠҠԠӠȠǠԮ٬ɧŠΠƠԠӠԠϠȠŠԮɧ͠ǠԠŠΠ̠ΠΠԠΠӠΠ٠άŠˠӠŠ̠ŮɠĠǠӠԠĠŠԬŠĠŠϠ٠ΠӠϠҠנǠԠˮԠԠǠҠĠҠŠɧŠĠԠҠԠԠө͠ҠӮӠϠɠԠǠҠҠŮ٠РĠĠҠ̠ҠĠԠӠӠԠŠԠҠԠŠӠԠϠΠŮΠɠנŠŠ۠Ġ̠Πō͠ĮӠƠԮ͠ŬŬĬîӠƠǠӠԠŠ٠ŠĠҠ̮ҠŠӠΠĠǠӠɠĠϠ͠٠ƠǠԠΠΠǠŠΠǠĮɠŠԠԠĠԠϠϠȠŠŠéĠˠĠŠŮŠϠΠçΠŠĠ٠ǠԠîԠōŠנǠȠΠǠŠƠӠŠŠƠŠΩŠϺϠӍŠΠǍǠ̠ɠĠ٠٠Ǡ͠ŠϠ̠ԠŠΠӠŠԠϠŠĠŠŠƠŠӠҠȠҠàӠήƠȠӠŠĠҠ̠ӬԠĠŠԠϠԠϠҠΠΠɠŠϠΠƠΠӠӠǠ׮ŠӠΠŠĠƠՠΠԠҮҠԠӠӠ̠ӠͮԠӠŭӠΠͮŠΠŠĠ٠ǠԠˮԠ٠ҠϠϮӬŠΠĠĠϠĠçϠĠנҠӠŠӠΠ͠ҩԠӠĠϠŠĠԠ̠ŠԠӠΠӠˮ٠ŠħȠҠŠ٩Ҡ'ԠύɠĠϠӠӠϮӠŠ٠ӠԠϠŠĮɠΧԠĠϠŠ̠ΧŠΠɠĮɠԠĠϠŠ٠ӠԠĠ A; : ȱ I'ɍ;  I'L8'ȱ L'$ m `l6H$ hɠɍ`hɍɠ -6 5$(5`% ` a  ` a `  5$(5`% ` a  ` a H'' ' ' ' 'hH 'hLH 'hL'N)` ` a L !&` a  & &` c& c&( &m `( ɍ`` a   & &` 0 $ ʈL& & Ȍ ` ` ߬ ȱɠ `ȱɍɠ` "; : -6+!%5 % "(*0-6 ` ` a a ` $ !` %LJ%$#% z&ȥ` a ` {% !` % %`L%a ( ` ``#%% "(*)+%"% "!(*0ܠ Ȧʽ` ` a a `%$` a (̠РΠ٠Ҡ԰̠Π٠ҠԱ STXSTYLD @ST 0PLDD`STDpSTPL$L$L;%Lk%L$ X#84 $` $ ` X%$ z&%% %#` $ !` $ J%`ȹa  ` ``"% "(*)5 #J4 ` $% "#O !` {# A#L# {# N#L# {# ]#L#L# q## !` q## !Li# q#ؠ# ! @`# !`$%L"  ` :LŠҺϠĭƭŠϠРҠϠƠĠҠé; 6 7` a  "L" $h`67 > ? 67 G": 6 7` $ ɍ`,`a0  0 ( `b0  0 ) `LQ" Ȅ; " " " X $`(ɍɠL! ɐL! ɍL!`2ʝ` ȩ` (a ` #8N!@L!L!L!L!L#L##L,#L5#L>#8 "7  # , Q" *  G"L7! (  $L7!; % )  $L7!+ : I: "L7!, ; I; !L:!- . 8 L` !L7! :L7!@ 0` " " !`; ; " X67 < = 67 $,H L!L!  P$ ( ?'(/012W~ǁ ` ۤ _Lț Å#/  #(MLJ!c!K!ML!(M!ލ              ŠɠŠҠȠϠ٬ٮΠҠӬŠԠӠĠҠŠ̠͠ԠŮŠĠҠǠΠӠĠŠҠӠӠԠ٠ΠĠàӠԠˠũӠŠϠ٠ӠŠ̠ҠӠȠӠĬɠ̠٠ԠŠӠŠ̠ӠƠנٮɠӠ٠٠ŠҠˠӠԠ̠Ӡ̠ԠĠŠŧĠҠҠŠŭӠǮΠҠӬנ̠Ӡ̠ŠӠƠŠԮŠŠŠӠϠŠנӠϠŠŠǠŠҠԠΠӠϠŠ̠ήɠ͠ĠΠǠŠϠŠĠϠˠȠԠӠϠԠΠŠԠΠ̠ԠĠΠŠŠӠĠϠΠŠӮӠԠ̧ӠӠͮՠ̠ԠĠŠĠŠӬҠӬàԠŠΠŠ٠ƠàǠӮ٠ŠӠԠˠӠϠӠǠŠ̠ΠƠŠԠӮħŠӠ̠ӠϠĠ̠ŠȠӠΠŠΠĠٮŠ'ԠˍˠӠŭӠà̠ӠͮԠӠ٠٠ĠǠ٠ƠŠĠŠƠŠҠϠԠŠԠ̠ӠԠ̠ӠĠ A; : ȱ I'ɍ;  I'L8'ȱ L'$ m `l6H$ hɠɍ`hɍɠ -6 5$(5`% ` a  ` a `  5$(5`% ` a  ` a H'' ' ' ' 'hH 'hLH 'hL'N)` ` a L !&` a  & &` c& c&( &m `( ɍ`` a   & &` 0 $ ʈL& & Ȍ ` ` ߬ ȱɠ `ȱɍɠ` "; : -6+!%5 % "(*0-6 ` ` a a ` $ !` %LJ%$#% z&ȥ` a ` {% !` % %`L%a ( ` ``#%% "(*)+%"% "!(*0ܠ Ȧʽ` ` a a `%$` a (̠РΠ٠Ҡ԰̠Π٠ҠԱ STXSTYLD @ST 0PLDD`STDpSTPL$L$L;%Lk%L$ X#84 $` $ ` X%$ z&%% %#` $ !` $ J%`ȹa  ` ``"% "(*)5 #J4 ` $% "#O !` {# A#L# {# N#L# {# ]#L#L# q## !` q## !Li# q#ؠ# ! @`# !`$%L"  ` :LŠҺϠĭƭŠϠРҠϠƠĠҠé; 6 7` a  "L" $h`67 > ? 67 G": 6 7` $ ɍ`,`a0  0 ( `b0  0 ) `LQ" Ȅ; " " " X $`(ɍɠL! ɐL! ɍL!`2ʝ` ȩ` (a ` #8N!@L!L!L!L!L#L##L,#L5#L>#8 "7  # , Q" *  G"L7! (  $L7!; % )  $L7!+ : I: "L7!, ; I; !L:!- . 8 L` !L7! :L7!@ 0` " " !`; ; " X67 < = 67 $,H xL!L!  P$ ( ?'(ˉ8W~ ` ۤ _Lxț Å#/  #(MLJ!c!K!ML!(M!ލ           ԠԠŠ٠ĩҠӠ̠ΠΠŠǠҠΠŠӠĠҠΠҠӮȠӠΠŠӠƠŠҮҠӠ٠ӠӠŠҠĠԧӠ٠ɠŠԮ̠ӠĠҠҩҠŠӠĠҠ٩ӠӠŠΠԠҬŠΠ͠ŠԠԠϠǩɠ͠ŠԠԠƠĠӠԠΠŠ˺̠ΠĠ̭ϩԠĠ̭ɩŠҠĠ̭ةŠԠƠŠĠ̭˩נ̠ïҧĠ̭ƩŠӠŠŠՠԠҠϠŮӠŠŠŮԠΠŠԠҠׯԠкҠРŠŠӠĠ٠ծƠՠҠԠ̠Ҭ̠ŠϠŠԮǬԠŠ̭̭ͬȬĠ̭ՠӠŠŠŠĠӠïҬĠ̠РĠ̭ЩŠҠӮ٠ǠŠՠӠӠΠŠĠΠӠǠҠΠƠҮŠŠŠĠӠՠ̠ŠŠϠŮĠҠĺҠǠĺΠ٠ŠԠˠƠӠ٧ȠԠŠĠԮ̠ӍҠӠ٠ҠΧĠŠӠŠŠ٠ӠƠŠͮŠŠ­ӠҠȠƠĠĠŠԠԠҠӠȠӠĠէ̠ĠԭŠҠŮϠĠנŠҠǺԠϠӠŠũĠŠŬ̠ǩ̠źΠӠӠԠΠӠ̠ϠӠϠӠӠҠԠנŠĠǮǠ̠íĠ̠ǠՠϠΠϠŠҠŮźΠǠŠŬӠӠϠԠƠŠŠӠΠŠάŠ΍ΠӠ٠ŠĮϠŠŠՠԠԠϠŠΠՠŠũǠԠϠӧ̠ŧҠŮΠ̠ŠŠŠȠĠĠӠŠĠǠҠծԠŠҠӍŠҠӍŠҠӍŠ٠ӍŠ٠ӍҠϠٍԠϠӠϠŠũΠϠҍҮϠԠΠԠΠנԠƠĩ٠ŠϠĠĠŠŮ٬ՠΠŠŠĠԠ̭ɮç̠ϠϠŠΠՠȠ̠ԠՠϺԠŠōŬԠǠԠԠ٠Ю٠ҠŠ̠ԠԭŮՠ٠ŠĠԠŠĠҠӠР٠̠ӠƠŠԠ٠ӠĠήŠ٠Š٠ӬԠŠŠǠЮ٠ԠנƠՠԮǠާӠԭŮŠŠҠӠϠԭź̭ɠŬ׭ԠĭƭĬנԠԭƭǠƠԠŠŠΠԠҩϬՠԠ٠ŠҠȠΠЮϠԠΠǠȬŠŠҠҠˠĠԠΧ٠Ԡ٠ӠנȠӠȿϠŠԠҮ̭ؠ̠Š٠Ү̭ˠ̠ŠԠƠŮŠŠŠ̠ӠҠŠΠƠӮՠΧԠŠ͠٠ӮȠӠԠΠҠΠǠӠȠԠǠΠŠԠ٠ӠĠǠȠҠĩϠԧӠȠנǠŠΠӠҩŠҠӠΠŠŠ٠ǠŠҠҠҠĠǠҮϠϠԍϠϠԠנՠΠΠŠҠΠŠӠ̠ӠŠРĠήƠՠ٠Ӡנՠ̠ŠŠĠǧĠϭԧӮĠԠԠũˠӠΠŠΠР٠Ġ٠ũ٠ŠӠ̭ƮԠӠՠŠ̠ҠӮǠԠΠӠ͠Ԯ٠ԠŠƠӠԠ׮ɧ̠ԠԮԬȿŠΠӠήӠӠŠР٠ŠΩԠӠŠ٠ΠŠҠӠĠҠԮŠΠ٠ӠĠ٠ϠŠΠРϠҠŠԠԠϠĠŮҠ٠ĠӠӠՠϠǮōРԠƠȍ̠ԠƠōנԠƠčנĠƠč̠ĠƠōРĠƠȍƠĠƠōՠ٠ŠĠǠۧҠ٠ԠŠԠӠŠŮŠ٠ӠŠӠϠҩҬŠҍ٬ŠҍԧάŠΠŠǠӠٺƠԠƠ͍ӠΠӠҠԠӠĠӠàǠƠŠӠĠǠӮϠӠĠȠǠӠΠŠǠӠĠǠˠΠŠӠĮŠĠҮĬՠҠҩԠ٠ϠŠԠӠĠŠŠŠӠǠĠ٠٧ϠΠ٠ĠӮȠŠӬĠΡŠҠΠΠנҠӮϠӠĠŠĠŠǠҮԬҠԠԠŠŠ̠ħӠȠӠӭ٬ˠӬǠӬŠϠӬîŠΠĠ̩ӠƠŠȮŠԠƠȠŠӠΠŠҠŠƠŠԠΠ̠ӠŠĠĠҠĠӠϠŠ̠ŠӮԠӠӠǠ٠ƠŠ̠ǠĠ̠ҠήӠĠӠԠЧĠҠϠԠŠҠƮŠ̠ŠӠŠŠΠŠǠŠǠǮӠӠ٠ԠŠǠԠĨ٩ԠΠ٠ŠήҬԠԬӠϠŠŠҠӠĮҬŠ̠̠ӠΠǠ٠ŠƭǠũȠŠŠӠȠӠȠǬ̠ĠϠŠӠӠԧӬ٠Ǭ٠ŠԮŠ̠ŠƠŠԠΠӠŠȠŠŠԧԠԠŠĠŠӠ٠ŮŠԠӠԠĠȠŠƭǠŠӠΠŠӮƠɠҠԠҬԠԠ̠ŠҭŠҠΠȠŠҠ̠ΠӠԠƠ̠ŮƠŠӠ٠ԠΠӠάɧĠŠϠŠԠԮŠɠŠȠŠԠĠŠԠȠ٠ҠŮϬԠĠǠӠŠԭԠĮҠӠĠ٠Ϡ̠ӮŠΠȠӠĠȠŠԠӠӠԠϠŠǠ'ԠҍҧӠŠŠƠŠΠ͠ĠϠŠŠƭǧӮɠĠԠŠɠΧԠĠĠǠ͠ΠŠԠԠĠנŠϠŠŠ٠Ҡ A; : ȱ I'ɍ;  I'L8'ȱ L'$ m `l6H$ hɠɍ`hɍɠ -6 5$(5`% ` a  ` a `  5$(5`% ` a  ` a H'' ' ' ' 'hH 'hLH 'hL'N)` ` a L !&` a  & &` c& c&( &m `( ɍ`` a   & &` 0 $ ʈL& & Ȍ ` ` ߬ ȱɠ `ȱɍɠ` "; : -6+!%5 % "(*0-6 ` ` a a ` $ !` %LJ%$#% z&ȥ` a ` {% !` % %`L%a ( ` ``#%% "(*)+%"% "!(*0ܠ Ȧʽ` ` a a `%$` a (̠РΠ٠Ҡ԰̠Π٠ҠԱ STXSTYLD @ST 0PLDD`STDpSTPL$L$L;%Lk%L$ X#84 $` $ ` X%$ z&%% %#` $ !` $ J%`ȹa  ` ``"% "(*)5 #J4 ` $% "#O !` {# A#L# {# N#L# {# ]#L#L# q## !` q## !Li# q#ؠ# ! @`# !`$%L"  ` :LŠҺϠĭƭŠϠРҠϠƠĠҠé; 6 7` a  "L" $h`67 > ? 67 G": 6 7` $ ɍ`,`a0  0 ( `b0  0 ) `LQ" Ȅ; " " " X $`(ɍɠL! ɐL! ɍL!`2ʝ` ȩ` (a ` #8N!@L!L!L!L!L#L##L,#L5#L>#8 "7  # , Q" *  G"L7! (  $L7!; % )  $L7!+ : I: "L7!, ; I; !L:!- . 8 L` !L7! :L7!@ 0` " " !`; ; " X67 < = 67 $,H &L!L!  P$ ( ?'(qq.q/q0qOqsqqqqr ` ۤ _Lț Å#/  #''(MLJ!c!K!ML!(M!ލ                        ӠŠΠŠȠנϠŠǠȠŠǠӠ٠ӮԠ̠׬ΠԠ̠קȠӠǠĠӮԠӠԠϠŠŠ٠ԠӠĠĠӠԠǠ٠ŠƠȠɠ٠٠Š٩Š٠Š٠ӮŠӠŠ̠ŧΠԠŠŠϠŠӠĠŠĠӠŠŠĠϠĠΠƠŠŮŠɭȠӠŠŠϠŠҠȠӠ٠Š٬ŠĠٮ̠ǠӠŠĮ٠ؠƠŠӠĠ٠ŠҮԠ٠̠ĠקĠӠĠ٠Š٠ŠŭŭŠǠ֠ӬӠĠ٠Š͠Š̠ĠӠŠӮŠŠԠŠӠŠΠŭΠϠŠ͠٠͠ĭϭĮŠŠŠ͠ӠΠĠΠҠƠŠȠŠŮΠӠΠ٭ĠҠŠΩԠӠԠǠƠĬӬîŠƠŭΠӠŠĠԠǠӠƠŭǮԠӬŠΠŮȠƠŠŠӠҠӠϠŠĮԠӠĠŠŠӧΠԠנӠΠŠǧ͠ԠӠŠӠή٠ĠӠ٠ԠƠŠŠҠũҠԠҩҠҠΨҩŠΠȠĠΩŠĠŠ͠ӠΠΠŠƠŠӠӠ٠Ġ٠̠˩άĠĠ̠ŠĠϠŠӠ٠̠ԠƠ̠Ӡ̠ŠĠŠŠŠӠ٠ŮŠӠŠźŠנԠũŠנĠũŠנŭĠũŠΠĠҠ̠ӮŠΠƠŠҠĠŠҠӠ٠ĠӠǠǠ٠Š̠ĠסĮɠŠԠԠԠŠӠ̠ĠŠŠ٠٠ϠˠȠԠӠŠŠǠҠӠӠӠ̠ӠǠ٠ΠŠçŠ̮٠ȠŠŠ̠Π͠àӠԠөàӠǠ̠ΠȠӠƠӠנ͠ΠϠͩàӠҠàŠĠҠȠ̠ŠΠŠΠƠ̠ӮԠӠĠĠԠӠҠΠ̠ǮŠӮũǠΠà'ԠÍԠӠӠ٩ΠƠàԠӠԠ̠ϠԠĠӠŠ̠ӠŠӠҮΠԠ٠ŠҠΠ٠РΠŠӠԠǠǠԠ A; : ȱ I'ɍ;  I'L8'ȱ L'$ m `l6H$ hɠɍ`hɍɠ -6 5$(5`% ` a  ` a `  5$(5`% ` a  ` a H'' ' ' ' 'hH 'hLH 'hL'N)` ` a L !&` a  & &` c& c&( &m `( ɍ`` a   & &` 0 $ ʈL& & Ȍ ` ` ߬ ȱɠ `ȱɍɠ` "; : -6+!%5 % "(*0-6 ` ` a a ` $ !` %LJ%$#% z&ȥ` a ` {% !` % %`L%a ( ` ``#%% "(*)+%"% "!(*0ܠ Ȧʽ` ` a a `%$` a (̠РΠ٠Ҡ԰̠Π٠ҠԱ STXSTYLD @ST 0PLDD`STDpSTPL$L$L;%Lk%L$ X#84 $` $ ` X%$ z&%% %#` $ !` $ J%`ȹa  ` ``"% "(*)5 #J4 ` $% "#O !` {# A#L# {# N#L# {# ]#L#L# q## !` q## !Li# q#ؠ# ! @`# !`$%L"  ` :LŠҺϠĭƭŠϠРҠϠƠĠҠé; 6 7` a  "L" $h`67 > ? 67 G": 6 7` $ ɍ`,`a0  0 ( `b0  0 ) `LQ" Ȅ; " " " X $`(ɍɠL! ɐL! ɍL!`2ʝ` ȩ` (a ` #8N!@L!L!L!L!L#L##L,#L5#L>#8 "7  # , Q" *  G"L7! (  $L7!; % )  $L7!+ : I: "L7!, ; I; !L:!- . 8 L` !L7! :L7!@ 0` " " !`; ; " X67 < = 67 $,H L!L!  P$ ( ?'((ރ!Ec ` ۤ _L ț Å#/  #(MLJ!c!K!ML!(M!ލ        LōàӺӠŧӠŠŠӍϠŠĠӠҍŠΠƠ̠ӮŠΠč"Ԡ٠ΠǍàӺӠŠӠΠϠō͠Ԡ٠΢ٍ٠ŮԠӠĠϠŠύŠҠî٠ТŮŠŠΠӠԠĠύŠŠƠĺӠŠĠύŠҠƠƠŠήӠǠƠҍȠȠŠή٠ϢӠŠӠΠϠōàƠՠנϮ٠٠ΠӠύԠӠԠԍĠҠϠŠӠԍӠŠԠƠĠˠî̠ӺŠŠ٠ύǠ͠ήŠǠԠӍĠԠŠĠƠȠŮ̠ƠϠӍŠĮ٠΢ŮĠΠ΍àӺӮՠĠ٠ɍӠΠŠƠٮɭŠӠԠĮԠ٠ҠũҬԠӠ٠ōŠĠɠ̠Ġύנԍ̠ӺŠŠӠӠЍ٠͢ŮɭŠӍàӺӠŠӠٍΠϠԠԍȠŠŠƠӍŮŠǠӠŠٍĠӠŠƠԠ̍٬ΠōӬϠӠƠŬĠԠƠάӠōӠĮ̠ӺҠҠӠ٠Ԯ̠ƠϠӍŠĮӠĠΠōŮ٠ŠӠԍĠȠŠԮҬҠӠƍ٠̠čҠӠŭӬōӠ٠٠ĠčȠŠԮŠӠŠԠƍΠήɠĠĠŠƠٍӠĠΠĠҍԠŠĠŠϠōҠŠΠŠήӠŠĠԠŠčŬɠĠԠύϠàӺӠŠӠΠϠō͠Ԡ٠΢ٍ٠ŮԧӠŠӠϠŠύŠҠӮ٠̢ŮɧӠ̍àӺӠ͍ӠŠĠҍϠԠŠĠӮӬǠĠčӮ̠ƠϠӍŠĮ٠ˢŮԠ٠ΠǍΠΠŠàčӠԠΠŠΠŠήɠ٠ĠΠŠԍƠ̠ĠҢҍϠԠϠ̠͠ōӠɠԠ͠Šî̠ӺŠ٠ƠŠ̠ӺŠŠӠύӍ٠ŮӠϠˠčàӺӠŠӠĠōǠϠŠàƍˠĢŠҭҭ٠ŮŠĠƠĠÍàӺӠŠӠĠϠŠĠƠĠҠǍԠӠƠϠҍŠƠˠîŮ̠ӺŠŠӠԠӍҠŠŠƠĮԠӠӠРȍŠΠƠ̍͠ή̠ƠϠӍŠĮ٠ŮΠŠŠҠōàӺӠŬŠԠӬӠ٠ĠԠŠōƠǮՠ̠ōӠȠРӍӬŠΠȠ΍ŠՍԠҠŠϠΠŠԠӠԠŠӠΠŠҠĬȠŠǬĠŠ̠ǠԠӠԠŠ̮ŠάĠ٠Ԭɠ̠ŠŮԠŠ٠čΠ٧ӠΠōנӠŠĮӠŠӍԠ٠РΠέōΠԠōήέō֠Ӡ΍ӠϠҠ֠Ԡō٠̠ӮҬŠϠҠ΍Ǡ̠ōӠǠԍƠ͠ŠΠĠԮ̠΍̠ŠӍŠĠԍŠĠԍҬŠčΠàήōɠĠΠŠҠƠōŠĠ٠٠ύŠŠĠӮ٠ŠӬȍӠŬΠŠĠӺŠ٠Ϡ̠źԧӠӺŠӠˬ̬ͬάϬЩĠΠŠōƠŠŠ̠ӍĠ٠ŠŮŠӬ'ΠҠӺˬ̬͍άϬЍӺԧӠӍ̠΍àŠ΍Ժ׮̠ˍϮ͍ϠŬ A; : ȱ I'ɍ;  I'L8'ȱ L'$ m `l6H$ hɠɍ`hɍɠ -6 5$(5`% ` a  ` a `  5$(5`% ` a  ` a H'' ' ' ' 'hH 'hLH 'hL'N)` ` a L !&` a  & &` c& c&( &m `( ɍ`` a   & &` 0 $ ʈL& & Ȍ ` ` ߬ ȱɠ `ȱɍɠ` "; : -6+!%5 % "(*0-6 ` ` a a ` $ !` %LJ%$#% z&ȥ` a ` {% !` % %`L%a ( ` ``#%% "(*)+%"% "!(*0ܠ Ȧʽ` ` a a `%$` a (̠РΠ٠Ҡ԰̠Π٠ҠԱ STXSTYLD @ST 0PLDD`STDpSTPL$L$L;%Lk%L$ X#84 $` $ ` X%$ z&%% %#` $ !` $ J%`ȹa  ` ``"% "(*)5 #J4 ` $% "#O !` {# A#L# {# N#L# {# ]#L#L# q## !` q## !Li# q#ؠ# ! @`# !`$%L"  ` :LŠҺϠĭƭŠϠРҠϠƠĠҠé; 6 7` a  "L" $h`67 > ? 67 G": 6 7` $ ɍ`,`a0  0 ( `b0  0 ) `LQ" Ȅ; " " " X $`(ɍɠL! ɐL! ɍL!`2ʝ` ȩ` (a ` #8N!@L!L!L!L!L#L##L,#L5#L>#8 "7  # , Q" *  G"L7! (  $L7!; % )  $L7!+ : I: "L7!, ; I; !L:!- . 8 L` !L7! :L7!@ 0` " " !`; ; " X67 < = 67 $,H٠ΠΠύLee d,a  ɛd(( 3 L(L:A L ӠΰĠŠ̰ϠԠĠŠâϠΠϠҠՠLPVT 6 LeeeeLeeLbLLeeL    .EP ¨ĠҢŠz#    ǭȠԮĠҠǠĠΠF!ԮĠ Įʠ ŠҠҠȠ٠Ǡ ԭ Ϡ٠͠ ĠԠӠϠ ӭîͮϠ#ӭîͮϮà%Ġ͠Ԡ ǠԠŠ ̠̠Ҡ INY DEX BNE.1 JSRMON.CROUT LDXSAVX RTS& *---------------------------------* *PRINTVALUEINA-REGASTHREEDIGITS& *--------------------------------- PRINT.VALUE.A STACOUNT LDA#0 STACOUNT+1 PRINT.VALUE -------------- PRINT.FILENAME  STXSAVX  LDX#30$ .1LDABUFFER+3,Y!. CMP#$A0SEEIFCONTROLCHAR8 BCS.2NO#B ORA#$40YES,CHANGETOLETTERL LSRINVFLGV LSRINVFLG` .2JSRMON.COUTj LDA#$FFRESTOREINVFLGt STAINVFLG~ EDz.2JSRMON.COUTLDABUFFER+2,YFILETYPE AND#$0FTAYLDAFILE.TYPES,YJSRMON.COUT LDA#$A0JSRMON.COUTLDYOFFSETS,XLDABUFFER+33,YJSRPRINT.VALUE.AJSRPRINT.FILENAME .3RTS&*-------------------NT.ENTRYLDYOFFSETS,X LDABUFFER,Y*BEQ.3NEVERAFILEHERE*4CMP#$FFSEEIFFILEHASBEENDELETED>BEQ.3EMPTYENTRYHLDABUFFER+2,YFILETYPERBMI.1LOCKED!\LDA#$A0BLANKIFNOTLOCKED fBNE.2p.1LDA#$AASTARIFLOCKIFTHRU BEQ.3LDABUFFER+1TRACKSTATRACK LDA/IOB LDY#IOB.JSRDOS.RWTSREADASECTOROFTHECATALOG LDX#6.2JSRPRINT.ENTRYDEX BPL.2BMI.1...ALWAYS .3RTS&*--------------------------------- PRIQ.5ASL BCC.4PHAINCCOUNT BNE.6INCCOUNT+1 .6PLACLC &BCC.4 0.5INY :CPY#$C4 DBCC.7NJSRPRINT.VALUEXLDY#QLEFT-QTS bJSRQTOl.1LDABUFFER+2NEXTSECTORvSTASECTOR ORABUFFER+1BOTH=0READVTOC TLDY#IOB^JSRDOS.RWTShLDAACTVOLVOLUMENUMBERrJSRPRINT.VALUE.A|LDY#QDASH-QTS JSRQTO(LDA#0COUNTNUMBEROFSECTORSLEFTSTACOUNTSTACOUNT+1LDY#$38$38-$C3INVTOC .7CLCLDABUFFER,Y .4BETASLOTINYLDA(COUNT),YSTAPRVDRVSTADRIVEJSRMON.HOMELDY#QTITLE-QTS JSRQTOLDA#1READCOMMAND STACMD "LDA#17SETUPTOREADVTOC,STATRACKFROMTRACK176LDA#0SECTOR0@STASECTORJLDA/IOB-POFFSETS.HSDDBA9774512E0BZFILE.TYPES.AS-/TIAB/dCNVTBL.HS010A64&n*--------------------------------- xCATALOG&JSRGETIOBGETADDRESSOFDOSIOBSTYCOUNTSTACOUNT+1LDY#PRVSLT-IOBLDA(COUNT),YSTAPRVSLT SS00ERRORCODERETURNEDHERE%ACTVOL.HS00ACTUALVOLUMEFOUNDPRVSLT.HS60PREVIOUSSLOT (PRVDRV.HS01PREVIOUSDRIVE&2*---------------------------------4<DEVICE.HS0001EFD8DEVICECHARACTERISTICSTABLE&F*--------------------------------0SLOT6DRIVE.HS01DRIVE1VOLUME.HS00ANYVOLUMETRACK.HS11TRACK17SECTOR.HS00SECTOR0/DCT.DADEVICEDEVICECHARACTERISTICSTABLE!BUF.DABUFFERBUFFERADDRESS.HS0000**UNUSED**CMD.HS01READCOMMAND) ERROR.HQ$9DLCOUNT.EQ$9E,9FVINVFLG.EQ$32&`*---------------------------------jGETIOB.EQ$03E3tMON.HOME.EQ$FC58~MON.COUT.EQ$FDEDMON.CROUT.EQ$FD8EDOS.RWTS.EQ$BD00&*---------------------------------IOB.HS01SLOT.HS6^&*---------------------------------*CATALOGPRINTER&*---------------------------------ZZ.BASE.EQ$2000.ORZZ.BASE.TFB.CATALOG&$*---------------------------------.JMPCATALOG&8*---------------------------------BSAVX.E      ˠ)nd2e?]9xa()Gd2ea(Ҡàӻ٠)0a(̠٠ŠŠӮ)[ a(Ġӭîͮ)M)0(o Pa(ĠӭàϠ)c)2Pa(ҠҠ)\d1<oPa(ȿ)GR@`@:()@:()$(Fc`@9()$PM6a()a()3doa(źŠɧӠΠӠ-PTRTBL .DA #VARTAB .DA #PRGEND .DA #PRGBEG .DA #TXTPTR .DA #OLDTXT .DA #0&*---------------------------------- LDA (RNMPTR),Y l BEQ LODPFP FINISHEDv ADC DELTA+1 STA (RNMPTR),Y STX RNMPTR STA RNMPTR+1 BCC RENUM&*---------------------------------LODPFP JMP CLEAR&*----------------------------------------------------------------RNM LDA PRGBEG STA RNMPTR LDA PRGBEG+1 STA RNMPTR+1RENUM LDY #0& CLC0 LDA (RNMPTR),Y: ADC DELTAD STA (RNMPTR),YN TAXX INYb LDY #0 UPDATE ALL POINTERS|UPDLP LDX PTRTBL,Y BEQ RNM CLC LDA 0,X ADC DELTA STA 0,X LDA 1,X ADC DELTA+1 STA 1,X INY! BNE UPDLP ...ALWAYS&*-NE MOV2 DEC DPTR+1MOV2 DEC DPTR&" LDA SPTR SEE IF THROUGH, CMP PRGBEG6 LDA SPTR+1@ SBC PRGBEG+1J BCS MOVET LDA #0^ STA (DPTR),Y&h*---------------------------------+r A+1 STA DPTR+1&*---------------------------------' LDY #0 MOVE PROGRAM UPMOVE LDA (SPTR),Y STA (DPTR),Y LDA SPTR BNE MOV1 DEC SPTR+1MOV1 DEC SPTR LDA DPTR B---------------------------------3PLOAD1 CLC COMPUTE DESTINATION POINTERZ LDA PRGEND1d STA SPTR AND SET UP SOURCE POINTERn ADC DELTAx STA DPTR LDA PRGEND+1 STA SPTR+1 ADC DELT&*--------------------------------- DELTA .DA *-*&*---------------------------------'LOADER LDA PRGBEG+1 GET PAGE OF PRG+( CMP #$08 SEE WHERE PRGBAS IS2 BEQ LOAD17< RTS MUST ALREADY HAVE BEEN EXECUTED&F*------DPTR .EQ $5E,5FRNMPTR .EQ $5E,5FPRGBEG .EQ $67,68VARTAB .EQ $69,6AOLDTXT .EQ $79,7ASPTR .EQ $9D,9EPRGEND .EQ $AF,B0TXTPTR .EQ $B8,B9AMPVEC .EQ $3F5CLEAR .EQ $D66C+STROUT .EQ $DB3A PRINT STRING AT Y,AHEAPPLESOFTPROGRAMSHOULD:B*1.BLOADTHEML-LOADER(L*2.POKETHENUMBEROFBYTESNEEDEDV*INTO768AND769.`*3.CALL770.,j*4.BLOADTHEMACHINELANGUAGEPROGRAM.t*&~*---------------------------------&*---------------------------  .OR $300&*---------------------------------** GENERAL ML-LOADER FOR APPLESOFT*-*THISPROGRAMWILLRELOCATEANAPPLESOFT)*PROGRAMTOLEAVEROOMFORAMACHINE-$*LANGUAGEPROGRAMWHICHSTARTSAT$0800..*+8*TOUSE,T  YTES,STARTINGHERE& *--------------------------------- ZZ.SIZE.EQ*-ZZ.BASE .LISTONY 6 .AS-//@ QLEFT.AS/SECTORSLEFT/ J .HS8D&T *---------------------------------^ QTOLDAQTS,Y h BMI.1 r ORA#$80| JSRMON.COUT INY BNEQTO...ALWAYS .1JMPMON.COUT& *---------------------------------) BUFFER.EQ*256BGITFROMSTACK ADC#0INCREMENT JMP.2 .3PLAGETDIGITFROMSTACK JSRMON.COUT DEX BPL.1 LDXSAVX LDA#$A0 JMPMON.COUT& *--------------------------------- QTS QTITLE.AS/VOLUME/ " .AS-//, QDASH.AS/--/ STXSAVX LDX#23DIGITLOOP .1LDA#'0+$80DIGIT=0( .2PHASAVEONSTACK2 LDACOUNT< CMPCNVTBL,XF LDACOUNT+1 P SBC#0 Z BCC.3d LDACOUNTn SBCCNVTBL,Xx STACOUNT LDACOUNT+1 SBC#0 STACOUNT+1 PLAGETDI&*---------------------------------*STRINGSEARCHPROGRAM&*---------------------------------*/*TYPE$800GTOSETUPTHECONTROL-YVECTOR*$*CALLSEARCHBYTYPING.*THEMONITORCOMMAND:(8**ADR1.ADR2Y(WHEREYISCONTROL-Y)    *"$ FLSTCMP#CHR.RETURNISITCR?!. BNESLW4NO,SOKEEPLISTING$8 BEQSLW1YES,SOCHECKFORKEYSLW2LDA$C000NO,SOSUSPENDBPLSLW2WAITFORKEYSTA$C010CLEARSTROBECMP#CHR.RETURNISITCR?BEQSLW5YES,SOABORT"SLW3LDA#CHR.RETURNOUTPUTCRSLW4JMPMON.COUT1!SLW5JMPDOS.SOFT...ABORT... * *FAST-LISTROUTINE#CHR.RETURNISITCR?fBNESLW4NO,SOPRINTITpLDA#0YES,SOSLOWDOWNzJSRMON.DELAY%SLW1LDA$C000CHECKIFKEYTYPEDBPLSLW3NO,OUTPUTCR STA$C010YES,CLEARSTROBECMP#CHR.RETURNISITCR?BEQSLW5YES,SOABORT!S.3LDA#77TIMINGLOOPFOR300BAUD .4PHA LDA#$20 .5LSR BCC.5PLA SBC#1 BNE.4 PLAGETCHAR(CARRYISSET)RORNEXTBITINTOCARRY DEY*BNE.1SENDNEXTBIT4RTS>*H*SLOW-LISTROUTINER*"\SLSTCMPPMON.COUT1D.PGN* X*PRINTEROUTPUT--300BAUDb* lPOUTINCNEWCCOUNTTHECHARvPOT0LDY#10#BITSTOSENDCLCSETUPFORSTARTBIT.1PHASAVECHARBCS.21-BIT,SENDMARKLDA$C059SPACE BCC.3.2LDA$C058MARK'.7IGNOREIFEXCESSCMPCHSEEIFNEEDTABBCS.6NOLDA#CHR.BLANKSENDBLANKS JSRPOUTTOCATCHUPTOTABBEQ.5...ALWAYS .6PLAPHAJSRPOUTPRINTIT.7PLARESTORECHAR&LDYPRTYRESTOREXANDY 0LDXPRTX:JM.COUT1^LDA#0CLEARLINECOUNT hSTALNCT(rBEQSLW2JOINSUSPEND,WAITFORKEY|*#.3LDYOLDCNOTENDOFLINEYETBEQ.4PASTPREVIOUSLINE DECOLDC.4PHASAVECHAR .5LDANEWCSEEIFLINEFULLCMP#7080-CHARLINEBCSERMARGIN JSRPOT0DEX BNE.2LDYPRTYRESTOREXANDY LDXPRTX"INCLNCTCOUNTTHELINE ,LDALNCTSEEIFENDOFPAGE6CMP#56#LINESPERPAGE%@BCCSLW1NOTEND,JOINFASTLIST#JLDA#CHR.RETURNYES,OUTPUTCRTJSRMONREVLINEd*WASLONGERTHANTHISLINEnINYx.1LDA#80WAITAWHILEJSRMON.DELAYDEY BNE.1LDA#CHR.RETURNOUTPUTCR JSRPOUT LDANEWC STAOLDC LDA#0 STANEWCLDX#10LEFTMARGIN%.2LDA#CHR.BLANKTABOVER!STAOLDC#CHARSINOLDLINE!STANEWC#CHARSINNEWLINESTALNCT#LINESTHISPAGE RTS**PRINTERDRIVER(*2PRNTSTYPRTYSAVEXANDY <STXPRTXFCMP#CHR.RETURNISITCR?PBNE.3NO(ZLDYOLDCYES,GET#CHARSP$F1#CHARSINNEWLINE"LNCT.EQ$F2#LINESTHISPAGEPRTX.EQ$F3SAVEXREGPRTY.EQ$F4SAVEYREG&SETUPLDA#PRNTSETUPOUTPUTHOOK STA$36LDA/PRNT STA$37%JSRDOS.IOHOOKTELLDOSABOUTIT"LDA#0CLEARCOUNTSINDRIV-------------8CHR.RETURN.EQ$8DBCHR.BLANK.EQ$A0&L*---------------------------------VMON.DELAY.EQ$FCA8`MON.COUT1.EQ$FDF0&j*---------------------------------tCH.EQ$24HORIZPOSITION$~OLDC.EQ$F0#CHARSINOLDLINE$NEWC.EQj &*---------------------------------+*SAMPLEPRINTERDRIVERSUINGGAMEPORT&*---------------------------------.OR$300PUTINPAGE3&*---------------------------------DOS.IOHOOK.EQ$03EA$DOS.SOFT.EQ$03D0&.*--------------------     A(R15L),YHIGH-ORDERBYTEOFCONSTANT%STAR0H,XINTOSELECTEDREGISTERDEY,LDA(R15L),YLOW-ORDERBYTEOFCONSTANT&STAR0L,X0TYAY-REGCONTAINS1:SECDADCR15LADD2TOPC NSTAR15L XBCC.1 bINCR15H l.1RTS&v*-----&*---------------------------------RTNZPLAPOPRETURNADDRESSPLA!JSRMON.RESTORERESTOREREGS*JMP(R15L)RETURNTO6502CODEVIAPC&*---------------------------------*SETR,VALUE&*---------------------------------1SETZLDTOBR2INCRPC ^INCR15H(hTOBR2LDABPTBL,XLOW-ORDERADRBYTErPHAONSTACKFORRTS&|LDAR14H"PRIORRESULTREG"INDEX"LSRPREPARECARRYFORBC,BNC!RTSGOTONON-REG-OPROUTINE&*---------------------------------*RETURNTOCALLERXR14HINDICATE"PRIORRESULTREG"LSRLSRLSROPCODE*2TOLSB'STAYUSEASINDEX)"LDAOPTBL-2,YGETLOW-ORDERADRBYTE,PHAONSTACKFORRTS6RTSGOTOREG-OPROUTINE&@*---------------------------------JTOBRINCR15LTBNELDY#0(LDA(R15L),YFETCHNEXTINSTRUCTION"AND#$0FMASKREGISTERNYBBLE$ASLDOUBLEFOR2-BYTEREGISTERSTAXTOX-REGFORINDEXINGLSRBACKFOREOR(EOR(R15L),YNOWHAVEOPCODENYBBLE)BEQTOBRIFZEROTHENNON-REGOPCODE)ST&P*---------------------------------!Z*DOONESWEET-16INSTRUCTION&d*---------------------------------#nSW16CINCR15LINCREMENTPC-REGxBNESW16D INCR15H4SW16DLDA/*+256PAGE#OFMAINPARTOFSWEET-16PHAPUSHONSTACKFORRTS ------------------------ SW16JSRMON.SAVESAVEREGS$PLASTARTINTERPRETINGSWEET-16(STAR15LRIGHTAFTERTHE"JSRSW16"(PLAR15ISSWEET-16PC-REG 2STAR15H-<SW16BJSRSW16CINTERPRETANDEXECUTEONE#FJMPSW16BSWEET-16INSTRUCTION------*ORIGINAT$F689INROM!*ORIGINAT$XX89INUSERRAM&*---------------------------------#*ORIGINMUSTBEOFFORM$XX89."*ROMVERSIONHASORIGIN=$F689.OR$0889&*---------------------------------*MAINENTRY&*---------Q$01VR14H.EQ$1D`R15L.EQ$1EjR15H.EQ$1F&t*---------------------------------~*MONITORSUBROUTINES&*--------------------------------- MON.SAVE.EQ$FF4ASAVEREGS&MON.RESTORE.EQ$FF3FRESTOREREGS&*---------------------------&*---------------------------------*SWEET-16*--------*BYS.WOZNIAK*COPYRIGHT1977BY*APPLECOMPUTERINC.&$*---------------------------------.*PAGEZEROUSAGE&8*---------------------------------BR0L.EQ$00LR0H.E      NGEBNE.4NOTSAME.3INYADVANCEPOINTERSINX#CPXKEY.SIZESEEIFENDOFKEYBNE.2NOTYETLDAA1LDISASSEMBLE STAPCL LDAA1H STAPCH JSR $F8D0.4JSR$FCBANEXTBYTE"BCC.1NOTFINISHED,RTSN---------------------------------Z*SEARCHSUBROUTINE&d*---------------------------------nSEARCH.STRING x.1LDX#0 LDY #0".2LDAKEY,XGETCHARFROMKEYCMPWILD.CARD.CHAR BEQ.32CMP(A1L),YCOMPAREWITHCHARINSEARCHRABLOCKTOBESEARCHEDA1H.EQ$3D&Y.VECTOR.EQ$3F8CONTROL-YVECTOR&*--------------------------------- SETUPYLDA/SEARCH.STRINGSTAY.VECTOR+2LDA#SEARCH.STRING(STAY.VECTOR+12LDA#$4CJMPOPCODE<STAY.VECTORFRTS&P*MATCHED&*---------------------------------*PAGEZEROVARIABLES&*---------------------------------KEY.SIZE.EQ$00WILD.CARD.CHAR.EQ$01KEY.EQ$02THRU$1F$PCL.EQ$3APCFORDIS-ASSEMBLERPCH.EQ$3B/A1L.EQ$3CADDRESSOFB*OR)L*:$ADR1.ADR2Y(WHEREYISCONTROL-Y)V*4`*MEMORYFROMADR1THROUGHADR2WILLBESEARCHED-j*FORTHEKEYSTRINGSTOREDINPAGEZERO.,t*($00)=LENGTHOFSTRINGTOBEMATCHED!~*($01)=WILDCARDCHARACTER&*($02-$1F)=STRINGTOBESULTREGINDEXTAXLDAR0L,XCHECKBOTHBYTES ANDR0H,XFOR$FF(MINUS1) $EOR#$FF.BEQBR1BRANCHIFSO8RTS&B*---------------------------------$LBNM1ASLDOUBLERESULTREGINDEXVTAX+`LDAR0L,XCHECKBOTHBYTESFORNOT$FFQBR1BRANCHIFSO RTS& *---------------------------------# BNZASLDOUBLERESULTREGINDEX TAX LDAR0L,XTESTFORNON-ZERO ORAR0H,XBOTHBYTES BNEBR1BRANCHIFSO RTS& *---------------------------------# BM1ASLDOUBLERE------------"4 BMASLDOUBLERESULTREGINDEX> TAXH LDAR0H,XTESTFORMINUSR BMIBR1BRANCHIFSO\ RTS&f *---------------------------------"p BZASLDOUBLERESULTREGINDEXz TAX LDAR0L,XTESTFORZERO ORAR0H,XBOTHBYTES BER15H STAR15H BNC2RTS& *--------------------------------- BCBCSBR RTS& *---------------------------------" BPASLDOUBLERESULTREGINDEX TAX LDAR0H,XTESTFORPLUS BPLBR1BRANCHIFSO RTS&* *----------------------REGIS12*2!'D JSRSTAT2PUSHLOWPCBYTEVIAR12 N LDAR15H&X JSRSTAT2PUSHHIGH-ORDERPCBYTE b BRCLCl BNCBCSBNC2NOCARRYTEST&v BR1LDA(R15L),YDISPLACEMENTBYTE BPLBR2 DEY BR2ADCR15LADDTOPC STAR15L TYA ADCRYTOLSB STAR14H RTS& *--------------------------------- ADDLDAR0L ADCR0L,X STAR0LR0+RXTOR0  LDAR0H ADCR0H,X LDY#0R0FORRESULT& BEQSUB2FINISHADD&0 *---------------------------------#: BSLDAR15LNOTEX2DECR0L,XT RTS&^ *---------------------------------h SUBLDY#0RESULTTOR0#r CPRSECNOTEY-REG=13*2FORCPR | LDAR0L SBCR0L,X STAR0L,YR0-RXTORY LDAR0H SBCR0H,X SUB2STAR0H,Y TYALASTRESULTREG*2 ADC#0CARRX& *--------------------------------- STPATJSRDCRDECRRX  LDAR0L& STA(R0L,X)STORER0LOWBYTE@RX, JMPPOP3INDICATER0ASLASTRESULTREG&" *---------------------------------, DCRLDAR0L,X6 BNEDCR2DECRRX@ DECR0H,XJ DCRBYTETOR0,INCRRX& LDA(R0L,X)HIGH-ORDERBYTETOR0 STAR0H JMPINRINCRRX& *---------------------------------+ STDATJSRSTATSTOREINDIRECTLOW-ORDER LDAR0HBYTEANDINCRRX& STA(R0L,X)STOREHIGH-ORDERBYTE JMPINRINCR(R0L,X)POPHIGH-ORDERBYTE@RX< TAYSAVEINY-REGF POP2JSRDCRDECRRXP LDA(R0L,X)LOW-ORDERBYTEZ STAR0LTOR0 d STYR0Hn POP3LDY#0x STYR14HLASTRESULTREG RTS& *---------------------------------0 LDDATJSRLDATLOW-ORDER----' LDATLDA(R0L,X)LOADINDIRECT(RX) STAR0LTOR0 LDY#0ZEROHIGH-ORDERBYTE STYR0H BEQSTAT3...ALWAYS& *---------------------------------! POPLDY#0HIH-ORDERBYTE=0 BEQPOP2...ALWAYS( POPDJSRDCRDECRRX(2 LDAH` STAR0H,Xj RTS&t *---------------------------------~ STATLDAR0L) STAT2STA(R0L,X)STOREBYTEINDIRECT LDY#0 STAT3STYR14HRESULTREG INRINCR0L,X BNEINR2INCRRX INCR0H,X INR2RTS& *------------------------------------SETBPLSETZ...ALWAYS&*---------------------------------LDLDAR0L,X  BK.EQ*-1BREAKINSTRUCTION  STAR0L LDAR0H,X $ STAR0H. RTS&8 *---------------------------------B STLDAR0LL STAR0L,XMOVERXTOR0 V LDAR0.DA#BK-10Az.DA#POPD-1CX.DA#RS-10B.DA#CPR-1DX.DA#BS-10C.DA#INR-1EX.DA#NUL-10D...UNUSED.DA#DCR-1FX.DA#NUL-10E...UNUSED.DA#NUL-1...UNUSED.DA#NUL-10F...UNUSED&*--------------------------.DA#BC-103.DA#STAT-15X.DA#BP-104.DA#LDDAT-16X .DA#BM-105.DA#STDAT-17X .DA#BZ-106*.DA#POP-18X4.DA#BNZ-107>.DA#STPAT-19XH.DA#BM1-108R.DA#ADD-1AX\.DA#BNM1-109f.DA#SUB-1BXp----------------------------*OPCODEBRANCHTABLE*LOW-ORDERBYTESONLY&*---------------------------------OPTBL.DA#SET-11XBPTBL.DA#RTN-100.DA#LD-12X.DA#BR-101.DA#ST-13X.DA#BNC-102.DA#LDAT-14X .MAFDIV& LDA#]1ADDRESSINY,A 0 LDY/]1: JSR$EA66AS.FDIVD .EM .MAFSUB LDA#]1ADDRESSINY,A LDY/]1 JSR$E7A7AS.FSUB .EM * - *>FMULP1FAC=ARG*FAC * - .MAFMUL LDA#]1ADDRESSINY,A LDY/]1 JSR$E97FAS.FMUL .EM * - *>FDIVP1FAC=ARG/FAC * - FSTORE LDX#]1ADDRESSINY,X LDY/]1 JSR$EB2BAS.MOVMF .EM * - *>FADDP1ADDVALUETOFAC" * - , .MAFADD6 LDA#]1ADDRESSINY,A @ LDY/]1J JSR$E7BEAS.FADDT .EM^ * - h *>FSUBP1FAC=VALUE-FACr * - |ARESTOREA(Z RORSHIFTRIGHTWITHSIGNEXTENSIONd .EMn * -#x *>FLOADP1LOADVALUEINTOFAC * - .MAFLOAD LDA#]1ADDRESSINY,A LDY/]1 JSR$EAF9AS.MOVFM .EM * -% *>FSTOREP1STOREVALUEFROMFAC * - .MARP1ARITHMETICRIGHTSHIFT * - .MAASR LDA]1GETPARAMETER ASLSIGNBITINTOCARRY% ROR]1SHIFTRIGHTSIGNEXTENDED .EM * -$ *>ASRAARITHMETICRIGHTSHIFTA( * - 2 .MAASRA< PHASAVEAF ASLSIGNINTOCARRYP PLXAPHATYA PHA .EM * -*$ *>PULLREGSRESTOREY,X,AFROMSTACK. * -8 .MAPULLREGSB PLAL TAYV PLA` TAXj PLAt .EM~ * - *>BRAP1BRANCHALWAYS * - .MABRA CLV BVC]1 .EM * -$ *>AS2+1 >STA]3+1H.EMR* -'\*>CMPDP1,P2COMPARE16-BITVALUESf*(CLCIFP1PUSHREGSSAVEA,X,YONSTACK* -.MAPUSHREGSPHATOVE16-BITVALUEFROMP1TOP2* - .MAMOVD LDA]1 STA]2 LDA]1+1 STA]2+1.EM* -&*>ADDDP1,P2,P3ADD16-BITVALUES*P3=P1+P2* - .MAADDDCLC LDA]1 ADC]2 STA]3 *LDA]1+1 4ADC]EMENT)* - .MANEGA EOR#$FFCLC ADC#1.EM* -'*>PNTRP1,P2BUILDAPOINTERTOP1%&*(PUTSADDRESSOFP1ATP2,P2+1)0* - :.MAPNTR DLDA#]1 NSTA]2 XLDA/]1 bSTA]2+1l.EMv* -1*>MOVDP1,P2MDECREMENTA* - ".MADECA,SEC 6SBC#1@.EMJ* -T*>CLRACLEARA^* - h.MACLRA rLDA#0|.EM* -'*>INVAINVERTA(1'SCOMPLEMENT)* - .MAINVA EOR#$FF.EM* -'*>NEGANEGATEA(2'SCOMPLMPARISONP* - Z.MABGE dBCS]1n.EMx* -!*>BLTP1BRANCHIFLESSTHAN*AFTERUNSIGNEDCOMPARISON* - .MABLT BCC]1.EM* -*>INCAINCREMENTA* - .MAINCACLC ADC#1.EM* -*>DECA.EM* -*>ADDP1ADDVALUETOA* - .MAADDCLC ADC]1.EM* -#*>SUBP1SUBTRACTVALUEFROMA* - .MASUBSEC SBC]1(.EM2* --<*>BGEP1BRANCHIFGREATERTHANOREQUALF*AFTERUNSIGNEDCON *SAVEMACROLIBRARY* -%*>INCDP1INCREMENT16-BITVALUE* - .MAINCD INC]1 $BNE:1 .INC]1+18:1B.EML* -%V*>DECDP1DECREMENT16-BITVALUE`* - j.MADECD tLDA]1 ~BNE:1 DEC]1+1 :1DEC]1    A(R0L,X)SAMEFORLOWBYTE STAR15LRTS&*---------------------------------RTNJMPRTNZ&*---------------------------------ADjANDR0H,X tEOR#$FF"~BNEBR1BRANCHIFNOTMINUS1 NULRTS&*---------------------------------,RSLDX#12+1212*2FORR12ASSTACKPNTRJSRDCRDECRSTACKPNTR*LDA(R0L,X)POPHIGHRETURNADRTOPC STAR15H JSRDCR"LDRESSINY,A 0 LDY/]1: JSR$EA66AS.FDIVD .EM *$ *>MULTP1,P2,P3P3=P1*P2(16BIT) * .MAMULT LDA#0 STA]3 STA]3+1 :1LDA#0 CMP]2 BNE:2 CMP]2+1 BNE:2 JMP:3:2>ADDD]1,]3,]3 >DECD]2 RESSINY,A LDY/]1 JSR$E7A7AS.FSUB .EM * - *>FMULP1FAC=ARG*FAC * - .MAFMUL LDA#]1ADDRESSINY,A LDY/]1 JSR$E97FAS.FMUL .EM * - *>FDIVP1FAC=ARG/FAC * -  .MAFDIV& LDA#]1ADDJUSTSPEEDTYPE"ESC"TORETURNTOMASTERMENUBYJOHNCHRISTIAN/ T .HS00^ DOSSTRING.AS-"RUNHELLO" h .HS8DJ]1ADDRESSINY,A @ LDY/]1J JSR$E7BEAS.FADDT .EM^ * - h *>FSUBP1FAC=VALUE-FACr * - | .MAFSUB LDA#]1ADD LDA#20 CMPW BNEPLTMRE1 JMPSTART PLTMRE1JMPPLTMRE DOSEXITLDA#DOSSTRING STAX LDA/DOSSTRING  STAX+1 MORDOSLDY#0" LDA(X),Y, JSR$FDED 6 >INCDX@ JMPMORDOSoJ ASCII.AS-/PRESSBTTN0ANDUSEPDL0TOADCLC LDA#40 SBCK STAY >PLOTI,K >PLOTK,I( >PLOTX,Y2 >PLOTY,X< >PLOTK,XF >PLOTX,KP >PLOTI,YZ >PLOTY,I d INCJ n LDA#51 x CMPJ BNEPLTMRE1 INCI LDA#20 CMPI BNEPLTMRE1 INCW . STAQ8 >DIVY,Q,XB >ADDDX,Z,Y L LDAYV JSRSETCOL` BIT$C061j BNENOCHNG t LDX#0~ JSRPREAD STYWTLEN NOCHNGLDAWTLEN JSRWAIT LDA$C000 CMP#$9B BEQDOSEXIT LDA#40 CLC SBCI STAX JMPMORTXTpSTARTLDA#3 zSTAW LDA#1 STAI LDA#0 STAJ STAW+1 STAI+1 STAJ+1PLTMRE>ADDDI,J,K LDA#0 STAQ LDA#3 STAQ+1>ADDDI,Q,X >MULTJ,Q,Y >DIVY,X,Z >MULTI,W,Y $ LDA#12CLRTOP.EQ$F836PREAD.EQ$FB1EWAIT.EQ$FCA8SUPRODLDA$C050LDA$C056LDA$C054JSRCLRTOPLDA#ASCII STAKLDA/ASCII STAK+1*MORTXTLDY#04LDA(K),Y >CMP#0HBEQSTARTRJSR$FDF0 \>INCDKfP.EM**>PLOTP1,P2* .MAPLOT &LDY]1 0LDA]2:JSR$F800D.EM NW.EQ$FE XI.EQ$FC bJ.EQ$FA lK.EQ$EE vX.EQ$EC Y.EQ$EA Z.EQ$E8 Q.EQ$E5WTLEN.EQ$E7SETCOL.EQ$F864PLOT.EQ$F800:1 ":3NOP,.EM6*#@*>DIVP1,P2,P3P3=P1/P2(16BIT)J* T.MADIV ^LDA#0 hSTA]3 rSTA]3+1|:1>CMPD]1,]2 BCC:2CLC LDA]1 SBC]2 STA]2 LDA]1+1 SBC]2+1 STA]2+1 >INCD]3 JMP:1 :2NO]1 ZCMP]2 dLDA]1+1 nSBC]2+1x.EM*$*>MULTP1,P2,P3P3=P1*P2(16BIT)* .MAMULT LDA#0 STA]3 STA]3+1:1LDA#0 CMP]2 BNE:2CMP]2+1 BNE:2 JMP:3:2>ADDD]1,]3,]3 >DECD]2 JMPDP1,P2,P3ADD16-BITVALUES*P3=P1+P2* - .MAADDDCLC LDA]1 ADC]2 STA]3 LDA]1+1 ADC]2+1 STA]3+1.EM* -'(*>CMPDP1,P2COMPARE16-BITVALUES2*(CLCIFP1INCDP1INCREMENT16-BITVALUE* - .MAINCD INC]1 BNE:1 $INC]1+1.:18.EMB* -%L*>DECDP1DECREMENT16-BITVALUEV* - `.MADECD jLDA]1 tBNE:1 ~DEC]1+1 :1DEC]1.EM* -&*>ADD         3G REMLOADS-CMACROASSEMBLERREMINTOTHELANGUAGECARD !CALL-151 +C080C0805BLOADS-C.ASM.MACRO.LCU?300:A94CCD00E0F0128D00E0A9008D01E0A9D08D02E0A9CB8DD10360I300GSF800INCDXJMPMORDOSoASCII.AS-/PRESSBTTN0ANDUSEPDL0X>CLC HLDA#40 RSBCK \STAYf>PLOTI,Kp>PLOTK,Iz>PLOTX,Y>PLOTY,X>PLOTK,X>PLOTX,K>PLOTI,Y>PLOTY,I INCJ LDA#51 CMPJBNEPLTMRE1 INCI LDA#20 CMPIBNEPLTMRE1 INDA#12 STAQ>DIVY,Q,X>ADDDX,Z,Y LDAYJSRSETCOLBIT$C061BNENOCHNG LDX#0JSRPREADSTYWTLENNOCHNGLDAWTLEN JSRWAITLDA$C000 CMP#$9B BEQDOSEXIT LDA#40 CLC *SBCI 4STAKJMPMORTXTSTARTLDA#3 STAW LDA#1 STAI LDA#0 STAJ STAW+1 STAI+1 STAJ+1PLTMRE>ADDDI,J,K &LDA#0 0STAQ :LDA#3 DSTAQ+1N>ADDDI,Q,XX>MULTJ,Q,Yb>DIVY,X,Zl>MULTI,W,Y vL800CLRTOP.EQ$F836PREAD.EQ$FB1E"WAIT.EQ$FCA8,SUPRODLDA$C0506LDA$C056@LDA$C054JJSRCLRTOPTLDA#ASCII ^STAKhLDA/ASCII rSTAK+1|MORTXTLDY#0LDA(K),Y CMP#0BEQSTARTJSR$FDF0 >INCD:2NOP.EM**>PLOTP1,P2* .MAPLOT LDY]1 LDA]2(JSR$F8002.EM W.EQ$FE I.EQ$FC J.EQ$FA K.EQ$EE X.EQ$EC Y.EQ$EA Z.EQ$E8 Q.EQ$E5WTLEN.EQ$E7SETCOL.EQ$F864PLOT.EQ$FJMP:1 $:3NOP%.EM.*#8*>DIVP1,P2,P3P3=P1/P2(16BIT)B* L.MADIV VLDA#0 `STA]3 jSTA]3+1t:1>CMPD]1,]2 ~BCC:2CLC LDA]1 SBC]2 STA]2 LDA]1+1 SBC]2+1 STA]2+1 >INCD]3 JMP:1 a9LGqLWq^'y9y9ypLI,aH߱ʕhޅ∱ޅiސLCLI$aiaHȆ Hޅȱޅ a  H H H` H a` a a a aȱ  H`          ӍРڍӠҠϠƠҠƍŠұȠƠԠӠ̠ӍӠؠҠұӠˠҍҠҠҠˠҍҰ̬ةРȠΠӠϠÍұȍҠҠŠҠנҠōҰ̬ةұ̍ҰȬؠȠөŠұȠƠύӍͱ̠ŠԭǠ؍؍Ұ̬ؠˠȠӍĠҰȬؠҠƠӠҠƍѠұȠƠύӍͱ̠ŠԭǠ؍؍Ұ̬ؠĠҰȬؠˠŠԭǠ؍؍ҰȬؠԠҠӍɠұӍڠ̠ŠԭǠ؍؍Ұ̬ؠԠҠύҰȬؠȠөѠұȠƠύӍڠ̠ŠԭǠ؍؍Ұ̬ؠԠҠέύұ̩٠Ԡō̠ҲٍҲàұ̠ĠϠÍұ̍àұȍұȍòӍàӠҍӍР̠ŠԭǠ؍ؠϠؠǠҠǍҰȬؠԠҠӍ̠ұȠƠύӍ̠͠հ̍àҰ̬؍Ұ̠ҰؠϠҰҰȍàҰȬ؍٠ҰҠԍѠ²ȠčӠұ̠ŠؠǠӠҠԲȠנàŠұұȍҠԲȠȠҠàōҠÍàӠòϠ٠ԍҲҠ؍àҰȬ؍ҲàҰ̬؍Ӎ ٠ԠϠҰҠàŠ٠ǠҠҍҰ̍àҰ̬؍Ұ̬٠ҰؠϠٍҰȍàҰȬ؍²ҰȬٍԠԠǪà٠ϠұȍӍĠҠŠԠנҍҰȠŠĠҠخ΍Ұ̬ةŠȠҠŮРҠҠؠĠ΍ԠҠҠҠ؍Ұ̍Ұ̬ةŠҰנŠ؍РгŠҰӠԠԠǍҠҰ̬ؠŠҠҠҠ؍Ұ̬ةנҠōҰ̠ϠҰ٠Ұȍг٠ŠҰӠԠԠǍ٠ұȍӍԠҠԠנҠŠϠҰҠ؍Ұ̬ةȠҠŠϠҰҰȍРҠҠؠԠҠҰ̬ةĠԠةҰ̠ϠҰ٠٠ҰȠϠȠҠҰōѠԳӠ΍Р٠ȠҠŠѠвӠ΍ĠҠҠҠ؍Ұ̬ةРȠҠŠ؍٠ŠΠ٠ǍвؠŠؠϠҰҰȍӍԠҰ̍Ұ̬ؠŠҰϠ؍ҰȍҰȬ؍ӍԠҰ̍ԲҰ̬ةŠŠԍ٠Գ٠ұȠŠҰӠԠǍҠàҰ̬؍ŠҲҠ؍àҰȬ؍ҲӍԠĭةؠŸӭ©ؠҭةؠӭéؠŠҭةؠŷ̭ĩؠҭةؠŷ̭ũؠŷ̭ĩؠŷ̭ƩԠ̠ڠӠ΍ĠҰ̬؍ˠՠҰ̍ҰЭؠԭةؠ¹ͭؠԭةؠðڭؠƠЭةؠùڭؠ ԭةؠIJͱؠĭةؠĠͱؠŠ­ةؠ˭ؠРàұ̠ĠϠÍұ̍àԲàұȍԲӍ̠ؠԭة̠ؠƹέؠĭةؠĠҭؠĠԭةؠŠíؠԭةؠƠíؠԭةؠ²°l pchyfseVbkOK7b eABORpfdjhsckTHE 4TH APPLE!pppCOLqGq ap apaa aqߩةlLdS->>qf:fee e+{qfeVbe eD+qfeVbe eABӝqf:fq eDABӯqf:fq eMIνqfffehyfgcrhXt7b kMSG # x eLOAbtfhyf:e hyf:e]g hfgDrhf pLe hfLehf e--tfj]g hfghyffsrhhIf eHOMtt XATrfryfyf*adryff eFLUSrfgghggaecrh]gb*asfwbo eEMPTY-BUFFERsfggfh&m eDRDsf]g>hf eDRbsf*a0>hf eBUFFErsfryf:f:erVbrf]eyfeVb]eh]eyf*ad]gYu]ef]erfLeh eBLOC˄sf>hyfe:eryf:fyf]eh:feVb4rseVbMqfffd:eq"fq#dLeq eMqff:e:eq]eq[dLe]edq"fLeq"f erf#df e/MO@rf:eqLer eLrfSr"ff eMO_rfSrf e*/MOmrf:erLer e*{rfr"ff eM/MOďrf:e]g]e[dLe"f:e[dLe eUSŞr1gpPREּr1gp+BUrf*ae:fgiVbfg:fryfh eUPDL%V"STRING1 = THE STRING THAT"=`"IS TO BE CHANGED"Cjdt"STRING2 = THE STRING THAT"~"IS TO REPLACE STRING ONE""START = STARTING LINE NUMBER""TO BEGIN LOOKING FOR STRING ONE""END = ENDING LINE NUMBER OF"R.A.E. IS NOW WAITING FOR THE"?"NEXT COMMAND. IF YOU WANT"_"TO GET BACK TO APPLESOFT"s"ENTER A C/R."y"PRESS ANY KEY TO CONTINUE...C/R TO END"A$::A$(13)Ā$."C/STRING1/STRING2/START,END"8B"C = CHANGE"R A COMMAND"z"F/ /"$M"THIS WILL LIST THE ENTIRE PROGRAM"}:"PRESS ANY KEY TO CONTINUE...C/R TO END"A$::A$(13)Ā"WHEN THE SEARCH IS DONE ""THE WORD 'READY' WILL APPEAR""AND THE '[' PROMPT""C.E SCREEN. TO STOP THE SEARCH"B4"YOU MAY PRESS ANY KEY AND TO "\>"RESUME THE SEARCH "H"PRESS ANY KEY AGAIN, IF YOU"R"DO NOT WANT THE SEARCH TO"\"CONTINUE PRESS C/R AND YOU"f"WILL SEE 'READY' AND C.R.A.E." p"WILL BE WAITING FO"F/JOE/,500":>"THIS WILL NOT WORK AND WILL CAUSE"l"A SYNTAX ERROR BECAUSE NO 'START' LINE""NUMBER WAS SPECIFIED": "AS EACH LINE IS SCANNED ""IF THE SPECIFIED STRING IS FOUND" "THE LINE WILL BE DISPLAYED ON"*"TH:"F/JOE/300,700":>"THIS WILL SCAN LINES 300 TO 700"O"FOR 'JOE'"d:"F/JOE/500":"THIS WILL SCAN THE PROGRAM""FROM LINE 500 TO THE END FOR""'JOE'""PRESS ANY KEY TO CONTINUE...C/R TO END"A$::A$(13)ĀSEARCH."+&"END = ENDING LINE NUMBER TO"=0"SEARCH TO."k:"PRESS ANY KEY TO CONTINUE...C/R TO END"DA$::A$(13)ĀNX"F/JOE/":b"THIS WILL SCAN THE ENTIRE APPLESOFT"l"PROGRAM FOR ANY OCCURENCE OF"v"THE STRING 'JOE'""ANY CHARACTER MAY BE USED AS"<"A DELIMETER EXCEPT FOR"h"A 'P' ESC CODE,CTL CODE,BLANK OR ANY""COMBINATION THAT DOS MIGHT INTERCEPT""IN THE EXAMPLES A '/' IS USUALLY USED""START = STARTING LINE NUMBER""TO BEGIN THE STRING T BACK TO C.R.A.E. ENTER A '&'."6 A$::A$(13)Ā< X "[ F/STRING/START,END"^ n "F = FIND" "STRING = STRING TO SEARCH FOR" "THE 'STRING' MUST HAVE A DELIMITER" "BEFORE AMD AFTER IT AND THEY " "MUST BE THE SAME""C.R.A.E. ASSUMES THAT MAXFILES ARE"G J"SET TO THE DEFAULT VALUE "p T"IF ENTERING A C.R.A.E. COMMAND OR" ^"ENTERING AN ILLEGAL VALUE IN A PARAMETER" h"CAUSES ANY APPLESOFT ERROR MESSAGES" r"YOU MAY END UP BACK IN APPLESOFT." |"TO GER YOUR COMMAND. C FOR CHANGE"G "OR F FOR FIND ETC. THE FORMATS ARE"_ "DESCRIBED BELOW." "PRESS ANY KEY TO CONTINUE...C/R TO END" "A$::A$(13)Ā ,"DO NOT RESET MAXFILES AS THIS COULD" 6"CAUSE DOS 3.2 TO WRITE OVER C.R.A.E."& @REQUIRES 48K,DOS 3.2, AND"2 "APPLESOFT ON ROM"8 e "TO USE C.R.A.E. YOU USE THE AMPERSAND" "COMMAND. WHEN IN EDIT MODE THE" "WORD 'READY' APPEARS AND A [ NEXT" "TO THE CURSOR." "C.R.A.E. IS NOW WAITING FOR YOU TO " "ENTE ^ ^ ^ ^"@ n"ROUTINE FOR APPLESOFT PROGRAMS"n x"THIS VERSION MUST RUN AT $$7BF0 -$9600" "WHEN YOU RUN 'EDIT.LOAD' " IT RESETS HIMEM TO $7BF0" "AND $03F5 TO 4C 00 8D" "AND LOADS C.R.A.E. INTO MEMORY" "C.R.A.E D (8)013);"C. R. A. E. 1"8(:P2"COPYRIGHTED 1980"s<"HIGHLANDS COMPUTER SERVICES"{F:P(22):"PRESS ANY KEY TO CONTINUE...C/R TO END":A$::A$(13)Ā:Z"THIS IS A CO-RESIDENT APPLESOFT EDITOR" d"                           !!! ! ! ! ! NOP"APPLESOFT OR DOS COMMANDS."G%B "IF THE ERROR MESSAGE 'ERR' APPEARS"u%L "DURING A 'QUOTE' OR 'AUTO-LINE COMMAND"%V "THEN YOU ARE ATTEMPTING TO LACE OR"%` "DUPLICATE OR GO OVER 63999 LINE"%j "NUMBER RANGE."&t "PRESS ANY KEY TO CONTINUE...C/ND RENUMBER.";$"RENUMBER CAN HANDLE PROGRAMS OF ABOUT "X$ "1000 LINES IN LENGTH."$ "IN MOST OF THE EXAMPLES THAT REQUIRED"$ "A DELIMETER A '/' WAS USED BECAUSE OF"$$ "PERSONAL PREFERENCE ONLY."$. "YOU MAY NOT ENTER IMMEDIATE MODE"%8 70F#:"PRESS ANY KEY TO CONTINUE...C/R TO END":A$::A$(13)Ā:P#3740\#4270:f#3510p#4630z#3890#5170#4040##"PLEASE NOTE THE DIFFERNCE BETWEEN THE"#"'INCR' AND 'NEW' POSITIONAL PARAMETERS" $"IN QUOTE AHE 'V' COMMAND IS THE SAME AS THE 'C'"Q">"COMMAND, EXCEPT FOR ONE DIFFERENCE,"|"H"THE 'V' COMMAND WIIL NOT VERIFY THE""R"CHANGED LINE ON THE SCREEN""\"RETURN""f"PRESS ANY KEY TO CONTINUE...C/R TO END":A$::A$(13)Ā:"p2530#z28"OCCURENCE OF STRING1 IN EACH LINE."S!"IF YOU WANT TO CHANGE ANOTHER OCCURENCE"|!"OF STRING1 IN THAT SAME LINE THEN"! "RUN 'CHANGE AGAIN."!:::! "PRESS ANY KEY TO CONTINUE...C/R TO END":A$::A$(13)Ā:!*"V/JOE/BILL/":&"4"TING", "TO LINE 50 TO BE PROCESSED NEXT."n "PRESS ANY KEY TO CONTINUE...C/R TO END":A$::A$(13)Ā: "IF YOU USE 'CHANGE' TO DELETE" "WHOLE LINES THEY CANNOT BE" "ONE AFTER THE OTHER." :" 'CHANGE' WILL CHANGE THE FIRST"$!T BECAUSE THIS SHIFTED THE"Cv"ENTIRE PROGRAM DOWN WHEN LINE 10"l"WAS DELETED C.R.A.E. FIGURES THAT""LINE 20 NOW POINTS TO THE NEXT""LINE SO IT PROCESSED LINE 30""WHICH WAS DELETED AND CAUSED LINE" "40 TO DROP DOWN THUS POINT""10 PRINT 20 PRINT"5"20 PRINT 40 PRINT"E&"30 PRINT"U0"40 PRINT"e:"50 PRINT"D:"WHEN YOU CHANGED 'PRINT' TO"N"NOTHING YOU IN FACT DELETED "X"EVERYTHING IN THE LINE WHICH"b"CAUSED THE LINE TO BE DELETED"l"BU"BY PRESSING ANY KEY AND START AGAIN BY"U"PRESSING ANY KEY OR C/R TO RETURN TO "x"C.R.A.E. AND THE '[' CURSOR":"PRESS ANY KEY TO CONTINUE...C/R TO END":A$::A$(13)Ā:" [ WARNING ]""C/PRINT//":" BEFORE AFTER'"UNCHANGED. WHEN 'CHANGE' IS DONE"N"THE WORD 'READY' WILL APPEAR ON"v"THE SCREEN AND A '[', THIS MEANS""C.R.A.E. IS WAITING FOR A COMMAND.""EACH LINE WILL APPEAR ON THE SCREEN""AS IT IS CHANGED, YOU MAY STOP THE LIST"(RS. IF THE 'CHANGE' CAUSES"?T"THE LENGTH OF THE LINE TO BE"f^"GREATER THAN 253 CHARACTERS THE"h"SCAN WILL STOP AND 'ERR "40 B = 10 40 B = 10"3H "47 GOSUB 25 47 GOSUB 25MAY NOT QUOTE ON TOP OF THE 'FROM'"N1 "RANGE NOR TRY TO LACE THE NEW LINE "s1 "NUMBERS INTO THE 'FROM' RANGE"1 "ALSO SPECIFYING A RANGE BEYOND THE "1 "LAST LINE NUMBER OF YOUR PROGRAM"1 "AS THE 'FROM' WILL NOT PROCESS".2 "PRESS ANY KEYv "FIRST LINE NUMBER BEING 10"_0 "PRESS ANY KEY TO CONTINUE...C/R TO END":A$::A$(13)Āe0 0 " ----->> WARNING <<-----"0 :"IF YOU SPECIFY A 'TO' RANGE"0 "THAT FALLS WITHIN THE 'FROM' RANGE"0 "YOU WILL GET ERR&~ " THANK YOU"D& o& " HIGHLANDS COMPUTER SERVICES"& " 14422 S.E. 132ND"& " RENTON,WA 98055"& " 206-228-6691"& :: ' "APPLE AND APPLESOFT ARE PRESS ANY KEY TO CONTINUE...C/R TO END"/EA$:"R'START','END','INCR','NEW')BH:"START = STARTINNE NUMBER WILL BE"?@"THE NEXT LINE NUMBER IN YOUR PROGRAM."f@"IF THERE IS NO LINE NUMBERS THE"@"FIRST LINE NUMBER WILL BE 10"@@"TO GET OUT OF AUTO-LINE MODE ENTER C/R"@"NO SPACES ARE ALLOWED BETWEEN 'N' AND"A"THE LINE NUMBE?D"NEW LINE NUMBER BY 10")>"N100,5":T>"THIS WILL START YOUR LINE NUMBERING"{>"WITH LINE 100 AND EACH NEW LINE">"WILL BE INCREMENTED BY 5">&:"N100":>0"THIS WILL BEGIN YOUR LINE NUMBERING">:"LINE 100 AND WILL INCREMENT EACH" NO PROBLEMS"==:"PRESS ANY KEY TO CONTINUE...C/R TO END"E=A$U=A$(13)Ā]=:c=y="N START,INCR":="THE 'N' COMMAND IS FOR "="AUTOMATIC LINE NUMBERING."=:"START=STARTING LINE NUMBER"=>:"INCR=AMOUNT TO INCRE<@"YOU MAY CREATE LINES UP TO 255 BYTES"Q OPERATING NOTES <--"::"C.R.A.E. ASSUMES THAT YOUR PROGRAM":"HAS ASCENDING SEQUENTIAL LINE NUMBERS"#;"IF AND RETURN TO EDIT MODE"[9"PRESS ANY KEY TO CONTINUE...C/R TO END":A$::A$(13)Ā:a9(g92{9<13)"1.APPEND"9F13)"2.CHANGE"9P13)"3.DUMP"9Z13)"4.FIND"9d13)"5.LIST"9n13)"6.QUOTE"9x13)"7.VERIFY OFF":13)"8.AUT"L500,1000":68"THIS WILL LIST LINES 500 TO 1000"C8:"L":m8"THIS WILL LIST YOUR ENTIRE PROGRAM"8"YOU MAY STOP-LIST BY PRESSING ANY KEY "8"AND START AGAIN BY PRESSING ANY "8 "KEY AGAIN. PRESSING C/R WILL TERMINATE"9"THE LIST MEMORY"J7"PRESS ANY KEY TO CONTINUE...C/R TO END":A$::A$(13)Ā:P7Y7"L"7:"'LIST' WILL PRODUCE A OPTIMIZED"7"LIST OF YOUR APPLESOFT PROGRAM."7"LIST PRODUCES A LIST FORTY COLUMNS"7"WIDE AND NO SPACES ARE ADDED"8::HE PROGRAM ON DISK YOU ARE APPENDING"C6L:"ENTER LOAD 'PGMNAME'"V6V"LOAD SORT":6`"PRESS ANY KEY TO CONTINUE...C/R TO END":A$::A$(13)Ā:6j"THIS EXAMPLE WOULD APPEND THE PROGRAM"6t"CALLED 'SORT' BEHIND ANY APPLESOFT"7~"PROGRAM INл ʈL}N ADVEN͠ϠŠ: AD1 WILL GET Z8sitjghL{#ȱLȱȱ 刭8PȱQ ֥B8C9)Z Lw LԠ k LLL͠ϠŠ͠T$sitiii";2LF"8 ȱ*,LzL:Lȱ 67 聢 )Lb,L8:LL $67``P@6A7L"8" LRȌmimiLɼɫɅɬɰ LLL0:LR g R祸PQst!8ЛL~ij67Lԭ8gh88ڥԥghst L ȱiiii LR8ghstȱii L#ȱiiȱii L~ȱii stL~8L~8L LLh^L}L} eeLJ88Ű ůLL||, 0:LF  ghstz, g RPQS渱, g RPQ5渱, g RPQ g RPQLJLJ !!!!!!!!""" " " " " """"""""" OGRAM TOO LARGE' THEN YOUR"AL,"APPLESOFT PROGRAM IS PROBABLY"^L6"TOO LARGE FOR MEMORY."L@"PRESS ANY KEY TO CONTINUE...C/R TO END"LJA$LTA$""ĀL^$KA$""ĀK2K"THEN DO THE FOLLOWING;"PK" 1.BRUN BIG APPEND"lK" 2.LOAD PART 'A'"K" 3.CALL 38159"K" 4.ENTER LOAD PART 'B'"K"AND YOUR PROGRAM WILL BE COMPLETE"K"IF YOU STILL GET THE MESSAGE"L"" 'PR"ALONE APPEND FUNCTION THAT IS TO BE UJ"USED TO APPEND YOUR PROGRAM TOGETHER."J"TO USE BIG APPEND FIRST STORE BOTH"J"PARTS OF YOUR PROGRAM ON DISK"J"WHEN YOU ARE THRU EDITING THEM."J"PRESS ANY KEY TO CONTINUE...C/R TO END"KAGE TO FIT IN MEMORY WITH C.R.A.E."JIP"THEN YOU MAY HAVE TO BREAK IT UP"tIZ"INTO TWO PARTS AND SAVE EACH PART"Id"ON THE DISK. THERE IS A SEPERATE APPEND"In"FUNCTION INCLUDED ON THE DISK CALLED"Ix"'BIG APPEND'. THIS APPEND IS A STAND-"(J PARTS."0H"RENUMBER BOTH PARTS WITH PROPER "XH"SEQUENCE ON BOTH AND THEN APPEND"nH"THEM TOGETHER."H "PRESS ANY KEY TO CONTINUE..C/R TO END"HA$HA$""ĀH(H2"BIG APPEND":H<"IF YOUR APPLESOFT PROGRAM BECOMES TO""IF"LARG"TOO LARGE DURING A RENUM AND THAT THE"HG"RENUMBER WAS STOPPED."uG"PRESS ANY KEY TO CONTINUE..C/R TO END"}GA$GGA$""ĀG"IF THIS HAPPENS YOU SHOULD LOAD IN THE"G"BACKUP COPY OF YOUR PROGRAM AND"H"BREAK IT UP INTO TWOHIS WILL RENUMBER LINES 100 THRU 200 WITH THE FIRST NEW"{Fj"LINE NUMBER BEING 5000 AND INCREMENTING EACH NEW LINE BY 20"Ft:"IF THE MESSAGE 'PROGRAM DESTROYED'"F~"APPEARS DURING A RENUMBER OPERATION"F"IT MEANS THAT YOUR PROGRAM HAS GROWN"+τ ,0 \ ,0 \ \ۤ НȄLF``ɰɺ۹ƍ `LFɰLFɺLF)ȹߓ67LJԭ@6A7LL=L؎ؓ$ȓՓL|)LF , ,,,ɍ9Z#ᓅ8Ⓟ9 Jԩ89ȱ LLДȱ :D X ȱȱQP- $ ) \ۥ$! ک$ȱȱж`8Є wd׭2.ʠ ,,,,ɍ%К)HHDm)Ҧ2)XVVЪ LF1Ie)ȹ g R ֠, LQPQ,HH g RPQhhghLFLPȱQQLPۥݓ6ޓ7067ɠЌ%̆mm LF LL\@6A7B8C9 # - QP $LLɠ L.LF2ڄ  g RWLFNPQ g RPQ g RPQ  ]Y[8ȱPȱQݓ6ޓ7"# 67 ۓ8ܓ9iii JԠB8C9$Ќ 6@7A8B9C #ۅ3  gPQT D84L@LLtLLfLȹ8這 g RPQ ֥ͅ L ȱȱ 8967 L͌L͌67 $67Ȅi Lo  q1 )Lee89LJ - @6A7B8C9L)Ȅ`0h}gȱg L狥gh! ȱ ȱ ! L3ȱ ȱLBȱi ȱi LɰɺL͌) g RPQ,温1ȩ0ȩLً g RPQPQ ֠ݭPQ ֩ȱȱLFLcmm$  LF6767 $67) ȩ`)Ȍ``ɍ,ɍL. `LW `09LxLu` - @6A7B8C9L)Ȅ`MLJ&  LF @ҠԠӠΠҠĠӠΠ ǐ )L@)`)i `,,` ILj @ I J I I J Iii LL ǩ  J I! ɀ ɠLԈ Iii I %6>7 ԭ@6A7B8C9LҠĠŧĠφ*    \Lj ` jɍ8 6 2 2 1m 2 2 1mLL \ jɍ 6 2 2 1m 2 2 1m WL! 0   `e ee e 0  $88   `LDA $0051gh6789 PQ ֥gh ;`^