home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / xmdpw6.200 < prev    next >
Text File  |  2006-10-19  |  11KB  |  99 lines
  1. 0 'XMDPW6.200 -- Loader for XMDPW6.CO in Tandy 200; Macros fixed
  2. 1 'Phil Wheeler -- 71266,125 [8/23/88]
  3. 2 GOSUB99
  4. 3 PRINT@42,"Enter end address";:PRINT@82,"<ENTER> for just below current HIMEM"
  5. 4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E
  6. 5 IFB>=MAXRAM-ETHENBEEP:GOTO4ELSECLEAR256,B:B=HIMEM:GOSUB99
  7. 6 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@48,"Line";:PRINT@88,"Address";
  8. 7 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO7
  9. 8 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256
  10. 9 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO7
  11. 40 SAVEM"XMDPW6",B,C,D:MENU
  12. 50 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN55
  13. 51 IFU>16THENU=U-16:O=1ELSEO=0
  14. 52 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN55
  15. 53 K=(U-1)*16+V-1:RETURN
  16. 55 BEEP:PRINT@165,"Bad character";:END
  17. 60 IFM<N*2+5THEN70
  18. 61 IFL<>RTHENBEEP:PRINT@165,"Checksum fail";:END
  19. 62 READY:M=1:GOSUB50:IFK=0THEN40
  20. 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
  21. 70 M=M+2:GOSUB50:R=R+K:RETURN
  22. 99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=4189:D=0:RETURN
  23. 100 DATA383E1A003E01CDE19BCD4A4C21L00DCD9E67CD634F21PF00CDC44FC3V300E12CCDD239CD4D4FC3L302CDR4093A0BEFFE00C2634FCD5E4FC30886CD
  24. 101 DATA388817454F21PF00CD206ECD4B71CDPB08CDO50821J7002234EF21M700CD9E67CDF654D7A7CAK00011N400CDED83CAJ700C9584D44636F6D6D616E
  25. 102 DATA384F12643A200053544154UC005445524DJD0243414C4CQ80146494E44RD014D454E55A46746494C45SB0046524545T100FF46696E64208043616C
  26. 103 DATA386E146C208053746174208046696C658D467265658D805465726D8D4D656E758D4A52433337CDGE04C3K000CDG504C3K00053657269616C20506F
  27. 104 DATA388B157274205374617475733A20002BD73C3DC2J80121T700CD9E67213CEF06077EE72305C2VE003E2CE73A44EFA73E4FCAH3013E41E73E2CE73A
  28. 105 DATA38FA15F4EEA7C2I4013E54E7C3K0000F3E3298E721J201CD1735C3K000302070707300DAK901FE2CCAL501CD1410FE4DC2J70023CD1D19CDB5872B
  29. 106 DATA384C19D7A7CAK000CF2C2BD7FE2CCAN301CD1410FE41CAMB01D64FC2J7003244EFD7A7CAK000CF2C2BD7CAO501CD1410D654C2J700C3P301CD5811
  30. 107 DATA384A1BFE14CAP301D60AC2J7003C32F4EEC3K000214261CDF66DD1CDV401CAJ700EBF637E5214261DCF66DE1CD2B62DAJ700C2K000C3L30297CD5C
  31. 108 DATA38851C71E5CD4A6ECAJ700CD8C6EEBE1CD4270D2J700E5D5CD7471CDV401C4G202CD3E4FCDI402CAJ700FE43CAP901D1CD7670E1C3SD01CDH802C8
  32. 109 DATA38001BE7FE3A13C2V401C3HE02CDH802C8FE3CCAH302FE3AC8E713C3G202E73E3EE7C9CD7D701B1AC8FE1ACAJ700C9D5213371CD206ECDB770F521
  33. 110 DATA38251EPF00CD206ECD6B71F1FE51D1C9213BEFD7D4A841F5CD1D19F13FDCE761DAQ403CDO5083E403232EF3266EFAF32H60B32F0F432F1F432EDFC
  34. 111 DATA38561E32EFFCCDFB533EFF32S60DCDID09CDG809CDBE64CDD064CDDC64CDC74FCD684FCD557121J1032234EF3AF2FCCD6C86DCFB66A7CAQ9023AF0
  35. 112 DATA38DD1BFC21C4F0AE0FDCDC64CD2214CD4567C2RE02CD0414CATB02CDF712DAJE0347DAJE03FE80D4N609F5CDL20AF1A7C42267DAI4033A39EFA778
  36. 113 DATA38C11ACC055ACD0885CAO802CD198547DAO802FE7FC2V6023A3CEFFE3AD2O80278E721EDFC7E70FE1B78C2HB03FE49C2HB033AF0F4A7C2HB030608
  37. 114 DATA38DE187ECD43862305C2H0033E49CD5264CD6266C3O802AF32F0FCCD698BDAI803C3O802CD454FAF323AEFCDD064C3O8025F16FF2ASA0D19197E23
  38. 115 DATA386B19666F11O802D5E9O903S008TA08B864CA64I600RC03N503507265F6446F77EE2055F0808080586D6FE4204279E5219367CDR608FE59CAQ403
  39. 116 DATA38F91A217E67CD9E67C3O8023A0AEFB7CA9D643A0DFD1FD29D6421H60B347E1FD2C74F3FC3MC0AAF3232EF6F6722F0F4CDB587CD6D4FCDBA61CD51
  40. 117 DATA38CA1877C3GF00CDRC093AF0F4B7C4T40821G50422SA0D21TB03CD206E3AS60DCDHF04C3O202507265F653656EE4526563F646696CE5467265E580
  41. 118 DATA38A416804E6F72EDO903I804T405GE04G504I600H404N602CD3E4FCDFD9AC33E4FCD3E4FC32A2ACDRC093AS60DEEFF32S60D11D4F021O80CC3E564
  42. 119 DATA38811321V9082234EFE521H80BCDR608A7C83E01CDN007210000223FF7CDN20821K40BCD9E67AF32S40D32S30D21010022RA0DC3N4043AS30D3C32
  43. 120 DATA384F1AS30DFE0BD021MD0BCD9E67CDSA07CDL208CAOA0721FDFF2B7DB4CALB04010C00CDQE07CD0885CAN704E5CD1985E1C2N704DAOA07FE15C2PD
  44. 121 DATA38311604AFC3Q404FE43C2N7043EFFCDHC04AF32S30D3E01CD7E5B0E8021TC0FCD365D77230DC2R504210000223FF73AS30D3C32S30DFE0BD0CDL2
  45. 122 DATA38081608CAOA07CDT6070E01CDQ9073ARA0D4F2FF5CDQ907F1CDPC07AF32S20D21000022S70D21TC0FEB0E801AFE1AC2G20532S40D473AS40DB7CA
  46. 123 DATA380717GC05061A78CDP007CDPC07130DC2V9043AS60DB7C2I8053AS20DCDPC07C3J3052AS70D7CCDPC077DCDPC0701FDFFCD0885CAL705C5CD1985
  47. 124 DATA38AD17C1FE06CAM905FE15C2L70521Q70BCD9E67CDSA07C3S4040B79B0C2J60521O90BCD9E67CDSA07C3S4043AS40DB7C2O4052AS00D1180001922
  48. 125 DATA387718S00D2ARA0D2322RA0DC3Q704AF32S30D3AS30D3C32S30DFE0BC8CDL208CAOA070E04CDQ90701FDFFCD0885CAR005C5CD1985C1FE06CASA05
  49. 126 DATA387218C5016400CDQE07C10B79B0C2Q00521S50BCD9E67CDSA07C3O805E121TF0BCD9E67C3H40921V3082234EFE521IB0BCDR608A7C83E02CDN007
  50. 127 DATA381013CD622C210000223FF721010022RA0DAF32S40D3D32S90DCDN20821HC0CCD9E6721JD0C0E153AS60DB7CAH90621L20C0E43C5CD9E67C1CDQ9
  51. 128 DATA384D1707AF32S30D3AS50DB7C2J006AF32S40D3AS30D3C32S30DFE0BD0FE07DAL7063AS90D473AS60DA0CAL706AF32S60D21M70CCD9E67C3V105CD
  52. 129 DATA386913L208CAOA07AF32S20D21000022S70DCDHF08C2J207FE04CAM307FE01C2IC07AF32S90DCDHF08C2J2075F3ARA0DBBC2IC07CDHF08C2J2072F
  53. 130 DATA38B915BBC2IC0716001E8021TC0FCDHF08C2J20777CDP007FE1AC2QD0632S40D3AS40DB7C2R50614231DC2PB063AS60DB7CATB060E02C5CDHF08C1
  54. 131 DATA381515C2J207CDP0070DC2S306CDI209C2I607C3U906CDHF08C2J207473AS20DB8C2I0077AB7CAGA074F0600C53E01CD7E5BC121TC0F7ECD055A23
  55. 132 DATA38BA110DC2VB06210000223FF7CDGA08CDHA082ARA0D2322RA0D3AS40D32S50DC3I10621UD0CC3J50721G40DC3J50721Q80CC3J50721P00CCD9E67
  56. 133 DATA38EB15CDSA07CDM4080E153AS90D473AS60DA0CAKD070E43CDQ907C3I50621SB0CCD9E672ARE0DEB2ARC0DCDB42AE1CDHA0821HB0DCD9E67C3H409
  57. 134 DATA38241DF5CD432DCDCA5AC2NC0716F87A32R90D210700F15F3E01C3D15B21K00DC3VC08F5E521S20D8677E1F1C3L809F5C5D5E54FCDQ907E1D1C1F1
  58. 135 DATA38071EC9C5C5C34F86F50B79B0C2QF07F1C9E56F2600CDS007E1C9F5C5D5CD0B47D1C1F1C9F53AS30DCDR707CD3E4FF1C921TC07C3GD080D1B4D20
  59. 136 DATA38BD11202053656E64696E6720626C6F636B202320000D1B4D2020526563656976656420626C6F636B2023200021V307CD9E672ARA0DCDS0073E0D
  60. 137 DATA38B517E7C90E06C3Q907010F00D5E5C501050DC5CD0885CAJA08CD1985C2JA08C1C1E1D1C9010A00CDQE07C10B79B0C2I808C10B79B0C2I4080DE1
  61. 138 DATA387818D1C9CD318BCAM108CDF712FE03C8FE18C8AF3DC9010100CDI208C0CDL208C8C3M40821T40DC3NB0821SC0D7EFE4DC21D1923C31D1921SC0D
  62. 139 DATA38EB13113CEF1A32T40D010700C3QB08384E31444E4EAF32T30D32TB0D21T50D11P50801060079B0C81A7713230BC3QB08CD9E67CDF054D7C31410
  63. 140 DATA38C21CCD622C3AF0F4EEFF32F0F4CAT40821U008C31966CD426EC3647721UD08C31A65AF32F0F4CD426E217567C3VC08216667C3VC0821JC0BC3VC
  64. 141 DATA389B160821I60BCD9E67217E67CD1735C3H40921LF0322SA0D21LF03C3206E3E01CDF75BCDN808CD622CC3O802E52AS70D7CB5E1C83EFFC921TC0D
  65. 142 DATA38EB140E00EB21000079C50608AC6729D2K8093E10AC673E21AD6F05C2JC09C1EB72247325230CC2J209C9F5C5D5E52AS70DEB0600AA4F21TC0D09
  66. 143 DATA38FD1C7EAB57245EEB22S70DE1D1C1F1C9F511QA093E0ACD4F6ECAQ409CD8C6EF14F7EFE1ACAQ509B923C2O7097EFE1ACAQ809FE80D2Q809CD4386
  67. 144 DATA38801723C3P209F1CD454FAFC9584D444D41432E444F003A0DFD1FD0C3S4093A0DFD1FD0C3T309CDGE0ACDBF832100002234EFC39583CDGE0ACD3E
  68. 145 DATA38CF174F21U9092234EF21D471CD206EAF3232EFC4454FCD4B7121C471CD1735CDF054D7CAHB00CD732DE521000022D2EF3E0121HB00C32773CD4D
  69. 146 DATA3847124F21I50ACD17352E000EC0CD2A2ACD3E4FCDFD9AC91B70444952414343203130302020436F707972696768742031393835204875676F2046
  70. 147 DATA38F014657272657972611B7100473A0AEFB7C82AH60B7D1FD05C781600FE0DCAMC0AFE15C2O10A21UE0A0627E536202305C2N20AE17832H70BC3SE
  71. 148 DATA3883150A21UE0A19FE08C2P30A1DF836202B7BC3NB0AFE09C2S80A0E083E20CDQ60A0DC2PA0AC3SE0A77237B3CFE27D2R40A5F32H70BC921UE0A54
  72. 149 DATA38D5145D2306267E12231305C2RC0A2B1E26C9FE20D8CDQ60A36E92A06EFE52110012206EFCD6D4FAF32H50B21UE0ACDCC11E12206EFC3684F0000
  73. 150 DATA3825050000000000000000000000000000000000000000000000000000000000000000000000000000000046696C6520746F2073656E6420005365
  74. 151 DATA383D126E640046696C6520746F2072656365697665200052656365697665000D0A46696C6520666F756E64202D20526561647920746F2073656E64
  75. 152 DATA38F50E0D0A77616974696E672E2E2E001B4D0D0709496E697469616C204E414B2074696D656F7574202320001B4D0D0709426C6F636B2041434B2F
  76. 153 DATA38E20E4E414B2074696D656F7574202320001B4D0D0709426C6F636B204E414B6B6564202D20726573656E64202320001B4D0D070946696E616C20
  77. 154 DATA38B20F41434B2074696D656F7574202320000D0A0A072053656E64204F4B20286E6F7720696E205465726D206D6F6465290D0A0046696C65206578
  78. 155 DATA389F1069737473202D2045726173652028592F4E2920000D0A46696C65206F70656E202D20726561647920746F20726563656976650D0A00436865
  79. 156 DATA382210636B73756D20696E206566666563740D0A00202020202043524320696E206566666563740D0A001B4D0D09537769746368696E6720746F20
  80. 157 DATA380A10636865636B73756D206D6F64650D0A0043524320436B536D1B4D0D0709526563656976652074696D656F7574202320001B4D0D0742616420
  81. 158 DATA381512686561646572207265636569766564202D207265747279202320000D0A074F7574206F66206D656D6F7279202D2066696C652064656C6574
  82. 159 DATA38370C65640D0A001B4D0D0709436865636B73756D206572726F72202320001B4D0D07092020202020435243206572726F72202320000D0A0A0720
  83. 160 DATA38410F52656365697665204F4B20286E6F7720696E205465726D206D6F6465290D0A001B4D0D07425245414B206B6579202D000D2020584D445057
  84. 161 DATA389D0F36202D2D2D2D20586D6F64656D2050726F6772616D205B382F32312F38385D0D0A20202028584D4450573520776974682044657669636520
  85. 162 DATA38490846696C6520537570706F7274290D0A20202020202020202020202020202D2D2D2D2D2D2D2D2D0D0A00000000000000000000000000000000
  86. 163 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  87. 164 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  88. 165 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  89. 166 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  90. 167 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  91. 168 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  92. 169 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  93. 170 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  94. 171 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  95. 172 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  96. 173 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  97. 174 DATA2E000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  98. 175 DATA00
  99.