10DIM File &4000
   11P%=0
   20I%=OPENIN("fsys.mod")
   30   C%=BGET#I%
   40   IF C%=&FE THEN GOTO90
   50   IF C%=10 THEN C%=13
   60   File?P%=C%
   70   P%=P%+1
   80GOTO 30
   90CLOSE#I%
  100*DISK
  110OSCLI("SAVE :1.T.fsys "+STR$~File+" +"+STR$~P%)