home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / bbsfiles / pcbss20.arj / INFO.DEF < prev    next >
Encoding:
Text File  |  1992-01-19  |  8.5 KB  |  251 lines
  1.  
  2.   INCLUDE @%SS_DEF_DIR info.fil
  3.  
  4.   COLOR BRIGHT CYAN BLACK
  5.   DISPLAY_FILE @%SS_DEF_DIR INFO.TXT            ;display this file
  6.  
  7.   INDENT  5
  8.   TEXT  ""
  9.   TEXT  "@X09┌───────────────────────────────────────────────────────────────────┐"
  10.   TEXT  "@X09│                 @X0B**** QExchange Bulletin Board ****               @X09 │"
  11.   TEXT  "@X09├───────────────────────────────────────────────────────────────────┤"
  12.   TEXT  "@X09│                                                                   │"
  13.   TEXT  "@X09│ @X0BYou are in the new caller login section. After completing the    @X09 │"
  14.   TEXT  "@X09│ @X0Bquestions below, you will be returned to the main bulletin board.@X09 │"
  15.   TEXT  "@X09│                                                                   │"
  16.   TEXT  "@X09│ @X0BThis is a one-time procedure. Estimated time to complete this    @X09 │"
  17.   TEXT  "@X09│ @X0Bquestionnaire is 2 to 4 minutes.                                 @X09 │"
  18.   TEXT  "@X09│                                                                   │"
  19.   TEXT  "@X09├───────────────────────────────────────────────────────────────────┤"
  20.   TEXT  "@X09│                                                                   │"
  21.   TEXT  "@X09│   @X0FNOTE: @X07If you do not wish to complete the questionnaire at      @X09 │"
  22.   TEXT  "@X09│         @X07this time, you may BACKSPACE until the 'Name' field      @X09 │"
  23.   TEXT  "@X09│         @X07is blank and press <ENTER>.                              @X09 │"
  24.   TEXT  "@X09│                                                                   │"
  25.   TEXT  "@X09└───────────────────────────────────────────────────────────────────┘"
  26.   TEXT  ""
  27.   TEXT  ""
  28.   INDENT  0
  29.  
  30.   BEEPS OFF
  31.   FLUSH_KB
  32.   MIN_ATTR  BRIGHT RED BLACK
  33.   MAX_ATTR  BRIGHT BLUE BLACK
  34.   ANS_ATTR  BRIGHT YELLOW BLACK
  35.   LOGMSG  "@X05" @user@ " accessed InfoDoor"
  36.  
  37. :Modify
  38.   COLOR BRIGHT CYAN BLACK
  39.   PROMPT "            Name: " Name
  40.   NULL_ENTRY  AbortJob
  41.  
  42.   PROMPT "         Company: " Company
  43.   PROMPT "  Address line 1: " Addr1
  44.   PROMPT "  Address line 2: " Addr2
  45.   PROMPT "     City, State: " CitySt
  46.   PROMPT "             Zip: " Zip
  47.   PROMPT "         Country: " Country
  48.   PROMPT "    Phone Number: " Phone
  49.   TEXT   "                  (enter 0's if no FAX)"
  50.   PROMPT "      Fax Number: " Fax
  51.   PROMPT "        Your Age: " Age
  52.  
  53.   NEWLINE
  54.   PROMPT "                Your occupation: " Occup
  55.   PROMPT " How did you hear of QExchange?: " How
  56.   PROMPT "         Are you a Qantel User?: " Qantel
  57.   IF Qantel == "Y"
  58.     PROMPT "Do you subscribe to QUSER NEWS?: " QUser
  59.   ENDIF
  60.  
  61.   PROMPT "               Do you own a PC?: " PCOwner
  62.   IF PCOwner == "Y"
  63.     PROMPT "                     What Type?: " PCType
  64.   ENDIF
  65.  
  66.   PROMPT "       Do you use a PC NetWork?: " NetWork
  67.   IF NetWork == "Y"
  68.     PROMPT "                     Which one?: " NetType
  69.   ENDIF
  70.  
  71.   PROMPT "      Do you use VT3 Emulation?: " Vt3Emu
  72.   IF Vt3Emu == "Y"
  73.     PROMPT "                     Which one?: " EmuSoft
  74.   ENDIF
  75.  
  76.   NEWLINE
  77.   PROMPT "        Comments: " Cmnt1
  78.   NULL_ENTRY  Listit
  79.   PROMPT "                : " Cmnt2
  80.   NULL_ENTRY  Listit
  81.   PROMPT "                : " Cmnt3
  82.   GOTO Listit
  83.  
  84. :EndOfJob
  85.   SET Option
  86.   COLOR BRIGHT CYAN BLACK
  87.   TEXT  "──────────────────────────────────────────────────────────────────────────"
  88.   COLOR BRIGHT YELLOW BLACK
  89.   PROMPT "@X0ECommand: @X0BA@X03ccept, @X0BL@X03ist, @X0BE@X03dit " Option
  90.   UCASE Option
  91.   SWITCH  Option
  92.     CASE  "A"
  93.       GOTO JobOk
  94.       BREAK
  95.     CASE  "L"
  96.       GOTO Listit
  97.       BREAK
  98.     CASE  "E"
  99.       NEWLINE 2
  100.       GOTO Modify TOP
  101.       BREAK
  102.   SWITCH  END
  103.   GOTO EndOfJob TOP
  104.  
  105. :Listit
  106.   COLOR BRIGHT CYAN BLACK
  107.   TEXT  ""
  108.   TEXT  ""
  109.   TEXT  "──────────────────────────────────────────────────────────────────────────"
  110.   COLOR CYAN BLACK
  111.   TEXT  ""
  112.   TEXT  "                       Name@X08: @X0B" Name
  113.   TEXT  "                    Company@X08: @X0B" Company
  114.   TEXT  "             Address line 1@X08: @X0B" Addr1
  115.   TEXT  "             Address line 2@X08: @X0B" Addr2
  116.   TEXT  "  City, State, Zip, Country@X08: @X0B" CitySt "  " Zip "   " Country
  117.   TEXT  "               Phone Number@X08: @X0B" Phone "      @X03Fax: " @X0B Fax
  118.   TEXT  ""
  119.   TEXT  "                   Your Age@X08: @X0B" Age
  120.   TEXT  "                 Occupation@X08: @X0B" Occup
  121.   TEXT  " How you heard of QExchange@X08: @X0B" How
  122.   TEXT  "               Qantel User?@X08: @X0B" Qantel
  123.   TEXT  "     QUSER NEWS subscriber?@X08: @X0B" QUser
  124.   TEXT  "           Do you own a PC?@X08: @X0B" PCOwner "   "  PCType
  125.   TEXT  "   Do you use a PC NetWork?@X08: @X0B" NetWork "   "  NetType
  126.   TEXT  "  Do you use VT3 Emulation?@X08: @X0B" Vt3Emu  "   "  EmuSoft
  127.   TEXT  "        Comments@X08: @X0B" Cmnt1
  128.   TEXT  "                @X08: @X0B" Cmnt2
  129.   TEXT  "                @X08: @X0B" Cmnt3
  130.   GOTO EndOfJob TOP
  131.  
  132.  
  133. :JobOk
  134.   COLOR BRIGHT WHITE BLACK
  135.   TEXT   ""
  136.   TEXT   "Logging data. Please wait..."
  137.   ;
  138.   LOG_DATA @%SS_LOG_DIR "INFO.LOG"
  139.     "---------------------------------------------------------------------"
  140.     "Name        : "  Name
  141.     "Company     : "  Company
  142.     "Date        : "  @sysdate@
  143.     "Time        : "  @systime@
  144.     "Node        : "  @node@
  145.     "Addr1       : "  Addr1
  146.     "Addr2       : "  Addr2
  147.     "City, State : "  CitySt "   " Zip
  148.     "Country     : "  Country
  149.     "Phone       : "  Phone
  150.     "Fax         : "  Fax
  151.     "Age         : "  Age
  152.     "How Heard of: "  How
  153.     "Occupation  : "  Occup
  154.     "Qantel User?: "  Qantel
  155.     "Quser News? : "  QUser
  156.     "PC Owner    : "  PCOwner
  157.     "PC Type     : "  PCType
  158.     "NetWork User: "  NetWork
  159.     "NetWare SW  : "  NetType
  160.     "VT3 Emu User: "  Vt3Emu
  161.     "EMU SW Used : "  EmuSoft
  162.     "Comments    : "  Cmnt1
  163.     "            : "  Cmnt2
  164.     "            : "  Cmnt3
  165.   LOG_DATA
  166.  
  167.  
  168.   IF @security@ <= 10
  169.     INCREASE 1 10
  170.   ENDIF
  171.  
  172. ; SEC_TABLE                     ;Security Table Start
  173. ;    9  10                      ; users at sec level 9 goto 10
  174. ;   10  20                      ; users at sec level 10 goto 20
  175. ;   20  30                      ; users at sec level 20 goto 30
  176. ; SEC_TABLE                     ;Security Table End
  177.                                 ;
  178.                                 ;Other security functions:
  179.                                 ;
  180.                                 ; INCREASE x y
  181.                                 ;   Increase sec level by 'x', but do
  182.                                 ;   not allow to exceed 'y'.
  183.                                 ;
  184.                                 ; DECREASE x y
  185.                                 ;   Decrease sec level by 'x', but do
  186.                                 ;   not allow to be less than 'y'.
  187.                                 ;
  188. ; SEC_LOOKUP  @%SS_DEF_DIR info.lck   ;searches this file for the user name.
  189.                                 ; if found, it uses the security code
  190.                                 ; in this file to override any other
  191.                                 ; value. This could be used in a new
  192.                                 ; callers script, but have names of
  193.                                 ; friends (or customers, or etc..) in
  194.                                 ; the file - when looked up, the new
  195.                                 ; security is available.
  196.                                 ;
  197.   UPDATE_USER_RECORD            ;update the user record with new
  198.                                 ; security value.
  199.   IF @firstu@ != "SYSOP"
  200.     MSG
  201.       SYSOP
  202.       SYSOP
  203.       "New User Called"
  204.       Comment
  205.       "Main Board"
  206.       "A new user named " @user@ " has called the system."
  207.       "The date and time was " @sysdate@ " : " @systime@ "."
  208.       "They are from " CitySt "."
  209.       "Their phone number is " Phone
  210.       "Their occupation is " Occup "."
  211.       "They are " Age " years old."
  212.       "Qantel User: " Qantel ".  Vt3 Emu User: " Vt3Emu " " EmuSoft
  213.       "How heard of: " How
  214.       " Comments:"
  215.       Cmnt1
  216.       Cmnt2
  217.       Cmnt3
  218.       ""
  219.       "Node: " @node@ "  Baud Rate: " @bps@
  220.     MSG
  221.   ENDIF
  222.   GOTO EndIt
  223.  
  224. :AbortJob
  225.   IF @firstu@ != "SYSOP"
  226.     MSG
  227.       SYSOP
  228.       SYSOP
  229.       "New User Abort"
  230.       Comment
  231.       "Main Board"
  232.       "A new user named " @user@ " has called the system."
  233.       "The date and time was " @sysdate@ " : " @systime@ "."
  234.       ""
  235.       "They @X8Caborted@X0B the INFO script."
  236.       ""
  237.       "Node: " @node@ "  Baud Rate: " @bps@
  238.     MSG
  239.   ENDIF
  240.  
  241. :EndIt
  242.   IF Qantel == "Y"
  243.     IF QUser == "N"
  244.       COLOR BRIGHT CYAN BLACK
  245.       DISPLAY_FILE @%SS_DEF_DIR QUSER.TXT
  246.     ENDIF
  247.   ENDIF
  248.  
  249.   EXIT
  250.  
  251.