!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYS!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYSPP PP #HP$A#PP H(PP P@#HP$A#($AP(@ wCOPYCATS 05455 [aqqqVqqqQVqqqQVkaqqqVqqqQqqQqqؽ׀kVVVPPFVPPPkkVPPFVkVVV}}}~}}}kkV}}UVCDDDVDDBVXDDDkCDDDVVV[iaqqqqqqqqqqqqqqqqqqqqqqqqqqqqqQUqqqqqqqqqqqqqqqqqqqqqqqqqqqqQUkkπVVؽ׀̀VVkkЀÀVV\VVkkπÀVVVVkkVVʀˀVVkkVVҀԀ̀VVsqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqrqqqqqqqqqqqqqqqqqqqqqqqq]qqqqqr^_!"zj!:jj`6G!.k6>~~~~~ OV`~~X` `> 66~a#ͣaͤf~ ʝ`n f ~w#~w#ê`#6>##6  B"zj #6N 6#6#6#:hjaG!.m6N6` 6>~~~~~ O,a~~.a>6N6 6~a#ͣaͤf~ zan f ~w#~w#Ça#6>## >N!Rw`~ʹaʽaaaaa>a>a>a>wa>aa>w6!B![<~/# bb6 #!ce`/w#!T?" @!k/cPtj/lc x[b+b!c!77>2f͜cc>2f@c2xj2ffi!scW?*dgj:jjbͲf>2f>2|j!.kad:j2jj:hjbͽf>2f>2|j!.mad:j2hjbd`!cW?>2wjͤffg!ci!C@6!??6 ~#3/c39;99 ͜ccs!c!@?" @!j/ctj Xc!ccsIc READING DRIVE 0WRITING DRIVE 1TRACK 00 >27ͤf ͻc§cͻcʭcͻc³c yc:7O!c!@?" @!j/ctj c!cÜc:7O"cdͤf>27g ͤfxd:7Wc:7_O ͤfxd:7"d2jj2hjͲf>2fͤf>2wjͧicUdɽfͧic[d>2jj>2hjɯ=2j"~j>2wj!76gͤfNzdͧi:p2}jÑdͤfͧi6 :yjʠd4 >dʳddd*~j:|j=2|jadÙb !p:j<2jd:}jݾ dd!.kp>2wj:jjeͲf2jq p >2|j N>e VMei>ʐe7e_mete Ðeͣa Ðeq p ic`eSʐe:|j=ʁf2|jSe Ðe:|j=ʁf2|jN F i$e 66Ste>k¦es­ew :j=2je!.m:hjͽf2jq p >2|j N.f Vfei>Sff_f=f Sf Sfq p ic!fSSf:|j=ʁf2|jfͣa Sf:|j=ʁf2|jN F ie66S=fkjf>lf>w :j=2je>Òf>2fÙb ޯ2f Fʭelf>27:@8bi>27>f>27>27g2yj>27>2f:jjʮg:hjfgͤfͽf*zjͤf"d:wjwg~iNgNgNg %gN0gN&gN;gN1g %g%g 9jͲfKzjͤf"d:wjwg ~iNeg ygàg N{g ʠg N€gN€gN€gF‰gi‡giͲf÷g:hjͽfͤf"d:wjwg,j!.k>2j:jj^hgfG>2f~ hN F ~2wj~27~27j>h !.k!>2wj:jjG~ Bhi>Hh^h:j=d2j!.k:jjGg!.m>2j:hjͽfG>2fN F ~  h~2wj~27~27j>h !.m!>2wj:hjG~ hi>h:j=d2j!.m:hjGvhhj>j>!?" @!j/cÙb"d>2f!ib0 ͤf>C27g"d>2fͤf>C27g"d:xj<*bi2xjYifi>27fi>27 b&oc!iFNBځii ~iN,j N9j N>jN>jN>jN>jN>jN>jFAji>iÙb+SECTOR WRITE ERROR. RETRYING.REMOVE WRITE PROTECT TAB FROM DISK IN DRIVE 1HIT TO CONPjTINUEDISK DRIVE NOT READY.HIT WHEN READY.HIT TO START COPY b RDIR/SYS:X  R~*ʯT: #~2R2QT2TR!V$D >, D!WS DS DS!4TgD:WGS DS6D>, D:WG!X ~  yRS S!STgDA!X~(~  ~ݾ ##0@ ~~ww##S D SS DS=(< °R!W!X:WOf w$~( 4 ~O# !V~(X~og~(#.T  T.Tw>,ɷR|Reading directory on drive # X Sorting all non-sys files Writing alphabetically to drive X This is sorted!fT ---Sorted--- !TgD Disk Directory Sorting Utility Version 6.2 -- 18/09/85 (c) 1985 by I B Smart.  R:4͏*^#V#"%>":͏(͏*~͏!xZ*s!x 8w#6 #TRAK13jф;mҟҾӬtӊӚ׌ !+"I@!=" @!6Z-@TRAKCESS (C) 1980 by ROXTON BAKER Box 8272, APO San Franciqsco 96555 Go into Basic without setting Memory Size. Then: RUN "TRACK" !t6# x !6$6/:v27`>270`&} :7O(:v27:8 !Ú % 0>27 .:70 0:7-}>w!!گ222 :v27:8 q!ʚ nf:η "n f "[͐ n f [͐g:<2!~ʚ ~ nf>͇g( >ݾ8&>2:v27>͇srW>(8:=2 >2:v27>͇srW>(:=2 :<2>wz`w6/~w~w~w~w:<2a6 #!:qw:w&o:wÚ "727:70 0:7:7z > 0 " s# x :2 6#!`8#`8-<8:=2( - 0!Ú 6#~w#~w#~w#~w#6# 6#6#FN[ R6# x(s#6#[͐K}[yq*{ u!Ú  "t"7>!wӦ*y27:70 0:7w#:72x_`2{&oC}Ú  "t"7>!wӦ!Ӷ*y27:70 0~27#:72xC}|(&oÚ >!wӦ27*y:70 0:7#(!(-Ú *y>27:70 0~27#:72x|&oC}Ú *yq>27:70 0:7w#:72x&oC}Ú  K}[~# x SÚ  }[SÚ W????S_OWyWy_ ]o>27{27&!N:7G( x %| K{27>:7O x 4{27`:7O(w(>27:7x(O(&qÚ  ""222!x<" @!Z>>2<><2<>=2x=>H2~=*"!;" @* @#" @*!Zd>2*6 :3*[ӯR"!A͝ ͽZ>D2=!=~-(6+:8ԧ(:8! (A(H *"t5 *~ w2 :2%`:[(G> (͚3(:=2 ">2G (:\<2 2͚B`:ӧ P:B2*>w:-3:@858O:ӱ*w~-OA|3}37`:O 0*w~O 0-3[2O>F8>/0 >@8 y:870:7>8>y>_~_+~+*#" @+W!6@w# z:ӧ(=2:ӧ(\t*6 *>!??7 = !<" @!Zt~ׯ2:(<2:ӧ d*6 *>!@<<7 = !?" @!Zdl>2!2!6:#6 #6JN:ӧ Ar#s w#6 ##6#6#6As+r+HAs+ryP_yPW0:~\3#* "* "*ӯB"*ӯB"ADDRESS?TRAKCESS "dÚ  M*y[{+#q͐ @=!ɰװ0-3TO SELECT DRIVE G TO GO TO HEAD POSITION I TO STEP HE\AD IN O TO STEP HEAD OUT R TO READ A SECTOR W TO WRITE A SECTOR T TO TAKE TRACK FROM DISK P TO PUT TRACK ON DISK S TO SCAN TRACK SECTORS L TO LOCATE DISK SECTORS C TO COPY TR\ACK D TO DUPLICATE DISK B TO BUILD FORMAT TRACK E TO EDIT MEMORY F TO FIGURE CRC VALUES TRAKCESS V 2\ڃLD FORMAT TRACK E TO EDIT MEMORY F TO FIGUREMMMM(%^me6K{N: eҒtaᐋ`M<%,! y0oӔw"]qAf:+99ĀW =pqhMTF 1Knф.1.1|>{a,u̓?w 363Λ-MFvy دn.<ۮSN7|eT7 †J\ kB$#։ H'_QKo :5/10/81 no: *** TRAKCESS *** o: VERSION 1.3 o(: "ACCESS TO TRACKS" o2: COPYRIGHT 1980 BY ROXTON BAKERp<: BOX 8272, APO SAN FRANCISCO 96555 UpF:(23):@340,"TRAKCESS":@666,"BY":@784,"ROXTON BAKER";:0:800:"T":AZ]pP:pZDM34: <=== SET TO # TRACKS MINUS 1.pd:qn254,0:3620:T1:F0:Q(DM1):CV(DM1):AH$"0123456789ABCDEF":F$"FBFAF9F8":E$(13):KL$(30):CF$(31):A(X!)X!65536(X!32767)qxB!(X!)X!65536(X!0):M(X)((14338)32):S$(X)((X),2(((X))2)):D(I$)(I$"0")(I$"3")rH$(X)(AH$,X161,1)(AH$,X16(X16)1,1):R(X)(X48)(X70)((X57)(X65)):G(X)X(X57)748:NQ(X)(X1)(X2):DN4:ROT:NDTrDM$վS$(DM):LCվA(256(16458)(16457)1):PS(X)վA((LCX)256(LCX1)):0վPS(0):1վPS(4):2վPS(6):3վPS(10):4վPS(8);s5վPS(34):6վPS(12):7վPS(16):PEվPS(18):FIվPS(20):KCվPS(14):MAվPS(40):PDվPS(30):HAվPS(26):TVվPS(36):SMվPS(28):ADվPS(32):DEAD:3250sAHUH:ALUL:WMվPS(22):DTWM:DT!վB!(WM):DEWM:3250:THUH:TLUL:DE!WM:3220:WM$HE$:DE!WMTV:3220:EM$HE$:BSվPS(24):IBBS3:H1BS6:L1BS5:H2BS8:L2BS7ftNHBS10:NLBS9:CTBS14:CBBS13:HP(0)BS15:HP(1)BS16:HP(2)BS17:HP(3)BS18:MDBS21:CM14316:DR14304:TR14317:DA14319:t@320,"IS A PRINTER AVAILABLE AND READY (*Y/N) ?"tI$:(I$"Y")(I$E$)(I$"N")190:PN(I$"N") t:MENU*)u:MCF:X5(0):PN220:@898,"H";:@902,"TO HEX DUMP TO PRINTER";Hu@949,"1.3";:3510:X(I$)uI$:I$""230:IS("*IOGLSTPRWDCX0123EFBH",I$):(IS2)((IS14)(ND))((IS21)(PN))230:ISIS1.vIS370,400,430,460,880,1100,1170,1210,1400,650,950,860,270,270,270,270,1810,2300,1930,2210:IS2210:3510:PI(16439)_v((IS1)(PI2))((IS2)(PI128))240:230 nv:SELECT*vSD$I$:DN(SD$)330:@64,KL$:DVDN:DN(SD$):DS2DN:3300:DFOL(DN)F:DNDV:DS2DN:330:ZT310:DR,DS=w:@12,"-------- SELECTING DRIVE ";SD$;" --------":ST(DN)(HP(DN)):(OL(DN))ST(DN)0w"TS$վS$(ST(DN)):@320,CF$;"ENTER HEAD POSITION IF KNOWN (*";TS$;"): ";:TS$:TS$"M"DNDV:DS2DN:330:(TS$)2280:ST(DN)(TS$)w,(ST(DN)0)(ST(DN)DM)280x6HP(DN),ST(DN):DN$((DN),1):ST(DN)0320:3500x@OL(DN)T:NDF7xJ GxT:RESTORE*x^3300:CM,3:3340:ST(DN)0:HP(DN),ST(DN):OL(DN)T: xh:IN*xrST(DN)DM380:3340:CM,83:ST(DN)ST(DN)1:HP(DN),ST(DN)x| x:OUT*4yST(DN)1ʑ350:410:3340:ST(DN)0410:CM,115:ST(DN)ST(DN)1:HP(DN),ST(DN);y My:POS. HEAD*y@320,CF$;"POSITION HEAD ";DN$;" OVER WHAT TRACK (0-";DM$;")";:TS$"M":TS$:TS$"M"440:GT(TS$):(GT0)(GTDM)((GT10)((TS$)1))430:3380y y:LOCATE*z:NST:MCF:ROT:@7,"-------- LOCATE ALL SECTORS ON DRIVE";DN;"--------":350:JP0DM:M(X)MCT:JPDM:490:3300:Q(JP)(ET):NSNSETzETIT$" HAS NO SECTORS ":IT$" MAY HAVE SECTORS"z@320,KL$;"TRACK";JP:@328,IT$:370={JP:MC630:::(NS)500::@320,KL$;"NO SECTORS ON DISK!":3580:630[{3420:MC630::PRʯ" "{P$"TRACKS WITH POSSIBLE SECTORS:":P$::PRʯP$:" "{J1{TB0:L$""{JJ1:(Q(J))550:L$L$(6((J))," ")(J):TBTB1|&(TB10)(JDM)540:L$:PRʯL$0|0JDM530:::PRʯ" ":" "g|:@960,"CONFIRM VIA DETAILED SECTOR SCANS (Y/N*) ?"|DI$:(I$"N")(I$E$)630:I$"Y"580:3420:MC630:350:BS2,DS:JZ0DM:Q(JZ)0620:GTJZ:3380:M(X)JZDM:MCT:620u}N3340:ET620:X0(0):X255JZDM:620:X0610:P$" *** TRACK"(ST(DN))" HAS NO REAL SECTORS ***":P$::PRʯP$:" "~}X620}bFGF:2690:MCJZDM:620:::PRʯ" ":" "}lJZ}v }:DUPE*'~:ROT:MCF:DN$վS$(DN):@10,"-------- COPY DISK IN DRIVE ";DN$;" --------":350:DR,DSV~@320,KL$;"COPYFED (Copyright 1981 by Galactic Software Ltd.DR Y00102030405060708090A0B0C0D0E0F0 FED - File Editor Version 1.01A Copyright 1981 by Galactic Software LtdFilespec:Relative Byte CommandPress to continue, to abor Drive Record X'0123456789ABCDEF BYTEZ 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F Printer Not ReadFile not load module formaByte not in load blocLoad address not founCursor not on Type byt Loads at X' X' '= Values -[ \ <;> Forward ONE Record Cancels command <-> Backward ONE Record New File Beginning Record of File Save Record ] Ending Record of File Exit FED Position to Record Hexadecimal Modify Go to next Load Block ASCII Modify Calculate Load Address Toggle Display modes ^ Find ASCII String Find Hex string Locate Hex Load Address Go next occurrence _ Dump File to Printer Output top-of-form

