AT2k Design BBS Message Area
Casually read the BBS message area using an easy to use interface. Messages are categorized exactly like they are on the BBS. You may post new messages or reply to existing messages!

You are not logged in. Login here for full access privileges.

Previous Message | Next Message | Back to Scripts Only! (Code Only)  <--  <--- Return to Home Page
   Networked Database  Scripts Only! (Code Only)   [12 / 68] RSS
 From   To   Subject   Date/Time 
Message   Steve Winn    All   SYSOP PAGER STATUS   December 2, 2001
 6:36 PM   

  CLEAR
  ACTION "[ASPECT] � Sysop Pager"
  SUSPENDPAGEBREAK
  CLS
  ? "Aspect Technologies 2k � Sysop Pager Status"
  CHECKFILE B0, "PAGER.FLG"
  IFVAL B0 = 0 GOTO templabel1
    LET H0 = "ON"
   GOTO templabel2
   templabel1:
    LET H0 = "OFF"
  templabel2:
  ? "Current Pager Status: " % H0
  ?
  ? "1. Turn Pager ON"
  ? "2. Turn Pager OFF"
  ?
  RL C0, "Q", 2, "[Q]uit � Choose: "
  IF C0 = "Q" GOTO Exit_Script
  IFVAL C0 = 2 GOTO templabel3
    LET H0 = "ON"
    IFVAL B0 <> 0 GOTO Exit_Script
    OPEN "PAGER.FLG", "O"
    WRITE "ON"
    CLOSE
    GOTO Exit_Script
  templabel3:

  LET H0 = "OFF"
  IFVAL B0 = 0 GOTO Exit_Script
  LET E0 = "DEL PAGER.FLG > NUL."
  SHELL E0


Exit_Script:
  ?
  ? "The Sysop Pager is now " % H0
  DELAY 2

  RESUMEPAGEBREAK

--
[AT2k] -- Your VBBS/VADV Support Center -- [www.at2k.org] -- [bbs.at2k.org]
  Show ANSI Codes | Hide BBCodes | Show Color Codes | Hide Encoding | Hide HTML Tags | Show Routing
Previous Message | Next Message | Back to Scripts Only! (Code Only)  <--  <--- Return to Home Page
VADV-PHP
Execution Time: 0.0183 seconds

If you experience any problems with this website or need help, contact the webmaster.
VADV-PHP Copyright © 2002-2024 Steve Winn, Aspect Technologies. All Rights Reserved.
Virtual Advanced Copyright © 1995-1997 Roland De Graaf.
 v2.1.241108