! SAMPLE OF HOW TO USE DIR.SBR
! JAMES A. JARBOE IV       GR/AM
!
MAP1 DIRECT
    MAP2 ARRAY(100),S,9        ! get lots of space
MAP1 STRING,S,24                ! files to search for
MAP1 DEV,S,40                   ! disk drive & ppn

? TAB(-1,0);"DIR.SBR TESTING PROGRAM"
? tab(2,1);"Or How to get a disk directory into basic"

? TAB(4,1);"You must enter a Disk drive and PPN to do a directory on."
? TAB(5,1);"It must be a complete disk spec with number,colon, brackets, "
? TAB(6,1);"commas, and all. EXAMPLE -  DSK0:[7,6]"
? tab(7,1);"Ersatz devices are also acceptable"
?
INPUT LINE "Enter Disk drive Spec to do a DIR on (DSK0:[7,6]) ",DEV
?
? "You must enter something to search for. *.BAS, SSDIAG.RUN, MON???.LIT,"
? "are among some of the valid entries. But only one entry at a Time."
?
INPUT LINE "Enter file choice to find (*.BAS) ",STRING

XCALL DIR,DEV,DIRECT,STRING

?
FOR I=1 TO 100
IF ARRAY(I)="" THEN GOTO NXI
? ARRAY(I)[1,6]+"."+ARRAY(I)[7,9]
NXI:
NEXT I

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.