home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / bbs_ra / wall_2.arj / WALL.Q-A < prev    next >
Text File  |  1991-07-17  |  2KB  |  104 lines
  1. ChangeColor 10 0
  2. Display "|Do you really want to add some graphiti ? "
  3. ChangeColor 9 0
  4. GetChoice YN 1
  5. If 1 = "n"
  6. QUIT
  7. EndIf
  8. ClearScreen
  9. ChangeColor 13 0
  10. Display "Enter your graphiti below, you are allowed upto 6 lines of text|"
  11. Display "There is NO word-wrap... so you have to press [Enter] at the end of every line!||"
  12. DisplayFile Story2
  13. ChangeColor 14 0
  14. Display "> "
  15. ChangeColor 11 0
  16. Ask 74 2
  17. ChangeColor 14 0
  18. Display "> "
  19. ChangeColor 11 0
  20. Ask 74 3
  21. ChangeColor 14 0
  22. Display "> "
  23. ChangeColor 11 0
  24. Ask 74 4
  25. ChangeColor 14 0
  26. Display "> "
  27. ChangeColor 11 0
  28. Ask 74 5
  29. ChangeColor 14 0
  30. Display "> "
  31. ChangeColor 11 0
  32. Ask 74 6
  33. ChangeColor 14 0
  34. Display "> "
  35. ChangeColor 11 0
  36. Ask 74 7
  37. ChangeColor 13 0
  38. Display "||Save this graphiti ? "
  39. ChangeColor 10 0
  40. GetChoice YN 8
  41. If 8 = "n"
  42. ClearScreen
  43. ChangeColor 14 0
  44. QUIT
  45. EndIf
  46. OutputAnswer "   "2 
  47. If 3 = ""
  48. OutputAnswer ""9
  49. OutputAnswer " [>──────────────────────────────────────────────────────────────────────────<]"9
  50. OutputAnswer ""9
  51. ClearScreen
  52. ChangeColor 14 0
  53. Display "Thanks For the addition!|"
  54. QUIT
  55. EndIf
  56. OutputAnswer "   "3
  57. If 4 = ""
  58. OutputAnswer ""9
  59. OutputAnswer " [>──────────────────────────────────────────────────────────────────────────<]"9
  60. OutputAnswer ""9
  61. ClearScreen
  62. ChangeColor 14 0
  63. Display "Thanks For the addition!|"
  64. QUIT
  65. EndIf
  66. OutputAnswer "   "4 
  67. If 5 = ""
  68. OutputAnswer ""9
  69. OutputAnswer " [>──────────────────────────────────────────────────────────────────────────<]"9
  70. OutputAnswer ""9
  71. ClearScreen
  72. ChangeColor 14 0
  73. Display "Thanks For the addition!|"
  74. QUIT
  75. EndIf
  76. OutputAnswer "   "5 
  77. If 6 = ""     
  78. OutputAnswer ""9
  79. OutputAnswer " [>──────────────────────────────────────────────────────────────────────────<]"9
  80. OutputAnswer ""9
  81. ClearScreen
  82. ChangeColor 14 0
  83. Display "Thanks For the addition!|"
  84. QUIT
  85. EndIf
  86. OutputAnswer "   "6 
  87. If 7 = ""
  88. OutputAnswer ""9
  89. OutputAnswer " [>──────────────────────────────────────────────────────────────────────────<]"9
  90. OutputAnswer ""9
  91. ClearScreen
  92. ChangeColor 14 0
  93. Display "Thanks For the addition!|"
  94. QUIT
  95. EndIf
  96. OutputAnswer "   "7
  97. OutputAnswer ""9
  98. OutputAnswer " [>──────────────────────────────────────────────────────────────────────────<]"9
  99. OutputAnswer ""9
  100. ClearScreen
  101. ChangeColor 14 0
  102. Display "Thanks For the addition!|"
  103. QUIT
  104.