ABCDVZDUNIDCOMDBUFDBUFDLENDLENDAUXDAUXDSKIDDOUDDINDDEVDIOVDIOVDEVISECLSECHDIRLDIRHFLFMAAAFFFFVV  !"#$%&'(). SAVE "D:DISKFILE.BAS!!###########################!!# #!!# BASIC Extended Sector #!!# Access Utility #$!!# Version 1.0 09/30/85 #.!!# #8!!# by Chuck Steinman #B!!# #L!!###########################V`!!///////////////////////////j!!/ Variable init /t!!///////////////////////////~! +!. text mode 0'AA'. bakgrnd color'AA'. border color&&;A0,;@2,;@3,&&;A0,;@,;@,6.>:A%,B-B(("". the next line will clear"". screen except the header A)0 "". these are the common"". variables used($6-Ai$. dcb device type2$6-Ap$. dcb command type<$6-Ar$. dcb bufr addressF6-AsP$6-Av$. dcb bufr lengthZ6-Awd$6-Ax$. sector pointern6-Ayx"6-BQ". dcb entry addr%6-@%. data out command%6-@%. data in command%6-@I%. disk drive #16-@6-A(6-Ah6-@6-@6-A6-@6-. open iocb 0 to the. disk directory1@1@@D:*.*",!!. "LS" is the short sector6. flag.@J6- A!PT^!!\\\\\\\\\\\\\\\\\\\\\\\\\\\h!!\ Sector I/O \r!!\\\\\\\\\\\\\\\\\\\\\\\\\\\|! A)0!. clear screen6-@6-! A(`!. clear A$   ! A"@!. get sector" 6.". transfer to d$ A(`   ! A"@!. get the comment! A$!. print it Ap"6-%@". next sector&0!!since there are 8 files per: sector and only 4 commentsD P controls diectory sectorN loading. P =0 =load sectorXb#"@ A(`# A`l"6-%@"next dir.sect.v AAplast""||||||||||||||||||||||||||||""| Comment Entry |""|||||||||||||||||||||||||||| A!P!-!? MAX # files# 6-%#. file number! A&!. # to hex$ convS-@@S(Enter comment for file 7@<@, or>-@@>(7$@2%@<$@2%@2,:-@@:( 5-@5@(.5guess why this is here?'AdAU'-@@ . get comment..67$@2%@<$@2%@2,.  *6-%@4 now output> same sectorH as beforeR A"@\"$f_-@@_(DAll legal DOS 2.5 files have been listed. Press any key to exit.p$AdAU$wait for keyz.@.@@K:)@ +!!___________________________!!_ SIO routines _!!___________________________ . device@. number 6-C:,. find A$$6-P:'AV,$. location6-&$AV . tell dcb  A(. sector 128 !!. bytes long 6-?:C:hLS,,call dcb$ $. 8 "">>>>>>>>>>>>>>>>>>>>>>>>>>>>B ""> Print Data >L "">>>>>>>>>>>>>>>>>>>>>>>>>>>>V ` A)0j B-@B((󠠠t -@@@2~ K7<,4>:,K67<%@1,. ________________________________  . check 4 blank comnt *6-%@*. comnt sector countr "@6- )6-@). buffer pointer ! A&0!. set up pointers -%@ ! A&!. convert numbers ! A%P!. print data ""@6-&&@"$ ! 6-&!. number of files   $ D7<,4>:,#6-@&$D. check for blank filename  . file number  7<, filenam  7<,. extension   (  7<%@1, .comments2 '6-%@'. filename pointer< '6-%@2'. extension pointerF (6-%@(. buffer pointersP 6-%@Z 6-%@d $n x ""<<<<<<<<<<<<<<<<<<<<<<<<<<<< ""< number conversion < ""<<<<<<<<<<<<<<<<<<<<<<<<<<<<  &6-P:'@,&. number to hex '6-&$@'. $ converter %%6-%@H%@$+!@ , %%6-%@H%@$+!@ , 67@,.$ 67@,.>:, 67@,.>:, 67@,.  $  ""$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ""$ this routine clears A$ $ ""$$$$$$$$$$$$$$$$$$$$$$$$$$$$" , ) 6. 67A0,.)67@,.6 $@ J ""%%%%%%%%%%%%%%%%%%%%%%%%%%%%T ""% clear screen routine %^ ""%%%%%%%%%%%%%%%%%%%%%%%%%%%%h r * @F:@,%@@*protect|  >:A%,clear bottom + @F:@,&@@+unprotct $D:DISKFILE.BAS