0 'Club 100 Library, Modem 415-939-1246
1 'BINHEX.BA by James Yi and revised by Robert Benson, converts .CO programs to Hex files and vice versa
10 CLS:DEFINTA-J:J=256:DIMB(J):FORC=0TO3:B=C*16:B(B+1)=2:NEXT
11 FORC=0TO7:B=C*8:B(B+6)=1:B(B+198)=1:B(B+194)=2:B(B+196)=2:NEXT
12 B(211)=1:B(219)=1:B(221)=2:B(195)=2:B(205)=2:B(40)=1:B(56)=1:B(253)=2:B(34)=2:B(50)=2:B(42)=2:B(58)=2
13 PRINT@132,"L)oad Hex "CHR$(154)" Bin":PRINT@172,"S)ave Bin "CHR$(154)" Hex"
14 R$=INKEY$:IFR$=""GOTO14ELSER$=CHR$(ASC(R$)AND223):IFR$="S"GOTO28ELSEIFR$<>"L"THENMENU
15 CLS:FILES:PRINT:INPUT"Hex File to Load";F$:CLS:OPENF$FORINPUTAS1
16 GOSUB26:T=K:GOSUB26:T=T+K*J:GOSUB26:L=K:GOSUB26:L=L+K*J:GOSUB26:X=K:GOSUB26:X=X+K*J
17 V=0:W=-1:PRINT"Top:"T:PRINT"End:"L+T-1:PRINT"Exe:"X:PRINT:INPUT"Data Top";V:INPUT"Data End";W
18 S=T:PRINT"Relocate? ";:GOSUB38:IFR$="Y"GOTO19ELSE21
19 CLS:INPUT"New address";S:PRINT"End address:"L+S-1
20 PRINT"Is it right? ";:GOSUB38:IFR$<>"Y"GOTO19
21 P=S-T:M=S
22 GOSUB26:A=K:D=B(A):IFM>=V+PANDM<=W+PTHEND=0:GOTO24
23 IFDTHENGOSUB26:B=K:IFD=2THENGOSUB26:C=K:K=C*J+B:IFT<=KANDL+T>KTHENK=K+P:C=K/J:B=K-C*J
24 POKEM,A:IFDTHENPOKEM+1,B:IFD=2THENPOKEM+2,C
25 M=M+D+1:PRINT@280,S+L-M;:IFM<S+LGOTO22ELSEBEEP:PRINT@280,"Savem to: ";:LINEINPUTS$:CLS:SAVEMS$,S,S+L-1,-(X+P)*(X>0):END
26 G=1
27 H$=INPUT$(1,1):F=ASC(H$)-48:IFF<0GOTO27ELSEF=F+7*(F>9):IFGTHENK=16*F:G=0:GOTO27ELSEK=K+F:RETURN
28 CLS:FILES:PRINT:INPUT".CO File to Save";F$
29 IFF$=""THENCLS:INPUT"Top address";T:INPUT"End address";L:L=L-T+1:INPUT"Exe address";X:GOTO32
30 LOADMF$:DEFINTA-J:J=256:M=62715-1491*(PEEK(1)<>171)
31 T=PEEK(M)+PEEK(M+1)*J:L=PEEK(M+2)+PEEK(M+3)*J:X=PEEK(M+4)+PEEK(M+5)*J
32 CLS:INPUT".DO File for Hex";F$:OPENF$FOROUTPUTAS1
33 K=T:G=1:GOSUB35:K=L:G=1:GOSUB35:K=X:G=1:GOSUB35
34 FORM=TTOT+L-1:A=PEEK(M):K=A:GOSUB36:PRINT@280,T+L-M-1;:NEXT:PRINT#1,:BEEP:CLOSE:MENU
35 H=K/J:K=K-H*J
36 F=K/16:PRINT#1,CHR$(F+48-7*(F>9))+CHR$(KMOD16+48-7*(KMOD16>9));:I=I+1:IFI>63THENPRINT#1,:I=0
37 IFGTHENG=0:K=H:GOTO36ELSERETURN
38 R$=CHR$(ASC(INPUT$(1))AND223):PRINTR$:RETURN