0 'XMDPW6.100 -- Relocating BA loader to create XMDPW6.CO in the 100/102. 1 'Update/Enhancement of 7/10/88. Phil Wheeler -- 71266,125 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"XMDPW6",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=4469:D=0:RETURN 100 DATA387A17003E01CD2B7FCD2F3F21ME0ECD9157CD444221PF00CDA542C3V400E12CCD632CCD3142C3GD02CDLD093A3EF6FE00C24442CD3F42C30B6ECD 101 DATA38DA15294221PF00CD7C5ACD535DCDK408CDJ00821J7002252F621M700CD9157CD4446D7A7CAK00011N400CDA76CCAJ700C9584D44636F6D6D616E 102 DATA386212643A200053544154UD005445524DV70143414C4CM20146494E44N7014D454E55975746494C45SC0046524545T200FF46696E64208043616C 103 DATA387C156C208053746174208046696C65738D467265658D805465726D8D4D656E758D4A52433337CDP403C3K000CDOB03C3K00053657269616C2050 104 DATA3878156F7274205374617475733A20002BD73C3DC2I00121T800CD9157215BF606057EE72305C2VF003E2CE73A2BF60F3E3298E721HA01CDB127C3 105 DATA386917K000302070707300DAJ101FE2CCAJD01CDE90FFE4DC2J70023CDE617CDCB6E2BD7A7CAK000CF2CCD2E11FE14CAKD01D60AC2J7003C322BF6 106 DATA38A41BC3K000214452CD585AD1CDQE01CAJ700EBF637E5214452DC585AE1CD2D53DAJ700C2K000C3GD0297CDB15DE5CDA65ACAJ700CDE35AEBE1CD 107 DATA38291D3F5CD2J700E5D5CDC55DCDQE01C4RC01CD2242CDTE01CAJ700FE43CAL301D1CD6D5CE1C3O701CDT201C8E7FE3A13C2QE01C3T801CDT201C8 108 DATA380C1EFE3CCASD01FE3AC8E713C3RC01E73E3EE7C9CD745C1B1AC8FE1ACAJ700C9D5212B5DCD7C5ACDAE5CF521PF00CD7C5ACDBC5DF1FE51D1C921 109 DATA388E1D5AF6D7D45734F5CDE617F13FDCE452DAIA03CDJ0083E403250F6327BF6AF32RF0A32C2FA32C3FACDD3453EFF32U20ECDT608CDR108CD4455 110 DATA389619CD5655CD6255CDA842CD4942000000CD5D5D21QD022252F63A42FFA7CALA023A40FF21D9F7AE0FDC6255CDDB13CAO002CDCB12DARA02473A 111 DATA38761E58F6A778CC444BFE80D4HF09F5CDVB09F1A7C4326EDAQ002CD6D6DCAJF02CD7E6DDAJF02F5E67FE7F1473A59F6A778C4554BCDC556C3JF02 112 DATA38F514AF3240FFCD9F72DAQ402C3JF02CD2942AF3259F6CD5655C3JF025F16FF2AU60E19197E23666F11JF02D5E9GF03G503O3083E555055I600K2 113 DATA38061903V102507265F6446F77EE2055F0808080586D6FE4204279E5218657CDLF08FE59CAIA03217157CD9157C3JF023A99FF1FD2M908C3S10A3A 114 DATA38BD1A3DF6B7CA23553A99FF1FD2235521RF0A347E1FD2AB423FC3H50AAF3250F66F6722C2FACDCB6ECD4E42CDBB52CD7063C3GF00CDM5093AC2FA 115 DATA38FC17B7C4ND0821OB0322U60E21M103CD7C5A3AU20ECDQF03C3J602507265F653656EE4526563F646696CE5467265E580804E6F72EDGF03PA03M7 116 DATA38871705P403OB03I600Q403IA02CD2242CDAC7EC32242CD2242C33A1F3A99FF1FD2R803C3S10ACDM5093AU20EEEFF32U20E11E9F721Q60DC36B55 117 DATA38BF1321Q2082252F6E521V60BCDLF08A7C83E01CDH407CDI707210000228CFCCDHD0821I20CCD9157AF32U00E32TF0E21010022T60EC3G7043ATF 118 DATA3813190E3C32TF0EFE0BD021O70CCD9157CDN507CDVD07CAJ30721FDFF2B7DB4CAUE03010C00CDL607CD6D6DCAGA04E5CD7E6DE1C2GA04DAJ307FE 119 DATA38BA1515C2J004AFC3J704FE43C2GA043EFFCDQC03AF32TF0E3E01CDBF4C0E8021V410CD7A4E77230DC2K804210000228CFC3ATF0E3C32TF0EFE0B 120 DATA389D16D0CDVD07CAJ307CDO1070E01CDL2073AT60E4F2FF5CDL207F1CDK507AF32TE0E21000022U30E21V410EB0E801AFE1AC2P50432U00E473AU0 121 DATA38F7170EB7CAPF04061A78CDJ907CDK507130DC2OC043AU20EB7C2RB043ATE0ECDK507C3S6042AU30E7CCDK5077DCDK50701FDFFCD6D6DCAUA04C5 122 DATA382519CD7E6DC1FE06CAVC04FE15C2UA0421S10CCD9157CDN507C3L7040B79B0C2S90421Q30CCD9157CDN507C3L7043AU00EB7C2H7052ATC0E1180 123 DATA388317001922TC0E2AT60E2322T60EC3JA04AF32TF0E3ATF0E3C32TF0EFE0BC8CDVD07CAJ3070E04CDL20701FDFFCD6D6DCAK305C5CD7E6DC1FE06 124 DATA38CD16CALD05C5016400CDL607C10B79B0C2J30521TF0CCD9157CDN507C3HB05E121V90CCD9157C3RD0821PC082252F6E521G90CCDLF08A7C83E02 125 DATA389517CDH4073AT40EFEF8C2P905D5CDA020D1CAP905D5CD294221HB0DCDLF08FE59D1C0CDI707CD4621210000228CFC21010022T60EAF32U00E3D 126 DATA38381632U50ECDHD0821JA0DCD915721LB0D0E153AU20EB7CASD0521N00D0E43C5CD9157C1CDL207AF32TF0E3AU10EB7C2U405AF32U00E3ATF0E3C 127 DATA38C31732TF0EFE0BD0FE07DAGB063AU50E473AU20EA0CAGB06AF32U20E21O50DCD9157C3Q505CDVD07CAJ307AF32TE0E21000022U30ECDSA07C2U6 128 DATA38071A06FE04CAG707FE01C2U006AF32U50ECDSA07C2U6065F3AT60EBBC2U006CDSA07C2U6062FBBC2U00616001E8021V410CDSA07C2U60677CDJ9 129 DATA38D31707FE1AC2M10632U00E3AU00EB7C2M90614231DC2KF063AU20EB7CAOF060E02C5CDSA07C1C2U606CDJ9070DC2N706CDSB08C2TA06C3PD06CD 130 DATA38B517SA07C2U606473ATE0EB8C2T4067AB7CARE064F0600C53E01CDBF4CC121V4107ECD444B230DC2QF06210000228CFCCDR507CDS5072AT60E23 131 DATA38801422T60E3AU00E32U10EC3T50521GB0EC3U90621I20EC3U90621S60DC3U90621QE0DCD9157CDN507CDGF080E153AU50E473AU20EA0CAG1070E 132 DATA38941643CDL207C3T905E121J90ECD9157CDS507C3RD0832T50ECDFA21CD0B4CC2I20716F87A32T40EC92107003AT50E5F3E01C3124D21LE0EC3Q5 133 DATA38671F08F5E521TE0E8677E1F1C3G109F5C5D5E54FCDL207E1D1C1F1C9C5C33A6EF50000000B79B0C2L707F1C9E56F2600CDMB07E1C9F5C5D5CDD4 134 DATA38BB1439D1C1F1C9F53ATF0ECDM207CD2242F1C921O707C3R8070D1B4D20202053656E64696E6720626C6F636B202320000D1B4D20205265636569 135 DATA38EA1576656420626C6F636B2023200021PE07CD91572AT60ECDMB073E0DE7C90E06C3L207010F00D5E5C501050DC5CD6D6DCAU507CD7E6DC2U507 136 DATA38981CC1C1E1D1C9010A00CDL607C10B79B0C2T307C10B79B0C2SF070DE1D1C9CD7072CAGC08CDCB12FE03C8FE18C8AF3DC9010100CDSD07C0CDVD 137 DATA38981407C8C3GF0821UE0EC3I60821U80E7EFE4DC2E61723C3E61721U80E115BF61A32UE0E010500C3L408384E3144AF32UD0E32V30E21UF0E11K0 138 DATA38C5190801040079B0C81A7713230BC3L408CD9157CD3E46D7C3E90FCD46213AC2FAEEFF32C2FACAND0821O908C38F56CD9E5AC3836321P608C3A0 139 DATA38B21655AF32C2FACD9E5A216857C3Q508215957C3Q50821HA0CC3Q50821G40CCD9157217157CDB127C3RD0821TB0222U60E21TB02C37C5A3E01CD 140 DATA38D317384DCDI308CD4621C3JF02E52AU30E7CB5E1C83EFFC921V40E0E00EB21000079C50608AC6729D2V1083E10AC673E21AD6F05C2U508C1EB72 141 DATA38111B247325230CC2TB08C9F5C5D5E52AU30EEB0600AA4F21V40E097EAB57245EEB22U30EE1D1C1F1C9F511L3093E0ACDAB5ACAKD09CDE35AF14F 142 DATA38DE187EFE1ACAKE09B923C2J0097EFE1ACAL109FE80D2L109CD326E23C3JB09F1CD6276AFC9584D444D41432E444F003A99FF1FD0C3MD093A99FF 143 DATA38C4171FD0C3NC09CDR709CD7F6C2100002252F6C34F6CCDR709CD224221P2092252F621225ECD7C5AAF3250F6C42942CD535D21155ECDB127CD3E 144 DATA387C1446D7CAHB00CD0622E521000022E7F63E0121HB00C3715FCD314221SE09CDB1272E000EC0CD3A1FCD2242CDAC7EC91B704449524143432031 145 DATA385F1330302020436F707972696768742031393835204875676F2046657272657972611B7100473A3DF6B7C82ARF0A7D1FD05C781600FE0DCAH50A 146 DATA38A412FE15C2IA0A21P70A0627E536202305C2HB0AE17832S00AC3N70A21P70A19FE08C2JC0A1DF836202B7BC3I40AFE09C2N10A0E083E20CDKF0A 147 DATA38CC130DC2K30AC3N70A77237B3CFE27D2LD0A5F32S00AC921P70A545D2306267E12231305C2M50A2B1E26C9FE20D8CDKF0A36E92A39F6E5210801 148 DATA38190A2239F6CD4E42AF32RE0A21P70ACDA211E12239F6C34942000000000000000000000000000000000000000000000000000000000000000000 149 DATA38CF1200000000000000000021O30B2252F6CD5D5DCD274ECD4621CD3142CD3A1F21S50BCD9157CD3E46D7CAN70B3E01CDH407CDI7073E01CDBF4C 150 DATA388419AF6F674FC5E5CD7A4EE1C1FE0DCAV40AFE0ACAV40AFE1ACAH30B5FAF5719894FC3V40A11V30BEB7323722371210000228CFC01UA0B21P20B 151 DATA38470E3E3002E511V30B1A961213231A9E1213231A9E12E10A3C02D2IB0B3D0211V30B1A861213231A8E1213231A8E120323AFBEC2I80B16043E30 152 DATA38E81621UA0BBEC2ME0B36202315C2M30B21U00BCD9157C3O60BCD3142C3GD0221D65CCD9157CD294221QB0BCD9157CD2F5FC3S10A80969840420F 153 DATA38590FA08601102700E803006400000A0000010000005461702053706163652042617220746F20636F6E74696E75650046696C6520746F20436865 154 DATA383F0E636B203C435220746F205465726D3E00436865636B73756D203D00000000000000000000000046696C6520746F2073656E64200053656E64 155 DATA3882110046696C6520746F2072656365697665200052656365697665000D0A46696C6520666F756E64202D20526561647920746F2073656E640D0A 156 DATA38DA0F77616974696E672E2E2E000D0A202020202043524320726571756573742052454345495645440D0A000D0A436865636B73756D2072657175 157 DATA38B10F6573742072656365697665640D0A001B4D0D0709496E697469616C204E414B2074696D656F7574202320001B4D0D0709426C6F636B204143 158 DATA38D00E4B2F4E414B2074696D656F7574202320001B4D0D0709426C6F636B204E414B6B6564202D20726573656E64202320001B4D0D070946696E61 159 DATA38610F6C2041434B2074696D656F7574202320000D0A0A072053656E64204F4B20286E6F7720696E205465726D206D6F6465290D0A0046696C6520 160 DATA382C12657869737473202D204F76657277726974652028592F4E2920000D0A46696C65206F70656E202D20726561647920746F2072656365697665 161 DATA38510F0D0A00436865636B73756D20696E206566666563740D0A00202020202043524320696E206566666563740D0A001B4D0D0953776974636869 162 DATA38C7106E6720746F20636865636B73756D206D6F64650D0A0043524320436B536D1B4D0D0709526563656976652074696D656F7574202320001B4D 163 DATA3822110D0742616420686561646572207265636569766564202D207265747279202320000D0A074F7574206F66206D656D6F7279202D2066696C65 164 DATA381D0E2064656C657465640D0A001B4D0D0709436865636B73756D206572726F72202320001B4D0D07092020202020435243206572726F72202320 165 DATA38D90D000D0A0A072052656365697665204F4B20286E6F7720696E205465726D206D6F6465290D0A001B4D0D07425245414B206B6579202D000D20 166 DATA38B90F584D44505736202D2D2D2D20586D6F64656D2050726F6772616D205B372F31302F38385D0D0A202028584D44505735207769746820446576 167 DATA387A096963652046696C6520537570706F7274290D0A202020202020202020202020202D2D2D2D2D2D2D2D2D0D0A00000000000000000000000000 168 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 169 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 170 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 171 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 172 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 173 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 174 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 175 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 176 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 177 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 178 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 179 DATA2E000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 180 DATA00