home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / visit200 / visit200.scr < prev    next >
Encoding:
Text File  |  1987-04-22  |  4.1 KB  |  152 lines
  1. Script
  2. Close
  3. Clear (screen)
  4. Noabort
  5. ;***********************************************************************
  6. ;*                                                                     *
  7. ;*                            Visitor Informer                         *
  8. ;*                                                                     *
  9. ;*                              Version 1.03                           *
  10. ;*                                                                     *
  11. ;*                     Written In Express! Script By:                  *
  12. ;*                                                                     *
  13. ;*                      /E/D/I/S/O/N///C/A/R/T/E/R/                    *
  14. ;*                                                                     *
  15. ;*                             NETWORK 23 BBS                          *
  16. ;*                                                                     *
  17. ;*                             (402) 467-2474                          *
  18. ;*                                                                     *
  19. ;*                            1200 / 2400 BAUD                         *
  20. ;*                                                                     *
  21. ;*                                24 HOURS                             *
  22. ;*                                                                     *
  23. ;***********************************************************************
  24.  
  25. Define BBS_Name
  26. Define Path1
  27. DEFINE Data_File
  28. Define Path2
  29. Define Next_Prog
  30. Define Password = &03
  31. Define User_Input
  32. Define Address
  33. Define Zip
  34. Define Phone
  35. Define Age
  36. Define Computer
  37. Define Occupation
  38. Define Reason1
  39. Define Reason2
  40. Define Reason3
  41. Define Why1
  42. Define Why2
  43. Define Why3
  44.  
  45. Open ('\Visitor.dat', Input)
  46. Finput BBS_Name
  47. Finput Path1
  48. Finput Data_File
  49. Finput Path2
  50. Finput Next_Prog
  51. Close
  52.  
  53. If Password = 'A Visitor' then
  54. Printe '&23               [BBS_Name] VISITOR POLICY               &24' Center
  55. Printe
  56. Printe 'As a visitor here, you are required to answer the following' Center
  57. Printe 'questions about yourself.' Center
  58. Printe
  59. Printe 'If you answer these questions incorrectly, you will not be' Center
  60. Printe 'allowed any further access to [BBS_Name]!!!' Center
  61. Printe
  62. Printe
  63. Print '\iAddress:\o '
  64. Input address 30 noreturn
  65. Printe
  66. Print '\iZip Code (XXXXX-XXXX):\o '
  67. Input zip 10 noreturn
  68. Printe
  69. Print '\iPhone Number (XXX-XXX-XXXX):\o '
  70. Input phone 12 noreturn
  71. Printe
  72. Print '\iAge:\o '
  73. Input age 3 noreturn
  74. Printe
  75. Print '\iComputer Type:\o '
  76. Input computer 20 noreturn
  77. Printe
  78. Print '\iOccupation:\o '
  79. Input occupation 30 noreturn
  80. Printe
  81. Printe
  82. Printe '\iPlease state the reason for your visit to [BBS_Name]\o' Center
  83. Printe
  84. Printe '\i(Message may be 3 lines at 75 characters per line)' Center
  85. Printe
  86. Printe '\iLine 1\o'
  87. Input Reason1 75 noreturn
  88. Printe
  89. Printe '\iLine 2 (Return to skip)\o'
  90. Input Reason2 75
  91. Printe
  92. Printe '\iLine 3 (Return to skip)\o'
  93. Input Reason3 75
  94.  
  95. Printe
  96. Printe
  97. Printe '\iWhy did you choose not to apply for a permanent password\o' Center
  98. Printe
  99. Printe '\iaccount on [BBS_Name]?\o' Center
  100. Printe
  101. Printe '\i(Message may be 3 lines at 75 characters per line)\o' Center
  102. Printe
  103. Printe '\iLine 1\o'
  104. Input Why1 75 noreturn
  105. Printe
  106. Printe '\iLine 2 (Return to skip)\o
  107. Input Why2 75
  108. Printe
  109. Printe '\iLine 3 (Return to skip)\o'
  110. Input Why3 75
  111.  
  112. Open ('[Path1][Data_file]', append)
  113.  
  114. Fprinte 'Logon Date: &24'
  115. Fprinte 'Logon Time: &23'
  116. Fprinte 'User Name : &02'
  117. Fprinte 'Handle    : &01'
  118. Fprinte 'Address   : [Address]'
  119. Fprinte 'City      : &05'
  120. Fprinte 'State     : &06'
  121. Fprinte 'Zip Code  : [Zip]'
  122. Fprinte 'Phone #   : [Phone]'
  123. Fprinte 'Age       : [Age]'
  124. Fprinte 'Computer  : [Computer]'
  125. Fprinte 'Occupation: [Occupation]'
  126. Fprinte
  127. Fprinte 'Reason For Users Call To [BBS_Name]!
  128. Fprinte
  129. Fprinte [Reason1]
  130. Fprinte [Reason2]
  131. Fprinte [Reason3]
  132. Fprinte
  133. Fprinte
  134. Fprinte 'Why User Did Not Apply For A Permanent Password!'
  135. Fprinte
  136. Fprinte [Why1]
  137. Fprinte [Why2]
  138. Fprinte [Why3]
  139. Fprinte
  140. Fprinte
  141. Close
  142. Goto RUN_NEXT
  143. Else
  144. Goto RUN_NEXT
  145. Endif
  146. Endif
  147. Exit
  148.  
  149. RUN_NEXT:
  150. Execute ('[Path2][Next_prog]')
  151. Exit
  152.