home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pgxos / xtlcm3.200 < prev    next >
Text File  |  2006-10-19  |  3KB  |  95 lines
  1. XTLCM3.200 by Paul Globman (72227,1661)
  2.              Copyright (c) 1988
  3.  
  4. ######### FOR USE WITH A TANDY 200 WITH ALL THREE (3) INTERNAL BANKS ##########
  5.  
  6. XTLCM3.CO is created by running the BASIC loader listed below.
  7.  
  8. XTLCM3.CO need only be run once from any bank.  It will automatically take you
  9. to TELCOM for immediate use.  Once run, XTLCM3.CO can be saved and deleted from
  10. RAM.  It is permanently installed in all three banks until FIXDIR.BA is run, a
  11. cold start, or another program resets the TELCOM hooks.
  12.  
  13. XTLCM3.CO adds the following to TELCOM's TERM mode...
  14.  
  15.   F6 = display files and bytes
  16.   F6+SHIFT = direct access to TEXT
  17.   F7 = jump to TELCOM in next bank
  18.   F7+SHIFT = jmp TELCOM in prev. bank
  19.  
  20. XTLCM3.CO will allow you to jump from bank to bank while on-line with either
  21. an external or internal modem.  And whichever bank you jump to, the hooks
  22. are active to allow you to switch banks again.
  23.  
  24. XTLCM3.CO uses no user RAM!  It need not be in RAM after it has been run once.
  25. It does not run in HIMEM so there are no conflicts with other .CO programs.  
  26.  
  27. XTLCM3.CO runs in system RAM.  The code in each bank resides in the last 15 
  28. file slots of the directory.  This means that you can have a maximum of 31
  29. files per bank, instead of 46.  From the T200 users I have spoken to, this is
  30. not a problem.
  31.  
  32. In return for the 15 file sacrifice you get several excellent TELCOM 
  33. enhancements.
  34.  
  35. NOTE: The first time you enter TELCOM in another bank, you will enter the TERM
  36. mode by pressing F4(Term).  Should you exit this bank, and re-enter it, you 
  37. will have to type TERM<ENTER> if F4(Term) doesn't work.
  38.  
  39. 1 '************************
  40. 2 '*  XTLCM3.CO           *
  41. 3 '*    by Paul Globman   *
  42. 4 '*  Copyright (c) 1988  *
  43. 5 '************************
  44. 10 FOR I = 63600 TO 63830 
  45. 20 READ X:POKE I,X:SM=SM+X
  46. 30 NEXT
  47. 40 IF SM = 30659 THEN 60
  48. 50 PRINT"error in data":STOP
  49. 60 SAVEM"XTLCM3.CO",63600,63830,63764
  50. 1000 DATA 255,205,62,79,58,22,253,31
  51. 1010 DATA 210,70,244,33,27,244,34,52
  52. 1020 DATA 239,196,69,79,205,75,113,33
  53. 1030 DATA 196,113,205,23,53,205,240,84
  54. 1040 DATA 215,202,64,244,205,115,45,229
  55. 1050 DATA 33,0,0,34,210,239,62,1
  56. 1060 DATA 33,64,244,195,39,115,205,150
  57. 1070 DATA 79,195,139,99,205,42,42,205
  58. 1080 DATA 253,154,195,62,79,243,58,22
  59. 1090 DATA 253,31,219,216,220,93,244,33
  60. 1100 DATA 103,244,229,198,4,230,12,254
  61. 1110 DATA 12,202,93,244,201,50,155,244
  62. 1120 DATA 33,245,238,6,0,87,205,176
  63. 1130 DATA 155,33,60,239,84,93,1,7
  64. 1140 DATA 0,205,153,244,42,172,254,58
  65. 1150 DATA 155,244,211,216,34,172,254,49
  66. 1160 DATA 156,249,205,71,76,205,77,79
  67. 1170 DATA 175,50,30,253,195,253,95,197
  68. 1180 DATA 6,0,213,86,227,205,176,155
  69. 1190 DATA 209,235,193,35,19,11,121,176
  70. 1200 DATA 194,153,244,201,243,175,205,42
  71. 1210 DATA 249,62,4,205,42,249,62,8
  72. 1220 DATA 205,42,249,195,253,95,11,244
  73. 1230 DATA 79,244,50,68,249,33,38,249
  74. 1240 DATA 17,63,245,1,4,0,205,66
  75. 1250 DATA 249,33,112,248,17,10,244,1
  76. 1260 DATA 164,0,197,6,0,213,86,227
  77. 1270 DATA 205,176,155,209,235,193,35,19
  78. 1280 DATA 11,121,176,194,66,249,201 
  79. 1290 REM      END OF DATA
  80.  
  81.  
  82.  
  83.  
  84. 0 REM FIXDIR.BA by Paul Globman
  85. 1 REM            Copyright (c) 1988
  86. 2 REM
  87. 3 REM This MUST be run in ALL 3 BANKS
  88. 4 REM
  89. 5 FOR I=62474 TO 62638:POKE I,0:NEXT
  90. 6 POKE I,255
  91. 7 POKE 62783,168:POKE 62784,156
  92. 8 POKE 62785,168:POKE 62786,156
  93. 9 MENU
  94.  
  95.