home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / Geneve / 9640news / CAT10 / TBMCLN.ARK < prev    next >
Text File  |  2006-10-19  |  4KB  |  144 lines
  1. ?
  2. For those wayward soles who decide to buy a clone, you'll probably
  3. find that you'll need a way to send text files back and forth between
  4. it and the TI.  This is expecially true if, as in my case, your boss
  5. is too cheap to let you buy a computer for work so you have to take in
  6. one of your spare TI's to use there.
  7.  
  8. In a way, it's embarrasing to upload this stuff to the TI library.  It
  9. is really crude.  But then again, I _am_ a crude person. And, after
  10. all, these _are_ the "programs" I actually use in real life.  So why
  11. shouldn't I upload them, eh?
  12.  
  13. The following are the pgms I use to transmit text files back and forth
  14. from my IBM clone to my real computer -- the TI-99/4A.  I have one of
  15. the clone's RS232 ports going to my modem.  When I want to connect the
  16. clone and the computer, I disconnect the connector from the modem and
  17. connect to one of the TI RS232 ports. That's all there is to the
  18. hardware end of it.
  19.  
  20. To receive text files from the clone on my computer, I use Fast Term's
  21. capture buffer.  To send text files from my computer to the clone, I
  22. use the following Extended BASIC program:
  23.  
  24. 90 OPEN #2:"RS232.BA=1200.DA=8.PA=N"
  25. 100 OPEN #1:"DSK1.FILENAME"
  26. 110 IF EOF(1)<>0 THEN 500
  27. 120 LINPUT #1:X$
  28. 130 PRINT #2:X$
  29. 140 GOTO 110
  30. 500 CLOSE #1 :: CLOSE #2
  31. 510 END
  32.  
  33. If you use this program, send me whatever you think it's worth.  Just
  34. send cash, please.  No stamps.
  35.  
  36. Here's a BASICA program that receives the text file and stores it on
  37. disk -- in this case a fixed disk (or hard disk if you prefer).
  38.  
  39. 10 OPEN "C:filename" FOR OUTPUT AS #2
  40. 20 OPEN "COM1:1200,N,8,1" AS #1
  41. 30 Y$=""
  42. 40 FOR I=1 TO 5000
  43. 50 IF LOC(1)<>0 THEN 90
  44. 60 NEXT I
  45. 70 PRINT "done..."
  46. 80 CLOSE #1:CLOSE #2:END
  47. 90 X$=INPUT$(1,1)
  48. 100 IF X$=CHR$(13) OR X$=CHR$(10) THEN 130
  49. 110 Y$=Y$+X$
  50. 120 GOTO 40
  51. 130 X$=INPUT$(1,1):PRINT #2,Y$
  52. 140 GOTO 30
  53.  
  54. This is a QuickBASIC program to transmit text to the TI.  I use Fast
  55. Term's capture buffer to receive it and put it on diskette.
  56.  
  57. ' TRANSMIT.BAS
  58. '   Transmit an ASCII file to TI
  59. PRINT "FILE NAME - ";
  60. INPUT F$
  61. OPEN F$ FOR INPUT AS #1
  62. OPEN "COM1:1200,n,8,1" AS #2
  63.  
  64. ON COM(1) GOSUB check
  65. COM(1) ON
  66. nxt:
  67. IF EOF(1)<>0 THEN GOTO transend
  68. COM(1) ON
  69. LINE INPUT #1, x$
  70. IF LEN(x$) = 0 THEN PRINT #2," ": GOTO nxt
  71.     FOR i% = 1 TO LEN(x$)
  72. y$ = MID$(x$,i%,1)
  73. IF ASC(Y$) = 9 THEN Y$="  "
  74. IF ASC(y$) > 31 AND ASC(y$) < 127 THEN PRINT #2,y$;
  75.     NEXT i%
  76. PRINT #2,""
  77. GOTO nxt
  78.  
  79. transend:
  80.     CLOSE #1:CLOSE #2:END
  81.  
  82. check:
  83. z$ = INPUT$(1,#2)
  84. IF z$ <> CHR$(147) THEN GOTO chkrtn
  85. waithere:
  86. PRINT "Stopped..."
  87. z$ = INPUT$(1,#2)
  88. IF z$ <> CHR$(17) THEN GOTO waithere:
  89. PRINT "Started again."
  90. COM(1) OFF
  91.   chkrtn:
  92.     RETURN
  93.  
  94. This is a QuickBASIC program I use to upload text to GEnie.  This is
  95. the cuprit that is responsible for all those ridiculous messages
  96. Buh'Wheat leaves.  Notice the similarities with the previous program!
  97.  
  98. ' XMIT.BAS
  99. '   Transmit an ASCII file to GEnie.
  100. EL$=CHR$(10)+CHR$(13)
  101. PRINT "FILE NAME - ";
  102. INPUT F$
  103. OPEN F$ FOR INPUT AS #1
  104. OPEN "COM1:1200,n,8,1" AS #2
  105.  
  106. ON COM(1) GOSUB check
  107. COM(1) ON
  108. nxt:
  109. IF EOF(1)<>0 THEN GOTO transend
  110. COM(1) ON
  111. LINE INPUT #1, x$
  112. IF LEN(x$) = 0 THEN PRINT #2," "+EL$:GOSUB DELAY: GOTO nxt
  113.     FOR i% = 1 TO LEN(x$)
  114. y$ = MID$(x$,i%,1)
  115. IF ASC(Y$) = 9 THEN Y$=" "
  116. IF ASC(y$) > 31 AND ASC(y$) < 127 THEN PRINT #2,y$;:GOSUB DELAY
  117.     NEXT i%
  118. PRINT #2,EL$:GOSUB DELAY
  119. GOTO nxt
  120.  
  121. transend:
  122. CLOSE #1:CLOSE #2:END
  123.  
  124. check:
  125. z$ = INPUT$(1,#2)
  126. IF z$ <> CHR$(147) THEN GOTO chkrtn
  127. waithere:
  128. PRINT "Stopped..."
  129. z$ = INPUT$(1,#2)
  130. IF z$ <> CHR$(17) THEN GOTO waithere:
  131. PRINT "Started again."
  132. COM(1) OFF
  133.   chkrtn:
  134.     RETURN
  135. delay:
  136. FOR J%=1 TO 100: NEXT J%
  137. RETURN
  138.  
  139. (Note. This line is _not_ part of the preceeding program.)
  140.  
  141. Download complete.  Turn off Capture File.
  142.  
  143.  
  144.