COLOR 11: PRINT
INPUT "Nome del file di origine: ", Source$
INPUT "Nome del file di destinazione: ", Dest$
INPUT "Numero di byte significativi: ", ByteNum
COLOR 14: PRINT
PRINT "Sto creando il file "; LCASE$(Dest$)
PRINT "Attendere prego..."
OPEN Source$ FOR BINARY AS #1
   OPEN Dest$ FOR OUTPUT AS #2
      FOR I = 1 TO ByteNum
         SEEK #1, I
         GET #1, , A%
         B% = A% MOD 256
         IF B% < 0 THEN B% = B% + 256
         PRINT #2, CHR$(B%);
      NEXT
CLOSE #2, #1