Category : BBS Programs+Doors
Archive   : Q-MAKER.ZIP
Filename : EXAMPLE.Q-A

EXAMPLE Q-A:
============

This example New_User.q-a demonstrates almost all of the options available
to you in the creation of a Questionaire. Examine it carefully and it might
help you to develope ideas on ways in which RA/QBBS questionaire language can
be used. Good luck!.....and have FUN!
-------------------------
New_User.Q-A
-------------------------
PostInfo
DisplayFile BBSRULES
Display "|"
Display "|"
ChangeColor 11 0
Display " Dark Shadows BBS (1:208/304)|"
Display " Lodi, California|"
Display " New User Questionaire|"
Display "|"
ChangeColor 14 0
Display "This information will remain confidential to the SysOp.|"
Display "Completing this survey is required for long term access to|"
Display "this system. The information that I receive from this|"
Display "survey will be used to help make the board better serve, YOU,|"
Display "the user.||"
Display "You are given the choice whether you want to save your answers or|"
Display "not at the end of the survey.|"

ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "--------------------"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "What is your name (First & Last)? "
Ask 20 1
Display "|"
If 1 = ""
ClearScreen
quit
EndIf
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "------------------------------"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "What is your street address? "
Ask 30 2
Display "|"
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "------------------------------"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "What City/State are you calling from? "
Ask 30 3
Display "|"
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "--------------------"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "What type of computer are you using? "

Ask 20 4
Display "|"
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "--------------------"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "What is the name of your terminal/telecom program? "
Ask 20 5
Display "|"
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "----------------------------------------------"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "What do you look for on BBS's? "
Ask 45 6
Display "|"
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "--"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "What is your age? (Please be honest) "
Ask 2 7
Display "|"
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "-"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "Do you do any programming? (Y/N) "
Ask 1 8
Display "|"
If 8 = "Y"
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "---------------------------------------------"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "What languages do you program in? "
Ask 45 9
Display "|"
EndIf
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "-"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "Do you run a BBS? (Y/N) "
Ask 1 10
Display "|"
If 10 = "Y"
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "---------------------------------------------"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "What is the name/number/net# of your BBS? "
Ask 45 11
Display "|"
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "-"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "Is it OK to add you to the BBS list? (Y/N) "
Ask 1 12
EndIf
Display "|"
ChangeColor 4 0
Display " ["
ChangeColor 7 0

Display "----------------------------------------------"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "What are some of your other interests, hobbies, etc.? "
Ask 45 13
Display "|"
ClearScreen
Display " Name: "
ListAnswer 1
Display " Address: "
ListAnswer 2
Display " City/State: "
ListAnswer 3
Display " Computer: "
ListAnswer 4
Display " Terminal Software: "
ListAnswer 5
Display " Look for: "
ListAnswer 6
Display " Age: "
ListAnswer 7
Display " Programming: "
ListAnswer 8
Display " Languages: "
ListAnswer 9
Display " BBS: "
ListAnswer 10
Display " BBS Info: "
ListAnswer 11
Display " Ok to add: "
ListAnswer 12
Display " Other Interests: "
ListAnswer 13
ChangeColor 11 0
Display "|Save these answers (Y/N)? "
GetChoice YN 20
If 20 = "Y"
OutputAnswer " Name: " 1
OutputAnswer " Address: " 2
OutputAnswer " City/State: " 3
OutputAnswer " Computer: " 4
OutputAnswer " Terminal Software: " 5
OutputAnswer " Look for: " 6
OutputAnswer " Age: " 7
OutputAnswer " Programming: " 8
OutputAnswer " Languages: " 9
OutputAnswer " BBS: " 10
OutputAnswer " BBS Info: " 11
OutputAnswer " Ok to add: " 12
OutputAnswer " Other Interests: " 13
ChangeColor 15 0
Display "|Answers saved! Thank you for filling out the Questionaire.|"
Display "|Please read the system bulletins OFTEN!|"
Display "|Have FUN! and I hope you Enjoy Dark Shadows BBS!|"
SetFlag D1 OFF
SetSecurity 10
If 10 = "Y"
SetSecurity 40
EndIf
EndIf

If 20 = "N"
ChangeColor 15 0
Display "|Answers discarded - Please re-enter if you like.|"
ChangeColor 7 0
EndIf


-----End-----