home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
MISC
/
TG-REG02.ZIP
/
TG-REG02.SCR
< prev
next >
Wrap
Text File
|
1999-01-24
|
10KB
|
245 lines
;
; "Dawgware 99" TELEGARD User Registery v1.02 /
; TG-REG02.SCR - Telegard Registery Utility,
VARIABLE NOYES BOOLEAN
VARIABLE YESNO BOOLEAN
VARIABLE NAME STRING
VARIABLE AGE STRING
VARIABLE EYE STRING
VARIABLE HAIR STRING
VARIABLE HEIGHT STRING
VARIABLE WEIGHT STRING
VARIABLE STATUS STRING
VARIABLE MEASURE STRING
VARIABLE PREFERENCE STRING
VARIABLE INTERNET STRING
VARIABLE LINE1 STRING
VARIABLE LINE2 STRING
VARIABLE CHOICE CHAR
;Edit this line to match the path to your Text Directory.
VARIABLE APPPATH STRING "D:\DOG\TEXT"
CLS
PUTNL "18H`03──══`0B■ `09Telegard User Registery Version 1.02 `0B■`03══──`00DA"
PUTNL "25H`03──══`0B■ `09Online User Registery `0B■`03══──`00DA"
PUTNL "24H`03──══`0B■ `09For ~SA `0B■`03══──`00DA"
NL
NL
NL
NL
PUTNL " `03Welcome `0B~UH`03,"
NL
YESNO NOYES "`03Would You Like To Fill Out The User Registery? `0B[`09 Y`0B/`09N `0B]
JE "$NOYES$" "NO" DONE
NL
NL
:TOP
CLS
GET CHOICE "8H`03──══`0B■ `03Are You Male or Female? (`0BM`03/`0B/F`03)`0B■`03══──`00
JE "$CHOICE$" "M" MALE
JE "$CHOICE$" "F" FEMALE
JE "$CHOICE$" "Q" END
:MALE
CLS
PUTNL "4H`03──══`0B■ `09Ok ~UF, Please Fill Out All The Questions You Wish To! `0B■`03══──"
NL
NL
GET NAME "`03──══`0B■ `0B1`09] `03First Name `0B: `07 " 20 NO
GET AGE "`03──══`0B■ `0B2`09] `03What Is Your Age? `0B:`07 " 2 NO "##"
GET EYE "`03──══`0B■ `0B3`09] `03What Is Your Eye Colour? `0B:`07 " 10 NO
GET HAIR "`03──══`0B■ `0B4`09] `03What Is Your Hair Colour? `0B:`07 " 10 NO
GET HEIGHT "`03──══`0B■ `0B5`09] `03What Is Your Height? `0B:`07 " 6 NO
GET WEIGHT "`03──══`0B■ `0B6`09] `03What Is Your Weight? `0B:`07 " 3 NO "###"
GET STATUS "`03──══`0B■ `0B7`09] `03What Is Your Marital Status? `0B:`07 " 10 NO
GET PREFERENCE "`03──══`0B■ `0B8`09] `03What Is Your Sexual Preference? `0B:`07 " 15 NO
GET INTERNET "`03──══`0B■ `0B9`09] `03What Is Your InterNet Address? `0B:`07 " 25 NO
NL
PUTNL "`03──══`0B■ `09Please Enter Something Of Intrest About Yourself `0B■`03══──"
PUTNL "`03──══`0B■ You Have Two Lines With 65 Characters Per Line. `0B■`03══──"
GET LINE1 "~SM`03──══`0B■ `03Enter Line 1 `0B ■`03══──~SM`00`0B:`03" 65 NO
GET LINE2 "~SM`03──══`0B■ `03Enter Line 2 `0B ■`03══──~SM`00`0B:`03" 65 NO
NL
NL
CLS
PUTNL "4H`03──══`0B■ `09Ok ~UF This Is What Will Be Posted To The Other Users `0B■`03══──`00DA"
NL
PUTNL "4H`03──══`0B■`09~UH's User Registery `0B■`03══──`00DA"
PUTNL
PUTNL "4H`03──══`0B■ [`03Name`0B] `0B: `0F$NAME$"
PUTNL "4H`03──══`0B■ [`03Handle`0B] `0B: `0F~UH"
PUTNL "4H`03──══`0B■ [`03Date`0B] `0B: `0F~SD"
PUTNL "4H`03──══`0B■ [`03Age`0B] `0B: `0F$AGE$"
PUTNL "4H`03──══`0B■ [`03Eye Colour`0B] `0B: `0F$EYE$"
PUTNL "4H`03──══`0B■ [`03Hair Colour`0B] `0B: `0F$HAIR$"
PUTNL "4H`03──══`0B■ [`03Your Height`0B] `0B: `0F$HEIGHT$"
PUTNL "4H`03──══`0B■ [`03Your Weight`0B] `0B: `0F$WEIGHT$"
PUTNL "4H`03──══`0B■ [`03Marital Sratus`0B] `0B: `0F$STATUS$"
PUTNL "4H`03──══`0B■ [`03Sexual Preference`0B] `0B: `0F$PREFERENCE$"
PUTNL "4H`03──══`0B■ [`03InterNet Address`0B] `0B: `0F$INTERNET$"
NL
PUTNL "4H`03──══`0B■ [`03~UH's Hobbies`0B] `0B■`03══──"
PUTNL "4H`03──══`0B■ [`0B: `0F$LINE1$"
PUTNL "4H`03──══`0B■ [`0B: `0F$LINE2$"
NL
NOYES YESNO "`03──══`0B■ `03Leave This Information? `0BN`09)`03=`0BEdit `03- `0BY`09)`03=`0BSave `09[`0B N`03/`0BY `09]" `0B
JE "$YESNO$" "NO" EDIT
NL
FILEOPEN $APPPATH$\MALE.MSG
NL
NL
FILEPUT "~SC"
FILEPUT "`00...............`03──══`0B■`09~UH's User Registery `0B■`03══──"
FILEPUT
FILEPUT "`03──══`0B■ [`03Name`0B] `0B: `0F$NAME$"
FILEPUT "`03──══`0B■ [`03Handle`0B] `0B: `0F~UH"
FILEPUT "`03──══`0B■ [`03Date`0B] `0B: `0F~SD"
FILEPUT "`03──══`0B■ [`03Age`0B] `0B: `0F$AGE$"
FILEPUT "`03──══`0B■ [`03Eye Colour`0B] `0B: `0F$EYE$"
FILEPUT "`03──══`0B■ [`03Hair Colour`0B] `0B: `0F$HAIR$"
FILEPUT "`03──══`0B■ [`03My Height`0B] `0B: `0F$HEIGHT$"
FILEPUT "`03──══`0B■ [`03My Weight`0B] `0B: `0F$WEIGHT$"
FILEPUT "`03──══`0B■ [`03Marital Sratus`0B] `0B: `0F$STATUS$"
FILEPUT "`03──══`0B■ [`03Sexual Preference`0B] `0B: `0F$PREFERENCE$"
FILEPUT "`03──══`0B■ [`03InterNet Address`0B] `0B: `0F$INTERNET$"
FILEPUT
FILEPUT "`00............`03──══`0B■ [`03Additional Information For ~UH`0B] `0B■`03══──"
FILEPUT "`03──══`0B■ [`0B: `0F$LINE1$"
FILEPUT "`03──══`0B■ [`0B: `0F$LINE2$"
FILEPUT
FILEPUT "~SP"
NL
FILECLOSE
NL
MENU MT 0;REGISTER.MSG;Registery Left;~UH;~SS
MENU MT 0;THANKS.MSG;Thanks!;~SS;~UH
FILECREATE DOG.DOG
;Edit the -Q and the +R to match the AR (F) flags you wish to use.
FILEEXIST DOG.DOG MENU OF -Q +R
FILEEARASE DOG.DOG
NL
NL
PUTNL "~SM`03Thanks!!!"
PUTNL "`0BP`03osting `0BI`03nformation`0B~SW.~SW.~SW.~SW."
PUTNL "`0BD~SW`03a~SWw~SWg~SWw~SWa~SWr~SWe~SW ~SW`0B9~SW9~SW!~SW!"
CLS
JUMP DONE
:EDIT
NL
NOYES YESNO "`03──══`0B■ `03Do You Want To Edit Your Information? `0B[`09 N`03/`09Y `0B]"`09
JE "$YESNO$" "YES" MALE
:DONE
ENDSCRIPT
:FEMALE
CLS
PUTNL "4H`03──══`0B■ `09Ok ~UF Please Fill Out All The Questions You Wish To! `0B■`03══──"
NL
NL
GET NAME "`03──══`0B■ `0B1`09] `03First Name `0B: `07 " 20 NO
GET AGE "`03──══`0B■ `0B2`09] `03What Is Your Age? `0B:`07 " 2 NO "##"
GET EYE "`03──══`0B■ `0B3`09] `03What Is Your Eye Colour? `0B:`07 " 10 NO
GET HAIR "`03──══`0B■ `0B4`09] `03What Is Your Hair Colour? `0B:`07 " 10 NO
GET HEIGHT "`03──══`0B■ `0B5`09] `03What Is Your Height? `0B:`07 " 6 NO
GET WEIGHT "`03──══`0B■ `0B6`09] `03What Is Your Weight? `0B:`07 " 3 NO "###"
GET STATUS "`03──══`0B■ `0B7`09] `03What Is Your Marital Status? `0B:`07 " 10 NO
GET MEASURE "`03──══`0B■ `0B8`09] `03What Are Your Measurements? `0B:`07 " 8 NO "##-##-##"
GET PREFERENCE "`03──══`0B■ `0B9`09] `03What Is Your Sexual Preference? `0B:`07 " 15 NO
GET INTERNET "`03──══`0B■ `0B10] `03What Is Your InterNet Address? `0B:`07 " 25 NO
NL
PUTNL "`03──══`0B■ `09Please Enter Something Of Intrest About Yourself `0B■`03══──"
PUTNL "`03──══`0B■ You Have Two Lines With 65 Characters Per Line. `0B■`03══──"
GET LINE1 "~SM`03──══`0B■ `03Enter Line 1 `0B ■`03══──~SM`00`0B:`03" 65 NO
GET LINE2 "~SM`03──══`0B■ `03Enter Line 2 `0B ■`03══──~SM`00`0B:`03" 65 NO
NL
NL
CLS
PUTNL "4H`03──══`0B■ `09Ok ~UF This Is What Will Be Posted To The Other Users `0B■`03══──`00DA"
NL
PUTNL "4H`03──══`0B■`09~UH's User Registery `0B■`03══──"
PUTNL
PUTNL "4H`03──══`0B■ [`03Name`0B] `0B: `0F$NAME$"
PUTNL "4H`03──══`0B■ [`03Handle`0B] `0B: `0F~UH"
PUTNL "4H`03──══`0B■ [`03Date`0B] `0B: `0F~SD"
PUTNL "4H`03──══`0B■ [`03Age`0B] `0B: `0F$AGE$"
PUTNL "4H`03──══`0B■ [`03Eye Colour`0B] `0B: `0F$EYE$"
PUTNL "4H`03──══`0B■ [`03Hair Colour`0B] `0B: `0F$HAIR$"
PUTNL "4H`03──══`0B■ [`03Your Height`0B] `0B: `0F$HEIGHT$"
PUTNL "4H`03──══`0B■ [`03Your Weight`0B] `0B: `0F$WEIGHT$"
PUTNL "4H`03──══`0B■ [`03Marital Sratus`0B] `0B: `0F$STATUS$"
PUTNL "4H`03──══`0B■ [`03Your Measurements`0B] `0B: `0F$MEASURE$"
PUTNL "4H`03──══`0B■ [`03Sexual Preference`0B] `0B: `0F$PREFERENCE$"
PUTNL "4H`03──══`0B■ [`03InterNet Address`0B] `0B: `0F$INTERNET$"
NL
PUTNL "4H`03──══`0B■ [`03~UH's Hobbies`0B] `0B■`03══──"
PUTNL "4H`03──══`0B■ [`0B: `0F$LINE1$"
PUTNL "4H`03──══`0B■ [`0B: `0F$LINE2$"
NL
NL
NOYES YESNO "`03──══`0B■ `03Leave This Information? `0BN`09)`03=`0BEdit `03- `0BY`09)`03=`0BSave `09[`0B N`03/`0BY `09]" `0B
JE "$YESNO$" "NO" EDIT1
NL
FILEOPEN $APPPATH$\FEMALE.MSG
NL
NL
FILEPUT "~SC"
FILEPUT "`00...............`03──══`0B■`09~UH's User Registery `0B■`03══──"
FILEPUT
FILEPUT "`03──══`0B■ [`03Name`0B] `0B: `0F$NAME$"
FILEPUT "`03──══`0B■ [`03Handle`0B] `0B: `0F~UH"
FILEPUT "`03──══`0B■ [`03Date`0B] `0B: `0F~SD"
FILEPUT "`03──══`0B■ [`03Age`0B] `0B: `0F$AGE$"
FILEPUT "`03──══`0B■ [`03Eye Colour`0B] `0B: `0F$EYE$"
FILEPUT "`03──══`0B■ [`03Hair Colour`0B] `0B: `0F$HAIR$"
FILEPUT "`03──══`0B■ [`03My Height`0B] `0B: `0F$HEIGHT$"
FILEPUT "`03──══`0B■ [`03My Weight`0B] `0B: `0F$WEIGHT$"
FILEPUT "`03──══`0B■ [`03Marital Sratus`0B] `0B: `0F$STATUS$"
FILEPUT "`03──══`0B■ [`03My Measurements`0B] `0B: `0F$MEASURE$"
FILEPUT "`03──══`0B■ [`03Sexual Preference`0B] `0B: `0F$PREFERENCE$"
FILEPUT "`03──══`0B■ [`03InterNet Address`0B] `0B: `0F$INTERNET$"
FILEPUT
FILEPUT "`00............`03──══`0B■ [`03Additional Information For ~UH`0B] `0B■`03══──"
FILEPUT "`03──══`0B■ [`0B: `0F$LINE1$"
FILEPUT "`03──══`0B■ [`0B: `0F$LINE2$"
FILEPUT
FILEPUT "~SP"
NL
FILECLOSE
NL
MENU MT 0;REGISTER.MSG;Registery Left;~UH;~SS
MENU MT 0;THANKS.MSG;Thanks!;~SS;~UH
FILECREATE DOG.DOG
;Edit the -Q and the +R to match the AR (F) flags you wish to use.
FILEEXIST DOG.DOG MENU OF -Q +R
FILEEARASE DOG.DOG
NL
NL
PUTNL "~SM`03Thanks!!!"
PUTNL "`0BP`03osting `0BI`03nformation`0B~SW.~SW.~SW.~SW."
PUTNL "`0BD~SW`03a~SWw~SWg~SWw~SWa~SWr~SWe~SW ~SW`0B9~SW9~SW!~SW!"
CLS
JUMP DONE
:EDIT1
NL
NOYES YESNO "`03──══`0B■ `03Do You Want To Edit Your Information? `0B[`09 N`03/`09Y `0B]"`09
JE "$YESNO$" "YES" FEMALE
:DONE
ENDSCRIPT