0 'Club 100 Library, Modem 415-939-1246
1 'HEXFER.100 by Phil Wheeler 4/28/88, based on BINHEX.BA by James Yi
10 GOSUB29
11 PRINT@42,"Enter end address";:PRINT@122,"Hit [ENTER] to place just below HIMEM"
12 Y="":PRINT@59,;:INPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E
13 IFB>=MAXRAM-ETHENBEEP:GOTO12ELSECLEAR256,B:B=HIMEM:GOSUB29
14 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@64,"Line";:PRINT@104,"Address";
15 GOSUB24:IFO=0THENPRINT@112,A;:POKEA,K:A=A+1:GOTO15
16 P=K:GOSUB24:G=P+256*K+B:P=INT(G/256):Q=G-P*256
17 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO15
18 SAVEM"HEXFER",B,C,D:MENU
19 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN23
20 IFU>16THENU=U-16:O=1ELSEO=0
21 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN23
22 K=(U-1)*16+V-1:RETURN
23 BEEP:PRINT@165,"Bad character";:END
24 IFM<N*2+5THEN28
25 IFL<>RTHENBEEP:PRINT@165,"Checksum fail";END
26 READY:M=1:GOSUB19:IFK=0THEN18
27 S=S+1:PRINT@72,S;:N=K:M=3:GOSUB19:M=5:L=K:GOSUB19:L=K*256+L:R=0
28 M=M+2:GOSUB19:R=R+K:RETURN
29 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=962:D=0:RETURN
100 DATA38E216CD9C6C21TD012252F63E01CD2B7FCD5D5DCD274ECD4621CD3142CD3A1F21P603CD9157CDCB12FE0DCA0000D631CAJ9003DCAND023DC2GE00
101 DATA38DA14C721J903CD9157CD3E46D7CAGE003E01CDGE033E01CDBF4C0E0611CEFACDQ60112130DC2L500210000228CFC21K203CD9157CD4446D7E52A
102 DATA38481ACEFAEBE1C4EB082ACEFA444DEB0822RA03E5CD8920C4M902CD4621CDHC023E01CDBF4CCD8920C1ED09D913131313ED7CB5CAQ60009D91313
103 DATA3898192ACEFA424B0822S0032AD0FA444DD5C5CDQ601DAVC0112130B78B1C2R800C12ACEFA092B22D0FAE10922D2FA08EBCDJD011A13CDKA01FE03
104 DATA386C16C2GF012AS00319444D2ARE0308C2V800F5CDJD01F1C3GE01ED444D2ACEFA08D2GE012AD0FA08DAGE012ARA0309D913FE02D4D646424B2AD2
105 DATA384C18FA2B08D2T9002ARE037CB5CAGE00EB2AS003444DEB08EBED444D2ARA0309D9CDJD01C3HE01CDQ60132RE03CDQ60132RF03C9FE3FDAL701FE
106 DATA389E1FC2D2L7013E01C947FEEDCAL401E6F7FED3CAN001E6C7FEC6CAN001FE06C2N3013E02C978E6EFFE28CAN001E6CFFE01CAQ301FECDCAQ30178
107 DATA382E1CE6E7FE22CAQ30178FEC2DAL401FEC3CAQ301E607CAL4011FDAL4013E03C9CDS201FE1ACARF010707070767E5CDS201E1FE1ACARF01B4C9AF
108 DATA38821B37C9CD7A4EFE1AC8D630DAS201FE0AD8FE11DAS201FE17D2S201D607C97BFE34CAV001FE07CAG802FE37CAV601C37B0421O703C3GB0221N9
109 DATA38561A03C3GB02CD8920CDM90221I803C3GB0221B160E5CD274EE1CD9157CD2942CD1053C3GE00CD8920C4D91FCDE420E52AB0FBE52AD0FA7CB5CA
110 DATA38211D173FE501060009444D2AB2FB2299FBD46D6BDA173FEB21CEFACD40252ACEFAC1CDDB6BE122B0FBE13EA0EB2A99FBEBCD3922CD46212A8EFB
111 DATA38F719C97E235E23562B2BFEC0CABF1FFE80CA1720C3D91F21M003CD9157CD3E46D7CAGE00CDFA21CD0B4CCD8920CAV001CD4C2221M903CD9157CD
112 DATA38E6133E46D7CAGE003E02CDGE03CD46213E01CDBF4CCD4C22CD892021RC033680233600D51313ED01060009444DD1CDT902130B78B1C2SC02C3GE
113 DATA38E617001A0F0F0F0FCDU2021AE60FFE0ADAUB02C607C630CDVE0221RC0335C036803E0DCDVE023E0ACD444B21RD0335C03AS203FEF8C014C9F5CD
114 DATA38AC12FA21CD0B4CC2HA0316F87A32S203210700F15F3E01C3124D436F7272757074204865782046696C65002E444F2046696C65004C6F61642061
115 DATA381111743F20283C43523E20666F722044656661756C74293A20002E434F2046696C6500486578204F75747075742046696C65004261642066696C
116 DATA38450F65206E616D650046696C65206E6F7420666F756E640031292E444F2D2D3E2E434F3B2032292E434F2D2D3E2E444F3B20332945786974203F
117 DATA0B20002000000000000000000000
118 DATA00