home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / xmodem.ba < prev    next >
Text File  |  2006-10-19  |  9KB  |  205 lines

  1. 0' I changed line 130 to read SAVEM"XMODEM",59392,59393,59392, this saves on memory.
  2. 1' However if you want to have other machien language programs in memory you must edit 130 to read: SAVEM"XMODEM",59392,62285,59392
  3. 5 'XMODEM Loader by Andrew McDonald 03/27/87 (c)Custom Software Systems Public Domain Software Div XMODEM.CO by JR Chenoweth
  4. 10 CLEAR256,59392
  5. 20 RESTORE
  6. 30 CLS:PRINT@90,"***Loading XMODEM***"
  7. 40 FORAD=59392TO62285
  8. 50 PRINT@170,USING"Loading  #####/62285";AD
  9. 60 IFST$=""THENREADST$
  10. 70 B$=LEFT$(ST$,2):ST$=MID$(ST$,3,50)
  11. 80 H$=LEFT$(B$,1):L$=RIGHT$(B$,1)
  12. 90 H=INSTR("0123456789ABCDEF",H$)-1
  13. 100 L=INSTR("0123456789ABCDEF",L$)-1
  14. 110 POKEAD,H*16+L
  15. 115 CS=CS+(H*16+L)
  16. 116 IFCS>255THENLETCS=CS-256
  17. 120 NEXT
  18. 125 CLOSE
  19. 126 IFCS<>48THENCLS:BEEP:BEEP:PRINT"Checksum Error!!!":CLEAR256,MAXRAM:END
  20. 128 A$="Menu"+CHR$(13)
  21. 129 FORI=1TOLEN(A$):POKE65449+2*I,ASC(MID$(A$,I)):POKE65450+2*I,0:NEXT:POKE65450,I-1
  22. 130 SAVEM"XMODEM",59392,59393,59392
  23. 1000 DATA"21F5F2CD9157CD4442217BE8CDA542C3"
  24. 1010 DATA"D0E8CD2942217BE8CD7C5ACD535DCDB4"
  25. 1020 DATA"EFCDA0EF2112E82252F62142E8CD9157"
  26. 1030 DATA"CD4446D7A7CA1BE81150E8CDA76CCA12"
  27. 1040 DATA"E8C954656C58636F6D6D616E643A2000"
  28. 1050 DATA"53544154C9E85445524DD3E943414C4C"
  29. 1060 DATA"3EE946494E4453E94D454E5597574649"
  30. 1070 DATA"4C45A8E846524545AEE8FF46696E6420"
  31. 1080 DATA"8043616C6C208053746174208046696C"
  32. 1090 DATA"65738D467265658D805465726D8D4D65"
  33. 1100 DATA"6E758D4A52433337CD3AEBC31BE8CD31"
  34. 1110 DATA"EBC31BE853657269616C20506F727420"
  35. 1120 DATA"5374617475733A20002BD73C3DC2FCE8"
  36. 1130 DATA"21B4E8CD9157215BF606057EE72305C2"
  37. 1140 DATA"DBE83E2CE73A2BF60F3E3298E721F6E8"
  38. 1150 DATA"CDB127C31BE8302070707300DA0DE9FE"
  39. 1160 DATA"2CCA19E9CDE90FFE4DC212E823CDE617"
  40. 1170 DATA"CDCB6E2BD7A7CA1BE8CF2CCD2E11FE14"
  41. 1180 DATA"CA29E9D60AC212E83C322BF6C31BE821"
  42. 1190 DATA"4452CD585AD1CD8AE9CA12E8EBF637E5"
  43. 1200 DATA"214452DC585AE1CD2D53DA12E8C21BE8"
  44. 1210 DATA"C3E9E997CDB15DE5CDA65ACA12E8CDE3"
  45. 1220 DATA"5AEBE1CD3F5CD212E8E5D5CDC55DCD8A"
  46. 1230 DATA"E9C498E9CD2242CDBAE9CA12E8FE43CA"
  47. 1240 DATA"2FE9D1CD6D5CE1C363E9CDAEE9C8E7FE"
  48. 1250 DATA"3A13C28AE9C3B4E9CDAEE9C8FE3CCAA9"
  49. 1260 DATA"E9FE3AC8E713C398E9E73E3EE7C9CD74"
  50. 1270 DATA"5C1B1AC8FE1ACA12E8C9D5212B5DCD7C"
  51. 1280 DATA"5ACDAE5CF5217BE8CD7C5ACDBC5DF1FE"
  52. 1290 DATA"51D1C9215AF6D7D45734F5CDE617F13F"
  53. 1300 DATA"DCE452DAD3EACDA0EF3E403250F6327B"
  54. 1310 DATA"F6AF32C2FA32C3FACDD3453EFF325AF3"
  55. 1320 DATA"CD38F0CD21F0CD4455CD5655CD6255CD"
  56. 1330 DATA"A842CD4942CD93EFCD5D5D217CEA2252"
  57. 1340 DATA"F63A42FFA7CA33EA3A40FF21D9F7AE0F"
  58. 1350 DATA"DC6255CDDB13CA4FEACDCB12DA89EA47"
  59. 1360 DATA"3A58F6A778CC444BA7C4326EDA6FEACD"
  60. 1370 DATA"6D6DCA18EACD7E6DDA18EAF5E67FE7F1"
  61. 1380 DATA"473A59F6A778C4554BCDC556C318EAAF"
  62. 1390 DATA"3240FFCD9F72DA73EAC318EACD2942AF"
  63. 1400 DATA"3259F6CD5655C318EA5F16FF2A5EF319"
  64. 1410 DATA"197E23666F1115EAD5E92355D9EFF3EF"
  65. 1420 DATA"3E5550551D55EBEABFEA507265F6446F"
  66. 1430 DATA"77EE2055F0808080586D6FE44279E521"
  67. 1440 DATA"8657CDCFEFFE59CAD3EA217157CD9157"
  68. 1450 DATA"C315EAAF3250F66F6722C2FACDCB6ECD"
  69. 1460 DATA"4E42CDBB52CD7063C306E83AC2FAB7C4"
  70. 1470 DATA"EDEF2131EB225EF32107EBCD7C5A3A5A"
  71. 1480 DATA"F3CD48EBC30FEA507265F653656EE452"
  72. 1490 DATA"6563F646696CE5467265E580804E6F72"
  73. 1500 DATA"ED235551EBE9EC3AEB31EB1D5540EB03"
  74. 1510 DATA"EACD2242CDAC7EC32242CD2242C33A1F"
  75. 1520 DATA"3A5AF3EEFF325AF311E9F7212DF2C36B"
  76. 1530 DATA"552112F02252F6E52181F0CDCFEFA7C8"
  77. 1540 DATA"32C6FACDFA21CD0B4CC0CD8F202250F3"
  78. 1550 DATA"EB2252F32254F3217C57CA9157CD8DEF"
  79. 1560 DATA"21ADF0CD9157AF3258F33257F3210100"
  80. 1570 DATA"224EF3C3AFEB3A57F33C3257F3FE0BD0"
  81. 1580 DATA"2112F1CD9157CDE5EECD6DEFCAA3EE21"
  82. 1590 DATA"FDFF2B7DB4CA96EB010C00CDC6EECD6D"
  83. 1600 DATA"6DCAB2EBE5CD7E6DE1C2B2EBDAA3EEFE"
  84. 1610 DATA"15C2D8EBAFC3DFEBFE43C2B2EB3EFFCD"
  85. 1620 DATA"45EBAF3257F33A57F33C3257F3FE0BD0"
  86. 1630 DATA"CD6DEFCAA3EECDF1EE0E01CDC2EE3A4E"
  87. 1640 DATA"F34F2FF5CDC2EEF1CDB5EEAF3256F321"
  88. 1650 DATA"0000225BF32A54F3EB0E801AFE1AC224"
  89. 1660 DATA"EC3258F3CDA9EECDB5EE130DC21BEC3A"
  90. 1670 DATA"5AF3B7C23FEC3A56F3CDB5EEC34AEC2A"
  91. 1680 DATA"5BF37CCDB5EE7DCDB5EE01FDFFCD6D6D"
  92. 1690 DATA"CA6EECC5CD7E6DC1FE06CA80ECFE15C2"
  93. 1700 DATA"6EEC214CF1CD9157CDE5EEC3E6EB0B79"
  94. 1710 DATA"B0C24DEC212EF1CD9157CDE5EEC3E6EB"
  95. 1720 DATA"3A58F3B7C29BEC2A54F3118000192254"
  96. 1730 DATA"F32A4EF323224EF3C3E2EBAF3257F33A"
  97. 1740 DATA"57F33C3257F3FE0BC8CD6DEFCAA3EE0E"
  98. 1750 DATA"04CDC2EE01FDFFCD6D6DCAC7ECC5CD7E"
  99. 1760 DATA"6DC1FE06CAE1ECC5016400CDC6EEC10B"
  100. 1770 DATA"79B0C2B7EC216AF1CD9157CDE5EEC39F"
  101. 1780 DATA"ECE12184F1CD9157C9210CF02252F6E5"
  102. 1790 DATA"2194F0CDCFEFA7C832C6FACDFA21CD0B"
  103. 1800 DATA"4CC0CD0F222252F32254F3EB2250F3D2"
  104. 1810 DATA"29ED21A6F1CDCFEFFE59C02102EDE52A"
  105. 1820 DATA"52F3EB2A50F3CDBE1F210100224EF3AF"
  106. 1830 DATA"3258F33D325DF3CD8DEF21C1F1CD9157"
  107. 1840 DATA"21E2F10E153A5AF3B7CA51ED21F7F10E"
  108. 1850 DATA"43C5CD9157C1CDC2EEAF3257F33A59F3"
  109. 1860 DATA"B7C268EDAF3258F33A57F33C3257F3FE"
  110. 1870 DATA"0BD0FE07DA8FED3A5DF3473A5AF3A0CA"
  111. 1880 DATA"8FEDAF325AF3210CF2CD9157C329EDCD"
  112. 1890 DATA"6DEFCAA3EEAF3256F3210000225BF3CD"
  113. 1900 DATA"3AEFC267EEFE04CA98EEFE01C261EEAF"
  114. 1910 DATA"325DF3CD3AEFC267EE5F3A4EF3BBC261"
  115. 1920 DATA"EECD3AEFC267EE2FBBC261EE16001E80"
  116. 1930 DATA"216CF5CD3AEFC267EE77CDA9EEFE1AC2"
  117. 1940 DATA"E5ED3258F33A58F3B7C2EDED14231DC2"
  118. 1950 DATA"D3ED3A5AF3B7CA13EE0E02C5CD3AEFC1"
  119. 1960 DATA"C267EECDA9EE0DC2FBEDCD2DF0C25BEE"
  120. 1970 DATA"C321EECD3AEFC267EE473A56F3B8C255"
  121. 1980 DATA"EE7AB7CA3FEE4F06002A54F3C5E5CD6D"
  122. 1990 DATA"6BE1C1DA88EE116CF5CDC4EF2254F3CD"
  123. 2000 DATA"25EFCD35EF2A4EF323224EF33A58F332"
  124. 2010 DATA"59F3C359ED2192F2C36AEE21A9F2C36A"
  125. 2020 DATA"EE214DF2C36AEE2135F2CD9157CDE5EE"
  126. 2030 DATA"CD7FEF0E153A5DF3473A5AF3A0CA82EE"
  127. 2040 DATA"0E43CDC2EEC35DED2170F2CD91572A52"
  128. 2050 DATA"F3EB2A50F3CDBE1FE121C0F2CD9157CD"
  129. 2060 DATA"35EFC921E5F2C315F0F5E52156F38677"
  130. 2070 DATA"E1F1C363F0F5C5D5E54FCDC2EEE1D1C1"
  131. 2080 DATA"F1C9C5C33A6EF50000000B79B0C2C7EE"
  132. 2090 DATA"F1C9E56F2600CDDBEEE1C9F5C5D5CDD4"
  133. 2100 DATA"39D1C1F1C9F53A57F3CDD2EECD2242F1"
  134. 2110 DATA"C921F7EEC328EF0D1B4D20202053454E"
  135. 2120 DATA"44494E4720424C4F434B202320000D1B"
  136. 2130 DATA"4D2020524543454956454420424C4F43"
  137. 2140 DATA"4B20232000210EEFCD91572A4EF3CDDB"
  138. 2150 DATA"EE3E0DE7C90E06C3C2EE010F00D5E5C5"
  139. 2160 DATA"01050DC5CD6D6DCA55EFCD7E6DC255EF"
  140. 2170 DATA"C1C1E1D1C9010A00CDC6EEC10B79B0C2"
  141. 2180 DATA"43EFC10B79B0C23FEF0DE1D1C9CD7072"
  142. 2190 DATA"CA7CEFCDCB12FE03C8FE18C8AF3DC901"
  143. 2200 DATA"0100CD3DEFC0CD6DEFC8C37FEF2166F3"
  144. 2210 DATA"C396EF2160F37EFE4DC2E61723C3E617"
  145. 2220 DATA"2160F3115BF61A3266F3010500C3C4EF"
  146. 2230 DATA"384E3144AF3265F3326BF32167F311B0"
  147. 2240 DATA"EF01040079B0C81A7713230BC3C4EFCD"
  148. 2250 DATA"9157CD3E46D7C3E90FCD46213AC2FAEE"
  149. 2260 DATA"FF32C2FACAEDEF21F9EFC38F56CD9E5A"
  150. 2270 DATA"C383632106F0C3A055AF32C2FACD9E5A"
  151. 2280 DATA"216857C315F0215957C315F021A5F0C3"
  152. 2290 DATA"15F0218FF0CD9157217157CDB127C315"
  153. 2300 DATA"EA21AAEA225EF321AAEAC37C5AE52A5B"
  154. 2310 DATA"F37CB5E1C83EFFC9216CF30E00EB2100"
  155. 2320 DATA"0079C50608AC6729D253F03E10AC673E"
  156. 2330 DATA"21AD6F05C247F0C1EB72247325230CC2"
  157. 2340 DATA"3DF0C9F5C5D5E52A5BF3EB0600AA4F21"
  158. 2350 DATA"6CF3097EAB57245EEB225BF3E1D1C1F1"
  159. 2360 DATA"C946696C6520746F2073656E64200053"
  160. 2370 DATA"656E640046696C6520746F2072656365"
  161. 2380 DATA"697665200052656365697665000D0A46"
  162. 2390 DATA"494C4520464F554E44202D2052454144"
  163. 2400 DATA"5920544F2053454E440D0A5741495449"
  164. 2410 DATA"4E472E2E2E000D0A2020202020435243"
  165. 2420 DATA"20524551554553542052454345495645"
  166. 2430 DATA"440D0A000D0A434845434B53554D2052"
  167. 2440 DATA"4551554553542052454345495645440D"
  168. 2450 DATA"0A001B4D0D0709496E697469616C204E"
  169. 2460 DATA"414B2074696D656F7574202320001B4D"
  170. 2470 DATA"0D0709426C6F636B2041434B2F4E414B"
  171. 2480 DATA"2074696D656F7574202320001B4D0D07"
  172. 2490 DATA"09426C6F636B204E414B6B6564202D20"
  173. 2500 DATA"726573656E64202320001B4D0D070946"
  174. 2510 DATA"696E616C2041434B2074696D656F7574"
  175. 2520 DATA"202320000D0A0A072053454E44204F4B"
  176. 2530 DATA"20286E6F7720696E205445524D206D6F"
  177. 2540 DATA"6465290D0A0046696C65206578697374"
  178. 2550 DATA"73202D2065726173652028592F4E2920"
  179. 2560 DATA"000D0A46494C45204F50454E202D2052"
  180. 2570 DATA"4541445920544F20524543454956450D"
  181. 2580 DATA"0A00434845434B53554D20494E204546"
  182. 2590 DATA"464543540D0A00202020202043524320"
  183. 2600 DATA"494E204546464543540D0A001B4D0D09"
  184. 2610 DATA"535749544348494E4720544F20434845"
  185. 2620 DATA"434B53554D204D4F44450D0A00435243"
  186. 2630 DATA"20436B536D1B4D0D0709526563656976"
  187. 2640 DATA"652074696D656F7574202320001B4D0D"
  188. 2650 DATA"07426164206865616465722072656365"
  189. 2660 DATA"69766564202D20726574727920232000"
  190. 2670 DATA"0D0A074F7574206F66206D656D6F7279"
  191. 2680 DATA"202D2066696C652064656C657465640D"
  192. 2690 DATA"0A001B4D0D0709436865636B73756D20"
  193. 2700 DATA"6572726F72202320001B4D0D07092020"
  194. 2710 DATA"202020435243206572726F7220232000"
  195. 2720 DATA"0D0A0A072052656365697665204F4B20"
  196. 2730 DATA"286E6F7720696E205445524D206D6F64"
  197. 2740 DATA"65290D0A001B4D0D07425245414B206B"
  198. 2750 DATA"6579202D000D4D2D31303020584D6F64"
  199. 2760 DATA"656D205854656E73696F6E2056657273"
  200. 2770 DATA"696F6E20312E30300D0A202D20726576"
  201. 2780 DATA"69736564202D2030392F31312F383520"
  202. 2790 DATA"2D0D0A28432931393835206279204A20"
  203. 2800 DATA"52204368656E6F776574680D0A000A3C"
  204. 2810 DATA""
  205. ΦΦ!⌡