PROC DISKDIR()›BYTE ARRAY FILES(30),FILE2(30)››PRINT("FILE SPEC: ")›INPUTS(FILES) ››IF FILES(0)=0 THEN     ; JUST A RETURN PRESSED›  SCOPY(FILES,"D:*.*") ; DEFAULT TO ALL FILES ON DISK 1›ELSEIF FILES(1)='D AND (FILES(2)=': OR FILES(3)=':) THEN  ; IT LOOKS OK› ELSE                  ; INSERT "D:" IF NEEDED›   SCOPY(FILE2,"D:") ›   SASSIGN(FILE2,FILES,3,30) ›   SCOPY(FILES,FILE2) ›FI›         ›CLOSE(1)               ;JUST FOR SAFETY'S SAKE›OPEN(1,FILES,6,0)›DO›  INPUTSD(1,FILES) ›  PRINTE(FILES)›  UNTIL EOF(1)›OD›CLOSE(1)››RETURN›››