home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / EZY101_3.ZIP / SETUP.ZIP / NEWUSER2.Q-A < prev    next >
Encoding:
Text File  |  1992-05-18  |  1.5 KB  |  83 lines
  1. setvars "*G" 1
  2. if 1 = 0
  3.   goto ASC
  4. endif
  5.  
  6. :ANS
  7. menucmnd 5 NEW_SCRN
  8. setvars "0" 2
  9.  
  10. changecolour 13 0
  11. gotoxy 2 9
  12. display "Enter your home address (line 1)              "
  13. changecolor 10 0
  14. gotoxy 19 4
  15. ask 60 3
  16.  
  17. changecolour 13 0
  18. gotoxy 2 9
  19. display "Enter your home address (line 2)              "
  20. changecolor 10 0
  21. gotoxy 19 5
  22. ask 60 4
  23.  
  24. changecolour 13 0
  25. gotoxy 2 9
  26. display "Where did you hear about Offline?             "
  27. changecolor 10 0
  28. gotoxy 19 6
  29. ask 60 5
  30.  
  31. :Loop
  32. if 2 = 1
  33.   changecolour 13 0
  34.   gotoxy 2 9
  35.   display "Enter your home address (line 1)              "
  36.   changecolor 10 0
  37.   gotoxy 19 4
  38.   ask 60 3
  39. endif
  40. if 2 = 2
  41.   changecolour 13 0
  42.   gotoxy 2 9
  43.   display "Enter your home address (line 2)              "
  44.   changecolor 10 0
  45.   gotoxy 19 5
  46.   ask 60 4
  47. endif
  48. if 2 = 3
  49.   changecolour 13 0
  50.   gotoxy 2 9
  51.   display "Where did you hear about Offline?             "
  52.   changecolor 10 0
  53.   gotoxy 19 6
  54.   ask 60 5
  55. endif
  56. changecolour 13 0
  57. gotoxy 2 9
  58. display "Enter number to change, or [Enter] to continue"
  59. getchoice 0123 2 0
  60. if 2 = 0 
  61.   goto End
  62. endif
  63. goto Loop
  64.  
  65.  
  66. goto End
  67.  
  68. :ASC
  69. Display "|What is your home address (number and street name)?|"
  70. Ask 60 3
  71. Display "|What suburb do you live in?|"
  72. Ask 60 4
  73. Display "|Where did you hear about Offline?|"
  74. Ask 60 5
  75. :End
  76. changecolour 14 0
  77. Display "||Saving responses..."
  78. PostInfo
  79. OutputAnswer "Address : " 3
  80. OutputAnswer "Suburb  : " 4
  81. OutputAnswer "Where   : " 5
  82. Quit
  83.