home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RA / QUES_221.ZIP / SAMPLES.ZIP / DATABASE.ZIP / Q-NEW1.Q-A < prev    next >
Encoding:
Text File  |  1991-03-01  |  7.5 KB  |  510 lines
  1. :top
  2. gotolabel main
  3.  
  4.  
  5. :Main
  6. Displayfile q-einlei
  7. :Frage
  8. changecolor 7
  9. display " If you want to fill in the questions, then please|"
  10. display " type '"
  11. changecolor 14
  12. display "YES"
  13. changecolor 7
  14. display "'. Type '"
  15. changecolor 14
  16. display "NO"
  17. changecolor 7
  18. display "' to abort the registration!  : "
  19. changecolor 14
  20. ask 4 1
  21.  
  22. if 1 = "yes"
  23. setvar 1 = ""
  24. gotolabel weiter
  25. endif
  26. if 1 = "no"
  27. gotolabel cancel
  28. endif
  29. gotolabel frage
  30. :
  31.  
  32.  
  33. :weiter
  34. changecolor 7
  35. let erroron = off
  36. display " Please wait..."
  37. checkdata dat-1 31
  38. if 31 = "1"
  39. loaddata dat-1 1
  40. loaddata dat-2 2
  41. loaddata dat-3 3
  42. loaddata dat-4 4
  43. loaddata dat-5 5
  44. loaddata dat-6 6
  45. loaddata dat-7 7
  46. loaddata dat-8 8
  47. loaddata dat-9 9
  48. loaddata dat-10 10
  49. loaddata dat-11 11
  50. loaddata dat-12 12
  51. endif
  52. let erroron = on
  53.  
  54.  
  55. Displayfile q-1st
  56.  
  57. if 31 = "1"
  58. display "         Please wait..."
  59. gosublabel allready
  60. gotolabel ask
  61. endif
  62.  
  63.  
  64. changecolor 15 1
  65.  
  66. :001----name
  67. display "7H"
  68. askedit 34 1
  69. if 1 = ""
  70. beep
  71. gotolabel 001----name
  72. endif
  73.  
  74. :002----strasse
  75. display "7H"
  76. askedit 34 2
  77. if 2 = ""
  78. beep
  79. gotolabel 002----strasse
  80. endif
  81.  
  82. :003----ort
  83. display "7H"
  84. askedit 34 3
  85. if 3 = ""
  86. beep
  87. gotolabel 003----ort
  88. endif
  89.  
  90. :004----tel.
  91. display "7H"
  92. askedit 34 4
  93. if 4 = ""
  94. beep
  95. gotolabel 004----tel.
  96. endif
  97.  
  98. :----              alter
  99. display "7H"
  100. askedit 3 5
  101.  
  102. :----              computertyp
  103. display "7H"
  104. askedit 34 6
  105.  
  106. :----              modemtyp
  107. display "37H"
  108. askedit 34 7
  109.  
  110. :----              terminalpgm
  111. display "37H"
  112. askedit 34 8
  113.  
  114. :----              woher kennst du mich
  115. display "37H"
  116. askedit 34 9
  117.  
  118. :----              bist du sysop
  119. :sysop
  120. display "37H"
  121. getchoice YN 10
  122. if 10 = "Y"
  123. displayfile q-sysop
  124. :----                                       Node-nr.
  125. changecolor 15 1
  126. display "37H"
  127. askedit 34 11
  128. :----                                       tel.nr data
  129. display "37H"
  130. askedit 34 12
  131. endif
  132. :
  133.  
  134. :Ask
  135. display "10H"
  136. changecolor 7 0
  137. Display "Did you enter everything correctly (Y/N) ? "
  138. Getchar 30
  139. display "||"
  140.  
  141. if 30 = "Y"
  142. displayfile q
  143. gotolabel end
  144. endif
  145.  
  146. if 30 = "N"
  147. displayfile q
  148. gotolabel new
  149. endif
  150.  
  151. ifnot 30 = "Y"
  152. beep
  153. beep
  154. display "     Wrong choise. Only 'Y' or 'N' are valid choises..."
  155. pause 2
  156. displayfile q
  157. gotolabel Ask
  158. endnotif
  159. :
  160.  
  161.  
  162. :end
  163. if 31 = "1"
  164. displayfile q-all
  165. endif
  166. if 31 = "0"
  167. Displayfile q-ende
  168. endif
  169. Ask 0 31
  170.  
  171. display "|Now saving your data, please wait"
  172. OutputAnswer ""
  173. PostInfo
  174. let erroron = off
  175. OutputAnswer "Name...............: " 1
  176. OutputAnswer "Adress.............: " 2
  177. OutputAnswer "Code / City........: " 3
  178. OutputAnswer "Telephone..........: " 4
  179. OutputAnswer "Age................: " 5
  180. OutputAnswer "Computertype.......: " 6
  181. OutputAnswer "Modemtype..........: " 7
  182. OutputAnswer "Terminalprogram....: " 8
  183. OutputAnswer "Got bbs from.......: " 9
  184. display "."
  185. writedata dat-1 1
  186. display "."
  187. writedata dat-2 2
  188. display "."
  189. writedata dat-3 3
  190. display "."
  191. writedata dat-4 4
  192. display "."
  193. writedata dat-5 5
  194. display "."
  195. writedata dat-6 6
  196. display "."
  197. writedata dat-7 7
  198. display "."
  199. writedata dat-8 8
  200. display "."
  201. writedata dat-9 9
  202. display "."
  203. writedata dat-10 10
  204.  
  205. if 10 = "Y"
  206. OutputAnswer "Sysop..............: " 10
  207. OutputAnswer "Node-Nr............: " 11
  208. OutputAnswer "Telephone BBS......: " 12
  209. OutputAnswer ""
  210. writedata dat-11 11
  211. writedata dat-12 12
  212. endif
  213. let erroron = on
  214. display "|"
  215. start q-new last
  216. :
  217.  
  218.  
  219. :new
  220. displayfile q-abc
  221. display "10H"
  222. changecolor 7 0
  223.  
  224. if 10 = "N"
  225. Display "Which line do you wish to change ( A-J ) ? "
  226. endif
  227.  
  228. if 10 = "Y"
  229. Display "Which line do you wish to change ( A-L ) ? "             
  230. displayfile q-kl
  231. endif
  232.  
  233. display "53H"
  234. Getchar 30
  235.  
  236. if 30 = "a"
  237. displayfile q
  238. gotolabel 101
  239. endif
  240.  
  241. if 30 = "b"
  242. displayfile q
  243. gotolabel 102
  244. endif
  245.  
  246. if 30 = "c"
  247. displayfile q
  248. gotolabel 103
  249. endif
  250.  
  251. if 30 = "d"
  252. displayfile q
  253. gotolabel 104
  254. endif
  255.  
  256. if 30 = "e"
  257. displayfile q
  258. gotolabel 105
  259. endif
  260.  
  261. if 30 = "f"
  262. displayfile q
  263. gotolabel 106
  264. endif
  265.  
  266. if 30 = "g"
  267. displayfile q
  268. gotolabel 107
  269. endif
  270.  
  271. if 30 = "h"
  272. displayfile q
  273. gotolabel 108
  274. endif
  275.  
  276. if 30 = "i"
  277. displayfile q
  278. gotolabel 109
  279. endif
  280.  
  281. if 30 = "j"
  282. displayfile q
  283. gotolabel 110
  284. endif
  285.  
  286. if 30 = "k"
  287. displayfile q
  288. gotolabel 111
  289. endif
  290.  
  291. if 30 = "l"
  292. displayfile q
  293. gotolabel 112
  294. endif
  295.  
  296. ifnot 30 = "fake"
  297.  
  298. :FAKE
  299.  
  300. display "||"
  301. beep
  302. beep
  303. display "              Wrong choise! Please try again..."
  304. pause 2
  305. displayfile q
  306. gotolabel new
  307. endnotif
  308. :
  309.  
  310. :101
  311. display "7H"
  312. changecolor 15 1
  313. display ".................................."
  314. display "7H"
  315. askedit 34 1
  316. if 1 = ""
  317. beep
  318. gotolabel 101
  319. endif
  320. gotolabel ask
  321. :
  322.  
  323. :102
  324. display "7H"
  325. changecolor 15 1
  326. display ".................................."
  327. display "7H"
  328. askedit 34 2
  329. if 2 = ""
  330. beep
  331. gotolabel 102
  332. endif
  333. gotolabel ask
  334. :
  335.  
  336. :103
  337. display "7H"
  338. changecolor 15 1
  339. display ".................................."
  340. display "7H"
  341. askedit 34 3
  342. if 3 = ""
  343. beep
  344. gotolabel 103
  345. endif
  346. gotolabel ask
  347. :
  348.  
  349. :104
  350. display "7H"
  351. changecolor 15 1
  352. display ".................................."
  353. display "7H"
  354. askedit 34 4
  355. if 4 = ""
  356. beep
  357. gotolabel 104
  358. endif
  359. gotolabel ask
  360. :
  361.  
  362. :105
  363. display "7H"
  364. changecolor 15 1
  365. display "..."
  366. display "7H"
  367. askedit 34 5
  368. gotolabel ask
  369. :
  370.  
  371. :106
  372. display "7H"
  373. changecolor 15 1
  374. display ".................................."
  375. display "7H"
  376. askedit 34 6
  377. gotolabel ask
  378. :
  379.  
  380. :107
  381. display "37H"
  382. changecolor 15 1
  383. display ".................................."
  384. display "37H"
  385. askedit 34 7
  386. gotolabel ask
  387. :
  388.  
  389. :108
  390. display "37H"
  391. changecolor 15 1
  392. display ".................................."
  393. display "37H"
  394. askedit 34 8
  395. gotolabel ask
  396. :
  397.  
  398. :109
  399. display "37H"
  400. changecolor 15 1
  401. display ".................................."
  402. display "37H"
  403. askedit 34 9
  404. gotolabel ask
  405. :
  406.  
  407. :110
  408. display "37H"
  409. changecolor 15 1
  410. display "."
  411. display "37H"
  412. getchoice YN 10
  413.  
  414. if 10 = "N"
  415. display "2H"
  416. changecolor 15 4
  417. display "                                                                     "
  418. display "2H"
  419. display "                                                                     "
  420. endif
  421.  
  422. if 10 = "Y"
  423. displayfile q-sysop
  424. changecolor 15 1
  425. display "37H"
  426. askedit 34 11
  427. display "37H"
  428. askedit 34 12
  429. endif
  430. gotolabel ask
  431. :
  432.  
  433. :111
  434. if 10 = "n"
  435. gotolabel fake
  436. endif
  437.  
  438. :Node Nr
  439. display "37H"
  440. changecolor 15 1
  441. display "..................."
  442. display "37H"
  443. askedit 34 11
  444. gotolabel ask
  445. :
  446.  
  447. :112
  448. if 10 = "n"
  449. gotolabel fake
  450. endif
  451.  
  452. :Telefon data
  453. display "37H"
  454. changecolor 15 1
  455. display ".................................."
  456. display "37H"
  457. askedit 34 11
  458. gotolabel ask
  459. :
  460.  
  461. :cancel
  462. clearscreen
  463. display "|||"
  464. changecolor 14
  465. display "New user registration aborted!|"
  466. changecolor 3
  467. display "|To bad you don't want to register yourself as|"
  468. display "a member... Well, maybe next time!|"
  469. changecolor 7
  470. display "|Press <ENTER> to return"
  471. ask 0 1
  472. start q-new abort
  473. :
  474.  
  475.  
  476.  
  477.  
  478. :allready
  479. display "7H"
  480. changecolor 15 1
  481. listanswer 1
  482. display "7H"
  483. listanswer 2
  484. display "7H"
  485. listanswer 3
  486. display "7H"
  487. listanswer 4
  488. display "7H"
  489. listanswer 5
  490. display "7H"
  491. listanswer 6
  492. display "37H"
  493. listanswer 7
  494. display "37H"
  495. listanswer 8
  496. display "37H"
  497. listanswer 9
  498. display "37H"
  499. listanswer 10
  500.  
  501. if 10 = "Y"
  502. displayfile q-sysop
  503. changecolor 15 1
  504. display "37H"
  505. listanswer 11
  506. display "37H"
  507. listanswer 12
  508. endif
  509. :
  510.