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 >
Text File  |  1999-01-24  |  10KB  |  245 lines
  1. ;
  2. ;                 "Dawgware 99" TELEGARD User Registery v1.02                          /
  3. ;                  TG-REG02.SCR - Telegard Registery Utility,
  4.  
  5.  
  6.  VARIABLE NOYES BOOLEAN
  7.  VARIABLE YESNO BOOLEAN
  8.  VARIABLE NAME STRING   
  9.  VARIABLE AGE STRING
  10.  VARIABLE EYE STRING
  11.  VARIABLE HAIR STRING
  12.  VARIABLE HEIGHT STRING
  13.  VARIABLE WEIGHT STRING
  14.  VARIABLE STATUS STRING
  15.  VARIABLE MEASURE STRING
  16.  VARIABLE PREFERENCE STRING
  17.  VARIABLE INTERNET STRING
  18.  VARIABLE LINE1 STRING
  19.  VARIABLE LINE2 STRING 
  20.  VARIABLE CHOICE CHAR
  21. ;Edit this line to match the path to your Text Directory. 
  22.  VARIABLE APPPATH STRING "D:\DOG\TEXT"
  23.  
  24.  CLS
  25.  PUTNL "18H`03──══`0B■  `09Telegard User Registery Version 1.02 `0B■`03══──`00DA"
  26.  PUTNL "25H`03──══`0B■  `09Online User Registery `0B■`03══──`00DA"
  27.  PUTNL "24H`03──══`0B■  `09For ~SA `0B■`03══──`00DA"
  28.  
  29.  NL
  30.  NL 
  31.  NL
  32.  NL
  33.  PUTNL " `03Welcome `0B~UH`03,"
  34.  NL
  35.        
  36. YESNO NOYES "`03Would You Like To Fill Out The User Registery? `0B[`09 Y`0B/`09N `0B]
  37. JE "$NOYES$" "NO" DONE
  38. NL
  39. NL
  40.  
  41. :TOP
  42. CLS
  43. GET CHOICE "8H`03──══`0B■ `03Are You Male or Female? (`0BM`03/`0B/F`03)`0B■`03══──`00
  44. JE "$CHOICE$" "M" MALE
  45. JE "$CHOICE$" "F" FEMALE
  46. JE "$CHOICE$" "Q" END
  47.  
  48.  
  49.  
  50. :MALE
  51. CLS
  52. PUTNL "4H`03──══`0B■ `09Ok ~UF, Please Fill Out All The Questions You Wish To! `0B■`03══──"
  53. NL
  54. NL
  55. GET NAME "`03──══`0B■ `0B1`09] `03First Name `0B: `07 " 20 NO
  56. GET AGE "`03──══`0B■ `0B2`09] `03What Is Your Age? `0B:`07 " 2 NO "##"
  57. GET EYE "`03──══`0B■ `0B3`09] `03What Is Your Eye Colour? `0B:`07 " 10 NO 
  58. GET HAIR "`03──══`0B■ `0B4`09] `03What Is Your Hair Colour? `0B:`07 " 10 NO
  59. GET HEIGHT "`03──══`0B■ `0B5`09] `03What Is Your Height? `0B:`07 " 6 NO 
  60. GET WEIGHT "`03──══`0B■ `0B6`09] `03What Is Your Weight? `0B:`07 " 3 NO "###"
  61. GET STATUS "`03──══`0B■ `0B7`09] `03What Is Your Marital Status? `0B:`07 " 10 NO
  62. GET PREFERENCE "`03──══`0B■ `0B8`09] `03What Is Your Sexual Preference? `0B:`07 " 15 NO
  63. GET INTERNET "`03──══`0B■ `0B9`09] `03What Is Your InterNet Address? `0B:`07 " 25 NO
  64. NL
  65. PUTNL "`03──══`0B■ `09Please Enter Something Of Intrest About Yourself `0B■`03══──"
  66. PUTNL "`03──══`0B■ You Have Two Lines With 65 Characters Per Line. `0B■`03══──"
  67. GET LINE1 "~SM`03──══`0B■ `03Enter Line 1  `0B ■`03══──~SM`00`0B:`03" 65 NO
  68. GET LINE2 "~SM`03──══`0B■ `03Enter Line 2  `0B ■`03══──~SM`00`0B:`03" 65 NO
  69. NL
  70. NL
  71. CLS
  72. PUTNL "4H`03──══`0B■ `09Ok ~UF This Is What Will Be Posted To The Other Users `0B■`03══──`00DA"
  73. NL
  74. PUTNL "4H`03──══`0B■`09~UH's User Registery `0B■`03══──`00DA"
  75. PUTNL
  76. PUTNL "4H`03──══`0B■ [`03Name`0B]              `0B: `0F$NAME$"
  77. PUTNL "4H`03──══`0B■ [`03Handle`0B]            `0B: `0F~UH"
  78. PUTNL "4H`03──══`0B■ [`03Date`0B]              `0B: `0F~SD"
  79. PUTNL "4H`03──══`0B■ [`03Age`0B]               `0B: `0F$AGE$"
  80. PUTNL "4H`03──══`0B■ [`03Eye Colour`0B]        `0B: `0F$EYE$"
  81. PUTNL "4H`03──══`0B■ [`03Hair Colour`0B]       `0B: `0F$HAIR$"
  82. PUTNL "4H`03──══`0B■ [`03Your Height`0B]       `0B: `0F$HEIGHT$"
  83. PUTNL "4H`03──══`0B■ [`03Your Weight`0B]       `0B: `0F$WEIGHT$"
  84. PUTNL "4H`03──══`0B■ [`03Marital Sratus`0B]    `0B: `0F$STATUS$"
  85. PUTNL "4H`03──══`0B■ [`03Sexual Preference`0B] `0B: `0F$PREFERENCE$"
  86. PUTNL "4H`03──══`0B■ [`03InterNet Address`0B]  `0B: `0F$INTERNET$"
  87. NL
  88. PUTNL "4H`03──══`0B■ [`03~UH's Hobbies`0B] `0B■`03══──"
  89. PUTNL "4H`03──══`0B■ [`0B: `0F$LINE1$"
  90. PUTNL "4H`03──══`0B■ [`0B: `0F$LINE2$"
  91. NL
  92. NOYES YESNO "`03──══`0B■ `03Leave This Information?  `0BN`09)`03=`0BEdit `03- `0BY`09)`03=`0BSave `09[`0B N`03/`0BY `09]" `0B
  93. JE "$YESNO$" "NO" EDIT
  94. NL
  95.  
  96. FILEOPEN $APPPATH$\MALE.MSG
  97. NL
  98. NL
  99. FILEPUT "~SC"
  100. FILEPUT      "`00...............`03──══`0B■`09~UH's User Registery `0B■`03══──"
  101. FILEPUT
  102. FILEPUT "`03──══`0B■ [`03Name`0B]              `0B: `0F$NAME$"
  103. FILEPUT "`03──══`0B■ [`03Handle`0B]            `0B: `0F~UH"
  104. FILEPUT "`03──══`0B■ [`03Date`0B]              `0B: `0F~SD"
  105. FILEPUT "`03──══`0B■ [`03Age`0B]               `0B: `0F$AGE$"
  106. FILEPUT "`03──══`0B■ [`03Eye Colour`0B]        `0B: `0F$EYE$"
  107. FILEPUT "`03──══`0B■ [`03Hair Colour`0B]       `0B: `0F$HAIR$"
  108. FILEPUT "`03──══`0B■ [`03My Height`0B]         `0B: `0F$HEIGHT$"
  109. FILEPUT "`03──══`0B■ [`03My Weight`0B]         `0B: `0F$WEIGHT$"
  110. FILEPUT "`03──══`0B■ [`03Marital Sratus`0B]    `0B: `0F$STATUS$"
  111. FILEPUT "`03──══`0B■ [`03Sexual Preference`0B] `0B: `0F$PREFERENCE$"
  112. FILEPUT "`03──══`0B■ [`03InterNet Address`0B]  `0B: `0F$INTERNET$"
  113. FILEPUT
  114. FILEPUT "`00............`03──══`0B■ [`03Additional Information For ~UH`0B] `0B■`03══──"
  115. FILEPUT "`03──══`0B■ [`0B: `0F$LINE1$"
  116. FILEPUT "`03──══`0B■ [`0B: `0F$LINE2$"
  117. FILEPUT
  118. FILEPUT "~SP"
  119. NL
  120. FILECLOSE
  121. NL
  122.  
  123. MENU MT 0;REGISTER.MSG;Registery Left;~UH;~SS
  124. MENU MT 0;THANKS.MSG;Thanks!;~SS;~UH
  125. FILECREATE DOG.DOG
  126. ;Edit the -Q and the +R to match the AR (F) flags you wish to use.
  127. FILEEXIST DOG.DOG MENU OF -Q +R
  128. FILEEARASE DOG.DOG
  129. NL
  130. NL
  131. PUTNL "~SM`03Thanks!!!"
  132. PUTNL "`0BP`03osting `0BI`03nformation`0B~SW.~SW.~SW.~SW."
  133. PUTNL "`0BD~SW`03a~SWw~SWg~SWw~SWa~SWr~SWe~SW ~SW`0B9~SW9~SW!~SW!"
  134. CLS
  135. JUMP DONE
  136.  
  137. :EDIT
  138. NL
  139. NOYES YESNO "`03──══`0B■ `03Do You Want To Edit Your Information? `0B[`09 N`03/`09Y `0B]"`09
  140. JE "$YESNO$" "YES" MALE
  141.  
  142. :DONE
  143. ENDSCRIPT
  144.  
  145.  
  146. :FEMALE
  147. CLS
  148. PUTNL "4H`03──══`0B■ `09Ok ~UF Please Fill Out All The Questions You Wish To! `0B■`03══──"
  149. NL
  150. NL
  151. GET NAME "`03──══`0B■ `0B1`09] `03First Name `0B: `07 " 20 NO
  152. GET AGE "`03──══`0B■ `0B2`09] `03What Is Your Age? `0B:`07 " 2 NO "##"
  153. GET EYE "`03──══`0B■ `0B3`09] `03What Is Your Eye Colour? `0B:`07 " 10 NO 
  154. GET HAIR "`03──══`0B■ `0B4`09] `03What Is Your Hair Colour? `0B:`07 " 10 NO
  155. GET HEIGHT "`03──══`0B■ `0B5`09] `03What Is Your Height? `0B:`07 " 6 NO 
  156. GET WEIGHT "`03──══`0B■ `0B6`09] `03What Is Your Weight? `0B:`07 " 3 NO "###"
  157. GET STATUS "`03──══`0B■ `0B7`09] `03What Is Your Marital Status? `0B:`07 " 10 NO
  158. GET MEASURE "`03──══`0B■ `0B8`09] `03What Are Your Measurements? `0B:`07 " 8 NO "##-##-##"
  159. GET PREFERENCE "`03──══`0B■ `0B9`09] `03What Is Your Sexual Preference? `0B:`07 " 15 NO
  160. GET INTERNET "`03──══`0B■ `0B10] `03What Is Your InterNet Address? `0B:`07 " 25 NO
  161. NL
  162. PUTNL "`03──══`0B■ `09Please Enter Something Of Intrest About Yourself `0B■`03══──"
  163. PUTNL "`03──══`0B■ You Have Two Lines With 65 Characters Per Line. `0B■`03══──"
  164. GET LINE1 "~SM`03──══`0B■ `03Enter Line 1  `0B ■`03══──~SM`00`0B:`03" 65 NO
  165. GET LINE2 "~SM`03──══`0B■ `03Enter Line 2  `0B ■`03══──~SM`00`0B:`03" 65 NO
  166. NL
  167. NL
  168. CLS
  169. PUTNL "4H`03──══`0B■ `09Ok ~UF This Is What Will Be Posted To The Other Users `0B■`03══──`00DA"
  170. NL
  171. PUTNL "4H`03──══`0B■`09~UH's User Registery `0B■`03══──"
  172. PUTNL
  173. PUTNL "4H`03──══`0B■ [`03Name`0B]              `0B: `0F$NAME$"
  174. PUTNL "4H`03──══`0B■ [`03Handle`0B]            `0B: `0F~UH"
  175. PUTNL "4H`03──══`0B■ [`03Date`0B]              `0B: `0F~SD"
  176. PUTNL "4H`03──══`0B■ [`03Age`0B]               `0B: `0F$AGE$"
  177. PUTNL "4H`03──══`0B■ [`03Eye Colour`0B]        `0B: `0F$EYE$"
  178. PUTNL "4H`03──══`0B■ [`03Hair Colour`0B]       `0B: `0F$HAIR$"
  179. PUTNL "4H`03──══`0B■ [`03Your Height`0B]       `0B: `0F$HEIGHT$"
  180. PUTNL "4H`03──══`0B■ [`03Your Weight`0B]       `0B: `0F$WEIGHT$"
  181. PUTNL "4H`03──══`0B■ [`03Marital Sratus`0B]    `0B: `0F$STATUS$"
  182. PUTNL "4H`03──══`0B■ [`03Your Measurements`0B] `0B: `0F$MEASURE$"
  183. PUTNL "4H`03──══`0B■ [`03Sexual Preference`0B] `0B: `0F$PREFERENCE$"
  184. PUTNL "4H`03──══`0B■ [`03InterNet Address`0B]  `0B: `0F$INTERNET$"
  185. NL
  186. PUTNL "4H`03──══`0B■ [`03~UH's Hobbies`0B] `0B■`03══──"
  187. PUTNL "4H`03──══`0B■ [`0B: `0F$LINE1$"
  188. PUTNL "4H`03──══`0B■ [`0B: `0F$LINE2$"
  189. NL
  190. NL
  191. NOYES YESNO "`03──══`0B■ `03Leave This Information?  `0BN`09)`03=`0BEdit `03- `0BY`09)`03=`0BSave `09[`0B N`03/`0BY `09]" `0B
  192. JE "$YESNO$" "NO" EDIT1
  193. NL
  194. FILEOPEN $APPPATH$\FEMALE.MSG
  195. NL
  196. NL
  197. FILEPUT "~SC"
  198. FILEPUT      "`00...............`03──══`0B■`09~UH's User Registery `0B■`03══──"
  199. FILEPUT
  200. FILEPUT "`03──══`0B■ [`03Name`0B]              `0B: `0F$NAME$"
  201. FILEPUT "`03──══`0B■ [`03Handle`0B]            `0B: `0F~UH"
  202. FILEPUT "`03──══`0B■ [`03Date`0B]              `0B: `0F~SD"
  203. FILEPUT "`03──══`0B■ [`03Age`0B]               `0B: `0F$AGE$"
  204. FILEPUT "`03──══`0B■ [`03Eye Colour`0B]        `0B: `0F$EYE$"
  205. FILEPUT "`03──══`0B■ [`03Hair Colour`0B]       `0B: `0F$HAIR$"
  206. FILEPUT "`03──══`0B■ [`03My Height`0B]         `0B: `0F$HEIGHT$"
  207. FILEPUT "`03──══`0B■ [`03My Weight`0B]         `0B: `0F$WEIGHT$"
  208. FILEPUT "`03──══`0B■ [`03Marital Sratus`0B]    `0B: `0F$STATUS$"
  209. FILEPUT "`03──══`0B■ [`03My Measurements`0B]   `0B: `0F$MEASURE$"
  210. FILEPUT "`03──══`0B■ [`03Sexual Preference`0B] `0B: `0F$PREFERENCE$"
  211. FILEPUT "`03──══`0B■ [`03InterNet Address`0B]  `0B: `0F$INTERNET$"
  212. FILEPUT
  213. FILEPUT "`00............`03──══`0B■ [`03Additional Information For ~UH`0B] `0B■`03══──"
  214. FILEPUT "`03──══`0B■ [`0B: `0F$LINE1$"
  215. FILEPUT "`03──══`0B■ [`0B: `0F$LINE2$"
  216. FILEPUT
  217. FILEPUT "~SP"
  218. NL
  219. FILECLOSE
  220. NL
  221. MENU MT 0;REGISTER.MSG;Registery Left;~UH;~SS
  222. MENU MT 0;THANKS.MSG;Thanks!;~SS;~UH
  223. FILECREATE DOG.DOG
  224. ;Edit the -Q and the +R to match the AR (F) flags you wish to use.
  225. FILEEXIST DOG.DOG MENU OF -Q +R
  226. FILEEARASE DOG.DOG
  227. NL
  228. NL
  229. PUTNL "~SM`03Thanks!!!"
  230. PUTNL "`0BP`03osting `0BI`03nformation`0B~SW.~SW.~SW.~SW."
  231. PUTNL "`0BD~SW`03a~SWw~SWg~SWw~SWa~SWr~SWe~SW ~SW`0B9~SW9~SW!~SW!"
  232. CLS
  233. JUMP DONE
  234.  
  235. :EDIT1
  236. NL
  237. NOYES YESNO "`03──══`0B■ `03Do You Want To Edit Your Information? `0B[`09 N`03/`09Y `0B]"`09
  238. JE "$YESNO$" "YES" FEMALE
  239.  
  240. :DONE
  241. ENDSCRIPT
  242.  
  243.  
  244.  
  245.