home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / comm / tempest.lha / aur2.lha / newuser.app < prev   
Text File  |  1993-05-19  |  2KB  |  74 lines
  1.  
  2. START:
  3.  
  4.  PRINT "Welcome to Alpha Waves, this BBS is for the support of our customers |"
  5.  PRINT "either by our Walk In traffic, or by the many sysops of our BBS program|"
  6.  PRINT "either way we hope you enjoy our BBS| You sysops, Rick & Tim||"
  7.  
  8.  PRINT "Please enter your name for our records : "
  9.  TEXT 25
  10.  
  11.  PRINT "And your Password : "
  12.  TEXT 8
  13.  
  14.  PRINT "And your Voice Number : "
  15.  TEXT 15
  16.  
  17.  PRINT "Do you run a BBS (Y/n) : " 
  18.  TEXT 1
  19.  IF (TEXT = "Y")
  20.          PRINT "|Cool, you run a BBS what the name of your BBS ? "
  21.          TEXT 20
  22.          PRINT "And the number ? "
  23.          TEXT 15
  24.          PRINT "||"
  25.          ENDIF
  26.  
  27.  PRINT "We sometimes offer an ADULT area on this bbs please list your age : "
  28.  NUMBER 2
  29.  IF (NUMBER > 21) 
  30.         PRINT "OK, well if we get this area active we'll let you know! ||"
  31.         ENDIF
  32.  IF (NUMBER = 21) 
  33.         PRINT "OK, well you just made it, if we get an adult area set up"
  34.         PRINT "we'll let you know!||"
  35.         ENDIF
  36.  IF (NUMBER < 21) 
  37.         PRINT "Sorry, your too young for this section ||"
  38.         ENDIF
  39.  GOTO Programmer
  40.  
  41. ;************** Area for asking questions about programming  *************
  42.  
  43. Programmer:
  44.  PRINT "||"
  45.  PRINT "If you program, would you like access to our programming areas? (Y/N): "
  46.  TEXT 1
  47.  IF (TEXT = "Y") 
  48.       PRINT "||Ok, no problem ... I'll validate you for this access when i get time ||"
  49.       GOTO Final
  50.       ENDIF
  51.  
  52.  IF (TEXT = "N") 
  53.       PRINT "Would you like to learn how to program (Y/N) : "
  54.       TEXT 1
  55.       IF (TEXT = "Y")
  56.            PRINT "OK, I'll see if I can help you if you want some.||"
  57.            GOTO Final
  58.            ENDIF
  59.       IF (TEXT = "N")
  60.            PRINT "No Problem!||"
  61.            GOTO Final
  62.            ENDIF
  63.  
  64.  PRINT "Sorry, your choice is not valid!!|"
  65.  goto programmer
  66.  
  67. FINAL:
  68.  PRINT "||Is the Above information correct Correct (Y/N) : "
  69.  TEXT 1
  70.  IF (TEXT = "N") 
  71.           GOTO START
  72.           ENDIF
  73.  
  74.