0 'XMDPW5.200 -- Basic loader for XMDPW5.CO for the Tandy 200 [10/13/88] 1 ' 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=4182:D=0:RETURN 100 DATA38E1180021KB0DCD9E67CD634F21PA00CDC44FC3UE00E12CCDD239CD4D4FCD622CC3KE02CDQC093A0BEFFE00C2634FCD5E4FC30886CD454F21PA00 101 DATA382017CD206ECD4B71CDP508CDNF0821J2002234EF21M200CD9E67CDF654D7A7CAJB0011MF00CDED83CAJ200C9584D44636F6D6D616E643A200053 102 DATA38F312544154U7005445524DJ80243414C4CQ30146494E44R8014D454E55A46746494C45S60046524545SC00FF46696E64208043616C6C20805374 103 DATA3854146174208046696C658D467265658D805465726D8D4D656E758D4A52433337CDG904C3JB00CDG004C3JB0053657269616C20506F7274205374 104 DATA381417617475733A20002BD73C3DC2J30121T200CD9E67213CEF06077EE72305C2V9003E2CE73A44EFA73E4FCAGE013E41E73E2CE73AF4EEA7C2HF 105 DATA38F014013E54E7C3JB000F3E3298E721ID01CD1735C3JB00302070707300DAK401FE2CCAL001CD1410FE4DC2J20023CD1D19CDB5872BD7A7CAJB00 106 DATA380C19CF2C2BD7FE2CCAME01CD1410FE41CAM601D64FC2J2003244EFD7A7CAJB00CF2C2BD7CAO001CD1410D654C2J200C3OE01CD5811FE14CAOE01 107 DATA38921BD60AC2J2003C32F4EEC3JB00214261CDF66DD1CDUF01CAJ200EBF637E5214261DCF66DE1CD2B62DAJ200C2JB00C3KE0297CD5C71E5CD4A6E 108 DATA38701DCAJ200CD8C6EEBE1CD4270D2J200E5D5CD7471CDUF01C4VD01CD3E4FCDHF02CAJ200FE43CAP401D1CD7670E1C3S801CDH302C8E7FE3A13C2 109 DATA38E21AUF01C3H902CDH302C8FE3CCAGE02FE3AC8E713C3VD01E73E3EE7C9CD7D701B1AC8FE1ACAJ200C9D5213371CD206ECDB770F521PA00CD206E 110 DATA380020CD6B71F1FE51D1C9213BEFD7D4A841F5CD1D19F13FDCE761DAPF03CDNF083E403232EF3266EFAF32H10B32F0F432F1F432EDFC32EFFCCDFB 111 DATA38CE1D533EFF32RF0DCDI209CDG209CDBE64CDD064CDDC64CDC74FCD684FCD557121IC032234EF3AF2FCCD6C86DCFB66A7CAQ4023AF0FC21C4F0AE 112 DATA38351A0FDCDC64CD2214CD4567C2R902CD0414CAT602CDF712DAJ90347DAJ903FE80D4MB09F5CDKD0AF1A7C42267DAHF033A39EFA778CC055ACD08 113 DATA38D51A85CAO302CD198547DAO302FE7FC2V1023A3CEFFE3AD2O30278E721EDFC7E70FE1B78C2H603FE49C2H6033AF0F4A7C2H60306087ECD438623 114 DATA38F21705C2GB033E49CD5264CD6266C3O302AF32F0FCCD698BDAI303C3O302CD454FAF323AEFCDD064C3O3025F16FF2AS30D19197E23666F11O302 115 DATA38411AD5E9O403RA08T408B864CA64I100R703N003507265F6446F77EE2055F0808080586D6FE4204279E5219367CDR008FE59CAPF03217E67CD9E 116 DATA38871A67C3O3023A0AEFB7CA9D643A0DFD1FD29D6421H10B347E1FD2C74F3FC3M70AAF3232EF6F6722F0F4CDB587CD6D4FCDBA61CD5177C3G700CD 117 DATA384619R4093AF0F4B7C4SE0821G00422S30D21T603CD206E3ARF0DCDHA04C3ND02507265F658736EE4587263F646696CE5467265E580804E6F72ED 118 DATA383015O403I304S805G904G004I100GF04N102CD3E4FCDFD9AC33E4FCD3E4FC32A2ACDR4093ARF0DEEFF32RF0D11D4F021O30CC3E56421V3082234 119 DATA387519EFE521H30BCDR008A7C832F4F4CD432DCDCA5AC0CDAC2B22R50DEB22R70D22R90D218967CA9E67CDMC0821JF0BCD9E67AF32RD0D32RC0D21 120 DATA384817010022R30DC3O1043ARC0D3C32RC0DFE0BD021M80BCD9E67CDS407CDKC08CAO40721FDFF2B7DB4CAM804010C00CDQ807CD0885CAO404E5CD 121 DATA38E5181985E1C2O404DAO407FE15C2QA04AFC3R104FE43C2O4043EFFCDH704AF32RC0D3ARC0D3C32RC0DFE0BD0CDKC08CAO407CDT0070E01CDQ307 122 DATA388F153AR30D4F2FF5CDQ307F1CDP607AF32RB0D21000022S00D2AR90DEB0E801AFE1AC2V60432RD0D473ARD0DB7CAG005061A78CDOA07CDP60713 123 DATA3857180DC2UD043ARF0DB7C2HC053ARB0DCDP607C3I7052AS00D7CCDP6077DCDP60701FDFFCD0885CAKB05C5CD1985C1FE06CALD05FE15C2KB0521 124 DATA383A16Q20BCD9E67CDS407C3R8040B79B0C2IA0521O40BCD9E67CDS407C3R8043ARD0DB7C2N8052AR90D1180001922R90D2AR30D2322R30DC3R404 125 DATA385D19AF32RC0D3ARC0D3C32RC0DFE0BC8CDKC08CAO4070E04CDQ30701FDFFCD0885CAQ405C5CD1985C1FE06CARE05C5016400CDQ807C10B79B0C2 126 DATA38D219P40521S00BCD9E67CDS407C3NC05E121TA0BCD9E67C3GE0921UD082234EFE521I60BCDR008A7C832F4F4CD432DCDCA5AC0CD7C2D22R70D22 127 DATA38FA15R90DEB22R50DD2G80621VC0BCDR008FE59C021U105E52AR70DEB2AR50DCDB42A21010022R30DAF32RD0D3D32S20DCDMC0821H70CCD9E6721 128 DATA384016J80C0E153ARF0DB7CAJ00621KD0C0E43C5CD9E67C1CDQ307AF32RC0D3ARE0DB7C2K706AF32RD0D3ARC0D3C32RC0DFE0BD0FE07DAME063AS2 129 DATA3876140D473ARF0DA0CAME06AF32RF0D21M20CCD9E67C3G806CDKC08CAO407AF32RB0D21000022S00DCDH908C2K607FE04CAN707FE01C2K007AF32 130 DATA38BF14S20DCDH908C2K6075F3AR30DBBC2K007CDH908C2K6072FBBC2K00716001E8021T50FCDH908C2K60777CDOA07FE1AC2S40632RD0D3ARD0DB7 131 DATA383615C2SC0614231DC2R2063ARF0DB7CAV2060E02C5CDH908C1C2K607CDOA070DC2TA06CDH709C2JA07C3G007CDH908C2K607473ARB0DB8C2J407 132 DATA38D2157AB7CAHE074F06002AR90DC5E5CDA882E1C1DAM70711T50FCDQ50822R90DCDG408CDH4082AR30D2322R30D3ARD0D32RE0DC3J80621U80CC3 133 DATA389214K90721VF0CC3K90721Q30CC3K90721OB0CCD9E67CDS407CDLE080E153AS20D473ARF0DA0CAM1070E43CDQ307C3JC0621S60CCD9E672AR70D 134 DATA389A1DEB2AR50DCDB42AE1CDH40821H60DCD9E67C3GE0921JB0DC3V608F5E521RB0D8677E1F1C3KD09F5C5D5E54FCDQ307E1D1C1F1C9C5C5C34F86 135 DATA38C11BF50B79B0C2Q907F1C9E56F2600CDRA07E1C9F5C5D5CD0B47D1C1F1C9F53ARC0DCDR107CD3E4FF1C921T607C3G7080D1B4D20202053656E64 136 DATA380A13696E6720626C6F636B202320000D1B4D2020526563656976656420626C6F636B2023200021UD07CD9E672AR30DCDRA073E0DE7C90E06C3Q3 137 DATA38541807010F00D5E5C501050DC5CD0885CAJ408CD1985C2J408C1C1E1D1C9010A00CDQ807C10B79B0C2I208C10B79B0C2HE080DE1D1C9CD318BCA 138 DATA38AD16LB08CDF712FE03C8FE18C8AF3DC9010100CDHC08C0CDKC08C8C3LE0821SD0DC3N50821S50D7EFE4DC21D1923C31D1921S50D113CEF1A32SD 139 DATA38E1140D010700C3Q508384E31444E4EAF32SC0D32T40D21SE0D11OF0801060079B0C81A7713230BC3Q508CD9E67CDF054D7C31410CD622C3AF0F4 140 DATA38E01AEEFF32F0F4CASE0821TA08C31966CD426EC3647721U708C31A65AF32F0F4CD426E217567C3V608216667C3V60821J70BC3V60821I10BCD9E 141 DATA385A1567217E67CD1735C3GE0921LA0322S30D21LA03C3206ECDN208CD622CC3O302E52AS00D7CB5E1C83EFFC921T50D0E00EB21000079C50608AC 142 DATA3838176729D2JD093E10AC673E21AD6F05C2J109C1EB72247325230CC2I709C9F5C5D5E52AS00DEB0600AA4F21T50D097EAB57245EEB22S00DE1D1 143 DATA385E1CC1F1C9F5CD622C11Q2093E0ACD4F6ECAPC09CD8C6EF14F7EFE1ACAPD09B923C2NF097EFE1ACAQ009FE80D2Q009CD438623C3OA09F1CD454F 144 DATA384D16AFC9584D444D41432E444F003A0DFD1FD0C3RC093A0DFD1FD0C3SB09CDG60ACDBF832100002234EFC39583CDG60ACD3E4F21U1092234EF21 145 DATA38B917D471CD206EAF3232EFC4454FCD4B7121C471CD1735CDF054D7CAH300CD732DE521000022D2EF3E0121H300C32773CD622CCD4D4F21I00ACD 146 DATA38021317352E000EC0CD2A2ACD3E4FCDFD9AC91B70444952414343203130302020436F707972696768742031393835204875676F20466572726579 147 DATA38DD1372611B7100473A0AEFB7C82AH10B7D1FD05C781600FE0DCAM70AFE15C2NC0A21U90A0627E536202305C2MD0AE17832H20BC3S90A21U90A19 148 DATA384415FE08C2OE0A1DF836202B7BC3N60AFE09C2S30A0E083E20CDQ10A0DC2P50AC3S90A77237B3CFE27D2QF0A5F32H20BC921U90A545D2306267E 149 DATA38971312231305C2R70A2B1E26C9FE20D8CDQ10A36E92A06EFE52110012206EFCD6D4FAF32H00B21U90ACDCC11E12206EFC3684F00000000000000 150 DATA38A606000000000000000000000000000000000000000000000000000000000000000000000046696C6520746F2073656E64200053656E64004669 151 DATA3814126C6520746F2072656365697665200052656365697665000D0A46696C6520666F756E64202D20526561647920746F2073656E640D0A776169 152 DATA380B0F74696E672E2E2E001B4D0D0709496E697469616C204E414B2074696D656F7574202320001B4D0D0709426C6F636B2041434B2F4E414B2074 153 DATA38D70E696D656F7574202320001B4D0D0709426C6F636B204E414B6B6564202D20726573656E64202320001B4D0D070946696E616C2041434B2074 154 DATA383210696D656F7574202320000D0A0A072053656E64204F4B20286E6F7720696E205465726D206D6F6465290D0A0046696C652065786973747320 155 DATA38DF102D2045726173652028592F4E2920000D0A46696C65206F70656E202D20726561647920746F20726563656976650D0A00436865636B73756D 156 DATA38FD0F20696E206566666563740D0A00202020202043524320696E206566666563740D0A001B4D0D09537769746368696E6720746F20636865636B 157 DATA38031073756D206D6F64650D0A0043524320436B536D1B4D0D0709526563656976652074696D656F7574202320001B4D0D07426164206865616465 158 DATA38FE1072207265636569766564202D207265747279202320000D0A074F7574206F66206D656D6F7279202D2066696C652064656C657465640D0A00 159 DATA383F0D1B4D0D0709436865636B73756D206572726F72202320001B4D0D07092020202020435243206572726F72202320000D0A0A07205265636569 160 DATA385B0E7665204F4B20286E6F7720696E205465726D206D6F6465290D0A001B4D0D07425245414B206B6579202D000D584D445057352E323030202D 161 DATA38C41020586D6F64656D2050726F6772616D205B31302F31332F38385D0D0A202077697468204449524143432C2053706C697453637265656E2026 162 DATA380806204D6163726F730D0A20202020202020202020202020202D2D2D2D2D2D2D2D2D0D0A00000000000000000000000000000000000000000000 163 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 164 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 165 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 166 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 167 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 168 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 169 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 170 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 171 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 172 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 173 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 174 DATA270000000000000000000000000000000000000000000000000000000000000000000000000000000000 175 DATA00