KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 1 NORTH 105TH WAY FSCOTTSDALE, AZ 85259 USAF(& BE A REGISTERED OWNER)FLOOK FOR FUTURE VERSIONSFAND OTHER UTILITIES SOONFPLEASE FEEL FREE TO WRITEFWITH COMMENTS & QUESTIONSFOK TO COPY THIS PROGRAMFBUT NOT TO SELL!KEDIT F1 = -FBYTE MENU1-FEXIT-FDRIVE-F EXTENSIONS-F UNEXTEN.-F @DISK CMDS-F F7 = -F ABORT4@xC)e%IR˞(= AFTPUG FREEWARE PRESENTS:ER4ODIRECTORY ASSISTANCE FF(C) 1984 BK V3.04n+RhR!R˞(K- 0 14 =. d2 15 =(ORˊ(6Rˊ(66 R\ˊ(6\^FFC!FRˊ(RF(RF-3-3-F (C)1984 BY-F MIKE EMBRYRF KEˀ˱K˳H1ʱFG1FF1J²ـF5ƱF4̳FXF8I1I2I0I3I4ƲGHF6F7ԱԷCBαβKK!!!!!!!Ca8UU8U( a8UփU)ђaRU8U( 2R˞ (jF .?Rd0baRKљaCaR%( =$R($RP$Rx$ά(CpF *-05F06F*-07F0J( RAђaF1085KY MIKE EMBRYGFIF YOU FIND THIS PROGRAM 5FUSEFUL, PLEASE SEND $20, 6F$10, OR WHATEVER YOU 7FTHINK IT'S WORTH TO: JFEFFFFGF5F6F7FJFMIKE EMBRY F1085KR ?^F -FLOAD F3 = -FSAVE MENU2-FUNDO-FMOVE-FSWAP-F FORWARD-F BACKWARD-F COMPACT-FINSERT-F REPLACE-FDELETE-FHEADER-F ALPHABET.^F -FKK̀AATԴԵ CHECKSUM ERROR IN HEADER 29, DISK ID MISMATCH XXX EXIT ERROR MAKER,GOTO MAIN MENU / BCCD) D(iPi ɑ CCL0 CCL0 `` `41O 31 B Ʌ2 B ;d "TYPE "Q$"1544"Q$" AND PRESS "Q$"<>"Q$Z "IF ONLY PART OF THE NOTE IS VISIBLE."'=s.JwWϒges)u]>J{>Jtu_%+Vse+9%w5r)r\)v\>J}ݗɒ*RzJMdٮRz)KV%+9%u_))z\us\6J{Y)u\:Jry{)v\>Jt)JT = NAME NAME: DISK SELECT (A/B):A ARE YOU SURE (Y/N):N `kN'] BH  hѠ) B7х  eik ' t) (C & CikCɑ CC ` - B ` SUMMARY OF CBM DISK READ ERROR MESSAGES 20 BLOCK  ;4 /3 B L}3  Li( 0)`B M - W    i ii iBBЭ` M - E   Lf 4t BhhLE`HIS FUNCTION WORKS ONLY ON A 1541 DISK DRIVE. s KI)$u,tssLK` st H h `F$ a cts,tK eJLr#Wussst a  H h    `CD  EADING...HHi` Hbd *HH` M - R   H hٚ*`*o*n*l*m*k* **q*p*g*h*it0`6 g 'L  4 L1M1N1N1 81 0 M1bL1c8 I j=1 B1 Ի ݽB1 G1 gG1 Ի Ӡ  `L0d0 x     !" U V,,,0L&DC&&&&&e7eCEEi 7[ 0ȭ\iii%ii iEDDЩ` BAM ALLOCATION DISPLAY PRESS CRSR UP/DOWN TO VEIW PRESS RETURN FOR MAIN MENU TRACK# hTiHEADER NOT FOUND 21 SYNC CHARACTER NOT FOUND 22 DATA BLOCK NOT FOUND 23 CHECKSUM ERROR IN DATA 24 BYTE DECODING ERROR 25 WRITE-VERIFY ERROR 26 WRITE PROTECT ON 27 CHECKSUM ERROR IN HEADER 28 DATA EXTENDS INTO NEXT BLOCK 29 DISK ID MISMATCH 66 ILLEGAL TR.. Lv3 ULK ISK RASER  LACE DISK TO BE ERASED IN DRIVE AND PRESS [] .. RASING ISK LEASE AIT. RESS [/] FOR ENU, OR [] TO ERASE MORE DISKS. 2 B `3 3 D4DCD wE E4 hEED KCJmIIFiFiL6$FF CL#   `P  $     `WRITING.. WRITE ERROR.. READ ERROR.. SPUL M####eMMMpM++,,,,,BBBCCCCC&8050 2.7 9060 3.0 4040 2 1541 2.6 2031LP2.6 MATOR V1/FW 4040 2 ,,8 Nj ) X` ISK PEED EST HIS REQUIRES YOU TO INSERT A DISKETTE THAT CAN BE ERASED!!! TO ABORT HERE, PRESS . RESS F1 TO START SPEED TEST HEN ANY KEY TO STOP TEST! W `7хgnF4DDEE4^4~4~4~4 i iEiEFFDоk4T4W ``FEE4~4~4~4i iEiEFFk` AqG`CH_TȱACK OR SECTOR 67 ILLEGAL SYSTEM TRACK OR SECTOR PRESS RETURN FOR MAIN MENU ERROR MAKER SELECT (WITH CURSOR UP/DOWN) THEN PRESS RETURN 20, BLOCK HEADER NOT FOUND 21, NO SYNC MARK 22, DATA BLOCK NOT FOUND 23, CHECKSUM ERROR IN DATA 27,f7 )K-&.)0&d2)4&5)( (RD.?FCURRENT DEVICE #FCURRENT DRIVE # 4kFNlFCHANGE DEVICE #? Nҫ=#RDFYBVkF8lF NEW DEVICE #? ҫ=#RDB?!RR ҥ@VkFNlFCHANGE DRIVE #? Nҫ% B 4 `Ȍ]% B   @AC8AY% B  @Yк Yb:N` ]芢  ` LE FORMAT A DISKETTE NAME OF DISKETTE EG. FULL = NAME,ID FAS `4Lv3 ULK ISK RASER  LACE DISK TO BE ERASED IN DRIVE AND PRESS [] .. RASING ISK LEASE AIT. RESS [/] FOR ENU, OR [] TO ERASE MORE DISKS. 2 B `3 3 W ) 0A4 T4WL(CiiHH H CGЦ_`Tʆ&&&&&e7eW) HT 7[ 0\W 7[ 0\`oTlWH_ ) 04 T4WL)_` RHd`   *Hdt0fH`I0*** HUNT *** STARTING TRACK :1 ENDING TRACK : ASCII OR HEX :A PRESS CONTINUE , ABORTFOR THE MAIN MENU MATCH FOUND! INPUT SEARCH STRING : INPUT SEARCH NUMBERS : ( BN]LtɝN N]LN]LLɓN`ML]L ɍL,0P^_KLmMmN,p00): A!Gi )H4 4h44]LL4]L BLGLc+ TkTLTL-"WTkTTWG !g BLE |  C8mDGDCLDLɑDDLCCL` L! CmD !ILAЊH !IhGLLC !@ECFii ȑȑ ɠ |    X` 7Z `H h 7 ȑȑZ`B0Z[\Bd 8dBZLEB 8 B[LXB 0\Z0ZZ [0[`T = T S = W ` B B(륐 OR - PREV SECTOR H HEX EDIT T TEXT EDIT R REWRITE P PRINTER DUMP PRESS '_' TO FINISH EDIT MODE  REWRITE? TO DRIVE:A TRACK: SECTOR: DISK ERROR :  &&&ei`MNB NCBL CiPiBBйNL` X&)p X p 8``8` d X&)p d X p 8``8` H  - `RK Bk  - RٍS\ B  @DAH` Bu  B' DH)'0 Y ?(0BLrYu) DYD(Y'LLYYRTW 5 4=( WLLR t B  @AC jL8A ` j BT  - RG BW  - U& \!  B  B YNj  j LB rLcrrr6T6W&f  t u ȑv ȑw ȑ/!CmDF 'Ii(iiiFFG EE`L*DEL*SEQ SEQ*PRG PRG*USR USR*REL RELDEL)HȘ2/FEȹȄ?EȱE -@@@@@?@$@@";18'"@/@@@@@@?@ @@Ғ@߿ߒ@@ޒ@>@@";Q1B'"@@@@@@@޿@@@@@@^@ߒ@@@@@@";1L'"@ߒߒ@ߒ@@@@!@@ ߒ@@@ߒа@@P@";1V'"@@@@@@ R%љ(F'  FILE LOCATOR FSEARCH STRING: #FRRRRRRF#)R#ˊ(RC0(RRbRFU1:5,0"&)RB)F& FTRACK:"F SECTOR:&F RFJJJJJJJJJJJJAAMMMMMMMMMMMMMM";4'"MMMMMMMMMMMMMMMMAAGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGAACCCCCCC";J4'"CCCCCCCCCCCCCCCCCCCCCCCAAJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJAA";m4'"MMMMMMMMMMMMMMMMMMMMMMMMMMM"4'209,253:210,194:211,0:213,2554'"MMM"4'     ,   .    ,    .        ,         '?'. fLt---- ELECTEV#RIVE#YPE OS A B  ** CHANGE DISK DRIVE SPEC'S ** + , - ALTEL5hh0h/h/h/h/h/L& h/L& !9H:HH/9ȱ/:L, 9:9/0 &0 &0 &08//080i(0/)/f/e/dL& /f/e/d/c/b/aL& 9:9/0 &0 &0 &08//080i(0/)/n/m/lL& /n/ULK ERASESPEED CHECKERROR MESSAGESEXIT TO BASIC OPQAOPQ` C` $0:)QPBO .P .PmOOPmBPO.PmOOPiPL< A @@H@I 檬@h `;ɝ Lj@L?ʤ?л вiE 'E)bcjkjbȱjbE`X78_N5`O64~3xvX0 ' 'N N '8fX 'XSFXN_ȱN_" '56 'N_^"NO43 'N '0L'" '56 'L(@@@@@@ߒ߿ߒߒ@P@"1`'209,255:210,192:211,0:213,25512j'"ߒAAAAMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM";s2t'"MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM";2~'"MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMGGGGGGGGGGGGGGGB-P:5,0RFM-R:ОFR`R`*\*RRRdklmRRB$+,ώ-F`!ˊ8(RhFh(`؊ iFR ˊ8(FR Ў"&%ˊ8(% n#s*#9*ӭܙ ۙ/ڈ L    TEOMLBAX AٙQQS4HSSIPBJ@SU@CE T͚SLD D QDTSEBE@E>E<SCHܙL̀LޙK1xK2xA7 R DEVICE NUMBER 0 , 1 SET DRIVE NUMBER [CRSR UP/DOWN] SELECTS DRIVE TO CHANGE S SWAP DRIVES A AND B [RETURN] DONE , GOTO MAIN MENU SECTOR EDITORHUNT FOR MATCHDRIVE SPECS2 DRIVE COPYDISPLAY BAMCATALOGFORMAT A DISKB ɑɓɒɍɔ94 | A@L @44AL6 @L AA 숱ȑ@ L @)?` @` I jb L^"j` ˩ ^`#0 ^`TWWWT`Tm/l/k/j/iL& 9:9PQ &Q &Q &Q8PPQ8Qi(QPXP0VePdPL& pp8 # P  L%fPePdPcPbPaPL& Ь͠P2%P$P$ȑ$f2 dȱe kdPiQeȊefPePdPL& S` L B  4 jbY  T BR , U X`B-P:2,0U2:2,Z,U1:2,Z, jba \ BT , W  B B4_  M - R jb) mp q(i    '5634` 'I8eNONO`I8e_`_``N"`  dF SEARCH STRINGгc#eFBYTES TO CHECK (10-255)гj*aR GGGGGGGGG";2'"GGGJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ";3'"JJJJJJJJJJJJJJJJJJJJJJJJJJJJJ"B3'209,254:210,193:211,0:213,2553'"JJAAGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGAACCCCCCCCCCCCCCCCCCCCC";3'"CCCCCCCCCAAJJJJJJJJJJJJJJJJJJ:L& 9ȱ9:9L, 9iH:HHL5hɤ h:h9L&  D Lਊiۊi e? /9/64ȱ9/e99:9L:L㨊e9H:ȘHHԱ9e99:L& dHeHfHHL& p #aHHL& hhfhehdL& h`L& hh m3m3le3$4%de$e$/33d3e4f2 _L& dldlLL em$n%ll uL& ed8l_eem$n% uL& kL& ݽȄeȹdf kL& eȄ$Ȅ% uL& dfL& `L $ p< $ E$"Ș u9A _LJ!L& AX/)?$/0p"0 m c0 L% cAeȱAd d cAeȄH$H8eAAB`AB"Ȅ#`*lABeȄfȱA\)?d$\pȘ cL%ABL& de Ɯ` BӅeL&   ̼  $$ML79%i9:Hȥ:ȥ9E3*HEdEȥeEL& de H L&   DHL8LH  HL2 h/h0hmhlhh @ lm @ 0H/HHLL& deaɐ) %c```%bc`?x(L0h e L& e L& e L& L& h?h@?@hL4 hehdl? ehhfhehddfe K"HXH +,L9 _ ?@l?,:66%%%%&%%%%&I&`&o&& L& L& & ` 9 jkIkkjnlmijkjlki in`ik&j8iIiiifjfk`L~来iɐiݥ LHlm`8$nƝi `来mImlIlml騥i)Fjj L{% d%lde%meL& % dldemeL&  K`朥 K `de ƜfEnoa L&  L%kl%m$e?d@p-cmRm&lldmeL& deL& imeldL4i %l$mLVL&  fEnoa {L& %$ @? ƜLv LdedȄL& e"f#d  L& BL& d=ȥe=L& 9=9i9:9>0O=dȑ=ȥe=L& pp   L a=eӥbȦf0)=ȥc=ȥd=ȥe=L& =20=/=/ȑ/f2dȱe kd=eȥ>ef=e=d=L& 9Iȱ9J9i9:L, 9/9i9:90`\ nhmhlL& hhL& de膜L& ml膝L& deL& lmL& ʎ7L& LO#)@U fL[7\膜 ; ).ǽ$-\+ .@0:Lf B p L%Ƚ9,6 :0.EȤ;" p  #Ɯ;` K`ln8dmi`mZʊee$f% uL& e`L& 8lee)ʊem$n% uL& deedȄL& LH &831e42dL& / 朥ed &d &deeedeIeJ/>=>L& /0/Laȱ/f bȱ/cȱ/dȱ/eL& /  L&  9 edL& fd LL& d0eȈ` L&  Ɯ  qL&  L&  dL&  kL&  L&  L&  L& H%H d0>fle l l de/h$hhL dLH` de` ( f FhEp E Ea0 EdȱEe _EdȱEehmhl 0LeemedeldpdeEdEhmhl 0.ld0Ad0l0 Lme.h:h9XL& LL(ld0d0lLemXhhL& E! EȱE fEnoa j LLHHWH0de E8Ln Efo:L, LL9Х de Ɯ` `.ldldmeme` `h`hp` Lde ƜL 0/ Ɯ`eIedIdedL& fIfL& %e/emed0eldpL&  fEnoa jL& >L%8e/meed0lddpL&  fEnoa S 朥dIdeIeL& H)6+ H)-" H)$ H) H) H) deL& deL& %%d0l0ld0 em```  f0n`n I)`aiƨƥbjлckгdlЫemУ`a ed9e99d(l ldem d```l` )5LS )+LS )!LS )LS ) LS )LSdeL& deȄL& L5 &e$f%dd6Ȅ/43/ʆ43ef33$3$342F`f`LX8delp/3/43l8I$Jʆ%$P/0Fdfe /eP/0eQ0P&Q楝 K/eme0eld\PR0 L>LiJL R0DL'd  "9#:$1%2ABK" " K"L& "("8473AB"/"0/ɖ L% Bӈ80 A"eeeB"eddp ڥ\ L9AB L& _L _L de膜`EddEeeed`9:`L`, "=L& /0/dȱ/eL& / e d*eeedeIeJ/J=>L& 0/ȱ/dȱ/eȱ/fL& !L !L !L3 !/lȱ/mL& !/iȱ/n jȱ/kȱ/lȱ/mL& !/lȱ/mȱ/nL& 9=9i9:9>  L /L& deL f L  朠edL& B 0 :)eL%L Ȫ$Ȅ% uL  e/  e0  edLr E/%0L& /LV !/90: `8LK\^#def  e  e  e L&a j`EWhW   HLkLEl0m/ n Efoa j hh    L:9 @ 0/ @ EHFHHL& E`E`xhL0/h9Fh9E9i9:$/f/L/ i LiLlmƝjkI*jIL& >L%8e/med0ldp L&  fEnoa SfIfL& >L%{l%m$ibcjkEFe/d0El\FdfebembcelcjeEjkeFkm&l&E&F֥becdE\0kjk iL& L[iL fEnoa +L& %$  AL %" "ENTER PROGRAM NAME ";PN$9 8,8,8,PN$",P,R"G#8,A$,B$("START ADDRESS OF ";PN$;" IS:"(A$(0))256(B$(0))28:ܙ ۙ/ڈ L L    ܙ ۙ/ڈ L L            #8        #9        . & DISK COMPARISON FOR TWO 1541'S0 100U ----- READ ERROR CHANNEL -----8,E8,M8$,T8,S8:E8"D8: "E8;M8$;T8;S89,E9,M9$,T9,S9:E9"D9: "E9;M9$;T9;S9(1 ----- CHECK SECTOR ALLOCATION -----2B4T1:S15BB1 <S7 T)16: rT135:400:; |SABL$:"DISKS ARE IDENTICAL!":999c "DISKS ARE NOT IDENTICAL.":999  ----- READ A TRACK SUBROUTINE ----- BA%(4T)TR(T)1BL$:"TRACK"T"IS EMPTY.": S0TR(T):50:E0420BL$:"TRACK"T"SEC fLt. (147)" GET DIFFERENCES,8 "RE-RUN THIS PROGRAM AND TRY AGAIN.":Z BA%(143),TR(35),BI%(7):SA1z Z$(0):I07:BI%(I)2I: 8,8,15,"I0":9,9,15,"I0" 20:E8E9 2,8,2,"#":4,9,4,"#" 20:E8E9 "READING BAM..." 8,"U1:"2 32,198,255,160,0,32,207,2552 153,63,193,200,208,247,32,204T( 255,160,0,185,63,192,217,63v0 193,208,7,200,208,245,169,08 240,2,169,255,133,251,96ܙ ۙ/ڈ L L  $  ܙ ۙ/ڈ L L  $                .           .  (2073) PETSPEEDLL"x(y(z((~*vm"K}  &/ (2< ii!#  y#! ,R9%]BKTfox=I#s"L"Z  m O#K33R?LF xW fLt& DISK COMP BB1* FM%S8:M%SM%8:EBA%(B)BI%(M%)0 PO c ----- MAIN PROGRAM -----} d"DISK COMPARISON PROGRAM FOR TWO 1541'S n"BY R. L. WEISSMAN 5/14/84 xAX4915249214:I:AX,I:TTI: }T9464"DATA ERROR!": 2:4:8:9 "INSE TOR"S"NOT ALLOCATED.":52028,"U1:"2;0;T;S:9,"U1:"4;0;T;SC20:E8E9a8,"B-P:"2;0:9,"B-P:"4;049152: READ & COMPARE SECTORS(251)0510BL$:"DIFFERENCE AT TRACK"T"SECTOR"SRSA0:"CONTINUE N";C$(C$,1)"Y 0(/(/ȩ/f2dȱe kbȘdeȩ(efb(d(e(L& Р(/  /L pp8 #ed(aE"ɐ) %c 𾪽%bca(b(c(d(e(f(L& (J((L& 9) L L Lf L L3 L LB LT L Ȅ9eȱ9d9 ;0;18;0:9,"U1:"4;0;18;0! "20:E8E9? ,8,"B-P:"2;0:9,"B-P:"4;0e 6B0143:#2,A$:#4,B$:A$B$330 @"BAM'S ARE DIFFERENT!":390 JBA%(B)(A$Z$): OBL$ TT117:TR(T)20::T1824:TR(T)18: ^T2530:TR(T)17::T3135:TR( B"de}A"ed}B"d b bi/! о! de! f` תL& e ;eL& e8Ӑ  ;L& de"f# %L& 8 Iiע#ʆ"L% h(hmhlHHHlHmHdHeHHL& D hإd%e$ (  dlem%d$eL HHH fLt (2073) PE @ n [ O I U  U##!$v$$9:9   L L L &?'@l?()(f(d(epL& p(a(b(c(d(e(fL& ()(n(l(mL& (i(j(k(l(m(nL& (e(x0 d(e(L& b(2 @ %$ @ HL& h ( HHH @ L hh L h?h@?@h`l?h?h@?@aHl?HHHdHeHHHHL&  Lc aHHH HHHHHL& h%9EHȱ9FH$% i L ii08i FEʆH%e$ RT DISKS AND PRESS RETURN. A$:A$(13)150\ BL$" " BL$:"IF YOU GET ANY 'DEVICE NOT PRESENT' "ERRORS, START OVER BY TYPING 'RUN'. :"IF YOU BELIEVE THE DISKS SHOULD BE "IDENTICAL, BUT YOU "999520!BL$:"TRACK"T"SECTOR"S"OK.):N ----- CLOSE FILES & EXIT -----b2:4:8:9:: ----- MACHINE LANGUAGE ----- 32,204,255,162,2,32,198,255 160,0,32,207,255,153,63,192 200,208,247,32,204,255,162,4 i9:L& Ȅ9mȱ9l9i9:L& 9`9i99hL) dȄ9e9:L& lȄ9m9й:L& 9:ifeȱ9dee9::L, 9:inmȱ9lem9::L, ȱ9ȱ9:9L㨥 ݽL ;L& d - LL b8eA"ed 0 "SHALL I SEND "NDN$D "TO THE DISKETTE ON DRIVE"DV"? (Y/N) ";:200V Q1$"N"1350` 1270 Q1$"N"400:MD18:1170 1210 MD21:"BE PATIENT...." 15,"B-P:2,144":100 2,NDN$;:100 15,"U2:2";DV;",18,0":100  d BULK ERASER - 15415n"BULK ERASER - 1541"Vx"INSERT DISKETTE IN DRIVE"}"ERASE THIS DISKETTE Y";Q$Q$"Y""ARE YOU SURE Y";Q$Q$"Y"15,8,15I023DD$D$(D)I 15,"M-W" ܙ ۙ/ڈ L L  #             . ., 32$  0,254,169, 1, 76,105,249,234ܙ ۙ/ڈ L L  #             . d59468,129n"DRIVE ADDRESS CHANGE PROGRAM"Yo"TURN OFF ALL DRIVES NOW"~p"EXCEPT THE ONE TO BE CHANGED."x"OLD DEVICE ADDRESS 8"; OD: OD8 OD15 120"NEW DEVICE ADDRESS 9"; ND: ND8 ND15 1 ܙ ۙ/ڈ L L                     ,      .  P0$:"PLACE DISK IN DRIVE"DV""- RE$:200D $15,"I"(DV):100n .2,8,2,"#":15,"U1:2";DV;",18,0":100 815,"B-P:2,144":100:DN$"" BI116:#2,A$:DN$DN$A$: LMD10:400: F V"THE PRESENT DISK NAME IS":"" ` 5)""ZB1 440 ST 1000E15,"M-R"(172)(16):#15,ZC$:ZC(ZC$(0))f ZC1 MT12: : 8050 V2.7 ZC2 MT12: : 8250 V2.7X15: 15,OD,15b15,"M-W"(MT)(0)(2)(ND32)(ND64)v" DEVICE ERROR "ܙ Ƙ15,"I"(DV):100:2 (F1:P0$:1060:F0<2"THE NEW DISK NAME IS:R<""(34)DN$(34)dF2:MD21:400P"ANOTHER DISKETTE? (Y/N) ";:F$ZF$"Y"1040dF$"N"300n1040ܙ ۙ/ڈ L L   (0)(4)(24)D$ T1359 "ERASING TRACK"TD SEEKP JOB176Y 360g  EXECUTEs "JOB224| ,360 6T @"DONE! " J15 T ^ JOB QUEUE hTRY0 r15,"M-W"(8)(0)(2)(T)(0) |15,"M-W fLtd59468,129  DISK TIMER8 BYV A.E. KRAUSE("";:" 4040/2031/8050/1540/1541 "2:" SPEED CHECK PROGRAM"<" BY A.E. KRAUSE"F:P "DISK DEVICE # = 8";DVZ 15,DV,15d "DR 40 300: FIND DRIVE TYPE9 600: CHANGE ADDRESSh"THE SELECTED DRIVE HAS BEEN CHANGED...""NOW TURN ON THE OTHER DRIVE(S)",: IDENTIFY DRIVE TYPE615:15,OD,15@15,"M-R"(255)(255):#15,C$:C(C$(0))J ST fLt (34)DN$(34) jMD13> t"DO YOU WISH TO CHANGE IT? (Y/N) ";:200P ~Q1$"N"1350d  Q1$"Y"1130n MD16 "ENTER NEW DISK NAME":"LIMIT TO 16 CHARACTERS " 200:(Q$)16M2:500:MD18:400:1190 NDN$(Q$BL$,16) MD21:40 OP PROGRAM"3" CORRECT SPEED IS 5.00 +/- .050"J15,"U1:";2;DR;T;Sa15,"U1:";2;DR;T;Sp K1 KM(V0) A4,0: A3,0:A2,0:A1,0T1TIME J1KL15,"U1:";2;DR;T;SJT2TIME"(V1) DT(T2T1)60:340,CC(A4)6B1(A2):B2(A1)@@B(B1 (1516))1610(B1 15)OJDTBB210{T" ";KLDTYU^Z$:(Z$"") 15:h Kr|ܙ ۙ/ڈ L L     "(1)(0)(1)(JOB) TRYTRY13 15,"M-R"(1)(0)? #15,E$R E$""E$(0)^ E(E$)o TRY500470~ E127390  15 "FAILED"   21 ERROR  32,163,253,169, 85,141, 1, 28  162,255,160, 48, 32,201,253 ܙ ۙ/ڈ L L                        /         . IVE # 0";DR$:DR(DR$)9n "CHECK TRACK # 35";TR_xV0:((59459)0) V1:KL40:140A156328:A2A11:A3A12:A4A13:KL10015,"I"DR$ 2,DV,2,"#2"TTR:S0:KM100:YU0.03"";"ENTER SHIFT C TO ST 1000#T C254 MT119: : 2031 V2.6E^ C226 MT50: : 2040 V1.2gh C213 MT12: : 4040 V2.1r C242 MT12: : 8050 V2.5| C198 40015,"M-R"(234)(16):#15,ZB$:ZB(ZB$(0)) ZB0 MT12: : 4040 V2.7 ܙ ۙ/ڈ L L .        18, 0.       ""               NOT WASTED TIME.":198,0:-( "ON'T BE AFRAID TO MAKE A FOOL"#.- " OF YOURSELF. F YOU DON'T, SOMEBODY"D.2 " ELSE WILL!":198,0:c. N1(SSI)((SSI1)256). ""20)""(N1)" ". X1750:. ""20)  ""14)"DOS CHANGER"+19)"BY"F14)"ERIK MOSEID"w("THIS PROGRAM WILL CHECK THE CURRENT DOS"2"TELL YOU WHAT IT IS, THEN IF YOU WISH,"<"IT WILL CHANGE IT TO 'A' (NORMAL 1541) F"INSERT DISK TO BE CHECKED " PX$: X$""80% 3000:4000D " DOS IS ";DS$;" OR "DSo " DO YOU WISH TO CHANGE THIS? (Y/N)" 500:X$"Y"250 25)"A" "ENTER NEW DOS (A/E/ETC)";P$ 7000:4000 " DONE....WILL NOW DOUBLE CHECK" 130! fLt CHECK DIS915,"B-P";3;2 |3,P$;' 15,"U2";3;0;18;0- ܙ ۙ/ڈ L L          (   )             2A$"":I1255:A$A$(255(IN%)):. <900> F2,DN,2,"#"K P:2,A$;W UT1:S0l Z15,"B-A:"D$;T;S d15,EN,EM$,ET,ES nEN0130 sET0200: END x15,"B-A:"D$;ET;ES:TET:SES 15,"U2:2,"D$;T;S NBNB1:" CHECKED BLOCKS"NBCTOR" I0J1( 15,"B-A:";D$,T(I);S(I)9 ,,T(I),S(I)? i ""J"BAD BLOCKS HAVE BEEN ALLOCATED"r 2: 15,EN,EM$,ET,ES  EN0 "ERROR #"EN,EM$;ET;ES"" 15,"I"D$ܙ ۙ/ڈ L L   fLt# # ***NAME DOCTOR***)K REF:COMMANDER, SEPT 83,P120Qm CHANGES DISKETTE NAME 9,0,0:15,8,15:53280,14:53281,1559468,12MD$"":I120:MD$MD$"":(I139:BL$BL$" ": 2P0$"  DISK NAME CHANG/^ S$((SS1)):QN1QN0:C0CC1/h 3100'209,000:210,192:211,0:213,255I0'")@EE)E)E)E)E ?#)@EE)";0$'"E)E)E)E ?#@?@&7@? @@>@?@@";0.'"@޿@@ ,@@@@'@?@ " WANT TO CHECK ANOTHER ONE? (Y/N)"5 500:X$"Y"70; P X$: X$"" 500V \ k GETS DOSq 15:15,8,15,"I0" 3:3,8,3,"#" 15,"U1";3;0;18;0 15,"B-P";3;2 #3,DS$ DS(DS$(0))   ERROR C ER <RE$"PRESS RETURN; F2,OUT OF RANGE, TOO LONG[ PA:EM$(A):I1A:EM$(I):f c 1000y d15,ER:ER0 n15,ER,EM$,ET$,ES$ xMD$"DISK ERROR! #"ER" "EM$" "ET$", "ES$ 9,Q$::Q1$(Q$,1): ,2:15:59468,PK:"":  (MD$,MD)BL$:BL$$ (MD$,MD);:3 MD21:400Y "UNACCEPTABLE ENTRY -- "EM$(EM)l RE$:200:400r  F0:P0$ "ON WHICH DRIVE FOR CHANGES? (0/1) ";:Q$ DV(Q$): IF DV<0 OR DV>1 THENEM=1:GOTO1000 DV0Q1$"0"EM1 15:LK15:#2,A$(L):A$(L)""A$(L)NL$K1L2NB(2)(A$(L))[L:K0:A$"":B$":":NU16:1540:A$A$":":L015:N(A$(L))1540:C$A$(L):1570:B$B$C$:L4,A$B$:U:4,(13):4,(27)(64):4:500A1(N16):A$A$(HX$,A11,1): ," ADDR16")\" ADDR16"," ADDR16",," DISP"," (ADDR),",,,," ADDR,"_)f" ADDR,",,""," ADDR16,",,,," ADDR16,"," ADDR16,",)p" DATA"," (ADDR,)",,," ADDR"," ADDR"," ADDR",,"")z" DATA"," ","","","")!&"","","","","#","","","",""t!0"","","","","","","(","","","(",""!:"","","+","-","*","/","^","","",">","=","<","","""D""," " [N/L] - JMP TO ΙEXT / ̙AST SECTOR"C8" [J] - ʙUMP TO LINK UNDER CURSOR"v:" [Q/R] - љUIT / ҙEWRITE SECTOR"<" [B/M] - TOGGLE ™ASIC/͙ DISPLAY">" [S/C] - NEW әECTOR / START Ù DR16"," ADDR16"," ADDR16",+$" DISP"," (ADDR),",,,," ADDR,"," ADDR,",,""g$" ADDR16,",,,," ADDR16,"," ADDR16,X",,""$" (ADDR,)",,,," ADDR"," ADDR",,""," DATA"," ",$" LABEL"," 0@R04:15,"M-R"(64R)(67):#15,I$(R)::I0$I$(0)I$(1):I1$I$(2)I$(3):ID$I0$:DR$"1"ID$I1$n("RIVE "DR$:".= "ID$:<"USH ":".=....";:PI$:PI$(PI$,4):15,"M-W"(64)(67)(4)IP$:SU40 ","(ADDR),",,," ADDR,"'" ADDR,"," ADDR,",,""," ADDR16,","",,e' " ADDR16,",,," DATA"," (ADDR,X)"," DATA",," ADDR"'*" ADDR"," ADDR",,""," DATA","",," ADDR16"'/" ADDR16"(4" $):200+ "":X((0)10)1, X2500,2520,2530,2540,2550,2560,2570,2580,2600,26001, "AVE A NICE DAY!":198,0:U, "LD DISK DRIVES NEVER DIE...", " THEY JUST LOSE THEIR .":198,0:, "LL'S TO BE FEAR'D WHERE ALL ", " IS A2(N16A1):A$A$(HX$,A21,1):A$A$SP$:"(C$)32C$" ":1,(C$)128(C$)159U6C$(SS$,3((C$)127),3)::30l@QQCC1:C0C0~BTM$T$:SM$S$EQQ0:QN1:C0T$TB$(0):S$SB$(0):TB$(0)TM$:SB$(0)SM$:JT$TB$(C):S$S ",," ADDR16"," ADDR16"," ADDR16",," DISP"*" (ADDR),",,,," ADDR,"a*" ADDR,",,""," ADDR16,",,,," ADDR16,"," ADDR16,",,g**""22)" ";* I$:I(I$):600* ","","","","","","","","",""N"N"","","","$","","","$","$","$","$"X"X""u"lX0254:A$:ML$(X)A$:"v""," (ADDR,)",,,," ADDR"," ADDR",,""," DATA"#" ",,, OUNT" `" [T] - ADD ԙEXT STRING"7b" [P] - NEW CURSOR ЙOSITION"gd" [D/H] - ęECIMAL/șEX VECTOR"f" [] - HEX TO ЙRINTER"" [+/-] - +/- ONE SECTOR":2330:2350D217242:D, ADDR16"," ADDR16",," DISP"," (ADDR),",,,?%" ADDR,"," ADDR,",,""," ADDR16,",,,," ADDR16,"%" ADDR16,",,""," (ADDR,)",,,," ADDR"," ADDR",,""%" DATA","Ҡ",," (LABEL)"," ADDR16"," A ,201:SU39,196:600+P4,4,6:4,(27)(64):SP$" ":NL$(0):HX$"0123456789ABCDEF"^ZSS$" ":L192223:SS$SS$""(L)"":L:4d4," TRACK "T$" SECTOR "S$:4:15,"B-P";2;0n#2,A$(0):A$(0)""A$(0)NL$K1:NB(1)(A$(0)):U0  ADDR16",," DISP"," (ADDR),",,," ADDR,"," ADDR,"?(>" ADDR,",,""," ADDR16,","",," ADDR16,"(H" ADDR16,"," ADDR16,",," DATA"," (ADDR,)",,," ADDR"(R" ADDR"," ADDR",,""," DATA","", TO BE LOST!(YRON)":198,0:, "AY THE BE WITH YOU!":198,0:+- "ON'T FORGET TO ALIDATE ":198,0:U- "'IS BETTER TO HAVE D AND LOST"- "HAN NEVER TO HAVE D AT ALL.":198,0:- "IME YOU ENJOY WASTING"- " IS B$(C):CCC1:C0C0 TC10C0:""18)" " ^ M X176:A$:BA$(X)(A$" ",7)::BA$(128)"PI " "","","","","#","","","","","" "","","","","",""," BA0""21)"™ASIC":+$ ""21)"ASIC":?+. ML0""27)"͙":g+8 ""27)"̙":+ "":"EVICE NUMBER 8";DV$+ "RIVE NUMBER 0";DR$+ Q(DV " ADDR16"," ADDR16",," DISP"," (ADDR),",,,H#" ADDR,"," ADDR,",,""," ADDR16,",,,," ADDR16,"#" ADDR16,",," LABEL"," (ADDR,)",,," ADDR"," ADDR"#" ADDR",#""," DATA"," ",," AD (D)128::4"[Β]":"TO END":"EXT":"MODE":PF1:A$:600fK20:A$(13)PF0:"":1040:600{A$"@"B0:520A$""610B(A$):520"":1040:60015,"I"DR$:2:1:15:250 DDR16",&" DISP"," (ADDR),",,,," ADDR,"," ADDR,",,""V&" ADDR16,",,,," ADDR16,"," ADDR16,",,," (ADDR,)",,&" ADDR"," ADDR"," ADDR",,"",,"",," ADDR16"& " ADDR16"," ADDR16",," DISP ܙ ۙ/ڈ L L                      .                ARIOUS COMMANDS."$"ND READ YOUR DISK MANUAL OVER SEVERAL"7$"TIMES. T IS NOT EASY READING, BUT THE"c$"INFORMATION TO BE FOUND THERE CAN BE"~$"EXTREMELY USEFUL."$"OOD LUCK.":$'"RESS ANY KEY TO K" INITIALISING":" (INITIALIZING)"A$(15),NB(2),BA$(128),ML$(255):TE828:1:2:15SB$(150),TB$(150):TB$(0)"18":SB$(0)"0":ML1:BA1:1800:QQ1:S40HE$"0123456789" 210,(TE256):209,  T18 S0 49152% T18 S0 491785198,0:600NB255(B$)160550SSI,B:15,"B-P:2,"(I):2,(B);:II1:500&" (N OR Y)"0A$:J(A$"Y")2(A$"N")3(A$(3)):J570,1250,1260:560':15,"M-W DEVICE OR DRIVE NUMBER" F " RESS THE  _ KEY TO EXIT "w "RESS (ALMOST) ANY OTHER KEY TO CONTINUE" "OURTESY OF OLIDUS, HE ANCOUVER SER" " ROUP, AND MANY UNKNOWN PROGRAMMERS" "(OME OF WHOM TRY TO SELL SI)):S$((SSI1)):310"A$"M"MLML:2350:6003A$"P"2300HA$"S"C0:260YA$"D"2700jA$"H"2800 A$"T""":1200A$"C"C1:""18)((C),2):C2*J(A$"R")2(A$"")3(A$"Q")4(A$"I")5(A$ 260D,"NPUT ECTOR "S:"";:S$:S$(160)1260l6QQ1:CTB$(C)TB$(0):SB$(C)SB$(0)@T((T$)):S((S$)):T35C0:260TS20C0:260^15,"U1:2,"DR$","T$","S$:990:15,E1$,E2$,E3$,E4$:E1$"00"460p| PRESS ANY KEY."zA$:A$""890-I0I280I:I255II40GI255II(I40)40SC(SSI):H$"":LSC16:L%L:L$(48L%(L%9)7):H$H$L$L16(LL%):L%L:L$(48L%(L%9)7):H$H$L$""17)"OS :AL   .             ""           . fLtK" CONTINUE.";$'197,64,64:198,0:"";:% N" OHN . LSEN R.'%!N" .. OX 181E%"N" EWBERG, R 97132`%#N" (503) 538-3031ܙ ۙ/ڈ L L4 TE256(210):211,0O ""(34)(34)(20)"B ƿ @ YD)GYв̿"[  10000 53280,11:53281,0:646,13:""(14):SS1144:I0:P0:B0 (J0:SU1082:C0:A$"":E$"":T$" 18":S$" 0":DR$"0":DV$"8" x"  ISK OCTOR "(0)(19)(2)((SS))((SS1)):15,"U2:2,"DR$","T$","S$FN15,"I"DR$:15:2:1:200OX910bA$:PISS:J12:P,((P)128)255:D01:D,J:PF1210vA$"B"BABA:2330:600A$""I(I1)255:600A$""I(I1)255:600A$  THIS PROGRAM"6 " EVEN THOUGH IT'S IN UBLIC OMAIN!)"C Q(DV$)V A$:A$""191g A$"\"2470 A$"_"15,Q,15:1260 15,Q,15: 240:1,Q,2,DR$":,S,R":15,E$,EE$ E$"62"1:250 E$"64"""EE$" ON DRIVE "DR$: "")6(A$(3))/J2900,1360,1260,600,600,1260->A$"@"600xH910:""21)" EW ALUE : ";:B$:B$""500\""19)" ":B(B$):510f"NO DISK IN DRIVE "DR$".":"PLACE DISK IN DRIVE "DR$" "":" DISK ERROR #"E1$:"":E2$" IN TRACK"(E3$)", SECTOR"(E4$):"TRY AGAIN? (CR/N OR Y)"A$:A$""430A$"Y"35015,"I"DR$:59015,"B-P:2,0":C""18)((C),2)QQ1C0CC1TEM:I0  :"""22)I" """33)SC" "/32)": $"(H$,2)=BA0950\SC128SC203SC255950"ASIC TOKEN :":""14)BA$(SC127)""951951" "ML0960ML$(SC) ""960"̒ :"(ML$(SC)" ",15)"":970<" "XK1(197):K1K2197,0dK2K1:" ";"ISK OCTOR 64 RACK:"(" "T$,2)"ECTOR:";(" "S$ ,2)"";"";JI18:" ";:{""" ""RESS [@] - CHANGE BYTE UNDER CURSOR" 64 "6 " EFAULTS TO EVICE #8, RIVE 0"j " UT THE DISK TO BE EXAMINED IN DRIVE "DR$" " OU SHOULD USE THE '' COMMAND TO"" " UPDATE THE ON THE DISK WHEN DONE " RESS THE  \ KEY TO CHANGE" " ""I0:600A$""II40:600(A$"L"1600:320@A$""II40:600QA$"P"2300pA$"-"S$((S$)1):320A$"+"S$((S$)1):320A$"N"TB$(0)T$:SB$(0)S$:T$((SS)):2910A$"J"TB$(0)T$:SB$(0)S$:T$((S  E$"21"870 15,"I"DR$. 2,Q,2,"#2":""G S41S40:990:310 990:T(T$):S(S$):"NPUT RACK "T"";:T$:T$(160)1260 " RACK :" (T$,1)"L"T$TB$(0):S$SB$(0):320 "(T$,1)"Q"1HE ORIGINAL ISK OCTOR DOES NOT";1"HAVE THIS FEATURE. CANNING PAST THE"e"END OF A TRACK WILL GENERATE AN ERROR.":9999"F YOU WISH TO SCAN THROUGH THE TRACKS""INSTEAD OF SECTORS, SIMPLY HOLD DOWN THE";(" KEY WHILE HOLDI D TOGETHER."1"HE FIRST TWO BYTES OF EACH SECTOR POINT";Y"TO THE NEXT SECTOR OF THE FILE."&"ISK OCTOR WILL GO TO THE NEXT SECTOR"0"IF YOU PRESS "Q$""Q$".":"R IF THE CURSOR IS AT POSITION 0, YOU"D"CAN PRESS "Q$""Q$"  $" TO GET THERE."!"FTER PRESSING "Q$""Q$", YOU WILL BE ASKED"P"WHICH TRACK AND SECTOR YOU WANT. FTER""ENTERING THE INFORMATION, YOU WILL JUMP""THERE IMMEDIATELY.":9999"RESSING "Q$""Q$" CAUSES ISK OCTOR TO JUMP" .";"HIS MAY BE CONFUSING TO YOU, BUT NOT"N "THE COMPUTER. ON'T WORRY ABOUT IT.":9999"OU MAY WISH TO SCAN THROUGH THE SECTORS";"IN ORDER. EMEMBER, NO PROGRAM FILE""WILL BE IN THIS ORDER. OWEVER, THERE""MAY BE VAR ACH TRACK CONTAINS THE NAMES OF UP TO"*h"EIGHT PROGRAMS. ND THIS IS WHERE THE"\rQ$""Q$" COMMAND COMES IN HANDY. ET'S SEE"w|"HOW IT WORKS.":9999"HE NAMES OF THE PROGRAMS WILL BE EASY""TO SEE. HE TWO BYTES IMMEDIATELY IN" SCAN FORWARDS, ISK OCTOR WILL"7V"WRAP AROUND TO THE BEGINNING OF THE NEXT";e`"TRACK, AFTER REACHING THE END OF ONE."j"ND IF WHILE SCANNING BACKWARDS YOU"t"REACH THE BEGINNING OF A TRACK, ISK"~"OCTOR WILL WRAP AROUND TO THE ENEED TO CORRECT THE DATA AND" "WRITE IT BACK TO THE DISK."< "HIS CAN BE DONE EASILY IF YOU HAVE A"k "BACKUP COPY OF YOUR DISK (YOU KEEP A" "BACKUP, DON'T YOU?)." "LACE THE GOOD DISK IN THE DRIVE AND" "READ IN THE PROPER .""": HE ORIGINAL ISK OCTOR DOES NOT";1""HAVE THIS FEATURE. F YOU OPEN THE DISK";b" "DRIVE, YOU CANNOT WRITE ANYTHING FURTHER";|" "TO THE DISK.":9999"4"ISK OCTOR IS A TOOL. ND LIKE ANY"">"OTHER TOOL, YOU CAN DO MANYNG DOWN EITHER THE"2Q$"+"Q$" OR "Q$"-"Q$" KEYS."G<"HE USUAL WRAP AROUND APPLIES: WHEN YOU";uF"REACH ONE END OF THE DISK, ISK OCTOR"P"WRAPS AROUND TO THE OTHER END."Z": HE ORIGINAL ISK OCTOR DOES NOT";d"HAVE THISTO JUMP TO THE NEXT"5N"SECTOR. ORE ABOUT THE "Q$""Q$" COMMAND"IX"LATER.":9999v"F YOU ACCIDENTALLY JUMP TOO FAR, YOU""CAN JUMP BACK TO THE PREVIOUS SECTOR BY""HOLDING DOWN THE KEY AND PRESSING" Q$""Q$" OR "Q$""Q$"TO THE TRACK AND SECTOR FOUND UNDER THE"1"BLINKING CURSOR ON THE TOP HALF OF THE"["SCREEN. HIS IS USUALLY USED WHEN""VIEWING THE DIRECTORY SECTORS.""RACK 18 SECTOR 0 CONTAINS THE AND""DISK NAME AND ID. RACK 18 SECTOIOUS REASONS YOU WANT TO VIEW"1"THE SECTORS IN SEQUENTIAL ORDER."a"HIS IS DONE BY HOLDING DOWN THE "Q$"+"Q$"KEY. S LONG AS THIS KEY IS HELD DOWN,""ISK OCTOR WILL CONTINUE TO SCAN""FORWARDS THROUGH THE DISK." "OLDI"FRONT OF THE NAME TELL WHERE THE PROGRAM";"STARTS ON THE DISK."K"HE FIRST BYTE SHOWS THE TRACK. HE"y"SECOND BYTE SHOWS THE SECTOR. ND THE""NEXT BYTES SHOW THE PROGRAM NAME.""OVE THE CURSOR OVER THE BYTE CONTAININGD OF""THE PREVIOUS TRACK."2"OING FORWARDS AT THE END OF THE DISK"`"(TRACK 35, SECTOR 16) WILL WRAP AROUND""TO THE BEGINNING OF THE DISK (TRACK 1,""SECTOR 0). HE SAME APPLIES IF SCANNING";"BACKWARDS."": SECTOR. RESS "Q$""Q$" TO";!"COPY THE SECTOR TO THE DAMAGED DISK."E!"ISK OCTOR WILL ASK YOU TO REMOVE THE"r!"GOOD DISK AND REPLACE IT WITH THE BAD"!"ONE, THEN PRESS . HE CORRECT"!"INFORMATION WILL BE WRITTEN TO THE DISK  THINGS WITH""H"IT IF YOU KNOW HOW TO USE IT.".#R"HESE INSTRUCTIONS HAVE GIVEN YOU A VERY";\#\"BRIEF INSIGHT INTO ISK OCTOR. ON'T"#f"STOP HERE. XPERIMENT WITH IT FURTHER."#p"ACKUP A NON-CRITICAL DISK AND PLAY WITH";#z"THE V FEATURE.":9999x"OU CAN QUIT ISK OCTOR AT ANY TIME BY"U"PRESSING EITHER "Q$""Q$" OR THE / KEY.""OMETIMES IT WILL BE FASTER TO USE "Q$""Q$"TO JUMP TO A SPECIFIC TRACK AND SECTOR""THAN TO USE "Q$"+"Q$" OR "Q$"-"Q". OU CAN JUMP A MAXIMUM OF"-"THREE SECTORS BACKWARDS."^": HE ORIGINAL ISK OCTOR DOES NOT";"HAVE THIS "Q$"BACKWARDS JUMP"Q$" FEATURE.""OTICE AS YOU JUMP FORWARDS, THAT THE" "SECTORS ARE NOT IN ANY PARTICULAR ORDERR 1"""CONTAINS THE FIRST EIGHT DIRECTORY"5,"ENTRIES. NY SUCCESIVE ENTRIES WILL BE"c6"FOUND ON TRACK 18 SECTOR 4, ETC. UST"@"FOLLOW THE FIRST TWO BYTES OF EACH"J"SECTOR WHICH INDICATE THE NEXT TRACK AND";T"SECTOR."^"NG DOWN THE "Q$"-"Q$" KEY WILL SCAN"!"IN REVERSE."P": N THE ORIGINAL ISK OCTOR, YOU""CANNOT CONTINUOUSLY SCAN BY HOLDING DOWN";"EITHER KEY. NSTEAD, YOU MUST KEEP""TAPPING THEM TO KEEP SCANNING.":9999L"F YOU ";"THE TRACK, THEN PRESS "Q$""Q$". OU WILL"4"JUMP TO THE BEGINNING OF THE PROGRAM."c"HIS IS A VERY COMMON PROCEEDURE.":9999l"ISK OCTOR CAN REPAIR A DAMAGED DISK,"v"UNLESS THE DAMAGE IS PHYSICAL. O DO""THIS, YOU NLATION SYSTEM, AT ":"4CM$CM$"YOUR LOCAL DEALER. T ADDS OVER 1100 NEW":"CM$CM$" EDITING AND DISK FUNCTIONS. PEND LESS TIME CORRECTING YOUR "CM$CM$"MISTAKES AND MORE TIME PROGRAMMING. ":"CM$CM$" OMMODORE 64 WITHOUT " 53280,15:53281,12:Q$(34)X"ISK OCTOR NSTRUCTIONS""HESE INSTRUCTIONS CAN ALSO BE USED WITH";("THE ORIGINAL ISK OCTOR. NY CHANGES"2"WILL BE NOTED."<"OAD AND RUN THE PROGRAM FROM DISK: CC0248CC550CC0:CV236,224CCCC1:CC292:"?"";LCP(CC)sCP3939CP)(CM$,CP)"";::"(((CM$,CP38),39)" ",39)"" '"$'" I0":192:15,"B-P:2,0": CH2 POS1TEM"I0/:198,0710PB255(B$)160174]SSI,B:{15,"B-P:2,"(I):2,(B);II1:164" (N OR Y)"A$:J(A$"Y")2(A$"N")3(A$( E RECOMMEND USING:'Z$(0):"<'15,DN,15:"c'9,0:"':"'" *** ***'"'" ""H BYTE UNDER CURSOR ")" [] - O TO ΒEXT BLOCK OF FILE "Y" [] - ʒUMP TO LINK UNDER CURSOR "" [] - ђUIT "" [] - ҒEWRITE CURRENT BLOCK "" [] - EW ’LOCK "( "ITH ISK OCTOR , YOU CAN STILL"S "CHOOSE YOUR OWN TRACK AND SECTOR BY" "SELECTING THE OPTION (EXPLAINED LATER)"; "BUT USUALLY YOU WILL WANT THE DIRECTORY.":9999 ,"HE TOP HALF OF THE SCREEN WILL SHOW THE"; 6"CONTENG OF"* W"TEXT BY PRESSING "Q$""Q$", THEN TYPING"Y X"YOUR TEXT FROM THE KEYBOARD. RESS THE" Y" KEY TO SIGNAL COMPLETION." ^"UT REMEMBER, IF YOU CHANGE ANYTHING, IT"; h"IS ONLY CHANGED IN THE COMPUTER'S MEMORY"; r"ԠӠ IS ONLY A OMMODORE 63.5!":UCV2:CM$"**** FROM ... "CM$CM$", THE PERSONAL DATA FILER. ":"CM$CM$"TORE NOTES, RECORDS, RECIPES, ETC. ON ELECTRONIC INDEX CARDS."& F""Q$" "Q$",8"7 P"":9999f d"EMOVE THE DISK CONTAINING ISK OCTOR," n"AND INSERT THE ONE YOU NEED TO EXAMINE." x"ISK OCTOR ASKS YOU TO PRESS ANY KEY" "AFTER INSERTING THE SICK DISK. HEN"! "YOU DROGRAM: ""ISK OCTOR 64"%'10123:"#)'"A.'"UTHOR: ON EKEIN3'"[4'"8'"HIS PROGRAM IS PROVIDED COURTESY OF:='"B'" OLIDUS NTERNATIONAL ORPORATIONL'"3)):J178,72,74:176(15,"M-W"Z$(19)(2)((SS))((SS1))325000L15,"U2:2,0,"T$","S$[15,"I0":v"NO DISK IN DRIVE 0"PLACE DISK IN DRIVE 0, PRESS ANY KEYA$:A$""188" E LTIMATE ROGRAM ANIPULATION%'" YSTEM FOR OMMODORE ICROCOMPUTERS."\'"OW AVAILABLE AT YOUR OMMODORE DEALER.oa MODIFICATIONza2:15a "WRITE TO TRACK";T$a "WRITE TO SECTOR";S$a15,DN,15a2,DN,2,"#2" "" [] - DD ԒEXT STRING "G" [+]/[-] - CAN FORWARD/BACKWARD "D15:" ";:D217242:D,(D)128::"";CV1:CM$"ET , THE ULTIMATE PROGRAM MANIPUTS OF THE CHOSEN SECTOR."B @"HE CURSOR KEYS WILL MOVE THE CURSOR TO"m J"ANY BYTE DESIRED. HIS BYTE CAN BE" T"CHANGED BY PRESSING THE "Q$"@"Q$" KEY." U"F YOU WISH TO CHANGE MORE THAN ONE BYTE"; V"AT A TIME, YOU CAN ENTER ANY STRIN."+|"O PERMANENTLY CHANGE THE DISK, YOU NEED";Z"TO REWRITE THIS SECTOR BACK TO THE DISK""AGAIN BY PRESSING "Q$""Q$".":9999"EARLY ALL PROGRAMS ARE MORE THAN ONE""SECTOR LONG. HEY ARE MANY SECTORS THAT";"ARE LINKE "CM$CM$" UNDREDS OF USES AROUND THE HOME ":"MCM$CM$"AND OFFICE. EE IT AT YOUR LOCAL DEALER."U:CV2:CM$"HIS PROGRAM HAS BEEN RELEASED TO PUBLIC DOMAIN COURTESY OF "CM$CM$"OLIDUS NTERNATIONAL ORPORATION"::"O THIS, YOU WILL BE SHOWN THE FIRST";O "SECTOR OF DIRECTORY ENTRIES (TRACK 18,"b "SECTOR 1)." ": HE ORIGINAL ISK OCTOR DOES NOT" "AUTOMATICALLY GO TO THE DIRECTORY. T" "ASKS YOU TO CHOOSE YOUR OWN TRACK AND" "SECTOR. UITE #5, 144 EST 15TH TREET%V'" ORTH ANCOUVER, ..O['" HONE: (604)984-0477\`'"j'"O GET THE USE OUT OF YOUR NEWt'"OMMODORE-64 COMPUTER AND YOUR DISK~'"DRIVE, W";7"ISK OCTOR 64.0 :"(" "T$,2)":"(" "S$,2)"";h"";I18:" ";:"""PRESS [@] - HANGEaܙ ۙ/ڈ L L    /.              .           ,       ONE: (604)984-0477`'"(j'"O GET THE USE OUT OF YOUR NEWXt'"OMMODORE-64 COMPUTER AND YOUR DISK~'"DRIVE, WE RECOMMEND USING:'Z$(0):"'15,DN,15:" ܙ ۙ/ڈ L L                                 .  DN8: DEVICE #N53280,11:53281,0:A$,I,S$,T$,CC,B,SS,E$,J,TE,A:78A$:A$""" ";:CC293:A$""252 I0I280I:I255II40 I255II(I40)408  ING AND DISK FUNCTIONS. PEND LESS TIME CORRECTING YOUR "SCM$CM$"MISTAKES AND MORE TIME PROGRAMMING. ":"CM$CM$" OMMODORE 64 WITHOUT IS ONLY A OMMODORE 63.5!":CV2:CM$"**** FROM ...  174 .A$"B"116G 0A$"T""":218:"":218:64W 2A$(3)74g 4A$"@"10 6I0I280I:I255II40 8I255II(I40)40 :""10)(SSI)" ":""10)I" " <198,0:" CP(CC) CP3939CP)(CM$,CP)"";::"V(((CM$,CP38),39)" ",39)""\ f'"$'"ROGRAM: ""ISK OCTOR 64"%'10123:")'".'"UTHOR: ON EK1024120:I0:B0:J0$ZA$"":E$"":T$"":S$""U\"LEASE PUT THE IN DRIVE 0."]"ODIFIED TO BE USED FOR SECTOR COPYING BY 10/13/83^"OU SHOULD USE THE '' COMMAND TO"`"UPDATE THE ON THE DISr2,DN,2,"#2":"" t192Hv" "(((T$)),2)""ox" "(((S$)),2)"z"NPUT : ";:9,T$::T$(160)74|" ":"NPUT : ";:9,S$::S$(160)74~" ":T$(((T$)'9,0:" ':"J'" *** ***W'"'" ""HE LTIMATE ROGRAM ANIPULATION'" YSTEM FOR OMMODORE ICROCOMPUTERS."'"OW A fLtDN8: DEVI""10)(SSI)" ":""10)I" "n "VALUE: ":"POSITION:" J12:ISS,((ISS)128)255:D01:D,J 4:A$""18 PF66 A$""I(I1)255:10 A$""I(I1)255:10 A$" ")CM$CM$", THE PERSONAL DATA FILER. ":"wCM$CM$"TORE NOTES, RECORDS, RECIPES, ETC. ON ELECTRONIC INDEX CARDS. "CM$CM$" UNDREDS OF USES AROUND THE HOME ":"CM$CM$"AND OFFICE. EE IT AT YOUR LOCANEW VALUE: ";:9,B$:A >""20)" ":B(B$):166 @" RESS [] TO END TEXT MODE":PF1:A$:10 BA$(13)PF0:"":202:10 DA$""20 FB(A$):168 H"":202:10' J15EI3'"4'"&8'"HIS PROGRAM IS PROVIDED COURTESY OF:3='"dB'" OLIDUS NTERNATIONAL ORPORATIONL'" UITE #5, 144 EST 15TH TREETV'" ORTH ANCOUVER, ..['" HK WHEN DONE."%b"OTE: ISK DEVICE IS"DN"."Id"RESS TO CONTINUE"[f4:A$""102rh10021:A$(3)74j1,DN,2,"0:,S,R":15,E$:E$"62"1:114lE$"64"1,E$:""E$" ON DRIVE 0"nE$"21"184p15,"I0"),2):S$(((S$)),2)(T$)0116W" "" "" "15,"U1:2,0,"T$","S$: CH2 DR015,E1$,E2$,E3$'VAILABLE AT YOUR OMMODORE DEALER.ܙ ۙ/ڈ L L  .3                      ,E4$:E1$"00"156'192:E2$" #"E1$","E2$P"":I1(E2$):"";:::""E2$jI1(E2$):"";::"IN "(E3$)", "(E4$):E1$"66"118"TRY AGAIN? (CR/N OR Y)"A$:A$""150A$"Y"13615,""II40:10 A$""II40:103 A$""I0:10^ "A$"N"T$((SS)):S$((SS1)):128 $A$"J"T$((SSI)):S$((SSI1)):128 &A$"Q"15,"I0": (A$"+"S$((S$)1):128 *A$"-"S$(((S$)1)((S$))):128 ,A$"R"L DEALER."::CV2:CM$"HIS PROGRAM HAS BEEN RELEASED TO PUBLIC DOMAIN COURTESY OF "pCM$CM$"OLIDUS NTERNATIONAL ORPORATION"::"CC0248CC550CC0:CV236,224CCCC1:CC292:""";,"I0":"":(788)52788,49/ L:J NA828:TEMA: FILEREADu P210,(A256):209,A256(210):211,0 R""(34)(34)(20)"B ƿ @ YDз̿" T IFPEEK(788)=49THENPOKE788,52:REM STOP KEY DISABLE V"";XSS Q$(34):1008[ DISK E FILES .N1544 ( (C) 1985 BY NOEL NYMAN 2 <F:d (14);"HE DISK DIRECTORY LISTS SEVERA ܙ ۙ/ڈ L L   64          ,       ,   ' ().     ,     DN8: DEVICE #N53280,11:53281,0:A$,I,S$,T$,CC,B,SS,E$,J,TE,A:78A$:A$""" ";:CC293:A$""252 I0I280I:I255II40 I255II(I40)408  " "(((S$)),2)"@z"NPUT : ";:9,T$::T$(160)74w|" ":"NPUT : ";:9,S$::S$(160)74~" ":T$(((T$)),2):S$(((S$)),2)(T$)0116"  174 .A$"B"116G 0A$"T""":218:"":218:64W 2A$(3)74g 4A$"@"10 6I0I280I:I255II40 8I255II(I40)40 :""10)(SSI)" ":""10)I" " <198,0:" $)160174SSI,B:15,"B-P:2,"(I):2,(B);.II1:164d" (N OR Y)"A$:J(A$"Y")2(A$"N")3(A$(3)):J178,72,74:17615,"M-W"Z$(19)(2)((SS))((SS1))15,"U2:2,0,"T$","S$0:J0ZA$"":E$"":T$"":S$""G\"LEASE PUT THE IN DRIVE 0."v^"OU SHOULD USE THE '' COMMAND TO"`"UPDATE THE ON THE DISK WHEN DONE."b"OTE: ISK DEVICE IS"DN"."d"RESS TO CONTINUE"f";3I18:" ";:d"""PRESS [@] - HANGE BYTE UNDER CURSOR "" [] - O TO ΒEXT BLOCK OF FILE "" [] - ʒUMP TO LINK L) nQ$""Q$" FILES WHICH DESCRIBE THEV x"PROGRAMS ON THIS DISK. ACH NOTE FILE"y "NAME ENDS WITH "Q$".1544"Q$ "O READ A NOTE FILE, HOME THE CURSOR "THEN LOAD THE FILE WITH A "Q$",8,1"Q$ "OR EXAMPLE, TO LOAD A NOTE FILE C                      .      .            -          '. fLtDN8: DEVI""10)(SSI)" ":""10)I" "n "VALUE: ":"POSITION:" J12:ISS,((ISS)128)255:D01:D,J 4:A$""18 PF66 A$""I(I1)255:10 A$""I(I1)255:10 A$" "*" "Y" "|15,"U1:2,0,"T$","S$: CH2 DR015,E1$,E2$,E3$,E4$:E1$"00"156192:E2$" #"E1$","E2$"":I1(E2$):"";::NEW VALUE: ";:9,B$:A >""20)" ":B(B$):166 @" RESS [] TO END TEXT MODE":PF1:A$:10 BA$(13)PF0:"":202:10 DA$""20 FB(A$):168 H"":202:10' J1515,"I0":"NO DISK IN DRIVE 0;"PLACE DISK IN DRIVE 0, PRESS ANY KEYNA$:A$""188T" ";"ISK OCTOR 64.0 :"(" "T$,2)":"(" "S$,2)"";"4:A$""102h10021:A$(3)74Fj1,DN,2,"0:,S,R":15,E$:E$"62"1:114slE$"64"1,E$:""E$" ON DRIVE 0"nE$"21"184p15,"I0"r2,DN,2,"#2":""t192v" "(((T$)),2)""xUNDER CURSOR """ [] - ђUIT "R" [] - ҒEWRITE CURRENT BLOCK "" [] - EW ’LOCK "" [] - DD ԒEXT STRING "" [+]/[-] - CAN FORWARD/BACKWARD "ALLED Q$".1544"Q$", TYPE"E " "Q$".1544"Q$",8,1"r "AND PRESS THE <> KEY. OU MAY "SEE ALL OR PART OF THE NOTE FILE APPEAR "ON THE LOWER PART OF THE SCREEN." "HEN THE "Q$""Q$" PROMPT APPEARS,-D15:" ";:=D217242:D,(D)128::"";CCV1:CM$"ET , THE ULTIMATE PROGRAM MANIPULATION SYSTEM, AT ":"CM$CM$"YOUR LOCAL DEALER. T ADDS OVER 1100 NEW":"CM$CM$" EDIT"II40:10 A$""II40:103 A$""I0:10^ "A$"N"T$((SS)):S$((SS1)):128 $A$"J"T$((SSI)):S$((SSI1)):128 &A$"Q"15,"I0": (A$"+"S$((S$)1):128 *A$"-"S$(((S$)1)((S$))):128 ,A$"R":""E2$I1(E2$):"";::C"IN "(E3$)", "(E4$):E1$"66"118a"TRY AGAIN? (CR/N OR Y)"tA$:A$""150A$"Y"13615,"I0":192:15,"B-P:2,0": CH2 POS1TEMI0:198,010B255(B,"I0":"":(788)52788,49/ L:J NA828:TEMA: FILEREADu P210,(A256):209,A256(210):211,0 R""(34)(34)(20)"B ƿ @ YDз̿" T(788)49788,52: STOP KEY DISABLE V""; XSS1024120:I0:BAHqDISKS32ARUN ME FIRST----------------* DISK DOCTORS *----------------DISK DOC64.N1544DISK DOCTOR 64----------------DISK DOC.3.N1544----------------DISK PURGE.N1544DISK PURGE----------------NO SCRATCH.N1544NO SCRATCH----------------BULK ERASE.N1544KDISK DOCTOR.3----------------DOC MOVER .N1544DISK DOC MOVER----------------DOC PLUS .N1544DISK DOCTOR PLUSDR. INSTRUCTIONS BULK ERASER---------------- DISK DR# .N1544 DISK DR# CHANGE---------------- DISK TIMER.N1544 DISK TIMER----------------K ----------------DOCTOR4 .N1544 DOCTOR4 ----------------PICKPHIL .N1544PICKPHIL DISKDOC----------------ADE64 .N1544 DRV CLEAN .N1544DRIVE CLEAN UTIL---------------- FFORMAT.A .N1544FFORMAT.A----------------NO KNCK FM.N1544NO KNOCK FORMATK ADE64----------------FACS DE .N1544FACSIMILE DE.---------------- SECTOR DOC.N1544 SECTOR DOCTOR.--------------------------------NO KNOCK .N1544NO KNOCK---------------- FIND SYS .N1544 FINDSYS---------------- DISK COMP .N1544KDISK BUFF .N1544DISK BUFFER ---------------- * SUPPORT PRGS *----------------DOS CHANGE.N1544DOS CHANGER ---------------- DISK COMPARE ---------------- DISK $FIND.N1544 DISK $FINDER#----------------STRNG FIND.N1544STRING FINDER----------------K DOS CHNGEM.N1544 DOS CHANGER.EM---------------- DISK FIXER.N1544 DISK FIXER---------------- NAME DOC .N1544 NAME DOCTORTWO DRIVE .N1544TWO DRIVE 1541----------------NOSER-128 .N1544NOSER-128!------- --------Kܙ ۙ/ڈ L L  .3                          .    / *** DISK DOCTOR, REVISED BY N NYMAN 4/84CDN8: DEVICE #53280,11:53281,12:A$,I,S$,T$,CC,B,SS,E$,J,TE,A:TL18:SL0:440(I0I280I:I255II402I255II(I40)40<1190F""10)(SSI)" "% P 1270:T$(TL):S$(SL):1280:710Q A$"J"1260:T$((SSI)):S$((SSI1)):710v A$"+"1260:S$((S$)1):710 "A$"-"1260:S$(((S$)1)((S$))):710 ,A$"B"1260:630 640 @I0I280I:I255II40 JI255II(I @ YD)@Yв̿"=(788)49788,52: STOP KEY DISABLEG"";cSS1024120:I0:B0:J0A$"":E$"":T$"":S$"":646,6"LEASE PUT THE IN DRIVE 0.""OU SHOULD USE THE '' COMMAND TO""UPDATE " ":"NPUT : ";:9,S$::S$(160)4202S$(S$,2)b" ":T$(((T$)),2):S$(((S$)),2)s(T$)0630" "" ""  (N OR Y)"FA$:J(A$"Y")2(A$"N")3(A$(3)):J960,410,420:950q15,"M-W"Z$(19)(2)((SS))((SS1))15,"U2:2,0,"T$","S$15,"I0":"NO DISK IN DRIVE 0"PLACE DISK IN DRIVE 0, PRESS ANY KEY "88"PRESS [@] - HANGE BYTE UNDER CURSOR "fB" []/[] - O TO ΒEXT/̒AST BLOCK "L" [] - ʒUMP TO LINK UNDER CURSOR "V" []/[] - ВOSITION CURSOR/ђUIT "`" [] - ҒEWRITE     .  -          "    "  . fLt/ *** DISK D""15)"HEX: "Z1$;Z2$:""10)I" "[ Z"VALUE: ":"POSITION:" dJ12:ISS,((ISS)128)255:D030:D,J nA$:A$""100 xPF380 A$""I(I1)255:40 A$""I(I1)255:40 A$""II40:40 40)40< T""10)(SSI)" ":""10)I" "t ^198,0:"NEW VALUE: ";:9,B$: h""20)" ":B(B$):900 r" RESS [] TO END TEXT MODE":PF1:A$:40 |A$(13)P THE ON THE DISK WHEN DONE."8"OTE: ISK DEVICE IS"DN"."\&"RESS TO CONTINUE"+"RESS / TO EXIT PROGRAM"0 A$:A$""560:1250:A$(3)420D1,DN,2,"0:,S,R":15,E$:E$"62"1:620 NE$"64"1 "715,"U1:2,0,"T$","S$: CH2 DR0]15,E1$,E2$,E3$,E4$:E1$"00"8501030:E2$" #"E1$","E2$ "":I1(E2$):"";:::""E2$ "IN "(E3$)", "(E4$):E1$"66"640*A$:A$""1010-" ";v"ISK OCTOR 64.0 :"(" "T$,2)":"(" "S$,2)"";"";$I18:" ";: ."CURRENT BLOCK "%j" [] - EW ’LOCK "Ut" [] - DD ԒEXT STRING "~" [+]/[-] - CAN FORWARD/BACKWARD "D15:" ";:D217242:D,(D)128::"";Z(SSI):Z1(Z16)1:Z2Z((Z11)16)1/ZZ$"0123456789"UZ1$(ZZ$,Z1,1):Z2$(ZZ$,Z2,1):"POSITION: """;: I$I(I$):40Z$(0):15,DN,15:9,0:TL(T$):SLA$""II40:40$ A$""I0:40; A$"Q"15,"I0":N A$"P" 1220^ A$"R"940 A$"T""":1160:"":1160:370 A$(3)420 A$"@"320 A$"N"1260:T$((SS)):S$((SS1)):710 A$"L"F0:"":1080:40! A$""1102 B(A$):910O "":1080:40 15,"I0":"":(788)52788,49 : A828:TEMA: FILEREAD 210,(A256):209,A256(210):211,0""(34)(34)(20)"B ,E$:""E$" ON DRIVE 0"XE$"21"990,b15,"I0"Bl2,DN,2,"#2":""Lv1030" "(((T$)),2)""" "(((S$)),2)""NPUT : ";:9,T$::T$(160)420T$(T$,2)#"TRY AGAIN? (CR/N OR Y)"4A$:A$""820&>A$"Y"7505H15,"I0":XR1030:15,"B-P:2,0": CH2 POS1a\TEMifI0vp:198,0~z40B255(B$)160940SSI,B:15,"B-P:2,"(I):2,(B);II1:890"ܙ ۙ/ڈ L L    /.              .           ,        4(S$):TM(T$):SM(S$):TLTM:SLSM:ܙ ۙ/ڈ L L                              DN8: DEVICE #O53280,15:53281,12:A$,I,S$,T$,CC,B,SS,E$,J,TE,A:78A$:A$""" ";:CC293:A$""252 T3T2:T2T1:T1(T$):S3S2:S2S1:S1(S$): I0I $((SSI)):S$((SSI1)):128] %A$""A$""T$(T1):S$(S1):T1T2:S1S2:T2T3:S2S3:128t &A$"Q"15,"I0": ,A$"R"174 -A$"C"2:360 .A$"B"9:116 0A$"T""":218:"":218:64 2A$(3)74 210):211,03R""(34)(34)(20)"B ƿ @ YDз̿"RT788,52: STOP KEY DISABLE]V"";yXSS1024120:I0:B0:J0ZA$"":E$"":T$"":S$""[" ISK OCTOR "\"(WITH SECTOR COPY & SCAN WRAP-AROUND)"] v""18)" "((T$))""Ax18)" "((S$))""bz12)"NPUT : ";:9,T$~{:(T$)1T$" 0":118|12)" ":12)"NPUT : ";:9,S$~" ":T$(((T$)),2):S$(((S$)),2)(T$)0S 192:E2$" #"E1$","E2$<"":I1(E2$):"";:::""E2$VI1(E2$):"";::"IN "(E3$)", "(E4$):E1$"66"118"TRY AGAIN? (CR/N OR Y)"A$:A$""150A$"Y"13615,"I0":192:15    ,                   .  -                . fLtDN8: DEVI178,72,74:176 15,"M-W"Z$(19)(2)((SS))((SS1))915,"U2:2,0,"T$","S$B130m"O DISK IN DRIVE 0""LACE DISK IN DRIVE 0, PRESS ANY KEY.":198,0A$:A$""188" 280I:I255II40+ I255II(I40)40Z ""23)(SSI)" " ""23)I" " ""14)"VALUE:POSITION:" J12:ISS,((ISS)128)255:D01:D,J (197)40 4A$"@"10& 6I0I280I:I255II40@ 8I255II(I40)40o :""23)(SSI)" " ;""23)I" ":198,0 <""10)" VALUE: ";:9,B$: >""10)" ":B(B$):" LEASE PUT THE IN DRIVE 0."L^" F YOU MODIFY THE DIRECTORY, "{`"THE DISK (WHEN DONE) TO UPDATE THE ."b" OTE: ISK DEVICE NUMBER IS"DN"."d" RESS TO CONTINUE"eT$" 18":S$" 1"$" 0":T$" 0":116C" "r" "" "15,"U1:2,0,"T$","S$: CH2 DR015,E1$,E2$,E3$,E4$:E1$"00"156,"B-P:2,0": CH2 POS1TEMI0:198,0#10<B255(B$)160174ISSI,B:g15,"B-P:2,"(I):2,(B);vII1:164"  (N OR Y)";A$:J(A$"Y")2(A$"N")3(A$(3)):JGE BYTE UNDER CURSOR ")" [] - O TO ΒEXT BLOCK OF FILE "Y" [] - ʒUMP TO LINK UNDER CURSOR "" [] - ђUIT "" [] - ҒEWRITE CURRENT BLOCK "" [] - EW ’LOCK ";7"ISK OCTOR 64.2 :"(" "T$,2)":"(" "S$,2)"";h"";I18:" ";:"""PRESS [@] - HANPF09:280% (197)43PF09:2826 4:A$""18A PF66] A$""I(I1)255:10y A$""I(I1)255:10 A$""II40:10 A$""II40:10 A$""I0:10 "A$"N"9:T$((SS)):S$((SS1)):128 $A$"J"9:T166D @" RESS Β TO END TEXT MODE.":PF1:A$:10o BA$(13)PF0:"":202:10} DA$""20 FB(A$):168 H"":202:10 J15,"I0": NA828:TEMA: FILEREAD P210,(A256):209,A256(f4:A$""102h10021:A$(3)74Fj1,DN,2,"0:,S,R":15,E$:E$"62"1:114hlE$"21"E$"74"184:1:106nE$"64"1,E$:""E$" ON DRIVE 0"p15,"I0"r2,DN,2,"#2":"":T10:T20:T30:S10:S20:S30:130t192:198,0!ܙ ۙ/ڈ L L4 (   3)       "   ", "    ", "    ",    ,  "    "" [] - DD ԒEXT STRING "G" [+]/[-] - ONTINUOUS SCAN FWD/BKWRD "y" [] - ÒOPY SECTOR TO SECOND DISK ";D15:" ";:D217242:D,(D)128::"";* S, RECORDS, RECIPES, ETC. ON ELECTRONIC INDEX CARDS. "HCM$CM$" UNDREDS OF USES AROUND THE HOME ":"CM$CM$"AND OFFICE. EE IT AT YOUR LOCAL DEALER.":CV2:CM$"ELEASED TO PUBLIC DOMAIN BY OLIDUS NTERNATIONAL ORPORATI"  :TT1UT36T1YSK0SKS^S$(SK):T$(T):128]h" WAP DISKS, THEN Β. N TO ABORT.";hm198,0rA$:A$(13)A$"N"370w2,DN,2,"#2":A$"N"72|178'"$'"ROGRAM: ""IS DRIVE, WE RECOMMEND USING:!'Z$(0):"D!'15,DN,15:"k!'9,0:"!':"!'" *** ***!'"!'" DN8: DEVICE #H53280,11:53281,0:A$,I,S$,T$,B,SS,J:300:78rTV(SSI):HI%(TV16):LO%TVHI%16HX$"$"(HE$,HI%1,1)(HE$,LO%1,1)TV128TV203BX$"???":BX$BA$(TV127): I0I280I:I255II40 I255I 14 A$""I(I1)255:141 A$""II40:10H A$""II40:10\ A$""I0:10 "A$"N"T$((SS)):S$((SS1)):130 #A$"L"B$S$:S$LS$:LS$B$:B$T$:T$LT$:LT$B$:130 $A$"J"T$((SSI)):S$((SSI1)):130 %A$"H"     . fLtDN8: DEVICV1:CM$"ET , THE ULTIMATE PROGRAM MANIPULATION SYSTEM, AT ":"fCM$CM$"YOUR LOCAL DEALER. T ADDS OVER 1100 NEW":"CM$CM$" EDITING AND DISK FUNCTIONS. PEND LESS TIME CORRECTING YOUR "CM$CM$"MISTAKES AND MORE TIME PROGRCM$CM$"ON. ODIFICATIONS BY OHN LSEN."::"CC02485CC550CC0:CV236,224OCCCC1:CC292:"q"";~CP(CC)CP3939CP)(CM$,CP)"";::"(((CM$,CP38),39)" K OCTOR "%'10123:")'",.'"UTHOR: ON EKEIV3'"(MODIFICATIONS BY OHN LSEN)c4'"8'"HIS PROGRAM IS PROVIDED COURTESY OF:='"B'" OLIDUS NTERNATIONAL ORPORAT ""HE LTIMATE ROGRAM ANIPULATION-"'" YSTEM FOR OMMODORE ICROCOMPUTERS."d"'"OW AVAILABLE AT YOUR OMMODORE DEALER.gX" 53280,15:53281,12:Q$(34)X"ISK OCTOR NSTRUCTIONS""HESI(I40)401 4:C$10)(SSI);" ";30)HX$;"` ""10)I;" ";30)" "BX$ J12:ISS,((ISS)128)255:D05:D,J A$:A$""18 PF66 A$"N"A$"J"A$"+"A$"-"A$"B"LS$S$:LT$T$ A$""I(I1)255:"360 &A$"Q"15,"I0":5 (A$"+"S$((S$)1):128E )A$"F"128d *A$"-"S$((S$)1):128t ,A$"R"174 .A$"B"116 /A$"P"500 0A$"T""":64 2A$(3)74 4A$"@"10 6I0I280I:I255II40 8I255II(I40)405 :C$10)(SSI)" ":""10)I" "f ;198,0:C$"(FOR HEX ENTRY, START WITH $)" <198,0:C$"NEW VALUE: ";:9,B$: =198,0:C$"":218 >(B$,1)"$"410 ?B(B$):166 @D110:" AMMING. ":"2CM$CM$" OMMODORE 64 WITHOUT IS ONLY A OMMODORE 63.5!"::CV2:CM$"**** FROM ... "CM$CM$", THE PERSONAL DATA FILER. ":"CM$CM$"TORE NOTE ",39)"" (653)1T$((T$)1):300-S$((S$)1):300N(653)1T$((T$)1):300`S$((S$)1)z,S20:T(T$):SK(S$)1SK0TT12T0T356T17S18@T24S17JT30S16TSKSSK0ION L'" UITE #5, 144 EST 15TH TREET- V'" ORTH ANCOUVER, ..W ['" HONE: (604)984-0477d `'" j'"O GET THE USE OUT OF YOUR NEW t'"OMMODORE-64 COMPUTER AND YOUR DISK ~'" ":H A" RESS [] TO END TEXT MODE":PF1:A$:10s BA$(13)PF0:"":202:10 DA$""20 FB(A$):168 H2:2,DN,2,"#2":"":202:10 J15,"I0":"":(788)52788fA$:A$""1022hZ$(0):15,DN,15:9,0:15,"I":A$(3)74hr2,DN,2,"#2":15,"M-R";(18);(0);(2):#15,A$,B$sI1(A$(0)):I2(B$(0)):"":T$"18":S$"0":132t285:130265:(S$)J(T$)37T$((T$)1):S$"0"(S$)0 CH2 POS1828I0:198,0102B255(B$)160174>SSI,B\15,"B-P:2,"(I):2,(B);kII1:1642:285:270:C$" (Y OR N)"A$:J(A$"Y")2(A$"N"):J176,191:175(T$)0174 265:(S$) I18:" ";:F""e" "" ""[@]-HANGE BYTE []-DD EXT STRING""[]-ISPLAY EADER []-RINT BLOCK" 0:" - EAVING AREA OF MISMATCH.":258YX$"Ҡ#29":" !- HIS BLOCK HAS AN ERROR #29."{" OF (18/0)="I1","I2" OF THIS BLOCK="I","J1260,I1:1261,I2:1300,I:1301,J" PRESS TO RE ,HE$"0123456789ABCDEF":BA$(76),ER$(12),HD$(6),HD(6):LT$"18":LS$"0":EN0a.I176:BA$(I)::X$"":I112:ER$(I):/C$"":0 END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,RUN,IF,RESTORE,GOSUB2  ,49L" ";::N FILEREAD.P210,3:209,60:211,0bR""(34)(34)(20)"B ƿ @ YDз̿"T(788)49788,52: STOP KEY DISABLEV"";XSS1144:I0:B0:J0\"ˠҙ VERSION 3.00 7/27/84" ]"LEASE PUT T RROR,ILLEGAL TRACK OR SECTOR]A0:192:EN2M^X$"Ҡ#"E1$"":" !-THIS BLOCK HAS AN ERROR# "E1$_" "E2$:" YOU MAY READ AND MODIFY THE DATA, BUT"`" YOU CANNOT RE-WRITE TO THIS BLOCK."a" *** : ATA MAY BE INC(T$)1T$((T$)1):265:S$(J)"(T$)0116[B0:265:(S$)J(T$)37E1$"66":E2$ER$(12):140uA128:390:EN2EN0A2156BB1:B5A2132A3A11349A11EN1:250E3$T$:E4$S$:E2$" #"E1$"J(T$)37E1$"66":E2$ER$(12):183E2,DN,2,"#2":15,"M-W"Z$(19)(2)((SS))((SS1))TA144:390gE1$"20"128270:"  #"E1$:" "E2$:E1$"66"286:1762:"TRY AGAIN? (Y OR N)";A$:J(A$"Y")2(A$"N"):J"[]-EWRITE BLOCK []-UIT PROGRAM"/"[]-ERESH BLOCK []-EW LOCK"\"[+]-CAN FORWARD [-]-CAN BACKWARDS""[]-EXT BLOCK []-AST BLOCK""[]-UMP TO BLOCK--LINK UNDER CURSOR" "D14:" AD"A$:A$""25915,"M-W";(18);(0);(2);E1$;E2$:128O I(T$):J20:I17J18:I24J17:I30J16U C$" "" "" RETURN,REM,STOP,ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE,PRINT#,PRINT,CONTa4 LIST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN,NOT,STEP6 +,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND8 LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN,STR$,VAL,ASC,CHE IN DRIVE 0."9^"OU SHOULD USE THE '' COMMAND TO"f`"UPDATE THE ON THE DISK WHEN DONE."a"OTE: ISK DEVICE IS"DN"."b"RIGINAL VERSION BY ON EKEI":"PDATED BY ON LAMINKO"d"RESS TO CONTINUE"OMPLETE. ***" b" PRESS ANY KEY TO CONTINUE" cA$:A$""355 d156O hA1:192:"  Ҡ"| j" EADER ATA" l" RACK ECTOR 1 2 HECKSUM HECKSUM" n" ,"E2$A1:192("":I1(E2$):"";:::""E2$BI1(E2$):"";::}"IN "(E3$)", "(E4$):E1$"66"286:130"TRY AGAIN? (CR/N OR Y)"A$:A$""150A$"Y"13115,"I0":A0:192:15,"B-P:2,0":178,191:186A$:A$""188 "2,DN,2,"#2":156@EN0X$""i""X$" ";"ISK OCTOR 64.0 :"(" "T$,2)":"(" "S$,2)"";""; ";::A1221 C$"VALUE: ";11);"HEX:";12):E"POSITION:";12);":";10)lA0:D217242:D,(D)128::"";rA0:192:15,"M-R";(22);(0);(2):#15,E1$,E2$I(E1$(0)):J(E2$(0)):I1II2J253EN ":A1:192C$" "(((T$)),2)" "B" "(((S$)),2)" n "NPUT : ";:9,T$::T$(32)74!" ":"NPUT : ";:9,S$::S$(32)74"" ":T$(((T$)),2):S$(((S$)),2):%HR$,LEFT$,RIGHT$: MID$,GO%<GOOD,BLOCK HEADER NOT FOUND,NO SYNC CHARACTERj>DATA BLOCK NOT PRESENT,CHECKSUM ERROR IN DATA,BIT PATTERN ERROR@WRITE (VERIFY) ERROR,WRITE PROTECT ON,HEADER CHECKSUM ERRORBDATA BLOCK TOO LONG,ID MISMATCH E " !p15,"M-R"(22)(0)(5):J15:#15,HD$(J):1!r15,"M-R"(58)(0)(1):#15,HD$(6)S!tJ16:HD(J)(HD$(J)(0)):!v" "HD(3)8)HD(4)13)HD(1)17)HD(2)23)HD(5)32)HD(6)!x1346,HD(3):1353,HD(4):1358,HD(1):1362,HD(2):1368,HD(5;:#C$#4,4,4:4,(27)"B"(2):4,(27)"M"(5)&$" ĒECIMAL, ȒEX, OR ’OTH ?":$A$:A$"D"520J$A$"H"540Z$A$"B"520d$ 507$4," TRACK: "T$;" SECTOR: "S$;" DECIMAL DUMP"$ 4,(13)$ C1015:P1$"":&+HI(T116):LOT1HI16',HX$(HE$,HI1,1)(HE$,LO1,1):&'04:4:"":202:10B':T164 T191T1T132a';T1191 T1219T1T1128'<T132T1126P2$P2$".":'=P2$P2$(T1):ܙ ۙ/ڈ L L ܙ ۙ/ڈ L L               ,           .         6 $ DISK PATCH BY KEVIN ANDERSON@ REVISION A.4 2/20/84e B$(255),D$(255),K$(75):N$(0)zI175:K$(I):I0255:B$(I)N$:D$(I)N$:53280,15:53281,15:(142);"""   PATCH " " F1 READ A BL ;SM;")";: SE# SESMSE0"";:227@ 15,8,15,"I0":2,8,2,"#"e 15,"U1:"2;0;TR;SE:15,"B-P:2,0" I0255:#2,A$:B$(I)((A$N$),1): T2:15 ^20 P100 "  EDIT BLOCK " " F1 LIST NEXT 16 VALUES"  GE A VALUE b5603  LIST 16 VALUES IN HEX DECIMAL ASCII@ P0P0W P25515P25515f ""t IPP15 A$B$(I) N(A$):H%N16:L%N16H% H%H%48:L%L%48 H%H%7(H%57):L%L%7(L%57) H$(H%)(L%)")!z1377,HD(6):C$"PRESS ANY KEY TO CONTINUE""|A$:A$""380"~156K"270:15,"M-W"(10)(0)(2)((T$))((S$))i"15,"M-W"(2)(0)(1)(A)"15,"M-R"(2)(0)(1):#15,B$:A(B$(0))"A99394"E1$((A18),2):E2$ER$(A)"P2$" ":C216C11516C1:T1(SSC2)#%TE$(T1):T1100TE$TE$" ":T110TE$TE$" "<%P1$P1$TE$:570:C2~%C1$(16C1)": ": C17C1$" 0"(C1$,2):C10C1$" 000: "%4,C1$;P1$;P2$:C1%C114:4,(13):%A$"D"560%4,)2045);K$((A$)127)I560; "";_%" ":"";p*"WORD #";WN-WN0WN255800/" ":"";4"ASCII, DECIMAL, OR HEX";MO$6" ":"";4      .       ,           "  "  . fLt$ DISK PATCOCK INTO THE BUFFER"1 #" F2 PRINT THE BUFFER"O (" F3 EDIT THE BUFFER"v -" F4 COMPARE BUFFER WITH DISK" 2" F5 WRITE THE BUFFER TO DISK" 7" F6 CHECK DISK STATUS" <" F7 EXIT FA$:(A$N$)133(A$N$)13970) H(" F3 LIST PREVIOUS 16 VALUS"7 " F5 CHANGE A VALUE"X &" F7 EXIT EDIT ROUTINE" (:"WORD# HEX DEC ASCII BASIC" +650 0A$:A$""560 :A$""20 DA$""PP16:650 NA$""PP16:650 XA$""800: CHAN ";K"";hS2:I100S3:I10S4I;S);H$,4);(A$),"'";(A$)31(A$)91A$;"'";(A$)32(A$)90" '";(A$)128(A$)203 (A$)127(A$"HX$"$"(HE$,HI%1,1)(HE$,LO%1,1)(#CO116:(B$,2,1)(HE$,CO,1) HI16(CO1)0#CO]#CO116:(B$,3,1)(HE$,CO,1) LOCO1u#CO:B$(HILO):63#""#D14:" "" TRACK: "T$;" SECTOR: "S$;" HEX DUMP"&4,(13)8& C1015:P1$"":P2$" ":C216C1 1516C1M&"T1(SSC2):555k&$P1$P1$HX$" ":570:C2&%T1C116:555:C1$" $"HX$": "&&4,C1$;P1$;P2$:C1&*C114:4,(13)::5609NX1000+>(MO$,1)"A""NEW CHARACTER";NC$:NX(NC$)UC(MO$,1)"D""NEW DECIMAL";NV:NXNVvH(MO$,1)"H""NEW HEX";HX$pNX10001000: INSERT NEW VALUEz(MO$,1)"H""";:815(HX$)1HX$"0"HX$H%(HX$)48 :L%((HX$,2,1))48 H%9H%H%7L%9L%L%7/NX16H%L%bNX0NX255"OUT OF RANGE":I11000:I:510pNN$(NX)B$(WN)NN$510"  WRITE BLOCK TO DISK """"";TR:"";:"TRACK ";TR"(A$N$)132) 200,500,2000,80,3000,5000,6000; P"* BYE *":j "  READ BLOCK FROM DISK ":: "TRACK (1-35)";TR TR35TR1"";:210 TR30SM16:227 TR24SM17:227 TR17SM18:227 SM20 "SECTOR (0-": EC0I0255:B$(I)D$(I)" #";I,"BUF:";(B$(I)),"DSK:";(D$(I)):ECEC1NA$:A$""5340bA$:A$""5336h EC0:"PERFECT MATCH" EC0:" ";EC;"MISMATCHES":" HIT A KEY TO CONTINUE"A$:A$""5383TN,PEEK,LEN,STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$ܙ ۙ/ڈ L L          18,  0.   ,   "",  ܙ ۙ/ڈ L L          18,  0.   ,   "",                DOS CHANGER 1984%E53281,0:53280,11:Q$(34)f(142)"DOS CHANGER 1984"A PUBLIC DOMAIN PROGRAM$"THIS PROGRAM WILL READ THE CURRENT DOS."VERSION ON ANY GIVEN DISKETTE AND8"ALLOW YOU TO CHANGE IT.) B ";SE:"";:"SECTOR";SE6:"TRACK";TR;" SECTOR";SE;" CORRECT";: A$HA$"Y"2000` 15,8,15:2,8,2,"#"r15,"B-P:"5;015,"M-W:"(0)(5);1;B$(0)*I1255:2,B$(I);:I+15,"U2:"2;0;TR;SE32:15:20 "  PRINT  )H$(H%)(L%)A$""A$"" 4,H$;" ";1A$""4,H$;" ";9 LD4," "KI\4:4:4:20"  COMPARE BUFFER WITH DISK "::Z"TRACK (1-35)";TCfTC35TC1"";:5210gTC30SM16:5227hTC24SM 1250' "LOCKED.":"UNLOCK THIS DISKK "CHANGE TO SOMETHING ELSEf "A BRIEF MESSAGEx "EXIT R$:R$""1280 R$"X""":15,"I0":15: R$"A"1510 R$"L"G$"A"P$"E":1370 (R$"U"G$"A"P$"A"0 20p"  CHECK DISK STATUS "6:::15,8,15:15,AA,AA$,BB,CCL15:AA,AA$,BB,CCp:" HIT A KEY TO CONTINUE"A$:A$""607020 N 75 BASIC KEY WORDS*N END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,R"M-W"(2)(7)(1)(65): 15,"B-P";3;2* 3,P$;@ 15,"U2";3;0;18;0[ 15,ER,ER$:ER211150v "DISK ERROR:"ER;ER$ "PRESS RETURN TO CONTINUE... 198,0:198,1:R$:R$(13)1500 " -    .       "  "           . fLt"*** PLEASE NOTE: A DISK WITH ANYTHING\ L" OTHER THAN AN ASCII 65 ("Q$"A"Q$") WILL V" BE "Q$"LOCKED"Q$" I.E. WRITE-PROTECTED. `"INSERT DISK, PRESS RETURN j198,0:198,1:R$:R$(13)1130 t"OK. ~15:15,8,15,"I0":15BUFFER "  "F1 HEX" "F3 ASCII"6 "F5 DECIMAL"J A$:A$""3013S 4,4l 4," ":4," ":4," " 4," TRACK";TR;" SECTOR";SE 4," " I024016:4,I; I104," "; I1004," "; L11617:5227iTC17SM18:5227 jSM20-k"SECTOR (0-";SM;")";: SCIlSCSMSC0"";:5227fn15,8,15,"I0":2,8,2,"#"}x15,"U1:"2;0;TC;SC}15,"B-P:2,0"I0255:#2,A$:D$(I)((A$N$),1):2:15 NOW COMPARE THE TWO:1370 2R$"C"1280 <9:9,09 F"CHANGE TO: ";:9,P$:Z P(P$)0(P$)1P$((P$))e Z"OK.{ d15:15,8,15,"I0" n3:3,8,3,"#" x15,"M-W"(250)(2)(1)(171) 15,"M-W"(1)(1)(1)(65) 15,"M-W"(2)(6)(1)(65) 15,UN,IF,RESTORE,GOSUB;4N RETURN,REM,STOP,ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE,PRINT#,PRINT,CONT>N LIST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN,NOT,STEPHN +,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND,LOG,EXP,COS RN SIN,TAN,A#" THE OFTWARE RBAN ERRORIST EAGUED" ()r" IS A PUBLIC DOMAIN PROGRAM"FROM A SOURCE IN ANADA, WHICH MEANS IT"IS OKAY TO GIVE AWAY, BUT NOT TO SELL.""ECENTLY, IT HAS COME TO OUR ATTENTION*,"THAT  HAS PUT HIS OWN NAMEW6"ON THE NUCLEUS OF THIS UTILITY AND HAS@"BEEN PASSING IT AROUND AS HIS OWN.J"HIS IS NOT RIGHT.T"E APPLAUD ANYONE WHO MODIFIES A UBLIC^"OMAIN PROGRAM (AND EVEN TACKS ON,ER,ER$:ER201480! 3:3,8,3,"#"7 15,"U1";3;0;18;0I 15,"B-P";3;2T #3,G$w  *** ERROR ROUTINE GOES HERE "CURRENT DOS VERSION IS "Q$G$Q$", ASCII"(G$(0)) "THIS DISK IS "; G$"A""UNLOCKED.":"LOCK THIS DISK": C$B$(IL1) A$""3070/ (C$)30(C$)90H$" "C$:4030A H$" *":4030R A$""3079g H$(((C$)),2) (H$)3H$H$" ":3073 4030 N(C$):H%N16:L%N16H% H%H%48:L%L%48 H%H%7(H%57):L%L%7(L%57)ESS ANY KEY]"198,0:198,1:R$:YDз̿" T(788)49788,52: STOP KEY DISABLE V""; XSS1024120:I0:B0:J0ZA$"":E$"":T$"":S$""G\"LEASE PUT THE IN DRIVE 0."v^"OU SHOULD USE THE '' COMMAܙ ۙ/ڈ L L                      .   FOR 4040/2031/1540/15414( "DISK PURGE"V2:"WHICH DRIVE (0/1) ? ";{< DR$: DR$"0" DR$"1" 60F DR$:D(DR$)PDR$ "I"DR$: 15,8,15,DR$Z 450d 1,8,3,"#": 460n: "PRESS'Y'TO DEL FILE":xZ$(0)  ܙ ۙ/ڈ L L     '           64.  "<"                   THEIR3h"OWN NAME.."(34)"ODIFICATIONS BY IFF ONES"(34)")";]r"BUT TO REMOVE THE ORIGINAL AUTHORS'|"NAMES AND SUBSTITUTE YOUR OWN...THAT'S"BOTH CHILDISH AND TRANSPARENT."HAME ON YOU, RIK OSEID. "[MORE]"198,0: T SECTOR: ";:NUS: 520: N$;" ***":, ^R0:140E h15,"B-P:"3;532R3R r1,(0);g |15,"U2:"3;D;T;Sr 460:z  1  "VALIDATE DISK Y OR N"  V$: V$"Y"410  V$"" 406 15: : "VALIDATING DISK" 15,("V"DR$) # PROTECT AND UNPROTECT FILESJN$(0): "FILE TO BE CHANGED";FC$\(FC$)1620~(FC$)16FC$FC$(160):2715,8,15,"I":2,8,2,"#":T18:S1(15,"U1:2 0"T;S:15,A,B$,C,D:AA;B$C;D: 215,"B-P:2,0":#2,T$,S$:TCT:SCS:T(T 40 B$F A$"DELSEQPRGUSRREL?????????":TT(TY7):(A$,TT31,3)j A$"UNLOCKED":TY64A$(A$,3)x "NOW "A$ :"ARE YOU SURE? "; 204,0:C$ C$"Y"C$""300 C$"N"C$""2:15,"I": 250 ,TY(TY191)(( fLt FOR 4040/T18:S1 15,"U1:"3;D;T;S4 15,"B-P:"3;232RO #1,A$: A$"" A$Z$e (A$)129 270~ K532R 2032R 15,"B-P:"3;K #1,A$: A$"" " ";: 220 A$; ,,"PURGE ?  "; A$:A$"Y" A$"N" 240        . fLt# PROTECT A198,1:R$)"F ANYONE KNOWS WHO THE ORIGINAL AUTHORV"OF IS, PLEASE FEEL FREE TO"MODIFY THIS PROGRAM TO DISPLAY THE"CORRECT AUTHOR(S)."E NOW RETURN YOU TO OUR REGULARLY"SCHEDULED PROGRAM...""[PR 460: 15 "  CHECK DISK STATUS7 15,ER,ER$,TR,SEF  ER0 S  15: 1l : "DISK ERROR! ";  ER;ER$;TR;SE   FORMAT S N$((NU),2)  (N$)2 N$"0"N$ &ܙ ۙ/ڈ L L $N$):S(S$N$) <I07/ F15,"B-P:2"2I32V P#2,A$:TY(A$N$):(TY128)0150d Z#2,A$,B$ dD$"":J015:#2,C$:C$""C$N$ nD$D$C$: xFC$D$150 FOI:I1000 I1001200 T0"FILE NOT FOUND":2:15,"I":j255TY)64)& 615,"B-P:2"2FO32:2,(TY);U @15,"U2:2 0"TC;SC:15,A,B$,C,D:AA;B$C;D` J15,"Iܙ ۙ/ڈ L L       ""ܙ ۙ/ڈ L L       ""       .       ,          A$  A$"Y" 360/ RR1: R8 140A 15,"B-P:"3;0Z "#1,A$:A$"" A$Z$ ,T(A$): T0 : "END OF DIRECTORY.": 400 615,"B-P:"3;1 @#1,A$:A$""A$Z$ JS(A$):: "*** NEXT TRACK: ";:NUT:520: N$; T 20);"NEX    .       ,                                     .       fLtd BULK ERAS. (147)" DISK CLEANING PROGRAM!"c(17)(17)(17)" INSERT CLEANING DISK "" AND PRESS WHEN READY":5);653,1:N30"# OF SECONDS FOR CLEANING 30";N(147)" DISK CLEANING PROGRAM!"ܙ ۙ/ڈ L L      (   )                   .    (3408)Ln W-ME-M SUNDAY SOFTWARE FAST FORMAT WITH NO HEAD BUMP! NAME,ID OF DISK: !Щ Р  ,  ˍ       l QQ$ L LL 4Lz hx` KNIAm   LM-WQܙ ۙ/ڈ L L   : 2P 2PPUPPP0U&P2i 2(ГPP #01C( V P070i 0 VPP (лL#Ц&&0LwLP ܙ ۙ/ڈ L L              ,          /     +  NO KNOCKS :U  PREVENTS HEAD KNOCKS IN :  PROTECTED PROGRAMS : FROM JOHN O'HARA : 15,8,15:15,"M-W";(106);(0);(1);(133):15ܙ ۙ/ڈ L  10)"HIT TO STOP"P (17)(17)(17)" PLEASE STAND BY..."h TI$"000000":NN60 15,8,15:15,"M-W"(0)(28)(3)(244) (TIN50 -((653)1)040 217)"DONE!":15,"UJܙ ۙ/ڈ L L fLt  (3408)L  L mLܙ ۙ/ڈ L L                               . P0U&P2i 2(ГPP ȍ#01C( V P00i 0L0#ϩLl VPЅPL(L  .                      . fLt+  NO ܙ ۙ/ڈ L L .              . fLt5"***5"***************************************i"** FFORMAT TRANSLATED BY J HARRINGTON**"******* WRITTEN BY *******"******* THOMAS TEMPELMANN *******K2492:"! "****LWDISK &&,&& t @JL@`x X0` QL22LʰS& ) U(9ȭ(ȥQȥȥȩșȹYYY((CнHS1 0h 1 fLt40:10 A$ܙ ۙ/ڈ L                  .           "  $ ". "SEARCH STRING";SS$'L(SS$)J"BYTES TO CHECK (10-255)";NB$t NB(NB$):NB10 NB255 NB L 8 "  FILE LOCATOR ""SEARCH STRING: ";SS$;""15,8,155,8,5,"#" : 180(T135:S020 ܙ ۙ/ڈ L   1541   , 9/85.       #8,   #1  -  ***********************************2 "K=25959 KW " DISKETTE NAME ";N$f "ID ";I$ 1,8,15,"UC:"N$","I$ 1,A:1:A0" OK.": "  ERROR !  o M - W     y"";  (A$,10),T;S &* I1NBL= : Q$(A$,I,L)R : Q$SS$ 1050X i Q$SS$500o $ܙ ۙ/ڈ L   1541    P0U&P2i 2(ГPP ȍ#01C( V P00i 0L0#ϩLl VPЅPL(L ' FROM THE TRANSACTOR 6-02 (9/85)/ *S ** SIMULATING A DUAL DRIVE **w( ** WITH TWO 1541'S **}2< BY GERALD NEUFELDFd USING DEVICE #9 DRIVE #0n TO SIMULATE DEVICE 8, DRIVE #1 x COPYRIGHT: G. NEUFE    ,             ,. fLt"SEARCH ST -: T18T19( 2: 15,"U1:5,0";T;S4 <: 180E F: E66160v P: " " Z: "TRACK:";T;" SECTOR:";S;" " d: 15,"B-P:5,0" n: 15,"M-R:"(0)(5) x: #5,A$: READ PAST : #5,A$: NEX    #9           . fLt' FROM THE  iiɛ q  FFORMAT TRANSLATED BY ARRINGTON  RITTEN Y H. EMPELMANN `h5h6565 5656l5 w é { өLN ֩0L LVQ` "QJ,104,153 132,3,185,26,3,72,185; 112,3,153,26,3,104,153W 112,3,136,16,211,96,32r "137,3,32,108,3,76,180 ,3,32,137,3,169,0,32 6117,3,76,180,3,32,137 @3,32,128,3,76,180,3 J160,255,132,251,165,186,201 T8,208,32,200,177,187@QQ$ L LL 4Lz hx` ܙ ۙ/ڈ L L                    LD, 1984 : K828:SUM0, X:X0180J K,X:SUMSUMX:KK1:150P :n SUM13992"BAD DATA":w 828 "ROUTINE ACTIVATED" : 160,1,185,48,3,72,185 123,3,153,48,3,104,153 123,3,185,50,3,72,185 132,3,153,50,3,201 ^49,240,7,200,177,187,201: h49,208,18,169,48,145,187Y r169,9,133,186,132,251,165z |187,133,252,165,188,133,253 96,164,251,48,4,169,49 145,252,96,-99 l   L mLT T & S : 220 : INPUT STRING8 : 1000 : SEARCH@ :M 5:15:` 15,E,E$,TE,SEq E20E66 E;E$;TE,SE A$"" I1NB : #5,C$:C$""C$(0) : A$A$C$   HH1:"" I1H8 :  2061 O#  41B8C0E1F56 LP4ȹ` Ѝ!Щ Lg' C h *  ? V H =hCL^ uLQLy SL O  LF LR  LJ LL  LT  L) L22L)LtDJJJJJ&(9ȭ(ȥQȥȥȩșȹYYY((CH芝1 0hLL 1 : 2 P 2P PUPPЭ4`Щ`  c  L  Ʌ = *L4Y  c  L7 Ɉ = *LC4Z  c t La Y\ Z\ D  = `Ls0P*`1PL0PLJJJJ ii0M) ii0Nݛ++++++++++++++++CURRENT TRACK: ݛ++++++++++++++++ SECTOR: ݛ++++++++++++++++ݛ++++++++++++++++NEXT TRACK: ݛ++++++++++++++++ SECTOR: ݛ++++++++++++++ ECIMAL/ABORT? (H/D/A)PLEASE PUT DEVICE #4 (PRINTER) ONLINE...ENTER TRACK:SECTOR:RESETTING DISK DRIVE.. 1-WORK AREA 2-CURSOR 3-QUIT ENTER FILL VALUE: PLACE CURSOR AT START AND PRESS F1 PLACE CURSOR AT END AND PRESS F7  PRESS F7 TO  h( L  L HDALVLH2L6LD2L6 hL < LCB C  C LbE F 1 /0L M N O ` H I J K `1   W ) L+ %L- 4LP L?LV dL=L MLDLC *L"L'` ``xXL`  c  L  y    H L L596:` 45ȹ   H `(_ 0` a b ` L! )_ z] {^ _z { \ ] z^ {`  c  L 4 Ɉ4 D  *L `H   *h`  c  L IBJC\ 5  ` c & ` `3  ` `C)C%i(iCiCLU`)؅&ii(iiL` Р D * `4Ko@ `0HIJ$JJ:0JII:0IHL`  4   H LN4    H L| 4ȹ ͽ  $ 4ȹ M N 4 M N ++ݛ++++++++++++++++LAST TRACK: ݛ++++++++++++++++ SECTOR: ݛ++++++++++++++++ݛ++++++++++++++++HI/LOW BYTE POS POS+1ݛ++++++++++++++++ݞ 00 ݭ EXIT TEXT MODE.. ENTER TRACK: -NO CHANGE TO THIS TRACK AND SECTOR- PRINTER ONLINE...TRACK: SECTOR:ENTER NEW VALUE:[DRIVE MEMORY MODE] ENTER BLOCK (0-255):CHECKSUM = DRIVE MEMORY:WRITING MEMORY.. PAGE#:STARTING TRACK (1-356 - L5 6 95:6 9 :L- 41<5 IBJC6 IEJF  ; Li "  D  *  h`   *L " . hL `  ~ L B   L IEJF\ 6L- L  c L  L< Y NLH `    Ll B C  L E F 2<  " ; L  "  hL ЩЩ4`  c P L  1 L2'L3 LL L*ɑ pL* L*ɝ L* L*`84484``4i4iɳ`4`4iɔ`iЭ4`L48`8`ݛ++++++++++++++++ ANOTHER DISK EDITOR ݛ++++++++++++++++ݛ++++++++++++++++POS: ݛ++++++++++++++++VAL: ݛ++++++++++++++++  ** PRESS '?' FOR HELP SCREEN ** #U1 5 0 00 00000 $00 0000000READING TRACK: SECTOR:WRITING TRACK: WRITE TO THIS BLOCK, ARE YOU SURE?OUTPUT IN HEX/D): ENDING TRACK (1-35):STRING:CONTINUE (Y/N)PRINT RECORD OF FINDS? WAS FOUND ON.. BLOCKS FREE..oi   LV   LL C  L E F `! 5  H ! 6  H 78 ! 7  H 88 ! 8  H  ! 9  H  ! :LV  L LV L: 6 -  L 6 -  L  I 0  `x o`  c   U J i Х `8 L` . c    H0.h ܙ ۙ/ڈ L            /     ,    ,   &       ,    ,     (2063)L  0, OK,00,00  Nnmmmmح) 00 JJJJ 0 0 ) 0L    MI0` `#I0 04040 2.18050 2.58250 2.7DISK?? ?.?@C@CBCBC@C@CBCBCHH M - R h h  H h`HHH M - W h h  h LS3 `L% Ѝ!  ؙٙڙۈ+ Y ˠ    Ȍ hL ... (C) 1987 TRANGEMIND OFTWARE..  HANGE COLORS OF WORK AREA AND CURSOR.^ ESET DISK DRIVE.  ETURN TO .  EARCH DISK FOR STRING.  (OOPS!) ESTORES HANGES.  ILL AREA..  EAD TRACK   ͽ`  L ͽ-  ͽ L  ͽ L ЭЍЭЍЭ'Ѝ(``  c > L\   Ll L  c  L  c  L C M - R   "  M - R   "  c "" ͽ< L=# L`JTW7r֝u6-=Mu6J77ՒMUsw)/^Jdvo])uvTO*ג+YR)5gy[W*թsw.J)J         .  ,  ,  , &   .    .    . fLt  -b hh`O K   й  Н` `DB08`:)H m hmLh D :L D =LHJJJJ h) L0123456789ABCDEF  ` B-D,    ` L@ ,  D  D  U 1 : 2 , 0 ,  D,  D   p  L L%   X # H" h 2H L > /  2H L /i./0i0L 01i1L  hL  c M Lj 4\ D * ` hLЩ L  LAND SECTOR.  UMP TO / AT CURSOR LOCATION.  UMP BACK TO LAST /.  NTER TEXT TO WORK AREA.  RITE TRACK AND SECTOR OR MEMORY. + OVE FORWARD ONE SECTOR. - OVE BACKWARDS ONE SECTOR.  RINTOUT OF TRACK/SECTOR OR MEMORY. ? (TH  c  L L [i · L!6 5 - L !iiL! 44L *  ? !  c  Lf! YN L! i ͉ L L! 56莈 ` c  L!  h   L  L B L - ȌL@ $L@ +L@ #L@ Q  L L ɝΥ L  i( L ɑ 8( L `* @ QYP NB8` `hhL g B W B V V ݺ W ݻ X  ? X mX `g '''1541 2.62031 2.62031LP 2.72040 1. B X # H" h B # D  D  O R S        I  L H D *  L h ` Lv L  \   c  L, ͽ-  ͽ  M - R    D  * hL  L M - W   IS SCREEN)  HANGE BYTE AT CURSOR LOCATION. = HECKSUM OF / OR MEMORY.  EAD DRIVE MEMORY.  END DISK COMMAND. * REE BLOCKS ON CURRENT DISK. SE CURSOR KEYS TO MOVE. xX` LY N L  !   L"L! h   L" , L2" G I J / ȹÍ I J  i LH"  h LHHHhhh` L J L@ LN.LL,-.,L@ ,ʎ,-.L@ 2$4/bA s  B L 1 bL @,#  ` L L T  L OS YTE INK ݫ ݟ$ ݟ$ ݟ$ ݟT= S= ݭ  TRACK  INPUT SECTOR     DISK ERROR : TRY AGAIN (Y/N/P/Q)? ARE YOU SURE(Y/N)?   ܙ ۙ/ڈ L   /              ,                      ܙ ۙ/ڈ L L-128     128      "  "   . '   128  80   .     C 7238:DISKNOSER 128 V1.5 BY ED PARRY VAN NUYS, CA 870309L!ZL[M\N]O`HPL L@`8 i@Q  $ 0 Qd0 - 0 -ǩ 2 < Q ¸ G Q /; Q  RLX YN󢑠 L   ?   U 2 : 2 , 0 ,  D,  D  bb L L   ?(L LL X 2 3 B H  B h J = NEXT LINK 1 OR 2 = DOS TYPE B = NEW BLOCK L OR N = NEXT LINK + = NEXT SECTOR R = REWRITE SECTOR - = PREV. SECTOR T = TEXT EDIT MODE @ = CHANGE VALUE Q = QUIT SHFT L = LINK BACK SHFT +/- = TRKKTEXT MODE(RETURN=DONE) }*R%u]~]WJ|ܗUs\)|)r\*R}))u]uw)uU׽sϒ%ϒ'-ݒWZJ{>Jsےw%w9wy]WUu|󒜷y=w%wr^WU)sWUu]WUezJ\tݹ+2]Wd)J   . fLt   ""  . (        " "      ?> fLt---- d0 - 0 -ǩ 2G Q  /ɀ -ɠi@ / -0 Q d 0 -ǩ 23 Q d 0 -ǩ 2  `8 RS`RSL }T? }B` _d 0 -  -ǩ_L2 }000` X # H" h s X # H" hȭ s ` ISK OCTOR RIVE OSRKECݫ EVIN ICKELL ݭ UP/DN P = PULL ID (2031/1541 ONLY)DISK DOCTOR BY KEVIN PICKELL MODS BY LARRY PHILLIPS PUT SICK DISK IN DRIVE "0" YOU SHOULD USE THE "V" COMMAND TO UPDATE THE BAM OF THE DISK WHEN DONE. PRESS ANY KEY WHEN READY.  INPUT TRACK  [\]  }U1:2,0,00,00 O q 0( g  S &V ` ͢ ͠ @ ͢H ͠@  ͢ ͠  ͢ ͠  @G< 0 -ǩ 2  0 -ǩ 2 "` " \`8   -ȱ -ȩ -DZ -ȱL-ǭq `r a q ``q ` + } q 05 4 } Ӓ \ sY^WXL$! 4 } WX 0 q -ǭr -0 } 0 q ȹq , -H0 hȹq -ȹq -ǘH0 hȹq -ȹq L-ǩ hT Lq }  P w G ! } } `  L 0:L-ǢL!  } `  `^ }00 00`  }00 00` L -ǍbM -Ǎc  N -ǍdOeL-ǩ٠ h O `# S } Ғ GZ ] k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@s ](R) R S (W) W  S]# : ] ](N) N S (P) P S ]M : ] BAM ]ESC - A U ] ]18 01 - S  D  ]CRSR - M C ' ] m@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@} $ & S }  PHh -  o H dee:0ebZ  _ XL*XPX s^_ Ye1dee/9ebZ  _ WL* & S } Ē >  f -  ȹ O L* }  } 1 0 }EVICE T 2 } NOT PRESENT.L/ }RIVE #LE0ɑ TTL/ЏTTL/ ! O L* s^  ͢ ͢ ͍Z^ ͍[_ ͢ ͍\` ͍]a% }UMP INK  Yq 0_ % } I0 " O x  X T 2) -L* }RACK : Z [ }RACK :  }ECTOR : \ ]  }ECTORZb  ` ͢ ͠ Zi`  . S , CA 91343 ] ]I'   NOW  GENIE (M  :EBBS) 818-846-8083 (EBBS) ] k@@@@@@@@@@r@@@@@@@@@@@r@@@@@r@@@@@@@@@@@@@@@@r@@@@@@@@r@@@@@@@@@s ]T :00]N :00 00]B  ]J  L  :00 00] ](+) I S (-) D S ]T : ] ](E) E  B (T) E  T ]S : ] ](D) D  # (8) (J) J  L  k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@s ]() DOS  h ݢɑ ͢нзбɝЧСЛL* H  $hL+RL+NL,PLL,+L,-L-@Lk-$L:.DL/JLQ0XL0WL51TL2EL2AL\3  L* S } 7.0 L@ s^_   S  L- ' f [ ې -Ǥ К L-$0:U }I0 O & S } Ē $0:  f - L* %.  Gi%. hT O q 0L>/ BU m/ UMP INKL* }ECTOR BUFFER AREA IS $B00 TO $BFF - P }M B00 BFF JЩPL & S } Ғ (/)?  YL* }ES  O q 0L* & S } Ғ ͢ ͍2 ͍2 ͢ ͍ 2 ͍ 2 ͩ<# V a` r3-$ }$@ $ % A`p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@n ] DISK NOSER 128 1.5  ED PARRY - 870309 ] k@@@@@@@@@@@@@@@@@@D :000]A : ] ]S :00]P :00 00] 000 ]P   :000 ]H :$00]S :] k@@@@@@@@@@q@@@@@@@@@@@q@@@@@q@@@@@r@@@@@@@@@@q@@@@@@@@q@@@@@@@@@s ]MODE : ] DISK STATUS C  ($) DIR C  ] OTHER HELPFUL KEYS ] ](X) M  (A) A T k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@s k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@sSTOP - T B  --- ] ]18 00 - D  H &  } '"Yq 0_ L*^5 D, }EXT  q 0 Y  _  D, }EXTL*LYD , }REV^Z  q 0!Y8  _ Y s , }REVL* LWPW s^_ Ye9c 2 - - m/ - n% ʩ 2 } DIRECTORY ENTRYS. - -  q 0 [/L! }-- `UU( 8O L/U 8' LB }RIVE # (T 2) -ǩ - S !  }B-P:2,0   }U2:2,0,00,00  O L* ? }CREEN S } Œ - TO XIT Q L{2Hh Ȅ /  - oͥ H h  $ ? }CREEN & S }  L* S }/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@s ]EBBS 64/128 - B  S/D'  $40. E P/N  ] ]P      $1  E' 'P 8711 L S. #8 ] ]   '   / ÙϏÁ????????333333????????? 3b54c6o#o"i"5"5ie556d#d"n"5"5L edc4b3 a e334oȱojȱokpok4j3 ej34aaf jb%<de Lfi"af0,%<de eYJe dcdbdaL$;_0ȱ_pL IJdeLpL p aIȥf %bIȥcIȥdIȥeI;LereYJaHc4b3<00``0~~8  8p8|~fffff<ffff<fff~~ff<<>f>``|ff|<```<>ff>>ff>|``|fff8< x``lxlf8<f~~ff|ffffff>|f```>`<|~ffff>fff<ff~~ff< x~ 0~<0000<`p8< <<~fffffff>`<|fl6f 00000 f<~$ "%$:!& R"IR!!&R"d:'R!΄R"d:R!΄R"d:R!΄R"+"(R#ELJ#R"҇##$$%^%~&9&#T&'\'v#&#'#) )*C*J*Q**++###+ *! eidL{Lkj$"jzȹ"ȹ:,8jaL'IS R'Y/I[/:R!΁ER(S//AR(^/3!5a'PR':::0/// R':/ ::R'G; 77q;7!LENAME :ٰڰ۰<@ PROGRAM: <> PASS0>!PASS1>ްߒ   3!! :-!++.R$M/ L/),R#:-!++.R$+/3!#/:-!+.R$)܊:-.R$!3!R*8!3!:*'!:3!#]/*U^/*U_//3+?:R*-.R$!++?R*,R#:-.R$!++?R*,R#:-.R$!++?"+?3!#:R#0: @A1(B R#.R$9 99 !:9: 77373:3+0:1)B R#.R$9 99 !:9: 7+73:3+:R#:-!/7+73!93!#?+?:-.R$R+B/?D/!/3!#!,--(#KLJR#- EXTENTIONS)<G33!:*:* R##""*!3!"" :*#!:32082:!#AZ R"#W:1,2@ 3,6+.-R#:-.-R$!+!#O/:/3!5aR"+;]"+N/#I/#/#/#/#!f %bb"#LC + 8:H9HJHIH HLiJI iL0JI Ȱ&iHi$h f IJ g л ]LqIIe  qIId de Ed0' i;L8 :9Lِيi;L; d!:$2a:D/,S,W`34::*,5%:*5  R%0" *"5$33434$" :*,5$B33<41θϸ>€@À @Ā  ǀ Ȁȱ(ɀ(ɱ(ɲIIFa`a`<R RAR BICPFI!R'3:333333!!;33333373!!33T3!(X:-.R$//),R#5a/3!/,:51<1!;;;z R#;:: !;:; 7//,;373,=/==,R):!/3,!#:-!+,R#.R$" :3K: K9KK9  93,9 !:9: 7:R2:373,3:373,:3,AR;]:A V::3,I87:I73.3II-.R;ՠIII27I62.,77:30)R;]I882 862:: :::" ,R#:R+!B3!5a+?: ?3!#! A3++R,@3+:-)R#!+!5a, ;R,*:R,u+⁦, ;3+, -R,^, =3+, !<3!5a!+>/?C/!/3!#? E3!#"+:?-.R$!`3+R,,R#:-.R$?!" MM R4ȦNMNNM3,MM R4ߦ3M3,M !NMN 73N373,M3,-... NN7N7,7.3,:< R5M-<:09 X<3<5J!/޴B!<<BS:C:,P,W`;K  R7rO:;+:7B3<3oSSTUUS:U/ /# R9e/# //U/ R9R9eU BUB .B3<3<.3FNRARJR:@RLK Ǡ.Ƞ#ɋ:;p .: !;:; .B.3<;3X4<@?<)< IN<">`B?<)< IN<"Caښ(ܰڜ(RAR@:BS:P/CBS:D/C2:P::P"9LR3ǿǠ:ȠLɋ:93L:L7 L9LL9679 979 ;9 79373,7 !:7: 7373:3,51<,.5.,.<,ER45.,E<,<1'R4;,,/4,,1MM!NMM NM R5"++R,,R#:-.R$?!++R,,R#:-.R$?!+++?3!#:-.R$!a3!:-#:+#R-u!1,/. 3,2 3,!+,F3!R#5a,R#:-5:-.R$!H3+,R#-o:R#&!&&&C&"a=5naBS:Z/C5a:Z/,P,W`;KB3<3BS:P/CBS:D/#                                        # 1 = SINGLE FLOPPY>2 = DUAL DRIVE FLOPPY>(3 = 2 FLOPPIES WITH DIFFERENT ADDR'S >F0>ΒDRIVE 0DRIVE 1R=;R<A0DEVICE0DEVICE0R><@ SELECT MODE :>!1. = ONE FILE TO DRIVE 1 >2. = ALL FILES FROM # 231 . . () 1983 , 94041 ,.Lldme Ed0%<deLadD$p dePaɁJFic;bJ3dc(bJf( d(e$f <L L L1 \ 0 BF< l%ddm%e l# IN OVERLAY><PLEASE SELECT!>F R> (PROG. MODE :0)XݧO>?<@Š->@X>5nN <<1 INSERT DISKETTE WITH SOURCE FOR COMPILATION >PRESS Y WHEN READY >FYR?tBI0C;KN#d0f LdElfd lIlmImmldel llmmbcdejkF()()F(f)eemedeldcekcbejbm&l&k&jѥdIdeIeed`Jeemedeldcekcm&l&kީ L9:z{=>Lᧅ4<@aaaaVV3<OOA4#LLe:;;~padD$p deEaɁ?;ic0bJ(dc(bJf(d(e$f LeHdHcHbHaHfHHeHdHH;ɠHk-ȱ-dȱ-e Lȱ-< 8e-Id.iJeIcIbIaLɦ}9 ɤ9L:ȱ-aȱ-f #BU %BhB Bݥ ll BBBL,ܢĠBL.L`lH Ѝ!Х&H'H\&C'H&(ɠ LC C& C& CLB&'`&' Chh'h&h BH h`H'd jS+{           # " &-L3-ȱ-/e/_ȱ/e0`A-%ȱ-$:-&ȱ-'"#,e__`&_"##%"$`ȱ_'3#-ȥ"-` -L - LZÀñòóôZõö÷̀΀р QYҀұXԀԳAAAҳBX1X2X3X4ԸŀX0ԲIB1µ³B4IC2X5X˲EJŲ̲ʀFA#                   -64 Ԡ     Ҡ              # << TO > BLANK DISKETTE IN  COMP-MACHINECODE >3. = ALL FILES FROM << TO > BLANK DISKETTE IN $ FIRST FILE WITH COMP-BLOCK >4. = ALL FILES FROM << TO > BLANK DISKETTE #ddmeeLLHkiɁjJfknIlkIm` 9P:Q L# LP9Q:L-.`_0/ȑ_e_7834hhHH;AB`NmeeldL meeeleddpLbcff p ۼLbc# ,WANT TO NEW DISKETTE YES/NO >FNR@YR?FORMATTING DISKETTE ! >$0`;KױVVHF"3RVVHF"3 RRR5 RR/4R@JHFHFHFHFعaBN<<:4<DEVICE-NBR. COMPILED PROG. :<>OLBLb#?wE}E`l" 12,035 4 NMB BB .MBF Bݥ N.Bll$ Bݥ B aBB aBmB.BLlMH a#bȱ-cȱ-dȱ-e pL99 :)H`9G &`,$--"ȱ-#-ȑ--ȑ--i-&- ---`"$$0 ՠ -:`%-ȑ---"ȱ-#