Send Buffer to Printer <=> Display Binary Value Press to Return to Display Mode %` Z`:%I!C !D~2`6"`͟g2 `~ (BR~# 2 `͝n2 `cni>2 `1AͫmRj`! `G~bi-ix "h "h"h["h"h~Zi~8$0 x `~d Xc ʃjx ~ * `péaZax0 gEj`ʹi* @:`(#@" @4~(9`~=`a:` ^` ~=`* `6 v r~rfapor!cYnk*`RڿrS`BKoi!bY6R`>Fo͆o!cYnkS(`>2'`rs!xHʌbAʗb;b-bRcB%cE>cNMcPʫcTcD^cScX]dFhdCvdGʗdLZbdMʂuOcZʺd=ʢb "hp6i͖j`6i͖j`:``> i͖j!][?*`>00<x >,`>+i*`K`B`C`o͖j`iK`x` C`o͖j`6ʹipo>Fo͖j`ii!bR"`C`o`iiss`6 i͖j`Zciõ`6i͖jrK`C`ͅcqͅcqͅcqFuAqC`*`BK`C`2 `o`6i͖jrqqAqiqq2 ``i͖jirq`ii!`~w͓k͎mi`6i͖j`i!bRbS! `pK`BRBDo!dG^#V:IR jGw+wBRFo`ii'`ʿr$u"`K$`C`oi`This area is reserved for future use - additional commanZeds, patch space, or whatever Galactic Software intendsto do with it. This program is worth its weight in gold. Zf ͂g!&>$:kf=Gh N>?:kf'=GhVzO<>,,-'#%$f,L=<>//O a$x (%%$whn>=ր!fqg&0n}#D>0o> g!IG,|g-$<xOA~/< w##&0\YzW~(͎m!`~<FB:^fb2?#?zZg~R~v2^vFj2&~:n2rK͂g!<<6 "gg͂g!awp!Y]~;gw# x (˿ga{˯͂g!YY6  !BRY~g.( :( (#6:#"`w~ #˾͂g?h(h` i!bR"`qh( ( ([ Zh*`bRR|ѷi"`h͂g*`bRR}ͦj"?" Y͎h:`=*`^W{ͦj"_[jc[H!f[QYh?h>O@hbY!][B*`bRR:`0 :`o}2`:`͓k͎mDj8x"hni!bU w!< wj*`wri! `6jDj`in!cU w+V!< w_jriͤith! `6`Zix"hiri͋iͤith`nG  0!<p!bUpnͦj\U!bU r#s!< r#s*`waSRQh͂gi#" `> w͂g!bY" `cY6 Ai6 2 `* `w[ @͂g:`(!?!?" @͂g: `: `m: `ĿmV#^jz0 8''''W{0 808:?x;j˯A8G+(ZjffW: `20mjzzgWi͎m>3ü`qg!<" @*`:`w-@:`!?$6 #GͿjoxͿjg00 th`0 0bk)))_>W#x!9k!/kV^R8<0w##{(A ~0(#x60'd >k!9kJ>`k>`k K0:8w#~00 8 ˯ ))))_>#͂g͚m:`¢l!bRbU~  0># 0!wUV#^#>k~w### !YsU> !UYw@!V6#6!U@6!Y6>th͉l!U>ldl!C:"_Y!rU>Zl!UZl!uU>>w@͂g[`>k@:`(_!<~w#K`*`B:`>*(2V*`bRR:`(00 }8>2`!bRK` bU~  0>#!.VYw+w####x ##V!YK`999 ~#~#>>> !Vͦjs#r##>mx ## !mV1q@q#0rO![X͉l!9ZYhth!HZ"Yhi!bU<͂g!bUcU6 ͂g!`56m!`56! `~w* @(6[ `wn! `~w(>!<w w#w!bU~!<w ~#~*`bR:`?nRWG}O}_)) >A( O >nɷR[`R]}o))K [(##{G'qg!Y<h#h!Z@<h!/Z=hS @!BR@ڃjx >ogBRD !bS$Do:HR0*`wKNR C`C`!bR"`>3o: `iiBRBDoBR6D!bSbR͓kon͎mK`BRBDo6Do!bSbR*`BBD>oo6DoG:`(!?" @!=6#6@66+6!=" @:`!=?6 #6 ͂g:` !=?!R~w##~w#!?R͂g:` ?!=!R~w##~w#!R?o: `ʵ`͎m!bR"`thÿrqg2 p!op&=n" @ D!PZ ?h+ ! `6d!` (!VZ?>p!kZ%?!<?%?! `5(+ʃj ɜĮp! `6d!` ( !<? !??! `5p+ pp`! ;>quji0rG>-/G> qGqqq!ZI~q#qI>=qq!bR~ 88>.q#qq>>qqq~qqx qq#qq͂gͦj}q| >  > q> ͂g;q͂g%@#qg=!Zhp͎mÿr[!Y~:(>r##!{Z ~!Z [`jH~#y!Z[`>k~#>'po>Fo* `#" `* `bYRE(r#~ (Aji* `6*po͖j2'``* @6 i'`!bY" `r#~ (px(ii>Fo*`bRR}=2"`K`C`o:"`<_DG!bR!'`~bs#>sq>2"`*`K`BʡsC`!=

tp͎m2'`ÿr(3($( ((v!Z=qghp͎mÿr"u$u"uK$`C`"u2&`"u_"uWbk:&`O  K(`B8 bkB( 8u t:"``iRE:"`x$u"u"`u2"`K`C$`u2 `K`o͸o`:&`$u"uK$`C`͓k͎m͸o> =0u>O :"`2"`01>uK$`C$`BRBD6Do!=v$u>$uõuK`"uG"u_"uWS(`"u[`*$`R y("u[(`S(`õu[(`>kpo>Fo@:`( !K[h!?_~w#vi2'``͂g!bRbT͂g!bTbRZ`R~ARW~ͥU8#~/ #~ͥU8#~. #~ͥU8#~: #~ͥU8#>~ (,U#X~A0/(:UO!W~U(#R ~ͥU8#~/ #~ͥU8#~. ~ͥU8#~: #~ͥU8#>~ UͳU> 2:XU-@: #~0U4U25XO#~ (,SU#~: #~0U4UU26X> 27X28X29X#~ (, #~K 28XS 27XAU29X~ UͳU!WW :5X2WW!?XU$DUWSUBDU!?YWU6D(((U6(!?X@U8 ~w## WU(DU:6X2WW!?XU$DUWUBDTUWU6D(( (UJ!?X@U84!?Y~() ~ݾ ##   WU(DU!?Y~TwTT!W!X~ ( ww###~ ( >/ww##~ ( ww###>:ww##:5Xw:6Xw##>ww:8X2:XU vT!WgD:U=Xd2U 2U2U!WgD:>Xd2U 2U2U!WgD-@/ 0y3~ X~ S S~Y L~S E:7XS <~D ~I 0~R )~ U"B ~O  ~T ~ 7ɷ0[?A:?*I@%++";X2=X2>X!WgD!@8^>9Uv( ^UF(>/!0@ D!WgD!WgD> V3W!?XU$DU> 3!XgD> 3X!?XU$DU> 3: @? !W!X~ V~ V~V>3>3!bWU6D(V((U6 6#!?X*;XR06>3!b~V(#XU6D(U!?X #!=X4> 2:X!nWI::XKW ?:9XA(/!WgDU+Y(y(N(n > 2:X!W!>X4!W !>X4!W!WgDWU(DUXU::XK ,DU(DU***** NOT EQUAL **wW***  EQUAL EQUAL -- KILLED  EQUAL -- KILL? (Y/N) NO YES  DIR/SYS:X FILE(S) NOTEQUAL FILE(S) KILLED RW ?:9XA(/!WgDU+Y(y(N(n > 2:X!W!>X4!W !>X4!W!WgDWU(DUXU::XK ,DU(DU***** NOT EQUAL **wW***  EQUAL EQUAL -- KILLED  EQUAL -- KILL? (Y/N) NO YES  DIR/SYS*\q(=]TD6:#:sw#6 >0#qt( #D!t rͳq!t08:8 A8 [007ɯt͈r͎r6"# sk 14-May-82 COMPARE/CMD ----------- (a B.E.ware product) Is a utility program to compare either two specified files or to compare all equally-named files on two different drives. When comparing drives, optionally all duplicate files can be killed automatically from one of the two drives. The program is intended to be run under NEWDOS/80 only but may process other DOS disks (not in drive 0!) provided the file DIR/SYS is a readable file (proper hash code) See appropriate "information zaps" in the NEWDOS/80 manual. COMPARE can process NEWDOS/80 compatible directories of any size (up to 6 grans) positioned anywhere on any type of drive. Usage examples: To compare two FILES: ===================== COMPARE,FILE1,FILE2 COMPARE XY/BAS /BAK COMPARE PROG/BAS:0 :1 COMPARE FILENAME/EXT.PASSWORD:2 NNNNNNNN/EEE.PPPPPPPP:3 Parameter delimiters may be comma or space, as in most NEWDOS/80 commands. The second filespec may be abbreviated much like in COPY. Passwords can be given for file compare operations. Specifying the same filespec twice is allowed -- the effect would be a test whether the file is existent and readable. To compare two DRIVES: ====================== COMPARE,:0,:1 COMPARE 1 0 COMPARE 2 3 S COMPARE 0 2 K COMPARE 2 0 K S COMPARE 1 2 S K A Two different drive numbers must be given. All files occurring with the same name on both of the specified drives will be compared, except files with extension /SYS unless the parameter 'S' is specified. BOOT/SYS and DIR/SYS are never compared even if 'S' is specified. (Note: The parameter 'S' is intentionally analogous to DIR S, but its meaning is slightly different - It is not the SYSTEM attribute is tested but strictly the filespec's "extension".) If the parameter 'K' is specified, then for all files detected to be "equal" on both drives the user can decide by a Y/N keystroke whether the duplicate should be killed from the second drive. No querying is done if the parameter 'A' is specified in conjunction with 'K', and any duplicates will be killed automatically. (Specifying 'A' without 'K' has no effect.) Killing never includes BOOT/SYS or DIR/SYS, nor any other files with extension /SYS unless the parameter 'S' is also specified. Comparison of drives will usually fail if passwords are enabled. All sectors of files to be compared will be compared in full length (256 bytes), including the last sector, which may logically exceed the end-of-file. Two files are, however, considered not equal if their EOFs are not exactly equal. This is consistent with COPY which exactly copies all garbage that may follow the logical end-of-file in the rest of the last sector. Attributes (INV, LRL etc.) make no difference in comparison. This is consistent with COPY which resets INV and always sets LRL=256 when creating a new file. For speed reasons, COMPARE uses all available memory. (HIMEM is honored, of course.) Running COMPARE under "DOS-CALL" (for example CMD "COMPARE..." from BASIC) may work nevertheless, if only moderately large files must be compared. The program can be aborted ("DOS READY") by the up-arrow key. The right-arrow key will let the program pause until ENTER is pressed. (This is similar to some other NEWDOS/80 commands.) @:MP:4͏*^#V#"%>":͏(͏*~͏!xZ*s!x 8w#6 #R!"_"d*X"_:%I !D"T!d"_X*_[_ 6G>>f===&>f>>?S @IAxVBʮTC _~_#:^<2^( > _J2^> _:_ :^<2^ 0:^<2^: #> _2^!\gDI ;X%R> _!\gDIT;X;X%R͉X!f\gD!_@~ Tx 2^> _!\~_#!_~_#> _> _!d_͑Ux(S B~T  ~_#:^( > _:^<2^( 2^> _!Y^> 2^!YgD:^_> _!\gD*I@[_R9V!^gD!]gD*_9V!^gD!*]UgD!_@x(~ %R!]gDIîT!d_>2^͑Ux 1!]gD!]gDIY(N îT!d_U!5^gDIîT!W]gD!]gDI (%R>2_.`2_*_)WîT:^G # K_B0~ 2>/ (##:^G # K_B0͑UVx B*_BbkR"_K_ C_!d!^ !nV^#V#R8<(0w#~0w'd ![gD!YgDI %RY( NxV2^>2^!([gD_~ %R:^(*_!d`!^$D ` w#(9(5 $:_>(2_Fb*_)WîT!W\gDI%R D!b^gD`(D "_)W%RdR"_!L[gD_~ %R!d`!^ DV`~ #[_R0 D`(D %RE *X"_!"X!~[gDW*_"X%R͉X:_; >2_!d~ S%R:@8 S%RvS [_S^[^;:0S^zXC_#!d!d #~G(N ( 8 # K_C_"_S__[_*_!_[_K_x W[^W2^2^![gDI %RH !)\gDI >;2_V >32_2_!YgD!*YgDI 402b2^2~Y2l]!`YgDIY(NY`Read directory from which drive? (0-3) (A NEWDOS/80 system disk must always be in drive 0.) Change PDRIVE specs for drive 1? (Y/N) Use which number specs? Indexing disks from drive *WARNING* Does not check for duplicate disk numbers. DIR/SYS:DISKDEX bZy Bob Wissner(For NEWDOS/80 V2)A - Load fileB - Add to fileC - Save fileD - Alphabetize programsE - Alphabetize disksF - Display / PrintG - Program searchH - Extension searchI - Disk searchJ - Switch drive / PDRIVEK - Selective DeleteL - Return to DOSChoic[e?Are you sure you want to quit? (Y/N) Load which file? (ENTER) to abort. Save the file under what name? (ENTER to abort.) Alphabetizing ... Video (V) or Hardcopy (H)? ENTER to abort. Add the disk file to one already in memory? (Y/N) Name of program\ to search for? Extension to search for? Prepare printer and press any key. to stay in video. Which number disk ? (ENTER) to abort. Disk Press any key to continue (ENTER to abort) Function complete. Press any key. Bytes remai]ning in buffer = Programs now indexed = Which number is this disk? (ENTER to abort) Insert disk in drive 1 and hit . (Press any other key to abort.) You must enter 3 digits. Press any key to continue. That number has already been assigned. Do^ you want to delete the entries for that disk? (Y/N) Entries killed for that disk. Press any key. Check PDRIVE specs for this disk. DIR/SYS:1 * zW{_^>|<2m12345 ]U~<=d|:x<2x:x:x=2x<#~P|:xP|:_P|7"k:m=2my[&|*e~ | |[|"e|>&2o0}&|:o|>&愷2o*z~||O+| |x+~||:*~.}#}O+#} }x+~#}}<*e[|P}["ey[ i} 3!```6 !` x}y[;ʠ}Ò}h| Iy[Ò}h^!^$D33V;;^!^6D^6D^!^6D`>(u!^[_ C`K` C`x(~ I ~ (##>/:_:_:_> >/Hy G> S_ ^(Dka> !caD>,!agDSaa (?0 !bgDSa .>=!agDSa (>,>A> !caD !ragDSa (I3O> 3yPDRIVE,0, * Error * to try again. Any other to abort. Change specs for which drive? to abort Change to which number specs? to babort Cannot change Drive 0. restart. Any other key to quit. !bD(V[_!<"b>2b ~ ~#:_:_:_> S_:b( =2b###*b@J"bDIR 1 2x!=cgD!_@~ %R!d_x2^cc> _2^vS!kcgDI_Q(@Y( N c "}c*_B!bkR"_K_ C_*}c%RSelective Kill Routine. Enter search string.Kill it? (Y/N/Q) ~(<~ ($# :^=(G#  K_B0> _!cgDIòb No more found. Press any kdey. R*_B!bkR"_K_ C_*}c%RSelective Kill Routine. Enter search string.Kill it? (Y/N/Q) ~(<~ ($# :^=(G#  K_ (8) Cancel Enlarged (9) Emphasized (A) Cancel Emphasized (B) Double Strike (C) Cancel D/Strike (D) Supers DISKINDX/CMD WRITTEN BY BOB WISSNER DISKINDX/CMD will allow you to Index all your programs on NEWDOS/80 Ver. 2 Disks and some other DOS disks. It will not work with all DOS Systems, but most of the more popular. The Main Menu of Commands Is displayed after the program is initialized with the correct Disk and Drive settings. The program may be configured to the individual Drive, Density, and Track Numbers. NOTE: DISKINDX/CMD will accept Input in UPPERCASE ONLY!!! When DISKINDX/CMD is loaded,it will ask for the Drive which the directory is to be read from. Place the disk to be indexed in this Drive. The program will then ask the user if he/she would like to change the PDRIVE Specifications for the Drive. If the user does not want to change them, enter an 'N' to keep the same specifications or 'Y' to change them (if using NEWDOS/80 Ver. 2.) With any other DOS enter 'N' ONLY!!! The Main Menu will be displayed next and is self explantory. The only thing that the user needs to know is that he/she MUST NUMBER the Disks that are to be indexed. The program will maintain an in-memory list of data from each of the Disks indexed. Each program Disk MUST have up to a THREE DIGIT identifying number. This program will hold over 2500 program names in memory so you can index quite a few disks. XTG_HELPX709:XTG_HELPX8036XTG_HELPX905XTG_HELPXA09<R1A2cb2db2ob2pb2sb2Y2 \*I@Ȯ8$cR+!$c%c6:_2]>22V><2tb!<" @!\cW!S<" @!&^cW\Z2=0n̞X2R(W!=" @RZ82=>SX*ob| n~g&͒L!ѯR8.͎Y$ \<\ ګYT3*I@+%RɯRڦY͋[ \<\ʔYS ںYz2b*C~2kb!!#}- .Mu\6~͒L!B[(EG~2hS2U:kbO(,u\!kb͚ ͽ]ͭW-> ͒L >[N(+"mbS>[}2cb͚ ͽ^ͭWW2$^2_b2^b!~g(W SlW ~(@$W##~(2$W##~($$W##~($W##~(WT$W :b==0]!А!ؐ]!SDF(!DD"]!SDF(!DD"]*mb͚ ͽ]ͭW:sbPV!<" @!\cW!]cW!<" @!bcW!<T<.6>2<2<2<> !=@bw( w#= !??.6*$^)) )[_b"ab͚ ͽ))))))= W0LͭW*ab|2U(N(+>U ͒L>ʹLN(>(#VͯWl&VͯW*ab))))$c  W8`(w#!  W8!`~(#:^b<U2^b:_b<2_b ¼T:$^<2$^O:db(Ey= !?" @!`cW!?" @!sb~P( !m`cW:XO2_b~P( ( yP wST>w!sb~P>w/\V!?" @!acW:VX@V2$^2_b2^b><2tb>22VST@<(?!<:$^(!=@ lV~ 0@8> (>#OlV#8!sb~ w lV͈V:@8W(>2sb Vy;> 5!tb5 /68 oV!\NoV# oV2oV y2V oVqC!ub(>!2!2 I" I!"F>2ZF-@͚ W!1A/!3A~Ɛg~o÷So&:C͒L~o(# :cbO:^b:cbo&> [}2db!acWWSob͞X* @" @!eb6>:X:X x0>:+ (08:0w:#>:6Z! 8[( `X* @6 R*VA_!`+| 2* @>>(>(>( >(X>(>w!<># >*w2)NN(Y >2Y2 \>Y:!@<|!?" @!`cW" @!_cW!:@8 ͎Y͉X ;kb͚Y ͽ~ > +:#* @?8: 4:7o:CW(=&͚ ͽ?͈Y#͚ ͽ?͈Y:@8WX!?" @!5`cWEG:YX R0F( (( (!Qa!P] !\!a!`cW!3]cW:XR:@8WRF:_B gG~w!b:C<#= ~V(Z?w~!FF(!N "g="^:XS(C 7B( A(X(N 2_2>2]"8 )0[ >008402=2VZ0^D”Y>2Z*C:8_0Z[:_N ͠[Y!B͎Y( (Ϳ[ :C2lb~2mS:Bw\&͎Y((Ϳ[>=2Z YF(:lbG[\:]X [R>[v[\>͋[ ͋[ [qb!B0F ~< 8~wÔYv(:mS2mSn~͒L>ʹL~ʹL(#u\2]~@>A(>[N2_2]2>tLSqb0F 1~w~Dw> v(w>v(w5w2C028_2?>ʹL,!\\[F!?*C&b\:C0w#\V(6A#f(6C#N(6K#V(6L#\A~A(CG(Ew(Gp#~ͫ\~ͫ\\~\0w#\~0w#~ͫ\~ ͫ\6 #t(\o&͚ ͽ\w#o&ͲL,u -#- DISK GRANULE MAP -#- **** The] Selected Drive is unavailable or not Ready **** Press any key to restart.  **** This Disk has no Directory, or has a dire]ctory Error **** Check GPL or Auto. Scan the Disk. Drive:0/A Diskname MM/DD/YY Grans Free:123 Density:SD/DD40 Trks Fo^rmttd 40 Lumps Filespec/Ext Place the Diskette to be Mapped in the Selected Drive, When ready press Drive No. ^ or 40/80 Track Skip is set with Skips OFF 'C' to Change Directory Track. 'S' to Scan for DIRECTORY Track. Pres_s and No (2-8) to change Grans per Lump. GPL = 2 or Select the Side or Mode required - - - Side 'A', 'B', 'N'ewdos_ D/Side, 'X' for Auto. Mode = A  Reverse DATA ADDRESS MARKS ? (Y/N) Drive : The following Sectors may be Directory sector`s - - Last Track read = - - Total Sectors read =Scan completed or aborted. Press to continue. Press any Key for n`ext 10 Track Display "P" for Hard Copy or **** Cannot recognise DOS **** Directory sector MAY have to be specifaied or Scan the Disk !!  *** Read error or invalid Directory parameter. *** Insufficent MEMORY to read DISK. Please checka HIMEM.Enter Directory Relative Sector. (Directory Track X Sectors per Track). --- = Map new Disk, <@> = Displaywb again, <*> = Go to Dos. Track #Lump Drive ,TI=,TD=,TC=,SPT=,TSR=,GPL=,DDSL=,DDGA=(40bb 1st Granule 2nd Granule Lp:--- T:-- S:-- <------------------> <------------------> !ccW:XY3cc (N ub!qC(:CG!b!qCN(4~V(w #*=G:"=G2!H2 I" I*F"V!Y"F:ZF2V>2ZcFR!&dcW:X!@<" @|!gcW:X=c<#> D I S K M A P <#> Do you wish instructions ? (Y/N) . . . . . . . <#> D I S K3d M A P <#> Published in 80 Micro December 1982 - Written by J.B.Harrell,III* Modified for NEWDOS 80 v2 by Briggs Software, Napdier, HB, NZ *This program allows Disks to be mapped, showing on which Sectorsa program is located, plus Grans free, Disk Name 3eand Date. Theprogram will find and read the Directory Track on most Disks andDOS's. It is written to run under NEWDOS 80 v2. aend WON'T workunder another Dos. It will automatically detect and read Singleand Double Density Disks, (if your hardware permi3fts D/Density)plus Auto select 40/80 Skips and D/Sided Disks. This may cause adelay while the Program selects the correct Mode. Iff the program cannot located the directory track on a disk thenyou may specify the Directory sectors, or Scan the Disk for theD3girectory, toggling the Data Address Marks if required to read a"Funny" Disk. (The Disk is not altered!!) Press any Key to contingue . . . . The program takes only the Directory from the Disk. Track count,Grans Free and Lumps are calculated by the progra3hm not from whatis written on the Disk. Due to the different Gran Allocation onTRUE DOUBLE DENSITY Disks, these are not displayehd correctly andin some cases will only display Garbage ! ! ! The program Scans the Track Count, & this may give a wrong GRANSFRE3iE value if the Disk has Grans LOCKED OUT or has Formatted butunused Tracks. eg 40 Tracks formatted but 35 in the GAT sector. Preissing

