i DISKCAT.MSBi Routine To Read Diski Directory In Drive Onei(:i2i<"Loading ML Data (CIOBAS.USR)|jF:'jP Trap ALL Errors To Line #5704jZ 1040;jd:\jn Rerserve 200 Bytes For CIOijx (160)pj:j Open USR File On Master Disk!j #1,"D:CIOBAS.USR| j:j Get Starting Address Ofj Reserved Area For ML DatakADDR() k:$k Poke In CIO Routines4k L0 159Jk (1)1 260`k #1,D: ADDRL,Dhk Lok:k Close File On Master Disk!k #1k":k, Set Print BIT To Zerok6B0k@:kJ Obtain User Input (Y/N)kT"Printer?|;l^A$: A$"| 350lhA$2lr A$"Y| 10709l|:Ml Wait For Userol"Insert Disk In Drive One &|l"Press .|l (53279)6 450l 420l:ll"Directory Of Disk In Drive One:|l:m These Are The Proper Starting&m Addresses For Each Of The9m CIO RoutinesJmPUTIOCBADDR^mCALLCIOADDR61rmGETIOCBADDR81ym:m& Data For Routinesm0 Uses Ten Bytes Of RAMm: IOCB%(10)mD:mN Use IOCB#1mXIOCB%(0)1mb:nl Do A CIO "OPEN" CallnvIOCB%(1)3n:9n Set Byte For DIR InputHnIOCB%(5)6On:rn Directory Filespec (MSBASIC)nFSPEC$"D1:*.MSB|n:n Put Address Of Filespec Inton Buffer Byte(s) Of IOCB#1n:n Address Of The String-FSPEC$ oZ(FSPEC$)o:4o Addr. Of Proper Array Pos.Go Y(IOCB%(3))No:fo  High Address Bytevo* Y,(Z2)}o4:o> Low Address ByteoH Y1,(Z1)oR:o\ Put Data Into IOCB#1of:opZ(PUTIOCB,(IOCB%(0)))oz: p Then Call CIOp:/pZ(CALLCIO,(IOCB%(0)))6p:Sp IOCB#1 Is Setup & Diskrp Is Open...Read Directoryyp:p #1,F$p,F$p:p If BIT Set, Echo To Printerp B1 #7,F$p:p 970p #1p#7p$p.:q8 If 'Y' Then Open IOCB#72qB As Output To Printer9qL:HqV#7,"P:| nq`B1 :Enable BITtqj