0 'HXFER.REL -- A relocating loader for HXFER.200.  Provided to let HXFER.CO
1 'be loaded below Chipmunk and DVI DOS's. Phil Wheeler -- 71266,125 [8/21/88]
2 GOSUB99
3 PRINT@42,"Enter end address";:PRINT@82,"<ENTER> for just below current HIMEM"
4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E
5 IFB>=MAXRAM-ETHENBEEP:GOTO4ELSECLEAR256,B:B=HIMEM:GOSUB99
6 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@48,"Line";:PRINT@88,"Address";
7 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO7
8 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256
9 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO7
40 SAVEM"HXFER",B,C,D:MENU
50 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN55
51 IFU>16THENU=U-16:O=1ELSEO=0
52 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN55
53 K=(U-1)*16+V-1:RETURN
55 BEEP:PRINT@165,"Bad character";:END
60 IFM<N*2+5THEN70
61 IFL<>RTHENBEEP:PRINT@165,"Checksum fail";:END
62 READY:M=1:GOSUB50:IFK=0THEN40
63 S=S+1:PRINT@70,S;:PRINT@110,A;:N=K:M=3:GOSUB50:M=5:L=K:GOSUB50:L=K*256+L:R=0
70 M=M+2:GOSUB50:R=R+K:RETURN
99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=874:D=0:RETURN
100 DATA387A18CDDC8321T8012234EFCD5571CDE65CCD622CCD4D4FCD2A2A21J003CD9E67CDF712FE0DCA0000D631CAJ4003DCAH7023DC2G900C721T302CD
101 DATA38E8199E67CDF054D7CAG9003E01CDQ8023E01CD7E5B0E0611FBF4CDQ10112130DC2L000210000223FF721TC02CD9E67CDF654D7E52AFBF4EBE1C4
102 DATA38351816092AFBF4444DEB0822M203E5CDA62BC42C2BCD622CCD66303E01CD7E5BCDA62BC1ED09D913131313ED7CB5CAQ10009D913132AFBF4424B
103 DATA38A3180822M8032AFDF4444DD5C5CDQ101DAV70112130B78B1C2R300C12AFBF4092B22FDF4E10922FFF408EBCDJ8011A13CDK501FE03C2GA012AM8
104 DATA38EF160319444D2AM60308C2V300F5CDJ801F1C3G901ED444D2AFBF408D2G9012AFDF408DAG9012AM20309D913FE02D48755424B2AFFF42B08D2T4
105 DATA38C315002AM6037CB5CAG900EB2AM803444DEB08EBED444D2AM20309D9CDJ801C3H901CDQ10132M603CDQ10132M703C9FE3FDAL201FEC2D2L2013E
106 DATA38082101C947FEEDCAKF01E6F7FED3CAMB01E6C7FEC6CAMB01FE06C2ME013E02C978E6EFFE28CAMB01E6CFFE01CAPE01FECDCAPE0178E6E7FE22CA
107 DATA38AA1APE0178FEC2DAKF01FEC3CAPE01E607CAKF011FDAKF013E03C9CDRD01FE1ACARA010707070767E5CDRD01E1FE1ACARA01B4C9AF37C9CD365D
108 DATA38C419FE1AC8D630DARD01FE0AD8FE11DARD01FE17D2RD01D607C97BFE34CAUB01FE07CAG302FE37CAV101C3A60421I103C3G60221H303C3G602CD
109 DATA38181BA62BCD2C2B21S202C3G60221AC69E5CDE65CE1CD9E67CD454FCD0E62C3G90021VA02CD9E67CDF054D7CAG900CD432DCDCA5ACDA62BCAUB01
110 DATA38EC15CDBF2D21G303CD9E67CDF054D7CAG9003E02CDQ802CD622C3E01CD7E5BCDBF2DCDA62B21M4033680233600D51313ED01060009444DD1CDN3
111 DATA38591202130B78B1C2M602C3G9001A0F0F0F0FCDNC021AE60FFE0ADAO502C607C630CDP80221M40335C036803E0DCDP8023E0ACD055A21M50335C0
112 DATA389D163AMA03FEF8C014C9F5CD432DCDCA5AC2R40216F87A32MA03210700F15F3E01C3D15B436F7272757074204865782046696C65002E444F2046
113 DATA381911696C65004C6F61642061743F20283C43523E20666F722044656661756C74293A20002E434F2046696C6500486578204F7574707574204669
114 DATA386A0F6C65004261642066696C65206E616D650046696C65206E6F7420666F756E64000D0A312920782E444F202D2D3E20782E434F0D0A32292078
115 DATA235C052E444F203C2D2D20782E434F0D0A332920457869740D0A0A3F00000000000000000000
116 DATA00