1 'HEXEM.BA - An old CO file "reloader" revised by Robert Benson 7/16/90 10 CLS:INPUT"File name to save";F$:OPENF$FOROUTPUTAS1:DEFINTI-N 11 LINEINPUT"Top address: ";S$:AA=VAL(S$) 12 LINEINPUT"End address: ";X$:AE=VAL(X$) 13 LINEINPUT"Exe address: ";Z$ 14 PRINT#1,"1 'CO program to build:"F$ 15 PRINT#1,"10 CLS:CLEAR50,"S$":X=99:AA="S$ 16 PRINT#1,"11 DEFINTI-N:H$="CHR$(34)"0123456789ABCDEF"CHR$(34) 17 PRINT#1,"12 PRINT@59,"CHR$(34)"Data line"CHR$(34) 18 PRINT#1,"13 PRINT@99,"CHR$(34)"File address"CHR$(34) 19 PRINT#1,"14 READA$:X=X+1:PRINT@72,X" 20 PRINT#1,"15 B$=MID$(A$,1,2):GOSUB25:N=K" 21 PRINT#1,"16 IFK=0THENSAVEM"CHR$(34)F$CHR$(34)","S$","X$","Z$":END" 22 PRINT#1,"17 B$=MID$(A$,3,2):GOSUB25:L=K" 23 PRINT#1,"18 B$=MID$(A$,5,2):GOSUB25:L=K*256+L:L1=0" 24 PRINT#1,"19 FORI=1TON" 25 PRINT#1,"20 J=I*2+5:B$=MID$(A$,J,2):GOSUB25" 26 PRINT#1,"21 POKEAA,K:PRINT@112,AA:AA=AA+1:L1=L1+K" 27 PRINT#1,"22 NEXTI" 28 PRINT#1,"23 IFL<>L1THENBEEP:PRINT@165,"CHR$(34)"Checksum error"CHR$(34)":END" 29 PRINT#1,"24 GOTO14" 30 PRINT#1,"25 B1$=LEFT$(B$,1):K1=INSTR(1,H$,B1$):IF K1=0GOTO28" 31 PRINT#1,"26 B1$=RIGHT$(B$,1):K2=INSTR(1,H$,B1$):IF K2=0GOTO28" 32 PRINT#1,"27 K=(K1-1)*16+K2-1:RETURN" 33 PRINT#1,"28 BEEP:PRINT@165,"CHR$(34)"Non HEX Character in DATA"CHR$(34)":END" 34 CLS:X=99 35 X=X+1:N=0:M=0:M$="":N$=STR$(X):N$=RIGHT$(N$,3) 36 PRINT@72,AA:KK=PEEK(AA):GOSUB42:M$=M$+H$:M=M+KK:N=N+1:AA=AA+1 37 IFAA>AEORN=56GOTO38ELSE36 38 K1=M/256:K2=M-K1*256:KK=K1:GOSUB42:M1$=H$:KK=K2:GOSUB42:M2$=H$:KK=N 39 GOSUB42:M3$=H$:PRINT#1,N$" DATA "M3$M2$M1$M$:IFAA9THENKX=KX+55ELSEKX=KX+48 44 IFKY>9THENKY=KY+55ELSEKY=KY+48 45 H$=CHR$(KX)+CHR$(KY):RETURN