' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   ,LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 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õ`  \ 濭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-([ pϠ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` F 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...   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      (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "    !!! $)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