// demo
DEFINITIONS
TOUROPS  = { t1 (1) "Thomsons", t2 (2) "Horizon", t3 (3) "Enterprise", t4 (4) "Intasun", t5 (5) "Bladon Lines", t6 (6) "Global",
             other (7) "Other" + tother (1) "Please, specify" : STRING[20]
           }
RESORTS  = { r1 (1) "Igls", r2 (2) "Mayrhofen", r3 (3) "Ischgl", r4 (4) "Kirchberg", r5 (5) "Kitzbuhel", r6 (6) "Lermoos",
             r7 (7) "Niederau", r8 (8) "Obergurl", r9 (9) "Saalbach", r10 (10) "Soll", r11 (11) "Zellam Am See", r12 (12) "Val D'Isere",
             r13 (13) "Les Deux Alpes", r14 (14) "Tignes", r15 (15) "Cervinia", r16 (16) "Courmayeur", r17 (17) "Sauze D'Oulx",
             other (18) "Other" + tother (1) "Please, specify" : TEXT 
           }
ITEMS    = { i1 (1) "Skis/Poles", i2 (2) "Boots", i3 (3) "Ski school", i4 (4) "Lift pass" }
SKILL    = { s1 (1) "Beginner", s2 (2) "Intermediate", s3 (3) "Advanced", s4 (4) "Expert" }
SEX      = { m (2) "Male", f (1) "Female" }
AGE      = { a1 (1) "18-20", a2 (2) "21-24", a3 (3) "25-34", a4 (4) "35-44", a5 (5) "45-54", a6 (6) "55-64", a7 (7) "65+" }
RATING   = { 1 "Very good", 2 "Good", 3 "About average", 4 "Bad", 5 "Very poor" }
YESNO    = { y (1) "Yes", n (2) "No" }

QUESTIONS
Resort "Can you tell me which resort you went to on your 1991/1992 ski holidays" : RESORTS
Tourco "Which Tour company did you book with?" : TOUROPS
Reason "Why did you choose that particular company?" : OPENTEXT
Extras "Did you rent any extras (such as skis/poles, boot, lift pass etc) before you left on holiday?" : YESNO
Items "Which of these did you rent at home before leaving on your holiday?" : ITEMS {4}
Costtot "What was the total cost of your holiday? Including flights, any prepaid accomodation, transfers @B$and@$ all extras whether rented at resort or at home @B$plus@$ all your expenditure while at the resort. Please make your best estimate" : 1..999
Skill "Tell me which of these best describes your level of skiing" : SKILL
Ratings[TOUROPS] "Tell us how good or bas you think each of these tour companies are at pre-holiday bookings?" : RATING
Sex "What is your sex?" : SEX REQUIRED
Age "What is your age?" : AGE REQUIRED

ROUTE
NEWPAGE()
MESSAGE("These are few questions about your last skiing holiday in Europe")
ASK(Resort)
ASK(Tourco)
ASK(Reason)
ASK(Extras)
ENDPAGE()

IF Extras==y THEN { NEWPAGE()
                    ASK(Items)
                    ENDPAGE()
                  }

NEWPAGE()
ASK(Costtot)
ASK(Skill)
ASK(Ratings)
ASK(Sex)
ASK(Age)
ENDPAGE()
@<"print.dsc"