0 'CHGHEX.BA - based on CHANGE.BA by Rick Perry
1 'Adapted for NEC PC-8201 & 8300 by Gary Weber, 11/19/92
2 MAXFILES=1:HIMEM=PEEK(62340!)+256*PEEK(62341!):ONERRORGOTO15
3 CLS:LOCATE0,2:PRINT "Hex file to translate";:INPUTI$:IFNOTINSTR(I$,".")THENI$=I$+".DO"
4 H$="0123456789ABCDEF":OPENI$FORINPUTAS1:INPUT#1,T,E,S:IFE>=62336!THENERRORELSEIFT>=HIMEMTHEN6
5 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:GOTO4
6 LINEINPUT".CO output file ";O$:N=0:ZC=T+E+S:CLS:LOCATE0,2:PRINT"Working...";
7 FORZ=TTOE
8 A$=INPUT$(1,1):I=INSTR(H$,A$)-1:IFI<0THEN8
9 N=NOTN:IFNTHENA=I:GOTO8ELSEA=16*A+I:ZC=ZC+A:POKEZ,A:NEXT
10 LINEINPUT#1,A$:INPUT#1,Z:CLOSE
11 IFZ<>ZCTHENSOUND9394,8:PRINT"Checksum error!":END
12 PRINT"Done!":BEEP:PRINT"Kill hex input file? ";:A$=INPUT$(1):PRINTA$:IFA$="Y"ORA$="y"THENKILLI$
13 IFO$=""THEN14ELSEBSAVEO$,T,E-T,S
14 MAXFILES=0:MENU
15 CLS:PRINT"Error #";ERR;"in Line";ERL:END