! 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