L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`ER THE MESSAGE TO BE DISPLAYEDINSTEAD OF 'DISK VOLUME' IN THE CATALOG.THE CHANGE OF DOS WILL BE INVOKED IF YOUINITIATE A NEW DISK."""USE THE VOLUME (,V) OPTION (WHEN INITIATING) TO GET YOUR OWN VOLUMES.""S(49168)#14:"NEW MESSAGE =>"00! I128$! MOD256MOD(O(I))R! (40220I2),MOD256:(40221I2),O(I)256Y! I_! k!:::!:" << VOLUME HEADER >> BY THE APPLE USER GROUP OF SWEDEN 1981 "!:34,3!15:15:"-----------""5:"PLEASE ENT21:"ENTER NEW DECIMAL ENTRY POINT =>";S$:NBR(S$)F H S$(13)3200[ R MOD256MOD(NBR)j \ S293470 f (402202S),MOD256:(402212S),NBR256 p EP(S)NBR:C$(S)"*" z 3200 40286,MOD256:40287,NBR256 EP(S)NBR:C$(S)"*"! 32 CHANGE ENTRY POINT...  K 4:"COMMAND TO BE CHANGED =>"A$(S)v 6:"CURRENT ENTRY POINT =>"EP(S) 8:"ORIGINAL ENTRY POINT =>"O(S)* S29ĺ:"REBOOT ENTRY POINT =50688"4 22:" -----"3 > I">";:27:A$(I);:35:EP(I)# I) T " <29> RESET ENTRY POINT:"EP(29) 22:" TO RESET TO QUIT --" 21:"ENTER COMMAND TO BE CHANGED (1..29) =>";S$:S(S$) S$"Q"ĉ::300 S$"R"3500 S1S293280EAD ENTRYPOINTS (START=40222))N I128QX EP(I)(40220I2)256(40221I2)`b O(I)EP(I)gl Iv EP(29)(40286)256(40287):O(29)EP(29) : I114:C$(I);:2:"<"I">";:7:A$(I);:15:EP(I):I 4 I1528:21:C$(I);:22:"<"3212:A(17)43218:A(18)43225:A(19)43228:A(20)43233:A(21)43236:A(22)43239:A(23)43247:A(24)43249:A(25)43252:A(26)43257:A(27)43262:A(28)43266 I128 J0 A$(I)A$(I)((A(I)J)) (A(I)J)1283130& JJ10 3090: ID RTING COMMAND ENTRY POINTS..."E MOD(NBR)(NBR256(NBR256))256 A(1)43140:A(2)43144:A(3)43148:A(4)43152:A(5)43155:A(6)43160:A(7)43166:A(8)43170:A(9)43176:A(10)43181:A(11)43185:A(12)43189 A(13)43194:A(14)43202:A(15)43206:A(16)4 ` 2130j RESET!t I114:~ C$(I)"":A$(I)O$(I)L J1(A$(I))l (A(I)1)J,((A$(I),J,1))u J,I 2130  ::" << COMMAND ENTRY POINT CHANGER >> BY THE APPLE USER GROUP OF SWEDEN 1981 ":34,3  12:" INITIA 14:20((T$)2):T$n 22:"PRESS TO ACCEPT TO CHANGE":S$:S$(27)2130 S$(13)2350$ 2320. I1(T$)8 (A(S)1)I,((T$,I,1))B I(T$)Ĺ(A(S)1)I,((T$,I,1))128L IV A$(S)T$:C$(S)"*""MAXIMUM LENGHT :"L(S)?14:"MEMMORY LOCATION :"A(S)s16:"________________________________________"20:12:I1L(S):"-";:I19:1:"NEW TEXT =>";T$T$""2130(T$)L(S)226012:" NEW TEXT:"(f22:" TO RESET DOS TO QUIT"hp20:"ENTER NUMBER TO EDIT =>";S$:S(S$):S$"Q"ĉ::300yzS$"R"2410S1S142160::" << EDIT ERROR MESSAGE... >>"8:"ORIGINAL TEXT:"O$(S)10:"CURRENT TEXT :"A$(S)12:Lhihihhh  lqΙzu hhnΪHHy΅ȱ΅FؠoΪȱΠΊ`넹슨H Jh`PQQPlPPQ` e` ee`8}%} (i `(i!l 4)eȘΰ`ΐޢMlȥ둃Ȋ`쪈눱`%00 00 ` `ꥥ`ҥ %IPQIiQP`QߩPQ`5l쥢0"ɁɉɈ )*```5l0L[5lPQ`5l \`8$  W`hihihihhelhhlﺽiɁݥۘՊi ꥢ뺽 纽 +뺊i $0 0ihhHH` 0l J i`l r`쥝@Ɂ:ɑ=ɐ))Q&&Q*$0P`;:DLCC128:VT(D8):VT5:HTDVT8:(HT36)::HX$::HL(VT)1HT,DC:K0oMKK1:(16384)128K10077NLCLC1:DCLC:8:LC$HX$:70O21:1:958::"PREVIEW CHANGES?(Y/N)";:C$:C$"Y"ĺ:"PREVIEW IN PROGRESS":23:66PC$"N"ĺ(7):7127)CC(C1):5:958:23:21:"HEX CODE INPUT! *=END APPEND * TO ABORT"I22:958::"AT ";LC$;", INSERT? :";:HX$:(HX$,1)"*"66J(HX$)2İ10:DC1DC25676K(7);:73ML12288LC,DC:"AT REL.BYTE ";LC$;" HEX CODE ";HX$;" INSERTED":A$:A$"*"41-CA$"1"A$"2"ĺ(7);:66<DA$"2"79E21:1:958:"HEX CODE INPUT! *=END APPEND * TO ABORT":"BEGIN INSERT AT WHICH RELATIVE BYTE?";HX$:(HX$,1)"*"66F(HX$)2İ10:DC1DC256LCDC:LC$HX$:72G(7);:69LH(LC116:DC(LJK16):8:HX$;" ";:J:J116:SC(LJK16):15:C$;:J::K:0:0:1002:41A INSERTION ROUTINE ASTERISK TERMINATES B21:1:958:"INSERT HEX CODE (1) ":"OR WRITE SECTOR TO DISK (2)":"OR '*' TO RTN TO MENU";FTWARE ** ** RUDIE W. SLAUGHTER, III ** 5341 ESSEX COURT #51 ** ALEXANDRIA, VA 22311 *** 578-1621 ****************:AN$;:I(0):1:. QUIT CHECK SBRTN h1:39):1::"DO YOU REALLY WISH TO QUIT?(Y/N):";:|C1$:C1$"Y"ĀC1$"N"Ė1:38);:I13:C7$;::C7$;:178 ************************ CONTRIBUTED BY ** RUSTY WIDGET SO$DF$AN$""ĺC7$;:1093 PAD ANSWERS Z(AN$)ML%ML%0AN$AN$SP$:170{ CHECK AGAINST MIN/MAX MN$MX$(AN$MN$AN$MX$)175(7);:(36)1(AN$):(AN$)):109 PRINT FINAL AN$, RETURN XP%(QU$)11)CH$I%I%1:1593 CHECK LENGTH OF AN$ U(AN$)ML%ML%0ĺC7$;:116ML%0MX$""(AN$)(MX$)ĺC7$;:116 PRINT CH$, GO GET NEXT XC%:CH$;:XC%XC%1:AN$AN$CH$:116 HERE ON RETURN CHR$(13) AN$""AN62R2$""152,R9$R2$:129:OK%162<R3$""154VR9$R3$:129:OK%162fR4$""157R9$R4$:129:OK%162 CHECK VA$ RANGES VA$""R9$""162I%1:VA$""R9$""ĺC7$;:116I%(VA$)ĺC7$;:116(VA$,I%, PAD W/ BLANK OR SP$ #CH$SP$C START VALIDITY CHECKS WCH%(CH$):I%1x CHECK EXCLUDED VALUES I%(EX$)148(EX$,I%,1)CH$ĺC7$;:116I%I%1:144 CHECK R#$ RANGES R1$""150R9$R1$:129:OK%19$,1)):R6%((R9$,1)):CH%R5%CH%R6%OK%15FCH%21138g FORWARD SPACE ROUTINE XT%XC%(QU$)XP%:XT%(AN$)135CH$(AN$,XT%,1):142XT%(DF$)137CH$(DF$,XT%,1):142CH$SP$:142CH%32142 BACKSPACE ROUTINE 5zXC%XC%1:XC%:DF$""124m{XT%XC%(QU$)XP%:(DF$)XT%ĺ(DF$,XT%,1);:126|ML%0ĺ" ";:126}".";~XC%:(AN$)1AN$"":116AN$(AN$,(AN$)1):116 SBRTN R#$ RANGE CHECK /OK%0:R5%((REND AN$ ** =21 FORWARD SPACE ** =27 ESCAPE, END PROG.** =32 BLANK SPACE, SP$ *****************************tCH$:CH%(CH$):CH%13167uCH%27İ177:112vCH%8131w DONT BKSPCE TOO FAR x(AN$)0ĺC7$;:116y (45999I)32Ĺ45999I,160"%Ie%:"O.K. NOW LET'S LOOK AT THE RESULT...":PAUSE1500:PAUSEy%(4);"CATALOG"%:%:963:300IC> TO CHANGE.":S$:S$(13)4175+$@40001$O$T:" FLASH NORMAL"$^::" => ";QQ$$hQQ$"N"XXX128$r$|I1111$PP1$45999I,((A$,P,1))XXX%;A$#A$A$" "!#N#10:" NEW MESSAGE TO BE DISPLAYED:"m#15:13:"***************"#16:13:"* *"#17:13:"***************"#":16:15:(A$,11)#,!$620:" HIT TO CONFIRM... :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and  eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                      ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ  B(20((A$)2)):B0B1) B:A$:*  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASICd(4);"RUNHELLO1" CENTER STRING A$  JOHANNESz#?Xΰ    Ϡ Үʰ à* ɠŠ ҠΠЮϠͮҠΠЮĠΠЮΠ̠Ҡ Ҡ ҠϠϱήϠ͠ɠŠӠ ҠҠӠˠР  00QP`QPSRQP`QPSR`QPϥQeSQPeRP`S8QQRPP`QIiQPIiP`$P0`P0QЧ`QP`Q8SPR0 ```hhʚHH芠L+hihiHHHHHl뺽ɁhhiL+iҺɁ0lPQQPPQP` r륝ɐ `5l "hhh h*HH *fIiIi 0*$E`hihi r륝HHHHHHlhihihhhhhhl+%0#0  ),0i`O3 \ j88f H JhŸ ,  k,g,,*lN <,8뤹"湱"湱:,`hihihEhhhhhl0W ] 1 hh 1l{ ? \۽` \(F  AL͠ɠŠޥyzL 1]1$$$éʮ j8΅ȱ΅`Υȑ` o8}νȑΦ8ʽ)"l )ߠL1  +LE   HAH0  HHH 5   p .HHH D hhh Llhhhhhhhhh`fHHHHHHHHHFةHHH3vvl,Z,^,[,_$0L= L: $ ک   ] )   N  L} ک - . |c |   )   | ک - . |d |   )   | ک   +  i  L J DHHH>  PQL4L DHHHU   DHHHZ PHQH hShR "PQLL  +    LLE X+ - X[ |   )   |  LLe ک  7HHH -  |; |   )   | ک     L! - X& - > |! - X - N |  7HHH -  |W |  {   pL   +  i # + X | -   |    i . | . | ک( |  HH   HH H  h    )     +    PQ ⩆      PQ ⩆    L L      p     PQ    :   ] )   N     ] )   N    L LI ֠   HH   HH H     p .HHH D hh -  +      HfH   HHH  PQ   L LI   PQ ⩆  L L ] )    PHQH    -   -   -    -Ǡ  ̠ -Ѡ  ֠ -۠   -   -   -   `@8@p3 E JH hh  +m  +r  +w  +|  +멁   -   -   -w   - 8$LPAGE OF .----------------------------------------. / FOR NEXT PAGE!CHOOSE 0- : 9LOADING BRUN 777@777)@@7@ @hAA@YA@A@p0       7:A(9)43486:A(10)43497:A(11)43509:A(12)43529:A(13)43547:A(14)43564TI114] X1gXX1 A$(I)A$(I)((A(I)X))*(A(I)X)128211042070>O$(I)A$(I):L(I)(A$(I))HIR\I114:C$(I);:2:"<"I">";:7:A$(I):I :e:" << ERROR MESSAGE TEXT CHANGER >> BY THE APPLE USER GROUP OF SWEDEN 1981 "q:34,315:" INITIATING ERROR MESSAGES... "HA(1)43380:A(2)43402:A(3)43413:A(4)43428:A(5)43439:A(6)43453:A(7)43468:A(8)43473228:A(20)43233:A(21)43236:A(22)43239:A(23)43247:A(24)43249:A(25)43252:A(26)43257:A(27)43262:A(28)43266|I128X1XX1A$(I)A$(I)((A(I)X))(A(I)X)12815401500O$(I)A$(I)L(I)(A$(I))I" + 128 J,I1060!A(1)43140:A(2)43144:A(3)43148:A(4)43152:A(5)43155:A(6)43160:A(7)43166:A(8)43170:A(9)43176:A(10)43181:A(11)43185:A(12)43189pA(13)43194:A(14)43202:A(15)43206:A(16)43212:A(17)43218:A(18)43225:A(19)41)I,(((T$,I,1)))1282I+<A$(S)T$9FC$(S)"*"CP1060OZI128\dC$(I)""lnA$(I)O$(I)~xJ1(O$(I))(A(I)1)J,((A$(I),J,1)) IF J = LEN (O$(I)) THEN POKE (A(I) - 1) + J, ASC ( MID$ ( A$(I),J,1))1220 212:" NEW COMMAND TEXT:"L:(20((T$)2)):T$20:"PRESS TO ACCEPT TO CHANGE":S$:S$(27)1060(S$)131300 1270I1(T$)(A(S)1)I,((T$,I,1))(I(T$)Ĺ(A(S)GHT :"L(S)" (CHARACTERS)"C12:"COMMAND MEMMORY LOCATION:"A(S)w14:"________________________________________"20:30:I1L(S):"-";:I119:"ENTER NEW COMMAND TEXT... =>";T$:T$""1060(T$)L(S)Ģ22:" *** TOO LONG ***":22:"COMMAND TO BE CHANGED (1..28) =>";S$:S(S$):S$"Q"ĉ::300U`S$"R"1370hjS1S281110t:" << EDIT COMMAND... >>"~6:"ORIGINAL COMMAND TEXT :"O$(S)8:"CURRENT COMMAND TEXT :"A$(S)10:"MAXIMUM COMMAND LEN << COMMAND TEXT CHANGER >> BY THE APPLE USER GROUP OF SWEDEN 1981 "::34,3\$.I115:C$(I);:2:"<"I"> ";:8:A$(I):I84BI1628:22:C$(I);:23:"<"I"> ";:28:A$(I):IL23:" TO RESET DOS TO QUIT"DV00 510 3009 S(49168):(4);"INIT HELLO,D1"Q :"GOOD BYE...":g (4);"RUN HELLO"m s  :15:" INITIATING COMMANDS..." X43139 1460: READ COMMAND TEXT AND THEIR MEMORY 'START' ADRESSES V::" "RUN HELLO PROGRAM" EI1% ^100R hX11000,2000,3000,4000,400,500,900,950q :(4);"CATALOG":S$:300 ::"INITIALIZE NEW DISK (SLOT6,DRIVE1)":::"TYPE Y TO CONFIRM": S(49168) (49152)217540 (49152)217(49152)1283)"CHANGE COMMAND TEXTS":F$(1,1)"CHANGE ERROR MESSAGES":F$(1,2)"CHANGE COMMAND ENTRYPOINTS":F$(1,3)"CHANGE 'DISK VOLUME' CATALOG HEADER":F$(1,4)"CATALOG":F$(1,5)"INIT NEW DISK (SAVE DOS CHANGES)" ;F$(1,6)"QUIT (WITHOUT SAVING DOS CHANGES)":F$(1,7)49152)160X4XX4:250; (49152)160X4XX4:250S (49152)141ĉ::Z Qc 170p X7X0~ X1X7 B(49168):140 , 1M$(1)"COMMANDS ERRORM. ENTRYP. VOL.HEADERCATALOG INIT QUIT ->HELLO " 6F$(1,0L$" "5 xX0K :1:L$:4:L$:` F$(I,X)""XX1i X1X 2:M$(I):2:(X101)::(M$(I),X101,10):1:L$:1:F$(I,X): Q150000 (49152)149XX1:250 (49152)136XX1:250 (- ::10:" DOS MODIFIER II"?15:20:"BY"l17:5:"THE APPLE USER GROUP OF SWEDEN"(18:14:"P.O. BOX 2039"219:9:"S-200 12 MALMO, SWEDEN"Z300d MENUiA$(30),A(30),C$(30),L(30),O$(30),EP(30),V(30),O(30)- n         Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)>ȥ')̻>JJJ >`   LDcpq` [` ~  Lx$50x*$50xLJJJJ`HHjf5 h $50x`2>&JJJȱ>'JJJ3ȱ>*JJJfȱ>J&*J&'J&&ȱ>J&*J&'J̻&*)')3*)f>)JJJ`  2JJJ'J&J>H(jf5(  H Z(G FG HZXj 0x D$xxH` ( Zh ZL.xxH hh@(LH9LHHH/Hh/ H-З( ܸ(& ¸$8 H` *Hh  (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<>HIHHHHhHH݌hHhHh݌H6 !"*(+3511$ %""+ "#3 3330##+#,,$$ 02<=-.,80^݌Hh ü ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?*(((24?949:4<  %%&&'''))*++++,,----...////23334556667777999:::;;;;<<====>>>????,'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&")'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖLAB IcEo ,``x (`(8`I`B` ` `>J>J>VU)?`8'x0|&HhHh VY TX9LOPQ>?B?BB`FOR͢ `ԠŠԺӠLoɖ ɵ a LT ! LTjABIVcEHLjY     ME$"" I130- ME$ME$((46017I))4 I:   6A$"/"370& @A$"0"A$"9"2902 JA(A$)C TACO1220b ^:12:"LOADING ";FI$(IA) cTY%(IA)4ĺ:(4);"BRUN ";FI$(IA) h(4)"RUN "FI$(IA) rII10:I10PI1 |220  READ DISK 'NAME' FROM VTOC-BUFFER (46018) ON A 48K 01)4 :MESSAGE$;28)"PAGE "(I1)101" OF "P"."e "----------------------------------------";r JII9 JCO280 :((J1),1)". ";FI$(J) J P1Ģ24:23)"/ FOR NEXT PAGE!"; "24:1:"CHOOSE 0-";((J2),1)" : "; ,A$11DB25535 x(I)255190. (I)0210R TY%(CO)(I2)128((I2)128)o TY%(CO)1TY%(CO)4190 A$"":J332:A$A$((IJ)) J FI$(CO)A$:COCO1 I:(DB1)0(DB2)0210 TR,(DB1):SE,(DB2):90 I1:P(CO1; 1000(FI$(105),TY%(105)`(TRACK47084:SECTR47085:CMD47092:RWTS768:DB38400247083,0:47088,0:47089,150<768,169:769,183:770,160:771,232:772,32F773,217:774,3:775,96PTR,17:SE,15:CMD,1:CO1ZRWTS nIDB    $)ML%XP%1$o PRINT PROMPT HpYP%:XP%:QU$;":";:ML%0114^qI1ML%:".";:IrAN$"":XC%XP%(QU$)1:YP%:XC%::DF$;::XC%: zs ************************ GET A CHAR. FOR AN$ ** =8 BACKSPACE ** =13 RETURN, T TWO CHARACTERS"::bj(R3$)1(R3$)3Ğ:1:"STRING RANGE CHECK R3 NOT TWO CHARACTERS"::k(R4$)1(R4$)3Ğ:1:"STRING RANGE CHECK R4 NOT TWO CHARACTERS"::l SET VALID YP%, XP% mYP%1YP%24YP%(37) nXP%1XP%39(QU:R1$"":R2$"":R3$"":R4$"":Ae START W/ INITIALIZATION ^fC7$(7):SP$""SP$" "{g CHECK R#$ STRINGS h(R1$)1(R1$)3Ğ:1:"STRING RANGE CHECK R1 NOT TWO CHARACTERS"::i(R2$)1(R2$)3Ğ:1:"STRING RANGE CHECK R2 NOGE CODES **EXAMPLE R1$="AZ" MAKES ALL**LETTERS LEGAL INPUTS ** ML%=MAX LENGTH AN$WER ** MN$,MX$=MIN,MAX INPUTS ** SP$=PADDING CHARACTER *c CLEAR VARIABLES SBRTN dR9$"":MN$"":MX$"":VA$"":DF$"":QU$"":YP%0:XP%0:ML%0:AN$"" ** QU$=PROMPTING QUESTION ** DF$=DEFAULT ANSWER ** YP%=CRT LINE# OF PROMPT ** XP%=CRT COL # OF PROMPT ** VA$=LEGAL INPUT CHARS. ** EX$=ILLEGAL INPUTS *b ************************* R1$;R2$;R3$;R4$: TWO CHR**LEGAL INPUT RAN***************USAGE INSTRUCTIONS: ** **1 GOSUB 100 TO CLEAR VARS.** **2 DEFINE VARIABLES ** **3 GOSUB 101 TO GET AN$ *a *************************DEFINITIONS _ ************************* ** GIIR ** ** GENERAL INTERACTIVE ** INPUT ROUTINE ** **THANKS PAUL SAND WAP.V21#8*` **********"F$:10:" NOW, TO INSERT THE REMINDER IN YOUR PROGRAM, YOU NEED TO LOAD YOUR PROGRAM AND TYPE EXEC ";F$;".":D$;"MON C,I,O": PLACE REM ON SCREEN SBRTN33,33:32,4:13:1:(RM$,31):33,28:32,7:14:1:(RM$,(RM$)31):: R REMINDER?(Y/N)":DF$"N":VA$"YN":ML%1:YP%24:YP%:1:868:102:AN$"Y"āI1123:I:39);::6 WRITE 2 REM.MAKER, ENDING24::" PLEASE WAIT WHILE CREATING TEXT FILE. "::D$"OPEN"F$:D$"WRITE"F$:"TEXT: HOME":L1K:R$(L):L:D$"CLOSE2:RM$RM$"*"AN$"*":23::18A  SET BTTM ROW *'S IF <7 100:QU$"BOTTOM LINE OF ASTERISKS?(Y/N)":VA$"YN":DF$"Y":ML%1:YP%10:YP%:1:868:102:AN$"N"18 RM$RM$ST$:23  CHECK FOR ANOTHER REM cR$(K)RM$:100:QU$"ANOTHEREM "F1$(ST$,21):100:QU$" LINE #1":ML%26:YP%10:DF$" ":102:RM$RM$"*"AN$"*":23:J27:100:QU$"ANOTHER LINE OF TEXT?(Y/N)" VA$"YN":DF$"Y":YP%10:YP%:1:868:ML%1:102:AN$"N"15 100:QU$" LINE#"(48J):YP%10:ML%26:DF$" ":10ORED";::X11000::KK1:203  GET LINE # :100:QU$"PLACE REMINDER ON WHICH LINE?":MN$"0":MX$"63999":R1$"09":YP%10:YP%:1:868:102:(AN$)5F1$"":11 T%5(AN$):F1$(ST$,T%) GET REM TEXT LINES L$AN$:RM$AN$" YOU WILL NOW SUPPLY UP TO 7 LINES OF 26 CHARACTERS AS TEXT FOR THE REMINDER. A BOTTOM BORDER OF ASTERISKS CAN BE ASKED FOR WHEN 6 OR FEWER TEXT LINES ARESUPPLIED.";31)  GET REM# <= 25  KK1:K25Ģ24::"ATTEMPT AT MORE THAN 25 REMS IGN? HEADER R$(25):ST$"****************************":F$"REM.MAKER":D$(13)(4):D$"NOMONC,I,O":D$"OPEN"F$:D$"DELETE"F$:D$"CLOSE"F$::::" YOU ARE NOW UNDER THE CONTROL OF THE REMINDER MAKER. YOU CAN ESCAPE VIA THE "; "ESC KEY.";32);"  ************************** ** REMINDER MAKER ** ** PROGRAM PROMPTS FOR ** UP TO 7 LINES OF 26 ** CHARACTERS FOR PLACEMENT ** IN A BOX OF STARS *  RESET REM.MAKER,          : IOBPDN  (# (******** 1 (* FDCT *? (********F ( _ )13104,00: DEVTPC u )13105,01: PPTC )13106,239: MONTC ")13107,216: MONTC ,)DIBDCTP ! n(13089,51: IBDCTP < x(13090,187: IBBUFF V (13091,179: IBBUFF p (13092,00: UNUSED (13093,00: UNUSED (13094,00:*IBCMD (13095,00:*IBSTAT (13096,00:*IBSMOD (13097,96: IOBPSN (13098,01'13097,(13083)% '13098,(13084)+ '1 '? (******* L (* IOB *Y (*******_ (w ((13082,01: IBTYPE 2(13083,96: IBSLOT <(13084,DR: *IBDRVN F(13085,00: IBVOL P(13086,17: *IBTRK Z(13087,0: *IBSEC d(13088,48: : TR, SE, CM ** 8'*********************0 B'> L'13084,DRL V'13086,TRZ `'13087,SEi j'13072,169w t'13073,51 ~'13074,160 '13075,26 '13076,32 '13077,217 '13078,3 '13079,96 '13080,00 '13081,00 '13094,CM:13072 QQ$ AU F22:" TO ACCEPT TO CHANGE...";:AS$g K(AS$)2730w PI1(QQ$) Z46017I,((QQ$,I,1)) dI nTR17:SE0:CM2 x10010  '********************* $'*READ/WRITE (CM=1/2)* .'*INPUT_::" JOHANNES THE DISK BAPTIZER... BY THE APPLE USER GROUP OF SWEDEN 1981 ":i34,3"IN WHICH DRIVE =>";DR (4);"CATALOG,D";DR10280(10:"DISK-NAME =>";QQ$:(QQ$)303027 <10:((40(QQ$))2):     a(̠Ԡ)e'ca(à)j'c[aΠԡ)<#cUVWY F#w_('KM6oP!'d2e?a(ˠ)d2e$'c*.'a(ҠĠҠ͠Š)+8'ca(נŠҠϠŠ)'B'ca(ŠҠҠԠ)V'ca(ѠԠ)`'cS(ӠԠŠŠՠԿ)&@)cS(ȠˠĠ)''`"$'ca(Ġˡ٠ή)_`$'ca(Ġҡ٠ή)_[(#`%[)2#ca(ϠҠӠΠΠϠծ)`.?6@r$ d6?e_(KM6a(š)Q Ka()) ca(Ԡ٠٠ϠΠϠծ) S()&@_(]Ԡؠ%a@*#rG%a@*#rG[%3c`]̠ jKM6 KM6\(#3d2e?P a(ˠ)FE(Ҡ)Fc d2ed<ed=e.?Mrd>ed?e.?Mr,ca(ԠŠҠϠ̠Ǯ)`.?6@r$Mp +cca(Ԡ٠٠Ϡ\(# M6c&a(ŠŠ̠ӠƠ)*a(ҠϠԠŠӠ)a(ԠԠ)G2q.?Mr\a(ΠĠǬ).$a(Š̠٠ϠΠϠՠ).cc BdeL Lde6 VdeĠdede deM_<7ca(ŠԠˠҠӠ)FE()FE()%cS(ӠԠŠŠՠԿ)&@`;@r$`@*#r9()$\ dededeM_( ]7d"eo<cS(ȠĿ)&@F`;@r$<P`@*#r9()$Z`@*#r9()$d`@*#r9()$g`@*#r9()$i`@9()$k`@9()$ na(Ġġ)xUVWXY_<\]Ԡˠκ=C>B`>L  L hL ) @JJJ @+`>L q6 N@"(rC@"r  ]ˠ ]é٠٠ ]#@p()(\']ԠΠΠB6d<e8.?rrd=e.?r8.?rrkd>e8.?<rrd?e.?=r8.?<rrdBedCe de.?>rde.??rM6_L LiB?CLx  <@=A @e8.?<r`rd?e.?=r8.?<r`rdBedCede.?>rde.??rM6_HHH LMȑ ȑ    -?? hhh`      ON A STANDARD PAGE ?21:1:958:22:5::"PRINTING HARDCOPY OF SECTOR"::1:0:1002:(30);(10);::"SECTOR ";S;" OF TRACK ";T;" ";L$:" 0 1 2 3 4 5 6 7 8 9 A B C D E F"\@L12287:K015:DCK16:8:HX$;": ";:J?"Ģ21:958:3219 ESCAPE KEY ENDS PROGRAM E:A$(27)ĉ::T;A$"I"66l<A$"P"ĺ(7);:44= PRINT SET UP FOR IDS 440> CHR$(30) FOR 12 C.P.I. CHR$(30) FOR LINE FEED WHEN SET FOR 6 L.P.I. WILL PRINT 3 SECTORS :958:23:41-A$"+"50?. READ NEXT HIGHER SECTOR T/SS1:SMS135l0S0:TT1:T35T3t1352A$"-"563 READ NEXT LOWER SECTOR 4SS1:S1355SMS:TT1:T2T346357 ACCESS TO ANY SECTOR 8A$"ORWARD ?=SECTOR? -=NEXT SECTOR BACKWARD ";:21:1:* IF S THEN SCROLL SCREEN BY CHANGING C THEN CALLING SCREEN DISPLAY + C FLIP-FLOPS FROM 1ST 128 TO LAST 128 BYTES OF RWTS BUFFER ,A$:A$"S"C(C1):5OLUMN MISMATCH ** 40 DRIVE I/O ERROR ** 80 READ ERROR *****************************& CALL SCREEN DISPLAY ':23( PRINT COMMANDS =)21:1:958::" S=SCROLL I=INSERT P=PRINTER ESC=END +=NEXT SECTOR FA B C D E F TEXT ":C0:ST31,T:ST32,S:ST:(ST48)0DC(ST48):8:2:17:(7);"ERROR CODE RETURNED=";HX$:ST48,0e% ************************* ERROR CODES LINES 36,81** DOS 3.2 MANUAL P.97 ** CODE 10 WRITE PROTECTED ** 20 V;(7);:32e!:MS15:"START WITH WHICH SECTOR?";S:S0SMSĺ"SECTORS RUN FROM O TO ";MS;(7);:33" PRINT PAGE HEADING #::"TRACK ";T;", SECTOR ";S;:L$""Ė(41(L$)):L$;$3:1:"REL. 0 1 2 3 4 5 6 7 ":"BYTE 8 9 :6# GET PARAMETERS FOR RUN f"EXAMINE DISK ON WHICH DRIVE? (1 OR 2):";D:D1D2ĺ(7):30ST29,D::"LABEL FOR THIS DISK: ";L$:(L$)20ĺ(7);"TOO LONG A LABEL":31  :"START WITH WHICH TRACK?";T:T0T34ĺ"TRACKS RUN FROM 0 TO 34"21,1949,1093,1221,1349,1477,1605,1733,1861,1989,1133,1261,1389,1517, 169,3,160,59,32,217,3,169,0,133,72,144,11,169,135,32,237,253,173,72,3,141,80,3,96,0,0,1,96,1,0,0,0,76,3,0,48,0,0,1,0,0,96,1,0,1,239,216,0 J015:HL(J):J:J048:D:STJ,D:J::******** START PROGRAM WITH DATA ** ** 1ST 16 #'S ARE DEC.MEMORY**LOCATIONS TEXT SCREEN LINE** **LAST 49 #'S ARE RWTS SBRTN**CALLER AND IOB, START = ST* ************************  1565,1693,18C$(95)(SC64):3 SC224C$" "(SC128):M C$(126)(SC192):k  SCREEN DISPLAY SUBRTN L12287C128:K015:K5:2:DCK8C128:8:HX$;": ";:J18:DC(LJK8):8:HX$;" ";:HL(K)J,DC:J::K:   *****************= "," ** CONTROL = "_" ** NORMAL = " " ** LOWERS = "~" ****************************** SC32C$(46)(SC64): SC64C$(46)(SC): SC96C$(44)(SC): SC128C$(44)(SC64): SC160$,1))48:XX10XXXX7:' DCDCXX: ************************* TRANSLATE SCREEN ** CHARACTERS INTO ** PRINTER LETTERS *}  ************************* PREFACE FOR EACH LETTER ** INVERSE = "." ** FLASHING 0:27)  SUBROUTINES START HERE H  DEC. TO HEX CONVERTER e XX9HX$HX$(XX55):y HX$HX$(XX): HX$"":XX(DC16):6:XXDCXX16:6: HEX TO DEC. CONVERTER XX((HX$,1))48:XX10XXXX7: DC16XX:XX((HX*************************** ** ROWTSER ** ** READ/WRITE-TRACK/SECTOR ** UTILITY ** *****************************  HL(15):ST80     ****** CONTRIBUTED BY ** RUSTY WIDGET SOFTWARE ** ** RUDIE W. SLAUGHTER, III ** 5341 ESSEX COURT #51 ** ALEXANDRIA, VA 22311 *** 578-1621 ****************UQX(7)6l }QN0:1:0:1002:(28);QB$;:QJ041:(45);:QJ:(11);:QJ08040:QK0896128:QNĺ(124) ~QB$;(124);:QL039:((1024QJQKQL)32QX(((1024QJQKQL)32)));:QL:QNQN1:QK,QJ:(124);(29):0:0:1002:  ****************CREEN TO IDS 440 PRINTER** **CHR$(11)=VERT.TAB=1/2 LINE**CHR$(28)=8.3CPI (29)=10CPI**CHR$(45)="-" CHR$(124)="|"***************************** |(QN)QB$" ":QX(0)2:QX(1)0:QX(2)0:QX(3)2:QX(4)1:QX(5)4:QX(6)4:z ********************** SCREEN DUMP SUBROUTINE ** &M)ERGE WITH PROGRAM ** CALL WITH GOSUB 63100 ** ** BORDERED & CENTERED ***************************** { ********************** DESIGNED TO DUMP APPLE ][** S   RUDIE W. SLAUGHTER, III ** 5341 ESSEX COURT #51 ** ALEXANDRIA, VA 22311 *** 578-1621 ****************R039:((1024QJQKQL)32QX(((1024QJQKQL)32)));:QL:QNQN1:QK,QJ (124);(11);" ";:QJ041:(45);:QJ:(29):0:0:1002:o ********************** CONTRIBUTED BY ** RUSTY WIDGET SOFTWARE ** **QX(6)4:QX(7)6 }QN0:1:0:1002:(28);" COL 1 2 3":"ROW";(92);"0123456789012345678901234567890123456789";(11);" "; ~QJ041:(45);:QJ:(11);:QJ08040:QK0896128:QNĺ(124)L (" "(QN),3);(124);:QLESIGNED TO DUMP APPLE ][** SCREEN TO IDS 440 PRINTER** **CHR$(11)=VERT.TAB=1/2 LINE**CHR$(28)=8.3CPI (29)=10CPI**CHR$(45)="-" CHR$(124)="|"***************************** |(QN)QX(0)2:QX(1)0:QX(2)0:QX(3)2:QX(4)1:QX(5)4:pz ********************** SCREEN DUMP SUBROUTINE ** &M)ERGE WITH PROGRAM ** CALL WITH GOSUB 63100 ** ** ROWS & COLUMNS NUMBERED ** BORDER, LEFT SIDE OF PAGE***************************** { ********************** D    ** RUDIE W. SLAUGHTER, III ** 5341 ESSEX COURT #51 ** ALEXANDRIA, VA 22311 *** 578-1621 ****************N0:1:0:1002:(28);:QJ08040:QK0896128:QNĺ ~QL039:((1024QJQKQL)32QX(((1024QJQKQL)32)));:QL:QNQN1:QK,QJ:(29):0:0:1002:  ********************** CONTRIBUTED BY ** RUSTY WIDGET SOFTWARE ** DESIGNED TO DUMP APPLE ][** SCREEN TO IDS 440 PRINTER** ** CHR$(28) = 8.3 CHAR./INCH** CHR$(29) = 10 CHAR./INCH ***************************** |(QN)QX(0)2:QX(1)0:QX(2)0:QX(3)2:QX(4)1:QX(5)4:QX(6)4:QX(7)67 }Qz ********************** SCREEN DUMP SUBROUTINE ** &M)ERGE WITH PROGRAM ** CALL WITH GOSUB 63100 ** ** NO ROW, COLUMN NUMBERS ** NO BORDER, LEFT JUSTIFIED***************************** { **********************    BER","*** OCTOBER","** NOVEMBER","** DECEMBER" K.5M1:YY1 NN1:N.5190<:22:(02);(30):0:f 31,28,31,30,31,30,31,31,30,31,30,31 "*** JANUARY","** FEBRUARY","***** MARCH","***** APRIL" "****** MAY","****** JUNE" ,****** JULY / "**** AUGUST","* SEPTEM05):D4DU10D2&JD2.5L2$L2$" "BKD2.5L2$L2$(48D2)WLL2$L2$(48D4)nMI6.5L2$L2$" "uPIRL$;:SW0ĺ:860W24:L2$\EN.5700`SW0870bEO.5820f" "p...DO IT AGAIN FOR NEXT MONTH zMM1:M12DTA(M).5EN1:850:D1(DT10.05):D2DT10D1OD1.5L$L$" "i D1.5L$L$(48D1)|L$L$(48D2) I6.5L$L$" "%I*SW08504L2$""9EN.5L$"">I17HDUDU1:DUA(M).5EO1:850ID2(DU10.Y100CvA(2)281YC4(YC4.1)A(2)29DYC.5A(2)28eYC.5C4(C4.1)A(2)29...BUILD REMAINING DATE-LINES AND PRINTEN0EO0L$"":L2$""I17DTDT1:SW0750DTA(M1).5EN1:830SW1760L$L$" "(48DT)' I6.5L$L$" ". I< SW0590G I17U &DUIDX1l 0ID2L2$L2$" " :ID2L2$L2$" "(48DU) ?I6.5L2$L2$" " DI NL$;:SW0ĺ:610 X24:L2$ b...CHECK FOR LEAP-YEAR lC(Y100.005):YC"***";:24$ R$(M);:" ";Y;" ***"O " S M T W T F S ";:SW0ĺ:450p 24:" S M T W T F S " ...BUILD FIRST DATE-LINE & PRINT L$"":D1DW.5:SW0470 L2$"":D2DX.5 I17 DTIDW1 ID1L$L$" " ID1Y1 ^M2MZ12:YZY1H cKK1:CZ(YZ100.005):YZYZ100CZ:DM1_ hD2(2.6MZ)DMYZ rD2D2(YZ4.1)(CZ4.1)2CZ |DXD27(D27.01)1 ...PRINT HEADER M2M:M21M213 Y2Y:M2MY2Y1 R$(M21);:" ";:Y2;:" ";:12:YZY1, ...FIND STARTING DAY-OF-WEEKT CZ(YZ100.005):YZYZ100CZ:DM1k D1(2.6MZ)DMYZ D1D1(YZ4.1)(CZ4.1)2CZ "DWD17(D17.01)1 ,SW0410 6MM1:M12.5M1:YY1 @NN1 JMZM2:YZY TM1MZ11:YZNTER (V/P) ":X$:X$"P"ĉ:1:17:Y:17:"****":::SW1:170O X$"V"140X SW0a :4q MZM2:YZY SW1230 KK1:K13K2 K3K5K7K9K11K13Ģ21:"HIT ANY KEY TO CONTINUE":X$:X$::4 M1MZ11:YZY1 M2MZ0  D$(4)+34,3:32,10:33,253(:E2A(12),R$(12)M<K0bFI112:A(I):IxPI112:R$(I):IZ4d"HOW MANY MONTHS? ";NnN1Ą"MONTH # ";MxN1Ą"FIRST MONTH # ";M"YEAR ";Y:Y100Y1900Y> "VIDEO OR PRI      N QUITSELECT: ==== CTRL-D ENTER DISK COMMAND (Q) = QUITBRUN PRINTER,D1BRUN TEDITOR,D1ENTER FILE NAME:CONVERT UPPER TO LOWER CASE? (Y/N):CONVERT LOWER TO UPPER CASE? (Y/N):OPEN DELETE WRITE READ CLOSE L( ** ** FILER MENU ** *************************************** YOU MAY CHOOSE FROM THE FOLLOWING - LOAD TEXT FILE FROM DISK SAVE TEXT FILE TO DISK RETURN TO THE EDITOR

PRINT FILE `4  ߘT ߘt !  `]  C U g y *************************************** ** TEXT FILER 1.0 ** ** ** ** WRITTEN BY B.F.FIELD, APRIL 81 ** **  8 L8LL C D  `|`L   Lg  8  o ɍ ` ,  o ` ,   8 `ߘ 4  ߘ   X3ةمvLZ [ , o8 z    |  F z    `  LL, L, ɄA ,  o