8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LC! $ " " &#M8nf $ ) L! " " &J, )7(P0  ( @p !"0 *%"0"" &/) )"" &ЭL!)0I0 (Щ ߍ  [ [/CATALYSTDESKTOPq ww%QUARK!o o+MACROS.AWP2TEMP MACROS.AWP.TEMP +GALLEY.CODE=@V-GALLEY.SAMPLE 00+HELP.UPDATE h=l(HELP.AWPhEh*MACROS.AWP.TEMP -MACROS.PASCAL&hh)PIC.TITLE`=.h)ALPHA.CATO =l'ANALYST\?s,ANALYST.CODEj=@u.ANALYST.SAMPLEnTvv/ANALYST.SAMPLERvv&GALLEYuu?s+,BASIC.SYSTEM(A A,MACRO.SYSTEM&ah o'STARTUP*?v%MENUS/D V@d)MAIN.MENU5#Vl(COMPILERHi=1k+HELP.EDITORLAA| | AA|Beagle Bros, | AA|Inc. |AA|_____________|AA AA&PRODOS:A A,MACROWORKS|' # _____________ AA| |AA|MacroWorks |AA| | AA|(c) 1986 | AA|Randy Brandt | >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R)f 8'  )ɀ)4,- U JNT)  !N)Gi/ "4 "" " " iL X%!L!ΠΠҠ`  !"#$@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ# ߐ ߐ ߐ 0 HϭߍLпllllhh8` QSTV،h@ihAiȱ@JJJJq@)@evȱ@Hȱ@Ah@@cee J) LxL LxJiB LxJ) GxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@ڍL3<>=?<>CAB@?A` 1 L  <>` ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112`݁(݉(`}(`e`H)hJJ?(0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <((ȱ( Y'( ' f'L&`L' 'L' Y' L& Y'L'8ei` ,$`ee` `( '( (` *( ' (`hh8`8`(l&j"L  <8# ȱ)ɀ  )t& ` (Xp< @t& )mt&t&.t&w& Mt&i  ``rȱȱȱȱ0]cȱeem(ȱ(ȱ((ȱԠŠҬîʎ1DžϠl&8f ZHH)hh8JhJJJJJ j&Hk&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 |&`L($_뿩 8!@8` MNЩUMܩ  L 5   8 0 8 `0 / x X$$%&%0`ŠӠЭ[ V7 c L '0%O '8O JmO * ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`;YYZLYLYLY"7"Y"/"ll"*# HQ$WON!-PB}OBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ 'P0ōҍJJJJ ɺi) ɺiLD )?      `l@Hȱ@IױHXATȱH ɯȩ׍̞5H)/@a)_ .0 :A[8@`,뎞׮Б` L` @>_)I38Ypqם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA <'KI؍_JJJJح}) ) )в|J8` GpF $ ᭔ع+ؠ HH  Jh8` 䮑ٽ ٬ؠ@` ( X )8`)i пJGBJ a FإG`BH aFإG`H hHB؅F  ؅GxDE؍00C ް(`(8` L7J  G"L H  G 9ؙ` @ P8`B8` X؈ ;JHIH ILFFHGI ѭJjHIH;7IؙJJ g3HIHILJKJK`FHIG ( Ȣ؝؈JL)eKM`)` J Jͫ $0 ΚJFJL8`0C ް(`(8`ؑ@`M8`8@ؐʈI묒)8 L LةC8`؍)@ i)8zJ _ ؅F L) +&J(b ;FإGؐ/8`*J۩ ٰ`JJJJi LdH8`ͦ ٍ0  ` `ٍyٍiB0H0FG h0`שB5xED "8`  `ٽJJJJ`H͜hn)NjNjNjN. dH͜ ;٭ *Nۙ۰ڙک `Z8` d# B` . . .8۰0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`) 8ʈ` )0ٝ)i `8`R "ꍜ NمFمG < Μ0 FGL鮑0 ٭٭ٽ8`H8`  ,0 d01 E8`100 v$0ʩGF 밽 谸 谳`12)1`0`Ȏi 0U`)8`θ` )W G JA)H ܝʈh٭ )ȱHθ`Κ8QeHI SBF0Y ٙWٙUFZSʈ {猺`8m0`,0H hi L荸Ƚθhٍ0GF8yאFG  `* ΙQ8`5IF܅G 됾`\܍]^ {8D`F` tlH)HFȍZHG[ $%܍&܍!ܢ8* J8` L ܝJ)I 'ܝF`R8i^F\G]`R5IH3H (  밯ZF[G 밠S%܈P" X)Im'܅F(܅G)܍^*܍Q 4 䭐 $H %HFFHGHG 됨`R8`)` QH_` :R(5IHH__Ѝ_@`8 e ͙_ʈ@}ȱ@oȱ@y{|rZ[_)7_I0ܢܽ \'Q*ܩu 7pqFG (ST L܅I^ mQIH` } }Y0\F]G Q_HZF[G` G8`F@ 0 e LK8`F GI8`FHGH hGhF܌ բFܽܕF芝ܝ 밶FFGG H܅I mIIHHyHȘI Lܝ` @o@ w@Ю׍_)m0JHi 뎑`C8` @ 3N@) d莽 ⭺i`0 v0GF #0 W,0 ).H hȑNWȮّNW8`ٍّNθ0NN` H h)N$% LL L L H  :pJ덯 )@፲NJOK HiKKήή IJί JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@LH쬒8NNO 8 ؍JL`RήʱLN.MOMEKP/MEKήLML-M O,p莭eNNO(`JNKOL H/  :P L8 gؑJ`L@ȱ@LL`BLLޢޢޢޢޢޢޢޢޢޢޢޢޢޢޢCOPR. APPLE,1983LM Mh@8nЍLޭ 0J @,,L:,L@   !"#$Ԡ͠ˠĠԠhhhhILhH),dx8 (8`@Ae f!55s+aIJK,-NOPQRSuHUSTON!' J5 s9X(K sXXK تKo`V8`no` < on sI9XX`)HJJJh`OeNeO࿰ s9XАO`@ȭ@` ON YNJKO`HHHHх܅F݅G ` ͬ 밽܅F݅G ` * % L`FGL 4܍ݍ8`FHGH 4ܙhGhF`@Bɼ>K@yٙ٩`O dIpFqG :%&N  # 4܅F܅G `J HH hh` 0 @ L\L# [Tܝ ݝ0ȩFG  0` רם__)׍_pFqG 밍 hPם8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ ְ& .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Ӧ>` Ր+>0  4 T  T T F  ȀL ʀݩ ̀ͭ A`L 1 ȱ  `ȱȱ 8<=>?'BC%'(HH(֍hLía0)`    ONP NP    CN TM1 IN 3 JU  PUJ SM 1  MacroWorks Copyright (c) 1986, Randy Brandt Beagle Bros, Inc. IN L W!B<"=`>%?BC ,C< =B>"?BC8 L䅒LJ 擱L 擭ɛ L = L % 擱L! L6  (L](L u ʆ L u  L XLt $ ]` L  `$ i [ ] 0 ] bȱ ]L]úŠōκԠōϠӠɯϠ` 0ei H @橭 )Ƨƨn  Х ? b ) LH % h*,7 Q$ ɛLDLI ԥ ΅  uL u ɛɈqɋmɕxɊtɍ  bȱ 蝀 ^  ةI XʩXύX1021ʆ X ;)4i/ O M ] o+ T# L$0)Ħ 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| ,1/ɭH hH,hL2ȱ3ȱ7ȱ8ȱ<ȱ=iȱ8ȱ  LiB iC<=>? ,i8 ȱ Lȭȭ ȱ L or cmds X S eӮӻAPLWORKS.SYS,//x"##$ //w$//w  $$u0`a L b0A)`Hɬ*ɮ h`h,.0123IAɄLFLMAlH*H+Ѹ*HlH ٭lHlHmlHHHHH`LH G~H` eHfH EPhH F EPnHnH EPrHnH [mH{{ 6B mH{ mHi{ D DmHi{ & 6B rH0mH{{iB{HmH{ {HL@P: BjjH L@uH HH@uH @uHHHJEKALA@ L @@:@;@m@@:, /:@@ m@8@:8e::;i;ΩH?B@C ,L@AAL@`1>@49232,0:49234,0:49236,0:49239,0:X$::49238,0:58aER(222):EL(218)256(219)EL120Ģ17:958::7:(7)"MAIN.MENU must be on the disk":EL310Ģ17:958::7:(7)"PIC.TITLE must be on the disk":216,0:."Z:8::" CATALYST USERS ";::" Copy CATALYSTDESKTOP to your MACRO.MASTER disk."22::" Press any key except Control, Shift, Reset, Caps Lock or the Apple keys":16368,0:16384,128:16368,0:30 PF3206(4)"BLOAD PIC.TITLE":PFsion of MACRO.SYSTEM is needed for":8:"QC10 use. Rename or delete MACRO.SYSTEM and then rename the file" 8:"QUARK to MACRO.SYSTEM. You lose temporary macros (page 12) and any"8:"macros that call themselves, like OA-Left or OA-Right (page 18)ge El Cajon.":8:"Thanks to Ben, Bryan, Gene and Jerry for their debugging help." 8:"Special thanks to my wife Joanna and daughter Heather for not":8:"unplugging my computer (just the monitor)."l :8::" QUARK QC10 USERS ";::" A special verP 8:"MacroWorks was written on a IIc equipped with Applied Engineering's": 8:"Z-RAM. Thanks to Bert, Sharon, Alan, Jack, Kristen, Liz, Mark and":8:"Rob for their help and ideas.":T 8:"Also, thanks to Joe, Judy, Rob and Rod from Computer A choice: ";:X$:X$"Q"X$"q"Ģ17:958:C dX$"N"X$"n"200Z iX$"T"X$"t"265s n(X$"M"X$"m")90 xD$"-MAIN.MENU" :D$"PR#3":: 29:" : : ":29:" MACROWORKS NOTES ":29:" : : ": )+,-By Randy Brandt |":10:"|";:31:"|" 210:"| Published by |":10:"| BEAGLE BROS, INC. |":10:"|____________________|":: :17: <14:"M - Main Menu" F14:"N - Notes" K14:"T - Title Pic" P14:"Q - Quit":, Z13:"Make a  1000,V$"1.0 24-Mar-86":D$(4):(21):::::15:": :":15:" MACROWORKS ":15:": :":::10:"Version "V$:11:"____________________"( (10:"|";:31:"|":10:"| Copyright (c) 1986 |":10:"|";:31:"|":10:"| )HH(hLé6H(Lì`L'L'ɛL`{ rH߭mH{ A 6BL EPmH EPmH ` 3DoHipHqHrH DLB 3DoHpHqHrHhHvHgHwHkHiHkHgHwHgHgHkHcHgHdH DnH8miH [oHi { dHwHHH cHʊmvHhH DlHnH [lH D D rH i:I09:M$(I)::I03:D$(I)::UN$"Unable to " <1::1:"MacroWorks";:CL:32:" MAIN MENU";:C8,69:"Main.Menu":RPT,223,79 P22::RPT,223,79:9950:BOX,M$(0),4,3,11:U15:CL:: nMENU,A$(0),IT,1,H,V,C xX(0):QO1:XIT1140P }9:A:12528I,A:: 104,168,104,166,223,154,72,152,72,96J D$"-MENUS"e D$"BLOAD HELP.EDITOR"} D$"BLOAD COMPILER" (D$"PREFIX":PFX$:OP$"/":I2(PF$)1:(PF$,I,1)"/"OP$PF$:50 -4 2ITEMS4:A$(IT):I0ITEMS:A$(I)::I03:B$(I):M1":SG$(2,2,1)"B$E8F9,L$378" D$(4):Q$(34):CL868:CS958:MX$(1):MX$(0)"misteak":MX$(1)"mistake":D$(3),B$(3),M$(9):LI$(27):KR49168:BL48855:HE11904:CM12544:H9:V6:C25:C81403:AW$"AppleWorks": 48891,(116):A1(1014):A2(1015):I046789:;<=>?@ABCDEFG$(0,2,1)"B$14044,L$378" SG$(1,0,0)"M1":SG$(1,0,1)"B$7A51,L$38E":SG$(1,1,0)"M0":SG$(1,1,1)"B$3033,L$357":SG$(1,2,0)"M1":SG$(1,2,1)"B$E80C,L$378" SG$(2,0,0)"M1":SG$(2,0,1)"B$7B1D,L$38E":SG$(2,1,0)"M0":SG$(2,1,1)"B$3056,L$357":SG$(2,2,0)" 10000d20480:SG$(2,2,1):FI$(50)::(4)"PR#3"::12:27:"Stand by for Main Menu...": DS6:DN1:SD48700:AS(SD):AD(SD1):S316384 SG$(0,0,0)"MN":SG$(0,0,1)"B$D2D9,L$38E":SG$(0,1,0)"MN":SG$(0,1,1)"B$304E,L$357":SG$(0,2,0)"MN":SH GG`ȅ 0"   HG H,H` G~HHHLELELXALEL>BL#BLZBLEBEEPBOXKEYMENURPTSHOW <$ŮӍ㩠嬠㮍ӠĮ IH`G 0GH Gh`HH{ 9G @I,/Gp I,/GI@ KGhh``H{ KGxHhxH`yHHJpxUT(T(hHPhHxHUTh(T(hyH`HH H~H HH8H`HH HHGhL G GxxH GxxH G EPmH)LmH` ߩ|H Fɛə|H L(Fɍ |HLFɈ 6 L(Fɕ)ɠ?|H |HHh L(F,0L(F{H {H%H |H|H,0|Hh [h{{HL(F}H 9խ}H R }Hȥoȥp` LWۥ()mHsHtHLIE F EPPL [(),mHsHIߍtHH GuH{HH G~H08H080{HmHMtHэa0b0)HmHsHh`LEH̅HHLEH̅HH EhLELiE 8LG ٠8880` gLR mnH [pH{ DlHiiLD w D sLmC eHfH EPhH EPiH8iHhHgHgH EPkH EPoH EPnHnH FЅ` DlHnHL[eHifHihHii`oH{qHlH W`bHȱȱ W۠ bHilHgH DkHlH CrHJDkHcH cHdHLB ELBgHkHdHwHcHdHLBcHmcH` 9E ɿrH` lH lHlHTqH߭gHlHG lHgHqHоlH'lH"qH19)gHlHLC ELmCpH{ DlHʊrH23::"Press A for Applesoft or Esc to continue";:CL::QO0Ė7:" A ";i ~QO1Ė28:" Esc ";: :KEY,23,24:X(0):X27(X13QO1)İ9950:110 X8X21QO1QO:125 (X65X97(X13QO0))įBEEP:1279800::(21)::"TYPE "Q$"RUN"Q$" TO RESTART.":?X5000,1000,2000,3000:BEEP:110XX$"ALPHA.CAT":3500oX$"ANALYST":3500 X$"GALLEY" 9800:21::D$"-"X$1:31:" ENHANCE APPLEWORKS";:CL:C8,61:"Escape: Main Menu":9950BOX,A$(0),7,5,10:U14:CL error beep";:CL:BEEPS3:PA18827:(BEEP)160(BEEP2)1698130fBEEPBE8:PA18838: NOT V1.2(BEEP)160(BEEP2)169Ģ23::"Unrecognized version of "AW$;:CL:KEY,18,24:5000(PA1)162PA18873: TRY V1.1(PA1)162ĹBEEP,0"Press Return to switch from buzz to beep";:CLmrKEY,21,24:X(0):X275000:X32MX1MX:BEEP:8030|X13įBEEP:8050I3:9200:SYS$"TEM"9000:X275000D$"BLOAD APLWORKS.SYS"SY$",TSYS,A$4000,B$63D,L$A00"D23::"Installing$" error buzz can be rather irritating,":16:"especially since you only hear it after mistakes!"T16:"We would rather hear the pleasant MacroWorks beep.":16:40)^15::16:"(Press the space bar if you haven't made a "MX$(MX)" yet.)"2h23::1::CL:1:C8,61:"Escape: Enhance AW":701523::"Enter text; press Return when done";:CL:1:C8,61:"Escape: Select";:CLHE1:49236,0:7110@1:32:"CHANGE ERROR BUZZ";:CL:C8,61:"Escape: Enhance AW":I3:9900cJ11::16:"The "AW,(BL):6,(BL1):X((BL)256(BL1))((BL2)256(BL3)):HI(X256):LOXHI256:7,LO:8,HI:9,21:XX723::"Use up/down arrows to select; press Return to edit";:CL:1:C8,61:"Escape: Customize";:CLHEXX:XX4: SELECT/(225)27Ģ2,1):23::"New screen saved; press a key";:CL:KEY,16,24:9950:7020pPLS3:VN0:D$"VERIFY SEG.MN":7080VN1:D$"BLOAD SEG.M1,A$4000,B$36,L2,T0":(PL)24(PL1)123VN2OXX:D$"BLOAD"PF$"SEG."SG$(VN,X1,0)",T0,A"PL","SG$(VN,X1,1)n5ape: Enhance AW";:CLcYI2:9900:9::16:"Where is the "AW$" PROGRAM disk?":9000:X275000wgI2:9900:9950lMENU,M$(4),7,1,H6,V5,C:X(0):X275000vX4OX0įBEEP:7020HX4XOX:D$"BSAVE SEG."SG$(VN,X1,0)",T0,A"PL","SG$(VN,X1,L7":MF((S33)256(S34))8192:MA1004((S35)256(S36))x@21:D$"BSAVE MACRO.SYSTEM,TSYS,A$3800,B"MF",L"MA23::"New macros installed; press Return or Esc";:CL:KEY,22,24:(0)276500:6710X1:32:" CUSTOMIZE HELP ";:C8,61:"Escmpiling "NA$:CM2:33,80:32,0:X(CM1)w23::"Press Return to continue";:CL:KEY,13,24:X060:(0)276510 1:32:" SAVE NEW MACROS";:CL:C8,57:"Escape: Compile Macros"6I9:9200:9000:X276500B;D$"BLOAD MACRO.SYSTEM,TSYS,A"S3"ce AW"NnI9:9900:9::16:"Where is the MACROS. file?":9000:X275000cx9500:X276510CO0įBEEP:11::20:"No MACROS. files in ":20:PFX$:KEY,25,24:651020:D$"BLOAD"NA$",A$4000,TAWP,B300"+I9:9900:8::33,59:32,15::"CoD$"RENAME APLWORKS.SYS,APLWORKS.SYS"ID$"CREATE MACRO.SYSTEM,TSYS"uD$"BSAVE MACRO.SYSTEM,TSYS,A$4000,L"LE23::AW$" now has the MacroWorks commands; press a key";:CL:KEY,29,24:60d1:32:" COMPILE MACROS";:CL:C8,61:"Escape: Enhan23::"Insert your AppleWorks STARTUP disk; press Return";:CLvKEY,26,24:X(0):X275000:X13įBEEP:6050I1:9200:9000:X275000D$"UNLOCK APLWORKS.SYSTEM":D$"RENAME APLWORKS.SYSTEM,APLWORKS.SYS":6090'D$"UNLOCK APLWORKS.SYS": disk. It contains the"16:"new MacroWorks commands and macros, and will":16:"automatically take control whenever you boot":16:"up with your modified "AW$" disk."D$"PREFIX"OP$:D$"BLOAD MACRO.SYSTEM,TSYS,A$4000":LE(48857)256(48858)B::4MENU,B$(0),3,1,H3,V3,C:X(0):X2760[X6000,6500,7000,8000:BEEP:5020p1:32:"INSTALL MACROWORKS";:C8,61:"Escape: Enhance AW";:CL:I1:9900z11::16:"This option adds a file called MACRO.SYSTEM to":16:"your "AW$" STARTUP:8110-DABEEP1:FABEEP3: DUR & FREQFA,20:DA,180:PA,50:20:D$"BSAVE APLWORKS.SYS"SY$",TSYS,A$4000,B$63D,L$A00":9950:5000(#D$"FRE":Y$PF$:9950:10::16:"Select (1) when 'Current Directory' is correct."::C8,39:PFX$;:30(PF$)),F#MENU,D$(0),3,1,15,13,25:X(0):X27ıSP#X9190,9180,9050,9170:BEEP:9030xZ#14::24::" "DS" ";:::9975d#KEY,32,24:X(0):X27İ9950:9030n#X10DSDS1:DS0DS7x#X11DSDS1:DS8DS1}#X48X56DSX48:X13D#X13X`h-6h.6׾mپؾmھ8@/6  )6-iiɅL31 L31@L|4ii )'6-iiɃL1 L1IL|48zz","Change Word Processor","Change Data Base","Change Spreadsheet","Save New Help Info","Read Directory","Compile Macros" : M+; "Current Directory:","Slot 6 Drive 1","Another Slot and Drive","Another Pathname": De Analyst","Use Galley","Quit" : A*: "Install Built-In MacroWorks Commands","Compile New Macros","Customize AppleWorks Help Screens" ,"Change Error Buzz to MacroWorks Beep" : B+`; "Main Menu","Install MacroWorks","Customize Help" ,"Change Error Bu800İ13000:X$:60!)'216,0:@)." must be on the disk":)D/BEEP:23::"That was not the "AW$" STARTUP disk; press a key";:CL:KEY,28,24:)223::"Insert the MacroWorks disk; press a key ";:CL:%*: "Enhance AppleWorks","Use Alpha.Cat","Ushe "AW$" PROGRAM disk now and press a key";:CL:KEY,29,24:7015:7070n(j'EL8090SYS$"TEM"SYS$"":8090(t'EL8090İ12100:8000(~'EL9170EL9180EL9510įBEEP:23::"Unable to find directory; press Return";:CL:KEY,20,24:PF$Y$:9000)'EL9s Return";:CL:KEY,14((NA$)2),24:6500}'X'EL6715Ģ23::"MACRO.SYSTEM not found; press a key ";:CL:KEY,19,24:6710'['EL6720Ģ23::UN$"save MACRO.SYSTEM";:CL:KEY,14,24:6500'_'EL70607070:7060H(`'EL7000EL8000įBEEP:23::"Insert tart ";:CL:X$::G&B'EL6030İ13000:KEY,21,24:(0)275000:6030Y&L'EL60706080s&Q'EL6080İ12100:6060&T'EL6090ER196100&U'EL6090EL6100Ģ23::UN$"add MACRO.SYSTEM";:CL:KEY,13,24:6060,'V'EL6540įBEEP:23::UN$"load "NA$"; pres:CL:2%'ER(222):EL(218)256(219):12528n%'ER12ER77ė:"INSUFFICIENT MEMORY; PLEASE REBOOT":%'EL20ĺ"MENUS";:12000%$'EL25ĺ"HELP.EDITOR";:12000%.'EL30ĺ"COMPILER";:12000&8'EL3500Ģ23::UN$"find "X$"; press a key to rest/"ĺD$"PREFIX"OP$$M&7$&I2I:BOX,M$(I),10,7,11:V$&C8,59:" Escape:"B$(XX)$&23::"Type number or use arrow keys, then press Return See Manual for Help";:%&23::"Use up/down arrow keys to change value; press Return when done";>#v%9::16:"Disk Volume "PFX$" has "BF" blocks available"{#%17:"Name Type Blocks Date":16:RPT,189,37#%SHOW,FI$(1),CO,6,15,13,27:X(0):X27ı#%NA$(FI$(X),15):$H&1014,A1:1015,A2:48888:SD,AS:SD1,AD:D$"PREFIX/":OP$"CKS FREE:"9520F"D%BF$(FI$(CX),13,5):BF(BF$):COCO1:D$"CLOSE""N%I1CO:FI$(I)(FI$(I),2,15)(FI$(I),17,5)(FI$(I),25,15)::CO0ı#l%1:C8,56:" Escape: Load Source";:CL:23::"Use arrow keys to highlight file, then press Return";:CS:16:"Where is your Macro Master disk?":a!%I9:9900:11::20:"Reading directory...":CO1!&%22:D$"OPEN"PFX$",TDIR":22:D$"READ"PFX$:X$:X$!0%FI$(CO):CXCO:X$(FI$(CO),18,3):X$"AWP"(FI$(CO),2,7)"MACROS."COCO1":%(FI$(CX),12)"BLO13İ9950:D$(1)"Slot "(DS)" Drive "(DN):14::20:D$(1)" ";:9180Z #BEEP:9130 #23::"Type new pathname: /";:CL:X$:X$""9000:PFX$"/"X$"/":D$"PREFIX"PF$:9000 #22:D$"PREFIX,S"DS",D"DN:D$"PREFIX":PFX$:9000 #,!#9900:9:21D$(1)"Slot "(DS)" Drive "(DN):14::20:D$(1)" ";:9120X#X10X119050h#BEEP:9060#14::32::" "DN" ";::#KEY,32,24:X(0):X27X8Ģ14::20:D$(1)" ";:9050#X10X11DN3DN:9120#X48X51DNX48:X13J #X)eiia)< 41L|4 L|4Lv2DU.,:L3Șee /67 c4/67 7L|4/6ȱ ɺ L2 W۠<LC3- 4L2LL3A a1L|406a)O GIJNPQRSTUVWXYZ16 I1COD:(FI$(I),19)(FI$(ID),19)Ă:80n (TX$FI$(ID):FI$(ID)FI$(I):IDFI$(I)TX$::80 2JID1D:(TX$,19)(FI$(J),19)70 <FI$(JD)FI$(J): FFI$(JD)TX$:I PD(D2):D030 ZX d:D$(4):Q$(34):CL868:CSЩ ******************* * * * ALPHA.CAT * * * * COPYRIGHT 1986, * * BY RANDY BRANDT * * * ******************* 10000 SL1:DS6:DN1:100: DEFAULT PRINTER SLOT & DRIVE D2((CO)(2))UT`KML<0Ɉ ? /Li/ɕɀɠ,(0 0Hh00T0 /Li/,0Li/0I0Ρ0`0I00`00T00Iߍ000 M0,a ɠ @)H0h0`ɍ)) 爘`00 0) @``LY/L. . 3/) `  .L.  .L.,0L.  00`00ee 00ڥ` [()ii ^0L0 3/0V0 /ɛ`ɍ 0LEFTRIGHTUP DOWN RTN ESCTAB DELSPC CTRL ] w E  4 ɾɭɠɰɺ s  Lk5H sh 1.6H-6H`䮍庠庠 $L5L1,6,6>-a)_26+-ȱ)Hȱ>h`h1L|426`26`2626б`8ذ`+6 - +65 +6@IL5+6 ><S c406 4 >̈ 06,6/6(L|47,6LL3@L3Șee c4L2ii)eiiL2ii@L|438ؐ5 958:C81403:KR49168:SD48700:AS(SD):AD(SD1):A1(1014):A2(1015):48891,(116) hD$"PREFIX":PFX$:OP$"/":I2(PF$)1:(PF$,I,1)"/"OP$PF$:110 i, nITEMS3:B$(IT):GF$(3),LI$(27):MN$(24),FI$(70):M$(4),A$(3):Q(2),Q$(2):Q(0)6:Q$(0)020/b13::17:"Sorting Files... ":20Ul13::17:"Formatting Names... "qI1CO:X$"":J02:X1((FI$(I),18J,1)):X$X$(X1(32(X163)))::FI$(I)(FI$(I),1)X$":"(FI$(I),2,15)::FI$(CO1)" ":X((CO1)2):PO37040av::" "PF56:"Escape: Alpha.Cat Menu";:CLVdBOX,M$(OX),7,5,11:CL::CL::CL::CL::CLxn13::17:"Printer Slot: "SLMENU,A$(2),3,1,12,10,25:X(0):X27200,X1PO3X2POSLX2įBEEP:6600XI1CO:FI$(I)(FI$(I),20)::SO07AppleWorks files found in":17:PFX$:XOX:KEY,25,24:(0)27360:6020CO1įBEEP:11::17:"No files found in ":17:PFX$:XOX:KEY,25,24:(0)27360:6020OX1Ģ1:31:" VIEW AW FILES ";OX2Ģ1:31:" VIEW ALL FILES ";# 1:C8,X$"ASP")COCO1:6230O`FO1(FI$(CO),12)"BLOCKS FREE:"COCO1:6230wj(FI$(CO),12)"BLOCKS FREE:"6230tFI$(0)(FI$(CO),39):D$"CLOSE"~CO0ĭ(FI$(CO),18,3)""(FI$(CO),18,3)" "COCO1:6270ICO1FO0įBEEP:11::17:"No X$P2$:6045D822:D$"PREFIX,S"DS",D"DN:D$"PREFIX":PFX$:6040BBOX,M$(4),10,7,11:11::17:"Reading directory...":CO1:D$"FRE"L22:D$"OPEN"PFX$",TDIR":22:D$"READ"PFX$:X$:X1$:X2$VFI$(CO):X$(FI$(CO),18,3):FO0(X$"AWP"X$"ADB"(1)" ";:6070,X10X11DN3DN:6140HX48X51DNX48:X13X13İ9500:GF$(1)"Slot "(DS)" Drive "(DN):14::20:GF$(1)" ";:6200$BEEP:6150.23::"Type new pathname: /";:CL:X$:X$""6045:P2$"/"X$"/":D$"PREFIX"P2$:PFX11DSDS1:DS8DS1:X48X56DSX48:X13X13X21GF$(1)"Slot "(DS)" Drive "(DN):14::20:GF$(1)" ";:6140X10X116070BEEP:608014::32::" "DN" ";:::9600KEY,32,24:X(0):X27X8Ģ14::20:GF$ectory' is correct."::C8,39:PFX$;30(PF$));9500pMENU,GF$(0),3,1,15,13,25:X(0):X27XOX:360X6210,6200,6070,6190:BEEP:605014::24::" "DS" ";:::9600KEY,32,24:X(0):X27İ9500:6040X10DSDS1:DS0DS7MENU,A$(0),1,1,12,10,25:X(0):X27200QzSO1(X1):SO0SO1įBEEP:60001:31:" READ DIRECTORY ";:C8,56:" Escape: "M$(OX);:CLBOX,M$(4),10,7,11:CL::CL::CL19::16:"Read which directory?":16:"Select (1) when 'Current Dir60009600G10::14:"Current Printer Slot: ";::" "SL" ":gKEY,32,24:X(0):X27200X11SLSL1:SL8SL1X10SLSL1:SL0SL7X10X114005X13200BEEP:4010pC8,56:"Escape: Alpha.Cat Menu";:CL+u":^X1XITįBEEP:230QhBOX,M$(X),7,5,11::CL::CL::CL::CL::CL{rX1FO0:1:31:" VIEW AW FILES ";|X2FO1:1:31:" VIEW ALL FILES ";X3Ģ1:30:"CHANGE PRINTER SLOT";C8,56:"Escape: Alpha.Cat Menu";:CLX3ī230, X77X109(X13QO0)X77:330Q "X65X97(X13QO1)X65:330m ,(X8X21)įBEEP:270 6X8QOQO1:QO1QO2 @X21QOQO1:QO3QO0 E260 J9800 OX77ĺD$"-MAIN.MENU"T:(21)::"TYPE "Q$"RUN"Q$" TO RESTART.:CL# 10::35:"(Now "SL")"> MENU,B$(0,)IT,1,H,V,C[ X(0):OXX:XIT1350d QO2 23::"Press M for Main.Menu, A for Applesoft or Esc to continue";:CL:C8,Q(QO)::" "Q$(QO)" ";: KEY,33,24:X(0):X27(X13QO2)İ9500:"M":Q(1)25:Q$(1)"A":Q(2)46:Q$(2)"Esc"< xD$"-MENUS"Q I5:H9:V7:C25 I04:M$(I)::I03:A$(I)::I0IT:B$(I)::I03:GF$(I): (4)"PR#3" 9700:RPT,223,79:22::RPT,223,79:9500 BOX,M$(0),4,3,11:CL::CL::CL::CL:X$:" "FI$(0):RPT,173,41::I1X:FI$(I)" "FI$(IX)::23::"Press Return";:KEY,7,24::200BOX,M$(OX),7,5,11:CL::CL::CL::CL::CL:10::13:"Make sure your printer is on line"D$"PR#"PO::" "PFX$:" "FI$(0):RPT,173,41::I1X:FI$(I)" "FI$(IX)::(12):150}%23::"Type number or use arrow keys, then press Return See Manual for Help";:%23::"Use up/down arrow keys to change value; press Return when done";:CL:%1::1:1:"MacroWorks";:CL:31:"ALPHA.CATrst!":BEEP:KEY,C,24:6014::17:"Word Definition: "WD$(WD):17:"Printer Slot: "SL:17:"Display Order: ";:SO$(SO)MENU,B$(0),1,1,12,10,25:X(0):X27FL0:60$X2įBEEP:1050 BFL0Ģ17::17:"Words Analyzed:";:220,SO:#WDT800# X77Ģ21:D$"-MAIN.MENU"T :(21)::"TYPE "Q$"RUN"Q$" TO RESTART.": X1000,2000,3000,4000,5000:BEEP:110 1:30:" ANALYZE A FILE ";:9450 BOX,M$(2),7,5,13:CL::CL::CLNA$"None"Ģ11::14:"You must load a file fiC8,Q(QO)::" "Q$(QO)" ";:Q KEY,33,24:X(0):X27(X13QO2)İ9500:110w X77X109(X13QO0)X77:180 X65X97(X13QO1)X65:180 X8QOQO1:QO1QO2 X21QOQO1:QO3QO0 (X8X21)įBEEP:150 140 9M$(0),4,3,14:CL::CL::CL::CLr Z10::38:"(Now "WD$(WD)")"::38:"(Now "SO$(SO)")"::38:"(Now "SL")" nMENU,A$(0,)IT,1,H,V,C xX(0):XIT1200 QO2 23::"Press M for Main.Menu, A for Applesoft, or Esc to continue";:CL:S" D$"-ANALYST.CODE"6 2(4)"PR#3":NA$"None"~ 3ITEMS5:A$(IT):I0ITEMS:A$(I)::I05:B$(I)::I03:M$(I): <1::1:"File: "NA$;:31:" ANALYST MENU";:CL:C8,72:"Analyst";:CL: FRPT,223,79 P22::RPT,223,79:9500$ UBOX,[]^_`abcdefgh$(4):Q$(34):CL868:CS958:B$(5),M$(5):LI$(27):C81403:FI$(50):BS48855:Q$(2),Q(2):Q(0)6:Q$(0)"M":Q$(1)"A":Q(1)25:Q(2)47:Q$(2)"Esc" I5:H9:V7:C25:D$"PREFIX":PF$:OP$"/":I2(PF$)1:(PF$,I,1)"/"OP$PF$:20 : D$"-MENU1 ANALYST COPYRIGHT 1986 BY RANDY BRANDT =10000V48891,(116):31488WD$(1):WD$(0)"B":WD$(1)"A":WD1:SO1:SO$(1):SO$(0)"Unsorted":SO$(1)"Sorted":A1(1014):A2(1015):SD48700:AD(SD1):AS(SD) SL1:DS6:DN1:NC3:NS2 Dcreen","Print Files" : A$(3)t: "View AppleWorks Files","View All Files","Change Printer Slot","Quit" : B$(3)> "Current Directory:","Slot 6 Drive 1","Another Slot and Drive","Another Pathname": GF$(3) press a key";:CL:KEY,20,24:9500:60408*216,0:: "Alpha.Cat Menu", "View AW Files","View All Files","Change Printer","Read Directory" : M$(4):"Display Files in Alphabetical Order","Display Files in Original Disk Order","Display Files on S on the disk":o='EL335Ģ23::"Insert the MacroWorks disk; press Return ";:CL:X$:X77:X$(27)335:?'EL9800Ģ23::"Insert the MacroWorks disk; press Return";:CL:KEY,21,24:9800+t'EL6190EL6300Ģ23:BEEP::"Unable to find directory; MENU";:C8,69:"Alpha.Cat":IH&D$"PREFIX/":OP$"/"ĺD$"PREFIX"OP$xR&1014,A1:1015,A2:48888:SD,AS:SD1,AD:'ER(222):EL(218)256(219)'EL104ĺ::"A disk must be in the current drive"::100)'EL120ĺ:"The file MENUS must beY:FL1:TY0{N23::"Press Return to view results; start/stop display by pressing any key";:CL:KEY,35,24:(0)2760QX2ĺD$"PR#"SL::"FILE: "NA$:$:(12):D$"PR#3":60V:"FILE: "NA$:$:23::"Press Return";:KEY,7,24::601:31:" LOAD A FILE ";:9450ABOX,M$(1),7,5,13:CL::CL::CLK94507::13:"Where is the file you want to analyze?":13:"Select (1) when 'Current Directory' is correct."::C8,35:" ";PF$;:30(PF$))MENU,B$(2),5,1,12,11,25:X(0):X2e to load file; press Return";:NA$"None":CL:KEY,18,24:2000:23608'EL9800įBEEP:23::"Insert MacroWorks disk and press Return";:CL:KEY,21,24:9800B'EL185Ģ23::"Insert MacroWorks disk and press Return ";:CL:X$:X77:X$(27)185:jt'SD1,AD:/'ER(222):EL(218)256(219)i'ER77ER12ė:"OUT OF MEMORY, LINE "EL"; REBOOT":'EL15ĺ"A disk must be in the drive":)'EL20ĺ"Can't find MENUS":3'EL25ĺ"Can't find ANALYST.CODE":F6'EL2360įBEEP:23::"Unabl%23::"Type number or use arrow keys, then press Return See Manual for Help ";:%23::"Use up/down arrow keys to change value; press Return when done";:CL:H&D$"PREFIX/":OP$"/"ĺD$"PREFIX"OP$ R&1014,A1:1015,A2:48888:SD,AS:11::13:"Current Slot:"<11::31::" "SL" ";::bKEY,32,24:X(0):X27İ9500:60X10SLSL1:SL0SL7X11SLSL1:SL8SL1X13İ9500:60X10X11ī5050BEEP:5060$1:C8,59:"Escape: Analyst Menu";:CL`";::" "7KEY,32,24:X(0):X27X13İ9500:60YX10X11SO1SO:FL0:4040iBEEP:40601:30:" CHANGE PRINTER SLOT ";:9450BOX,A$(4),7,5,13:CL::CL::CL97008::13:"Printers are usually in slot 1 or slot 2."$(WD)" ": 9700: KEY,32,24:X(0):X27X1360\ X10X11WD1WD:FL0:3070l& BEEP:30901:30:" CHANGE DISPLAY ORDER";:9450BOX,A$(3),7,5,13:CL::CL::CL9700 11::13:"Current Display Order: ";::" ";SO$(SO)" beginning with a number 0-9,"\ 14:" or a letter A-Z (Examples: test, 100, 128K)": 14:"B) a group of characters beginning with a letter A-Z" 14:" (Examples: test, A1, BASIC.SYSTEM)"  16::14:"Current Word Definition: ";::" "WD",A$4000,T"TY$:EL((BS)256(BS1))((BS2)256(BS3)):EL,0:60o 1:31:" WORD DEFINITION ";:9450 BOX,M$(3),7,5,13:CL::CL::CL 8::14:"ANALYST lets you define a word as one of the following:":  14:"A) a group of characters:"Disk Volume "PF$" has "BF" blocks available"n14:"Name Type Blocks Date":13:RPT,189,37SHOW,FI$(1),CO,8,12,11,27:X(0):X272000. NA$(FI$(X),15):TY0:TYP$(FI$(X),17,3):TY$"AWP"TY$"AWP,B300":TY2G8 D$"BLOAD"PF$;NA$BF$(FI$(CX),13,5):BF(BF$):COCO1:D$"CLOSE"CO0įBEEP:10::17:"No useable TXT or AWP files in "PF$:KEY,25,24:20001:C8,56:" Escape: Load a File";:CL:23::"Use arrow keys to highlight file, then press Return ";:CS17::13tory...":CO1D22:D$"OPEN"PF$",TDIR":22:D$"READ"PF$:X$:X$FI$(CO):CXCO:X$(FI$(CO),18,3):(X$"TXT"X$"AWP")(FI$(CO),26,3)" 31"COCO1(FI$(CX),12)"BLOCKS FREE:"FI$(CX)(FI$(CX),2,15)(FI$(CX),17,5)(FI$(CX),25,15):22104"(DN):12::17:B$(3)" ";:21804pBEEP:2130z23::"Type new pathname: /";:CL:X$:X$""2015:P2$"/"X$"/":D$"PREFIX"P2$:PF$P2$:201522:D$"PREFIX,S"DS",D"DN:D$"PREFIX":PF$:2020FL0:BOX,M$(1),7,5,13:10::17:"Reading direc):12::17:B$(3)" ";:212024X10X112050B>BEEP:2060aH12::29::" "DN" ";::RKEY,32,24:X(0):X27X8Ģ12::17:B$(3)" ";:2050\X10X11DN3DN:2120aX48X51DNX48:X13$fX13İ9500:B$(3)"Slot "(DS)" Drive 760-X2190,2180,2050,2170:BEEP:2030R12::21::" "DS" ";:::9700z KEY,32,24:X(0):X27İ9500:2030X10DSDS1:DS0DS7 X11DSDS1:DS8DS1%X48X56DSX48:X13*X13X21B$(3)"Slot "(DS)" Drive "(DNEL2000EL3000Ģ20::BEEP:23::"Unable to find directory; press Return";:CL:KEY,20,24:9500:2020w*216,0:: "Analyze the Current File","Load a File","Change Word Definition","Change Display Order","Change Printer Slot","Quit" : A$(5) < "Show Results on Screen","Send Results to Printer","Current Directory:","Slot 6 Drive 1","Another Slot and Drive","Another Pathname": B$(5) > "Analyst Menu","Load a File","Analyze a File","Word Definition" : M$(3)tions such as "can't" and "won't" are acceptable, as are hyphenated words such as "one-letter" and "eight-bitter." Words joined by a period, such as "BASIC.SYSTEM" and sentences without a space are counted as well.To the left of this sentence we see an errmors used in making up each counted word, and the average number of characters per word. The only one-letter words allowed are "A" and "I", unless of course, you are counting numbers. Then every number counts; what else are numbers supposed to do? AbbreviaThis is a test file for ANALYST. It was printed to the disk as "ANALYST.SAMPLE" to create a TXT file which can also be analyzed. The ANALYST program can load either one and count the number of unique words, the total number of words, the number of characte L )ߑ۰ ɺɰ8`` QE0 QE0 ɛ`hhLHDLԠčŠӺ̠ӠӠӯĠ  h :۠  (EiiLCE $ E `EaE $ E UEVE $ E UEVE  +`EaE  f 4HH-.5:0:0hh :۩('i^Eȱi_ELA(hii'LBȥȥȩȑiiLAbE !8 4HАɺ۰׍TE ȱ`EaE\EH[EH` Eɧɭɮȱ ELTBHhåWEe#TEXEɰ ɺ LAWEmUEUEVEWE!{ $)$!!!!!!LA!ȱ(ikl# $LLCh[Eh\E g RPXELAXEXE@@&fLDA LRAHehYE)ZEZEYE LDA@UEVEWE/ )ߑXEɰ A ASE RE@ L @@:@;@m@@:, /:͋@͌@ m@8@:8e::;i;ΩE?B@C ,L@AAL@`or which forms the word "well.to" in an unexpected manner. Spaces can be important! Catalyst DesktopF.Menu, A for Applesoft, or Esc to continue";:CL:C8,Q(QO)::" "Q$(QO)" ";: KEY,33,24:X(0):X27(X13QO2)İ9500:170 X77X109(X13QO0)X77:190 X65X97(X13QO1)X65:190 (X8X21)įBEEP:178 X8QOQO1:QORPT,223,79* 22::RPT,223,79:9500V BOX,M$(0),4,3,14:CL::CL::CL::CL 10::C8,43:"(Now "NC")":12::C8,43:"(Now "NS")"::C8,43:"(Now "SL")" MENU,A$(0,)IT,1,H,V,C X(0):XIT1198 QO2S 23::"Press M for Main: #D$"-MENUS+ (D$"-GALLEY.CODE"X -NC2:NS2: default # columns & spacess 2(4)"PR#3":NA$"None" 7ITEMS5:A$(IT):I0ITEMS:A$(I)::I05:B$(I)::I05:M$(I): <1::1:CL:"File: "NA$;:34:"GALLEY MENU";:C8,73:"Galley" xtvwxyz{|}~015):48891,(116) D$(4):Q$(34):CL868:CS958:B$(5),M$(5):LI$(27):C81403:FILE$(70),QO(2),Q$(2):Q(0)6:Q$(0)"M":Q(1)25:Q$(1)"A":Q(2)47:Q$(2)"Esc" I5:H9:V7:C25:D$"PREFIX":PFX$:OP$"/":I2(PF$)1:(PF$,I,1)"/"OP$PF$:35  ******************* * * * GALLEY * * COPYRIGHT 1986, * * BY RANDY BRANDT * * * ******************* 10000 SL1:DS6:DN1: PRINTER & DRIVE DEFAULTS SD48700:AS(SD):AD(SD1):A1(1014):A2(1PԨȩʍԇ Ԣԧק̩ԅ Ԩ ӧ§ԧק̩ԨȩʵԨԩԐԨԩԡW MACRO.SYSTEM@MacroWorks by Randy Brandt Copyright (c) 1986, Beagle Bros, Inc.Macro AppleWorksprsl1QO2' X21QOQO1:QO3QO00 176: 9800r X77ė:(21)::"TYPE "Q$"RUN"Q$" TO RESTART.": D$"-MAIN.MENU" X1000,2000,3000,4000,5000:BEEP:170 1:30:" PRINT THE FILE ";:9600BOX,M$(2),7,5,13:CL::CL::CLDNA$"None"Ģ11::14:"Load a file first!":BEEP:KEY,C,24:60~14::17:"Columns/Page: "NC:17:"Fill Spaces: "NS 17:"Printer Slot: "SLMENU,B$(0),1,1,H3,V3,C:X(0):X2760225,NC2:0,NS$$X1Ĺ9,13:::(0)01090:23:":OP$"/"ĺD$"PREFIX"OP$KR&1014,A1:1015,A2:SD,AS:SD1,AD:48888:n'ER(222):EL(218)256(219)'ER77ER12ė:"INSUFFICIENT MEMORY; PLEASE REBOOT":'EL30ĺ"A disk must be in the drive":9800::30'EL35ĺ"The file MENUS musBEEP:5070k%23::"Type number or use arrow keys, then press Return See Manual for Help";:%1:C8,58:" Escape: Galley Menu";:CL:9500:%23::"Use up/down arrow keys to change value; press Return when done";:CL:H&D$"PREFIX/ ";:96001BOX,M$(5),7,5,13:CL::CL::CLV9::13:"Current Slot: "SL" "w9::C8,26::" "SL" ";::9700KEY,32,24:X(0):X2760X10SLSL1:SL0SL7X11SLSL1:SL8SL1X1360X10X11ī5050 " ";:Y23::"Use up/down arrow keys to change value; press Return when done";:CLxKEY,32,24:X(0):X2760X10II1:I1I20X11II1:I21I0X13NSI:60X10X114040BEEP:4060 1:33:" CHANGE PRINTER 1130500 BEEP:3070@1:31:" SELECT SPACES ";:9600fBOX,M$(4),7,5,13:CL::CL::CL8::14:"You may use from 0 to 20 spaces between columns."12::14:"Original Value: "NS:INS14::14:"Current Value: ";::" "I" ";:: 8::14:"You may use 2 or 3 columns."U 12::14:"Original Value: "NC:INC 14::14:"Current Value: ";::" "I" ";:: 9700 KEY,32,24:X(0):X2760 X10II1:I1I3 X11II1:I4I2 X13NCI:60 & X10X>14:"Name Type Blocks Date":13:RPT,189,37oSHOW,FI$(1),CO,8,12,11,27:X(0):X272000. NA$(FI$(X),15)8 D$"BLOAD"PFX$;NA$",A$3000,TAWP,B300":60 1:31:" SELECT COLUMNS ";:9600 BOX,M$(3),7,5,13:CL::CL::CL,,25,15):VCO0įBEEP:10::17:"No useable AWP files in "PFX$:KEY,25,24:20001:C8,58:"Escape: Get File From";:CL:23::"Use arrow keys to highlight file, then press Return";:CS7::13:"Disk Volume "PFX$" has "BF" blocks available"",TDIR":22:D$"READ"PFX$:X$:X$kFI$(CO):CXCO:(FI$(CO),18,3)"AWP"(FI$(CO),26,3)" 41"COCO1(FI$(CX),12)"BLOCKS FREE:"2210BF$(FI$(CX),13,5):BF(BF$):COCO1:D$"CLOSE" I1CO:FI$(I)(FI$(I),2,15)(FI$(I),17,5)(FI$(I)180pBEEP:2130yz23::"Type new pathname: /";:CL:X$:X$""2015:P2$"/"X$"/":D$"PREFIX"P2$:PF$P2$:201522:D$"PREFIX,S"DS",D"DN:D$"PREFIX":PFX$:2020BOX,M$(1),7,5,13:10::17:"Reading directory...":CO1#22:D$"OPEN"PFX$0X112050>BEEP:2060BH12::29::" "DN" ";:::9700}RKEY,32,24:X(0):X27X8Ģ12::17:B$(3)" ";:2050\X10X11DN3DN:2120aX48X51DNX48:X13fX13İ9500:B$(3)"Slot "(DS)" Drive "(DN):12::17:B$(3)" ";:2:2030-12::21::" "DS" ";:::9700U KEY,32,24:X(0):X27İ9500:2030qX48X56DSX48:X13X10DSDS1:DS0DS7 X11DSDS1:DS8DS1*X13X21B$(3)"Slot "(DS)" Drive "(DN):12::17:B$(3)" ";:2120 4X1OX,M$(1),7,5,13:CL::CL::CL+96007::13:"Where is the file you wish to print?":13:"Select (1) when 'Current Directory' is correct."::C8,36:PFX$;:30(PF$))MENU,B$(2),5,1,12,11,25:X(0):X2760X2190,2180,2050,2170:BEEP:"Press Return";:KEY,7,24::60:)X2įBEEP:1090Q.9,12:D$"PR#"SL:z8:(0)01090:(12):D$"PR#3":60B23::BEEP:"Unrecognized file format; unable to print more";:CL:KEY,24,24:601:28:" LOAD A FILE ";:9600!Bt be on the disk":9800:[)'EL40ĺ"The file GALLEY.CODE must be on the disk":9800:8'EL2360įBEEP:23::"Unable to load file; press Return";:NA$"None":CL:KEY,18,24:2000:2360='EL195Ģ23::"Insert the MacroWorks disk; press Return ";:CL:X$:X$(27)195:t@'EL9800įBEEP:23::"Insert the MacroWorks disk; press Return";:CL:KEY,21,24:9800B'EL2000EL2250įBEEP:23::"Unable to find directory; press Return";:CL:KEY,20,24:9500:2030uL' "Print the Current File","Load aond column is often the same length as the first column, but it doesn't have to be exactly the same. These do match. Of course, these columns are rather short.Try viewing this file in 2 or 3 columns, varying the sp0This is a GALLEY test file. The right margin is set to 4.8 inches, so the lines average about 4 or 5 words each, based on whether you count "is", "a", etc. as words.The sec"O=====|====|====|====|====|====|====|====|====|====|====|====|====|====|====|===," L%B CC` CLB驠 `ȱ)Cȱ LbC C C0ɛLC C CCCʥ Șe` C0ɛLC`LL8CC ` CHCH`LC,1LALAeLACHCH`eCC B C B5 C B C B CMCMCMCЇC3  C CCL7ALCO5 LLhChCC0CCCCCC ACCCbCQ ACCC9 C' ACCC @CCCL2B=-`8` A AC C@ L @@:@;@m@@:, /:͏@͐@ m@8@:8e::;i;ΩC?B@C ,L@AAL@`5)t j' "Galley Menu","Load a File","Print the File","Select Columns","Select Spaces","Set Printer Slot" : M$(5) Word Processor File","Select the Number of Columns","Set Space between Columns","Set Printer Slot","Quit" : A$(5) V' "Preview on Screen","Print to Current Printer","Current Directory:","Slot 6 Drive 1","Another Slot and Drive","Another Pathname": B$(ace between the columns. The file looks best in 3 columns, at least up to here.#&$The right margin is 3.5 inches from #!this column on. It tends to look #!ugly if printed in three columns $"because the words wrap around and " mess up the first column on the #!screen. Two columns look a whole lot neater.$"Use AppleWorks to experiment with &$column settings. Different projects %#will require varying column widths #!and lengths. Find out what suits your needs.H06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBYL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬJJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<"MN":SG$(0,0,1)"B$D2D9,L$38E":SG$(0,1,0)"MN":SG$(0,1,1)"B$304E,L$357":SG$(0,2,0)"MN":SG$(0,2,1)"B$14044,L$378" SG$(1,0,0)"M1":SG$(1,0,1)"B$7A51,L$38E":SG$(1,1,0)"M0":SG$(1,1,1)"B$3033,L$357":SG$(1,2,0)"M1":SG$(1,2,1)"B$E80C,L$378"z SG$(2 ******************** * * * HELP.UPDATE * * * * COPYRIGHT 1986, * * BY RANDY BRANDT * * * ******************** 2048010000 DS6:DN1:SD48700:AS(SD):AD(SD1)v SG$(0,0,0)ProDOS.#!Here's the final column. There's #!enough room for a quick plug for %#another disk. Get Beagle Bros' BIG &$U disk if you have less than a deep %#love for Apple's FILER program, or if you have any interest in %Applesoft programming under DEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H E$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PO J,, ( 5̪ ` J, ̪ ` J, `)a)_ͩ`0:8 `)H"H ת תh}I תhm8`0 :AG8 `) ת `..`SI-SRRX) VV :$ZA@L8 `u-U -W b WW)JJ :T$K \0IDK : :5K 0.)K :쭼󬮼XK`L9L^ :K mY ܩ 8jK` 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aSL/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VW>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@RxʈS *U)T`RSSS8L`h?L! 8` Xklmno YjWVL t{ʆt {tl e rDޭVJ P eօ իL s򩣍aS3 vL9 # e $L?   kimljn` pg׾mȾXhؾmɾYtѮȾɾ aYX`8g@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSsƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s`\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` `޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_`:_`蹀:`V)8`MN; b;`;C b N8` G)̀#:蹀:`V)R ޾,N0MHhHh p' L,N HCNh`M`M N N `9V) ` V) ޾ p`  (8` 8`8`(W)`_V)Ij!؍Í`_ FjЭW)`_ Ͼ pH Lh8`jGMоM  G)p pY)ικ`lP *,N!ǾȾɾʾ pǾ~H h8`8`,C  8` ȾɾM$ mHݓǾ phϾ pH Lh8`Ͼо־ǾҾ_` 볩Ӿ pW) "LEC`C )莼 з l6 7= /& /8Hh /` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ ;τ<:: <`:8` e eվ'OV)Jj зf Ja l + ѱ:ji Ĥ Ƀ B ,  簰 ` l])Y 񩢍`Ⱦɾ0Ǿ p1׾ؾ  p p ٷ H rh(`׾ؾ` : ߭׾t8퍼mؾŰ펼t폼 L28` ˌھپLp k V)@W0!XY X6Y7` YX`X:Y) F з8` # `l׾ XYW0V)4W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSԩ p`S pLjÍ FN I 9 : ׾hؾ  p hgͺ칾`LٷV)jC mMjà Lp `VJJ°L9Lp з)< L з L緭W)8VJưϥ3 켼 `F`4W)ɐ/XYjVʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~T00:#22:D$"PREFIX,S"DS",D"DN:D$"PREFIX":PFX$:9000@#H&1014,A1:1015,A2:48888:SD,AS:SD1,AD:D$"PREFIX/":OP$"/"ĺD$"PREFIX"OP$M&&23::"Type number or use arrow keys, then press Return See Manual for Help";:K&23:(1)" ";:9050,#X10X11DN3DN:9120H#X48X51DNX48:X13#X13İ9950:D$(1)"Slot "(DS)" Drive "(DN):14::20:D$(1)" ";:9180#BEEP:9130#23::"Type new pathname: /";:CL:X$:X$""9000:PFX$"/"X$"/":D$"PREFIX"PF$:90SDS1:DS0DS70x#X11DSDS1:DS8DS1L}#X48X56DSX48:X13#X13D$(1)"Slot "(DS)" Drive "(DN):14::20:D$(1)" ";:9120#X10X119050#BEEP:9060#14::32::" "DN" ";::#KEY,32,24:X(0):X27Ģ14::20:D$ key";:CL:KEY,19,24:60V(#D$"FRE":Y$PF$:9950:12::C8,39:PFX$;:30(PF$))F#MENU,D$(0),3,1,15,13,25:X(0):X27ıP#X9190,9180,9050,9170:BEEP:9030Z#14::24::" "DS" ";:::9975d#KEY,32,24:X(0):X27İ9950:9030n#X10D":9000:X2760/bBOX,M$(1),10,7,11:9950ZlPL16384:VN0:D$"VERIFY SEG.MN":8000vVN1:D$"BLOAD SEG.M1,A$4000,B$36,L2,T0":(PL)24(PL1)123VN2@D$"BSAVE SEG."SG$(VN,0,0)",T0,A$4500,"SG$(VN,0,1):23::"AWP help screen updated; press ape: Update Menu"(BOX,M$(2),7,5,128D$"BLOAD HELP.AWP,A$4500":23::"Insert the "AW$" PROGRAM disk; press Return";:KEY,25,24XBOX,M$(1),10,7,11:9::16:"Where is the "AW$" PROGRAM disk?":16:"Select (1) when 'Current Directory' is correct.ome of the"N13:"commands, you can use the MAIN.MENU program to update"13:"the "AW$" help screen to reflect your new commands."23::"Press Return for the Update Menu";:CL:KEY,17,24:60p1:32:" UPDATE AWP HELP";:CL:C8,59:"Esca7,5,12M1:32:"PROGRAM EXPLANATION";:CL:C8,59:"Escape: Update Menu"10:13:"This program updates your "AW$" word processor"13:"help screen to show the MacroWorks commands which are" 13:"included with MACRO.SYSTEM. If you change sX65X97(X13QO1)X65:150?(X8X21)įBEEP:122\X8QOQO1:QO1QO2yX21QOQO1:QO3QO01209800X77ĺD$"-MAIN.MENU":(21)::"TYPE "Q$"RUN"Q$" TO RESTART.":X6000,400:BEEP:100BOX,A$(1),A$(0),IT,1,H,V3,C, nX(0):XIT11705 sQO2 x23::"Press M for Main.Menu, A for Applesoft, or Esc to continue";:CL:C8,Q(QO)::" "Q$(QO)" ";: zKEY,33,24:X(0):X27(X13QO2)İ9950:100 X77X109(X13QO0)X77:150#J 2ITEMS2:A$(IT):I0ITEMS:A$(I)::I02:M$(I)::I03:D$(I):X 7D$"PR#3" <1::1:"MacroWorks";:CL:32:" UPDATE MENU";:C8,67:"Help.Update":RPT,223,79 P22::RPT,223,79:9950 UBOX,M$(0),4,3,13:CL::CL::CL::CL dMENU,(116):A1(1014):A2(1015):I09:A:12144I,A:: 104,168,104,166,223,154,72,152,72,96 QO(2),Q$(2):Q(0)6:Q$(0)"M":Q(1)25:Q$(1)"A":Q(2)47:Q$(2)"Esc" D$"-MENUS" (D$"PREFIX":PFX$:OP$"/":I2(PF$)1:(PF$,I,1)"/"OP$PF$:50 -,0,0)"M1":SG$(2,0,1)"B$7B1D,L$38E":SG$(2,1,0)"M0":SG$(2,1,1)"B$3056,L$357":SG$(2,2,0)"M1":SG$(2,2,1)"B$E8F9,L$378" D$(4):Q$(34):CL868:CS958:D$(3),M$(2):LI$(27):KR49168:BL48855:HE11520:H9:V6:C25:C81403:AW$"AppleWorks"\ 48891,LLwLLL) `8` ԠŬLL:"Use up/down arrow keys to change value; press Return when done";:CL:u'ER(222):EL(218)256(219):12144'EL20ĺ"The file MENUS must be on the disk":8'EL6200įBEEP:23::"Unable to load HELP.AWP; insert the MacroWorks disk and press a key";:CL:KEY,35,24:60~B'EL155Ģ23::"Insert the MacroWorks disk and press Return ";:CL:X$:X77:X$(27)155:V'EL7030įBEEP:23::"Insert the "AW$" PROGRAM disk now and press a key";:CL:KEY,28,24:7000:7030`'EL70207030:7020nt>@ jump to end of line::NP@ insert page breakA:@ jump to far right marginK: @ insert space from strike-over mode=A:0Macro Comment0----- -------STARTB:@ jump to beginning of line<:CN@ center textGF:T@ find text, clear previous wordGG:M1@ go to marker 1 (set with sa-M);J:JU@ justify both sidesKK:P@ calculate page breaks; find a pageML:UJ@ left justify only (cancel centering)FM:SM1@ set markerMKThese macros are for use with Kyan Pascal, a ProDOS-based PASCAL from Kyan 'Software which compiles to 6502 code.0Macro Comment0----- l"O=====|====|====|====|====|====|====|===|=====|====|====|====|====|====|====|===0"he current file; call it "X"all it "X"o top left of spreadsheetH:L@ change spreadsheet entry layoutGeneral Purpose---------------DX:T3X@7 make extra copy of the current file; cr side of the cursor Spreadsheet -----------M:@ alphabetical spreadsheet column sortJ:3@ numerical spreadsheet column sortHH:CA1@ home t into actual table above)----------------Word Processor--------------CH:@ home to top left of screenIW:W@/ swap the words on eithec>@ insert 4 spacesK,:@ delete 4 spacesLComma & period are redefinable from within AppleWorks; 20 keystrokes each.9More macro ideas (may be movedpiled)-------------H:@ oa-del works the same as sa-delID:T@ delete the word under the cursorDU:F@ undo last MacroWorks deleteK.:@ save all desktop filesENDNOTES-----209 of 216 bytes used9Letters unused: B R E I N T (purely coincidental) V W X%System Macros (can't be recom>@ delete current lineDZ:T@ delete (zap) to end of fileA+:+B+E@ insert superscript codes?-:-B-E@ insert subscript codesI$:@ 1 (find with sa-G);P:@ print current fileGQ:@ switch to next file on desktop?S:4@ save and remove a file<Y:T:@ jump to beginning of line<:@ jump to end of lineK: @ insert space from strike-over modeLB:BEGIN@ xl~_0xum?}\{_;|__[;X[XX;_{>>}72x}o?x~{}w?xumW7x h?}__[[^[;?{{>8|?}7 xMl?x|cGp ||ccC8Dp}72x}nw;x=o?x~~?`}w=xx}o?}w?x}n?x|`o~w~G}C?|y}w;h]=on];wn]:cp08x~Co!PCoa?@V;wn];wv=;h]Mln];wn];wn];wn];wn];wn];wn];wn];w62;h]h _}t P/@>zh _}t P/@>zh ;h]}nn];wn]zW;wn];wv;;h]=on];wn];wn];wn];wn];wn];wn];wn];wv=;h];wn];wn];wn];wn];wn];wn];wn];wn];wn];h]hn];wn]@;wn];w ;h]umn}__{{_{;?9wV7;h]ln];];w0;h]Mln];wn]:~qa_?xW;wn];w62;h]hn}?9w ;h]umn];wn];wn];wn];wn];wn];wn];wn];wV7;h]l0o@=v X7`^{l0o@=v X7`^{l0;h]-kn][[{^[Z_]\[{[[_[Z[;_{^_=9w6-;h]Mln];x~{];w62;h]umn];wn];wn];wn];wn];wn];wn];wn];wV7;h]ln}_?\[8>|?;{^[[?9w0;h]-kn];xycF x|cCA8Dp];w6-;h]}on];wn];wn];wn];wn];wn];wn];wn];wv?;h]}nn];x~~@];wv;;h];wn];wn];wn];wn];wn];wn];wn];wn];wn];h]Mln8w62;h]}on];x?|Go~w?~G|C?|}?];wv?;END212 of 216 bytes usedo next file on desktop)R:Readln ();@ T:TYPE@)W:Writeln ('')@ <Y:T@ delete current lineDZ:T@ delete (zap) to end of fileith sa-M)H:HGr;@ L:EOLN@FM:SM1@ set marker 1 (find with sa-G)NN:Kyan Software1850 Union Street #183San Francisco, CA 94123@P:PROCEDURE @GQ:@ switch t precedes macro A because A calls it=A:#A@ begin assembler code7C:(**)@ Pascal commentE:END@F:FOR@GG:M1@ go to marker 1 (set wxMl:cp08x~Co`Coa?V72xukW/xl0o@=v X7`^{l0o@=v X7`^{l0x=oPw=xMl72x8w<|?9wv;;h]=on];];wv=;h];wn];wn];wn];wn];wn];wn];wn];wn];wn];h]hn];wn];wn];wn];wn];wn];wn];wn];w ;h]umn];x~xso~g~G?|||];wV7;h]=~}{wo_?~}{wo_?~}{wo_?~}{wo_?~=;h]Mln}?9w62;h]hn];x?xso~g~|`];w ;xl:wp1xx~GwgsGwa?8<W0xumW7x X6`Zk,0m@5V X6`Zk,0m@5V X6 xuk@W/xl?|0xx hzW7 xMl?}_[{_>X[[{_[?X[;?}72x}ow?xum:xp|bxa_x!<8~WW7x h?|7 xM 02x}?x}n?][_?X;{F}~][{?}w?x}n?x?}w;xxMl72xuk?x`qG~G~G|}y?x}W/x}~}{wo_?~}{wo_?~}{wo_?~}{wo_?~};x=o?}?}w=xMl?x|wc~w?~G|q}728wH;wn];w:wp08x~CoCaCoa?~Vn];wn] n8wtM;wn];wn];wn];wn];wn];wn];wn];wn]S7n8wl0o@=v X7`^{l0o@=v X7`^{l0n8wLL;wn];w~_n];wn]32n8wH;wn];wn];wn];wn];wn];wn];wn];wn] n8wn];wn];wn];wn];wn];wn];wn];wn];wn];wn8wL;wn];wPn];wn]0n8w,K;7}_[{|[[[{[[;?m]3-n8wLL;wn];wn];wn];wn];wn];wn];wn];wn]32n8wtM;wn];w:|pa_?xWn];wn]S7n8wL;7m]0n8w,K;wn];wn];wn];wn];wn];wn];wn];wn]3-n8wL9rdI'N9rdI'N9rdI'N9rdI'N92n8w|O;7]|^Y[_}{__[[[[__Z_;{_{~[=m]s?n8w|N;w.x~{sGp | bGGpun]s;n8w,K;wn];wn];wn];wn];wn];wn];wn];wn]3-n8wLL;7}__[[[^[;?;{~[[{?m]32n8w|O;w.x?~un]s?nx hzW7 xMl72x}?xumW7x h?}7 x8wn];wn];wn];wn];wn];wn];wn];wn];wn];wn8wL;wn];wn];wn];wn];wn];wn];wn];wn]0n8w,K;w.x~}awo~w?~|?|}un]3-n8wh _}t P/@>zh _}t P/@>zh n8wtM;7=}~_{___?_{_?m]S7n8wL;w.x~A`Oo~~~||@un]0n S eӮӻAPLWORKS.SYS,//x"##$ //w$//w  $$50`a b0)`,)HH(hLé6H(Lì`L'L' ,1/ɭH hH,hL2ȱ3ȱ7ȱ8ȱ<ȱ=iȱ8ȱ  LiB iC<=ޅ>? ,i8 ȱ Lȭȭ ȱ L or cmds X0  4 T  T T F  ȀL ʀݩ ̀ͭ A`L 1 ȱ  `ȱȱ 8<=>?'BCHH(hLía0)`    ONP NP    CN TM1 IN 3 JU  PUJ SM 1  MacroWorks Copyright (c) 1986, Randy Brandt Beagle Bros, Inc. IN L W!B<"= >%?BC ,C< =B>"?BC8 L䅒LJ 擱L 擭ɛ L = L % 擱L! L6x}ozWw?x}nw;xxMl72x}o?~~~}w?x=o:~sa_?xWw=xMl?}?}72xukW/x}n:Ap18x~CoaXCoa?`Ww;x=ow=xM9rdI'N9rdI'N9rdI'N9rdI'N92xukW/xl?}_{_?F}?^[;?}0xum?x{#D cxB|c@~}W7xMl72xuk?}_|{|;?}W/xl?}0xx h7 xMl?x|`o~w?~?|C?|}}72xl0o@=v X7`^{l0o@=v X7`^{l0xum?]|>\;\X;x_<<89|_;>X;}W7x h?x~@}7 8wLL;wn];wzWn];wn]32n8w|O;wn];wn];wn];wn];wn];wn];wn];wn]s?n8w|?n8w,K;wn];wn];wn];wn];wn];wn];wn];wn]3-n8wLL;w.un]32n8w|N;wn];wzWn];wn]s;n8w<|x?m] n8wtM;w.x{@<@cxB`c@xun]S7n8w:@ jump to beginning of line<:<"BASIC.SYSTque words, the total number of words, the <:number of characters used in making up each counted word, 0and the average number of characters per word.?=The only one-letter words allowed are "A" and "I", unless of >@ jump to end of lineI:ONP@ find next forced page break (NP)::NP@ insert page breakA:@ jump to far right marginK: "O=====|====|====|====|====|====|====|===|=====|====|====|====|====|====|====|===H"?he current file; call it "X"---------------I$:@ print and save all desktop files?^:@ save all desktop filesDX:T3X@7 make extra copy of tlumn sortJ:3@ numerical spreadsheet column sortHH:CA1@ home to top left of spreadsheetH:L@ change spreadsheet entry layoutGeneral Purposeher side of the cursorA+:+B+E@ insert superscript codes?-:-B-E@ insert subscript codes Spreadsheet -----------M:@ alphabetical spreadsheet coed into actual table above)----------------Word Processor--------------CH:@ home to top left of screenIW:W@/ swap the words on eitspc>@ insert 4 spacesK,:@ delete 4 spacesLComma & period are redefinable from within AppleWorks; 20 keystrokes each.9More macro ideas (may be movompiled)-------------H:@ oa-del works the same as sa-delID:T@ delete the word under the cursorDU:F@ undo last MacroWorks deleteK.:T@ delete current lineDZ:T@ delete (zap) to end of fileENDNOTES-----209 of 216 bytes used5Letters unused: B E R T (purely coincidental) V W X%System Macros (can't be recO>IN0@ indent 0;P:@ print current fileGQ:@ switch to next file on desktop?S:4@ save and remove a file<Y:< pageML:UJ@ left justify only (cancel centering)FM:SM1@ set marker 1 (find with sa-G)JHN:MacroWorksCopyright (c) 1986, Randy BrandtBeagle Bros, Inc.@1O:@ go to marker 1 (set with sa-M)<I:IN3@ indent 3 characters;J:JU@ justify both sidesKK:P@ calculate page breaks; find a@ insert space from strike-over mode=A:@ add files to desktop4C:CN@ center textGF:T@ find text, clear previous wordGG:0Macro Comment0----- -------STARTB:@ jump to beginning of line<::L@ change spreadsheet entry layoutGeneral Purpose---------------DX:T3X@7 make extra copy of the current file; er side of the cursor Spreadsheet -----------M:@ alphabetical spreadsheet column sortJ:3@ numerical spreadsheet column sortHH:CA1@ home d into actual table above)----------------Word Processor--------------CH:@ home to top left of screenIW:W@/ swap the words on eithpc>@ insert 4 spacesK,:@ delete 4 spacesLComma & period are redefinable from within AppleWorks; 20 keystrokes each.9More macro ideas (may be movempiled)-------------H:@ oa-del works the same as sa-delID:T@ delete the word under the cursorDU:F@ undo last MacroWorks deleteK.:@ save all desktop filesENDNOTES-----209 of 216 bytes used5Letters unused: B E R T (purely coincidental) V W X%System Macros (can't be reco>@ delete current lineDZ:T@ delete (zap) to end of fileA+:+B+E@ insert superscript codes?-:-B-E@ insert subscript codesI$:@sc>@ indent 0;P:@ print current fileGQ:@ switch to next file on desktop?S:4@ save and remove a file<Y:TUJ@ left justify only (cancel centering)FM:SM1@ set marker 1 (find with sa-G)GN:David Vettermann1905 Carol SueGretna, LA 70056@1O:IN0@ go to marker 1 (set with sa-M)<I:IN3@ indent 3 characters;J:JU@ justify both sidesKK:P@ calculate page breaks; find a@ insert space from strike-over mode=A:@ add files to desktop4C:CN@ center textGF:T@ find text, clear previous wordGG:t>@ jump to end of lineI:ONP@ find next forced page break (NP)::NP@ insert page breakA:@ jump to far right marginK: h]Mln];wn]zW;wn];w62;h]}on}_;x_][[;x_[_[[;{?9wv?;h]}nn];wn];wn];wn];wn];wn];wn];wn];wv;;h]-kn];wn]:8p=xx\Gwa_GwA;XxV;wn];w6-;h]Mln];wn];wn];wn];wn];wn];wn];wn];w62;h]}?;l"O=====|====|====|====|====|====|====|===|=====|====|====|====|====|====|====|===0"x}ozWw?x}nw;xxMl72x}o?~~~}w?x=o:~sa_?xWw=xMl?}?}72xukW/x}n:Ap18x~CoaXCoa?`Ww;x=ow=xM9rdI'N9rdI'N9rdI'N9rdI'N92xukW/xl?}_{_?F}?^[;?}0xum?x{#D cxB|c@~}W7xMl72xuk?}_|{|;?}W/xl?}0xx h7 xMl?x|`o~w?~?|C?|}}72xl0o@=v X7`^{l0o@=v X7`^{l0xum?]|>\;\X;x_<<89|_;>X;}W7x h?x~@}7 8wLL;wn];wzWn];wn]32n8w|O;wn];wn];wn];wn];wn];wn];wn];wn]s?n8w|?n8w,K;wn];wn];wn];wn];wn];wn];wn];wn]3-n8wLL;w.un]32n8w|N;wn];wzWn];wn]s;n8w<|x?m] n8wtM;w.x{@<@cxB`c@xun]S7n8wzh _}t P/@>zh n8wtM;7=}~_{___?_{_?m]S7n8wL;w.x~A`Oo~~~||@un]0nx hzW7 xMl72x}?xumW7x h?}7 xx}ozWw?x}n?}|{_;X;x{\?X;x|?}w;x=ow=xMl:0p?8x~Coa_Coa?h?xW72x}ow?x}~}{wo_?~}{wo_?~}{wo_?~}{wo_?~};x=ow=xMl?}?}72xuk?x{@<bxC`c#D8x}W/x}nw;x=o?}_||?}w=xMl?}72xxl0xum?x~}awo~g?~|?~}}W7xM9rdI'N9rdI'N9rdI'N9rdI'N92xuk?}~?~_{_x_?|~_?}W/xl?xpso~G~?|~?@}0h]ln];wn]:px~xwwxa?xx@W;wn];w0;h]-kn];wn];wn];wn];wn];wn];wn];wn];w6-;h]M9rdI'N9rdI'N9rdI'N9rdI'N92;h]umn];wn];wn];wn];wn];wn];wn];wn];wV7;h]ln];];w0;h];wn];wn];wn];wn];wn];wn];wn];wn];wn];MKThese macros are for use with Kyan Pascal, a ProDOS-based PASCAL from Kyan 'Software which compiles to 6502 code.0Macro Comment0----- >+E@ insert superscript codes?-:-B-E@ insert subscript codespreadsheet column sortH:L@ change spreadsheet entry layout?^:@ save all desktop filesI$:@ print and save all desktop filesA+:+B:@ jump to far right marginSpreadsheet ideasM:@ alphabetical spreadsheet column sortJ:3@ numerical sM>W@/ swap the words on either side of the cursorEX:T3BU@& make a back up of the current fileC:YY@ent lineDZ:T@ delete (zap) to end of fileEND211/216 bytes used5Letters unused: B E R T (purely coincidental) V W X3More macro ideas (use CA-Y and CA-U to move them)----------------IW:@ print current file (used by CA-$)GQ:@ switch to next file on desktopLS:4@ save and remove a file (CA-$, CA-^)<Y:T@ delete curr(cancel centering)FM:SM1@ set marker 1 (find with CA-G)JHN:MacroWorksCopyright (c) 1986, Randy BrandtBeagle Bros, Inc.@1O:IN0@ indent 0JP:@ T:TYPE@)W:Writeln ('')@ <Y:T@ delete current lineDZ:T@ delete (zap) to end of fileith sa-M)H:HGr;@ L:EOLN@FM:SM1@ set marker 1 (find with sa-G)NN:Kyan Software1850 Union Street #183San Francisco, CA 94123@P:PROCEDURE @GQ:@ switch t precedes macro A because A calls it=A:#A@ begin assembler code7C:(**)@ Pascal commentE:END@F:FOR@GG:M1@ go to marker 1 (set w -------STARTB:@ jump to beginning of line<:@ jump to end of lineK: @ insert space from strike-over modeLB:BEGIN@