home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / 173_ASM.ZIP / ANSI17.DOC < prev    next >
Encoding:
Text File  |  1988-11-27  |  3.1 KB  |  101 lines
  1.  
  2. From the Computer of:                             25 NOV 1988
  3.  
  4. Garry G. Kraemer
  5. 520 El Portal
  6. Merced, CA  95340
  7.  
  8.  
  9. ATTENTION RBBS USERS!
  10.  
  11. Here is a modification that will solve the case of the missing Line Feed.
  12.  
  13. Typically when a SYSOP is in the CHAT mode, drops to DOS, and returns to
  14. the CHAT mode, he no longer has Line Feeds displayed on the CRT.  This
  15. happens because of a problem in ANSI.ASM.  I have added a few lines of
  16. code to add a line feed to a carriage return when the variable STRNG$
  17. ends with a carriage return or a single carriage return is passed
  18. to the ANSI subroutine.  If a line feed is passed along with a cariage
  19. return the modification will not add a line feed.
  20.  
  21.  
  22. I have provided a Basic program that will demonstrate the problem.
  23.  
  24. 1.  Compile GARRY.BAS.
  25. 2.  Link GARRY.OBJ and the old ANSI.OBJ (ANSI1-6.ASM).  Call it GARRY1.EXE
  26. 3.  Link GARRY.OBJ and the new ANSI.OBJ (ANSI1-7.ASM).  Call it GARRY2.EXE
  27.  
  28. Now run GARRY1 and watch what happens.
  29. Then run GARRY2 to see the results of the added line feed.
  30.  
  31.  
  32. I hope this modification helps!
  33.  
  34. Any messages can be passed through Doyle Warkentin's BBS 
  35. WINTONS LOCAL RBBS
  36. 2400/1200/300 24hrs 400 days a year
  37. (209) 358-6154.
  38. 9758 N SHAFFER RD
  39. WINTON, CA 95388
  40.  
  41. The following BASIC code will test the new changes to ANSI.ASM.
  42. GARRY.BAS should be included in this .ARC.
  43.  
  44.  
  45. '   This program written to test the ANSI driver used by RBBS.
  46. '
  47. '   It will confirm that my modification to ANSI.ASM will in fact
  48. '   add a line feed to a single carriage return when sent to the
  49. '   ANSI subroutine.
  50. '
  51. '   Written by:
  52. '
  53. '                     GARRY G. KRAEMER
  54. '                     520 El Portal
  55. '                     Merced, CA  95340
  56. '
  57. '
  58. '   Donated as a FIX for the Famous RBBS.
  59. '
  60. LOCATE 25, 1: PRINT "Simulated RBBS STATUS line 25.      25    25     25    25    25 "
  61. LOCATE 1, 1                                             ' position cursor to top of screen
  62. CR$ = CHR$(13)                                          ' define carriage return
  63. CRLF$ = CHR$(13) + CHR$(10)                             ' define carriage return and line feed
  64. '
  65. FOR X = 1 TO 35                                         ' set up a loop
  66. '
  67. STRNG$ = "A STRING ENDING WITH A CARRIAGE RETURN " + STR$(X) + CR$
  68. CALL ANSI(STRNG$, C.L%, C.C%)                           ' CALL ANSI subroutine
  69. '
  70. ' BUILD A DELAY LOOP TO WATCH WHAT HAPPENS.
  71. '              
  72.                 FOR J = 1 TO 3000: NEXT J
  73. '
  74. '
  75. NEXT X                                                  ' print next line
  76. '
  77. '
  78. '
  79. '    BUILD A TEST ROUTINE TO SEE WHAT CR AND LF TOGETHER DO.
  80. '
  81. CLS
  82. LOCATE 25, 1: PRINT "Simulated RBBS STATUS line 25.      25    25     25    25    25 "
  83. LOCATE 1, 1                                             ' position cursor to top of screen
  84.  
  85. FOR X = 1 TO 35                                         ' set up a loop
  86.  
  87. STRNG$ = "A STRING ENDING WITH A CARRIAGE RETURN AND LINE FEED " + STR$(X) + CRLF$
  88. CALL ANSI(STRNG$, C.L%, C.C%)
  89. '
  90. ' BUILD A DELAY LOOP TO WATCH WHAT HAPPENS.
  91. '            
  92.                 FOR J = 1 TO 3000: NEXT J
  93. '
  94. '
  95. NEXT X
  96. '
  97.  
  98. END
  99.  
  100.  
  101.