CLS : SCREEN 0: COLOR 10
LOCATE 23, 1: INPUT "Primo file (con ext.): ", Source$
LOCATE 24, 1: INPUT "Secondo file (senza ext.): ", Dest$
CLS
OPEN Source$ FOR BINARY AS #1
   OPEN Dest$ + ".BAS" FOR OUTPUT AS #2
      I = 0
      DO WHILE NOT EOF(1)
         I = I + 1
         LOCATE 13, INT((80 - (24 + LEN(Dest$))) / 2)
         PRINT "Sto creando il file "; LCASE$(Dest$ + ".BAS")
         LOCATE 14, 29 - LEN(STR$(LOF(1) - I))
         PRINT LOF(1) - I; "bytes ancora da elaborare."
         SEEK #1, I
         GET #1, , A%
         B% = A% MOD 256
         IF B% < 0 THEN B% = B% + 256
         IF (I - 1) MOD 16 = 0 THEN PRINT #2, "DATA";
         PRINT #2, STR$(B%);
         IF I MOD 16 = 0 THEN
            PRINT #2, CHR$(13)
         ELSE
            IF I <> LOF(1) THEN
               PRINT #2, CHR$(44);
            ELSE
               PRINT #2, CHR$(13)
            END IF
         END IF
      LOOP
CLOSE #2, #1
CLS : SCREEN 0