home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l078 / 1.img / MC7.INC < prev    next >
Encoding:
Text File  |  1987-04-02  |  1.9 KB  |  65 lines
  1. '┌───────────────────────────────────────────────────────────────────────────┐
  2. '│                               MC.BAS                                   │
  3. '│                             VERSION 1.0                                   │
  4. '│                                                                           │
  5. '│                           MODULE: MC7.INC                                 │
  6. '│                                                                           │
  7. '│                   Turbo Basic                     │
  8. '│        (C) Copyright 1987 by Borland International             │
  9. '│                                                                           │
  10. '│ DESCRIPTION: This module contains the routines to manipulate strings and  │
  11. '│        sets.                                 │
  12. '└───────────────────────────────────────────────────────────────────────────┘
  13.  
  14. SUB Insert(AddS$, S$, P%)
  15. ' This procedure inserts a string into an existing string
  16.  
  17.   S$=LEFT$(S$,P%-1 )+AddS$+MID$(S$,P%)
  18.  
  19. END SUB
  20.  
  21. SUB Delete(S$, P%, N%)
  22. ' This procedure deletes a SUB string from within a string.
  23.  
  24.   S$=LEFT$(S$,P%-1 )+MID$(S$,P%+N%)
  25.  
  26. END SUB
  27.  
  28. DEF FNInCharSet%(CheckChar$, CurSet$ )
  29. ' This function returns a result indicating IF the value in CheckChar
  30. ' exists in CurSet.
  31.  
  32.   LOCAL Exists%
  33.  
  34.   IF INSTR(CurSet$,LEFT$(CheckChar$+" ",1)) THEN
  35.      FNInCharSet%=%True
  36.   ELSE
  37.      FNInCharSet%=%False
  38.   END IF
  39.  
  40. END DEF
  41.  
  42. DEF FNSt$(V#)
  43. ' convert a value into string
  44.   IF V#<0 THEN
  45.     FNSt$=STR$(V#)
  46.   ELSE
  47.     FNSt$=MID$(STR$(V#),2)
  48.   END IF
  49. END DEF
  50.  
  51. DEF FNIn%( Mask%, SetNumber% )
  52. ' test if an item is included in the set
  53.   FNIn%=-((SetNumber% AND Mask%)<>0)
  54. END DEF
  55.  
  56. SUB AddSet(SetItem%,SetNumber%)
  57. ' Add item in the set if it doesn't exist
  58.   IF FNin%(SetItem%,SetNumber%)=%False  THEN SetNumber%=SetNumber%+SetItem%
  59. END SUB
  60.  
  61. SUB SubSet(SetItem%,SetNumber%)
  62. ' Subtract item in the set if it doesn't exist
  63.   IF FNin%(SetItem%,SetNumber%)<>%False  THEN SetNumber%=SetNumber%-SetItem%
  64. END SUB
  65.