home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hall of Fame
/
HallofFameCDROM.cdr
/
qbbsetc
/
qgen20.lzh
/
SAMPLE-A.Q-A
< prev
next >
Wrap
Text File
|
1990-07-30
|
1KB
|
44 lines
PostInfo
ClearScreen
ChangeColor 11 0
Display " * * * SAMPLE-A * * |"
Display " Using the `Ask User` style|"
Display " PROVIDED BY COMPUTER GROUP,LTD(tm)|"
Display "|"
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "-"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "Have you used Software Package #1(y/n)?? "
Ask 01 1
Display "|"
ChangeColor 4 0
Display " ["
ChangeColor 7 0
Display "-"
ChangeColor 4 0
Display "]|"
ChangeColor 11 0
Display "If yes, Do you rate it G)ood or B)ad ?? "
Ask 01 2
Display "|"
ClearScreen
Display " Used??? "
ListAnswer 1
Display " Rate "
ListAnswer 2
ChangeColor 11 0
Display "|Save these answers (Y/N)? "
GetChoice YN 20
If 20 = "Y"
OutputAnswer " Used??? " 1
OutputAnswer " Rate " 2
EndIf
Quit
;
; Created using QuestGen v2.0, Copyright (C) 1990 RodentWare
;