8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LL !Cg" %s"t" (#M8( '% ) L2"u"v" (g?, )7(P0 ( @X p 8 }" !g"n"0 &n"0 %w"x" (,) &y"z" ( %L2")0I0hx H DISK.LABEL.PD2#|Co MAIL.LABELSZݶ BASIC.TO.TEXT77w CAT.FILER+!*/G.CLEFMOUSE.ORG00STARUP.PW  DEMO.MLh @ EDITORuf,@EDITOR.SMALL ;@ EDITOR.LC.@ MACROSXMACRO.PRINTER BLANKP' PRODOS }<BASIC.SYSTEM(( 0DOS.SYSTEM=$  STARTUPPF CONFIGURET W.DEMO]$$|td$$$<@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?.<ʆ>,=?BC8 é&'112` `* O** k*` ~* O* k*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <rȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L)`LG* #*Lt) ) L) )Lt)8e` ,$`ee` (Xp< @ ( )m ( (. ( ( M (i  ``) '(j21 & &!` (&&(i(&(( CBDFGE (z&$ ;(,&z& … ;(ŅL'JJJJ`Ϡ(8`z&h)h3 ')L&18&"m11 2H22h2舌&&12H)M0 h10200I20h2 (`LM%12 `_("L  <8# ȱ)ɀ  ) ( `f&0`ŠӠֱҭԠŠҬî̠ӠĮʎ1&… (n&Dž (\%T&Lk()8= (J 8'&(& ;((ʎ1΄&΄&&322(8`<YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X && 3&&?&Pɘ\   VG+ #X ɛL ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B . ) ɘ"    LB#B#ŠϠĠԠ  m# m# J Qڨ)̰}] нȱ ̀𩠙 i V N c  p"q"r" m" iL XF"LC"ίΠ`~""""""*$ Fs%YeQP!/RB}QBiBB}\ }FEL4#> ȏ6   !"#$%&hh@ihAiH(ؠȱ@JJJJq@)@pvȱ@Hȱ@Ah@@cpe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B f-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпlll IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFȱJL8`GBJ R(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a ,FإGؐ.` ,JHIH۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` 1 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥GȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K08`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ݰJK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 0NN` G8`F@ 0 F LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mJHi 뎁`C8` @)0 3N0" K莭0 ⭪i` ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA C'KI؍0lhh8` Q)T'P") ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`, FإG`BH RFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL)J  8"L zH  8 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Qh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$%хhꭋILhH),ex8 (8` ԍ`@Ae Hk00YpmGIJK,-NOPQRSu' >K@J5 z9X(K zXXK تKo`V8`no` C on zI9XX`)HJJJh`OeNeO࿰ z9XАO`@ȭ@` ON `NJKO`H݅G ` } tͬ 밽܅F݅G ` }) t$ L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@BɼH GB`FaG 3%&N    ܮ `J HH hh` 0 @ LJL t_̴Xܝ ݝ0̴ȩFG  0` ܅F`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 F`aO)@LP8` `  zHOCDC h`yٙ٭yٙ٩`LL =@ -ȹP8` i` ;ם0 -B ;)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J -טyרםOO)׍OୱJJJJ Ȣ؝I؈ 6h(8H ; h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` @ ) 9⬂Ȣ؝z@zݚ@ʈLN KIJHȢݚ h魚)Jn 8 δ ؍ ؍ `H8 ع)8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  H  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . Q#ع؍0 ]讁)`.@+ i ؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL& O, PeNNO N(` C  7 2JvHIwHI؊ LI  ,` A Hv ع Hw ؙ؊ؠIhHIhO`؝}}vIvؐ` hzؽ}؝v h ' h؝zv؈` ` H Rh)N@ 9; L  6$ )bJ ] ) H 6hL )  )حJjIwHIvHNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL9L-M O,p莝eNNO(`JNKOL 6/ $P L8 } [ؑJ`L@ȱ@ `@Nȱ@ LL L L 6 $pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8N@   !"#$Ԡ͠(C)1983-89APPLELKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LRLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE X L e ʆ L e  L XLb$ F` L i ` i({)i [ F `0 F Kȱ FLFúκ卍Ӡ`` H @橭 )Ƨƨn  Х ?` K ) LH % h*,7 :$ ɛL2L7 ԥ ΅  eL} e  ɛɋqɊ|ɍ  Kȱ 蝀 `f    (LK(ةI éXoύX1021ʆ X ;)4i/  8 6 F o+ T# Lo$0)Ħ 0ei 8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍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`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ``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ŠϠŠà͠ӠàԠŠ')*+,-./0123456789:; 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ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?L?@ABCDEFGHIJKLMNӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wU0H);h ;C?BC ,LLLLLL[^)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  cvc]ܢ @J0G eeʎd d E DUEX ЃDWcДJEgDfLH eeh) tt L [ _HH`]ɍ]ɬ` ɠ``DE ɤ<(LΡ DE`80!  eDeE eDDeEE8`D&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L ЌĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`ê紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(DϠ@跻~!Wo*9~~~~ɬƬ~UVERIF!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 @ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABR^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHn 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)nooõĵL LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ@ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõLB8` 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~ `=========================== PROGRAM WRITER STARTUP PROGRAM COPYRIGHT 1985, ALAN BIRD =========================== (:(21);::A$" ":D$(4):4102NM:I1NM:MM$(I): F:I141:A$;::I122:40:A$A$;::I138:A$;::203 H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  Lh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (ED Z $0x8x D- ܸDD#HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`????: 4))4"2"9!2&94) .$">??4>>!!%=/?) )?! (" 63?4>04:) (1 ?%=)#>*/>14/0>14)) 0'<"1 <'14791 <5) &*>*7;??*(! ?1?+2(<22)<$")?2$45"<4?*! =:/20$0(  2>1<=9( =! 7->4 =7.></.><2)<) " FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ穎鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ` `' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]6 Үʰà*à*ҠҠŠ  FzzHH`ϠԠ浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`F d ֠z#9,(A$):) P3:16::" PRODOS "::5J Z5:" Program Writer"s d5:" Copyright 1985-89, Alan Bird" n5:" Version 2.0/April 21, 1989" xNNM 240:ANM380: QUIT A0380: ESC A4ĺD$"RUN CONFIGURE" A5ĺD$"RUN DEMO"((49249)127(49250)127)AA1288CADRSO(I),AF570:430PI;:m PRINT 1ST PAGE OF MENUPG1:560:X1LP:570:5:" "C$(X)" ":: PRINT 2ND PAGE OF MENU&PG2:560:XLP1N:570:5:" "C$(X)" "::PG2:0:" CONFIG0 ILPPG1İ540 310B  MODIFY COMMAND CHARACTERS b C1:NNC:PG2:I1:520:310r 240:A0ı MADRS0O(I)LGĺ(7);:430 1:" ";:1 A$:A$"A"A$"a"ĺ"A-";:A$:A(A$)128:490 A$(27)500&A(A$):(64435)613AI: A27A0:> "AA48:A0AN1İ320:IA:350G ,240M 6 @C0ĢI26:7:M(50)::I". ";:50,M:" "MM$(I)" ":: JVI:ILPVILP TV4:XI:5:" "C$(I)" ";::570: ^INI1 hI0IN rC0310 |ILP1PG2İ52LOAD"F$",A"MADRS:0 :"FILE: '"F$"' LOADED"O :"PRESS ANY KEY ";:A$:f MENU SELECTION C0:I1N:320::I1:310 (49152)128240 A(49152)128:49168,A:A8A11İ320:II1:350:240 A21A10İ320:II1:350:240 A A410,140,800,1200:100T LOAD MACRO FILE INTO EDITOR FOR DEFAULT MACROS :MADRS0Ģ5::(7)"THIS EDITOR DOESN'T HAVE MACROS":210 "LOAD DEFAULT MACRO FILE":: GET MACRO FILE :"NAME OF MACRO FILE: ";F$:F$""ı D$"BSUVWXYZ[IIENCNC2G \:I141:A$;::I122:40:A$A$;::I138:A$;:Y ^2039,(A$):w _32,3:33,34:34,2:35,23 `:::3:"EDITOR CONFIGURATION PROGRAM":690:990 d:::3:"EDITOR CONFIGURATION PROGRAM":: nNNM x220:A0ANM740~=========================== CONFIGURATION PROGRAM COPYRIGHT 1985-9, ALAN BIRD =========================== (:(21);::A$" ":D$(4):10002IIE((64435)6) ZNM:I1NM:MM$(I)::NC,LG,LP:C$(NC),O(NC):I1NC:C$(I),O(I)::757,190 10:10:752; :::15:"ANY KEY";:A$:E :70^INI1 hI0IN" r3300 | QUIT < :::  7,INSTALL EDITOR,INSTALL LANGUAGE CARD EDITOR,INSTALL SMALL EDITOR,RUN CONFIGURE PROGRAM,RUN DEMO,SWITCH TO DOS 3.3,QUIT  ONERR HANDLER :752,173:753,222:754,0:755,76:756,12:(49152)128260P A(49152)128:49168,A:A8A11İ340:II1:350:260t A21A10İ340:II1:350:260 "A13AI: ,A27A0: 6AA48:A0AN1İ340:IA:350 @260 J TI27:5:M(50)::I". ";:50,M:" "MM$(I)" ":: - A6ĺD$"-DOS.SYSTEM": PRODOS ONLY J ::10:"LOADING ...":_ LOAD EDITOR ~ A1ĺD$"BRUN EDITOR":230 A2ĺD$"BRUN EDITOR.LC":230 D$"BRUN EDITOR.SMALL" "LOADED.": MENU SELECTION I1N:340::I1:330 OQRURE KEYS PAGE: "PG:::: PRINT CHARACTER VALUE RDMADRS0O(X)LGıN1::P(CADRSO(X)):P127ĺ"A-";:PP128XP32Ğ:PP64b(P);::l 5,CONFIGURE KEYS,LOAD MACROS,DEFAULT CURSOR,PRINTER SLOT,QUITBv 37,38,18: NUMBER OF COMMANDS, FIRST COMMAND IN LARGE EDITOR ONLY, COMMANDS PER PAGEAUTO LINE NUMBERING,40,BEGINNING OF LINE,33,COPY,50,DELETE LINES,41,TOGGLE CURSOR TYPE,13FIND TEXT,38,GET MACRO FILE,46,INSERT LINE,16,JUMP TO LINE,13,LINE COPY,52,LINE PASTE,53,LOWOLLSBACKWARDS A/PAGE AT A/TIME."B D5:30::I111:(139): 10,8,19,10,"USING PROGRAM/WRITER IT IS VERYEASY TO MAKE/CHANGES TO THE/PROGRAM. FIRST/PLACE THE CURSOR/WHERE THE CHANGE/IS TO BE MADE." A$"":I16:A$(10)A$::I15:A$A$(149)(10):d 5,15,12,6,"THE EDITORWILL ALSO/SCROLL/BACKWARDS.":D5:30::(139):I130:(11): 5,5,14,9,"WE CAN/QUICKLY SCANTHROUGH THE PROGRAM BY/SCROLLING A/PAGE AT A/TIME." 0,1:D5:30::I110:(138):" 5,5,14,7,"THE EDITOR/ALSO SCR30:5 (177): A-1, SHOW FIRST PAGE OF PROGRAM 20,5,14,9,"THIS IS HOW/THE EDITOR/DISPLAYS THEFIRST PAGE/OF THIS DEMOPROGRAM IN/40 COLUMNS.":D8:30: 5,5,23,5,"WE CAN SCROLL THROUGHTHE PROGRAM A LINE ATA TIME.":D5:30: (138):I130:\^_`abcdefO THE DEMONSTRATIONPROGRAM FOR THE////FULL-SCREEN BASIC PROGRAM/EDITOR.":7:12:" PROGRAM WRITER ";:D3:590 x30:5,14,30,7,"IF THE DEMO PROGRAM RUNS/TOO SLOW, YOU MAY PRESS ANY KEY WHEN YOU ARE READY TO/PROCEED TO THE NEXT FEATURE OR MESSAGE.":D20:D :(21)::V1(1014):V2(1015):(4)"BRUN DEMO.ML":0,0:100e(4)"SAVE DEMO":"SAVED.":vD20:30::49168,0:DD1D150:(49152)128Ă:(49168,0:d BEGINNING OF PROGRAMi33,39:M$(13):Q$(34)p n5,3,30,9,"WELCOME T KEY";:A$:SE196%100: PRINTER SLOT h:::3:"PRINTER SLOT FOR SCREEN PRINT"A(CADRS2)::12:"SLOT: "A"";:A$:A$(27)ıA(A$):A1A7ĺ(7);:1210CADRS2,A:MENU ITEMS-NSN:MM$(1)S1$:MM$(2)S2$:6SE1M ONERR HANDLER :752,173:753,222:754,0:755,76:756,12:757,190(222)12Ģ8:"NOT ENOUGH MEMORY. REMOVE THE EDITOR CURRENTLY IN MEMORY."::23:10:10:752:::15:"ANY DEFAULT CURSOR 3*:::8:"DEFAULT CURSOR"/CT(CADRS1):900:N2:MM$(1)"OVERWRITE CURSOR":MM$(2)"INSERT CURSOR":220:9204A0ı>CT32:A2CT223fCADRS1,CT: SAVE MENU ITEMSS1$MM$(1):S2$MM$(2):SNN:  RESTORE 18:5:"SAVE EDITOR (Y/N): ";:A$:A$;:A$"Y"A$"y"780::5:"SAVE AS: ";E$;:I1(E$):(8);::"";A$:A$""E$A$A$""Ģ20:14:E$770D$"UNLOCK"E$990D$"BSAVE"E$",A$4000,L"LNGTHD$"LOCK"E$ ::: SOR,9 GET EDITOR FILE h::"NAME OF EDITOR: EDITOR";E$:E$""E$"EDITOR":8:17:E$D$"BLOAD"E$",A$4000"MADRS(16387)256(16388):LNGTH(16389)(16390)256:CADRS(16391)256(16392) SAVE EDITOR AND QUIT >2,REMOVE EDITOR,36,RENUMBER,47,RESUME AFTER QUIT,55,WORD MODE TOGGLE,56 MOVE LEFT ONE WORD,18,MOVE RIGHT ONE WORD,17,MOVE UP ONEPAGE,15,MOVE DOWN ONE PAGE,14,MACRO COMMAND KEY,43 FORWARD TAB,4,BACKWARD TAB,3,DELETE BEFORE CURSOR,7,DELETE AT CURER CASE,10,MACRO EDITOR,42,MOVE TO END OF LINE,32 NO SPACES,54,OVERRIDE CONTROL VALUE,9,PASTE,51,PRINT SCREEN,44,QUIT,12,REPLACE TEXT,39,SAVE MACRO FILE,45,TWO LINES,48,UPPER CASE,11IVARIABLE LIST,49,40/80 COLUMN TOGGLE,37,DELETE TO END OF LINE,::D10:30::8:A$k 5:10,10,19,4,"THEN SIMPLY TYPE/IN THE NEW VALUE.":D5:30::10:"66":8:~ (194)(139) 1,9,29,4,"YOU CAN MAKE CHANGES BY/INSERTING TEXT INTO A LINE.":25:(197):I111:(21)::5:0,0:" ** THIS WAS INSERTED ** ":10T1,7,29,4,"YOU CAN ALSO DELETE TEXT ONEITHER SIDE OF THE CURSOR.":255:(197):I130:(255)::5:I127:(127)::105,10,26,5,"YOU CAN ALSO DELETE FROMTHE CURSOR TO THE END OFTHE LINE.":25:5:(217):10_5,10,20,7,"V_@ x V SPC` P Sqr Obc N P JLN L@jɯJB {$0) ʎ?B ʎ@B EB FB { HBL1A KBLBGB BBBBBGB N A E @L@LB N AIBQIBP S$CB% S?B$%DBLN0A FUN AND/EFFICIENT.":25nN::5,7,30,5,"PRESS TO RUN THIS/DEMO AGAIN OR ANY OTHER KEY/TO QUIT."XA(49152):A128600bA141100216,0:1014,V1:1015,V2::49168,0BERING ONLY THE/SECTION TO BE MOVED.":25:5,7,30,6,"IF YOU OWN A MOUSE, YOU CAN/USE IT TO QUICKLY POSITION/THE CURSOR OR SCROLL/THROUGH THE PROGRAM.":25D5,7,30,7,"PROGRAM WRITER IS FAST,/POWERFUL AND FLEXIBLE./IT SAVES TIME AND MAKES/PROGRAMMING I M $ S $ V1 V2":22:I110:"----";::23:"PRESS SPACE BAR: ";:80+0::5,5,30,9,"WITH PROGRAM WRITER YOU CAN/EASILY RENUMBER ALL OR PART/OF YOUR PROGRAM. YOU CAN/EVEN MOVE SECTIONS OF THE/PROGRAM TO ANOTHER LOCATION/BY RENUMPE THEM.":25!5,5,30,9,"YOU CAN QUICKLY LIST ALL OF/THE PROGRAM'S VARIABLES IN/ALPHABETICAL ORDER./THIS LETS YOU KNOW WHICH/VARIABLES HAVE ALREADY BEEN/USED WHEN YOU NEED TO COME/UP WITH A NEW VARIABLE NAME.":25_&::"A A $ D DD O WE HAVE DEFINED/MAY NOW BE USED BY ENTERING/SOLID-APPLE "Q$"A"Q$".":25:1:4:3:(217):I115:2:S$::105,10,30,7,"YOU CAN SAVE THE MACROS YOU/HAVE DEFINED ONTO A DISK SO/THAT THEY MAY BE RELOADED/INTO THE EDITOR WITHOUT/HAVING TO RE-TYAY BE DEFINED AS A MACRO/WHICH MAY BE CALLED UP WITH/ONE KEYSTROKE.//LET'S DEFINE MACRO "Q$"A"Q$" AS/"Q$"FOR I = 1 TO 10: "Q$:25:4::I6587:(I)":"::1:4:S$"FOR I = 1 TO 10: ":0,2:33,39:S$:35:(177):0,0x5,10,30,5,"THE MACR0,0:I110:(138)::10:I110:(139)::15:(214)10,8,15,8,"IF YOU WOULD/LIKE, YOU/CAN ADJUST/THE LEFT/MARGIN/INDENTATION.":25:5:I115:(174)::5:I120:(172)::5:I15:(174)::55,5,30,10,"FREQUENTLY USED KEYSTROKES/M4010,3,20,7,"THE EDITOR HAS 2/COMMANDS FOR/EASILY CONVERTING/BETWEEN UPPER AND/LOWER CASE.":25:(177):8:0,0:I1133:(204)::10(194):I1133:(213)::10<10,10,15,6,"YOU CAN EDIT/IN EITHER/40 OR 80/COLUMNS.":25:(214):7:END"M$:1010,10,20,9,"IF YOU ARE ADDING/MANY LINES TO A/PROGRAM, YOU CAN/HAVE THE EDITOR/AUTOMATICALLY/PROVIDE YOUR LINE/NUMBERS.":250,4:(185):(193)(217)"1000"M$M$(215)(1)"FOR I = 1 TO 10"M$"PRINT I"M$"NEXT I"M$"END "M$:OTHER"Q$"GOSUB"Q$" WITH "Q$"GOTO"Q$".":25h0,4:(210)(217)"GOSUB"M$"GOTO"M$(215)(7)"NYNYNYNYNY"(27)r0,1:(177):8,4,23,5,"YOU CAN INSERT A LINEANYWHERE YOU WANT IN THE PROGRAM.":25|I110:(10)::(201)"35 HOME : 6,7,"THE EDITOR CONTAINS A/POWERFUL SEARCH COMMAND./LET'S LOOK FOR THE WORD/"Q$"VALUE."Q$:25:(177)(198)(217)"VALUE"M$(215)(20)"N"4^(177):5,10,27,7,"THE EDITOR ALSO HAS THE/CAPABILITY OF FINDING ANDREPLACING TEXT./LET'S REPLACE EVERY 0:d,(177):1,3,12,4,"AT THE/BEGINNING.":30::10,12,13,4,"OR ANYWHEREIN BETWEEN.":30::56(182):5:(180):5:(178):5;10,10,16,6,"OR YOU CAN GO/DIRECTLY TO A/SPECIFIED LINENUMBER.":25:0,5:(202)(217)"315"M$:5@10,10,2IF YOU WANT TO/CANCEL THE CHANGE,YOU CAN PRESS/ TO RESTORE/THE LINE.":25:5:(27):5"10,10,22,8,"USING THE DIGITS 1-9AS EDITOR COMMANDS,/YOU CAN QUICKLY/POSITION THE CURSOR/ANYWHERE IN THE/PROGRAM.":25:(185):1,10,13,3,"AT THE END.":D3:3S Sx S,0 Ɓ0A܍ S`?BmEBCB@BmFBDB N A?B$$@BȘ SABABABHB$^/ A$CB% S?BȄ$%DBLN0`)?LS?B$@B SIBMAPQ` AIBQ SIBP S$CB% S?B$%DB`BBBBGB $B @BB 8`HHȱ  #M hhLMhh8` PG P A, YH Sh )N Y GP kEL;N``Hh`8PQ/ Q^&P &^ &^ePP^eQQP&QPe PQ `LoR$%`$%`$LS^_ O^_戠ȱкLLVLLhh,VLL`V8` 2 !,V0A[ a{ ) `VL'M,V0ŎV,VVM Б `V Ў`A[a{8` M:0` :ȱ8`8nV8`8`е8`~V8` 8``   #M VVLT` $VHH Vȱ  SV$ N AV * & "F E$! kEL0LV 5IL0L! SɠȌuVV$$uV S) $ V$ PLL V hh`VVVV0Ƚ A #M,V0 V,V0 b% SLJ%% S PL KLNL#B Rruqr, #O! u0mV!u0qr NqrL-Kqr ObcLJqr𬅛 R #Oy R!yy RumV! S Tqr NqrLN,V0),V0=,V08 R$% LS S NLJ RVmVVVmɠ kELI 5IL5I0! kE N,V0%$V % N $!(&%),V0$0 % SV SH% ShLjJ S 8FL8J SLN RzȱbL#Bbbc Nqr R Ibcb #Oy$z0R R!yy$z0: RmV!$z0y S Tbc Obc%%LR@LS #I$)` R%LSL"K$! % JLS$!$`,V0%V$%vvLvJ R%LS YE Sɠ$% YE SɠL#I` Sɠ #ILI #I Sɠ`8fz S` R%0%% R S$LO$%` YELI!$% 0 #ILI SэLG HLG8VV`IiVmV`pVqrV N HLQ{ PV LVV 3NV8`VI$pV SLTx x` RVV RVV TVVLH Nqrqr Obc LJ RLЍV,V qHs P% S PQ Lr RpV %$ގVbc( #O L OLBG,Vqbc J SLG,V GPK cP,V R H PLTSsVtV,V5 HtV0sV,V0 [ 3N HLGk 3N  H LL"G HVVVe,V0 ɛХ{ɠ %0 S{{ 8FLEv N 5I$V$` S?=,V08% )% R S S$V S` R%LYF` S )߅ L8FL#I S۰ R6 PVV #QVV ֥ gh N H S`LGVV R V NVs P  H Rhɱɹ<鰅 NeeƁFf O OƂƃbcLJu NLUK$% "K!$LS$0,V0%$V`!$% RLmK R%LS YE$)`*HEVh&LGP 2U3UhLLqR? A%,V0 $xI{%v$!,V0 L<@BBGB $B`JBPCC`^H_HKB^LB_^h_h^`gijklmnopqrsLN^_` Hȱh`gh`VVw _O&wVV _O T* T T`$VȱV Pȹ T  SLO SLO Tȱ<HɎ̐膞U S0 T ThɲɃж` %H$H P$% S,V0 %h$hLS %PV V V`VV.V.V8V VV` ~ 0$ 0~` P!$ P A ) GPLrPH S PhӽU0 S SLS P$,VT P `T!8 $B P8s寍Vt對V Pȹ S ` S$! S`$$H Sf VP CPƂƃbcLE$0,f0%$[f`!$%H HDhy X``% MXLM0 h%LHD MX%LV` D$)`8:Hݬeh6.LQ @dAdhh gLQLLV? s`%,f0 Hh ,eN{%v$!,f0 {ɠ %0 H{`ȅ0" ]l ^l\l`\l`(LCCɯYfZfCCIe,al e 9',al,O! hBh B Q P`qr VPbc O :R L Of O M_ g` rDLCLnCH MXhɱ鱅 PeeƁFA d/  ? *B BL B 8e/ ` ɞȱ >g ȩl  e ȱ e `DCECBBBBflBBpq_l`l LBLFCLflL>` `ML C\lM c c B c B c c]l88Lcxxtvwxyz{|}~LUA9=DJQV\_ciotz !$'*-047;>AEJPөal@WzAP ԠƠҠ͠ӠΠĮŠĠҠͮstpq* BH8鵅hB B  / *B BLAL @hf,e@ L@򠲮㍠é䍽ҠȠ7ɀLUAA<=TA>?fBC ,LACEREPLACE WITHINCREMENTFINDREPLACE ALL[,NcCJS3'%ى ʊɕ ¬  %)-17=BIOV[adhnty  #&),/258;?BFILPU[ $hLS`V%,' O ! P PLHLGPHOE IkE5IJJE}FFFHIIIoIETIKHEEEEEEEEEIIHHUFFyT_TUUQPRESS SPACE BARPARTIAL LININVALID NUMBELINE TOO BILINE NUMBERFREEY/NNOT FOUNADDINGAGAINSTART NO.REPLACEREPw0`V)V` S$8V!,tV %tV$sVɠ)`)? SLMT S DFVLT P``VV Q S$` Ra PVV #QVV PVV #Q֍VV8nV PVVPQ R S S$ O ֐ #O T ILIV%H$HV Phqr Oqr%%׵%ؕש  ]S S P$LS S(d)e S S!( U ST`'d(`%$%%L,%`V$LSV,V ,JU(TV` ɠ) S$$!`V$,V, H$JhU(TV` $خKR6LR7 Y g 4 S$ SlR6mR7آP fPLNLMRɇɿ ɍ S`0` GPL+RLkR, GP cP NL#B ` T V ` N bc Nbc%%ר%'0  ]SLR֕LLSv N h$`VV Pȹ ` Q LH P Nh 9 LՆ qNPQ`%0LH%pV S$ S) <$$!%% 0 SV$ ʽ ` N*LqR P S S Ln PP6lR7mR؎{ $ELDv O N$[f$`L-X HEC,f0>% /%# I% V` ]`$[f H` {I%LKE` H )߅ L$ELN H۰ MX6 Q\f]f }R\f]f" ֥ Pqr u fM8 g X`LLLFfIf 7N` MXggPQQ E`gIg`(h+h MX *h O+h Qg Q: H HGG oJ h,+h Gs Q% V` R *Kr CXf %$ގ*hbc( [P *K CPL|F,(hqbc L P`LSF,(h Qt Q,+h CX 7N QL:Jee,(h5 Ge0e,+h0 } kO GLF R6 QQPP }R Q :J( N R eX :J /Q MXL7N` MX Q U? U)ɲ Ƀ LcT ULNT" U U" } ULcT[fH[f a :R P`@ U'h<(0 ȱ<@@ȱ<'h<>=? ULT'h U>% QLT Q Q Oh[ =$$!%% 0 V`[f$LR ʽ ` Of`*L-Xhh `R H$` MX Qhh }Rhh Q%h&h }R֍%h&h8nh QhhPQ I X` ``$ 3Q ֐ [P 2I LLOh W%H$Hh Qh$hLX`f O$,hg Q QS!8 $B Q8s寍Vft對Wf [Qȹ H ` X`$! H`$$H Hh$`VfWf [Qȹ ` `R oJH Q Oh Y Y OPQ`%qr0 CPLRPQPPPQ`%0L7N%f V`$ H)ɎUf膞je  I0 I I` %H$H RR$% V`,f0 %h$hLX` rQXf Vf Wf`XfVf.Wf.Xf8Xf XfVf`Bh ~ 0$ 0~` Q!$ Q g` 1 -) QLQH X` NRh˽d0 H HLH Q`^_ VP^_戠ȱLP^_` Hȱh`gh`fffI w P&wff P I* I I`$VfȱWf [Qȹ 'I  ILP ILP IȱH PhɲɃ`0!$% D HɠɺLN`^%_ Hɠɺ ^ NL$O N Hɠ%_^ D Hɠ N`8fz P`` QT Q g`, YH Hh )N Y Q DLsO``Hh`8PQ/ Q^&P &^ &^ePP^eQQP&QPe PQ `L+X$%`$%`$LXLO,h0"h MX$% LX`%LNLWL+W Pqrqr CPbc LNLLg [O 3Q P`qr VPbcLC` MX%LCLX` N$)` MX%LX`L[M$!$`,f0y%[f$ Ny X``%vvLL MX%h %LV`%_ D Hɠ%_$y$z0: Im[f!$z0y X` 2Ibc CPbc%b% V`LL%% V` NRLDMLOLC MXruugqr1 [P! u0m[f!u0qr PqrugLkMqr CPbcLLqr𢅛 {I [Py {I!yy {Ium[f! V` 2Iqr Pqr/Q$%` DLL!$% 0 NLL Hɠ DL'L NLNLQ,f$f D O,f0%$[f % O $!(&%),f0$0 % V`[f HH% V`hLL H $ELnL HLO MXzȱbLC LNbbc Pqr MX [Obcb [Py$z0R I!y$ f$ RRL~J f hh`0:gȽ^f Khh` hgg zKͱ zK8`0:A[a{8``^fA[ a{ ) ^f` MX[f[f MX[f[f ShL7N MX%0%% {I ``$L%ؕש  CJ X` NR$LX` X`(d)e X` eJ!( U eJT`'d(` $fHH fȱ  Hf$ O g`f 8 4 0Te ,g08 tD$! DLJf NLJ! HɠȌef$$e H) , H$JhU(Tf` $w0`f)f` ``$8f!,e %e$eɠ)`)? HLiI H 0EfL9I RR` O bc Pbc%%ר%'0  CJLI֕L2Jv O qr CPqr%% e`Z kO QLO CH_l`lstDCECL@H% Rgg CHL MX,e0 ' O!,e0 a\l c 9YfZfI` Hh He H`0 Ɓ DcH Hh`f$LHf,JU(Tf` ɠ) H$$!`f$ kO  G >KL\F GG,hf,he,(h0 ɛэLF GL G8 h,h`Ii'hm'h`fqr*h P 3NLLS Q QGG oJ,hf kO(h8`L^fLf h I$f X`L2IͫefL7NAB@ UA U%$B ( B B U<@ȥA<ȥB<# UL5U<= U qU@`LQʽ )` `)`8![f b`BhLg` VLg` P` RR% V`%LP` QLO4h .h Q oJŢ:h W WVfWfH [Qhȹ  򩍝 Q!$% V` 6b7ba6a7 :R QLOLaɇɍH% X`hLHƁ0` Q :R% V` Q b6lk@l@lDlAlElM _LJ[ȱPȱQBlPClQsPDlQElP@lQAlLiae^_^`_a=stopiejȄ YPQmnij VP^_^^ii_ij`ȱ^Șe^^_iȑ^^_p o aYL(XmnLө )` Q!h"h }R@lAlHlIl Q }RLOBlj```aiśj地a`ʈ`G, Q Q Bh O 7NLC ` S h %` R|} 𱰯 X8||}}qr Xqrbc Xbc QLOŜ䛐 He|he}`LLSij O * YՄ ֐D_i^aeii`jij圪8Wm W`Lh PX WLShm%hhhm&hh` R#h$h#h!h$h"h!h#h!h#hhn Q!h"h WS Q#h$h WShh nO QL7N nO!hDl#hFlLY!h"hPQ ֥`a PHqrhqr#h$hPQ  W _ Q LN#h$hLE XiF MEMOR? Y/NREMOVE EDITOADDINGDELETNOT FOUNAGAITSTART NO.REPLAC WITHRENUMBEINCREMENTFINREPLACE ALFILE NAMELINE OVERLAWAIT ..COPSELECT LINES T(WORDn ى ʊɕ ǣСΰ  %)-17=BIOV[adhnty  #&),/258;?BFILPU[O!,T0 Q1U R 9TTI` hF hFS F`0 Ɓ ARH Fh`#U$LsF#U,JU(T#U` ɠ) F$$!`#U$, H$JhU(T#U` $w0`'U)'U` Q$8'U!,T %T$Tɠ)`% /%# |G% Q Q$T F` G%LE` hF )߅ LDL~K hF۰ .P6 NTT BOTT" ֥ Lqr u `J8 /U QLHS S`Z FL NLL E4U5UstDCECLE% oO-U.U EL .P,T0 ' MƂƃbcLE$0,(U0%$T`!$%H ?Dhy Q`% .PLJ .P%LQ D$)`%HSh!LoN 5S6ShL? Q%,(U0 Hh ,SN{%v$!,(U0 {ɠ %0 hF{{ DLDv L ~K$T$`LP FEC,(U0>`ȅ0" 2U 3U1U`1U`(LCCɯTTCCIT,6U T 9',6U,O! B N Qqr 1Mbc L N I L*U L Q _DLCLnCH .Phɱ鱅 LeeƁFf 1M 6 S/  ? *B BL B 8e/ ` ɞȱ >< ȩU  e ȱ e `DCECBBBB;UBBpq4U5U LBLFCL;UL>` `ML C1UM R R B R B R R2U88LRxxLUA9=DJQV\_ciotz !$'*-047;>AEJPө6U@WzAP ԠƠҠ͠ӠΠĮŠĠҠͮstpq BH8鵅hB B  / *B BLAL @;S@ L@򠲮㍠é䍽ҠȠ7ɀLUAA<=TA>?2TBC , d' ̹ ʱ)? FL G F E'ULF O` L bc Lbc%%ר%'0  GLVG֕LGv L qr Mqr%%׵%ؕש  G Q O$LQ Q(d)e Q H!( U HT`'d(` $"UHH (Uȱ  F"U$ L Q)U * & "F aD$! DL9H"U ~KL9H! pFɠȌT"U$$T hF) $ "U$ OL H (U hh` .PTT .PΈTTL!K .P%0%% G Q$L N$L @k.2h@ L@򠲮㍠é䍽ҠȠ7ɀLUAA<=TA>?hBC ,   %)-17=BIOV[adhnty  #&),/258;?BFILPU[E NUDeKD~K7IdIDTE?EEcEVKoKHKK?DKJHCCCCCCCCC IHHHERPRESS SPACE BARPARTIAL LININVALID NUMBELINE TOO BILINE NUMBERFREEOUT OF MEMOR? Y/NREMOVE EDITO ى ʊɕ O% Q%LQ)( .P,' O ! N NL!KLoN1Ub0Uc VRH Bh` R2U0/803 4$!.`$'͈T%`%  0Uͩ 0UƩ`0UH0Uh`H2U2U3URRhLstopiejȄ yQPQmnij 1M^_^^ii_ij`ȱ^Șe^^_iȑ^^_p o JLLLC .Pruu/Uqr1 6M! u0mT!u0qr Lqru/ULeJqr MbcLIqr𢅛 G 6My G!yy GumT! Q Fqr LqrLL .P%` DLH!$% 0 ~KL I hFɠ DL!I ~KL~KLoN,(U$"U D L,(U0%$̈T % L $!(&%),(U0$0 % QT pFH% QhLI pF DLhI FLL .PzȱbLC 6Kbbc Lqr .P 6Lbcb 6My$z0R |G!yyLUA9=DJQV\_ciotz !$'*-047;>AEJPӭ)ɰ(nA LӠˠ@WAP ԠƠҠ͠ӠΠĮŠĠҠͮstpq C Bb y$z0R Aۥ!yy$z0: Aۥm"!$z0y ڥbc bc%b% L<%% LL_L" ruuqr1 ! u0m"!u0qr kqruLޥqr bcL"ޥqr𢅛 y ڥ!yL %0%% $L$%` Liݥ!$% 0 Lz -ɠ L LL,$ͼ M,0%$" % M $!(&%),0$0 % " 5H% hL 5 L NL_ zȱbL" ߠbbc kqr bcۤ! 5ɠȌ$$ -) $ $ L۠ hh`0:Ƚ% ܐhh` ܰͱ ܰ8`0:A[a{8``%A[ a{ ) %` "" "" Lv V qr qr%%׵%ؕש   $L (d)e ۥ!( U ۍT`'d(` $HH ȱ  Pڐ$ M 8 4 0T͞ ,08 ե$! Lͼ LU(T` ɠ) b$$!`$, H$JhU(T` $w0`)` $8!, %$ɠ)`)? XL Pڐ ֮L ` V bc kbc%%ר%'0  Lۢ֕LLp I$ Lکr r`Z  cL_ ٭&'st L٦%  L; ,0 ' O!,0 n# Ӭ !I` -څ -ڮr bڠ`0 Ɓ H bh`$L8ڌ,J5 Eٮ0,0 }  EL&آ  E Lש جpe,0 ɛэL& TLs8`Iim`qr k L䢎 B㢕 PCٮD ی 8`L% ` PQQ `I` V᢭ B P: P Nڭ@ٮA ۘ, ِs c㥀% A ܰr 鮻 %$ގbc( ܰ L,qbc " L, t , cL۩,v$!,0 {ɠ %0 -ڪ{{ LC֥v _ ߥ$"$`L PEC,0>% /%# Aۦ% $" P` %L` - )߅ LL -۰ 6 B#$ #$" ӥ kqr u 8 LiL&حIɱ鱅 heeƁFf ƂƃbcL$0,0%$"`!$%H hy `% Lߵ0 %L %L ե$)`8:Hsh6.L h LLL? %,0 Hh ,rN{% fԩ  $88Lxx`ȅ0" $ %#`#` !:խ;ՌI,(  ө',(,O! % c qr bc M " _ M L"L/H h},`$%  `` `ML ӠuӠnӠgӠ`ӠYӠ RӠ KӠDӠ=Ӡ6Ӡ/Ӡ(Ӡ!ӠӠӠ Ӡ"ӠHӍ&Ӎ'L!LY֗֕٘٨g}49 ]8Hh` {ԭ#M  fԩ BB?BBBCi ,L BBrBӍԍӍӍٍٍٍoB;Ս| B(pq&'LC$CneөBCdɯ L(L,h %,,` Lԭ L,, y ڥum"! ڥqr kqrL_,0" $% L%L'LuL kqrqr bc L9ޠg qr bcL"` %LL ߥ$)` %LLޥ$!$`,0y%"$ 'y `%vvL޵ % %L%_ -ɠ%_$!$% -ɠɺL`^%_ -ɠɺ ^ L -ɠ%_^ -ɠ `8fz ` BT P , YH Ph )N Y L``Hh`8PQ/ Q^&P &^ &^ePP^eQQP&QPe P٥st ȑ gL!Q'P*QP & &ePPeQQ!)ePPQ``0I:EPQ {-hh  B Pک P Nڠ  c _`ȱ0:8`` e`8喨嗪ʘ ^8^Ɯ8^ƚ 8minj8sitjsmg ȱL ȱPȱQ F kPȱkQP Q ȱ HhI F kPȱkQPQ )  ,д L Ls큯`  PQLJȱPPȱQQȱ P QsP Q PQL PPQ Ӡ0ȱPȱQ P QPQ ^JK  F kPȱkQPQ ,жǢ*L颛 smtnGLms` B  B L_ B _ L w PQ Ӡ^ȭ ћȭP wFkȑkȭkȭk*Lm m LGLimjn`ik  M LȱPȱQ * zӄ ӐD_i^aeii`jij圪8iae^_^`_a=stopiejȄ PQmnij ^_^^ii_ij`ȱ^Șe^^_iȑ^^_p o LmnLeө )qrPQ j w c ߭L v醰ij```aiśj地a`ʈ`G,  _ L"ե ` D %` A䥯|} 𱰯 28||}}qr qrbc bc cL_Ŝ䛐 He|he}`L䦯ij  ɩ 8A e&msmt`LG ~Lmm` 9n B 䢂 P  ' cLߩL  LBPQ ӥ`a kHqrhBH) Ph ( Pک) PL nA $ Pک Pک P F P% Yɩ !'!%iA F$ ۭ   %%%0% L! _ cL )_AY `)_  3   +>% L  c _h"LߠAB@ A %$B ( B B <@ȥA<ȥB<# L<= @`=? L%0L߆% $ -) =$$!%% 0 "$LY ʽ ` M`*L  P$` 预 B B ֍8n cPQ Aۢ $ Ӑ iH h˽{0 P PLN @$,g P !8 $B P8s寍t對 ȹ P ` $! P`$$H Nڐh$` ȹ `  ۘH c _h ( ;놸 PQ`%qr0 L$PQPPPQ`H _hɲɃ`0Ɏ膞1  ڠ0 ` %H$H $% ,0 %h$hL   `..8 ` ~ ԍ0# ԍ0~` B!$ P 1 -) L+Q `L$%`$%`$L^_ ^_戠ȱL^_` Hȱh`gh`I w &w  ک* ک `$ȱ ȹ  L? ڤL? ȱ`ikjlkmln`kP ȱkQ`kiklץnlmkimnsmtn`8u` 陵L'L7љ,љ#ȱ ȱȱȱȱ  拏ůДL陵st 陵 we^^_^ikmPQ cL soikm` ᅛ`  Bm P$L @PQ ӥijPQ ө`a j wL߭ LPQ Ӱȱ,C Y .:P  ,CHR$( ) Y N:P DATA 9,ad FYPRINT NGET d' ̹ ʱLINE OVERLAWAIT ..COPSELECT LINES T(WORDn ى ʊɕ ǣСΰ  %)-17=BIOV[adhnty  #&),/258;?BFILPU[<<Lʽ )` `)`8!" `8!" `)( ,' O ! cLL#j"k !H Nh` $0/88; 67{6|7 ӥ<=st>? cL_LPɇɍH% hLPƁ0` %  Lq67`L<>=?<>` Mᦖ %`%0 $"L B _ -H X A _h  Xچ T _ " zL3 L s͞` L L L % %L cL_ 8s寪tL B㩠 ۘH hȹ  򩍝 @>?st<= !$% $! Ӑ`)?(T`6H7H%H$H6";:>rPSPS40:CMCM1:CM89220]|SL3ĺ"PRESS A KEY ";:X$q:D$"PR#0":30 "" ,"","Down>","Up>" ,"Left>","Right>","Del>"ER(222)$ER6ĺ:(7)"FILE NOT ON THI X26ĺC$(1);:II1:X(PSI):(X)">";:260B AP$"<":280M :370S l X127ĺAP$;C$(9);: "X31ĺ(X);: ,X27ĺC$(2);: 6X13ĺC$(4);: @X10ĺAP$;C$(5);: JX11ĺAP$;C$(6);: TX8ĺAP$;C$(7);:^X21ĺAP$;C$(8196))8192a MADRS8192ĺ:(7)"THIS EDITOR DOESN'T HAVE MACROS"::"PRESS A KEY ";:X$:90 PSMADS:D$"PR#"SL:"FILE: "E$:CM65 (CM)": ";:I039:X(PSI):X0ĺ:370 X1ĺC$(0);:II1:X(PSI):AP$"":280:X31X127260:">";:2601RO FILE: MACROS";E$:E$""E$"MACROS":SV8:21:E$;:CL:] D$"BLOAD"E$",A$4000"r MADRS16384:210 1:CL:"NAME OF EDITOR FILE: EDITOR";E$:E$""E$"EDITOR":SV8:22:E$;:CL: D$"BLOAD"E$",A$2000" MADRS((8195)256(8V8:SV::"M - PRINT A MACRO FILE"::"E - PRINT AN EDITOR FILE'S MACROS"::"Q - QUIT": d:"SELECT "Q$"M"Q$", "Q$"E"Q$" OR "Q$"Q"Q$": ";:958 nX$:X$"Q"X$"q"ĉ::10: xX$"E"X$"e"170 (X$"M"X$"m")110C 1:CL:"NAME OF MAC 1000= :(21);::A$" ":D$(4):Q$(34):CL868v (:I141:A$;::I122:40:A$A$;::I138:A$;: 22039,(A$)::32,3:33,34:34,2:35,23 <I09:C$(I): F:::5:"MACRO PRINTER PROGRAM" P5:"====================="\ ZS ******************* * * * MACRO PRINTER * * * * COPYRIGHT 1985, * * BY RANDY BRANDT * * * ******************* SL1: PRINTER SLOT (3 = 80-COLUMN SCREEN)  MAY BE CONVERTED TO DOS 3.3)-PEEK(103) UU9 YY10 :::VTABPEEK ( )+256*PEEK( )D 1#9 YY10 ONERR GOTOPRINTY   .:REM O O O OOK(PEEK(176)-PEEK(104))*256+TEEK(175* PVE$"4.5"! U(27)(17)1 V(12)(21)U dSD$",S5,D1":SD$=DEFAULT DRIVEw nPSLOT1:PSLOT = PRINTER SLOT xFI%105:FI%=MAX FILE SIZE COL80:COL = 80 COL DISPLAY N%6:N% = NO. OF COLUMNS ON EDIT SCREEN& LP1:LP=1 FOR 3-INCH SQ UT DEVICE, PRINTER OR SCREEN (1-3): ";:Q$:Q$:(Q$)48(Q$)51ī1180ZPSLOT(Q$)tPSLOT3PR$"SCREEN"PSLOT1İ6920" "((N$" ",6)T$,TL)::PSLOT312500 ** CHANGE PRINTERS **PSLOT3ı(:4:3:"PRINTE19(N%4)37(N%5)48(N%6):BtCOL80COL40:FI%57:N%3:~22:958:"ENTER NO. OF COLUMNS (3-6): ";:Q$:Q$:(Q$)51(Q$)541150N%(Q$):FI%5719(N%4)37(N%5)48(N%6):COL40N%3:FI%57J22:958:"ENTER SLOT # OF OUTP6:"DEFLT DRIVE IS ";::SD$::Y22:1:"MAKE CHOICE: ";:Q$:Q$:320j$CH$"ABCDEF".I1(CH$):(CH$,I,1)Q$10908:1110BI1130,1150,1180,1300,6910,1500L910VQ$(13)ı`1050!jCOL40COL80:N%6:FI%57;" FILES">:3:"C> OUTPUT DEVICE SLOT IS ";::PSLOT::`:3:"D> PRINTER SELECTION "6:"DEFLT PRNTR IS ";::PR$:::3:"E> LABEL SIZE SELECTION"6:"DEFLT SIZE IS ";::LABEL$:::3:"F> DEFAULT DISK DRIVE SELECTION"!:PSLOT3PR$"SCREEN"P1:"PROGRAM MAKES LABELS FOR DISK CATALOGS"x3:1:"MODIFIABLE CONSTANTS ARE: ":3:"A> SCREEN FORMAT IS ";COL;" COLUMNS":3:"B> CATALOG FILE NAMES IN ";N%;" COLUMNS" 6:"MAX CAT LGTH TO USE IS ";FI%:N$NB$:CT$"BACK":1K1J:RB$(K)R$(K):K[TB$T$:PB$NP$:JBJ:NB$N$:CT$"BACK"a  **** ROUTINE TO QUIT *****:8:"ARE YOU SURE YOU WANT TO QUIT? ";:Q$:Q$4Q$"Y"Q$"y"ė:D$"BYE">*** PROGRAM DEFAULT VALUES ***TF$T$:PF$NP$:JFJ:NF$N$:CT$"FRONT"0W*** BACK SIDE OF DISK CONTROL ***eLP274022:"ONLY FRONT SIDE OPERATIONAL FOR 3.5-INCHDISK DRIVES. HIT ANY KEY TO CONTINUE:";:Q$:Q$K1JB:R$(K)RB$(K):KT$TB$:NP$PB$:JJB LP1I2400% I1I2ī18105(27)(17)j(26)"0";(26)"1": CLEARS VIDEX 80-COL SCREENs&390X*** FRONT SIDE OF DISK CONTROL ***bK1JF:R$(K)RF$(K):KlT$TF$:NP$PF$:JJF:N$NF$:CT$"FRONT":vK1J:RF$(K)R$(K):K*F DISK"8" P>RINT COMBINED FRONT AND BACK SIDES"d" D>ISPLAY/MODIFY PROGRAM CONSTANTS"t" Q>UIT":" ENTER CHOICE: ";:Q$:Q$:320CH$"FBPDQ"I1(CH$)Q$(CH$,I,1)520I:390I600,700,5710,900,800//////////////////////////////":R r" C L I F F'S L A B E L M A K E R": |"/////////////// VERS. ";VE$;" /////////////":::34,4: ** MAIN MENU ** 350 8:"CATALOG OPERATIONS": " F>RONT SIDE OF DISK" " B>ACK SIDE O1,32,57,213,96 -1O ** READ AVAILABLE PRINTERS - DATA IN LINE 7500 **W I1} PR$(I):PR$(I)"END"II1:280 "NPI1 ,390 6** TEST FOR U/C OR L/C ** @(Q$)90Q$((Q$)32) J T*** HEADING *** ^::# h"/////////MIT140G R$(LI),RF$(LI),RB$(LI):DIR$(100),CET$(105),B(LI),RE(LI)n A(DL)((DLN%(DLN%))N%.05)~ ::PTR768 A:A1ĹPTR,A:PTRPTR1:230 32,190,222,32,227,223,162,0,32,117,253,160,0,138,145,131,200,169,0,145,131,200,169,2,145,13LABELS; LP=2 FOR 4 X 1.5-INCH LABELSg PR2:PR=1 FOR EPSON MX W/GRAFTRAX; PR=2 FOR IMAGEWRITER II 6920:7000: SET UP LABEL AND PRINTER CONSTANTS J0:JF0:TF$"":NF$"":PF$"":JB0:TB$"":NB$"":PB$"":BL$" " D$(4):LIRS CURRENTLY SUPPORTED:":@2I1NP:5:(64I)"> "PR$(I):<22:958:1:"CHOOSE PRINTER ";:QP$:QP$FCH$"ABCDE"PI1NP:(CH$,I,1)QP$1380Z:1390dI8010,8210,8410,8610,8810nQP$(13)1410x1320'*** CHANGE DEFAULT DISK DRIVE ***Z:2:"DEFAULT SLOT AND DRIVE IS ";::SD$;:::4:"ENTER CHOICE OF ENTER ',S#,D#'":3:"A> SLOT 6, DRIVE 1":3:"B> SLOT 6, DRIVE 2":3:"C> SLOT 5, DRIVE 1":3:"D> SLOT 5, DRIVE 2":1)1/& NAME$:NAME$NAME$"":NAME$""32945& _& NAME$:NAME$NAME$"":CT(P1)CT(P1)1r& NAME$""3294|& 3300& P11P1P11:RE(JD)RE(JD)1:3390& 3395& TY$(NAME$,18,3)& TY$"DIR"3350' CZ$(NAME$,2,16):(DIR$(P1),1)"/;:958:% 3220F% 23:"PRESS ANY KEY TO CONTINUE ";:Q$:Q$:b% P11:DIR$(1)NP$:T$NP$% I110:CT(I)1::I1LI:RE(I)0:% JD1:JS1:J1% D$"OPEN "DIR$(P1)",TDIR"% D$"READ "DIR$(P1)% Q$:Q$:Q$% CT(P1)13280& I1CT(P#,D#) OR VOLUME NAME TO BE CATALOGED.8$0 20:":";SD$W$: 20:2:768,NP$:NP$NP$""k$D NP$""NP$SD${$N 20:2:NP$$X 3180$b :D$"PREFIX"NP$:D$"PREFIX":NP$:3190$l 21:"ERROR #"((222))" IN PREFIX":216,0:3210: %v 216,0:20:2:NP$EY.....('<' TO RE-ENTER DISK NO., 'ESC' TO ABORT)";:Q$:Q$\# Q$(60)Q$"":3040l# Q$(27)ıx# CA$"F"# 14:"F>ULL CATALOG OR S>UBDIRECTORIES ONLY:";CA$;(8);:Q$:Q$# CA$"F":Q$"S"Q$"s"CA$"S"'$& 17:"ENTER SLOT AND DRIVE (,S%" **** READ DISK CATALOG ****+" 8" D$"FRE"Z" :6:"ENTER DISK ID NO. ";N$w" 6:26:"('-' TO BLANK)"" 6:19:"";Q$:" (Q$,1)(45)N$" ":3070" Q$""N$Q$" 6:19:N$:B# 9:"INSERT DISK TO BE CATALOGED AND HIT ANY K5)N$" ":2640&!F Q$""N$Q$6!P 8:20:N$:!Z 11:"DISK TITLE IS:";:(T$" ",TL6)":";:11:15:"";Q$!_ (Q$,1)(45)T$"CATALOG":2650!d T$""Q$""T$"CATALOG"!n Q$""T$Q$!x 8:15:T$! " 3420Y KEY TO CONTINUE: ";:Q$:Q$% @ (222)6Ĺ216,0:1800| 21:"ERROR #"((222))" IN PREFIX":216,0:3210:100 ( **** DISK NO. AND TITLE **** 2 :8:"ENTER DISK ID NO.: ";N$ 7 8:26:"('-' TO BLANK)" < 8:20:"";Q$:!A (Q$,1)(41:"INSERT DISK TO BE CATALOGED AND HIT ANY KEY.....";:Q$:Q$ "DEFAULT DRIVE IS '";::SD$;::"'; HIT RETURN TO ACCEPT, OR ENTER NEW DRIVE OR PATHNAME: ";:768,NP$:NP$NP$"" NP$""SD$NP$ (4)"CAT"SD$ :"HIT ANLES ******fCT$"FRONT"āI1JF:RF$(I)"":R$(I)""::J1:N$"":NF$"":T$"":TF$"":NP$"":PF$"" CT$"BACK"āI1JB:RB$(I)"":R$(I)""::J1:N$"":NB$"":T$"":TB$"":NP$"":PB$""*` ****** VIEW DISK CATALOG ******j :t 2490A~ CFBM"I1(CH$)/Q$(CH$,I,1)20006I@1810I2400,2600,3000,12000,900,3800,4700,5200,2060,610,710,2050(12)(21)(27)(17)(26)"0";(26)"1":CLEARS VIDEX 80-COL SCREEN1810:390  ****** CLEAR VARIAB ";::PR$:@v" IN SLOT ";PSLOT;" USING ";::LABEL$::[" C>LEAR MEMORY CT$"FRONT"ĺ" B>ACK SIDE OF DISK"CT$"BACK"ĺ" F>RONT SIDE OF DISK"" M>AIN MENU":" ENTER CHOICE: ";:Q$:Q$:320CH$"VTRLDSEP:SD$::-010:" V>IEW DISK CATALOG"F:" T>ITLE OF DISK"cD" R>EAD DISK CATALOG"I" L>IST CATALOG TO ";::PR$:N" D>ISPLAY / CHANGE DEFAULT VALUES"X" S>ORT CATALOG"b" E>DIT/ADD/DELETE"l" P>RINT CATALOG TO:SD$",S5,D2":N22:958:"ENTER YOUR CHOICE: ";:768,Q$:Q$Q$""cQ$""SD$Q$:o:1500*** DISK OPERATIONS MENU ***350:(N$" ",6)(T$,25);1:8:DL0:VC4:HC1 &:CT$;::" SIDE OF DISK: DEFLT DISK IS ";:"3:"E> OTHER":`,22:958:1:"CHOOSE DEFAULT DRIVE ";:Q$:Q$:320p6CH$"ABCDE"@I15:(CH$,I,1)Q$1620J:Q$(13)1520TI1640,1650,1660,1670,1680^hSD$",S6,D1":rSD$",S6,D2":|SD$",S5,D1""CZ$"/"CZ$;' (CZ$,1)" "CZ$(CZ$,(CZ$)1):3330z' P1P11:DIR$(P1)DIR$(P11)CZ$:CT(P1)1:RE(JD1)RE(JD)1' CS$"":TY$"DIR"CS$"/"' TY$"DIR"RE(JD1)0RE(JD1)RE(JD)'* RR$((CS$(NAME$,2,16)" "),17)(NAME$,18,22)(+ CA$"F"R$(JD)RR$:JDJD1D(, CA$"S"TY$"DIR"R$(JD)RR$:JDJD1(. JDLI1ė:(7);(7);"FILE LIMIT OF "(LI)" HAS BEEN REACHED":"HIT ANY KEY TO CONTINUE AND WAIT":Q$:Q$:3395(4 TY$"DIR"3280(> D$"CLOSE ":3240(C BK$(H D$"CLOSE")R2547066"-"::6@6850'6JT$16T6830;6^6820T6hT$:PSLOT3ĺ:5500^6r6860l6|J055606D1JA:DD$"":F0A1:GDF:IF G > J THEN 55306E$(((R$(G),17)(BL$,15)),B)(32)(32):DD$DD$E$:F7I1(DD$):((DD$,I,1))3(A4)18(A5)21(A6):5390'5A155610O5 3.50-INCH DISKS - LP=1Z5A25y5ILJA:IL(IL)(IL(IL))5IL21B197(A3)10(A4)12(A5):53905A556105PSLOT3ĺ(4)"PR#3":54805(4)"PR#";PSLOT5"68106,LPP***** PRINT LABEL FOR ONE SIDE *****14Z:h4d:"PRESS RETURN TO BEGIN... ESC TO EXIT";:Q$:Q$|4nQ$(13)ī52504xQ$(27)ı4LP5330,52604 5.25-INCH DISKS - LP=24A264ILJA:IL(IL)(IL(IL)) 5IL13B309(A3)153!3***** ADD NAMES *****F322:868:"ADD NAME: ";:"";QR$Y3QR$""5140:c3 51803QR$(QR$" ",20)3QS$"":I120:QS$QS$(((QR$,I,1))128):I3(IJDL1:R$(I1)R$(I):I32R$(DL)QS$:JJ13<)4LP141İ5000:2V478062*** DELETE NAMES ***>2I12(R$(I),2)" "R$(I)R$(I1):22:3940(COL80):I:KI1J:R$(K)R$(K1)::JJ1:50202J0J0:50702DLJDLJ2II1:IJ50202(R$(J),2)" "JJ1(J0):50603%(JN%))N%.05):DLJDLKLN%(DLKL1)1:4600:4790d1P149DLJİ4500:DLDL1:4600:47901$P149DLJİ4500:DL1:4600:47901.P193İ5110:360018P196R$(DL)" ":46101BP197İ4400:36001GP210İ5000:47702,0P136DL0İ4500:DLDL1:4600:4790^0P138(DLN%)J1İ4500:DLDLN%:4600:47900P138(DLN%)Jİ4500:KL((DLN%(DLN%))N%.05):DLKL1:4600:47900P139(DLN%)0İ4500:DLDLN%:4600:4790:1P139(DLN%)0İ4500:KL((JN EWRITE; TO MENU")/34,35/DLDL1E/3600:4600b/22::J;" FILES LISTED"r/21::868/R$(DL);" ?";(8);/P(16384):P1284810/16368,0:P218PP32/P136DL1J0ī47900P136DL1İ4500:DLJ:4600:4790)4!. 1403,HC1:36,HC1:VCa.*(R$(DL),112(N%5)6(N%4)13(N%3)13(COL40))" ";g.4m.>.\*** EDIT/ADD/DELETE NAMES ***.f.pCOL80ĺ(4)"PR#3".zCOL40ĺ(27)(17)/:"USE KEY: TO MOVE; ELETE; DIT; DD;l#-***** NORMAL PRINT *****)-E-VC:1403,HC1:36,HC1-(R$(DL),112(N%5)6(N%4)13(N%3)13(COL40))" ";--***** INVERSE PRINT *****-- HCA(DL1)(132(N%5)6(N%4)13(N%3)13(COL40))1.VC((DL1)N%M)R$(M1):R$(M1)TM$5,MB(L)1:LL1:L03830;,W,0***** EDIT NAMES *****},:22:868:"CHANGE TO: ";:"";QR$,DQR$""4440,N4460,XQR$(QR$" ",20),bR$(DL)"":I120:R$(DL)R$(DL)(((QR$,I,1))128):I-I)R$(M1)3870%+2NN1:IN3920=+<R$(N)R$(M1)3890g+FTM$R$(I):R$(I)R$(N):R$(N)TM$:3870x+PIM1II1+ZNM13950+dTM$R$(I):R$(I)R$(M1):R$(M1)TM$+nLL1:B(L)I+x3830+NM24000+R$(M)R$(M1)4000,TM$R$(M):R$(*jF*t*~DM*Q$"D"Ģ23:5:"HIT ANY KEY TO CONTINUE ";:Q$:Q$S*t****** SORTING ROUTINE ******:10:11:"SORTING ";J;" ITEMS"*L1:B(L)J1:M1*NB(L)*IM1* NM33970*M1((IN)2)*II1:IN3920+(R$( JDJD1:JJD%)\ CT$"FRONT"İ630:)f CT$"BACK"İ760@)p a)***** DISPLAY CATALOG *****g)u)$J03730).D0J1N%)8F1N%)BDFJDFFI%ĺ:3720)LDFDLĞ)V(R$(DF),112(N%5)6(N%4)13(N%3)13(COL40))" ";*`1ĺ(DD$,I,1);07I:: IF G > = J THEN 556077Dn7PSLOT3Ģ23:"HIT ANY KEY TO CONTINUE: ";:Q$:Q$~7(12);:A$7RESET$7PSLOT3ĺ(4);"PR#0"7:7:10:"SIZE OF CATALOG MUST BE LESS THAN "(5(LP2))(218(LP2))"8D"ENTRIES TO FIT ON LABEL":N15000::J8N***** PRINT COMBINED CATALOG *****Y8XLP257508b22:"ONLY FRONT SIDE OPERATIONAL FOR 3.5-INCHDISK DRIVES. HIT ANY KEY TO CONTINUE:";:Q$:Q$8l8v:9:"PRESS RETURN TO BEGIN... ESC TO EXIT";:Q$:Q$JA:IL(IL)(IL(IL))1F0/IL50BA:12100?F:/A:12610_FD/PSLOT3ĺ(4)"PR#3":12480tFN/(4)"PR#";PSLOTF0I13::F06830:6880F0" "((N$" ",6)T$,TL)::PSLOT312500F0LD$"(5.25-INCH DISK)":LP1LD$"(3.5-INCH DISK)"#GORKS/MISC"+E,'" Select :";:Q$9E.'Q$"1"ıKE0'Q$(27)ġ:`E2'Q$"1"ġ:12010uE4'Q$"9"ġ:12010E6':13000E. *** LIST CATALOG TO 8.5X11PAPER ***E.::D$"FRE"E.10000E/:"INPUT DESCRIPTIVE TITLE: ":DP$E/A13F&/IL/HAWKE/APPLEWORKS/DEVELOP"ND"'"5) Print to File /HAWKE/APPLEWORKS/PRODUCT"~D$'"6) Print to File /HAWKE/APPLEWORKS/GAMES"D&'"7) Print to File /HAWKE/APPLEWORKS/EDUC"D('"8) Print to File /HAWKE/APPLEWORKS/FONTS" E*'"9) Print to File /HAWKE/APPLEW"Q": COMPRESSED PRINT - 17 CPIB0 DS$(14)(27)"Q": 8.5CHARS / INCHB: CL$(15)(27)"E"(27)"z"(27)"A":CLEAR SPECIAL PRINTINGBD LS$(27)"T""12":SET LINE SPACING AT 12/144 OF AN INCHBN SS$(27)"Q"(27)"x":CONDENSED SUPERSCRIPT"CX SI$(27)ȲSUPERSCRIPT:ASI$(15): COMPRESSED PRINT - 16.5 CPIZAHL$(14): 5 CPI HEADLINE`AA *** SET PRINT PARAMETERS FOR IMAGEWRITER II ***A PR$"IMAGEWRITER II":PR2A RESET$(27)(99):RESET TO POWER UP STATEB& FL$ = CHR$ (27) + "H" + ISET FORM LENGTHP@hDS$(14)(15)(27)"G": 8.25 CPI IN DOUBLE STRIKE MODE@rCL$(18)(20)(27)"F"(27)"T"(27)"H"(27)"2":RESET TO STANDARD SETTINGS@|LS$(27)"A"(6):SET LINE SPACING AT 6/72 OF AN INCHASS$(15)(27)"S"(0):8010,8210,8410,8610,8810 ?lL?L "EPSON W/ GRAFTRAX+","IMAGEWRITER II"X?~ "END"?@*** SET PRINT PARAMETERS FOR EPSON W/ GRAFTRAX ***?JPR$"EPSON W/ GRAFTRAX+":PR1?TRESET$(27)(64):RESET TO POWER UP STATE @^FL$(27)"C":49296,EP: $;:#>*** LABEL SELECTION ***5>CT$"BACK"ıJ>LPLP1(LP2)2\>LP6930,6940>LABEL$"2.75-IN SQ LABELS":IW$"0408":EP17:TL22:7000>LABEL$"4 X 1.5-INCH LABELS":IW$"0192":EP8:TL31:7000>X*** SET PRINTER PARAMETERS ***?bPRATALOG MUST BE LESS THAN 66 ENTRIES TO FIT ON LABEL.":N15000::b=*** PRINTER SETUP ***=RESET$;FL$;:49296,EP::- POKE FOR EPSON ONLY =RESET$;:=DS$;:=CL$;:=LS$;:=SS$;:=CL$;LS$;SS$;:=CL$;SI$;:>HLL$,15)),B)(32)(32):DD$DD$E$:FU ";O$:O$""O$I$".TXT":16B (O$)214w ::"Please hold -- Constructing Text File":: OP$"DELETE.ME":CL$:D$"delete DELETE.ME":OP$"DELETE.ME":WR$"DELETE.ME"B"NOMON":"LOAD "I$:"63998 POKE-16368,0:?"QT$OP$O$QT$" text copy of your program"::7)"o Allows you to write a sub-routine that you can EXEC into new programs." ::"Input the pathname of the file to convert into text:":"> ";I$:(I$)1132 :"Input the pathname of the Text file to save to: ( e, and convert it into a text file."::"This offers many uses:"::7)"o Allows for easy editing of file, which can then be EXEC'ed to restore":9)"the file.":n 7)"o Allows for you to print out copies of your program."::7)"o Allows you to save aP$D$"open ":WR$D$"write ":CL$D$"close":QT$(34):D$"pr#3" 29)"Basic To Text File Program"::34)"By Jeff Tarr, Jr."::19)"[AppleSauce BBS 212/721-4122 3/12/24 baud]"::I140:"=-";:::34,8 :"This program will take a BASic filPREFIX":P$8 15::958:"WRITE FILE TO ";P$;"? ";@ A$a A$(27)Ģ15:1:958:1210| A$"Y"A$(121)1350 (15::"PLACE VOLUME TO WRITE TO IN S";SW;", D";DW1:"AND PRESS A KEY..."; 2A$:A$ <1270F15::"OUTPUT FILE NAME: DISK.FILE";:18:" ";F$>PF$""F$"DISK.FILE":16:19:F$UZ(F$,1)"/"1390jdF$(F$,(F$)1)wnF$P$F$sFGė:" READY TO READ A DISK."::" INSERT DISK AND PRESS ANY KEY. ";:A$x READ A PRODOS DIR. I1$"T"TP1TP$"I"+TP2TP$"A"=TP4TP$"B"OTP8TP$"S"bTP16TP$"R"uTP16TP$" "{ POKE MACHINE LANGUAGE 768,32:769,0:770,191:771,128:772,11:773,3774,141:775,10:776,3:777,96 779,3:78130,4440,4450,4460,4470,4470,4470,&Q:I<0D$;"CLOSE"b:1:1:"DOS 3.3/";::"PRODOS";:h?uDA$(0):NNUM$:X(A$(I),(A$(I))1):b(A$(I),1):lOS$:v" ": ASSIGN FILE TYPE TP128TPTP128TP0TPA$(27)4255*A$""A$(0)" "7A$(0)A$nLĺ" NO FILES FOUND! RECORD ABORTED!":4410 WRITE DOS FILES 3:1:868:"WRITING..."216,128D$;"APPEND";F$I1LFL0ILQ1W1"(797Q)4420,443:1:868B:6:"ADD A NAME TO FILE NAME FIELD:":8:2500A$(27)ė:"RECORD ABORTED. NO DATA WRITTEN TO DISK":I12500::4410A$""4295LL1A$(L)"*"A$FA04320:6:"ENTER A VOLUME NAME FOR DISK TITLE:":8:2500OO29@A$A$((I))!JST(A$,2)(160)(160)A$(A$,(A$)2):4180[YA$o^TP(O1):4500cA$(L)TP$A$hENTRYENTRY1rENTRY7ī4090|SS1S04035OS$"DOS 3.3":4((L)))L" FILES FOUND.":I12500:ENTRY0L0Č998:5)%1@MT(35851(35ENTRY))RMT255ī4200pMT0ī4235:END OF FILESMT34ė:"NOT A PRODOS OR DOS 3.3 DISK.";:I12000::OS$"NON-STD DOS":L0:4240LL1"A$(L)"":A$"",O35854(35ENTRY) 6II115:BK(I):X143,142,142,141,141,140,140,139,139,138,138,137,137,136,143}3:1:868:"PROCESSING..."::ENTRY0((S2),2)".5"S15S0BH140:4060BH139782,BH:783,BK(S)768(778)39ī70000::1797Q)3080,3090,3110,3100,3120,3130,3130,3130: Q:I@ Y (P2$,2,(P2$)2):e NUM$:z ZZ1ILĺTP$:! (A$(I),18,3):& ZZ1ILĺA$:+ (A$(I),2,15):0 OS$:: " ": READ DOS 3.3 DIRECTORY S15:L0:216,0$(27):  AA$(32)ī2535: A$A$AA$:AA$;:2535M( (A$)0ī2535a2 (8);" ";(8);< (A$)1ĺ(8);" ";:2520F (A$)A$(A$,(A$)1)P 2535 PRINT TO TEXT FILE  I1L FL0IL:NO FILENAME FIELD Q1W10 (1)" "A$(A$,(A$)1):22508S$(S1)P2$A$"/":W KEYBOARD STRING INPUT  :23:" ALONE ABORTS ENTRY.":" ABORTS RECORD WRITE."; A$"" 8:1 AA$ AA$(13)ı AA$(8)ī2600  AA$(27)AY...":A$:^L22200a::"WRITING..."DfD$;"APPEND";F$Nk3000VD$uCSCC1:P2$S$(C):2040D$;"CLOSE":S1" DIRECTORIES/SUBDIRECTORIES,":T" TOTAL FILES (EXCLUDING DIRECTORIES).";I12500::1:3:958:(A$,T:6:"ADD A NAME TO FILE NAME FIELD:":8:2500UA$(27)ė:"RECORD ABORTED. NO DATA WRITTEN TO DISK":I12500:::240VA$""ī2140WLL1:A$(L)A$:TP$"***":ZZ1 \LSė::" NO FILES FOUND!"::" PRESS A KEA$  A$Q*(A$)(A$,3)"BLO"(A$,18,3)"DIR"LL1:A$(L)A$:(A$,16)4(A$,18,3)"DIR"A$(A$,2,15):2250:I0S:S$(I)S$(S1)Ă:SS1>(A$,3)"BLO"2080HTTLMD$;"CLOSE";P2$R:4((L)))L" FILES FOUND.":I12500:47:L(I),S(I):/C0:S0:ZZ0:T0:216,128W15,2,3,18,4,25,9,31,9,48,6,66,7,73vD$;"PREFIX,S"SR;",D";DR1D$;"PREFIX":P2$L0:OS$"PRODOS"D$;"OPEN";P2$;",TDIR" D$;"READ";P2$:3:"PROCESSING..."A$:P2$:A$:,0:784,0" ONERR ROUTINE }814,104:815,168:816,104:817,166:818,223:819,154:820,72:821,152:822,72:823,96 DEFAULT FIELD ORDER 798,3: FILENAME ONLYI07:806I,0: p SELECT RECORD FIELDS zV10:H2:U111:U28:D110:D2210W1:FL0:FG0:FA0:NUM1e4:1:958:4)"SELECT FIELDS IN DESIRED ORDER"5:"SELECT WHEN FINISHED"10:"< > DISK TITLE""< > DISK NUMBER""< > FILENAME""< > FILE TYPE""< > DOS/PRODOS O/S"20:14:"PRESS A KEY";:QW$& H14. V77 NV0D (TMR2000L 2:` <NT((1)11)1 FNT80,90,100,110,120,130,140,150,160,170,180 PAN$"F":NVV:190 ZAN$"E":NVV1:190 dAN$"D":NVV2:190 nAN$"C":NVV3:190 xAN$"B":NVVA:::17:"G CLEF"::17:" BY":11:"TINT1 OF AppleLink"7:"The folowing program is one that will sharpen your skills at naming the notes of the TREBBLE CLEFF. Valid commands" "are C,D,E,F,G,A,B,C,D,E, F (of course) and Q for quit.":)u)u)u$)uD$;"CLOSE"*)uXIT PROGRAM? N";(8);($'A$B(.'A$(13)A$"N"A$(110)220T(3'P1$""10050m(8':(4);"PREFIX";P1$w(B'::(0uD$(4)(:uD$;"PR#3"(Du" "(NuD$;"OPEN /RAM4/DISK.FILE"(XuD$;"READ /RAM4/DISK.FILE"(buI148(luJ13)vuA$:A$;" ";NNOT FIND ";P1$B'n#:"PLEASE MOUNT VOLUME AND...PRESS RETURN."Q'x#A$:10000o'#ER5A$"BLO":2110:240'#:"ERROR # ";(222);" HAS OCCURRED."'#:"LINE #";(218)(219)256'#D$;"CLOSE"'#:'' EXIT PROGRAM ''216,128('::"ENERR HANDLING $&2#ER(222):8144&7#ER89050q&<#3:1:958:"NOT A PRODOS DISK. ATTEMPTING DOS 3.3...";&F#D$;"CLOSE"&K#I11750::1:1::"DOS 3.3";::"/PRODOS";&P#4000&Z#ER6ER79090&_#QQQQ1:QQ2ĺD$;"PREFIX/":'d#::"CA PROTECTED";:I13000:.%gOS$"PROTECTED"8%l4240S%4! INPUT DISK NUMBER _%>!FG0ı%H!:1:10:"WHAT IS THE DISK NUMBER? ";NUM;%R!25:" ";NUM$%\!NUM$""8570%f!NUM$(NUM)%p!10:26:NUM$%z!NUM(NUM$)%!NUMNUM1%!&(# OĖ1:3:958: $5100:60006$I;" = TITLE =":W$I;" = DISK NUMBER = ";NUM:r$I;" = FILE NAME = ":$I;" = FILE TYPE =":$I;" = DISK OPERATING SYSTEM =":$I;" = BLANK =":$X PROTECTED DISK %b::"THIS DISK APPEARS TO BE#d DISPLAY FIELD ORDER (#n10:15#xI1W1k#(797I)6600,6610,6620,6630,6640,6650,6650,6650q##4:1:868:"THIS IS THE ORDER IN WHICH THE FIELDS":"WILL BE WRITTEN TO THE TEXT FILE. OK? Y";(8);#A$$A$"Y"A$(121)A$(13)ILETYPE!"Q2FG1:FILENAME8"Q1FA1:DISK# K"W;(8);:WW1U"6150j"  QUIT SELECT w"W1W2"4:1:958"#FG6500"("STARTING DEFAULT DISK NUMBER? 1";"-4:31:"";A$"2A$""Ģ4:31:NUM;(8);:6500#<NUM(A$)(805Q)1ĺ"":6150:ALREADY SELECTED! 797+W CONTAINS THE ORDER OF SELECTION. E.G. 797 IS THE 1ST FIELD, 798 THE 2ND, ETC. 805+Q IS TO MARK A FIELD AS SELECTED. EACH FIELD CAN BE SELECTED ONLY ONCE PER RECORD. !797W,Q:805Q,1 "Q3FL1:F27İ5100:6000: RESTARTS4 .AU1AU26240H 8AD1AD26270W BA136300l L"":6150:BELL{ `V10V19 jVV1 t6150 ~V18V9 VV1 6150  CARRIAGE RETURN V186410 W86220 QV9:QIS FIELD)!"< > BLANK FIELD"-"< > BLANK FIELD"D"< > BLANK FIELD"^"< > QUIT SELECTION":"USE ARROW KEYS AND TO SELECT":"PRESS TO START OVER, AGAIN TO EXIT"V:HA$:A(A$)A27W1İ5100:10000:6000 $A4:190 AN$"A":NVV5:1908 AN$"G":NVV6:190P AN$"F":NVV7:190h AN$"E":NVV8:190 AN$"D":NVV9:190 AN$"C":NVV10:190 H:V "---------" :H "---------" :H "---------" :H "---------":70T  :::~  6,INSTALL EDITOR,INSTALL LANGUAGE CARD EDITOR,INSTALL SMALL EDITOR,RUN CONFIGURE PROGRAM,RUN DEMO,QUIT  ONERR HANDLER :752,173:753,222:754,0:755,76:756,12:757,190 10:10:752 :::15:"ANY KEY";:A$: 68,A:A8A11İ340:II1:350:260I A21A10İ340:II1:350:260Y "A13AI:i ,A27A0: 6AA48:A0AN1İ340:IA:350 @260 J TI27:5:M(50)::I". ";:50,M:" "MM$(I)" ":: ^INI1 hI0IN r330 | QUI ::10:"LOADING ...":4 LOAD EDITOR S A1ĺD$"BRUN EDITOR":230u A2ĺD$"BRUN EDITOR.LC":230 D$"BRUN EDITOR.SMALL" "LOADED.": MENU SELECTION I1N:340::I1:330 (49152)128260% A(49152)128:4919,(A$):) P3:16::" PRODOS "::5J Z5:" Program Writer"s d5:" Copyright 1985-89, Alan Bird" n5:" Version 2.0/April 21, 1989" xNNM 240:ANM380: QUIT A0380: ESC A4ĺD$"RUN CONFIGURE" A5ĺD$"RUN DEMO"=========================== PROGRAM WRITER STARTUP PROGRAM COPYRIGHT 1985, ALAN BIRD =========================== (:(21);::A$" ":D$(4):4102NM:I1NM:MM$(I): F:I141:A$;::I122:40:A$A$;::I138:A$;::203  :"mouse demo"22(4);"pr#4":(1)CF(4);"pr#0"TZ(4);"in#4"bn"";X,Y,S10:X;" ",Y" ",S" "S0ī110(4);"in#0"(4);"pr#4":(0)(4);"pr#0"16368,0 :H "---------"7 "H3:NV:NT11ĺ"-O-"I ,H4:NV:"O"l 619:13:"YOUR ANSWER? ";:IN$ @IN$AN$Ģ20::27:"GOOD!":I1TMR:: JIN$"Q"ė:: T"":20::310<444$$|td$$$<wwwuS,/,ssqP&<444$$|td$$$<