' XMODEM trim by TassyJim 23 Feb 23
 OPTION EXPLICIT
 OPTION DEFAULT INTEGER
 DIM f$, tfile$ = "tempfile.txt"
 DIM safefile$= " bas py html htm txt csv log "
 DIM filetype$, packet$
 DIM INTEGER n, k, fsize, blocks
 
 f$ = DIR$("*",FILE)
 DO WHILE f$ <> ""
   'print f$
   filetype$ = FIELD$(f$,2,".")
   'print f$, filetype$
   IF INSTR(safefile$,filetype$) THEN
     fsize = MM.INFO(FILESIZE f$)
     IF fsize MOD 128 = 0 THEN
       blocks = fsize/128
       OPEN tfile$ FOR output AS #2
       OPEN f$ FOR INPUT AS #3
       FOR n = 1 TO blocks-1
         packet$ = INPUT$(128,#3)
         PRINT #2, packet$;
       NEXT n
       packet$ = INPUT$(128,#3)
       CLOSE #3
       FOR k = LEN(packet$) TO 1 STEP -1
         IF MID$(packet$,k,1) <> CHR$(0) AND MID$(packet$,k,1) <> CHR$(26) THEN
           EXIT FOR
         ENDIF
       NEXT k
       packet$ = LEFT$(packet$, k)
       PRINT #2, packet$;
       CLOSE #2
       KILL f$
       RENAME tfile$ AS f$
       PRINT f$, fsize, MM.INFO(filesize f$)
     ENDIF
   ENDIF
   f$ = DIR$()
 LOOP