'***************************************************
' This tool may help for corrupted ".BAS"-files
' with a LINE IS TOO LONG issue (no warranty)
'****************************************************
OPTION BASE 0
OPTION EXPLICIT
MODE 1,8

do
 CLS
 input "Corrupted file:";FN$

 if FN$="" then
   PRINT "Bye!"
   END
 endif

 FileExist=MM.INFO(FILESIZE FN$)<>-1

 if Not FileExist then
    PRINT "Error: File '"+FN$+"' not found!"
    PAUSE 1000
 endif
loop until FileExist
open FN$ for input as #1

open "repfile.bas" for output as #2

do
 a$=input$(1,#1)
 b$=b$+a$
 i=i+1
 if a$=chr$(13) then
   a$=input$(1,#1)
   b$=b$+a$
   i=i+1
   if a$=chr$(10) then
     PRINT b$;
     PRINT #2,b$;
     b$=""
     i=0
   end if
 end if
loop until EOF(#1) or i >= 240

close #1,#2
PRINT "done!"

SUB printHeader
 LOCAL header$ = "Hexedit V"+VERSION$+" by Epsilon.";
 LOCAL byteNr$ = "             00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F  0123456789ABCDEF"

 'Print inverted
 PRINT @(0,0,2) header$ + SPACE$(MM.HRES/MM.INFO(FONTWIDTH) - LEN(header$))
 'Print CYAN)
 color rgb(CYAN)
 PRINT @(0,MM.INFO(FONTHEIGHT),0) byteNr$
 color rgb(WHITE)
END SUB