0 'XMDPW5.100 - Relocating loader for XMDPW5.CO. Several small fixes. 1 'Phil Wheeler - 71266,125 [8/28/88] 2 GOSUB99 3 PRINT@42,"Enter end address";:PRINT@82," 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"XMDPW5",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 IFMRTHENBEEP: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=4041:D=0:RETURN 100 DATA38F6160021S70CCD9157CD444221PA00CDA542C3UF00E12CCD632CCD3142CD4621C3G802CDI8093A3EF6FE00C24442CD3F42C30B6ECD294221PA00 101 DATA384016CD7C5ACD535DCDH108CDVD0721J2002252F621M200CD9157CD4446D7A7CAJB0011MF00CDA76CCAJ200C9584D44636F6D6D616E643A200053 102 DATA380613544154U8005445524DV20143414C4CLD0146494E44N2014D454E55975746494C45S70046524545SD00FF46696E64208043616C6C20805374 103 DATA3849156174208046696C65738D467265658D805465726D8D4D656E758D4A52433337CDO503C3JB00CDNC03C3JB0053657269616C20506F72742053 104 DATA38971474617475733A20002BD73C3DC2HB0121T300CD9157215BF606057EE72305C2VA003E2CE73A2BF60F3E3298E721H501CDB127C3JB00302070 105 DATA38AE17707300DAIC01FE2CCAJ801CDE90FFE4DC2J20023CDE617CDCB6E2BD7A7CAJB00CF2CCD2E11FE14CAK801D60AC2J2003C322BF6C3JB002144 106 DATA38BD1B52CD585AD1CDQ901CAJ200EBF637E5214452DC585AE1CD2D53DAJ200C2JB00C3G80297CDB15DE5CDA65ACAJ200CDE35AEBE1CD3F5CD2J200 107 DATA38201EE5D5CDC55DCDQ901C4R701CD2242CDT901CAJ200FE43CAKE01D1CD6D5CE1C3O201CDSD01C8E7FE3A13C2Q901C3T301CDSD01C8FE3CCAS801 108 DATA387D1EFE3AC8E713C3R701E73E3EE7C9CD745C1B1AC8FE1ACAJ200C9D5212B5DCD7C5ACDAE5CF521PA00CD7C5ACDBC5DF1FE51D1C9215AF6D7D457 109 DATA38561C34F5CDE617F13FDCE452DAHB03CDVD073E403250F6327BF6AF32OD0A32C2FA32C3FACDD3453EFF32J60DCDPE08CDNE08CD4455CD5655CD62 110 DATA38141A55CDA842CD4942000000CD5D5D21Q8022252F63A42FFA7CAL5023A40FF21D9F7AE0FDC6255CDDB13CANB02CDCB12DAR502473A58F6A778CC 111 DATA38AB1E444BFE80D4U708F5CDS909F1A7C4326EDAPB02CD6D6DCAJA02CD7E6DDAJA02F5E67FE7F1473A59F6A778C4554BCDC556C3JA02AF3240FFCD 112 DATA38DA129F72DAPF02C3JA02CD2942AF3259F6CD5655C3JA025F16FF2AJA0D19197E23666F11JA02D5E9G003J608L0083E555055I100J303UC025072 113 DATA385A1965F6446F77EE2055F0808080586D6FE4204279E5218657CDIC08FE59CAHB03217157CD9157C3JA023A3DF6B7CA23553A99FF1FD2235521OD 114 DATA389B180A347E1FD2AB423FC3U309AF3250F66F6722C2FACDCB6ECD4E42CDBB52CD7063C3G700CDJ0093AC2FAB7C4KA0821NC0322JA0D21L203CD7C 115 DATA3877155A3AJ60DCDP603C3J102507265F658736EE4587263F646696CE5467265E580804E6F72EDG003PF03K405O503NC03I100OB03I502CD2242CD 116 DATA38F118AC7EC32242CD2242C33A1FCDJ0093AJ60DEEFF32J60D11E9F721VF0BC36B5521MF082252F6E521OF0ACDIC08A7C832C6FACDFA21CD0B4CC0 117 DATA385512CD8F2022IC0DEB22IE0D22J00D217C57CA9157CDUA0721RB0ACD9157AF32J40D32J30D21010022IA0DC3VD033AJ30D3C32J30DFE0BD021U4 118 DATA38EF170ACD9157CDK207CDSA07CAG00721FDFF2B7DB4CAU403010C00CDI307CD6D6DCAG004E5CD7E6DE1C2G004DAG007FE15C2I604AFC3ID04FE43 119 DATA380A12C2G0043EFFCDP303AF32J30D3AJ30D3C32J30DFE0BD0CDSA07CAG007CDKE070E01CDHF073AIA0D4F2FF5CDHF07F1CDH207AF32J20D210000 120 DATA38E81022J70D2AJ00DEB0E801AFE1AC2N20432J40D473AJ40DB7CANC04061A78CDG607CDH207130DC2M9043AJ60DB7C2P8043AJ20DCDH207C3Q304 121 DATA38D1172AJ70D7CCDH2077DCDH20701FDFFCD6D6DCAS704C5CD7E6DC1FE06CAT904FE15C2S70421HE0BCD9157CDK207C3J4040B79B0C2Q60421G00B 122 DATA387F10CD9157CDK207C3J4043AJ40DB7C2V4042AJ00D1180001922J00D2AIA0D2322IA0DC3J004AF32J30D3AJ30D3C32J30DFE0BC8CDSA07CAG007 123 DATA3883170E04CDHF0701FDFFCD6D6DCAI005C5CD7E6DC1FE06CAJA05C5016400CDI307C10B79B0C2H00521JC0BCD9157CDK207C3V804E121L60BCD91 124 DATA381D1657C3OA0821M9082252F6E521Q20ACDIC08A7C832C6FACDFA21CD0B4CC0CD0F2222IE0D22J00DEB22IC0DD2O40521N80BCDIC08FE59C021LD 125 DATA383D1205E52AIE0DEB2AIC0DCDBE1F21010022IA0DAF32J40D3D32J90DCDUA0721P30BCD915721R40B0E153AJ60DB7CAQC0521S90B0E43C5CD9157 126 DATA38C614C1CDHF07AF32J30D3AJ50DB7C2S305AF32J40D3AJ30D3C32J30DFE0BD0FE07DAUA053AJ90D473AJ60DA0CAUA05AF32J60D21TE0BCD9157C3 127 DATA383416O405CDSA07CAG007AF32J20D21000022J70DCDP707C2S206FE04CAV306FE01C2RC06AF32J90DCDP707C2S2065F3AIA0DBBC2RC06CDP707C2 128 DATA38DB12S2062FBBC2RC0616001E8021K80FCDP707C2S20677CDG607FE1AC2K00632J40D3AJ40DB7C2K80614231DC2IE063AJ60DB7CAME060E02C5CD 129 DATA380319P707C1C2S206CDG6070DC2L606CDP308C2R606C3NC06CDP707C2S206473AJ20DB8C2R0067AB7CAPA064F06002AJ00DC5E5CD6D6BE1C1DAU3 130 DATA38DF0F0611K80FCDI10822J00DCDO207CDP2072AIA0D2322IA0D3AJ40D32J50DC3R40521M40CC3S50621NB0CC3S50621HF0CC3S50621G70CCD9157 131 DATA38CF14CDK207CDTC070E153AJ90D473AJ60DA0CATD060E43CDHF07C3R80521K20CCD91572AIE0DEB2AIC0DCDBE1FE121P20CCD9157CDP207C3OA08 132 DATA38D11C21R70CC3N208F5E521J20D8677E1F1C3S908F5C5D5E54FCDHF07E1D1C1F1C9C5C33A6EF50000000B79B0C2I407F1C9E56F2600CDJ807E1C9 133 DATA38BD15F5C5D5CDD439D1C1F1C9F53AJ30DCDIF07CD2242F1C921L407C3O5070D1B4D20202053656E64696E6720626C6F636B202320000D1B4D2020 134 DATA38C013526563656976656420626C6F636B2023200021MB07CD91572AIA0DCDJ8073E0DE7C90E06C3HF07010F00D5E5C501050DC5CD6D6DCAR207CD 135 DATA38D31B7E6DC2R207C1C1E1D1C9010A00CDI307C10B79B0C2Q007C10B79B0C2PC070DE1D1C9CD7072CAT907CDCB12FE03C8FE18C8AF3DC9010100CD 136 DATA387813PA07C0CDSA07C8C3TC0721K20DC3V30721JC0D7EFE4DC2E61723C3E61721JC0D115BF61A32K20D010500C3I108384E3144AF32K10D32K70D 137 DATA38991721K30D11GD0801040079B0C81A7713230BC3I108CD9157CD3E46D7C3E90FCD46213AC2FAEEFF32C2FACAKA0821L608C38F56CD9E5AC38363 138 DATA386A1621M308C3A055AF32C2FACD9E5A216857C3N208215957C3N20821R30AC3N20821PD0ACD9157217157CDB127C3OA0821T60222JA0D21T602C3 139 DATA3821177C5ACDV007CD4621C3JA02E52AJ70D7CB5E1C83EFFC921K80D0E00EB21000079C50608AC6729D2R9083E10AC673E21AD6F05C2QD08C1EB72 140 DATA380218247325230CC2Q308C9F5C5D5E52AJ70DEB0600AA4F21K80D097EAB57245EEB22J70DE1D1C1F1C9F5CD462111HE093E0ACDAB5ACAH809CDE3 141 DATA3867185AF14F7EFE1ACAH909B923C2VB087EFE1ACAHC09FE80D2HC09CD326E23C3G609F1CD6276AFC9584D444D41432E444F003A99FF1FD0C3J809 142 DATA3890173A99FF1FD0C3K709CDO209CD7F6C2100002252F6C34F6CCDO209CD224221LD092252F621225ECD7C5AAF3250F6C42942CD535D21155ECDB1 143 DATA38361527CD3E46D7CAH300CD0622E521000022E7F63E0121H300C3715FCD4621CD314221PC09CDB1272E000EC0CD3A1FCD2242CDAC7EC91B704449 144 DATA38A31252414343203130302020436F707972696768742031393835204875676F2046657272657972611B7100473A3DF6B7C82AOD0A7D1FD05C7816 145 DATA38141500FE0DCAU309FE15C2V80921M50A0627E536202305C2U909E17832OE0AC3K50A21M50A19FE08C2GA0A1DF836202B7BC3V209FE09C2JF0A0E 146 DATA388A11083E20CDHD0A0DC2H10AC3K50A77237B3CFE27D2IB0A5F32OE0AC921M50A545D2306267E12231305C2J30A2B1E26C9FE20D8CDHD0A36E92A 147 DATA38F30B39F6E52108012239F6CD4E42AF32OC0A21M50ACDA211E12239F6C34942000000000000000000000000000000000000000000000000000000 148 DATA38850D00000000000000000000000000000046696C6520746F2073656E64200053656E640046696C6520746F207265636569766520005265636569 149 DATA38C0107665000D0A46696C6520666F756E64202D20526561647920746F2073656E640D0A77616974696E672E2E2E001B4D0D0709496E697469616C 150 DATA38E60E204E414B2074696D656F7574202320001B4D0D0709426C6F636B2041434B2F4E414B2074696D656F7574202320001B4D0D0709426C6F636B 151 DATA38590E204E414B6B6564202D20726573656E64202320001B4D0D070946696E616C2041434B2074696D656F7574202320000D0A0A072053656E6420 152 DATA3820104F4B20286E6F7720696E205465726D206D6F6465290D0A0046696C6520657869737473202D2045726173652028592F4E2920000D0A46696C 153 DATA38D91065206F70656E202D20726561647920746F20726563656976650D0A00436865636B73756D20696E206566666563740D0A0020202020204352 154 DATA38DF104320696E206566666563740D0A001B4D0D09537769746368696E6720746F20636865636B73756D206D6F64650D0A0043524320436B536D1B 155 DATA3810114D0D0709526563656976652074696D656F7574202320001B4D0D0742616420686561646572207265636569766564202D2072657472792023 156 DATA38611020000D0A074F7574206F66206D656D6F7279202D2066696C652064656C657465640D0A001B4D0D0709436865636B73756D206572726F7220 157 DATA388A0D2320001B4D0D07092020202020435243206572726F72202320000D0A0A072052656365697665204F4B20286E6F7720696E205465726D206D 158 DATA38850E6F6465290D0A001B4D0D07425245414B206B6579202D000D584D44505735202D2D2D20586D6F64656D2050726F6772616D205B382F32382F 159 DATA381A0E38385D0D0A2077697468204449524143432C2053706C697453637265656E2026204D6163726F730D0A202020202020202020202020202D2D 160 DATA3852012D2D2D2D2D2D2D0D0A0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 161 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 162 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 163 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 164 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 165 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 166 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 167 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 168 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 169 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 170 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 171 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 172 DATA0A000000000000000000000000 173 DATA00