home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Logon / NewUser < prev   
Encoding:
Text File  |  1996-09-16  |  2.1 KB  |  124 lines
  1. {
  2. | NewUser script
  3. | Alex Howarth (16 September 1996 (03:42:38))
  4.  
  5. REPORT "New User"
  6. STD
  7. NL NL
  8. }We are about to create you an account on this system.
  9. If are not happy with this please hang up now!{
  10. NL
  11. GOSUB anykey
  12. STD NL NL
  13. }Ok, lets create you an account..
  14.  
  15. Please enter the name you wish to use for logons..
  16.  
  17. Username : {
  18. CREATEUSER
  19. INPUT USERNAME,19
  20. NL 
  21. NL 
  22. PRINT "Which menu set do you require?" 
  23. NL 
  24. NL 
  25. PRINT " 1. ASCII" 
  26. NL 
  27. PRINT " 2. " 
  28. BFG 3 
  29. PRINT "ANSI" 
  30. STD 
  31. PRINT " (Recommended - choose if yellow)" 
  32. NL 
  33. PRINT " 3. VT52" 
  34. NL 
  35. PRINT " 4. VT100" 
  36. NL 
  37. PRINT " 5. TTY" 
  38. NL 
  39. NL 
  40. PRINT "Choose: "
  41. GET term%,"12345"
  42. TERMINAL=term%-1
  43. IF TERMINAL=0 PRINT "ASCII"
  44. IF TERMINAL=1 PRINT "ANSI"
  45. IF TERMINAL=2 PRINT "VT52"
  46. IF TERMINAL=3 PRINT "VT100"
  47. IF TERMINAL=4 PRINT "TTY"
  48.  
  49. max%=100
  50. BFG 2
  51. REPEAT
  52.   PRINT max%
  53.   NL
  54.   max%=max%-1
  55. UNTIL max%=1
  56. TAB 0 PRINT 1
  57. FG 7
  58. TAB 3}What is the number at the top of the screen [{BFG 1}24{FG 7}] : {
  59. INPUT DLINES,3
  60. IF DLINES=0 THEN
  61.   DLINES=24
  62.   PRINT "24"
  63. ENDIF
  64. NL
  65. FG 7
  66. }Do you want screen clearing codes to be sent [{BFG 1}Y{FG 7}/n] : {
  67. GETd sc,"YN"
  68. BFG 1
  69. IF sc="Y" THEN
  70.   PRINT "Yes"
  71.   CLEARING=1
  72. ELSE
  73.   PRINT "No"
  74.   CLEARING=0
  75. ENDIF
  76. FG 7
  77. NL
  78. }Do you want 'more' prompting [{BFG 1}Y{FG 7}/n] : {
  79. BFG 1
  80. GETd mo,"YN"
  81. IF mo="Y" THEN
  82.   PRINT "Yes"
  83.   MORE=1
  84. ELSE
  85.   PRINT "No"
  86.   MORE=0
  87. ENDIF
  88. FG 7
  89. NL
  90. SETPASSWORD
  91. REPEAT
  92.   NL
  93.   }Your real name {BATTR 6,4 INPUTc ECHONAME,25 STD
  94. UNTIL ECHONAME<>""
  95. REPEAT
  96.   NL
  97.   }Address 1/3  {BATTR 6,4 INPUTc ADDRESSLINE1,20 STD NL
  98.   }Address 2/3  {BATTR 6,4 INPUTc ADDRESSLINE2,20 STD NL
  99.   }Address 3/3  {BATTR 6,4 INPUTc ADDRESSLINE3,20 STD NL
  100.   }PostCode     {BATTR 6,4 INPUTc POSTCODE,8 STD NL
  101.   }Phone Number {BATTR 6,4 INPUTc VOICEPHONE,15 STD NL
  102. UNTIL ADDRESSLINE1<>"" AND ADDRESSLINE2<>"" AND ADDRESSLINE3<>"" AND POSTCODE<>"" AND VOICEPHONE<>""
  103. NL NL
  104. HASCALLED
  105. }Your user number is {BFG 7 PRINT USERNUMBER STD NL
  106. }Your user level is {BFG 7 PRINT USERLEVEL STD NL
  107. }You are on line {BFG 7 PRINT LINE STD NL NL
  108. |
  109. | set these as desired
  110. |
  111. LOGONTIME=60
  112. |
  113. | Default msg/file areas now handled by 'Ensure' script
  114. |
  115. BFG 2}OK, account created, now logon...{STD NL
  116. RUN "Logon.Logon"
  117. |
  118. }
  119.  
  120.  
  121.   
  122.   
  123.  
  124.