0 'XMDPW6.200 -- Loader for XMDPW6.CO in Tandy 200; Macros fixed 1 'Phil Wheeler -- 71266,125 [8/23/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"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=4189:D=0:RETURN 100 DATA383E1A003E01CDE19BCD4A4C21L00DCD9E67CD634F21PF00CDC44FC3V300E12CCDD239CD4D4FC3L302CDR4093A0BEFFE00C2634FCD5E4FC30886CD 101 DATA388817454F21PF00CD206ECD4B71CDPB08CDO50821J7002234EF21M700CD9E67CDF654D7A7CAK00011N400CDED83CAJ700C9584D44636F6D6D616E 102 DATA384F12643A200053544154UC005445524DJD0243414C4CQ80146494E44RD014D454E55A46746494C45SB0046524545T100FF46696E64208043616C 103 DATA386E146C208053746174208046696C658D467265658D805465726D8D4D656E758D4A52433337CDGE04C3K000CDG504C3K00053657269616C20506F 104 DATA388B157274205374617475733A20002BD73C3DC2J80121T700CD9E67213CEF06077EE72305C2VE003E2CE73A44EFA73E4FCAH3013E41E73E2CE73A 105 DATA38FA15F4EEA7C2I4013E54E7C3K0000F3E3298E721J201CD1735C3K000302070707300DAK901FE2CCAL501CD1410FE4DC2J70023CD1D19CDB5872B 106 DATA384C19D7A7CAK000CF2C2BD7FE2CCAN301CD1410FE41CAMB01D64FC2J7003244EFD7A7CAK000CF2C2BD7CAO501CD1410D654C2J700C3P301CD5811 107 DATA384A1BFE14CAP301D60AC2J7003C32F4EEC3K000214261CDF66DD1CDV401CAJ700EBF637E5214261DCF66DE1CD2B62DAJ700C2K000C3L30297CD5C 108 DATA38851C71E5CD4A6ECAJ700CD8C6EEBE1CD4270D2J700E5D5CD7471CDV401C4G202CD3E4FCDI402CAJ700FE43CAP901D1CD7670E1C3SD01CDH802C8 109 DATA38001BE7FE3A13C2V401C3HE02CDH802C8FE3CCAH302FE3AC8E713C3G202E73E3EE7C9CD7D701B1AC8FE1ACAJ700C9D5213371CD206ECDB770F521 110 DATA38251EPF00CD206ECD6B71F1FE51D1C9213BEFD7D4A841F5CD1D19F13FDCE761DAQ403CDO5083E403232EF3266EFAF32H60B32F0F432F1F432EDFC 111 DATA38561E32EFFCCDFB533EFF32S60DCDID09CDG809CDBE64CDD064CDDC64CDC74FCD684FCD557121J1032234EF3AF2FCCD6C86DCFB66A7CAQ9023AF0 112 DATA38DD1BFC21C4F0AE0FDCDC64CD2214CD4567C2RE02CD0414CATB02CDF712DAJE0347DAJE03FE80D4N609F5CDL20AF1A7C42267DAI4033A39EFA778 113 DATA38C11ACC055ACD0885CAO802CD198547DAO802FE7FC2V6023A3CEFFE3AD2O80278E721EDFC7E70FE1B78C2HB03FE49C2HB033AF0F4A7C2HB030608 114 DATA38DE187ECD43862305C2H0033E49CD5264CD6266C3O802AF32F0FCCD698BDAI803C3O802CD454FAF323AEFCDD064C3O8025F16FF2ASA0D19197E23 115 DATA386B19666F11O802D5E9O903S008TA08B864CA64I600RC03N503507265F6446F77EE2055F0808080586D6FE4204279E5219367CDR608FE59CAQ403 116 DATA38F91A217E67CD9E67C3O8023A0AEFB7CA9D643A0DFD1FD29D6421H60B347E1FD2C74F3FC3MC0AAF3232EF6F6722F0F4CDB587CD6D4FCDBA61CD51 117 DATA38CA1877C3GF00CDRC093AF0F4B7C4T40821G50422SA0D21TB03CD206E3AS60DCDHF04C3O202507265F653656EE4526563F646696CE5467265E580 118 DATA38A416804E6F72EDO903I804T405GE04G504I600H404N602CD3E4FCDFD9AC33E4FCD3E4FC32A2ACDRC093AS60DEEFF32S60D11D4F021O80CC3E564 119 DATA38811321V9082234EFE521H80BCDR608A7C83E01CDN007210000223FF7CDN20821K40BCD9E67AF32S40D32S30D21010022RA0DC3N4043AS30D3C32 120 DATA384F1AS30DFE0BD021MD0BCD9E67CDSA07CDL208CAOA0721FDFF2B7DB4CALB04010C00CDQE07CD0885CAN704E5CD1985E1C2N704DAOA07FE15C2PD 121 DATA38311604AFC3Q404FE43C2N7043EFFCDHC04AF32S30D3E01CD7E5B0E8021TC0FCD365D77230DC2R504210000223FF73AS30D3C32S30DFE0BD0CDL2 122 DATA38081608CAOA07CDT6070E01CDQ9073ARA0D4F2FF5CDQ907F1CDPC07AF32S20D21000022S70D21TC0FEB0E801AFE1AC2G20532S40D473AS40DB7CA 123 DATA380717GC05061A78CDP007CDPC07130DC2V9043AS60DB7C2I8053AS20DCDPC07C3J3052AS70D7CCDPC077DCDPC0701FDFFCD0885CAL705C5CD1985 124 DATA38AD17C1FE06CAM905FE15C2L70521Q70BCD9E67CDSA07C3S4040B79B0C2J60521O90BCD9E67CDSA07C3S4043AS40DB7C2O4052AS00D1180001922 125 DATA387718S00D2ARA0D2322RA0DC3Q704AF32S30D3AS30D3C32S30DFE0BC8CDL208CAOA070E04CDQ90701FDFFCD0885CAR005C5CD1985C1FE06CASA05 126 DATA387218C5016400CDQE07C10B79B0C2Q00521S50BCD9E67CDSA07C3O805E121TF0BCD9E67C3H40921V3082234EFE521IB0BCDR608A7C83E02CDN007 127 DATA381013CD622C210000223FF721010022RA0DAF32S40D3D32S90DCDN20821HC0CCD9E6721JD0C0E153AS60DB7CAH90621L20C0E43C5CD9E67C1CDQ9 128 DATA384D1707AF32S30D3AS50DB7C2J006AF32S40D3AS30D3C32S30DFE0BD0FE07DAL7063AS90D473AS60DA0CAL706AF32S60D21M70CCD9E67C3V105CD 129 DATA386913L208CAOA07AF32S20D21000022S70DCDHF08C2J207FE04CAM307FE01C2IC07AF32S90DCDHF08C2J2075F3ARA0DBBC2IC07CDHF08C2J2072F 130 DATA38B915BBC2IC0716001E8021TC0FCDHF08C2J20777CDP007FE1AC2QD0632S40D3AS40DB7C2R50614231DC2PB063AS60DB7CATB060E02C5CDHF08C1 131 DATA381515C2J207CDP0070DC2S306CDI209C2I607C3U906CDHF08C2J207473AS20DB8C2I0077AB7CAGA074F0600C53E01CD7E5BC121TC0F7ECD055A23 132 DATA38BA110DC2VB06210000223FF7CDGA08CDHA082ARA0D2322RA0D3AS40D32S50DC3I10621UD0CC3J50721G40DC3J50721Q80CC3J50721P00CCD9E67 133 DATA38EB15CDSA07CDM4080E153AS90D473AS60DA0CAKD070E43CDQ907C3I50621SB0CCD9E672ARE0DEB2ARC0DCDB42AE1CDHA0821HB0DCD9E67C3H409 134 DATA38241DF5CD432DCDCA5AC2NC0716F87A32R90D210700F15F3E01C3D15B21K00DC3VC08F5E521S20D8677E1F1C3L809F5C5D5E54FCDQ907E1D1C1F1 135 DATA38071EC9C5C5C34F86F50B79B0C2QF07F1C9E56F2600CDS007E1C9F5C5D5CD0B47D1C1F1C9F53AS30DCDR707CD3E4FF1C921TC07C3GD080D1B4D20 136 DATA38BD11202053656E64696E6720626C6F636B202320000D1B4D2020526563656976656420626C6F636B2023200021V307CD9E672ARA0DCDS0073E0D 137 DATA38B517E7C90E06C3Q907010F00D5E5C501050DC5CD0885CAJA08CD1985C2JA08C1C1E1D1C9010A00CDQE07C10B79B0C2I808C10B79B0C2I4080DE1 138 DATA387818D1C9CD318BCAM108CDF712FE03C8FE18C8AF3DC9010100CDI208C0CDL208C8C3M40821T40DC3NB0821SC0D7EFE4DC21D1923C31D1921SC0D 139 DATA38EB13113CEF1A32T40D010700C3QB08384E31444E4EAF32T30D32TB0D21T50D11P50801060079B0C81A7713230BC3QB08CD9E67CDF054D7C31410 140 DATA38C21CCD622C3AF0F4EEFF32F0F4CAT40821U008C31966CD426EC3647721UD08C31A65AF32F0F4CD426E217567C3VC08216667C3VC0821JC0BC3VC 141 DATA389B160821I60BCD9E67217E67CD1735C3H40921LF0322SA0D21LF03C3206E3E01CDF75BCDN808CD622CC3O802E52AS70D7CB5E1C83EFFC921TC0D 142 DATA38EB140E00EB21000079C50608AC6729D2K8093E10AC673E21AD6F05C2JC09C1EB72247325230CC2J209C9F5C5D5E52AS70DEB0600AA4F21TC0D09 143 DATA38FD1C7EAB57245EEB22S70DE1D1C1F1C9F511QA093E0ACD4F6ECAQ409CD8C6EF14F7EFE1ACAQ509B923C2O7097EFE1ACAQ809FE80D2Q809CD4386 144 DATA38801723C3P209F1CD454FAFC9584D444D41432E444F003A0DFD1FD0C3S4093A0DFD1FD0C3T309CDGE0ACDBF832100002234EFC39583CDGE0ACD3E 145 DATA38CF174F21U9092234EF21D471CD206EAF3232EFC4454FCD4B7121C471CD1735CDF054D7CAHB00CD732DE521000022D2EF3E0121HB00C32773CD4D 146 DATA3847124F21I50ACD17352E000EC0CD2A2ACD3E4FCDFD9AC91B70444952414343203130302020436F707972696768742031393835204875676F2046 147 DATA38F014657272657972611B7100473A0AEFB7C82AH60B7D1FD05C781600FE0DCAMC0AFE15C2O10A21UE0A0627E536202305C2N20AE17832H70BC3SE 148 DATA3883150A21UE0A19FE08C2P30A1DF836202B7BC3NB0AFE09C2S80A0E083E20CDQ60A0DC2PA0AC3SE0A77237B3CFE27D2R40A5F32H70BC921UE0A54 149 DATA38D5145D2306267E12231305C2RC0A2B1E26C9FE20D8CDQ60A36E92A06EFE52110012206EFCD6D4FAF32H50B21UE0ACDCC11E12206EFC3684F0000 150 DATA3825050000000000000000000000000000000000000000000000000000000000000000000000000000000046696C6520746F2073656E6420005365 151 DATA383D126E640046696C6520746F2072656365697665200052656365697665000D0A46696C6520666F756E64202D20526561647920746F2073656E64 152 DATA38F50E0D0A77616974696E672E2E2E001B4D0D0709496E697469616C204E414B2074696D656F7574202320001B4D0D0709426C6F636B2041434B2F 153 DATA38E20E4E414B2074696D656F7574202320001B4D0D0709426C6F636B204E414B6B6564202D20726573656E64202320001B4D0D070946696E616C20 154 DATA38B20F41434B2074696D656F7574202320000D0A0A072053656E64204F4B20286E6F7720696E205465726D206D6F6465290D0A0046696C65206578 155 DATA389F1069737473202D2045726173652028592F4E2920000D0A46696C65206F70656E202D20726561647920746F20726563656976650D0A00436865 156 DATA382210636B73756D20696E206566666563740D0A00202020202043524320696E206566666563740D0A001B4D0D09537769746368696E6720746F20 157 DATA380A10636865636B73756D206D6F64650D0A0043524320436B536D1B4D0D0709526563656976652074696D656F7574202320001B4D0D0742616420 158 DATA381512686561646572207265636569766564202D207265747279202320000D0A074F7574206F66206D656D6F7279202D2066696C652064656C6574 159 DATA38370C65640D0A001B4D0D0709436865636B73756D206572726F72202320001B4D0D07092020202020435243206572726F72202320000D0A0A0720 160 DATA38410F52656365697665204F4B20286E6F7720696E205465726D206D6F6465290D0A001B4D0D07425245414B206B6579202D000D2020584D445057 161 DATA389D0F36202D2D2D2D20586D6F64656D2050726F6772616D205B382F32312F38385D0D0A20202028584D4450573520776974682044657669636520 162 DATA38490846696C6520537570706F7274290D0A20202020202020202020202020202D2D2D2D2D2D2D2D2D0D0A00000000000000000000000000000000 163 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 164 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 165 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 166 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 167 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 168 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 169 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 170 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 171 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 172 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 173 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 174 DATA2E000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 175 DATA00