' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] u1!u!uq1!u! 鷎귭෍ᷩ췩緈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- ( $ Ϡ@跻~!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 / / ]ƴ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 ~(` d.   z# u`0H6I1pqLIe00%%+k@p%)*0D00-Z$Id $RM5 0P4%J$@IeZ%I 00F |p?pqg00$UU*) $UJ*)000033f9|?p8f I 00PTRJ*pUTRJ 0|0$Ur*@U**)00@1nqpqAOcM00|?`00TR**@(*UR*00xpA00*JZV@i*JT004i$; `x1\YID2K000U@R**) 00$66F9~x'LId00I$6&Nq`7LM, 00@T%0$***J0"<.$.$<0 k) 3O4k0HJ$IVI6Z$-J00gqp`@g00UT*- `,UR**0000`$DCa~gbd00PJj*%`%UV 00(5UT*T~*)%00 L|`?pq300x@00TR**@(9UR*00x?pc00JRT%k@)JZR00R$SILLs0N#66[-R00 -%%5` ))-% 00I;FcAcYI00 MIH1xq322Y00@RRRR`@0hRZJR0%""""$$0@%[m6bNm4R$K0$kZ4I6x)R%00`|x?pq00TUR*%@(URJ*0000@Is|xL00H***5@0+%U00(%%UJ0@R**%0003 aayAcL 00|w?00TT**@(UJ*00`xpAA00R%iZ 0Z%iJ00mM&23 `pLIMJ400 +))- 0%%500I,fD9>}86&f00@$23NsagH M%00 **JjC PTRTU0@ " ">"$$>0@5ISMM@12mip?0)IR5\iKV%+00cqq`@F00TTJ*@(UTJ*00p002f cq|@G3lL00h*)5U **5U00(+%UR Z*)00LYs|`?p0 330000TTj*@(UTJ*00|?x?pq000%)%P)Z%)p?0@i4m16Ri-00 jj**`PUTUT00@423FsaOcLII$00$Ur*@U**)00@1Bqp1A`M00||?`00@00xpA00JZV@i* T004) `x\YI2K000P**) 00$66F8~x'LId00H$6&.p`|7LM  00@%0$**H0"<.$.$<0 k  3@4k0HJ$II6@$-J00`qp @d00UT*- `,UR**0000`$D@a|abd00PJj*%`$UV 00(5UT*T~*)%00 L|`?p1300x@00TR**@(9UR*00x?x?pc00@RT%k@) PR00R$AIL r0#66-R00 -%` ()-% 00I;@cAxaY 00MIHx32Y00@RPR`@hRZR0%""""$$0@%l6bNm R$K0$kZ4 6x)R%00 |x?p00TUR*%@(URJ*0000@I|xL00H***5@0+%U00(%%UJ0@R**%0003aa9AbL 00||?00TT**@(UJ*00`xpA00R%iZ0Z%@J00m&23 `@LIMJ400 +) 0 %500@,fD1>}86&f00$23sa|fH %00 * @jC PTPU0 " ">"$$>0@5ISMM@12mip?0)IR5hKV%+00`qq@@00TTJ*@(UTJ*000002fbq|@C3lL00h*)5U **5U00(+%UR Z*)00LY|`?p 330000TTj*@(UTJ*00|?x?pq000%)@)Z)p?0@im16Ra-00 j**`PTUT00@23BsaxO`LII00-))ZZRT$)00$MfdLqa3&$6K$00PTVRJ`@VZJ* 00HMMfaAg36000@p<000"<.$.$<000000000000~000@000000000000L  @ @ <000@00  pp@p  000@ L000%""""$$0|pp 00000000000pp00 @000000000000L  @ @ <00@p00  pp@p  000@ L00`0@ " ">"$$>0|pp p?00000000000@0000@ @0000000000p?0<0 @0@0 00 00   @0@  00()ZZR$)00$Hfd qax2&$6H$00PTVR`VZJ* 00HMM`axAc3600H I pL@e00%+k@p% 0|00-Z@d $PM50P4%J@IZ%I 00F |p?pg00$UU*) $UJ*)000033f8|?p0f I00PTRJ p@TRJ 0|34701 f (402202S),MOD256:(402212S),NBR256I p EP(S)NBR:C$(S)"*"S z 3200Y z 40286,MOD256:40287,NBR256 EP(S)NBR:C$(S)"*" 3200 I128 MOD256MOD(O(I)) (40220I2),MOD256:(40221I2),O(I)256 I !:NT =>"EP(S): 8:"ORIGINAL ENTRY POINT =>"O(S)c* S29ĺ:"REBOOT ENTRY POINT =50688"4 22:" -----"> 21:"ENTER NEW DECIMAL ENTRY POINT =>";S$:NBR(S$)H S$(13)3200R MOD256MOD(NBR) \ S29 RESET TO QUIT --"_ 21:"ENTER COMMAND TO BE CHANGED (1..29) =>";S$:S(S$)t S$"Q"ĉ::300 S$"R"3500 S1S293280 CHANGE ENTRY POINT...  4:"COMMAND TO BE CHANGED =>"A$(S) 6:"CURRENT ENTRY POII/v EP(29)(40286)256(40287):O(29)EP(29)7 :q I114:C$(I);:2:"<"I">";:7:A$(I);:15:EP(I):Ix 4 I1528:21:C$(I);:22:"<"I">";:27:A$(I);:35:EP(I) I  " <29> RESET ENTRY POINT:"EP(29)" 22:" TO(25)43252:A(26)43257:A(27)43262:A(28)43266: I128B J0_ A$(I)A$(I)((A(I)J))w (A(I)J)1283130& JJ10 3090: ID READ ENTRYPOINTS (START=40222)N I128X EP(I)(40220I2)256(40221I2)b O(I)EP(I)l 3148: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)43212: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,J,1)) J,I 2130  ::" << COMMAND ENTRY POINT CHANGER >> ":34,3  12:" INITIATING COMMAND ENTRY POINTS..." MOD(NBR)(NBR256(NBR256))256j A(1)43140:A(2)43144:A(3)427)2130 S$(13)2350%$ 23204. I1(T$)Q8 (A(S)1)I,((T$,I,1)){B I(T$)Ĺ(A(S)1)I,((T$,I,1))128L IV A$(S)T$:C$(S)"*"` 2130j RESETt I114~ C$(I)"":A$(I)O$(I) J1(A$(I)) (A(I)1)J,((A$(I)____________",20:12:I1L(S):"-";:II19:1:"NEW TEXT =>";T$YT$""2130n(T$)L(S)2260t12:" NEW TEXT:" 14:20((T$)2):T$ 22:"PRESS TO ACCEPT TO CHANGE":S$:S$(00zS$"R"2410&S1S142160T::" << EDIT ERROR MESSAGE... >>"r8:"ORIGINAL TEXT:"O$(S)10:"CURRENT TEXT :"A$(S)12:"MAXIMUM LENGHT :"L(S)14:"MEMMORY LOCATION :"A(S) 16:"____________________________000   @ @ L00~ 00000@p<000l0000000@0000000|0000000000000   @ @ L0000090,1:768@:BUFFERBUFFER256:76818,BUFFER(BUFFER256)256Z:76819,(BUFFER256)c:VF0p:X0255:(BUFFERX)(BUFFER256X)15080:VFVF1:X:VF0Ģ22:7:"SECTOR IS IDENTICAL TO MEMORY. ":15120;22:7:"SECTOR NOT IDA$:A$"M"14100%6(59)64140100614030;711000N7F$"H"İ12000a(7F$"A"İ13000k271000:22:7:"DOING SECTOR/RAM COMPARISON=>";::"*"::BUFFERBUFFER256:76818,BUFFER(BUFFER256)256:76819,(BUFFER256) :216,0:7$,X,1);40);(CV$,X,1)+X%+:L.1:13:"HEXADECIMAL BYTE DISPLAY"W.17000b.F$"H"h.21:13:"ASCII CODE TRANSLATION "2170562F$"A"26:58,0:59,6464186::"PRESS M FOR MENU - ANY OTHER TO CONT."61:"8 DASM"!X+12:1:"9 COMP"2\+14:"TRACK"Bf+15:" ";TTp+17:"SECTOR"dz+18:" ";S+:3:7:" 0 1 2 3 4 5 6 7 8 9 A B C D E F "+20:7:" 0 1 2 3 4 5 6 7 8 9 A B C D E F "+CV$"0123456789ABCDEF"+X116+X3:7:(CV g R ΅Ϡ QΈPΠΈΈ΅נ    ΅ ߅HH L[ LI LA ΅ ߅HH L[ LA LI each with a letter or num-"NB':"ber, identifying each as data is put on"L':"the screen. This map will be very help-"V':"ful when working with the DISK EDITOR"`':"program."t'22:15);"(Touch Key=>";:A$~'270    :868:"?UNRECOVERABLE ERROR - ABORTING"::23:]':8);::"DISK MAPPER INSTRUCTIONS":':"This program will make a map of a disk"$':"and output it to the screen. It will".':"show what each track and sector contain"8':"by labeling(T%16)H$(XL(T%))","H$(S%);:868F2#BK%BK%1:C%BAD%:I11000::#OK%OK%1:C%OL%:IDOS%:FL%(T%,S%)0IID%(FL%(T%,S%))#23:1:(7)"T/S "H$(T%X%)H$(XL(T%))","H$(S%)" ALREADY CLAIMED BY FILE <";:GIVE,I:">";:868:I11000::1&22:1te new VTOC (Y/N>? ";A$:A$"Y"999XRWTS,WR,17,0,CB%,ERR:(ERR)9900:WRITE IT OUTu:"[ VTOC WRITTEN. ]"::"Re-insert DISK UTILITIES disk =>";:A$:(4);"RUN MENU""(#23:1:(7)(7)"ERROR #"H$(ERR16)H$(XL(ERR))" READING T/S "H$MPUTING NEW VTOC ";DT%17:S%0:B%CB%:10:(ERR)9900:READ VTOCgI0UT%:K0:".";:CLEAR BITSJ0US%:FL%(I,J)0KKP2(15US%J):SET BIT IF UNUSEDJ:CB%I456,KP%:CB%I457,KP%(KP%):SAVE BYTESI$:20:958:"RewriNT%NS%)"% full)"::"Last track allocated: "LA%:j\"Total files: "F%;:20:"Overhead: "DK%" Sectors"a:"Read Errors: "BK%;:20:"Overlaps: "OK%fBK%OK%999p20:"Do you want a new VTOC (Y/N>? ";:A$:A$:A$"Y"999z21:958::"CO%(4);"CATALOG"%:,%:963:300I THE RESULT...":PAUSE1500:PAUSEg%(4);"CATALOG"o%:%:963:300%:963:300I NORMAL"C$^::" => ";QQ$X$hQQ$"N"XXX128^$rm$|I1111w$PP1$45999I,((A$,P,1))XXX$(45999I)32Ĺ45999I,160$I$:"O.K. NOW LET'S LOOK AT THE RESULT...":PAUSE1500:PAUSE******"&#16:13:"* *"E#17:13:"***************"]#":16:15:(A$,11)c#,#620:" HIT TO CONFIRM... TO CHANGE.":S$:S$(13)4175#@4000#O/$T:" FLASH D IF YOUINITIATE A NEW DISK."q""USE THE VOLUME (,V) OPTION (WHEN INITIATING) TO GET YOUR OWN VOLUMES.""S(49168)"14:"NEW MESSAGE =>";A$"A$A$" """10:" NEW MESSAGE TO BE DISPLAYED:"#15:13:"*********::_!:" << VOLUME HEADER >> "k!:34,3!15:15:"-----------""5:"PLEASE ENTER THE MESSAGE TO BE DISPLAYEDINSTEAD OF 'DISK VOLUME' IN THE CATALOG.THE CHANGE OF DOS WILL BE INVOKEIT MENU";::". This"G F:"will initialize the disk, rendering it"x P:"usable by any Apple II family computer." Z:" If you prefer to return to the menu" d:"type/input ";::"RUN MENU";::"." n(4):"LOAD AUTO-MENU"A AUTO-MENU INSTRUCTIONSD:12);::"*>> AUTO-MENU <<*":u:" We are now loading a very convenient"(:"automatic menu program. You may use it"2:"by removing this disk, install a blank" <:"disk and type/input ";::"IN  F$"H"İ12000 NF$"A"İ13000*N1000DOR.".N(222)107ĺ:"BAD SUBSCRIPT ERROR."WN(222)163ĺ:"TYPE MISMATCH ERROR"N(222)254ĺ:"BAD RESPONSE TO INPUT"N(222)255ĺ:"CTRL C INTERRUPT"N222,0N::"DO YOU WANT TO CONTINUE?";:E$NE$"Y"50000N11000 N";(781);".".RN(791)64ĺ:"DRIVE ERROR.)"P\N(791)128ĺ:"READ ERROR.)"fN(791)128ĺ:"SPECIFIED SECTOR HAS NEVER HAD ANYTHING WRITTEN ON IT, THUS THE ERROR."pN791,0zN(222)16ĺ:"SYNTAX ERROR"N(222)53ĺ:"ILLEGAL QUANTITY ERRENTICAL TO MEMORY."*;(7):T11500:T4;1000R N ERROR HANDLING ROUTINESX*N4N(791)16ĺ:"DISK IS WRITE PROTECTED.">N(791)32ĺ:" VOLUME MISMATCH ERROR.)" HN(791)32ĺ"THE VOLUMN FOUND WAS ";(792);".":"THE EXPECTED VOLUMN WAS lpx|~𷄝]V߼ȿBhzBB5zaM|wQTWZ\^`cegkޔ6G݀ $-H^ݭ_%H\ݭ]HZݭ[H`ݭa rsLNHhL{ K @ jLrs`au`hhHHL9DLQL#VXZdfLf Lf Lf Lf e fL䍁L׍L6 -Lf ]Lfl8 o,,(`l6LfLlll f ލ` f Lи fL fL f L f L f QLB'Byyyy-Bz9BEBWBWBWBfBlBrBxBBhBBBBBBimBXmB z5hDLw@@DiLj@AC@B@BCAC KB C@ CAB"@lL@ʽBi@ȽBi}@ΩL6 ݍ̹A_COkhC濹տ AuA LBՠPADL Lf @1ɝ @ `ƠĠάō#C@CCA @i@@AAACCi$΢D@DA@ /k@ɝe*ɷ@MIiՐɵA@餐;-7iϑ@ȩ53@ʭXCWC _C@Ƚ`C @i@@8/e@@eAA  any key to return to Menu. =>";:A$:9 6D$;"RUN MENU" 1 :" Or, have this as its' last line. You"b :"may transfer DOS RELOCATOR from this" :"disk with the FID program from the SYS-" :"TEM MASTER DISK after initializing the" ":"program disk with the HELLO program."& ,:"Touchwill in turn run a"E :"MENU program on the disk, thus the disk"h :"must have such a program."p 40 :" First INITialize the disk with a HELLO" :"program which can read:" ::" 10 PRINT CHR$(4);";(34)"BRUN DOS RELOCATOR";(34)vailable memory location, thus"P :"freeing a significant portion of memory" :"in computers with language cards or RAM" :"additions. It needs to be transferred" :"to the disk on which it is to operate." :"After it has run it ; DOS RELOCATOR INS.,D$(4):34,05100X(:15)"Touch Key =>";:A$::d:10);::"*>> DOS RELOCATOR <<*":i34,2n:"This disk contains a file with the name"x:"DOS RELOCATOR. It will push DOS to the" :"highest a  0 H h $ թL o3 j SS  kR 5  kR Q 7ULQTTPTTLR X" kR kR QT 7U U U RU  kR kRT Q UT0mT $LQʹR<`UT QU U U 6 YR( LR`6U7`ɇhhhh` ҠҠǍԠé٠ΠŠ ŠԠˠϠŠ ٠ˠ ҠǠŠٍ ٠ ŠĠŬԍҠĠӠ `T`ؠ kR kR  kR  kR/O0T`P4`0T>S0@0`T`STTAPE"t 151 pe player output to the"K :"computer input with a audio cable. (3)" :"Type ";::"200.240R";::" at the ";::"*";::" prompt when you" :"see it as the program is now loading." :"(4) Touch ";::"RETURN";::" and start the tv TAPE>DISK$D$(4):34,0-100Vd:10);::"*>> TAPE TO DISK <<*":n:"To recover a disk from tape (1) run the"x:"tape until you hear the 1200 cycle cue":"tone. Stop the tape immediately. (2)" :"Connect the ta  A DISK>TAPE%D$(4):34,0:?D$;"BRUN DISK<>TAPE" B1(X)(X16):B0(X)XB1(X)169j'X:X99910090Tt'NP:I1NP:NP$(I):IZ'f N -999~N 2,INFOCOM,ARTSCIa INFOCOM,1,2,47355,41,47356,0,1,0,2,3,5D,AD,FB,29,FC,00,**a ARTSCI,1,1,47426,24,1,0,3,1,42,18,** 8,96,140,47496,24,168,47497,96,208,48712,56,24d8'TRK780:SCT781:CMD788:RD1:WR2:SLT777:DRV778='BUF785:ERR789:VOL779:RWTS768:IN4:OVL790B'DOS15:NI1L'V(X)(X47X58)(X64X71):V'H(X)X48((X58)7):A(X)X48((X9)7)#`'96:A:X,A:X^' 169,3,160,8,32,217,3,96,1,96,1,0,0,0,25,3,0,32,0,0,1,0,0,96,1,0,1,239,216$'X16:XA(X),XD(X):XP(X)XD(X):X)' 47445,213,47455,170,47466,150,47335,213,47345,170,47356,173.'X15:CK(X),CD(X),CE(X):X.3' 47397,24,188,4739zMOD1SM:TK,ST:CDRD:50:RWTSRZAPS:BYTE1ZAPS:X$:260:AD(MEM256)X{X$:260:AD,X:BYTE:CDWR:50:RWTSMOD'CK0:5000:24:'BS$(8):AD(10),DA(10),PA(10),NP$(20)'CK(5),CE(5),CD(5),XA(6),XD(6),XP(6) 'X7687N:+A$"IGNORE CHECKSUMS":4800:CKYN:a20:2:958:A$;:" (Y/N):";YN$:YN$(YN$" ",1)YN$"N"YN$"Y"ĺ(7):4800YN(YN$"Y"):CKāI15:CK(I),CD(I):I:(CK)āI15:CK(I),CE(I):IpDVDD:SDS:SM:SM06050#;:A$:PA(A$)* PA0PANPĺ(7):30206 PA0ı< Q X:X9993060f X:I1X:X$:I X$:X$NP$(PA)3100 X$:X$"**"3090 3080 CK,NZ:I1NZ:AD(I),PA(I):DA(I)(AD(I)):I& A$"INITIALIZE NEW DISK":4800:NIYXP(I)X (37):14:240::IC10:1:"DATA MARKER:";:I46oXXP(I):14:240:BS$;BS$;:250:XP(I)X(37):14:240::I: 4:958:A$"SPECIAL PATCHES"::30::7 "0 - NONE":I1NP:I;:6:"- ";NP$(I):I 23:30:"SELECT:"***":4V4:"COPY FROM SLOT:";SS:10:"DRIVE:";SD``7:"COPY TO SLOT";DS:10:"DRIVE";DDj14:"STARTING TRACK:";FT:" ENDING TRACK:";LTt" INCREMENT:";TI:1904:1:958:"ADDR MARKER:";:I13XXP(I):14:240:BS$;BS$;:250:90:80rTK:PA0İ6000>|A$"COPY COMPLETED.":40:1100c::A$"MODIFY PARAMETERS":30:m3000}PA0İ2000PA0İ45004000:5000PA01100$NZ6:I16:AD(I)XA(I):DA(I)XD(I):PA(I)XP(I):IL:12::"*** IOB PLUS ORIGINAL DISK IN S"(SS)",D"(SD):40G 6CDRD:DVSD:SSS:50:RWTSj @VL(OVL):DVDD:SDS:CDIN:50 JA$"INSERT BLANK DISK IN S"(DS)",D"(DD) O40:VL0:NIČRWTS T:TKFTLTTI ^DVSD:SSS:CDRD:50:60:80hDVDD:SDS:CDWR:50:21:30:A$:A$"Q"9999+ A$"/"1000; A$"R"100K A$" "300[ (7);:200 (A(B1(X)));(A(B0(X)));: V0:"";X$:(X$)2ı X1((X$,1)):X2((X$,1)) V(X1)0V(X2)0ı V1:XH(X1)16H(X2):( ,A$"INSERT S)(SDDD)1109 14:A$"STARTING TRACK:":AFT:70:FTAk A$" ENDING TRACK:":ALT:70:LTA:LTFT160 A$" INCREMENT:":ATI:70:TIA 21:"HIT [SPACEBAR] TO PROCEED":"'R' TO RESTART"; 20:"'Q' TO QUIT":"'/' TO MODIFY PARAMETERS" :$ d:12::"*** IOB PLUS ***":L nSS6:SD1:DS6:DD2:FT0:LT34:TI1v x4:A$"COPY FROM SLOT:":ASS:70:SSA A$" DRIVE:":ASD:70:SDA:SD2DD1 7:A$"COPY TO SLOT:":ADS:70:DSA A$" DRIVE:":ADD:70:DDA:(SSD:CMD,CD:TRK,TK:SCT,ST:SLT,S168 7DRV,DV:VOL,VL:V <I1NZ:AD(I),PA(I):I:~ FA$;A;BS$;:A10ĺBS$;:A100ĺBS$; H"";X$:X$""A(X$) K(37):A$;A: PST0DOS:SCT,ST:20:RWTS UBUF,(BUF)1:ST: ZI1NZ:AD(I),DA(I):I( ADAPTED FROM HARDCORE COMPUTINGF MODIFIED BY MIKE COHENM p :28671::10000:MEM112:10012:12:"TRACK: ";TK" SECTOR: "ST" ":20((A$)2):A$:(:12:30:14:A$"HIT ANY KEY TO CONTINUE"-30:AN$:" 2BUF,MEM      RFS` L X 0UWW SUWWWW W #`5 X ץZ a V _ SL`d `5QczԠΠˠԠŠˠԠ٠ٍçϠԍԠӠ͠ԠŠԠņYY   = ZZY[YZ[`  T U `W X [ \ `V _ ` q  q ɛ`h n [[ XZ  q ZZ[Z  q ZZ[`[  `VR`S\ \LYHYjH  [ hYjhY`  7 Y[0 [  L L W 5 X 8W SUY\ [ [   L \ [ /Q A LYY[(   U YY[(𮩇 LPX QW XWVUTSX PW QSTUVWXLA 7 L Z   z#???  ԠǠ Š ӠҠӮ ӠҠ ϠՠӮӱ Ӳ ٠٠ !à"ɭŠӮà ٠˾Š žˠ ˼Š ϭՠӮϭՠ ˠŠŠĠҠˠˠԠˠРҠ ˠҠϠҠî"î"î"ՠˠҠ# `` @`hBy !"# X#@ (!"#` !"# X#@ɀ0ɠ L (!"#` for MENU =>";:A$:+ 255:D$;"RUN MENU" =>";:A$:R 255:D$;"RUN MENU"-tte, make copies in"E :"several ways, quickly or with multiple"v :"drives. It is an excellent source of" :"many programs you will need to better" :"use the disk component of the Apple II." T13000:T :10)"Touch key k contains 14 programs to help"P x:"you in analyzing disks, determine free" :"space, make modifications, test disks," :"change DOS or move it to a RAM card," :"map disks, record several full disks on" :"a single audio casse, DISK MAGICIAN HELLO)D$(4):F(D$;"BLOAD PIC.1,A$4000"c2D$;"BLOAD PIC.2,A$4000"7D$;"BLOAD PIC.3,A$4000"PT11500:T:Z:9);::"*>> DISK MAGICIAN <<*":_34,2d:9)"(c) 1987 by Adrian Vance" n:" This dis   =>";:A$:% A$"M"ĺD$;"RUN MENU"8 D$;"BRUN DOC" Amore entertaining and informative than"Y Z:"most copy programs as it produces a" d:"visual display of its work, outputting" n:"a map of the disk on the screen." x::" Touch any key to run the program or" :" M for the Menu. :# B-RUNNER FOR DATA ONLY COPY/D$(4)934,0c(:9);::"*>> DATA ONLY COPY <<*":25:"This program is very fast and efficient"<:"because it works only with tracks and"F:"sectors that have data. It is also"( P:"   BT H ,L h0`0I$fL1 xqgd$00 +)+- `L %%0@<<"$""&$$""0-m46r8LIlY00T%*R K4%)J00||?pa100TTJ*@(UTJ*00 000L s|`?p8L3&00())UT0@R*%%00h*)%U@0J*50026 caAO1FL0000TTR*@(UTJ*00cqpaAg00(*R%-2L6)RT50`R%Rm&fFH&Z$J00@RJVV0(JJRR00 MM3qq36[ 00[FqagI00 %%%0 ))-)0"""""< "0R%MD a36[eR00JZ--`7-IJR00`xp`@00TT**@(UJ*00|?003cax@3L00(-UJT**%00H**)`*%UT00@Is|pN0000UR*% `(UT**00`|x?pq00HRiRM2R6mR0 K-YI&KR00@TU%@p,+)jJ00m4"fnqagLEd 00$"&f~~xcLL$00UU `@J*** 0% """ "06i43pq Y$I00ijRT4)KZVU00|w?pa00TR**@(UR*00p@A00`L;x`?pp#00(%UT*@TJ*)%00PZ**)p%UUT00 dDfqg1fd0000UT*% (UR**00gqpqAg00Pi5@I-R$)0%Y4[d`l)R% 00@5%%)i`%))+00H$Y3qqX1Yl00HmLfqAG3200PTTRJp@@TJJJ 0 "0(M,fLs`wdf6Y$00-)JJ`@[T%-080pp@00TR**@(*UR*00|?p001Fs`p@g00$UR*@ U**%0p? 0PRZJ*p@@UWRR 0003f|?pFH 0p?0$UT**@ $UJ*)00N|p?ppb0          0I$fL x1gd00 +), `L $0@<<"$""&$$""0-`46r0LIY00P%*RH4%)J00||?p!000TTJ*@(UTJ*00 000L |`?pL3&00())UT0@R*%%00h*)%U@0J*50026 ba?xA1FL0000TTR*@(UTJ*00`qp!Aa00(*R%-0D6)R40`R%l&fFH&X$J00@R@V0(HRR00 MM#qq36 00[Bqa|dH00 %%0 )-)0"""""< "0RMD a36ZeR00@Z--7-IJ00`xp@00TT**@(UJ*00|?x?003ca@3L00(-UJT**%00H**)`*%UT00@I|pN0000UR*% `(UT**00`|x?pq00HRi LR6m0 K-Y $KR00@U%@p, jJ004"fFqaxdLEd 00$"&f~~xcL 00U@ `@ (** 0% """ "0643pA $I00jRT4)KZV00|t?pa00@00p@A00`Lx`?p#00(%UT*@TJ*)%00PZ**)p%UUT00 dDdqxG1fd0000UT*% (UR**00aqp1A`00Pi@ ,R$)0%Y4@d`l(R% 00@%)i`% )+00HYq1X1Y`00HmL`q|A@3200PTTRp@@JJJ 0 "0(M,fq`|wd&0Y$00(JJ`@[T%00pp@00@00|?x?p001@s`@f00$UR*@ U**%0p? 0PRZJ*p@@UWRR 0003&|?pFH 0p?0$UT**@ $UJ*)00N|p?ppb0            00@  008@0@<<"$""&$$""00@  000000000000@ 00 `00000000000<0 @0@0 008@00   @0@  000@  000@"""""< "00@  000000000000 @00@ 00000000000 @pp@p@ 00@?00 | @ @| 00|pp 00@00% """ "00@L000000000000@ 0000000000000 @pp@p@ 0000 | @ @| 00|pp 000@0 "00@L000000000000 @0p? 0pp000p?0000            NA$""120 D$;"PR#1"* (9);"I"7 5);NA$I D$;"CATALOG"X D$;"PR#0"w :"Another? (Y/N>";:A$: A$"Y"120ut and keep it in the"J P:"disk sleeve. This will save you having"{ Z:"to boot the disk to see its contents." d:"Touch Space Bar to run. ";::"M";::" for menu =>";:A$: nA$"M"ĺD$;"RUN MENU" x17:"Input Disk Name>";:NA$  PRINT CATALOG'D$(4):34,0U:8);::"*>> PRINT DISK CATALOG <<*":(:"This program will output a disk catalog"2:"to a printer for a record of the disk"<:"contents. You may wish to clip the list" F:"from the printoN PRINT CATALOG"( D$;"RUN DISK>TAPE"@ D$;"RUN TAPE>DISK"` D$;"RUN DOS RELOCATOR INS.DT)"(8) FIRST PAGE"1 |21:T2)"< TOUCH KEY)"E T58,20:T35,20_ 21:T);">";:A$:A$k A(A$){ A1A990 A440,450,460,470,480,490,500,90 D$;"RUN DATA ONLY COPY" D$;"RUN MULTI-DRIVE INS." D$;"RUN IOB COPY" D$;"RUP MAKER"" "D$;"RUN DISK EDITOR"A ,:T)"(1) DATA ONLY COPY"b 6:T)"(2) MULTI-DRIVE COPY" @:T)"(3) IOB COPY PROGRAM" J:T)"(4) PRINT CATALOG" T:T)"(5) DISK TO TAPE" ^:T)"(6) TAPE TO DISK" h:T)"(7) DOS RELOCATOR" r:21:T);">";:A$:A$! A(A$)1 A1A810X A230,240,250,260,270,280,290,300t D$;"RUN DISK ANALYZER" D$;"RUN AUTO-MENU INS." D$;"RUN DISK FREE SPACE" D$;"RUN COMMAND CHANGER" D$;"RUN QUICK DISK TEST" D$;"RUN DISK MA(2) AUTOMATIC MENU"3 n:T)"(3) DISK FREE SPACE"S x:T)"(4) COMMAND CHANGER"r :T)"(5) CERTIFY A DISK" :T)"(6) DISK MAP MAKER" :T)"(7) DISK EDITOR" :T)"(8) SECOND PAGE>" 21:T2)"< TOUCH KEY)" T58,20:T35,20 a DISK MAGICIAN MENU-D$(4)::255@D$;"BLOAD MR"](1013,76:1014,0:1015,3t2 ** MAIN MENU **<:7);::"*>>> DISK MAGICIAN <<<*":F:8)"(c) 1989 by Adrian Vance"PT11:34,4Z:T)"(1) DISK ANALYZER" d:T)"     / |:"We will now BRUN MDC in order that you"M :"may proceed with it."U 20a 34,0:t D$;"BRUN MDC"A"RUN MENU"11:1:958! D611:1:958< A"space is seen."E" If you wish to print the free space of"t"a another disk, insert it and respond" :"N";::" to the next question."6000op24:1::"TOUCH ANY KEY TO CONTINUE OR ESC TO END";: zA$::(A$)27ĺD$;"the free space bit map of the screen."0_"the program displays each track from 0""to 34 and the sectors on the track from""F to 0. If the sector is free an ";::"X";::" is""printed. If no data is present a blank"36888,0:36889,96:36890,1936891,0:36892,0:36893,0X36894,0:36895,0:36896,0{36897,1:36898,239:36899,216h INSTRUCTIONS9:1" This program reads the volume table of""contents, VTOC, of the disk and outputs"*36865,144:36866,160836867,10:36868,32:36869,217X36870,3:36871,96:36872,0x36873,0:36874,1:36875,9636876,1:36877,0:36878,1736879,0:36880,32:36881,14436882,0:36883,145:36884,036885,0:36886,1:36887,0 " X "," X X"," XX "," XXX" AR "X ","X X","X X ","X XX"c\ "XX ","XX X","XXX ","XXXX" NUMERIC CONVERSION TBL NN(15) I015:NN(I):I  DATA FOR NUMERIC CONVERSION& 0,1,1,2,1,2,2,3,1,2,2,3,2,3,3,436864,169: T"@" R -----SECTOR----- R -----SECTOR-----"o" K FEDCBA9876543210 K FEDCBA9876543210"u LOAD TRANSLATE TABLETT$(15)I015:TT$(I):I4 DATA FOR TRANSLATE TABLE> " "," X"," X "," XX" H$(X2);TT$(X3);4 DFSFSNN(X0)NN(X1)NN(X2)NN(X3); NI_ X24:1:"---"FS" FREE SECTORS"; b24:25::"ANOTHER? (Y/N>";: lA$::A$"Y"Ľ:100 vA$"N"610 D$;"RUN MENU" " DISK FREE SPACE -- EACH 'X' IS UNUSED" " T  1000: PRINT HEADINGS' &I034T +(I12)2:1:((I2)2)((I2)2)1Ė21d 0I10ĺ" "; 5XVTC56I4: ADDRESS OF BIT MAP FOR TRACK I 7 46067 :X0((X)16):X1(X)X016:X2((X1)16):X3(X1)X216 <I;"-";TT$(X0);TT$(X1);TTETURN CODE# RC0VTC37120:500M 20:5:"AN ERROR HAS OCCURRED WHILE"p 21:5:"READING THE DISKETTE" 22:5:"THE RETURN CODE IS "RC   PRINT VTOC  2000: LOAD TRANSLATE TABLE 3000: LOAD NUMERIC CONVERSION TABLE:D1D2ī180M ,4000: LOAD RWTS JUMP INSTRUCTION, IOB, AND DCT AT $9000[ 6IOB36874t JIOB1,S16: SLOT # TIOB2,D: DRIVE ^IOB4,17: TRACK hIOB5,0: SECTOR 36864: CALL RWTS 72,0: RESET P REG RC(IOB13): CHECK R9:" Do you wish to analyze this disk?"Z 11::" (For another touch N) (Y/N>"; A$:A$"Y"VTC46011:500: VTC = VTOC ADDRESS 16:5:" SLOT NUMBER? ";:A$:A$:S(A$):S1S7ī170 18:5:"DRIVE NUMBER? ";:A$:A$:D(A$)#  DISK ANALYZER!D$(4))d:Ni5:10::" "qn6:10:" DISK ANALYZER "s7:10:" ":11:1:" Would you like instructions? (Y/N>";A$:A$:A$"Y"İ5000:150A$"N"130) :     IT MENU";::". This"G F:"will initialize the disk, rendering it"x P:"usable by any Apple II family computer." Z:" If you prefer to return to the menu" d:"type/input ";::"RUN MENU";::"." n(4);"LOAD AUTO-MENU"A AUTO-MENU INSTRUCTIONSD:12);::"*>> AUTO-MENU <<*":u:" We are now loading a very convenient"(:"automatic menu program. You may use it"2:"by removing this disk, install a blank" <:"disk and type/input ";::"IN  `PR#IN#P$):9;     ``=!`إ `E)/ Ԡȩ!i i#Т  Д`$ ɀ0ɟ8@T pi؅  eeл`USER GROUP05:" FOUND IN LINE ";LN%:"STARTING IN COL. ";CM:CMCM(SR$):CM(TX$(LN%))LN%LN%1@(16384)128Ĺ16368,0:A$:" ";:A$(32)845C825HFCĺ(34);:TX$NL$:4005:(34);" NOT FOUND"M2020:80"STRING TO REPLACE?" AUTO MENU 8/80A A.S. PROGRAM ENDS AT ABOUT $1120r ASSY. ROUTINES ARE AT $1200 - $1339 CONTROL CHARS. ARE OUTPUT AS FLASH CHARS. SEE NOTES AT LINES 350, 360, 680, 700  DAVID A. SIMPSON - OKC E",RB212ĺ"NO 'T' TYPE PROGRAMS PLEASE"A\I11500::510If:lp3:" TRY ANOTHER DISK? ";B${zB$""930(B$,1)"Y"930:3:" PLEASE INPUT ANOTHER DISK AND PRESS 'RETURN' ";B$140:3:" BYE!": 4ĹGO18,160$(B$)5ĹGO19,1600I131GGO19I,(ADDRI)N IV:{ 6,MOD(CTABLE):7,(CTABLE256)*GO4> SUBROUTINE USED ONLY IF 'B' AND/OR 'T' FILES ARE NOT TO BE ACCESSED.HB194ĺ"NO 'B' TYPE PROGRAMS PLEAS"X  IF 'B' PROGRAMS ARE NOT TO BE RUN THEN CHANGE LINE 670 TO 'IF B = 194 THEN 830'm B212B$"EXEC"  IF TEXT FILES ARE NOT TOBE EXEC. THEN CHANGE LINE 690 TO 'IF B = 212 THEN 830' I1(B$) GO14I,((B$,I,1)) I (B$)OR"4 "ENTER DESIRED PROGRAM NUMBER (1-";NUM;")";< &A$B 0Q :A$""470l D(A$)48(A$)57510x NA(A$) XANUM510 bA0870 l RUN PROGRAM vAA1 ADDRA32BUFFER B(ADDR) B201193B$"RUN" B194B$"BRUNHEXNUM(NUM10)16MOD(NUM)* D22568 NUMNUM1] 6,MOD(BUFFER):7,(BUFFER256)k 9,HEXNUMt 8,1~ 912 34,0:35,21 21 (8)HEXNUM430 DISPLAY 35,24:34,22 23: "RETURN TO CONTINUE, ZERO TO ABORT, ,(BUFFER256)g ^ TO STOP 'B' FILES FROM APPEARING ON THE MENU: 'POKEPACK+45, 43' NORMAL VALUE IS10 h TO STOP 'T' FILES FROM APPEARING IN THE MENU: 'POKEPACK+29, 59' NORMAL VALUE IS24 rPACK |NUM((7)(BUFFER256))8(6)321 D210 CTABLEREED265) BUFFER8192: $20005 DRIVE1@ SLOT6S IOB1,SLOT16d IOB2,DRIVEr "25,SECTR ,6,MOD(IOB):7,(IOB256) 6IOB6,MOD(CHAR):IOB7,(CHAR256) @8,MOD(BUFFER):9,(BUFFER256) JREED T6,MOD(BUFFER):7? d AUTO MENU nB$(10)BxMOD(D1)(D1D2(D1D2))D2MD2256_::16298,08:9:"**AUTO MENU PROGRAM**"SECTR15REED4608: $1200IOBREED44CHARREED61PACKREED65DISPLAYREED178GOREED252      I,1))128: 72,0:144: AC$"B6CF:20 42 AE 20 48 F9 A9 00 85 44 85 45 AC EF B3 88 98 0A 0A A8 A2" AC$C$" 08 B9 F6 B3 0A 90 06 E6 44 D0 02 E6 45 CA D0 F4 88 D0 EC 4C 42 AE" E500 J:"DISK FREE SPACE PATCH INSTALLED.": C$C$" N D9C6G" I1(C$):511I,((C$,B6D7:F4 88 D0 EC 20 42 AE A0 0C B9 EA B6 20 ED FD"r C$C$" 88 10 F7 60 D3 D2 CF D4 C3 C5 D3 A0 C5 C5 D2 C6 A0"{ 500 :"DISK FREE SPACE PATCH INSTALLED.": , ** CONDENSED FREE SPACE FOR NEWEST DOS 3.3 ** 6C$"ADC0:20 CF B6" ;500I @0 DB 60" }5005 ** NORMAL FREESPACE PATCH **G VER4899300^ C$"ADC0:20 B3 B6"g 500 C$"B6B3:20 42 AE 20 48 F9 A9 00 85 44 85 45 AC EF B3 88 98 0A 0A" C$C$" A8 A2 08 B9 F6 B3 0A 90 06 E6 44 D0 02 E6 45 CA D0" 5002 C$".":" <"ONE MOMENT PLEASE...":G d **FIX HEX TO DECIMAL ROUTINE**l nC$"ADAF:0C N ADB1:AE N ADB7:D0"u s500 xC$"AE42:A0 02 A9 B0 48 A5 44 D9 A4 B3 A5 45 E9 00 90 10 85 45 A5 44" yC$C$" F9 A4 B3 85 44 68 18 69 01 48 D0 E5 68 20 ED FD 88 1 =======================6 DISK FREE SPACEC PATCHa =======================(978)157ė:"CAN'T EXECUTE; DOS HAS BEEN MOVED.":I027:VERVER(46771I):(VER0VER4899ī60 2:"CAN'T EXECUTE; DOS ALREADY PATCHED     1 A$(I)A$(I)((A(I)X))6*(A(I)X)1282110@42070^>O$(I)A$(I):L(I)(A$(I))eHIkR\I114:C$(I);:2:"<"I">";:7:A$(I):If22:" TO RESET DOS TO QUIT"p20:"ENTER NUMBER TO EDIT =>";S$:S(S$):S$"Q"ĉ::3 :34,3?15:" INITIATING ERROR MESSAGES... "A(1)43380:A(2)43402:A(3)43413:A(4)43428:A(5)43439:A(6)43453:A(7)43468:A(8)43477:A(9)43486:A(10)43497:A(11)43509:A(12)43529:A(13)43547:A(14)43564I114 X1XX(28)43266I128X1)XX1FA$(I)A$(I)((A(I)X))^(A(I)X)1281540h1500xO$(I)A$(I)L(I)(A$(I))I"::" << ERROR MESSAGE TEXT CHANGER >> "0: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)43212: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:AO$(I)xJ1(O$(I))8(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)) + 128 J,I1060FA(1)43140:A(2)43144:A(3)43148:A(4)43152:A(5)43155:A(6)4316TO ACCEPT TO CHANGE":S$:S$(27)1060O(S$)131300Y 1270hI1(T$)(A(S)1)I,((T$,I,1))(I(T$)Ĺ(A(S)1)I,(((T$,I,1)))1282I<A$(S)T$FC$(S)"*"P1060ZI128dC$(I)""nA$(I)________________"020:30:I1L(S):"-";:I71o19:"ENTER NEW COMMAND TEXT... =>";T$:T$""1060(T$)L(S)Ģ22:" *** TOO LONG ***":122012:" NEW COMMAND TEXT:":(20((T$)2)):T$<20:"PRESS 10*t:" << EDIT COMMAND... >>"S~6:"ORIGINAL COMMAND TEXT :"O$(S)|8:"CURRENT COMMAND TEXT :"A$(S)10:"MAXIMUM COMMAND LENGHT :"L(S)" (CHARACTERS)"12:"COMMAND MEMMORY LOCATION:"A(S)14:"________________________15:C$(I);:2:"<"I"> ";:8:A$(I):I,84mBI1628:22:C$(I);:23:"<"I"> ";:28:A$(I):IL23:" TO RESET DOS TO QUIT"V22:"COMMAND TO BE CHANGED (1..28) =>";S$:S(S$):S$"Q"ĉ::300`S$"R"1370jS1S2811"  : :15:" INITIATING COMMANDS..."F X43139 1460: READ COMMAND TEXT AND THEIR MEMORY 'START' ADRESSES  ::" << COMMAND TEXT CHANGER >> "::34,3 $%.I1 :(4);"CATALOG":S$:300f ::"INITIALIZE NEW DISK (SLOT6,DRIVE1)":::"TYPE Y TO CONFIRM":u S(49168) (49152)217540 (49152)217(49152)128300 510 300 S(49168):(4);"INIT HELLO,D1"  (4);"RUN MENU 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)"RETURN TO MENU" EI1 ^100 hX11000,2000,3000,4000,400,500,900,950: Q 170 X7X0. X1X7B B(49168):140H , 1M$(1)"COMMANDS ERRORM. ENTRYP. VOL.HEADERCATALOG INIT QUIT ->MENU "x 6F$(1,0)"CHANGE COMMAND TEXTS":F$(1,1)"CHANGE ERROR MESSAGES":F$(1,2)"CHANGE COMMANDF$(I,X)""XX1 X1X_ 2:M$(I):2:(X101)::(M$(I),X101,10):1:L$:1:F$(I,X):n Q150000 (49152)149XX1:250 (49152)136XX1:250 (49152)160X4XX4:250 (49152)160X4XX4:250 (49152)141ĉ:-3 ::8:4:"Use the arrow keys to select the"^:4)"operation you wish to perform."gZ300rd MENUiA$(30),A(30),C$(30),L(30),O$(30),EP(30),V(30),O(30)nL$" "xX0:1:L$:4:L$:          LAG  GOTO 300 VS" "VTJ ,:" This disk is OK. Another?";X$l 6(X$,1)"N"ĺ(4);"RUN MENU"w @:130Adisk and touch key =>";:A$:* VT0347 VS012B TR,VTM SE,VEU I2_ 3072n PK(3095) PK128X$"READ ERROR":240 PK64X$"DRIVE ERROR":240 280 II1:I0190 VT;10);VS;20);X$ 3095,0: CLEAR ERROR F2SE3087: SECTOR+ <ER3095: ERROR CODEE FET(410):ERROR TRACK` PES(410):ERROR SECTOR Z169,12,160,10,32,217,3,96,0,0 d1,96,1,0,0,0,32,12,0,32,0,0,1,0,0,96,1,0,0,0,0,0,0,1,239,216 nI30723107 xV:I,V:I (15):" Insert the x QUICK DISK TEST( 12000:34,0:(5):11);::"DISK CERTIFICATION":(8)::" This program tests and certifies every":" sector for the disk now in the drive.":" Please install the disk you wish to":" certify."(TR3086: TRACK    *::"Statistical Summary For Disk Volume "("00"(VOL%),3):DL$:"All figures are decimal:"::4"DENSITY: "NS%" SECTORS PER TRACK":>"DOS Version: 3."DV%" ("("Unexpunged",12(TR%3))")":3W"Usage: "UK%" of "NT%NS%" Sectors ("(100UK%:READ & POST TSL SECTOR2J%HB%10:INITIALIZEWJ%J%2:J%HB%P%700:NEW TSLT%(J%):S%(J%1):T%S%600:NEW FILEB%DB%:C%ID%(F%):10:5:READ, POST SECTOR730:NEXT SECTOR ENTRY 23:1:958:"FILE SCAN COMPLETE.":50d" "F$I$F$1SC%(I%33):SECTOR COUNT22::868::"<";:GIVE,ID%(F%):"> "(3210LB%)FT$(FT%)" "("00"(SC%),3)" "(F$,28);:868:21HT%(HB%1):HS%(HB%2):HT%600:NEW FILET%HT%:S%HS%:B%HB%:C%ID%(F%):10:5:ERR600(I%):HS%(I%1):HT%800:END OF DIRECTORY?IlHT%DL%600:DELETEDwqHB%1,HT%:HB%2,HS%:PASS TSL ADDR DOWNvF%F%1:FT%(I%2):LB%FT%MSB%:FT%FT%MSB%LB%:I06:FT%FT%FT%2: FT%I:F$"":I3231:I$((I%I)MSB%):F$""I$O NEXT CAT SECTORHT%DT%:S%DS%:B%CB%:10:ERR9900:GET CAT SECTORoI%CB%11EZ%:INIT BUFFER POINTERX(KB)ESC%ĹKS,0:999Z(KB)SP%ĹKS,0:KB,MSB%:(KB)SP%ĹKS,0:PAUSE CHECK]I%I%EZ%:I%CB%P%500:NEED NEW CAT SECT/bHT%BAD",T%DT%:S%DS%:C%DOS%:5:POST VTOClT%(CB%1):S%(CB%2):T%B%CB%:C%DOS%:10:5:ERR485ERR9900:ABORT ON ERRT%17:S%0:B%CB%:F%0:10:ERR9900:GET VTOC AGAIN, RESET FILE #DT%(CB%1):DS%(CB%2):DT%800:CHAIN T:::OH%:I0UT%:H$(XL(I));::cOV%:I0US%:3:H$(XL(I));:OH%:J0UT%:GIVE,FR%:::C%DOS%:I0TR%1:T%I:J0US%:S%J:6::22:1:"<";:GIVE,FR%:"> FREE <";:GIVE,DOS%:"> DOS <";:GIVE,OL%:"> OVERLAP <";:GIVE,BAD%:"> 6@DV%(CB%3):VOL%(CB%6):DOS VERSION, VOLUME NOJNT%(CB%52):NS%(CB%53):UT%NT%1:US%NS%1:LA%(CB%48):TRACK & SECTOR COUNTS, LAST ALLOCATED TRACK:3NT%2:"TRACK":2NS%2:I16:("SECTOR",I,1):#2:OH%:I0UT%:H$(IX%);data only, no DOS disk? (Y/N>";:A$<A$"Y"A$"N"270SA$"Y"TR%1:290]TR%3"::"Insert the disk you wish to map."::50, MAIN PROGRAM1F%1:DOS'S "FILE NUMBER"6T%17:S%0:B%CB%:10:DT%T%:DS%S%:(ERR)9900:GET VTOCGIT5 DL$"---------------------------------------"T 6:11)"(1) SCAN AND MAP"r :11)"(2) INSTRUCTIONS" :11)"(3) EXIT PROGRAM" :14);" XL(I)IX%(IX%):LOW HEX DII::X1%26:X2%61:X3%96:Y1%176:Y2%48:Y3%112:I19:ID%(X1%I)Y1%I:ID%(X2%I)Y2%I:ID%(X3%I)Y3%I: P2(16):P2(0)1:I115:P2(I)P2(I1)P2(I1)::POWERS-OF-2 ARRAY OL%42:BAD%63:DOS%170:FR%174:OVERLAP, ERROR, OVERHEAD, FREE BLOCK CH; DELETED ENTRY; IN-USE FLAGS }H$(16):I015:H$(I)::I07:FT$(I)::0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,T,I,A,B,S,R,A,B:HEX DIGITS, FTYPESl ID%(105):X1%0:X2%35:X3%70:Y1%192:Y2%0:Y3%64:I126:ID%(X1%I)Y1%I:ID%(X2%I)Y2%I:ID%(X3%I)Y3%723::958:23:z dI0:J%I:I%I:F%I:T%I:S%I:ERRI:HT%I:HS%I:JI:KI:P%256:C%I:MSB%128:X%16:B%I:HB%I:DB%I nI(175)P%(176):RWI114:GIVEI10:RWTS I/F, GIVE-CHAR ADDR xUK%0:BK%0:OK%0:DL%255:FL%(35,16):USED, BAD, OVLP COUNTS`-::9);::"*>> DISK MAP MAKER <<*":6100LFL%(T%,S%)İ9100mF%1DK%DK%1:OVHD COUNTFL%(T%,S%)F%:UK%UK%1:OV%S%:OH%T%:GI,C%: RW,RD,T%,S%,B%,ER:ER90002KS,0:"TOUCH ANY KEY>";:A$:A$(3)Č998::        DNX1 'X#'DN255DN0EF1)'=*: DRAW SCREENV +1:1:"VOL-";(792)j+3:1:"0 EXIT"~ +4:1:"1 HEX "*+5:1:"2 ASCI"4+6:1:"3 READ"9+7:1:"4 EDIT">+8:1:"5 SAVE"H+9:1:"6 ^T/S"R+10:1:"7 NEXT" W+11:"A"İ1300010001' CONVERT HEX TO DECIMAL:'EF0U$'CV$"0123456789ABCDEF"h.'(H$)110070{8'(H$)210080B'(H$)2EF1:L'EF1:V'H$"0"H$`'DN0j'X116t'(H$,1)(CV$,X,1)DNDN(X1)16~'(H$,2)(CV$,X,1)DN0000SS1:S0S15,:S15T18TT1:DT0T18ONS15T17TT1^XT34T17|b15:3:" ":18:3:" "l15:3:T:782,Tv18:3:S:783,S790,1:768KB(791):KB16KB32KB64KB12820000F$"H"İ12000 F$:" ";T;" ":782,TG22:7:" = EXIT" F$"A"1530  HEX CHANGE NV:NH"<=TOUCH KEY OF COMMAND NUMBER)";:3:" ";:3:DN$D :DN(DN$)X DN0DN91000q DN0ĺD$;"RUN MENU" (DN$)651000 DN(DN):DN1DN91000 DN1060,1080,1790,1100,1680,1720,1840,14000,15000 $12000 .1000 813000 B1:"WHICH SECTOR? (0-15) =>";:DN> DN(DN):DN0DN15250N SDN:783,SY 790,1 "768:KB(791):KB16KB32KB64KB12820000 ,11000 612000 @1000 16368,0:KB(16384) KB(16384):KB128440 16368,0:4 22:7:nctions much as a microscope."2 D$;"BLOAD DS1"F D$;"BLOAD DS2"w :" Please install the disk to be examined" :"and touch any key to continue =>";:A$ ::"WHICH TRACK? (0-34) =>";:DN DN(DN):DN0DN34220 TDN:782,T! +! 16384:M(15):D$(4):34,0:BUFFER16384:20000b:11);::"**> DISK EDITOR <**":(:"This program will permit you to examine"2:"and change sectors on a disk. Where it"<:"examines the disk at the byte level, it" F:"fu            i 8 Ӡ$ [$ [ L hh L@ HH`,,, `ݩ ɰ$0 ` d' E 2 0 1 0 1 7 7 .  + / C 3 #ЈL 3 4 .4 g3 i$0 i [0 5 6 0 /   8 ĠҠ L / / , 00 00 Ј4 LQ 3 3 #0 LC `$ [6 5-   87  " 8 ҠǠà L $ [ 8 ŠϮ i 8 Ԡ˿ W 2 .   8 ԠҠ L - 2 3 1 0 + / 7  C 3 2 3 X 8 ŠҠ̿ W ɱɲ%֢- . 8 ǠϠŠ!- . 8 ǠϠŠ $ [ 8 ưưt, $ [0 1 2 5 6 !! ! ! ite as" 620@ @:"follows: *080B-04 01 04 02 and so on..."q J:"The system can handle up to 13 drives."y T20 ^ HOME : PRINT "To save the altered copy program to a" h PRINT : PRINT "disk type/input: BSAVE MDC,A$800,L$??" r GOSUB 2005 02" :T)"080B- 00"0 :T)"080C- 00"; 34,18l :" Bytes 803 and 804 determine the read-" :"ing drive and first writing drive. Suc-" 20 ":"ceeding bytes determine the additional" ,:"writing drives. To add drives, wrnput 'CALL -151' and you will"I :"see a '*' cursor for The Monitor."Q 20 :"(3) Now Type/Input '803L' and you will" :"see the following:" T15 :T)"0803- 06 01" :T)"0805- 06 02" :T)"0807- 05 01" :T)"0809- 2,"4 P:"Slot 6, Drive 1 and Drives 1 and 2 of"e Z:"Slot 5. Additional slots and drives may" d:"be added in the following manner:" n:"(1) BRUN MDC, the program, and get the" x:"the cursor, ], with Control/Reset." :"(2) Type/Iu  30,:15)"Touch Key =>";:A$::^34,0::9);::"*>> MULTI-DRIVE COPY <<*":p(34,2:D$(4)2:" This program is now set to run four"<:"disk drives from Slots 5 and 6, reading" F:"Drive 1, Slot 6 and writing to Drive "" " " "