home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / xmdpw6.100 < prev    next >
Text File  |  2006-10-19  |  11KB  |  104 lines

  1. 0 'XMDPW6.100 -- Relocating BA loader to create XMDPW6.CO in the 100/102.
  2. 1 'Update/Enhancement of 7/10/88. Phil Wheeler -- 71266,125
  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=4469:D=0:RETURN
  23. 100 DATA387A17003E01CD2B7FCD2F3F21ME0ECD9157CD444221PF00CDA542C3V400E12CCD632CCD3142C3GD02CDLD093A3EF6FE00C24442CD3F42C30B6ECD
  24. 101 DATA38DA15294221PF00CD7C5ACD535DCDK408CDJ00821J7002252F621M700CD9157CD4446D7A7CAK00011N400CDA76CCAJ700C9584D44636F6D6D616E
  25. 102 DATA386212643A200053544154UD005445524DV70143414C4CM20146494E44N7014D454E55975746494C45SC0046524545T200FF46696E64208043616C
  26. 103 DATA387C156C208053746174208046696C65738D467265658D805465726D8D4D656E758D4A52433337CDP403C3K000CDOB03C3K00053657269616C2050
  27. 104 DATA3878156F7274205374617475733A20002BD73C3DC2I00121T800CD9157215BF606057EE72305C2VF003E2CE73A2BF60F3E3298E721HA01CDB127C3
  28. 105 DATA386917K000302070707300DAJ101FE2CCAJD01CDE90FFE4DC2J70023CDE617CDCB6E2BD7A7CAK000CF2CCD2E11FE14CAKD01D60AC2J7003C322BF6
  29. 106 DATA38A41BC3K000214452CD585AD1CDQE01CAJ700EBF637E5214452DC585AE1CD2D53DAJ700C2K000C3GD0297CDB15DE5CDA65ACAJ700CDE35AEBE1CD
  30. 107 DATA38291D3F5CD2J700E5D5CDC55DCDQE01C4RC01CD2242CDTE01CAJ700FE43CAL301D1CD6D5CE1C3O701CDT201C8E7FE3A13C2QE01C3T801CDT201C8
  31. 108 DATA380C1EFE3CCASD01FE3AC8E713C3RC01E73E3EE7C9CD745C1B1AC8FE1ACAJ700C9D5212B5DCD7C5ACDAE5CF521PF00CD7C5ACDBC5DF1FE51D1C921
  32. 109 DATA388E1D5AF6D7D45734F5CDE617F13FDCE452DAIA03CDJ0083E403250F6327BF6AF32RF0A32C2FA32C3FACDD3453EFF32U20ECDT608CDR108CD4455
  33. 110 DATA389619CD5655CD6255CDA842CD4942000000CD5D5D21QD022252F63A42FFA7CALA023A40FF21D9F7AE0FDC6255CDDB13CAO002CDCB12DARA02473A
  34. 111 DATA38761E58F6A778CC444BFE80D4HF09F5CDVB09F1A7C4326EDAQ002CD6D6DCAJF02CD7E6DDAJF02F5E67FE7F1473A59F6A778C4554BCDC556C3JF02
  35. 112 DATA38F514AF3240FFCD9F72DAQ402C3JF02CD2942AF3259F6CD5655C3JF025F16FF2AU60E19197E23666F11JF02D5E9GF03G503O3083E555055I600K2
  36. 113 DATA38061903V102507265F6446F77EE2055F0808080586D6FE4204279E5218657CDLF08FE59CAIA03217157CD9157C3JF023A99FF1FD2M908C3S10A3A
  37. 114 DATA38BD1A3DF6B7CA23553A99FF1FD2235521RF0A347E1FD2AB423FC3H50AAF3250F66F6722C2FACDCB6ECD4E42CDBB52CD7063C3GF00CDM5093AC2FA
  38. 115 DATA38FC17B7C4ND0821OB0322U60E21M103CD7C5A3AU20ECDQF03C3J602507265F653656EE4526563F646696CE5467265E580804E6F72EDGF03PA03M7
  39. 116 DATA38871705P403OB03I600Q403IA02CD2242CDAC7EC32242CD2242C33A1F3A99FF1FD2R803C3S10ACDM5093AU20EEEFF32U20E11E9F721Q60DC36B55
  40. 117 DATA38BF1321Q2082252F6E521V60BCDLF08A7C83E01CDH407CDI707210000228CFCCDHD0821I20CCD9157AF32U00E32TF0E21010022T60EC3G7043ATF
  41. 118 DATA3813190E3C32TF0EFE0BD021O70CCD9157CDN507CDVD07CAJ30721FDFF2B7DB4CAUE03010C00CDL607CD6D6DCAGA04E5CD7E6DE1C2GA04DAJ307FE
  42. 119 DATA38BA1515C2J004AFC3J704FE43C2GA043EFFCDQC03AF32TF0E3E01CDBF4C0E8021V410CD7A4E77230DC2K804210000228CFC3ATF0E3C32TF0EFE0B
  43. 120 DATA389D16D0CDVD07CAJ307CDO1070E01CDL2073AT60E4F2FF5CDL207F1CDK507AF32TE0E21000022U30E21V410EB0E801AFE1AC2P50432U00E473AU0
  44. 121 DATA38F7170EB7CAPF04061A78CDJ907CDK507130DC2OC043AU20EB7C2RB043ATE0ECDK507C3S6042AU30E7CCDK5077DCDK50701FDFFCD6D6DCAUA04C5
  45. 122 DATA382519CD7E6DC1FE06CAVC04FE15C2UA0421S10CCD9157CDN507C3L7040B79B0C2S90421Q30CCD9157CDN507C3L7043AU00EB7C2H7052ATC0E1180
  46. 123 DATA388317001922TC0E2AT60E2322T60EC3JA04AF32TF0E3ATF0E3C32TF0EFE0BC8CDVD07CAJ3070E04CDL20701FDFFCD6D6DCAK305C5CD7E6DC1FE06
  47. 124 DATA38CD16CALD05C5016400CDL607C10B79B0C2J30521TF0CCD9157CDN507C3HB05E121V90CCD9157C3RD0821PC082252F6E521G90CCDLF08A7C83E02
  48. 125 DATA389517CDH4073AT40EFEF8C2P905D5CDA020D1CAP905D5CD294221HB0DCDLF08FE59D1C0CDI707CD4621210000228CFC21010022T60EAF32U00E3D
  49. 126 DATA38381632U50ECDHD0821JA0DCD915721LB0D0E153AU20EB7CASD0521N00D0E43C5CD9157C1CDL207AF32TF0E3AU10EB7C2U405AF32U00E3ATF0E3C
  50. 127 DATA38C31732TF0EFE0BD0FE07DAGB063AU50E473AU20EA0CAGB06AF32U20E21O50DCD9157C3Q505CDVD07CAJ307AF32TE0E21000022U30ECDSA07C2U6
  51. 128 DATA38071A06FE04CAG707FE01C2U006AF32U50ECDSA07C2U6065F3AT60EBBC2U006CDSA07C2U6062FBBC2U00616001E8021V410CDSA07C2U60677CDJ9
  52. 129 DATA38D31707FE1AC2M10632U00E3AU00EB7C2M90614231DC2KF063AU20EB7CAOF060E02C5CDSA07C1C2U606CDJ9070DC2N706CDSB08C2TA06C3PD06CD
  53. 130 DATA38B517SA07C2U606473ATE0EB8C2T4067AB7CARE064F0600C53E01CDBF4CC121V4107ECD444B230DC2QF06210000228CFCCDR507CDS5072AT60E23
  54. 131 DATA38801422T60E3AU00E32U10EC3T50521GB0EC3U90621I20EC3U90621S60DC3U90621QE0DCD9157CDN507CDGF080E153AU50E473AU20EA0CAG1070E
  55. 132 DATA38941643CDL207C3T905E121J90ECD9157CDS507C3RD0832T50ECDFA21CD0B4CC2I20716F87A32T40EC92107003AT50E5F3E01C3124D21LE0EC3Q5
  56. 133 DATA38671F08F5E521TE0E8677E1F1C3G109F5C5D5E54FCDL207E1D1C1F1C9C5C33A6EF50000000B79B0C2L707F1C9E56F2600CDMB07E1C9F5C5D5CDD4
  57. 134 DATA38BB1439D1C1F1C9F53ATF0ECDM207CD2242F1C921O707C3R8070D1B4D20202053656E64696E6720626C6F636B202320000D1B4D20205265636569
  58. 135 DATA38EA1576656420626C6F636B2023200021PE07CD91572AT60ECDMB073E0DE7C90E06C3L207010F00D5E5C501050DC5CD6D6DCAU507CD7E6DC2U507
  59. 136 DATA38981CC1C1E1D1C9010A00CDL607C10B79B0C2T307C10B79B0C2SF070DE1D1C9CD7072CAGC08CDCB12FE03C8FE18C8AF3DC9010100CDSD07C0CDVD
  60. 137 DATA38981407C8C3GF0821UE0EC3I60821U80E7EFE4DC2E61723C3E61721U80E115BF61A32UE0E010500C3L408384E3144AF32UD0E32V30E21UF0E11K0
  61. 138 DATA38C5190801040079B0C81A7713230BC3L408CD9157CD3E46D7C3E90FCD46213AC2FAEEFF32C2FACAND0821O908C38F56CD9E5AC3836321P608C3A0
  62. 139 DATA38B21655AF32C2FACD9E5A216857C3Q508215957C3Q50821HA0CC3Q50821G40CCD9157217157CDB127C3RD0821TB0222U60E21TB02C37C5A3E01CD
  63. 140 DATA38D317384DCDI308CD4621C3JF02E52AU30E7CB5E1C83EFFC921V40E0E00EB21000079C50608AC6729D2V1083E10AC673E21AD6F05C2U508C1EB72
  64. 141 DATA38111B247325230CC2TB08C9F5C5D5E52AU30EEB0600AA4F21V40E097EAB57245EEB22U30EE1D1C1F1C9F511L3093E0ACDAB5ACAKD09CDE35AF14F
  65. 142 DATA38DE187EFE1ACAKE09B923C2J0097EFE1ACAL109FE80D2L109CD326E23C3JB09F1CD6276AFC9584D444D41432E444F003A99FF1FD0C3MD093A99FF
  66. 143 DATA38C4171FD0C3NC09CDR709CD7F6C2100002252F6C34F6CCDR709CD224221P2092252F621225ECD7C5AAF3250F6C42942CD535D21155ECDB127CD3E
  67. 144 DATA387C1446D7CAHB00CD0622E521000022E7F63E0121HB00C3715FCD314221SE09CDB1272E000EC0CD3A1FCD2242CDAC7EC91B704449524143432031
  68. 145 DATA385F1330302020436F707972696768742031393835204875676F2046657272657972611B7100473A3DF6B7C82ARF0A7D1FD05C781600FE0DCAH50A
  69. 146 DATA38A412FE15C2IA0A21P70A0627E536202305C2HB0AE17832S00AC3N70A21P70A19FE08C2JC0A1DF836202B7BC3I40AFE09C2N10A0E083E20CDKF0A
  70. 147 DATA38CC130DC2K30AC3N70A77237B3CFE27D2LD0A5F32S00AC921P70A545D2306267E12231305C2M50A2B1E26C9FE20D8CDKF0A36E92A39F6E5210801
  71. 148 DATA38190A2239F6CD4E42AF32RE0A21P70ACDA211E12239F6C34942000000000000000000000000000000000000000000000000000000000000000000
  72. 149 DATA38CF1200000000000000000021O30B2252F6CD5D5DCD274ECD4621CD3142CD3A1F21S50BCD9157CD3E46D7CAN70B3E01CDH407CDI7073E01CDBF4C
  73. 150 DATA388419AF6F674FC5E5CD7A4EE1C1FE0DCAV40AFE0ACAV40AFE1ACAH30B5FAF5719894FC3V40A11V30BEB7323722371210000228CFC01UA0B21P20B
  74. 151 DATA38470E3E3002E511V30B1A961213231A9E1213231A9E12E10A3C02D2IB0B3D0211V30B1A861213231A8E1213231A8E120323AFBEC2I80B16043E30
  75. 152 DATA38E81621UA0BBEC2ME0B36202315C2M30B21U00BCD9157C3O60BCD3142C3GD0221D65CCD9157CD294221QB0BCD9157CD2F5FC3S10A80969840420F
  76. 153 DATA38590FA08601102700E803006400000A0000010000005461702053706163652042617220746F20636F6E74696E75650046696C6520746F20436865
  77. 154 DATA383F0E636B203C435220746F205465726D3E00436865636B73756D203D00000000000000000000000046696C6520746F2073656E64200053656E64
  78. 155 DATA3882110046696C6520746F2072656365697665200052656365697665000D0A46696C6520666F756E64202D20526561647920746F2073656E640D0A
  79. 156 DATA38DA0F77616974696E672E2E2E000D0A202020202043524320726571756573742052454345495645440D0A000D0A436865636B73756D2072657175
  80. 157 DATA38B10F6573742072656365697665640D0A001B4D0D0709496E697469616C204E414B2074696D656F7574202320001B4D0D0709426C6F636B204143
  81. 158 DATA38D00E4B2F4E414B2074696D656F7574202320001B4D0D0709426C6F636B204E414B6B6564202D20726573656E64202320001B4D0D070946696E61
  82. 159 DATA38610F6C2041434B2074696D656F7574202320000D0A0A072053656E64204F4B20286E6F7720696E205465726D206D6F6465290D0A0046696C6520
  83. 160 DATA382C12657869737473202D204F76657277726974652028592F4E2920000D0A46696C65206F70656E202D20726561647920746F2072656365697665
  84. 161 DATA38510F0D0A00436865636B73756D20696E206566666563740D0A00202020202043524320696E206566666563740D0A001B4D0D0953776974636869
  85. 162 DATA38C7106E6720746F20636865636B73756D206D6F64650D0A0043524320436B536D1B4D0D0709526563656976652074696D656F7574202320001B4D
  86. 163 DATA3822110D0742616420686561646572207265636569766564202D207265747279202320000D0A074F7574206F66206D656D6F7279202D2066696C65
  87. 164 DATA381D0E2064656C657465640D0A001B4D0D0709436865636B73756D206572726F72202320001B4D0D07092020202020435243206572726F72202320
  88. 165 DATA38D90D000D0A0A072052656365697665204F4B20286E6F7720696E205465726D206D6F6465290D0A001B4D0D07425245414B206B6579202D000D20
  89. 166 DATA38B90F584D44505736202D2D2D2D20586D6F64656D2050726F6772616D205B372F31302F38385D0D0A202028584D44505735207769746820446576
  90. 167 DATA387A096963652046696C6520537570706F7274290D0A202020202020202020202020202D2D2D2D2D2D2D2D2D0D0A00000000000000000000000000
  91. 168 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  92. 169 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  93. 170 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  94. 171 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  95. 172 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  96. 173 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  97. 174 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  98. 175 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  99. 176 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  100. 177 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  101. 178 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  102. 179 DATA2E000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  103. 180 DATA00
  104.