when displaying the first screen will output theentire Display to a Printer, press to stop the printout. P63jress to activate the program ............ $cBDISKUTIL00/00/00 .7I*0w@oo^BOOT SYS` UNOFFSETDOCBB! SU3 CMDBB?/! TRACK BBX"1]DIR SYS  DISKINDXDOCBB ! DIRSORT CMDBB  TRAKCESSCMDBB COMPARE DOCBB  DISKMAP1CMDBB$ UTL CMDBB9+ DISKDUP8CMDBB  COMPARE CMDBB  CAT CMDBB UNOFFSETCMDBB HEADCLENBASBB0  COPYCATSCMDBB# FLEDITORCMDBB DISKINDXCMDBB # CATALOGSBASBB DTIMER2 BASBB ! CFETCH CMDBB CAT Rpe!fgDYepeDsp~ (Tf!dfgD+e08:8A8J03> 31(7(0(9(O:pGy !thgD0 8!eo>g~#fo"RpeYepe:pG!th(!gDgD#R> D!FmgD2p+08502Dm3> 3pn!q(2p!n~#?8Sp!opppn6DʨR«R!n~ 2p6!n~#( y2p:p==2p:p==G!ppn6DʨR«R!n~g(.('  #  6!"p!c"`!p`:pѓ2p:pT!,mgDYez2p*p[p&T]"p[pR"p*p&8]}2ppeͪ_gD1_:pGʰR!hgD!m~ (eX #~+ ʰR!pp͛ea(!&igDd a !igDd !hgD!pUb!hgD:p2p!ȁpD>#!jgDd({p#R{p!igDdU:pG(O(!"hgD> 3!hgDd!lgD!m pnD [!n$D Q!6D #*I@R8!n0!hgD( >2p 2p2pn(D D DgD!igDd:p!thG(!lgD!m pnD !n D ͼa DR$D!pnn9D :pˏV2pÆU!igDd:pG(O(!"hgD!hgDd*I@B+DM!6!pD!ȁpD!ggD!?>2p!flgDU]:pG!thi]O!hi]!i]!l.d!ȁl.d!li]!li]*my\!mi]!li]*my\!mi]!li]*my\!mi]!li]* my\!mi]!li]W*my\!mi]!mi]*my\!mi]!mi]ͼa[I@Rmy\!mi]> t]!igDN`!hgD!m~ p͛ea !hgDa:p2p!ȁpD!EigDU]N`!hgD!m~ p͛ea !hgD]!'lgDd2-Xp@:pG@p(z^ s#r#X6#6pe!p~#t]> t]!pi]ͪ_i]`>Y@Y!ZigDU]:pjD!igD!Pn;e:p( !ijD!PnjD!8li]!~(m~G@(Yͺ^ Nm;d> >  > !mi] > 1e!8lgD(!oigDU]:pjD]!p!Y66~(&F@x(z^ ut##`!'lgDdĹYYYe!ggD!m ~ pnD L!n D B!pnf##|(&md> !mgDpn~ >  ~# (D D D!pmnf|(##d> > x(!mi] > 1e !n!Z66~(ut##b!p!8li]mnf|##;d!n##NFB0++nf>  > mi] y 1e!8lgD!igDU]́]!'lgDd> !igDd> <2X[!p6#6+( s#r#b!p`!p2o~G#~# :X[ []!'lgDd2[!2onf##|:X[pep@!pm> !p!mi] >(Oͪ_i] =(@F@!p('ut##66`>YĹYY > [~ݶ1e[_: @?0 W>37y\`igD>?3\:"@\>[<" @2"@~ ( !#~(,( +~\8 8 ((( "\\\\\*\>H>*\R0R0x:80 8? ع]?L}!90).U)0y(0G{/ zx!jR0?G <2pgD:pjD3:p;!jgDI0(@!c1(1!c2(*!Sc3(#!c4(!c5(!c6(!c7(!c8 "`"aaOy3> 3!kgDI0(!c1(!5c2( !c3("^`"aaOy3> 3!kgD!m ~ (;~# (1eS I D U V N z2p!igD!Pn;e:p v(G()_(# ^(O(g( n W( o(<Pn (f/ #'/( (*(? ~ (D# @~# 6 ( _/ ( (*(? ~ ( #~#  ( >  x!mi] > O~1e!pmnf|(d> > ##x!mi] > O1e!Zmn~# !pn!pn*p&nb*p&nb!n:pG(6DO(###6D*p[p`Rnb*pnb*pnb*p&ob*p& ob*p&ob*p"o&2pb!n͒`W`!pm~(##> x> !mgD~ y 1e!p~(# yx! n&)))) @ ٯ! "p!c"``!pKp~(T] ~(cd !pa~## +++++R8 sa1p*a1R xR(0nf^Vc0utsr ˉA(++##xŷBBR8 G.a G.amp!~ c g":p*o>g"Kp* "Kp* ":p* o>g"  ~o&))))@ cmy\!m6~6 # + +w #+ ?  + +c~ &~ ~ ~ ~ ~ c )cc cc'  c   d#(? +w#!dd>  ~#foy\ >/+n&y\ (>  F#N6.p(6S#6.X(6I#6.i(6U#6.y(6E#6.q(6C#6 #6~ ( #~ (>/ ~ ( #> (G> !BhgDe+ (1(0( e8Y(N >N>Y3> 3Y:p!ghgDI>3>3 eY!MhgD+ 3>3>3e8ɷ0:0, ͹e~( > +#~ew#( @?TRW3XXZdVTUVMWRRRRRfRRRNicks disk catalog program (c) 1985 N. J. Gridley Last mod 21/01/84 NJG for NEWDOS/80 v 2.0 ------ MENU --------- (1) Catalog a Disk (2) Reproduce a Disk DIR (3) Find a file (4) Master printout of FILES (5) Master printout of DISKS (6) Statisgtics of catalog (7) Load a catalog (8) Save the catalog (9) Create a catalog (A) Delete a disk from memory (0) EXIT Selection?Make an ILF file of displayed files ILF filespec (enter=no ILF file)INPUT title of cahtalog ?Over write data in memoryYou have unsaved data in memory (Y or N)?Press to continue--- MORE ---NO data in memory Data NOT Altered Disk not found Not enough MEMORY USER-ID ("x" to exit / default=DISK NAME)?USER-ID of disk?Comments (23i characters max)Disk not found. okayDisk already exists. overwriteFind Disk in catalog Find file in catalog Master list of FILES Master list of DISKS Display files too?Delete disk from memory Wildcard mask for filespec?Load catalogSave catalogMake cjatalogExit programChoose sorting criteria (1) by user id (2) By diskette Name (3) By diskette date (4) By total space (5) By free space (6) By number of files (7) By number of free fdes (8) By total fdes on disk (0) No selection. exit function k Selection?Choose sorting criteria (1) Filespec order (2) By file size (eof wise) (3) By extension first (0) No selection. exit function Selection?Choose filespec Selection Criteria(s) ystem, ser, nvisble, isible, upated, on-lupdated.(=last conf) ?HARDCOPYLong form outputFilespec EOF SIUEC Diskname UserId ----- STATUS OF CATALOG ----- FILESPEC :Creation date :00/00/00 Update date :00/00/00 Total disks: Total files: Total FDEs: Free FDEs: Total spacem: Free space: Used space: Free memory:HIT TABLE ERROR DIR/SYS:0Directory of drive?XXXXXXXX 00/00/00 00 TRKs 000 FDEs SD/SS 0000 GRANs 0000 of 0000 GRANs used. 000 Files 000 tot FDEs GPL 0 DDGA 0 9pXXXXXXXX00/00/001234567800/00/0000/00/00RISICON CMD H- ISISET CMD H-1 UUE 5Fvf2 UUE @Fv+Nj ** COPYRIGHT 1982 80 MICRO MAGAZINE ** A DIVISION OF WAYNE GREEN INC. DOCUMENTATION CONTAINED SOLELY IN 80 MICRO CALL 800-258-5473 FOR BACK ISSUESk ---- CATALOGS/BAS JANE N GOODALE@k 828 NO 121 STREETlk OMAHA, NE 68154k 1500:AZ::@470,"SYSTEM DRIVER"k480k150k ----------------SUBROUTINES------------------------k ----MISC l(@990," ";:"HIT TO CONTINUE";B$;:;l2A$:A$""50:A$;:al<@990,"ANY KEY TO RETURN ";:50:zl= ----CATALOG STATUSlF:18)"FILE STATUS FOR SYSTEM ";S$:12)(40,".")lP12)"# FILESPEC";32)"LAST PGM DATE":12)(40,".")mZN1F:DX$DX$(N)>mdN$(DX$,8):D$(DX$,9,1):DT$(DX$,10,8):PG$(DX$,8)nmn11)N;15)N$"/"S$":"D$;32)PG$;43)DT$mxN:12)(13,"-");" END OF FILES ";(13,"-"):m----SET DX$(N)mN1F:DX$(N)(DF$,25):NFDF$(DF$,26)mN:%n --------------START------------------------------?n"I",1,"DRIVERXX/CAT"n#1,DF$:S$(DF$,3):F$(DF$,4,1):F(F$):DF$(DF$,5):130:320n ---------------ESTABLISH CATALOG-----------------n:20)"ESTABLISH CATALOG":o" A CONTROL FILE MUST BE BUILT THE FIRST TIME THE PROGRAMS":"ARE RUN. ONCE BUILT, IT WILL CONTROL FILE NAMES, DATES, ETC.":"AND WILL NOT NEED TO BE EASTABLISED AGAIN.";p"NAMING OF FILES WILL BE AS FOLLOWS :":8)"DRIVERXX/CAT - DRIVER FILE":8)"NNNNNNGG/SSS:D - DETAIL FILE":"WHERE : NNNNNN IS A 6 CHARACTER USER ASSIGNED NAME"p8)"GG IS THE GENERATION #":8)"SSS IS THE SYSTEM IDENTIFIER":8)"D IS A DRIVE NUMBER ASSIGNED TO THE FILES (0-3)":"GG SILL START AT 01 AND BE INCREMENTED BY 1 AUTOMATICALLY.",q"WHEN GG REACHES 99 IT WILL BE RESTARTED AT 01":40Kq:20)"FILE DEFINITION":lq"ENTER 3 CHAR SYSTEM ID";S$q(S$)3250:"** 3 CHAR ID PLEASE":230q"ENTER NUMBER OF FILES FOR THE SYSTEM ( 1 TO 9 )";F$r(F$"1")(F$"9")ʲ"** 1 TO 9 PLEASE":250rDF$S$F$:F(F$):ArN1F:"FILE # ";N;"DEFINITION"r""ENTER 6 CHAR NAME";N$:(N$)6300:"** 6 CHAR NAME PLEASE":290r,"ENTER DRIVE #";D$:(D$"0")(D$"4")310:"** DRIVE # 0 TO 3 PLEASE":300vs6DF$DF$N$"00"D$(,8)"CATALOGS":FS$N$"00""/"S$":"D$:"O",2,FS$:#2,"DUMMY"FS$:2::N:"O",1,"DRIVERXX/CAT":#1,DF$:DF$(DF$,5):130:320s? ------------------MAIN MENU-----------------------------s@:"SELECT ONE OF THE FOLLOWING :":jtJ8)"1 PRINT CATALOG STATUS":8)"2 UNCATALOG A FILE":8)"3 RUN PROGRAM A":8)"4 RUN PROGRAM B":8)"5 RETURN TO SYSTEM COMMAND"tT:"CHOICE (DO NOT HIT )";:50t^(A$)390,410,370,380,400th"ILLEGAL RESPONSE":60:320uq -----------------CHOICES-------------------------------)ur1:"PROGRAMA/BAS"@u|1:"PROGRAMB/BAS"Qu70:60:320]u1:"S"u -----------------UNCATALOG---------------------------u70:@181,"UNCATALOG";:@247,"Y/N";uN1F:L55(N3)64v@L,"-";:50:(A$"Y")(A$"N")430:@L1," ";:425$vA$"Y"ʑ450wvN:1:"O",1,"DRIVERXX/CAT":DF$S$F$:N1F:DF$DF$DX$(N):N:#1,DF$:1:320vG$(DX$(N),7,2):G(G$):G0GG1vG$(G):G$(G$,2):G10G$"0"G$wDX$(N)(DX$(N),6)G$(DX$(N),9,1)(,8)"CATALOGS":>w -----------------ON ERROR ROUTINE--------------------Pw1501:170tw"ERROR ";21;" IN LINE ";:UTILS Y&CONFIG OLDaZ&INTRAY u''ACONFIG MINq|j0::999:AH:IO:PZ:"Disk Timer 2.2 / Carey Tyler Schug / Box 585 / Chicago 69690\k:"Press and hold (until acted upon):":"0,1,2,3 to test only one drive":"CLEAR to reset average computations":"any other to test all drives with a diskette mountedk:"Loading machine language routine...."::"Please stand by....kH(70,0):J1:I(J):K(H):I,(K1):I1,(K2)kOJJ69:M:NNM:O,M:l7393Nʲ"CHECKSUM ERROR":'l8:J:9Il16526,J255:16527,(I1):9Rl 0?m 243,205,127,10,229,193,17,1,0,221,33,224,55,221,113,0,25,56,47,221,203,12,78,40,244,221,113,0,25,56,35,221,203,12,78,32,244,33,0,0,221,113,0,25,56,20,221,203,12,78,40,244,221,113,0,25,56,8,221,203,12,78,32,244,16,230,251,195,154,10m I(3),J(3),V(3),P(3),Q(3),X(3),Y(3):Y(0)1:Y(1).5:Y(2)13D0:Y(3).25:X(1).5:X(2)23D0:X(3).75m 14316,0:14304,0:I31232:(I,31):(I,45):m I312310:(I,30):(I,46):4nI1:P300:S191172012:T106445D26:M256I:NN15rn@0,"'CLEAR', '0', '1', '2', '3', or other for all";(30)o:"DRIVE NO OF ---INSTANTANEOUS--- -EXPONENTIAL SMOOTHING-":" ID MEAS --SPEED-- VARIATION --SPEED-- --MEAN DEV--":" 0":" 1":" 2":" 30oL03:I(L)0:J(L)0:@oN1:L0:20aoNNN:LL1:14304,N:L318oB:B""ʏ(B)3117:B"0"B"3"NN15:II0:NN2(B):II1o(NNN)019oU(MN):U0NNNNN:19EpI(L)I(L)1:V(IT60)(SU10I13(I1)10):P(L)P(L)X(J(L))VY(J(L)):Q(L)Q(L)X(J(L))(VP(L))Y(J(L))p@255L64," # ##### #####.## #####.## #####.## ";L;I(L);(V);(VP(L));(P(L));:" +/-";:"##.##";(Q(L));:" ";pJ(L)J(L)(J(L)3)qPP(L):IIʏV303V297P303P29733$qV303V303.17qV297V296.9JqP303P303.1]qP297P296.9q@576,"297 298 299 300 301 302 303";:@703L64,""q ((V20.5)600063,333L):((P20.5)600063,343L):19Vr!@576,"270.......280.......290.......300.......310.......320.......330";:@703,"":::gr"V270V269xr#V330V331r$P270P269r%P330P331r&((V2.5)60063,333L):((P2.5)60063,343L):19s"DTIMER2/BAS:0":"DTIMER2/BAS:1":"81.08.15.0930.s:COPYRIGHT (C) CLOAD 1982HFJIK3sW~!2x20!VS(R 21*@++͖5G:0x(2><> O:1Sy(w#> :1Sf"@++"@*@++"@:@ [~:@ *@"@"@f####~ #[@}|"@~3# +(3> 35 :?< 2?<2 *** C F E T C H V.02 *** (C) 1979 INSTANT SOFTWARE, INC (P) -NAME OF PROGRAM TO FIND (1 CHARACTER):? RECORDEPR IN READ MODE. -ORDER (S = SEARCH END OF PROGRAM R = READ + MERGE ):?W~+(3> 35 :?< 2?<2 *** C F E T C H (S = SEARCH END OF PROGRAM R = READ + MERGE ):?W~+(3> 35 :?< 2?<2 *** C F E T C H UNOFFSR1R͝SͤSSTFT[R!R͟TPTTFT-@CMDORIInsert Source disk, hit Insert Destination disk, hit Unoffset/Cmd Ver 1.1 (23-12-84) Removes lmoffset from files: ONLY for lmoffset damaged files Use OFFSET instead! Copyright S(C) 1984, Nick Andrew Z.M.S !SgD!RgD͗TUD!RUsD! } DA~(#> W͔R +~ (w#*=pD6 #mD6"=sA{AS!2@[!A"!A+| AAU<jTU))yO+| z {{{~w# x ɯ 0< o&!Y";DM!˺z>=#MU#BeU = R8}!0# *=!I|> ( w#T!&YV^R8<(0w###{ 0= 6I"=)*?V#s#r"?T#~0U 8 ))))_!NV%((-((+ #)))NV0 0_#NV0 8 T~ #}&;$ [V 0YO0 Oo0!|?gy?FxXV wXV /wXV!Ƞ+>3|3!I"?X86#N#F+z( )B^#V$W$W)^#V) s#r:)! @(!+~͠W͠W!I0͟UV|͆W}͏WƐ'@' ͉UV> > O:)=y3 R!+ 84 6;jU)*;~#~#";W*;^#V#";Ww#Rgo+ɯRgo+X+X+zW| }!(#(!&X+&X+&X+&X+nM*={(Gq#6"=nM{yCͦW(z(_x([+ K=|( (+C=}x x( A~w##+o&"5!5W*=w(#X"=yA(((~((( #((i&.'d ADPCompiled by ZBASIC 2.2 SIMUTEK INC. TUCSON,AZ (C) 1982 Andy Gariepy ? File utility program Version 85-02-10 Compare or list files or Ydirectories For Newdos80 version 2 only Programmed by arne Compiled by ZBASICDrive number or file name 1 (ENTER to end, /doscmd) ? /A03Second drive number (ENTER for dir)? 03Reading first directory/ Z File table overflowEnd of first directory,files readReading second directory/ File table overflowEnd of second directory,files readSorting file directoriesNo common filesCommon filesNoneNo files on first driveNo uniqu[e files on first driveUnique files on first driveNo files on second driveNo unique files on second driveUnique files on second drivePress D to redisplay, C to write file with common file names, 1 to write file with unique files on firs\t drive, 2 to write file with unique files on second drive, X to exit XxCc12DdFilename for output of file list? Cc1DIR/SYS: Error opening drive XxDIR/SYS: ]Error opening drive Reading input1 Reading input2 file names writtenfile names writtenfile names writtenDrv or name for file 2 (ENTER - display, F - find, L - ld fmt) ? :03::f F LlFile 1 byte EOF File 2 byte EOF X to exit, B^ to bypass chars, any other to contXxFile compare terminatedBbEnd of file after , / ,Bypass characters on file 1? Bypass characters on file 2? Opening input1 Opening inpu_t2 Reading input2 ,== Reading input1 , = !EOFile.!Press X to exit, B to bypass, any other key to continue BbXxBypass characters on file? L,Invalid search stringEnd of input file,matchesMatch found at: file: , =` Fileadr: , Type: Len: Addr: Press X to exit, any other key to continue Xx a%X0F9AInvalid hex data9X01Invalid binary dataType record, len = String too longS!"!"V!YVͤW!YVͤW!YVͤW!YVͤW!ZaVͤW!7ZVͤWͤWͤWͤWX!V!TZX!V!UZW!V!!Z;X|b-@[XͿV**W!͉XͿV*#"**X|.gPe7g!M[VͤW!a[V*͙W!z[VͤW![VͤW^p͎q;r!"*!X|ygÅhæg*!W*!W@T|ʦg![VͤW͟lÅh!"![gVͤW͟l!"*+Xg*HW!9T|g*#"*#ûg*!W|h![VͤW͟lÅhh!"!"*+Xh*HW!9T|xh*#"*!X|lhͤW͟l*WV!"xh*WV*#hͤW͟l*!W|ʣh![VͤW͟lÐi!"!h"*+Xh*HW!9T!W|h*#"*#ìh*!W|i![VͤW͟lÐii![VͤW͟l!"!"*+Xڊi*HW!9T!W|ʃi*#"*!X|wiͤW͟l*WV!"Ãi*WV*#iͤW͟l*!X|ʥiðji*i!W|i!\VͤW͟lðj!"!"*+Xj*HW!9T!W|i*#"*#i*!W|&j!,\VͤW͟lðj2j!L\VͤW͟l!"!"*+Xڪj*HW!9T!W|ʣj*#"*!X|ʗjͤW͟l*WV!"ãj*WV*j#;jͤW͟l*!X|j*"͟l!i\VX!V!!1];X|jj!!2];X!!4];X@T|k!VͤWaák!!6];X!!8];X@T!!:];X@T!!<];X@T|ik!VͤWák!!>];X!!@];X@T|ʞk!"!VͤWdgákkj!B]W!V!!e];X|kákk!)6@!R6!!f];X!!h];X@T*!X9T|l,o l!!j];X|l͒o lo!)6@R6ðj!l]X!X! X!u]X!V!"!"*$D(2*!W|ʒl!]V!VͤW*nSa!"!"l*!X|l*+"*!X|l!" mX!V!!];X|l m!!];X!!];X@T| maX!V!!];X|)m m!]X!X! X!]X!V!"!"*$D(2*!W|ʍm!]V!VͤW*nSa!"!"m!!pX!V!!];X|m!V"!*+͉X!VÚm!)6@!VͤW6*#"*!X|nn!"2(2*!W|+nqn*!W*!W9T|Xn!]V*nSa*!W|pn!"m(D!"*!X|ʑnån!n"2(2*!W|ʷnn*!W*!W9T|n!^V*nSa*!W|n!"~n(D!"!!V+pX! X!V!D*!W|w!I^X!V!J^W!V!s!͉X!V!!^;X|ʵs!!V+pX!V}s!V!W!!^5X@T!!^4X@T|s`t!"*!VX|Ht!*!͢X!V!!^HX|6t*#"sHt!*+͉X!V!X!^X!X!V!!͉X!V!!^;X|t!!^;X@T|ʖt~}ùt!!^;X!!^;X@T|ʹt !!^;X|tÆztZx*!X*!X9T|t=vͱwx**W|)u*!X|ut)uX!Vu!^V*!X|Gu!^V\u*"}*"*"Iy!^V*!X|}u!^VxuWÕu*"}*{"*"IyͤW*#"*!X|ʺuX!Vuu!"!^VX!V!!^;X|uuuͤW!!^;X!!^;X@T|v!^VͤWa!!_;X!!_;X@T|:vv=vt!_V*!T"yy*!T"yy*"yy!,_V*tv!T"yy*"yy!._V*!T"yy*!T"yy*"yy!2_V*{!T"yy*{"yyͤWa!"w!4_W!wU!"u!R_W!uU*w!X|wͱw*w+"ww*u!X|;wx*u+"uwt!X! X!p_X!V!"!"*$D(pw2*!X|ʒw!_V*nSa!"s!"!"!"!"*s*X|wxw!"s!z*s*OW*s#"s*s*X*!X9T| xwx!"s*sHW"*!X|/x6x*s#"s*#"*!X|Yx!"*#"!X! X!_Xlx!V!"!"*$D(2*!X|ʮx!_V*nSa!"!"!"{*!X|xx!"2(2*!W|xA POWERSOFT PRODUCT FROM BREEZE/QSD INC.  ?`NPõ[\/_T_üBEY=EdL@E@ [\]^ + String String String String String String String String String String Stack Stack` Stack Stack Stack Stack Stack Stack Stack Stack Stack BOOBNCB ?@TTYKPFwYFilenameExtPasswordPP  PP  PP  PP  PP  PP  PP  PP  rAAAAAAAA   a a  `   `    p    p   x  `  U**T1ST1DT3DL1SL1DL3DD1SD1DD3DM1SM1DM3DN1SN1DN3DB1DX1SX1DX3SX3D"D:7wDD:@8(0Break:8(Shift BreakCb@C@:@8 :@8D>D:8;E:8RE:8ACwˆEg0E_YED!MC~uw# ________________x_UU%U UU_x_UUU>U"UUU_x_U]\]\UUDLMGU_x_7Z$&1Y<_x_UU1YU!-UU_x_UU4U'UU_x_UUU'UUU_x________________xu:8 !MC~uwc# @>2C:@ >=2 D >2 D:T< 2T<:m@GD:l@O o>G i>=25D >25D!B<<~*(#  w #>=2[D ;>2[D>!EGo0$~2<#~2?<#~2<#~2<#~2?#~2?<82hD>=2D!*EvD2/DC:/DӪUser Serial ## s+ 1 4 5 6 8 :8_ @Version 3.1a - Assembled March 16, 1983 - kjw/bqsd:8w @Y__ Utility Features __ 1 _ Zap Utileities 6 _ Tape Utilities 2 _ Purge Utilities 7 _ Memory Utilities 3 _ Format Utilities 8 _ File Utilities 4 _ Backup Utilities 9 _ Configuration 5 _ Repair Utilities 10 _ Exit ProgramFeY F H-IILJLwKiM=b>2@Y__ Zap Utilities __ 1f _ Display Sectors 7 _ Reverse Sector Data 2 _ Verify Sectors 8 _ Exchange Sectors 3 _ Compare Sectors 9 _ String Search 4 _ Copy Sectors 10 _ Sector Search 5 _ Copy Sector Data 11 _ Read ID Marks 6 _ Zero Sectors 12 _ Alter DATA Address MarksgGeY Debppqsrvstjwx\r>Y__ Purge Utilities __ 1 _ Kill Selected Files 6 _ Zero Unused Entries 2 _ Kill by Category 7 _ Zero Unused Grans 3 _ Remove System Files 8 _ Change Disk Name 4 _ Remove Passwords 9 _ Change File Params 5 _ hDisk Directory 10 _ Check DirectoryIeY }y;؀>Y>2@__ Format Utilities __ 1 _ Standard Format 4 _ Build Format Track 2 _ Special Format 5 _ Write Format Track 3 _ Format Without Erase 6 _ Software Bulk EraseIeYC͎i ژ>Y>2@__ Backup Utilities __ 1 _ Standard Backup 2 _ Special BackupGJeY` >Y__ Repair Utilities __ 1 _ Repair GAT Sector 6 _ Recover Killed Files 2 _ Repair HIT Sector 7 _ Move Directory 3 _ Repair BOOT Sector 8 _ Dispjlay Directory 4 _ Read-Protect Directory 9 _ Check Directory 5 _ Un-Read Protect Dir 10 _ Clear Unused EntriesbKeY }؀>Y>2@__ Memory Utilities __ 1 _ Display Memory 9 _ String Search 2 _ Move Memory 10 _ Input Byte fromk Port 3 _ Exchange Memory 11 _ Output Byte to Port 4 _ Compare Memory 12 _ Memory to Sectors 5 _ Fill Memory 13 _ Sectors to Memory 6 _ Reverse Memory 14 _ Memory to Track 7 _ Test Memory 15 _ Track to Memory 8 _ Jump to MemoryLeYAoרqlt4[R>Y>2@__ Tape Utilities __ 1 _ Read Tape 3 _ Verify Tape 2 _ Write Tape 4 _ Copy Tape`MeYke򮁭>Y>2@__ File Utilities __ 1 _ Display File Sectors 8 _ Drive Status 2 _ Compare Files 9 _ Sector Allocation m3 _ Copy Files 10 _ Build File 4 _ Disk Directory 11 _ Clear File 5 _ Free Space 12 _ Disk Allocation 6 _ Offset File 13 _ Compute Hash Code 7 _ File Locations 14 _ Compute PasswordsNeYkc߅޹x4=DƉǿ*!@XO(ͲQ 8w( w#nXO"!@N(* P (& (" P($('OʖOʪO+6 2@1O'}o1O<T]6 :l@2l@2l@|=0!=@0?}=!B= <~#!@@!?!<<rS!>w>2:P> =2:P ~ Y( (C(?](Z(a(] 0>2qPx0>ͲQw( w#y :/DO(>>><> ͲQͿQy 6.#Bx!@~x(6_+x(6_+_:8 :l@w>(><p2P:l@w>(>2Q)2P >(=2P>=2Q !@@6!@8 _s ,"Q_zWy :l@O:8 z@`0" 80< W:@8z(1c@*8 "p0@<800ka:l@o˿(2l@:l@˿!q<@}?_T  > R~6 0>. Rw#R > R@> RG:8(:8İR:m@Ox(y >#q ci((˷ lR Y(> lR:l@2l@͐R˧2l@ͺR0S?@:l@gR:70(~27SA@ !"?@"A@*A@[?@RR*=@w7*?@[A@Rr*=@R7*;@7R** Super-Utility + ** Version 3.1a ** By: Kim Watt ** (c)(p) 1983 Breeze/QSD, Inc. -- Dallas, Texasw( w#:l@2l@6 2l@6.#6 #6 #U:y@2y@!&T!cTS7T!"T T!_T"S"S"SUs"TDM^ gUU"TDMU"TDM:m@g( z>@ w̓TͣTʹU!7:y@w7Wo:y@2z@:7w̓T~@UͣT!7:z@w7WͣT~ U27zsV27{27dU~:7ͭU~~(GT> = :tl@wTT xVͥZ~ F~8 0~ ~ #>">#U:7/2/UͭU~;UVT627TͭU:7G vUU>Xv`U>x>#Uz27KF@ 2t@(!= y~2u@:t@AO0NF:t@0:u@27Ux2y@U:z@2z@uv~ f$V^$Vj&T XXUYn(~w"^~(~ 0 <2@V{$_bWVY~w^n(=o&X Xuvzȇɯ>2VͣTQYͧU2]W2W2BW_ͣT!W 2@!GWV(V !.WV(!GWV x(:7vQY"T@ , , or kip:ͨb  cS˜V Drive 0 DEACTIVATEDV OPEN DOOR on Drive 0V NO DISKETTE in Drive 0VVY:m@g v( ~  W(:7G:7y2727x27 :7O:7z>8 27x2727y27VYãTT~WwN N N ~ F ~VY2D@C@T~> ~ N(:u@27 N( N N N N N N F ~@>2WX`XVYw>=2WX ͣTVbW!776W>2X͕XVY>=2X ͣT!776WVbW!7 76WyXx_U|ѷ($7O!})0O}lay7XO|>W)88, H!!)j0J{DejW)88, >27>27ɯYY Choice? (cL$( [8y(8#y2Y=o0$~#fo_c~( #( ##{~#fo{y1_A2@PT1_APZ1_AͿQ!@>2y@>2z@2V22n@2o@:l@ˏ2l@:7G(2ccccͿQ:@<.ZͣY@EF H-IILJLwK iM =b to continue:èb͍Z0ͥZ~=ͥZ{ѻ(z͍Z_z~(~ F^<=z~ ~v_> (>V >z>!ͥX##~w# Drive, Track, Sector? W2D[oUͥZ#[#(! :D[2D[:D[2D[#c8ͥZ~$w[#c\(L($D([(!+[ZQͥZ[[ZYV[@V Drive? oU[c80d8d0 8 {:G0> #~͍c(R8 + +[7]\!p\H( !q\O(Q(!n\B( !k\ D("R\2<\x2K\~c͍c7?#0 8?`iO DM~͍c(#+~c)) )))))2z\q>2\Y >=2\ ~y xwp2\ppp>2\Y &>=2\ ~ ͨjx|ywwwͨjG\Ox\G0: (-~(Drive DEACTIVATED Drive TIME OUT 86w(WRITE PROTECTED Disk o(HARDWARE Write Fault g(Sector NOT FOUND _(&g(ID CRC Error DATA CRC Error W( DATA LOST O(Drive DROPPED REA}DY G(Interrupt on Pending Command GxͧU2^{2(^C)^z2^C^Drive x, Track xxx, Sector xxx!N^!f^"H^:l@ˏ2l@ Disk READ ERROR 7 Disk WRITE ERROR ]\:@8(2^2^2n@R>etry, S>kip, C>ontinuous, N>onstop, Q>~uit?  >RcS(#R(N(Q@C >2^ >2^72^ɯ2^2N^2f^>!'_QReading ͿQ!S!N^!/_7QWriting ͿQ!S!f^!T_Ͱ_!S!N^!y_"_"_"_Q]ͿQW`{VQVerifying ÿQͰ_]ͷSķS~2`C`ͧU2_QFormatting Drive x, Track xxx ͿQ6Xȷ\*@*@!8`a xxxxx !@!@6#6!@!@4 #4 Sector Count? ( [`i8N`h> v(> = F()v(~  F( !y_ !/_!T_"`_!~2z@~ w#+hZ0!|͊a#>2s@ Mount prompts? cNY ܯ2s@!Yb!jb:s@ :@8(:8 :@8 P:@8 G(2\a:6@7? Relative Byte? ([8`i Byte Count? ([8:@87:q@oU=a{V:r@oUCa{V!#b^V>0R8<w### 'd ###yp+q+p+qɯYoÙb:7{cv Mount SOURCE% Mount DESTINATION Mount SYSTEMͧU2b Disk on Drive x:ɯSbCb2v@oUnKF@:v@<8> KF@G_oU~߰w{8`iT]6a{_~0KF@?oU#~͍c7?=(͗c~͍c7?=7#[yط7a?wLV>2cc:t@oU6:l@w >> 7 ,c~ͣY7UcTcLcDdMdN0dBFdXVd'd"ddAÁddʣcA ʁdAdAÁdd B ʁdBdB}d"B (s)B lBgd7B (]>B V0BQdLB (GSB @EB;dZB(2£c+6M6M6&dhB (oB( vB aB :t@oU~cR "f76 6 6 6 6 #~' #" #~0 ?LV~=͍c7?7ɯ#~͍c('cR( '(=("(S(D(1(3(ãc:m@g !e"d@!e"f@!f"h@!"-@Z{V@fħ|f}ͥZ{ѷ({ "V@S@.[@K-@*V@__{V@^ SͧSf^ [@*V@K-@_~2 @2n@^(I62cc: @wSw@̓Tˆf~2 @ͥX([w@gTͥX C[w@##~ ++~27WSw@_K-@c^(V͞S(^gT͞S(TgT͒SĒS(G=: @[@2cfCdf Track xxx FLAWED>2n@ > !2n@>2y@[@Phh>  !<u\c 0>2<08 :00_Àe,gfͣYRgM#j@5kHgAgBgDgOgQg[g\h]h^hhhhh,*h..h<*h>.h(g)gTQgS2gDeSector? (R[(M[8Y}eTrack, Sector? [()cD(7\(/[(!ͥZ[8Q[}e[8Y}e[@}eVͥZ#V> >>>2@*h@>>2gͥXe##{gÀe^&~oÀe|<f$|f%f%&,-hZ0yZ^Àe>=><2HhZe{ !(#= e_:l@2l@:@2?R(S( :@C?:@2?:@8>2@02?*-@!<6.&:@:~Pnq#p##% #- 6~ͻj##@ _:@GO!i @<_h!j:@ !j:z@GO!j >>0F(N(<2 j*V@~(v~>S(>D2!j! j>ͧU2<> 2<:@2@=CA=:@2@>CA>~2=C=:-@!|qp}qp = HEXDECBINOCTASCDRVMEMTRKTRUSECSTDRPTDDTUDFISD!]2<> ͖\/j:@j(hjͣY5nP&oGRoLn+o-oSoQoZIo>n<o]m^l[^m\mm6mmfml mj:@:PnqpPnw wɏ!j@<> 2jY >=2j :@< !lcH(D(B(O( Q(A x2@h!l>+2@> 2@2@!l?!@?"!@!l@??(^c!ʧl:"l*"l[.l\IlA(NO(JX(FR(RS(N+(- 2@#["ky2@> 2@!l?Ph*h@>+2@2@>*2@2@#["ky2@2@#~cR(L"k2@#["ky"k2@h:@RS:@2@2@#[ïkdl"klPhzll ïkdl"klPhzll ïk#[([AC|lT[a:8GïkERR DCR  *-@~Pnw#kl͝m0v:@7*-@ "-@ n7m:R@Gm}?-7###~ 7?#>l= Bmrm0:@7*-@ "-@ nm>Bm= }?7+++~ 7?+rmm>rm=  |<  ͝ml>͝m= @ |@?  :n@= $:@(^(ERROR on Read&p2n@:@(?U>pdate, C>ancel, R>eturn to Modify? (cU(R(C *f@n*d@:@( >  oͨjøl:@G:@O:@+(:-(:A(:O(:X(:R(S(y'L( ? yL(y2n> ͖\L((ln> o2nOͨj:R@G<ȯ=G͸l>Phh*-@ RDMT]+ѯ*-@ RDMT]#*-@-6> ͖\> oͨjOT]n6:R@/> ͖\L(*l(&> oͨj!ݯ>jolmSo> ͖\cL >> o2oͨjG!o2oCo:@O F#N!@HDBOA > ͖\ (c0:8AG?w#q#6 !@[y IBM Format? [(cY( N >>>>2z@2y@ Zb`{V@ _F`ͼ`| (`Bad SectorsY SourceZb`:t@2q@ Compare toZ:t@2r@_F`@` a a@`DMB`ia@!y_!aLqhZ8+[a| | (`Data mismatches#`DAM mismatchesY(}C^q-DATA-@xxH-W`ݾ#( DAM-Q`  [a SourceZb`:t@2q@ DestinationZ:t@2r@_F` a a@`DMB`ia@`| (`Sectors NOT copiedY Be CarefulZb`_F` {V@co2z@ hZ8+| (`Sectors NOT zeroedYZb` S>td, R>ptc, D>dt, U>df? oG(~cS(R( D(U(xv(  ~(ˏ2r_F` {V@`DMB!6`| (`Sectors NOT alteredY SourceZb`:t@2q@ Exchange withZ:t@2r@_F` a a@K7@Ss`DMB`ia@ͽs`K7@ͽs`a@ͽs`| (`I/O errors on exchangeY_!Nwy# SourceZ͑aͶa:t@2q@ DestinationZ͑a:t@2r@_F` a C5tCft "8t"rta@ CNt! x(, "8t"rthZ8͊a a@"jt !!~ x(( , DM͊a C5tCft"rt hZ8 !K5tx$t(`I/O errors on transferYoMIsEPPZb`F`@`___u\v@`ħ,_uxGO{z&u[ay# #`matchesYDM!=u-b Match at xxxxH"-@Q`:l@W_:@O!@ String: 7u8x2@H Replacement: :l@˗2l@7(u8x2@:l@2l@@H!:@G:@x2@>2Mv~@ 2Mv#~7![(V"(''(#[8x( q#pq<#G!b"(!c";v"}z23v#~#( ( bw#7ȷ!~Pnw# >2v{z̳v[a v+hZ8| (`sectors NOT read#`matchesY{Cv Match @ xxH S@Q`:l@W!@K@ѯ2vZb`_F`{V@ S0w`DMBDM!Qw x `| (`reversal errorsYT] Nwy+$ SourceZ{V@_ @F`@` SearchZb`_ {V@8!aw[ahZ8+| (`sectors NOT read#`matchesY Exact Match Q`͇[{V@2yޯ2ccU@V2 @!<?zcS!?"!@ >:2?ͧU2?>=2?: @2?C?v(~ : @(>D>S2?>'N(>"2?͠ysyچy~2?C?#~2?C?#~2?C?#~2?C?#~C?#~C?>H2?2?y[aY9xxͣY9x\y[7y-y%yX4zS=yDMyF]yBhy']y"hy: @<2 @NU: @9x=2 @YU9xy 9xU2 @9xy9x>2y9x>2y9x9x9x!?"!@ Flawedx!?"!@ ID Read Errorx!BͥX7 ~O#>$T:l@_!V##^z27͞S(_(U:y@2y@͞S:D@_YY( gN(H*C?U:y@>Y(>N2?:z@GO!j ?:l@2l@9xSource Track Head Sector Length CRC1 CRC2 ckCRC IBM Datab#_!zz!~# 8)0%Name = xxxxxxxx Date = xxxxxxxxInvalid Name/Date6~~_( ~ 0ͥZr~(=( ~80 0w{Vfħ|f}~z2{{VT2{23@!8)w#((hZ:3@<23@8^ To:3@8>2{zK!wT:3@o&{V`_:4@G! !<@~ (f|#'| f|( 6 + ###ͪ(6^6(6]6_"!@!| > B~ N~ (͓8?w##~ (6/#~ ( ͓8!w##*!@|cS"!@xxxxxxxx/xxx~C|Back DEC=xxH_ͷS(gTͷS(ͷS( gTͷS{w> ~(>wͷS(gTͷS(ͷS( gTͷS{w> v(>w ~( @(F!B(!AF! B(!A!A6 Cannot establish disk typeY }@ób 7{ 24@6PZ:l@2l@!?"!@{:4@G! ! u\cA}}ͣYC~K ~R,~W~:~V~]g~^L~NL~\~[q~~~4~S S{^{ |@?8ͪ:~~ ( |<8ĈV~~ ( |<8ĈĈĈĈ@ |@0ͪͪͪͪͻ6 Write Directory? (cNʪ}Y ͻ1ͨ{ê}:4@24@{þ}:3@ G:4@24@{þ}ͧU21 Cannot locate directory Drive x ͧU2R>'F(>"2S Drive x ͆z~2CF!>8!"(@a~ XDeo> BH Date? (!> BH ~Master Password? (" Auto Command? !>  BH K2z@T {V Yób 7{ 6^(`clear entries è{͞ABW` 2/Yób 7{ 6ͫͫ##!*!@f(K~ E'| @[a v(6S#^(6I#~|( 6P#6=#0w#### "!@ ͫ*!@ͪ "!@><2د22\a[af~_~<<(##~͎!_~<<(##~͎!~ ~(!(.~#(>?wn6?~2l~o<<~ʄO(#= &~w ( ># ,v##V -F( >v>@>v^~80>@>>v(>F>v>@~((<^ !``!F>B~ o&G}oN Xy ,}V_!~80 > >2tB#!Qfēͪ>t  ~#O <~_x&o~( j{wO~<<(##n&q}͎!b Yób~V7{  6 Yób7{ 6 Category? (~cw#~/(.(E (Ax 0#!fĸͪ ͻ1è{#r[(  x8!l #~c@@S(I(V(P(@N~(a~C~(G(80 8 88v(&#:#:w:wv( wLV`!~< +Fx~/2_U>vN p~2U> *!@'| :t@2N@Name? (ʹܗ8{_!_A ut:N@oUAccess Password? ( ut utUpdate Password? ( ut ~wProtection Level? (080ݶw Attribute? ()ncV( I(S(1ͨ{Y ~0Ͷ͞ }.$~ } .% !B\!Bӏ~80`i $Yób oK207{ >ë{ Cannot locate Directory Track, Sector count? (l[8qT23@[( [8y23@o&`/!!! Yób7{  A>llocation table or E>ntire sector? (cA(E ͗;è{7{ 1è{!FDv(6!7~( 6!7~wcPY~(8( Cannot repair non-TRSDOS boot sejctorͥZo2z@{V Yób7{ 6!n(#ͥZF F( ̊z# F co2z@F ~ _ Y2ób7{ 6F`!ͻ!Fa( GAT Table is BAD[aW`!1~=: 2!~h8 0 a( HIT Table is BAD[aW`#! fͪ (`Total Errors [a~_"N@""*~<<(.##*!@*N@'| No Extent Terminator [aW`~!͎!f(I~(C!)طR*ʹЋ*!@*N@'| Bad Backward Link f[aW`*!@*N@'| Bad Forward Link [aW` Yób7{ ~ $ Cannot move DoubleDOS directory 6 Move to track? [č[8y0!i~ʮ/~( { _~ |nsTSMi6qy2ͨ{o!w*3@&`~bwdͥZ!~(=(,8 0 ~v(~w0 Track Allocated ӌ Directory There ӌ F/!!~( { _~ zCxx-$,| g #}( ӌNo Tracks AvailableYVpF(~8 8 vv^b~F vv~(( _W{_W~((||ɯ2y2j2I<2|2q 2|2I2q͗ :|=c!@2ób bDrive(s)? (!rA#[(!(#(c8~wz`( Name? (!> BH Date? (!> BH Master Password? (" 2I~05Use Configuration? 2I[cN( Y! >2qbób ͧU2*:x Type, Tks, Dir, St Tk? 2I~?w[͗c8^[[8y8a0wLV[([8q~0[[8y2I!~80xB!"!/F~( { _s^ s`#Â1B* Data ** Disk * ͗!@2{V ~2P@ͷSĴSWUF`@`!"1@:P@w>(W̓T:I2N@\:|=jp_:|=yF(>=jp_:|=y:|= a8:N@<2N@(NU:P@w:|:IWͥZ_BhZ0:|$:I(/ Write Directory and Boot? ( cNY cPY!.~(( ~ >o2z@ͥZ~w!Zn~?wK2z@Tc~(( >> O!/ .T]6hZ ?cPY!ז hZz2 /z=2T2 PY! hZc~ =0F(Tѻ (`Granules LOCKED OUT(`sectors LOST#`sectors could NOT be verifiedXcͧU2k on Drive x !V !G~~ (&w(!ΔV !b( !}F !CN#^#V#͉[1@===6#=Sٓ==6#~w#~w#~#w#6#6#===~>(>w#!6#= 33==K1@Gw#  V   N N NNNN N N NNNN N N NNNN)   9 N N NNNN                       T ͧU2dDrive x HAS DATA >_A ͧ| zT   Non-Standard Formatە !!͆z! ~!_A wC>ontinue or Q>uit? cCQ@x( ~cw#xozg>(G6 #{_0!W\}oR&$))W})8_?`C1@?`>2j2y_ v(~#^w{# w ~#(3@Not A System Disk:]BOOT SYSBB]DIR SYSBB  Repeat? YcNYY :|:| " GranP LOCKED OUT UwW`7 CANNOT VERIFY Q`/{2!~n(?w~18_0[ 8 8&8~2~2!>B~#2~G~G~!B!7F F( ~@G~ 2~#2>'2B:N@WͥZ&oNN{_&j{ 8"~w^ `w{ 8ͥZ{  _F hZ {VU!"1@K1@F(_K1@_~=NU Be CAREFUL Yóbmmmmmmmm_*1@T]6~(())R~  TracLks? [([8y2N@!ԯ2P@2R@ww##:P@2C~2ƙCǙ~2әCԙ ::R@(: x2y2˙ Track xxx, xSingle xxx, xDouble xxx ::[:P@w666:R@wUw[5+#ͣY Invalid Commands|RTJHMSQLUIrNCADJ >>>2p~cR([8yK#w$:R@wU~˗8w:R@wU~˗8w~#0w~#cS(R( D(U:R@wUw:m@g>2R@!V@6RJMQU(:P@<2P@G:N@j>2q@ä:R@ 44 H|_72[/2Nw2U>2|2I Source͇[:t@2q@ Destination 2v@=2s@:q@oUn(2s@Format Drives? 22q<2[(6[(,c*(!(Y(N(>2#>2q>2>= F Mount DESTINATION diskettes:ͨb 0Hób{VU~wF:q@oU͆`"R@ͥZSN@_ KF@AyoUn   No Destination DrivesY:q@oUn <2r@[N@SP@*R@:q@oUPa=a`"R@SN@DMB"T@ۜ;ób:t@2r@PaCa*T@[P@{V `>=*T@[P@C`@y_*`@a*`@$"`@hZ+| *R@|cDLób[N@hZ[N@y_hZ0~2C Updating Directory to xxx Tracks 7{ ;è{Cannot Update Directory  E>ncode or D>ecode? ( cDE Password? LE!-b Encoded = xxxxHY *!@'|^VJC!D-b Access B= xxxxH ͗a8^VJC!n-b Update = xxxxH ͗YJC!-bxxxxxxxx = xxxxH!> BK!@>AѷR(a!~ <[ 6A#K!@ ?~ <:([(w>A60#~ w>@>/ ** BAD ** ͇[:t@2q@~2T@2C66 ͧU2{VYUY@2N@2cc!66:N@2Ct~@wSX@6ͮ:8 SX@:m@g 6ͮ:8 (:N@<2N@ʤNU!BbWͥXĥX( ~O#>22P@:@8ͥX:@8 u( :P@=2P@ SR@!:W2727:27ͣTUx2y@-T(( "2h@2i@U:y@2y@D>MͣT-T(:i@:h@G:y@G~(44t̟~2C~2C~>S(>D2%*R@~2.C/#~27C8#~2BCC#~2MCN#~GO!j R~!i !oWQDrive x=xxx / Track xxx / SD=xxx / DD=xxx ~ݶ(>xD Track xxx Head xxx SNcY(N 2 Pajb{V U ͧU2^2N@!2fCg~2o:Cp~2xCyFormatting Drive x Track xxx / SD=xxx / DD=xxx(4ˢ>$Y $"K1@!"j@!:@8(>N2:N@<2N@q(NU)##*1@C^@"\@C`@~Oأ ~O>"d@2===6#Sf@[f@===6#~w##8~> >w#===~(i~/w#~(VU~( !N.~(+O>$(~(=(=( !XDM6# x 6## =Kd@BDM   N N NNͣT6bWK`@x(W6bW*^@|(I>YDeo> wT~O(27 x QYK1@6X:@ Copying !ԯ2N@:q@oUPaYb:N@W̓T6##~K1@C6~C:r@oUPajb:N@W̓T6##~K1@S6~S(:N@<2N@Œ Another Copy? (cNYY ënN&D4 X##-TReading pTWriting S֥_:N@2CͧU2>S~(>D2Drive x, Track xxx, xDensity~W2727##~_27##~ "U~G2y@~2z@ͣTեK@# VC/@ͪ>N2!"d@"f@!"h@C-@Phh!l<>  !<2u\c 0>wѦ ( :Yڦ> *-@eͣY"-@[\]^AgBgDgHgOgQgM#j@5k#+$*5@%! Address? K/@cLK-@[8:Y >N2*j@ !"1@"-@>oUDos Type?  [(͗c8 Track? [([8q02ccVp!c-b to display buffer at xxxxH:ͨb !"N@"R@*5@+"P@Start, End, Start? [[8CN@[[8CP@[[8CR@ CN@K5@ CP@Start, End? [[8CN@[[8CP@F`p,~W`# x (`bytes movedY*P.@KN@B#DM*N@[R@F`p,~wW`# x (`bytes exchangedYF`ħ,W` x 8[P@~w# x (`bytes reversedY@C/@ͪ!@B@!@C@G !"N@*5@+"P@2R@Start, End, Fill? [(%[8CN@[([8CP@[( [8y2R,@,T]:R@ wCh!Pa xxxxx bytes filled with xxHYF`p,Ę# x (`Non-ComparesYDM!-bBK!-b xxxxH and xxxxH DO NOT MATCHW`[a"!-b,!-b DO NOT test between xxxxH and xxxxHF`ħ, bS5^>ww*ʾsĊ0#[aa8- x((} DM!e-bTesting Block xxxxH(`bad bytesYW!"5DM!-bxxxxH, bad bits =>702 x,=K!@>.  W`:@8!!(!mE~%# Port? [8yC%xC- Input byte @ port xxH( is: xxHY Port, Byte? [8[y8yYF`!"/@ͪZb` o2z@{V@hZ8+| (`sectors NOT writtenYF`Zb`!"/@ͪ {V@@`Q`hZ8 ͊a(+| #`sectors loaded to display:ͨbC-@ C-@ͪC1@%{&V@bW̓T VY Error on Track WriteY!"/@%SN@ͪC-@ Synchronize to ID? ( cN(Y x2X{V@K-@[N@bW̓T VvX K@ !-bK-@!-b Track in buffer from xxxxH to xxxxH to display:ͨb7\ Track Read Error$ oUDrive, Track? [c8[[8QK1@ _Tape Backup ͸!"d@A*!@60~?wMYDeck 1 or 2? ͨb >11( 27 to begin:ͨb to terminate: bk*@!B?Looking f"or syncAz O wqp@#y~ !B?666@Tape Read C/@ͪC@͸!"d@  rz=#|հMYPZ*@|YK@NO DATA in memoryħKN@C@*P@"@B#"@!"@Tape Verify F`*@|͸!E"d@ e K@ z> (W`>*wz=#|հ x MY(`errors on verifyYTape Write *@|͸ eͬK@Vٯ~=#a8 x MYYWriting LeaderATٯ ٯ7 0> < l> !@88N(Ar1_AKd@>Q{c>tcͿQ"@S@"@K@!-bK@!-bK@!˰-b*@!aData from xxxxH to xxxxH / count = xxxxx / checksum = xxxxH +Buffer Full 7 b>2Vób27YͣT K6~27`ѣT 5 x(0:7G W(%~V(*T@ͧU2J Drive x mountedͧU2c Drive x NOT IN SYSTEM Y2ób_7{ 6ͫͫ!#fIJͪ[a ~_"V@ ͫ*!@'| v>S > w#^>I > w#~( 6P#6=#0w!"N@"P@ͻà FPͫ:N@C% #xx FXͫ[a}CB||C2VT>C~C}ͧU2rDE - :x, Track = xx, Sector = xx, Byte = xxH, DEC = xxH>2_ 2_>2_28[a~(CPnf!Ba~2[C\FN!z-bFN!l-bn( ~<(<(~ǁO##*P@ "P@y2C EOFS = xxxxx, EOFB = xxH, LRL = xxxͫ EACC = xxxxH, EUPD = xxxxH, Grans = xxxͫ Extents / ë[a2R@~(s(v2C~G~( C~G!^ U(}2Cxxx,xx,xxx / ##~ :R@<2R@8EOF ~C= FXDE DEC = xxH ~͎!:N@<2N@ͬà۴ >2@>2o@!"d@!"f@!"h@""V@DInvalid Filespec File NOT FOUND [@K-@*V@{V@S4^ !*V@ **V@ĸ2C-@S@ͷS/^ PhhB>  !2<ص*`@eͣY_A!<@> (w =  (6/ > (w = *`@!?~a2?!@?6R#6S#6E#6C:^@=>P(>X!?6F#w#6D#6E*`@K$@B ( 8>+ >-:#@>@@!?qpw^[]\EAgBgHgOgQgDg)$$)FM#j@5k#|+*$@ *&@*&@!"`@Sector OUT OF RANGE@*`@!ya Positioned to Relative Sector xxxxx >  ! 2P@[!!~(. !~w,~w6!_A 2#@~!(G"$@~( -~2$@2%@~<7ȯ#!f ͪ :p@7:t@2^@ܸ~7(9WͥZ~( g{ % _~gn x ٱhZ- n % ##>2^@~͎!Z S\@{V7{ #!fwͪ Sector NOT ASSIGNEDY~_ȸ*\@R( Assigned to file: *!@'|!ҹa Relative File Sector xxxxxͲY2B2; "C`@T]!( (! !G!d! dSR@SCN@SP@ٯ0K`@ȸ0>2X@sd!==G!_!WK!-bKN@!-bKP@!-b Module load range = xxxxH to xxxxH Entry = xxxxH New Load Address? !@"V@[_[_`iKN@B"T@[KV@( [_CV@':Z@Ypâ9@ EOF ReachedY7, (>=S*K`@C`@ȸj7~>2;Disable Interrupts? [>Y(~cY(N ӯ>!2$"`@2B !>2B!((0 !G!!G!_:T@w!W:U@W0r:Z@Y´6!6![P@SR@*T@s!r!>w!6!6!6*P@[N@R#DM[T@>R0 + +>2!6!!s!r!6!s!r!6!q!p!6!6!6!6!6!6!s!r!6!6!*T@[R@s!r!}*w*`@#utSͨ{Y Load File Format ErrorYR8B0:X@ ? Insufficient space for appendage to write file:ͨb>N+ Add Appendage? [>Y( ~cY(N 2Z@ Source: :t@2q@طR"!F`@` Compare: :t@2r@!"`@"t **!@'| <<==>> *t*!@'| :q@oUPaYb*`@"P@!"V@*ĸ8*V@#"V@*`@#"`@͊a *V@|:r@oUPajb*P@"`@!ĸ-PY!a(F}CӾ*`@!ǾaMismatch, Relative Sector xxxxx, Byte xxH Q`[a*`@#"`@*V@+"V@|(͊ar*߸(`Disk Errors#`Sector MismatchesY EOF Dest file reached!n(# V~ F(G20 y#87{_Q$(=(=('=(6=(EOFNx(=Vx(+^x(fn#}87 xBG(y( *****!"û!fͶ ÊC`@"K`@CT@a*ĸ8 *`@#"`@͊a *`@"V@*T@"`@*\@aĸo2z@*`@#"`@͊a *V@"`@:q@oU*ĸMFilename? ([( ʹܗ8ܬ8د " Are you sure? [@cY@!"`@ {V@*ĸYcY*`@#"`@ȸ *ĸ0>2|͇[>2p@=2:t@2q@/#S! fͪ "~ ! Files to be copied: :q@oU*!@![¯2N :Yób~_v!"*!@'|!"X@"2, Copy? cNY >2s@:q@oUn(2s@:v@2r@a7{ 6[(@~ != !a!!a Sectors to copy = xxxxx, Sectors not allocated = xxxxx R0%Possible Disk Space Full Condition #S1!:q@oUf$:q@oUͪ aͻ1è{~v_:v@2r@ABCopying: *!@'|:q@oU!"X@2 _A :r@oU[1ȷ 0T]"\@ͩ ~ bk6:q@oU!"X@`iN X|:r@oUN XyDM(*\@`i"M~> > H8|Ar~80xw##GB( = 0~ʊ0Rʹ6w!LFRʹO6T]6 ~ qp͞Disk ͞File SpaceY Out of _~G(:q@oU~( (:r@oUutut:3@8* Cannot Copy to/from long directoriesɯ - Copy ABORTEDY File ExistsY File to Create? [(ʹܗ80:p@ 1bzób No Space AvailableY~V7{ 0"T]66 ~ 6}_T!_A !jAutut 6 # Grans to Allocate? [([8y`i3ͻ1ͨ{YN X*ut P@ób7{ !!<6 #y2\@q#p#6^#FN`V F(":\@(>_0^ 8#>.0>xx :\@>x >Dw( w>L#_(   ##### e!?"!@èb`i~  ~<(<(~O ##DM~͎*X@`iN X!Raxxxxx Sectors, `i!|axxxxx Grans Filespec to hash? [( ʹܗ8!_A{C Hash Code = xxHY~((<[!~> > 2`@fͶ ~ ! = :`@~((#~o& DM#= !76--666.vB=(=(02vBGvBDBDBvBw #vBGvBovBg!B!B!BmB!BmB@v~3,, MͭB { ~MemoryDataDisk Error>;BDM= !7>27S76ͦBF 6ͦB70 ~O(~6!76--666.vB=(=(02vBGvBDBDBvBw #vBGvBovBg!B!B!BmB!BmB@v~3,, DͭB { ~MemoryDataDisk Error>;BDM= !7>27S76ͦBF 6ͦB7~BN N N ~ F ~6.\C=(=(02\CG\C3C3C\Cw #\CG\Co\Cg!tC!{C!C!C@, M͓C { ~MemoryDataDisk Error>͢C= >z{`i>y͌Cx8>2I@CSJ@>>y͌Cx(>!C"J@x>yEKl@i͟2G=x͟Y h(>M2R=p͟2[=X͟2g=`>N P>R(>X2q=q͟2y=2`@!=K^@:`@oUw>=v >-~ >+wNyO!}B  ^(>R>'F(>"> ~wqp~wqp~w"q#p$~0w*~͑w1~͑w8v͟w=>S~(>DwM>Sv(>DwR~0wX~0we~q^p_~ qkpl~ pr~ F(px>SV(>Iw}:`@<2`@À>Y>N> Y__ Configuration __ Dual=x Graphics=x Locase=x Linefeeds=x Doubler=x Speed=x x:x xxxx Ptks=xxx Rtks=xxx Dir=xxx Stp=x Rdly=x Wdly=x WP=x D0=x Dd=x LS0=x HS0=xx LSd=x HSd=xx S/G=x G/T=x DD=x ̯2^@1!@=*[ʯcY (N :l@߰2l@ͿQ#[ʯcN( Y(M :m@_2m@#[ʯcY@(N‚:m@濰2m@#[ʯcY(N‚:m@2m@#[ʯcN( R(X‚:m@2m@#[(rcN(Y@‚:l@˷2l@tc#[(PcOc(F‚{c#~=‚#B!@w#w#6H#6 [yڂw# (:F@F>F2^@2\@!="Z@1K\@:^@oU1*Z@*[2(<(> :2(#~08KF@06oU6 >$> #[=(+(- ~w#[͗c[[yawLV[(v[q[(h[yG~w[(M[͜~ϰw[(3[͜~w[(cY@(N~濰w:(><*Z@"Z@:\@<2\@16=#6>!?"!@? 76.#6 1!?"!@@cůoU{VEPY!q :/D:@:F@:l@:m@!@!rAh!A!aB!{c!! o2z@~~66SCww@4^@áͷS(gĴS :W̓T `XSuper-Utility + Configuration  >0y7?OG!`@1!<0`!<0`!<:@8:@810AE&BY: KIM WATT(C)(P)COPYRIGHT 1983ALL RIGHTS RESERVEDBREEZE/QSD INC.DA POWERSOFT PRODUCT FROM BREEZE/QSD INC. {jd DISK HEAD CLEANING PROGRAM FOR TRS-80 MODEL 1.jn TO BE USED WITH 3M HEAD CLEANING DISKETTE OR SIMILAR PRODUCTjxAZjN4:T0j:(23);k@136,"** DISK HEAD CLEAN **":)k"WHICH DRIVE? (0,1,2,3)";A$:Ck(A$)0(A$)3ʍ150bkD(A$)48:D0DN1ʍ150k"HOW MANY TRACKS (35-89)";TN$:TN(TN$)k TN35 TN89 182kD(2D0.5):D=UP ARROWk"INSERT CLEANING DISKETTE, THEN":" PRESS ENTER."lA$:A$(13)ʍ210#l14304,D5l14316,3:340Zl@576,"HEAD OVER TRACK";(14317)rlJ190:14304,D:JlTTN ʍ290l14316,83:340lTT1:240l"((14316)128)128ʍ290l,@704,"REPEAT PROGRAM? (Y/N)"l6A$:A$""ʍ310 m@A$"Y"ʍ130mJA$"N"ʀ:310:mT((14316)1)1ʍ340: THE DISK TO WHICH DRIVE ?"~I$:I$"M"840:(I$DN$)(D(I$))670:DVDN:DQ2DV:DC(I$):DG2DC:@350,DC:DNDC:DS2DN:3300:(WP)(DF)DNDV:DS2DN:690~WPʑ3460:660:660 350:DNDV:DS2DNK@448,CF$;"COPY ALL";DM1;"TRACKS OR SELECT THEM (*A/S)?"I$:I$"M"840:(I$"A")(I$E$)ʁI0DM:CV(I)T:I:770:I$"S"710:@448,CF$;"SELECTING TRACKS (C=COPY THE REST, S=SKIP THE REST):":LV0:IC0DM:"COPY TRACK";IC;" (*Y/N/C/S)?";|I$:(I$"Y")(I$E$)CV(IC)T:" YES":750:I$"M"MCT:ICDM:760:I$"N"CV(IC)F:" NO":750I$"C"ʲ" YES":IKICDM:CV(IK)T:IK:ICDM:760:I$"S"ʲ" NO":IKICDM:CV(IK)F:IK:ICDM:760:730 LVLV1:LV6ʲ@576,CF$;:LV0RIC:MCMCF:700:MCT:IC0DM:MC(MC)((CV(IC))):IC:MC830ǁ2870:MC830:SSF:BS2,DQ:H1,TH:L1,TL:JK0DM:M(X)JKDM:MCT:810:(CV(JK))800:@256,"TRACK";KL$;JKS @320,KL$;"SCANNING":DNDV:DS2DN:3300:ET800:X0(0):X255JKDM:MCT:810:X0800:DNDC:DS2DN:M(X)JKDM:MCT:810:1510LT780:MCJKDM:810:1670:MCJKDM:810΂ JKDMʲ@256,CF$;"STEPPING IN":DNDC:DS2DN:370:DNDV:DS2DN:370*JK:MC830:@256,CF$;"DISK COPY COMPLETE":SSʲ"(SOME SECTORS SKIPPED)"F4DNDV:DS2DN:350:DNDC:DS2DN:350X>DNDV:DS2DN_H mR:SPARE*t\ f:SCAN*pROT:@192,CF$;" -------- IDENTIFY ALL SECTORS ON CURRENT TRACK --------":3300:DF930:ET920:@320,KL$;"SCANNING":BS2,DS:X0(0):X255930'zX0920p@320,KL$;:3420:MC930:FGF:2690:MC930:"REDISPLAY (Y/N*) ?";I$:I$"Y"ʄ:900:(I$"M")(I$"N")(I$E$)930:910ل@320,CF$;"TRACK HAS NO SECTORS!":3540 턬:COPY*pROT:MCF:DN$վS$(DN):@192,CF$;" -------- COPY THE TRACK AT CURRENT HEAD POSITION --------":3300:DF1080:ET1070:DR,DS@320,KL$;"COPY THE TRACK TO WHICH DRIVE ?")I$:I$"M"1080:(I$DN$)(D(I$))970:DVDN:DQ2DV:DC(I$):DG2DC:@351,DC:DNDC:DS2DN:3300:(WP)(DF)DNDV:DS2DN:990C(WP)ʑ3460:960:960S350:DR,DSTCST(DV):TC$վS$(TC):@320,CF$;"COPY TO WHICH TRACK POSITION (*";TC$;") ";:TC$:TC$"M"1060:TA((TC$,1)):TA48TA571000:TC(TC$)Y(TC0)(TCDM)1000:GTTC:3380:2870:MC1060:H1,TH:L1,TL:BS2,DQ:@448,"COPY WITH FORMAT (*Y/N)?":DR,DSI$:I$"M"1080:(I$"Y")(I$E$)FMT:1030:I$"N"1020:FMF@320,CF$;"SCANNING":X0(0):X2551060:X01070:FMʑ1510:MC(MC)(ER)IMC1060:LT1030:SSF:SS$"":1670:MC1060:SSSS$" (SOME SECTORS SKIPPED)"x@320,CF$;"TRACK COPY COMPLETED"SS$:3560$DNDV:DS2DN:1080.@320,CF$;"TRACK HAS NO SECTORS!":3540È8 ֈB:TAKE TRACK*lLROT:@192,CF$;" -------- READ THE TRACK AT CURRENT HEAD POSITION --------":@448,"PUT IT WHERE IN MEMORY?":2910:MC1150:H1,HB:L1,LB:3300VDF1150:X3(0):(X0)(X4)ʑ3480:1150:@320,CF$:3270:(OS)1120:@320,"TRACK READ INTO ROM AREA!":11305`@320,"TRACK SUCCESSFULLY READ INTO MEMORY":"LOCATIONS ";HS$;"H TO ";HH$;"H"j"A TOTAL OF";VN!;"(";HN$;"H) BYTES WERE READ IN."::"E TO EXAMINE DATA AT ";HS$;"H"܊tI$:I$""1140:(I$"M")(I$E$)1150:I$"E"ʰ9PE:X9(DE):1140~ :PUT TRACK*ROT:@194,CF$;"-------- WRITE A TRACK AT CURRENT HEAD POSITION --------":@448,"TAKE IT FROM WHERE IN MEMORY ?":2910:MC1190:3300:DF1190WPʑ3460:1190:DR,DS:H1,HB:L1,LB:X4(0):X0ʑ3480:1190:3270:@320,CF$;"TRACK WRITTEN:";VN!;"BYTES LONG.":3560 ":READ SECTOR*NFF:RDT:@192,CF$;" -------- READ A SECTOR FROM THE CURRENT TRACK --------":2630:MC1380:(OV)ʑ2490:MC1380(@320,CF$;"SECTOR ";TN$;"H ";SN$;"H":@448,"READ IT INTO WHERE IN MEMORY ?":2910:MC1380:H1,HB:L1,LB:3300:DF1380:(ET)1240c@320,CF$;"TRACK HAS NO STANDARD SECTORS!":3560:1380U!(SN256TN.5):UվA(U!):TW0DR,DS:X1(U):TWTW1:(X0)(TW6)1250:X01260:X81300:X161340:3480:1380o@384,CF$;"SUCCESSFULLY READ":3270:"A TOTAL OF";VN!;"(";HN$;"H) BYTES WERE READ":PM$(F$,(MD)21,2):"DATA ADDRESS MARK = ";PM$ێ(OS)ʲ"DATA READ INTO ROM AREA!":1280:"DATA IN MEMORY AT ";HS$;"H TO ";HH$;"H":HE$HS$:3150:9PE:"E TO EXAMINE DATA AT ";HS$;"H"N I$:I$""1290:(I$"M")(I$E$)1380:I$"E"X9(DE):1380:1290ߏDR,DS:@384,CF$;"READ, BUT BAD DATA BLOCK LENGTH OR CRC!":3270:DR,DS:"A TOTAL OF";VN!;"(";HN$;"H) BYTES WERE READ":PM$(F$,(MD)21,2)R"DATA ADDRESS MARK = ";PM$:(OS)ʲ"DATA READ INTO ROM AREA!":1320:"DATA IN MEMORY AT ";HS$;"H TO ";HH$;"H"(DR,DS:HE$HS$:3150:9PE:@704,"E TO EXAMINE DATA AT ";HS$;"H":"R FOR CONTINUOUS RETRY":DR,DS2I$:I$""1330:(I$"M")(I$E$)1380:I$"E"X9(DE):1380:I$"R"1360:1330d<NFT:@384,CF$;"CANNOT FIND SECTOR!":@704,"R FOR CONTINUOUS RETRY":DR,DSFI$:I$""1350:(I$"M")(I$E$)1380:I$"R"1360:1350ԑP3340:AT!0:@704,CF$:@982,"ATTEMPT NO.";+ZAT!AT!1:@993,AT!;:DR,DS:X1(U):X01260:(X8)(NF)1300:M(0)1380:13707dRDF: Ln:WRITE SECTOR*xRDF:@192,CF$;" -------- WRITE A SECTOR TO THE CURRENT TRACK --------":2630:MC1490:(OV)ʑ2490:MC1490M@320,CF$;"SECTOR ";TN$;"H ";SN$;"H":@448,"WRITE IT FROM WHERE IN MEMORY?":2910:MC1490:H1,HB:L1,LB:3300:DF1490:(ET)1430@320,CF$;"TRACK HAS NO SECTORS!":3540:1490WPʑ3460:1490:U!(SN256TN.5):UվA(U!):TY0#DR,DS:X2(U):TYTY1:(X0)(TY6)1440:(X0)(X16)(X255)ʑ3480:1490:TN$վH$(TN):SN$վH$(SN)TX0ʲ@384,CF$;"SECTOR WRITTEN AND VERIFIED"~X16ʲ@384,CF$;"CANNOT FIND SECTOR!"X255ʲ@384,CF$;"CANNOT VERIFY SECTOR WRITE!"3560” є:FORMAT*RLS$"256":LTF:ROT:MCF:ERF:NB(AD3):NB01620:@320,CF$;"LENGTHS MUST BE SPECIFIED FOR EACH OF THE";NB;"BAD SECTORS."ݕ"FOR EACH, ENTER A LENGTH (16-3056, MULT. OF 16).":PKAD:PA(AD2):JM1PA:PKPK9:(PK)21600:TN$վH$((PK4)):SN$վH$((PK2))rLK$LS$:@576,CF$;" (DEFAULT = ";LK$;")":@512,KL$;"LENGTH FOR SECTOR: TN=";TN$;"H, SN=";SN$;"H ";:LK$:LK$"M"MCT:1600:LS$LK$:L(LK$)LK!L16(L16):(L16)(L3056)(LK!1E5)1550:@640,KL$;"INVALID LENGTH - PLEASE REENTER":3540:1530Z@550,L:L8(L256):PK1,L256L8:PK2,L8:PK,1:L128ʱPK1,0:1570:L256ʱPK1,1:1570:L512ʱPK1,2:1570tL1024ʱPK1,3:1590"@640,"MAKE IT AN IBM SECTOR (*Y/N) ?"ח,I$:(I$"Y")(I$E$)(I$"M")1600:I$"N"15806PK1,L16:PK,0 @MC(MC)(I$"M"):MCJMPAJJM:MC1650jTNQվNQ(AD):NQ01630:@320,CF$;" FALSE ID PACK(S) ON THIS TRACK!":3600^MCվM(X):MC1650:8MA:X8(DT):X01640:@320,CF$;"TRACK CREATED IS TOO LONG! WILL RETRY.":3560:LTT:1650hDNDC:DS2DN:3340:3600:X4(0):X01650:ERT:3480/r@320,CF$: @|:TRANSFER*֙ROT:MCF:@320,KL$;"TRANSFERRING SECTOR:":PKAD4:PA(AD2):JT1PA:PKPK9:TN(PK):SN(PK2):M(X)JTPA:MCT:1790:(PK4)1SST:1790UTN$վH$(TN):SN$վH$(SN):@342,KL$;TN$;"H ";SN$;"H":IB,2478(PK4):U!(SN256TN.5):UվA(U!):DNDV:DS2DN:TX0:3340ښDR,DS:X1(U):(X0)(X8)1720:TXTX1:M(X)MCT:JTPA:1790:TX61690:@448,KL$;"CAN'T READ SECTOR ";SN$;" ON DRIVE";DN @583,KL$;"PRESS TO SKIP IT":DR,DSDI$:(I$"M")(I$E$)1710:MC(I$"M"):SST:1770SFCʱMD,DBpDNDC:DS2DN:TZ0:3340DR,DS:X2(U):X01770:TZTZ1:M(X)MCT:JTPA:1790:TZ61740:@448,KL$;"CAN'T WRITE SECTOR ";SN$;" ON DRIVE";DN@580,KL$;"PRESS TO SKIP IT":DR,DSRI$:(I$"M")(I$E$)1760:MC(I$"M"):SST`MCJTPAn@448,CF$yJT: :EDIT*:@320,"EDIT OR FILL MEMORY (*E/F) ? ";ED$:(ED$"E")(ED$E$)ED$"E":"EDIT":1840:ED$"M"1910:ED$"F"ʲ"FILL":1820C&@448,"MAY ONLY FILL MEMORY ABOVE ";WM$;"H"˝0HE$WM$:@512,CF$;"ADDRESS TO BEGIN (*";HE$;"H)";:HE$:HE$"M"1910:3150:BA1840:ED$"E"ʰ9PE:X9(DE):1910:DE!DT!1840:@539,HE$"H":D1!DE!:D2D1!256:D3D1!D2256.5:H1,D2:L1,D35DDE!D1!3299:DE!65535DE!65535ǞN3220:@576,CF$;"ADDRESS TO END (*";HE$;"H)";:HE$:HE$"M"1910:3150:BA1860:DE!D1!1860:@603,HE$"H":D4DE!256:D5DE!D4256.5ٞXH2,D4:L2,D5hb@704,CF$;"FILL BYTE (*00H) ";:HE$"00":HE$:HE$"M"1910:3190:BA1890:@731,HE$"H":9FI:X9(DE)::@326,"FILL COMPLETED"rl3540yv :BUILD*:@2,"-------- BUILD FORMAT TRACK FROM SECTOR SPECS --------":@192,"CHECKING FOR EXISTING SECTOR SPECS":WT(AD1):GRTl((AD)36)(WT(AD2))(WT52)GRF:1960:PKAD4:I1WT:((PK)47)((PK5)2)GRF:IWTPKPK9:I:GR(GR)((PK1)35)(WT0)WT$վS$(WT):(WT0)((GR))1980:@192,KL$;WT$;" SECTOR SPEC(S) ALREADY EXIST(S). USE (*Y/N) ?";I$:(I$"Y")(I$E$)2050:I$"M"2190:I$"N"1970@192,KL$;"CREATE NEW SECTOR SPECIFICATIONS":H1,AH:L1,AL:DEDT1:3250:H2,UH:L2,UL:9FI:X9(0)3@320,CF$;"HOW MANY SECTORS (1-50) ";:WT$"0":WT$:(WT$)21990:(WT$"M")(WT$"0")2190:WT!(WT$):(WT!1)(WT!50)1990:WTWT!:Ѣ@64,WT;" SECTOR(S) TO BE SPECIFIED."::"FOR EACH SECTOR, SPECIFY: TN,SN,SL,I/N":"PRESS TO JUST INCREMENT SN BY 1.":"ENTER Q TO QUIT.":WB0AD,36:AD4,47:PKAD4>PKPK9:WBWB1:SPT:2950:MC2190:QCWTWB1:WT0ʄ:1980:PK,35:2040XWBWT2020:PK9,35nAD1,WT:AD2,WT:@192,WT;" SECTOR SPEC(S) EXIST(S).":@320,"PRESS: B TO BUILD THE TRACK AT ";WM$;"H TO ";EM$;"H.":" C TO CHANGE A SECTOR SPECIFICATION." " A TO CHANGE ALL TN'S OR ALL SN'S.":" E TO EDIT A TRACK ALREADY BUILT AT ";WM$;"H.":" L TO LIST THE SECTOR SPECIFICATIONS."Τ" *M TO RETURN TO MAIN MENU.": I$:I$"B"2180:I$"C"2090:I$"A"2120:I$"E"2150:I$"L"2160:(I$"M")(I$E$)2190:2080å*:WT1WB1:2110:WT$վS$(WT):@320,"CHANGE WHICH SECTOR SPEC (1-";WT$;") ";:WB$"0":WB$:(WB$)22090:WB$"M"2190:WB(WB$)ܥ4(WB1)(WBWT)2050>PKAD4WB9:SPF:2950:MC2190:20509H:@320,"CHANGE ALL TN'S OR ALL SN'S (*T/S)?"RI$:(I$"T")(I$E$)PKAD4:2140:I$"S"PKAD2:2140:I$"M"2130:2050\@448,CF$:"CHANGE THEM TO WHAT HEX BYTE ";YM$:YM$"M"2050:HE$YM$:3190:3130:CIDE:(BA)(IV)2140:CS1WT:PKPK9:PK,CI:CS:2050If:HE$WM$:3150:9PE:X9(DE)::2050p:3420:MC2190:FGT:2690:MCF:FGF:"REDISPLAY (Y/N*) ?";ЧzI$:I$"Y"ʄ:2160:I$"M"2190:(I$"N")(I$E$)2050:2170U:8MA:X8(DT):X0ʲ@320,"FORMAT TRACK BUILT AT ";WM$;"H+ .":3540:2050:@320,"THE TRACK CREATED IS TOO LONG":3540:2050\ i:DUMP*:MCF:@9,"-------- DUMP MEMORY TO PRINTER --------"HE$WM$:@320,CF$;"ENTER STARTING ADDRESS (*";HE$;"H)";:HE$:HE$"M"2280:3150:BAʄ:2220:@353,HE$"H":@"HEX OR ASCII DUMP (*H/A)? ";I$:I$"M"2280:I$"A"2250:(I$"H")(I$E$)2240:X0:"HEX":2260X1:"ASCII"HA,X::9PD:SM!վB!(SM):A2SM!256:A1SM!256A2.5:DL$"":VD(DL$):VD,54:VD1,A1:VD2,A28DE9(DE):DL$:" ";DL$:(M(X))2270? K:CRC*:@12,"-------- CRC CALCULATIONS --------":@256,"CRC BYTES FROM RAM OR KEYBOARD (*R/K)? "; I$:I$"M"2470:I$"K"2390:(I$"R")(I$E$)2310:"RAM"| HE$WM$:@448,CF$;"STARTING ADDRESS OF CRC (*";HE$;"H): ";:HE$:HE$"M"2470:3150:BA2320:@494,HE$"H":BLDE:BL!DE! NC$""$ @576,CF$;"ENTER 'N' AND NO. OF BYTES TO CRC (EX. N257)":" - OR -":" ENTER ENDING ADDRESS OF CRC (EX. E000): ";:NC$. MC((NC$"N0")(NC$"M")):MC2470:NC$""2340:(NC$)78NC!((NC$,(NC$)1)):2370:HE$NC$:3150:BA2330:NC!DE!BL!1ڬ8 (NC!1)(NC!65535)2330:(NC$)78ʲ@750,HE$"H":2380B (NC!1)(NC!65535)2330:@749,KL$;NC!qL BTNC!256:BBNC!BT256:NH,BT:NL,BB:CB,255:CT,255:DE!6(BL):3220:@836,"THE CRC IS ";HE$:2450V "KBD":8KC:HC$"00"` @512,KL$;:HE$"FFFF":@448,KL$;"WHAT INITIAL VALUE FOR THE CRC (*";HE$;")";:HE$:3150:BA2400:CC$HE$:HE$(CC$,2):3190:CT,DE2j HE$(CC$,2):3190:CB,DEЮt @576,KL$;"THE CURRENT CRC VALUE IS : ";CC$;"H";:@512,KL$;:HE$HC$:@448,KL$;"ENTER BYTE TO CRC (*";HE$;"H) : ";:HE$:HE$"M"MCT:2470~ (HE$)1HE$"0"HE$? 3190:BAʲ@484,KL$;:2420:HC$HE$:@484,HE$"H":DE!8(DE):3220:CC$HE$:2420i @896,KL$:@964,"MORE CRC'S (Y/N*)?"; I$:I$"Y"2300:(I$"M")(I$"N")(I$E$)2460 :GET ID*G MCF:TA$վH$(ST(DN)):@320,CF$"ENTER THE FOLLOWING (NUMBERS ARE HEX):":@448," 1) TRACK NUMBER (*";TA$;"H)":@576," 2) SECTOR NUMBER" @704," 3) IBM STD. LENGTH (*Y/N)":RD2510:@832," 4) DATA ADDRESS MARK (*FB)" @477,KL$;:TA$վH$(ST(DN)):TA$:TA$"M"MCT:2610:HE$TA$:(HE$)1HE$"0"HE$. 3190:3130:(BA)(IV)2510:TN$HE$:@479,TN$;"H" @605,KL$;:TA$"G":TA$:TA$"M"MCT:2610:HE$TA$:(HE$)1HE$"0"HE$:3190:3130:(BA)(IV)2530 SN$HE$:@607,SN$;"H";:@733,"?";2 I$:I$"M"MCT:2610:(I$"Y")(I$E$)ʱIB,255:@735,"YES";:2560:I$"N"ʱIB,247:@735,"NO";:2560:2550? RD2600 @861,KL$;:HE$"FB":HE$:HE$"FB"ʱMD,0:2590:HE$"FA"ʱMD,1:2590:HE$"F9"ʱMD,2:2590:HE$"F8"ʱMD,3:2590ղ HE$"M"MCT:2610:2570 @863,HE$( HE$TN$:3190:TNDE:HE$SN$:3190:SNDE2 ROMC: )< :OLD?*F OVF:RO2670:@320,CF$;"TRACK NUMBER = ";TN$"H"::"SECTOR NUMBER = ";SN$"H"::(IB)255IB$"":IB$"-NOT- "P "SECTOR IS ";IB$;"A STANDARD IBM LENGTH.":RD2650:PM(MD):PM$(F$,PM21,2)::"DATA ADDRESS MARK = ";PM$CZ :"USE THIS PREVIOUS SECTOR DATA (*Y/N)?"d I$:(I$"Y")(I$E$)OVT:2670:I$"M"MCT:2670:I$"N"2660n x :PRINT SPECS* ROT:MCF::PRʯ" " (FG)2720:P$" -- FORMAT TRACK --":P$:PRʯP$ 2730R P$" -- TRACK"(ST(DN))" --":P$:PRʯP$a :PRʯ" "ᵴ PKAD:NM(PK2):NQվNQ(AD):NQ02750:P$"FALSE ID PACK(S) ON THIS TRACK!":" ";NQ;P$::PRʯ" ";NQ;P$:" "_ NM02770:P$" NO VALID SECTORS ON THIS TRACK,":Q$" ONLY FALSE ID PACKS":P$:Q$:PRʯP$:Q$i 2840 P$" SECTOR TN SN SL IBM LENGTH DAM":P$:PRʯP$. PKPK4:K1NM:PKPK9:V1$վH$((PK)):V2(PK7):V2$(F$,V221,2):V3$վH$((PK2)):V4$վH$((PK3)):V5!(PK5)256(PK6)\ (V5!3200)(V5!16)V50:PK4,3:V5V5! L1$(7((V5))," ")(V5)" ":V4(PK4):K$(K):K1$(4(K$)," ")K$:V41IM$" I ":V40IM$" N ":IM$" BAD":L1$" LEN/CRC"; P$" "K1$" "V1$" "V3$" "V4$IM$L1$" "V2$:P$:PRʯP$P "M"MCT:KNMW Kf :PRʯ" "m" }, :GET DAM*6 HE$"":FCF!@ @320,CF$;"DATA ADDRESS MARK (DEFAULT = SOURCE MARKS) ";:HE$:(HE$"")(HE$"M")2890:3190:BA2880:(DE248)(DE251)2880:DB251DE:FCT5J MC(HE$"M"): IT :GET ADDRESS*^ MCF:SA$WM$:@576,CF$;"STARTING ADDRESS (*";SA$;"H OR ABOVE) ";:SA$:SA$"M"MCT:2930:HE$SA$:3150:(BA)(DE!DT!)2910:@613,HE$;"H":HBDE!256h LBDE!HB256r | :SPEC. SECTOR*m BAF:QCF:@512,CF$;"SPECIFY SECTOR";WB;": ";:(WB1)(SPT)YS$վH$(YS1):YS$"ZZ" SI$:(SI$"")(SPT)(WB1)SI$YT$","YS$","YL$","YI$:@532,SI$C (SI$"M")(SPT)MCT:3110:(SI$"M")(SI$"Q")QCT:3110:(SI$)103060:IG13:(SI$,",")3BAT:IG3:3020:YF$(SI$,2)U IG1YT$YF$g IG2YS$YF$y IG3YL$YF$ SI$(SI$,103IG) IG:(BA)3060:YI$SI$:HE$YT$:3190:3130:YTDE:(BA)(IV)ʲ"TN BAD":3070:HE$YS$:3190:3130:YSDE:(BA)(IV)ʲ"SN BAD":3070 HE$YL$:3190:3130:YLDE:(BA)(IV)(YL191)ʲ"SL BAD":3070:(YI$"I")(YI$"N")3040:"IBM/NBM BAD":3070 YI$"I"YI1:YI0ݼ ((YI1)(YL3))((YI0)(YL0))ʲ"SL BAD":3070:3090 "ENTRY BAD" :"REPEAT ENTRY OR QUIT (*R/Q) ?"c I$:I$"M"MCT:3110:I$"Q"QCT:3110:(I$"R")(I$E$)2950:3080 PK,YT:PK2,YS:PK3,YL:PK4,YI:YI1YE(1282YL.5):YE16YL YXYE256:YYYEYX256:PK6,YX:PK5,YY:PK7,0:PK8,47& 0 :RESERVED?*: IV(DE246)(DE255): ;D :4-HEX HE$ => DE, DE!*¾N BA(HE$)4:BA3170:X1(HE$):X2((HE$,3)):X3((HE$,2)):X4((HE$,1)):BA(BA)(R(X1))(R(X2))(R(X3))(R(X4)):BA3170X DE!4096ϾG(X1)256ϾG(X2)16ϾG(X3);G(X4):DEվA(DE!)b l :2-HEX HE$ => DE*v BA(HE$)2:BA3200:X1(HE$):X2((HE$,1)):BA(BA)(R(X1))(R(X2)):(BA)DE16ϾG(X1);G(X2) :DE => 4-HEX HE$* HE$"":OSF:KD!վB!(DE!):OS(KD!65535)(KD!0):OS3230:I14:BDKD!16:CDKD!BD16:KD!BD:HE$(AH$,CD1,1)HE$:I' B :DE => SPLIT UH, UL* DE!վB!(DE):U1DE!4096:U2DE!4096U1:U3U2256:U4U2256U3:U5U416:U6U416U5:UH16U1U3:UL16U5U6: :START, LEN. => DEC & HEX*E VS!HB256LB:DE!VS!:3220:HS$HE$:VN!(NH)256(NL):DE!VN!:3220:HN$HE$:VN!0DE!VS!:DE!VS!VN!1Z 3220:HH$HE$: ~ :SELECT, CHECK DRIVE/TRACK 0* ZTF:DFF:WPF:ETF:XT7(DS):DF(((XT)(1))1):WP(((XT)(2))2):ET(((XT)(4))4):CM,208:(((CM))(4))ST(DN)0:ZTTX DFʲ@320,CF$;"DRIVE IS NOT READY, OR DISK IS STUCK, BLOCKED, OR MISSING":3560:DR,DS_ } :SELECT, CHECK TRACK 0* ZTF:DR,DS (((CM))(1))3350:CM,208:(((CM))(4))ST(DN)0:ZTT DR,DS: * :SUB. POS. HEAD*'4 GT0350:3400:3340:ST(DN)0ʱCM,83:ST(DN)1l> TR,ST(DN):DA,GT:3340:CM,19:3340:ST(DN)(TR):HP(DN),ST(DN)sH R :PRINTER?*\ PN3440:"OUTPUT TO PRINTER (Y/N*) ?"f I$:I$"M"MCT:3440:(I$"Y")(I$"N")(I$E$)3430:PR(I$"Y")p z :MESSAGE*GĄ @320,CF$;"DISK IS WRITE-PROTECTED !":3540: WĎ :MESSAGE*Ę @320,CF$:HE$վH$(X):@454,"ERROR IN DISK ACCESS. FDC STATUS REGISTER = ";HE$;"H"Ģ I$:(I$"M")(I$E$)3490: Ĭ :MESSAGE*GŶ NDʲ@83,KL$;"--NO DRIVE SELECTED--":3520:@82,"* HEAD";DN;"IS AT TRACK";ST(DN);:@105," *";N g :VERY SHORT DELAY*z K1100:K: :SHORT DELAY* K1200:K: :MEDIUM DELAY* K1400:K: :DELAY/SELECT*K115:DR,DS:K: :ERROR TRAP*U$:(16538)2ʱ16538,0:"SYNTAX ERROR ";:3630::"ERROR CODE";21;k."IN LINE";::