home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / Ensure < prev    next >
Encoding:
Text File  |  1996-09-16  |  525 b   |  29 lines
  1. {
  2. | Make sure we are in a base/area etc to avoid confusion
  3. | Alex Howarth (16 September 1996 (02:17:52))
  4. OPENFILEBASE
  5. OPENMESSAGEBASE
  6. |IF FILEBASES>0 THEN
  7.   IF FILEBASE=0 THEN
  8.     FILEBASE=1
  9.   ENDIF
  10.   |IF FILEAREAS>0 THEN
  11.     IF FILEAREA=0 THEN
  12.       FILEAREA=1
  13.     ENDIF
  14.   |ENDIF
  15. |ENDIF
  16. |IF MESSAGEBASES>0 THEN
  17.   IF MESSAGEBASE=0 THEN
  18.     MESSAGEBASE=1
  19.   ENDIF
  20.   |IF MESSAGEAREAS>0 THEN
  21.     IF MSGAREA=0 THEN
  22.       MSGAREA=1
  23.     ENDIF
  24.   |ENDIF
  25. |ENDIF
  26. | Does this work? - it should,. surely?!
  27. CLOSEFILEBASE
  28. CLOSEMESSAGEBASE
  29. }