"C:QUESTION\NEWUSER.DAT",2
*{CS
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*NEW USER QUESTIONAIRRE
*
*ALL VALIDATIONS ARE DONE THROUGH THE MAIL; THEREFORE IT IS IMPERATIVE
* THAT THE INFORMATION YOU ENTER IS CORRECT. 
*                      
*
:DAH
*
*
*
*
*
*
*
*
*{PB
:START
*{CS
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*ALL INFORMATION IS KEPT CONFIDENTIAL!
*
?1 REAL FULL NAME 
*
?2 STREET ADDRESS 
*
?3 CITY, SATE & ZIP 
*
?4 PHONE NUMBER 
*
?5 DATE OF BIRTH
* 
*
*
*
*
*
*
*
*
*
*
:MNEWS
*{CS
*
*
*
*
*
*
*
*
*
* I entered the following information:
*
*
*
* 1 NAME.............................. [1]
* 2 ADDRESS........................... [2]
* 3 CITY, STATE & IZP................. [3]
* 4 PHONE............................. [4]
* 5 DATE OF BIRTH..................... [5]
*
*
:MIDMENU
?Is this information all correct (Y,N)
=YAPPEND0=NEDIT1= MNEWS
:EDIT1
*Item you'd like to change ?
? (A)ll, 1, 2, 3, 4, 5, N)one-Leave as is 
=ASTART=1MONE=2MTWO=3MTHREE=4MFOUR=5MFIVE=NAPPEND0= MNEWS
:MONE
*
?1 NAME 
>MNEWS
:MTWO
*
:MTWO
*
?2 STREET ADDRESS 
>MNEWS
:MTHREE
*
?3 CITY, STATE & ZIP 
>MNEWS
:MFOUR
*
?4 PHONE NUMBER 
>MNEWS
:MFIVE
*
?5 DATE OF BIRTH
>MNEWS
:APPEND0
:HUH
*Would you like access to The Pride BBS (alternative lifestyle)
6? ( Y or N )
=YPRINT=NABORT= HUH
:PRINT
M C:\RBBS\QUESTION\PRIDE.IMC
M C:\RBBS\QUESTION\MAINCMT.IMC
>END
:ABORT
M C:\RBBS\QUESTION\newuser.imc
M C:\RBBS\QUESTION\MAINCMT.IMC
:END
@
