ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/BBS/RA/QUES_221.ZIP/SAMPLES.ZIP/DATABASE.ZIP/Q-NEW2.Q-A

Text File | 1991-03-01 | 5.5 KB | 347 lines

:top
gotolabel main


:Main
Displayfile q-einlei
:Frage
display "If you want to fill in the questions, then please|"
display "type 'YES'. Type 'NO' to abort the registration!  : "
ask 4 1

if 1 = "yes"
setvar 1 = ""
gotolabel weiter
endif
if 1 = "no"
gotolabel cancel
endif
gotolabel frage
:


:weiter
let erroron = off
display "Please wait..."
checkdata dat-1 31
if 31 = "1"
loaddata dat-1 1
loaddata dat-2 2
loaddata dat-3 3
loaddata dat-4 4
loaddata dat-5 5
loaddata dat-6 6
loaddata dat-7 7
loaddata dat-8 8
loaddata dat-9 9
loaddata dat-10 10
loaddata dat-11 11
loaddata dat-12 12
endif
let erroron = on


display "||"
if 31 = "1"
gosublabel allready
gotolabel ask
endif



:101
display "Your name...............................: "
askedit 34 1
if 1 = ""
beep
gotolabel 101
endif
:

:102
display "Your adress.............................: "
askedit 34 2
if 2 = ""
beep
gotolabel 102
endif
:

:103
display "Your code and city......................: "
askedit 34 3
if 3 = ""
beep
gotolabel 103
endif
:

:104
display "Your data telephone number..............: "
askedit 34 4
if 4 = ""
beep
gotolabel 104
endif
:

:105
display "Your age................................: "
askedit 3 5
:

:106
display "Your computer type......................: "
askedit 34 6
:

:107
display "Your modem type.........................: "
askedit 34 7
:

:108
display "Your terminal program...................: "
askedit 34 8
:

:109
display "How did you get our telephone number....: "
askedit 34 9
:

:110
display "Are you a sysop yourself (Y/N)..........: "
ask 1 10
:

if 10 = "Y"
:111
display "Your nodenumber.........................: "
askedit 34 11
:

:112
display "Your bbs telephone number...............: "
askedit 34 12
:
endif

display "||"

:Ask
Display "|Did you enter everything correctly (Y/N) ? "
ask 1 30
display "|"
if 30 = "Y"
gotolabel end
endif
if 30 = "N"
gotolabel new
endif
ifnot 30 = "Y"
beep
beep
display "||Wrong choise. Only 'Y' or 'N' are valid choises...|"
gotolabel Ask
endnotif
:


:end
if 31 = "1"
displayfile q-all
endif
if 31 = "0"
Displayfile q-ende
endif
Ask 0 31

display "|Now saving your data, please wait"
OutputAnswer ""
PostInfo
let erroron = off
OutputAnswer "Name...............: " 1
OutputAnswer "Adress.............: " 2
OutputAnswer "Code / City........: " 3
OutputAnswer "Telephone..........: " 4
OutputAnswer "Age................: " 5
OutputAnswer "Computertype.......: " 6
OutputAnswer "Modemtype..........: " 7
OutputAnswer "Terminalprogram....: " 8
OutputAnswer "Got bbs from.......: " 9
display "."
writedata dat-1 1
display "."
writedata dat-2 2
display "."
writedata dat-3 3
display "."
writedata dat-4 4
display "."
writedata dat-5 5
display "."
writedata dat-6 6
display "."
writedata dat-7 7
display "."
writedata dat-8 8
display "."
writedata dat-9 9
display "."
writedata dat-10 10

if 10 = "Y"
OutputAnswer "Sysop..............: " 10
OutputAnswer "Node-Nr............: " 11
OutputAnswer "Telephone BBS......: " 12
OutputAnswer ""
writedata dat-11 11
writedata dat-12 12
endif
let erroron = on
display "|"
start q-new last
:


:new
if 10 = "N"
Display "Which line do you wish to change ( A-J ) ? "
endif
if 10 = "Y"
Display "Which line do you wish to change ( A-L ) ? "
endif

ask 1 30
display "|||"

if 30 = "a"
gosublabel 101
gosublabel allready
gotolabel ask
endif

if 30 = "b"
gosublabel 102
gosublabel allready
gotolabel ask
endif

if 30 = "c"
gosublabel 103
gosublabel allready
gotolabel ask
endif

if 30 = "d"
gosublabel 104
gosublabel allready
gotolabel ask
endif

if 30 = "e"
gosublabel 105
gosublabel allready
gotolabel ask
endif

if 30 = "f"
gosublabel 106
gosublabel allready
gotolabel ask
endif

if 30 = "g"
gosublabel 107
gosublabel allready
gotolabel ask
endif

if 30 = "h"
gosublabel 108
gosublabel allready
gotolabel ask
endif

if 30 = "i"
gosublabel 109
gosublabel allready
gotolabel ask
endif

if 30 = "j"
gosublabel 110
gosublabel allready
gotolabel ask
endif

if 30 = "k"
gosublabel 111
gosublabel allready
gotolabel ask
endif

if 30 = "l"
gosublabel 112
gosublabel allready
gotolabel ask
endif

ifnot 30 = "fake"

:FAKE

display "||"
beep
beep
display "Wrong choise! Please try again...|"
pause 2
gotolabel new
endnotif
:


:cancel
clearscreen
display "|||"
display "New user registration aborted!|"
display "|To bad you don't want to register yourself as|"
display "a member... Well, maybe next time!|"
display "|Press <ENTER> to return"
ask 0 1
start q-new abort
:



:allready
display "|||A. Your name............................: "
listanswer 1
display "B. Your adress..........................: "
listanswer 2
display "C. Your code and city...................: "
listanswer 3
display "D. Your data telephone number...........: "
listanswer 4
display "E. Your age.............................: "
listanswer 5
display "F. Your computer type...................: "
listanswer 6
display "G. Your modem type......................: "
listanswer 7
display "H. Your terminal program................: "
listanswer 8
display "I. How did you get our telephone number.: "
listanswer 9
display "J. Are you a sysop yourself (Y/N).......: "
listanswer 10

if 10 = "Y"
display "K. Your nodenumber......................: "
listanswer 11
display "L. Your bbs telephone number............: "
listanswer 12
endif
: