home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1LINER15.ZIP / ONELINER.Q-A < prev    next >
Encoding:
Text File  |  1996-01-14  |  4.7 KB  |  253 lines
  1. :
  2. : OneLiner v1.50 (01-14-96)
  3. : Created by: Eric Staufer (1:374/6568)
  4. :
  5. DefineOutPut c:\ra\oneliner.asw
  6. MenuCmnd 7 *C /c c:\ra\oneliner.bat
  7. Clearscreen
  8. ChangeColor 3 0
  9. Display "|"
  10. Assign 20 ----------   S,  J, ·■[ OnELiNER v1.50 ]■· (Line #0 W)
  11. Assign 21
  12. Assign 22 X
  13. If 22 = "OFF"
  14. Goto ASCII
  15. EndIf
  16. :LOOP
  17. DisplayFile OneTop
  18. DisplayFile OneMid
  19. DisplayFile OneBot
  20. :CHOICE
  21. GetChoice AISQ 1
  22. If 1 = ""
  23. Quit
  24. EndIf
  25. If 1 = "I"
  26. DisplayFile OneInfo
  27. WaitEnter
  28. Goto LOOP
  29. EndIf
  30. If 1 = "S"
  31. MenuCmnd 54
  32. Goto LOOP
  33. EndIf
  34. If 1 = "Q"
  35. ClearScreen
  36. Quit
  37. EndIf
  38. If 1 = "A"
  39. DisplayFile ONEIN
  40. Ask 45 2
  41. If 2 = ""
  42. Goto ABORT
  43. EndIf
  44. ChangeColor 7 0
  45. DisplayFile ONECYAN
  46. GetChoice YN 3
  47. If 3 = "Y"
  48. OutputAnswer 20
  49. OutputAnswer ">  I:00  A: " 2
  50. OutputAnswer 21
  51. OutputAnswer "C  [03" 2
  52. ClearScreen
  53. Quit
  54. EndIf
  55. If 3 = "N"
  56. DisplayFile ONECOLOR
  57. Ask 2 4
  58. If 4 = ""
  59. Quit
  60. EndIf
  61. If 4 = "1"
  62. OutputAnswer 20
  63. OutputAnswer ">  I:00  A: " 2
  64. OutputAnswer 21
  65. OutputAnswer "C  [01" 2
  66. ClearScreen
  67. Quit
  68. EndIf
  69. If 4 = "2"
  70. OutputAnswer 20
  71. OutputAnswer ">  I:00  A: " 2
  72. OutputAnswer 21
  73. OutputAnswer "C  [02" 2
  74. ClearScreen
  75. Quit
  76. EndIf
  77. If 4 = "3"
  78. OutputAnswer 20
  79. OutputAnswer ">  I:00  A: " 2
  80. OutputAnswer 21
  81. OutputAnswer "C  [03" 2
  82. ClearScreen
  83. Quit
  84. EndIf
  85. If 4 = "4"
  86. OutputAnswer 20
  87. OutputAnswer ">  I:00  A: " 2
  88. OutputAnswer 21
  89. OutputAnswer "C  [04" 2
  90. ClearScreen
  91. Quit
  92. EndIf
  93. If 4 = "5"
  94. OutputAnswer 20
  95. OutputAnswer ">  I:00  A: " 2
  96. OutputAnswer 21
  97. OutputAnswer "C  [05" 2
  98. ClearScreen
  99. Quit
  100. EndIf
  101. If 4 = "6"
  102. OutputAnswer 20
  103. OutputAnswer ">  I:00  A: " 2
  104. OutputAnswer 21
  105. OutputAnswer "C  [06" 2
  106. ClearScreen
  107. Quit
  108. EndIf
  109. If 4 = "7"
  110. OutputAnswer 20
  111. OutputAnswer ">  I:00  A: " 2
  112. OutputAnswer 21
  113. OutputAnswer "C  [07" 2
  114. ClearScreen
  115. Quit
  116. EndIf
  117. If 4 = "8"
  118. OutputAnswer 20
  119. OutputAnswer ">  I:00  A: " 2
  120. OutputAnswer 21
  121. OutputAnswer "C  [08" 2
  122. ClearScreen
  123. Quit
  124. EndIf
  125. If 4 = "9"
  126. OutputAnswer 20
  127. OutputAnswer ">  I:00  A: " 2
  128. OutputAnswer 21
  129. OutputAnswer "C  [09" 2
  130. ClearScreen
  131. Quit
  132. EndIf
  133. If 4 = "10"
  134. OutputAnswer 20
  135. OutputAnswer ">  I:00  A: " 2
  136. OutputAnswer 21
  137. OutputAnswer "C  [0A" 2
  138. ClearScreen
  139. Quit
  140. EndIf
  141. If 4 = "11"
  142. OutputAnswer 20
  143. OutputAnswer ">  I:00  A: " 2
  144. OutputAnswer 21
  145. OutputAnswer "C  [0B" 2
  146. ClearScreen
  147. Quit
  148. EndIf
  149. If 4 = "12"
  150. OutputAnswer 20
  151. OutputAnswer ">  I:00  A: " 2
  152. OutputAnswer 21
  153. OutputAnswer "C  [0C" 2
  154. ClearScreen
  155. Quit
  156. EndIf
  157. If 4 = "13"
  158. OutputAnswer 20
  159. OutputAnswer ">  I:00  A: " 2
  160. OutputAnswer 21
  161. OutputAnswer "C  [0D" 2
  162. ClearScreen
  163. Quit
  164. EndIf
  165. If 4 = "14"
  166. OutputAnswer 20
  167. OutputAnswer ">  I:00  A: " 2
  168. OutputAnswer 21
  169. OutputAnswer "C  [0E" 2
  170. ClearScreen
  171. Quit
  172. EndIf
  173. If 4 = "15"
  174. OutputAnswer 20
  175. OutputAnswer ">  I:00  A: " 2
  176. OutputAnswer 21
  177. OutputAnswer "C  [0F" 2
  178. ClearScreen
  179. Quit
  180. EndIf
  181. Quit
  182. EndIf
  183.  
  184. :ASCII
  185. ClearScreen
  186. Display "||||·■[ OneLiner v1.50 ]■·  ·ASCii Mode· "
  187. Display "|By: Eric Staufer, The Concession Stand (C) 1995-96. "
  188. Display "||ASCii Support enhanced by Bob R."
  189. Display "||You have the following options below: "
  190. Display "||[A]dd a OneLiner "
  191. Display "|[V]iew OneLiners "
  192. Display "|[I]nfo on OneLiner "
  193. Display "|[C]hange to ANSi "
  194. Display "|[S]end Online Msg "
  195. Display "|[Q]uit back to BBS "
  196. Display "||Your Selection, W [AVISCQ]: "
  197. GetChoice AVICSQ 23
  198. If 23 = "V"
  199. ClearScreen
  200. Display "||||·■[ OneLiner v1.50 ]■·  ·ASCii Mode· |"
  201. DisplayFile OneMid
  202. Display "|·■[Press ENTER to Continue]■· "
  203. WaitEnter
  204. Goto ASCII
  205. EndIf
  206. If 23 = "I"
  207. ClearScreen
  208. Display "|||||"
  209. Display "   OneLiner v1.50  - Release #4: Jan 14, 1996. |"
  210. Display "  -------------------------------------------------------------------------|"
  211. Display "|"
  212. Display "      OneLiner was created because of I was sick of all the existing ones|"
  213. Display "      available, either they didnt go with my system's colors, or they had|"
  214. Display "      unregistered delays, beeps, or whatever else.  I was sick of it.|"
  215. Display "|"
  216. Display "      This little program is nothing more than about 7 ANSI screens, 2|"
  217. Display "      programs (IST-TRIM.EXE and ANSTRIP.COM), and a RA Questionnaire File.|"
  218. Display "|"
  219. Display "      Created by: Eric Staufer|"
  220. Display "                  The Concession Stand, 407-569-6568, 33600bps (1:374/6568)|"
  221. Display "|"
  222. Display "                         ·■[Press ENTER to Continue]■·|"
  223. WaitEnter
  224. Goto ASCII
  225. EndIf
  226. If 23 = "S"
  227. MenuCmnd 54
  228. Goto ASCII
  229. EndIf
  230. If 23 = "Q"
  231. Quit
  232. EndIf
  233. If 23 = "C"
  234. MenuCmnd 21
  235. Goto LOOP
  236. EndIf
  237. If 23 = "A"
  238. Display "|·■[ OneLiner ]■·····> "
  239. Ask 45 2
  240. If 2 = ""
  241. Quit
  242. EndIf
  243. OutputAnswer 20
  244. OutputAnswer ">  I:00  A: " 2
  245. OutputAnswer 21
  246. OutputAnswer "C " 2
  247. Quit
  248. EndIf
  249.  
  250. :ABORT
  251. endif
  252. quit
  253.