1 'CHGHEX.BA - based on CHANGE.BA by Rick Perry
2 'Adapted for NEC PC-8201 & 8300 by Gary Weber, 11/19/92. Added automatic hex file kill based on free memory, 7-19-01.
3 MAXFILES=1:HIMEM=PEEK(62340!)+256*PEEK(62341!):ONERRORGOTO18
4 CLS:LOCATE0,2:PRINT "Hex file to translate";:INPUTI$:IFNOTINSTR(I$,".")THENI$=I$+".DO"
5 H$="0123456789ABCDEF":OPENI$FORINPUTAS1:INPUT#1,T,E,S:IFE>=62336!THENERRORELSEIFT>=HIMEMTHEN7
6 CLOSE:I$=I$+CHR$(0):FORJ=1TOLEN(I$):POKEJ-185,ASC(MID$(I$,J)):NEXT:CLEAR256,T:I$="":FORJ=1TO9:A=PEEK(J-185):IFA=0THENJ=9:NEXTELSEI$=I$+CHR$(A):NEXT:GOTO5
7 LINEINPUT".CO output file ";O$:N=0:ZC=T+E+S:CLS:LOCATE0,2:PRINT"Working...";
8 FORZ=TTOE
9 A$=INPUT$(1,1):I=INSTR(H$,A$)-1:IFI<0THEN9
10 N=NOTN:IFNTHENA=I:GOTO9ELSEA=16*A+I:ZC=ZC+A:POKEZ,A:NEXT
11 LINEINPUT#1,A$:INPUT#1,Z:CLOSE
12 IFZ<>ZCTHENSOUND9394,8:PRINT"Checksum error!":END
13 PRINT"Done!":BEEP:IF(E-T)>(FRE(0)-200)THENA$="Y":PRINT"Killing hex input file.":GOTO15
14 PRINT"Kill hex input file? ";:A$=INPUT$(1):PRINTA$
15 IFA$="Y"ORA$="y"THENKILLI$
16 IFO$=""THEN17ELSE BSAVE O$,T,E-T,S
17 MAXFILES=0:MENU
18 CLS:PRINT"Error #";ERR;"in Line";ERL:END