home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MAPL0206.ZIP / SYSTEM.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-02-06  |  2.5 KB  |  57 lines
  1. ' $linesize:132
  2. ' $title: 'SYSTEM.BAS 17.4, Copyright 1986 - 92 by D. Thomas Mack'
  3. '  Copyright 1991 by D. Thomas Mack, all rights reserved.
  4. '  Name ...............: SYSTEM.BAS
  5. '  First Released .....: Jan 24, 1993
  6. '  Subsequent Releases.: Feb 2, 1993
  7. '  Copyright ..........: 1986 - 1993
  8. '  Purpose.............: To move internal text into an external file to free
  9. '                        up as much string space as possible and to allow
  10. '                        RBBS to develope into a multi language BBS system
  11. '
  12. '  Parameters..........: Most parameters are passed via a COMMON statement.
  13. '
  14. ' $SUBTITLE: 'GetRBBSString - Read a string from external file'
  15. ' $PAGE   (C) 1992 - Mercurio & Sarru
  16. '          mods (C) 1993 - Dan Drinnon
  17. '        additional  mods (C) by Pete Eibl 1993
  18. '
  19. ' $INCLUDE: 'RBBS-VAR.MOD'
  20. '  SUBPROGRAM NAME    -- GetRBBSString
  21. '
  22. '
  23. '  SUBPROGRAM PURPOSE --  reduce String space
  24.  
  25.  
  26. 1500 SUB GetRBBSString (LineToRead,OutText$) STATIC                  ' DD012202
  27. '                                                                    ' DD012202
  28. '    example:  CALL GetRBBSString (50,RBBSString$)                   ' DD012202
  29. '              CALL QuickTPut1 (RBBString$)                          ' DD012202
  30. '                                                                    ' DD012202
  31.    CALL OpenWork (15,ZLibDrive$ +"RBBS"+ZNodeId$ +"PC.LNG")        'Pe 01/30/93
  32.      CALL ReadCommentedDir(15,LineToRead)                            ' DD012901
  33.  
  34.     ' moved ReadCommentedDir to RBBSSUB1 for error trapping          'Pe 01/30/93
  35.  
  36.      OutText$ = ZOutTxt$                                             ' DD012901
  37.      CALL RemNonAlf (OutText$,31,127)                                ' DD012202
  38.      CLOSE 15                                                        ' DD012202
  39.      CALL SmartText(OutText$,ZTrue,ZFalse,ZFalse)               ' Pe 02/06/93
  40. '     SOUND 4000, .5                                                  ' DD012202
  41.      END SUB                                                         ' DD012202
  42.  
  43. ' $SUBTITLE: 'ShowVar --- '
  44. ' $PAGE
  45. 'Sub ShowVar (OutText$) Static
  46. '
  47. ' Ignore this code, it is NOT used but may be used in the future
  48. '        WasY = 1
  49. '         IF WasY > LEN(OutText$) THEN Exit Sub
  50. '           WasX = INSTR(WasY, OutText$, "{{")
  51. '      IF WasX = 0 THEN Exit Sub
  52. '      WasY = INSTR(WasX, OutText$, "}}")
  53. '      IF WasY = 0 THEN Exit Sub
  54. '     OutText1$ = LEFT$(OutText$, WasX - 1) + Mid$(OutText$, WasY + 2)
  55. '     WasY = WasY - WasX
  56. '     ShowV$ = MID$(OutText$, WasX + 2, WasY - 2)
  57. 'End Sub