;[ The EzyCom Scripting Crew        ]
;[ New User Questionnaire 5/17/1996 ]
;[ ESC Pack #0006                   ]
;[ Just write over the original     ]
;[ EZYCom NEWUSER.Q-A               ]
;[ Written by Psychot Telstar       ]

POSTINFO
CLEARSCREEN

;START 
DISPLAY "[2J[0m[1mÚÄ[33mÄ[37mÄ[33mÄÄ[32mÄ[33mÄ[32mÄÄ[0;32mÄ[1mÄ[0;32mÄÄ[1;30mÄ[0;32mÄ[1;30mÄÄÄÄÄÄÄÄÄÄÄÄÄESC Gnu User FormÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[0;32mÄ"
DISPLAY "[A[67C[1;30mÄ[0;32mÄÄ[1mÄ[0;32mÄ[1mÄÄ[33mÄ[32mÄ[33mÄÄ[37mÄ[33m¿À[37mÄ[33mÄÄ[32mÄ[33mÄ[32mÄÄ[0;32mÄ[1mÄ[0;32mÄÄ[1;30mÄ[0;32mÄ "
DISPLAY "[A[14C[1;30mÄÄÄÄÄÄÄÄÄÄÄÄÄÄBy: Psychot TelstarÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[0;32mÄ[1;30mÄ[0;32mÄÄ[1mÄ[0;32mÄ[1mÄÄ[33mÄ[32mÄ[33mÄÄ[37mÄ[33mÄ[37mÄÙÚÄ"
DISPLAY "[A[2C[33mÄ[37mÄ[33mÄÄ[32mÄ[33mÄ[32mÄÄ[0;32mÄ[1mÄ[0;32mÄÄ[1;30mÄ[0;32mÄ[1;30mÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"
DISPLAY "[A[75C[0;32mÄ[1;30mÄ[0;32mÄÄ[1m¿[33m³[30mReal Name [..........................]³Are You A SysOp? [Y,n] [.][13C[0;32m³[1;37m³[30mAlais [...."
DISPLAY "[A[12C..........................]³Name Of BBS [.........................][32m³[33m³[30mVox Number [...-...-....]             ³BBS Number [...-...-."
DISPLAY "[A[61C...][14C[32m³[33m³[30mData Number [...-...-....]            ³BBS Max Speed [......]Kps[14C[33m³[32m³[30mAddress [......................."
DISPLAY "[A[33C.....]³BBS Software [........................][32m³[33m³[30mCity [...............................]³BBS Theme [...........................]"
DISPLAY "[A[79C[33m³[32m³[30mState [..]                            ³[.....................................][33m³[32m³[30mZip [.....-....]"               
DISPLAY "[A[32C       ³[.....................................][37m³[0;32m³[1;30mComputer [...........................]³[...................................."
DISPLAY "[A[77C.][33m³[32mÀ[0;32mÄÄ[1;30mÄ[0;32mÄ[1;30mÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[0;32mÄ[1;30mÄ[0;32mÄÄ[1mÄ[0;32mÄ"
DISPLAY "[A[70C[1mÄÄ[33mÄ[32mÄ[33mÄÄ[37mÄ[33mÄ[37mÄÙÚO[33mt[37mh[33mer[30m [33mB[32moa[0;32mr[1md[0;32ms[1;30m Y[0;32mo[1;30mu CallÄÄÄÄÄÄÄÄ"
DISPLAY "[A[30CÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[0;32mÄ[1;30mÄ[0;32mÄÄ[1mÄ[0;32mÄ[1mÄÄ[33mÄ[32mÄ[33m¿³[30m1. [................................."
DISPLAY "[A[38C........................................][33m³[37m³[30m2. [.........................................................................][37m³"
DISPLAY "[A[33m³[30m3. [.........................................................................][33m³À[32mÄ[33mÄ[32mÄÄ[0;32mÄ[1mÄ[0;32mÄÄ[1;30mÄ"
DISPLAY "[A[10C[0;32mÄ[1;30mÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[0;32mÄ[1;30mÄ[0;32mÄÄ[1mÄ[0;32mÄ[1mÄÄ[33mÄ[32mÄ[33mÄÄ[37mÄ[33mÄ"
DISPLAY "[A[78C[37mÄÙÚY[33mo[37mu[33mr[30m [32mI[33mn[32mtr[0;32me[1ms[0;32mts[1;30mÄ[0;32mÄ[1;30mÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"
DISPLAY "[A[62CÄÄÄÄÄÄ[0;32mÄ[1;30mÄ[0;32mÄÄ[1mÄ[0;32mÄ[1mÄÄ[33mÄ[32mÄ[33mÄ¿³[30m[...................................................................."
DISPLAY "[A[70C........][37m³³[30m[............................................................................][33m³ÀÄ[32mÄ[33mÄ[32mÄÄ[0;32mÄ[1mÄ"
DISPLAY "[A[8C[0;32mÄÄ[1;30mÄ[0;32mÄ[1;30mÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[0;32mÄ[1;30mÄ[0;32mÄÄ[1mÄ[0;32mÄ[1mÄÄ[33mÄ[32mÄ"
DISPLAY "[A[74C[33mÄÄ[37mÄ[33mÄ[37mÄÙ[0m
GOTO REALNAME

:REALNAME
CAPITALIZE FIRSTLETTER
GOTOXY 13 4
ASK 26 1
GOTO ALAIS

:ALAIS
CAPITALIZE OFF
GOTOXY 9 5
ASK 30 2
GOTO VOXNUMBER

:VOXNUMBER
GOTOXY 14 6
ASK 12 3
GOTO DATANUMBER

:DATANUMBER
GOTOXY 15 7
ASK 12 4
GOTO ADDRESS

:ADDRESS
CAPITALIZE FIRSTLETTER
GOTOXY 11 8
ASK 28 5
GOTO CITY

:CITY
CAPITALIZE OFF
GOTOXY 8 9
ASK 31 6
GOTO STATE

:STATE
CAPITALIZE ON
GOTOXY 9 10
ASK 2 7
GOTO ZIP

:ZIP
CAPITALIZE FIRSTLETTER
GOTOXY 6 11
ASK 10 8
GOTO COMPUTER

:COMPUTER
CAPITALIZE FIRSTLETTER
GOTOXY 11 12
ASK 30 9
GOTO AREYOUAOP

:AREYOUAOP
CAPITALIZE ON
GOTOXY 65 4
GETCHOICE YN 1 
IF 1 <> "Y"
     GOTO BBSNAME
ELSE
     GOTO 1
ENDIF

:BBSNAME
CAPITALIZE OFF
GOTOXY 54 5
ASK 25 13
GOTO BBSNUMBER

:BBSNUMBER
GOTOXY 53 6
ASK 12 14
GOTO BBSSPEED

:BBSSPEED
GOTOXY 56 7
ASK 6 15
GOTO BBSSOFTWARE

:BBSSOFTWARE
GOTOXY 55 8
ASK 24 16
GOTO BBSTHEME1

:BBSTHEME1
GOTOXY 52 9
ASK 27 17
GOTO BBSTHEME2

:BBSTHEME2
GOTOXY 42 10
ASK 37 18
GOTO BBSTHEME3

:BBSTHEME3
GOTOXY 42 11
ASK 37 19
GOTO BBSTHEME4

:BBSTHEME4
GOTOXY 42 12
ASK 37 20
GOTO 1

:1
GOTOXY 5 16
ASK 74 21
GOTO 2

:2
GOTOXY 5 17
ASK 74 22
GOTO 3

:3
GOTOXY 5 18
ASK 74 23
GOTO INTRESTS1

:INTRESTS1
GOTOXY 3 21
ASK 76 24
GOTO INTRESTS2

:INTRESTS2
GOTOXY 3 22
ASK 76 25
GOTO SAVE

changecolour 14 0
Display "||Saving responses..."
OutputAnswer "Real Name      : " 1
OutputAnswer "Alais          : " 2
setvars "f" 26
OutputAnswer "AGE            : " 26
OutputAnswer "Vox Number     : " 3
OutputAnswer "Data Number    : " 4
OutputAnswer "Address        : " 5
OutputAnswer "City           : " 6
OutputAnswer "State          : " 7
OutputAnswer "Zip            : " 8
OutputAnswer "Computer       : " 9
OutputAnswer "BBS Name       : " 13
OutputAnswer "BBS Number     : " 14
OutputAnswer "BBS Speed      : " 15
OutputAnswer "BBS Software   : " 16
OutputAnswer "BBS Theme 1    : " 17
OutputAnswer "BBS Theme 2    : " 18
OutputAnswer "BBS Theme 3    : " 19
OutputAnswer "BBS Theme 4    : " 20
OutputAnswer "Board 1        : " 21
OutputAnswer "Board 2        : " 22
OutputAnswer "Board 3        : " 23
OutputAnswer "Intrests 1     : " 24
OutputAnswer "Intrests 2     : " 25
