CLS
'$DYNAMIC

DIM TXTLIST$(640)
DIM EXELIST$(640)
DIM SYSLIST$(640)

SHELL "dir > dir.tem"
OPEN "dir.tem" FOR INPUT AS #1
file$ = INPUT$(LOF(1), 1)

FOR x = 1 TO LOF(1)
   temp$ = MID$(file$, x, 4)
   IF temp$ = " TXT" THEN
      TXTLIST = TXTLIST + 1
      TXTLIST$(TXTLIST) = MID$(file$, x - 8, 12)
   END IF
   IF temp$ = " EXE" THEN
      EXELIST = EXELIST + 1
      EXELIST$(EXELIST) = MID$(file$, x - 8, 12)
   END IF
   IF temp$ = " SYS" THEN
      SYSLIST = SYSLIST + 1
      SYSLIST$(SYSLIST) = MID$(file$, x - 8, 12)
   END IF
NEXT x

FOR x = 1 TO 640
   IF TXTLIST$(x) = "" THEN
      TXTLISTMAX = x
      x = 640
   END IF
NEXT x

FOR x = 1 TO 640
   IF EXELIST$(x) = "" THEN
      EXELISTMAX = x
      x = 640
   END IF
NEXT x

FOR x = 1 TO 640
   IF SYSLIST$(x) = "" THEN
      SYSLISTMAX = x
      x = 640
   END IF
NEXT x

FOR x = 1 TO TXTLISTMAX
   PRINT TXTLIST$(x)
NEXT x

FOR x = 1 TO EXELISTMAX
   PRINT EXELIST$(x)
NEXT x

FOR x = 1 TO SYSLISTMAX
   PRINT SYSLIST$(x)
NEXT x