CLEARSCREEN
POSTINFO
DISPLAY "                   NEW USER QUESTIONAIRE"
DISPLAY "||Please answer all questions to insure complete verification.||"
DISPLAY "What is your full name | "
DISPLAY "? "
ASK 60 1
OUTPUTANSWER "Name: " 1
DISPLAY "||What is your day phone #|"
DISPLAY "? "
ASK 14 2
OUTPUTANSWER "PHONE: " 2
DISPLAY "||What is your evening phone #| "
DISPLAY "? "
ASK 14 3
OUTPUTANSWER "PHONE: " 3
DISPLAY "||What is your STREET address|"
DISPLAY "? "
ASK 60 4
OUTPUTANSWER "Street: " 4
DISPLAY "||What is your CITY and STATE|"
DISPLAY "?  "
ASK 60 5
OUTPUTANSWER "CITY/STATE: "5
DISPLAY "||What is your ZIP CODE|"
DISPLAY "? "
ASK 9 6
OUTPUTANSWER "Zip Code: " 6
DISPLAY "||Your date of birth (mm/dd/yr) ?"
DISPLAY "|? "
ASK 10 7
OUTPUTANSWER "date of birth" 7
DISPLAY "||What type of computer do you use ?"
DISPLAY "|     A. IBM or Clone 386"
DISPLAY "|     B. IBM or Clone 286"
DISPLAY "|     C. IBM or Clone XT"
DISPLAY "|     D. None MS-DOS based Computer"
DISPLAY "||   ? "
GETCHOICE ABCD 8
OUTPUTANSWER "Computer: " 8
DISPLAY "||What speed does your modem operate at? "
DISPLAY "|     A. 300 "
DISPLAY "|     B. 1200"
DISPLAY "|     C. 2400"
DISPLAY "|     D. 9600"
DISPLAY "|     E. OTHER"
DISPLAY "||   ? "
GETCHOICE ABCDE 9
OUTPUTANSWER "Modem speed: " 9
DISPLAY "||Do you do any programming? (Y/N) |"
DISPLAY "|? "
ASK 1 10
OUTPUTANSWER "Programming ? " 10
IF 10 = "Y"
DISPLAY "||What languages do you work with ? |"
ASK 70 11
OUTPUTANSWER "Languages: " 11
ENDIF
DISPLAY "||Are you presently a Sysop? (Y/N) |"
DISPLAY "|? "
ASK 1 12
OUTPUTANSWER "Sysop ? " 12
IF 12 = "Y"
DISPLAY "||Please give your System Name, phone # & Net/Node # (if it apply's)|"
ASK 70 13
OUTPUTANSWER "System : " 13
ENDIF
DISPLAY "||Thank you for answering these questions.|"
DISPLAY "|If you have any comments or questions, please leave a message to"
DISPLAY "|the Sysop when you are logging off the system.  Thank You. |"
DISPLAY "|Press <ENTER> to continue"
ASK 1 14
QUIT