home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / CON-004C.ZIP / CONCORD.ZIP / SCRIPT.ZIP / USERFORM.SCR < prev    next >
Encoding:
Text File  |  1996-05-12  |  2.3 KB  |  85 lines
  1. ; USERFORM.SCR : Script to fill the user information form.
  2. ;
  3. ; This script is called from NEWUSER.SCR new user script.
  4. ;
  5. ; You can also call this script individually to modify previously
  6. ; given user information.
  7. ;
  8. ; Unremark line GOSUB UF_SAVEASCII in the end of this script
  9. ; to save the user information to ASCII file USERFORM.ASW.
  10.  
  11.    VAR %ERROR% = NUMBER
  12.  
  13. :UF_START
  14.    SET %ERROR% = 0
  15.    ; display user form file
  16.    MENUTYPE 8 USERFORM
  17.    ; run "form" menutype
  18.    MENUTYPE 1A USERFORM
  19.  
  20. :UF_CHECK
  21.    IF ((@BIRTHDAY@ = "") OR (@AGE@ < 5) or (@AGE@ > 90))
  22.      WRITE "^G1,20;^C12,0;You have to give your birthday. Press Enter to correct.^E3;^A;"
  23.      SET %ERROR% = 1
  24.    END
  25.    IF ((@ADDRESS1@ = "") AND (@ADDRESS2@ = "") AND (@ADDRESS3@ = ""))
  26.      WRITE "^G1,20;^C12,0;You have to give your address. Press Enter to correct.^E3;^A;"
  27.      SET %ERROR% = 1
  28.    END
  29.    IF %ERROR% <> 0
  30.      GOTO UF_START
  31.    END
  32.  
  33. :UF_ACTION
  34.    WRITE "^G1,20;^C15,0;Form options : "
  35.    WRITE "^C7,0;(^C14,0;S^C7,0;)^C14,0;ave, "
  36.    WRITE "^C7,0;(^C14,0;A^C7,0;)^C14,0;gain, "
  37.    WRITE "^C7,0;(^C14,0;L^C7,0;)^C14,0;ogoff, "
  38.    WRITE "^C7,0;(^C14,0;H^C7,0;)^C14,0;elp "
  39.    SET @ANSWER@ =
  40.    WRITE "^C7,0;(^C15,0;~1S^C7,0;/^C15,0;~2A^C7,0;/^C15,0;~3L^C7,0;/^C15,0;~4H^C7,0;) ^W;^M;"
  41.    IF @ANSWER@ = 1
  42.      GOTO UF_STOP
  43.    END
  44.    IF @ANSWER@ = 2
  45.      GOTO UF_START
  46.    END
  47.    IF @ANSWER@ = 3
  48.      SET @ANSWER@ =
  49.      WRITE "^C14,0;Are you sure? (~1y/~2N) ^W;"
  50.      IF @ANSWER@ = 1
  51.        MENUTYPE 4 /IMMEDIATE
  52.        QUIT
  53.      ELSE
  54.        WRITE "^X-40;^E3;"
  55.        GOTO UF_ACTION
  56.      END
  57.    END
  58.    IF @ANSWER@ = 4
  59.      MENUTYPE 8 UFORMHLP
  60.      GOTO UF_START
  61.    END
  62.  
  63. :UF_SAVEASCII
  64.    OUTPUT USERFORM.ASW
  65.    WRITE "** @NAME@ answered on @CURRDATE@ @CURRTIME@^M;"
  66.    WRITE "Alias     : @ALIAS@^M;"
  67.    WRITE "Address-1 : @ADDRESS1@^M;"
  68.    WRITE "Address-2 : @ADDRESS2@^M;"
  69.    WRITE "Address-3 : @ADDRESS3@^M;"
  70.    WRITE "Voice #   : @VOICE@^M;"
  71.    WRITE "Data  #   : @DATA@^M;"
  72.    WRITE "Birthday  : @BIRTHDAY@^M;
  73.    OUTPUT CRT
  74.    RETURN
  75.  
  76. :UF_STOP
  77.    ;
  78.    ; Remove semicolon from the beginning of next GOSUB line to save
  79.    ; the user information form to ASCII file USERFORM.ASW :
  80.    ;
  81.    ; GOSUB UF_SAVEASCII
  82.    ;
  83.    WRITE "^C14,0;^G1,20;User application form saved... Press Enter.^E3;^A;^M;^M;"
  84.    EXIT
  85.