home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / PROGRAM / BASIC / SUNUP / SUNUP.BAS next >
BASIC Source File  |  1993-12-01  |  59KB  |  1,045 lines
  1. '    *****************************SUNUP6.BAS********************************
  2. '
  3. '    This program can serve as an AUTOEXEC.BAT "eyeopener."  It is based
  4. '    on a "complaint" by a CompuServe downloader who rightly noted that I
  5. '    botched up the end of the song "Here Comes the Sun;" in the song set
  6. '    called TUNES.ZIP.  I revised the song and uploaded it to him.
  7. '
  8. '    He responded and said that the newer version was better to begin
  9. '    his day with as he played it from his AUTOEXEC.BAT.  His children
  10. '    also got a kick out of typing the name of the tune and having it play
  11. '    for them on Dad's computer.   Sooooo... for batch file lovers who
  12. '    want a little visual effects with their music, I have made this
  13. '    ditty with text graphic pictures.  If you have upgraded to MS-DOS 5.0
  14. '    you may execute this file from the command line with:
  15. '       
  16. '                        QBASIC /RUN SUNUP.BAS
  17. '
  18. '    You may then want to step through the commands and see how simple
  19. '    this program really is....
  20. '
  21. '    To step through the commands:
  22. '
  23. '    1.   To execute one command                      F8
  24. '    2.   To execute several commands                 position cursor + F7
  25. '    3.   To view the graphics as you step            F4 (toggles)
  26. '    4.   To execute program up to one line           position cursor + F9
  27. '                                                     then F5
  28. '
  29. '    5.   To run this program from the command        add the command: SYSTEM
  30. '         line and then EXIT back to MS-DOS           to the end of this
  31. '                                                     module (see below)
  32. '
  33. '                      Fri   01-24-1992  14:51:04
  34. '
  35. '                     John R. De Palma on CompuServe
  36.  
  37. DECLARE SUB sun4444 ()
  38. DECLARE SUB sunwin ()
  39. DECLARE SUB sun1A ()
  40. DECLARE SUB sun1B ()
  41. DECLARE SUB sun333 ()
  42. DECLARE SUB sunend2 ()
  43. DECLARE SUB sun1 ()
  44. DECLARE SUB sun212 ()
  45. DECLARE SUB sun23 ()
  46. DECLARE SUB sun111 ()
  47. DECLARE SUB sun444 ()
  48.  
  49. LOCATE , , 0                    'turn off the cursor
  50. CLS
  51. CALL sun1A
  52. PLAY "T255O3MB"
  53. PLAY "<<L2A>>>L4C#<AB>L2C#."
  54. PLAY "L2N0L4C#<L2BAF#"
  55. PLAY "ABAF#L1E."
  56. PLAY "<<L2A>>>L4C#<AB>L2C#."
  57. PLAY "L2N0L4C#<L2BAL2F#."
  58. PLAY ">L4C#<L2BAL1BBL1N0"
  59. CALL sun1B
  60. PLAY "<<L2A>>>L4C#<L2B>L2C#<L2A."        'here comes the sun
  61. CALL sun1
  62. PLAY ">L4C#<AB>L2C#."
  63. PLAY "<<L2A>>>L4C#<L2B>C#<L2A."
  64. PLAY "L4N0>L2C#<BAN0"
  65. CALL sun212
  66. PLAY "L4F#ABEABDABAG#F#EO3"
  67. PLAY "<<L2A>>>L4C#<AB>L2C#."
  68. PLAY "L2N0L4C#<L2BAF#"
  69. CALL sun333
  70. PLAY "ABAF#L1E."
  71. PLAY "<<L2A>>>L4C#<AB>L2C#."
  72. PLAY "L2N0L4C#<L2BAL2F#."
  73. CALL sun111
  74. PLAY ">L4C#<L2BAL1BBL1N0"
  75. PLAY "<<L2A>>>L4C#<L2B>L2C#<L2A."        'here comes the sun
  76. CALL sun444
  77. PLAY ">L4C#<AB>L2C#."
  78. PLAY "<<L2A>>>L4C#<L2B>C#<L2A."
  79. CALL sun4444
  80. PLAY "L4N0>L2C#<BAN0"
  81. PLAY "L4F#ABEABDABAG#F#E"
  82. CALL sunwin
  83. PLAY "o3<<L2A>>>L4C#<AB>L2C#.L2N0L4C#<L2BAF#ABAF#L1E.L1E."
  84. SLEEP 3                                   'need to finish playing the song
  85. CALL sunend2
  86. COLOR 7, 0
  87. LOCATE , , 1, 6, 7                        'restore cursor
  88.  
  89. 'SYSTEM                       'if you start this program with the "/RUN"
  90.                               'switch from the command line, activating this
  91.                               'command will return you to MS-DOS
  92.  
  93. SUB sun1
  94. LOCATE 1, 1
  95. COLOR 11, 0: PRINT "╔══════════════════════════════════════════════════════════════════════════════╗";
  96. PRINT "║             "; : COLOR 14, 0: PRINT "           ";
  97. COLOR 11, 0: PRINT "   "; : COLOR 24, 0: PRINT "    ";
  98. COLOR 14, 0: PRINT "Here Comes the Sun"; : COLOR 11, 0: PRINT "         ";
  99. COLOR 15, 0: PRINT " "; : COLOR 11, 0: PRINT "                   ║";
  100. PRINT "║"; : COLOR 1, 0: PRINT "                                                        ";
  101. COLOR 15, 0: PRINT "      "; : COLOR 1, 0: PRINT " ";
  102. COLOR 7, 0: PRINT ""; : COLOR 1, 0: PRINT "              ";
  103. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 1, 0: PRINT "                                                           ";
  104. COLOR 15, 0: PRINT "  "; : COLOR 1, 0: PRINT "   ";
  105. COLOR 15, 0: PRINT " "; : COLOR 1, 0: PRINT "             ";
  106. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 1, 0: PRINT "                                                                 ";
  107. COLOR 15, 0: PRINT "  "; : COLOR 1, 0: PRINT "           ";
  108. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  109. COLOR 14, 0: PRINT "▄▄▄▄▄▄▄"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  110. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  111. COLOR 14, 0: PRINT "▄███████████▄"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  112. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  113. COLOR 14, 0: PRINT "█████████████████"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  114. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  115. COLOR 14, 0: PRINT "▄███████████████████▄";
  116. COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  117. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  118. COLOR 14, 0: PRINT "▐█████████████████████▌";
  119. COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  120. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  121. COLOR 14, 0: PRINT "███████████████████████";
  122. COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  123. COLOR 11, 0: PRINT "║"; : PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────";
  124. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "───────────────────────────────────────────────────────";
  125. COLOR 11, 0: PRINT " ║"; : PRINT "║                    ┌┴╖   ";
  126. COLOR 8, 0: PRINT "───────────────────────────────────────────────────";
  127. COLOR 11, 0: PRINT " ║"; : PRINT "║                   ┌┘ ╚╗       ";
  128. COLOR 8, 0: PRINT "───────────────────────────────────────── ";
  129. COLOR 11, 0: PRINT "     ║"; : PRINT "║  ┌────────╖      ┌┘ ";
  130. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ╚╗     ";
  131. COLOR 14, 0: PRINT " "; : COLOR 8, 0: PRINT "       ──────────────────────────";
  132. COLOR 11, 0: PRINT "              ║"; : PRINT "║ ┌┘";
  133. COLOR 8, 0: PRINT "        "; : COLOR 11, 0: PRINT "╚╗     │     ║    ";
  134. COLOR 14, 0: PRINT "             "; : COLOR 8, 0: PRINT "──────────────";
  135. COLOR 11, 0: PRINT "    ╓─────────────┐   ║";
  136. PRINT "║ │ "; : COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  137. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  138. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  139. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  140. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT "║     │ ";
  141. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  142. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║   ";
  143. COLOR 14, 0: PRINT "                        ";
  144. COLOR 11, 0: PRINT "       ╔╝"; : COLOR 8, 0: PRINT "█";
  145. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  146. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  147. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  148. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  149. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  150. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  151. COLOR 11, 0: PRINT "└┐  ║"; : PRINT "║ │          ║     │     ║   ";
  152. COLOR 14, 0: PRINT "             "; : COLOR 8, 0: PRINT "                ";
  153. COLOR 11, 0: PRINT " ╔╝               └┐ ║";
  154. PRINT "║ │ "; : COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  155. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  156. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  157. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  158. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT "║     │ ";
  159. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  160. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║   ";
  161. COLOR 14, 0: PRINT "                       ";
  162. COLOR 11, 0: PRINT "      ╔╝"; : COLOR 8, 0: PRINT "█";
  163. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  164. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  165. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  166. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  167. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  168. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  169. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  170. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  171. COLOR 11, 0: PRINT "└┐║"; : PRINT "║ │          ╚╗    │     ║   ┌╖    ┌───────────┬───╖     ╔╝                   └╢";
  172. PRINT "║ │ "; : COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  173. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  174. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  175. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  176. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║    │ ";
  177. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  178. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║  ┌┘╚╗   │ ";
  179. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  180. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  181. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  182. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  183. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " │ ";
  184. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ║     ║";
  185. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  186. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  187. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  188. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  189. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  190. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  191. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  192. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  193. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  194. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  195. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT "║";
  196. PRINT "║─┘ "; : COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  197. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  198. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  199. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  200. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙────┘ ";
  201. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  202. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙──┘ ";
  203. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT "╙───┘ ";
  204. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  205. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  206. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  207. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  208. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ┘ ";
  209. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙─────╜";
  210. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  211. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  212. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  213. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  214. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  215. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  216. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  217. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  218. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  219. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  220. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT "║";
  221. PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────────────────────────────────────────────────────────────";
  222. COLOR 11, 0: PRINT " ║"; : PRINT "╚══════════════════════════════════════════════════════════════════════════════╝";
  223. COLOR 7, 0
  224.  
  225. END SUB
  226.  
  227. SUB sun111
  228. LOCATE 1, 1
  229. COLOR 11, 0: PRINT "╔══════════════════════════════════════════════════════════════════════════════╗";
  230. PRINT "║             "; : COLOR 14, 0: PRINT "           ";
  231. COLOR 11, 0: PRINT "   "; : COLOR 24, 0: PRINT "    ";
  232. COLOR 14, 0: PRINT "Here Comes the Sun"; : COLOR 11, 0: PRINT "         ";
  233. COLOR 15, 0: PRINT " "; : COLOR 11, 0: PRINT "                   ║";
  234. PRINT "║"; : COLOR 8, 0: PRINT "                                                                             ";
  235. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  236. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  237. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  238. COLOR 14, 0: PRINT "▄▄▄▄▄▄▄"; : COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  239. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  240. COLOR 14, 0: PRINT "▄███████████▄"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  241. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 0, 7: PRINT "▓▓▓▓▓▓▓▓▓▓▓";
  242. COLOR 8, 7: PRINT "░░░░░░░░░░░░░░░░░░░░";
  243. COLOR 14, 0: PRINT "█████████████████"; : COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  244. COLOR 0, 7: PRINT "▓▓▓▓▓▓▓▓▓"; : COLOR 11, 0: PRINT "║";
  245. PRINT "║"; : COLOR 0, 7: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  246. COLOR 14, 0: PRINT "▄███████████████████▄";
  247. COLOR 0, 7: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  248. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 0, 7: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▓▓▓▓▓▓▓▓▓▓";
  249. COLOR 14, 0: PRINT "▐█████████████████████▌";
  250. COLOR 0, 7: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  251. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 0, 7: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  252. COLOR 14, 0: PRINT "███████████████████████";
  253. COLOR 0, 7: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  254. COLOR 11, 0: PRINT "║"; : PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────";
  255. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "───────────────────────────────────────────────────────";
  256. COLOR 11, 0: PRINT " ║";
  257.  
  258. END SUB
  259.  
  260. SUB sun1A
  261. COLOR 11, 0: PRINT "╔══════════════════════════════════════════════════════════════════════════════╗";
  262. PRINT "║             "; : COLOR 14, 0: PRINT "           ";
  263. COLOR 11, 0: PRINT "   "; : COLOR 24, 0: PRINT "    ";
  264. COLOR 14, 0: PRINT "Here Comes the Sun"; : COLOR 11, 0: PRINT "         ";
  265. COLOR 15, 0: PRINT " "; : COLOR 11, 0: PRINT "                   ║";
  266. PRINT "║"; : COLOR 1, 0: PRINT "                                                        ";
  267. COLOR 15, 0: PRINT "      "; : COLOR 1, 0: PRINT " ";
  268. COLOR 7, 0: PRINT ""; : COLOR 1, 0: PRINT "              ";
  269. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 1, 0: PRINT "                                                           ";
  270. COLOR 15, 0: PRINT "  "; : COLOR 1, 0: PRINT "   ";
  271. COLOR 15, 0: PRINT " "; : COLOR 1, 0: PRINT "             ";
  272. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 1, 0: PRINT "                                                                 ";
  273. COLOR 15, 0: PRINT "  "; : COLOR 1, 0: PRINT "           ";
  274. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  275. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  276. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  277. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  278. COLOR 14, 0: PRINT "▄▄▄▄▄▄▄"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  279. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  280. COLOR 14, 0: PRINT "▄███████████▄"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  281. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  282. COLOR 14, 0: PRINT "█████████████████"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  283. COLOR 11, 0: PRINT "║"; : PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────┬───────────────────────────────────────────────────────";
  284. COLOR 11, 0: PRINT " ║"; : PRINT "║                    ";
  285. COLOR 8, 0: PRINT "┌┴╖"; : COLOR 11, 0: PRINT "   ";
  286. COLOR 8, 0: PRINT "───────────────────────────────────────────────────";
  287. COLOR 11, 0: PRINT " ║"; : PRINT "║                   ";
  288. COLOR 8, 0: PRINT "┌┘"; : COLOR 11, 0: PRINT " ";
  289. COLOR 8, 0: PRINT "╚╗"; : COLOR 11, 0: PRINT "       ";
  290. COLOR 8, 0: PRINT "───────────────────────────────────────── ";
  291. COLOR 11, 0: PRINT "     ║"; : PRINT "║  ";
  292. COLOR 8, 0: PRINT "┌────────╖"; : COLOR 11, 0: PRINT "      ";
  293. COLOR 8, 0: PRINT "┌┘"; : COLOR 11, 0: PRINT " ";
  294. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  295. COLOR 8, 0: PRINT "╚╗"; : COLOR 11, 0: PRINT "     ";
  296. COLOR 14, 0: PRINT " "; : COLOR 8, 0: PRINT "       ──────────────────────────";
  297. COLOR 11, 0: PRINT "              ║"; : PRINT "║ ";
  298. COLOR 8, 0: PRINT "┌┘        ╚╗"; : COLOR 11, 0: PRINT "     ";
  299. COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT "     ";
  300. COLOR 8, 0: PRINT "║"; : COLOR 11, 0: PRINT "    ";
  301. COLOR 14, 0: PRINT "             "; : COLOR 8, 0: PRINT "──────────────";
  302. COLOR 11, 0: PRINT "    "; : COLOR 8, 0: PRINT "╓─────────────┐";
  303. COLOR 11, 0: PRINT "   ║"; : PRINT "║ "; : COLOR 8, 0: PRINT "│";
  304. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  305. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  306. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  307. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  308. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█║";
  309. COLOR 11, 0: PRINT "     "; : COLOR 8, 0: PRINT "│";
  310. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  311. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  312. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "║";
  313. COLOR 11, 0: PRINT "   "; : COLOR 14, 0: PRINT "                        ";
  314. COLOR 11, 0: PRINT "       "; : COLOR 8, 0: PRINT "╔╝█";
  315. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  316. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  317. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  318. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  319. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  320. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█└┐";
  321. COLOR 11, 0: PRINT "  ║"; : PRINT "║ "; : COLOR 8, 0: PRINT "│";
  322. COLOR 11, 0: PRINT "          "; : COLOR 8, 0: PRINT "║";
  323. COLOR 11, 0: PRINT "     "; : COLOR 8, 0: PRINT "│";
  324. COLOR 11, 0: PRINT "     "; : COLOR 8, 0: PRINT "║";
  325. COLOR 11, 0: PRINT "   "; : COLOR 14, 0: PRINT "             ";
  326. COLOR 8, 0: PRINT "                "; : COLOR 11, 0: PRINT " ";
  327. COLOR 8, 0: PRINT "╔╝"; : COLOR 11, 0: PRINT "               ";
  328. COLOR 8, 0: PRINT "└┐"; : COLOR 11, 0: PRINT " ║";
  329. PRINT "║ "; : COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  330. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  331. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  332. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  333. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  334. COLOR 8, 0: PRINT "█║"; : COLOR 11, 0: PRINT "     ";
  335. COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  336. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  337. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  338. COLOR 8, 0: PRINT "║"; : COLOR 11, 0: PRINT "   ";
  339. COLOR 14, 0: PRINT "                       ";
  340. COLOR 11, 0: PRINT "      "; : COLOR 8, 0: PRINT "╔╝█";
  341. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  342. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  343. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  344. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  345. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  346. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  347. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  348. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█└┐";
  349. COLOR 11, 0: PRINT "║"; : PRINT "║ "; : COLOR 8, 0: PRINT "│";
  350. COLOR 11, 0: PRINT "          "; : COLOR 8, 0: PRINT "╚╗";
  351. COLOR 11, 0: PRINT "    "; : COLOR 8, 0: PRINT "│";
  352. COLOR 11, 0: PRINT "     "; : COLOR 8, 0: PRINT "║";
  353. COLOR 11, 0: PRINT "   "; : COLOR 8, 0: PRINT "┌╖";
  354. COLOR 11, 0: PRINT "    "; : COLOR 8, 0: PRINT "┌───────────┬───╖";
  355. COLOR 11, 0: PRINT "     "; : COLOR 8, 0: PRINT "╔╝";
  356. COLOR 11, 0: PRINT "                   ";
  357. COLOR 8, 0: PRINT "└"; : COLOR 11, 0: PRINT "╢";
  358. PRINT "║ "; : COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  359. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  360. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  361. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  362. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  363. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  364. COLOR 8, 0: PRINT "║"; : COLOR 11, 0: PRINT "    ";
  365. COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  366. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  367. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  368. COLOR 8, 0: PRINT "║"; : COLOR 11, 0: PRINT "  ";
  369. COLOR 8, 0: PRINT "┌┘╚╗"; : COLOR 11, 0: PRINT "   ";
  370. COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  371. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  372. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  373. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  374. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  375. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  376. COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  377. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  378. COLOR 8, 0: PRINT "║"; : COLOR 11, 0: PRINT "     ";
  379. COLOR 8, 0: PRINT "║█"; : COLOR 11, 0: PRINT " ";
  380. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  381. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  382. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  383. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  384. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  385. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  386. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  387. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  388. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  389. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT "║";
  390. PRINT "║"; : COLOR 8, 0: PRINT "─┘"; : COLOR 11, 0: PRINT " ";
  391. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  392. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  393. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  394. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  395. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  396. COLOR 8, 0: PRINT "╙────┘"; : COLOR 11, 0: PRINT " ";
  397. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  398. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  399. COLOR 8, 0: PRINT "╙──┘"; : COLOR 11, 0: PRINT " ";
  400. COLOR 8, 0: PRINT "▄╙───┘"; : COLOR 11, 0: PRINT " ";
  401. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  402. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  403. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  404. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  405. COLOR 8, 0: PRINT "▄─┘"; : COLOR 11, 0: PRINT " ";
  406. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  407. COLOR 8, 0: PRINT "╙─────╜▄"; : COLOR 11, 0: PRINT " ";
  408. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  409. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  410. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  411. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  412. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  413. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  414. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  415. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  416. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  417. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT "║";
  418. PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────────────────────────────────────────────────────────────";
  419. COLOR 11, 0: PRINT " ║"; : PRINT "╚══════════════════════════════════════════════════════════════════════════════╝";
  420. COLOR 7, 0
  421.  
  422. END SUB
  423.  
  424. SUB sun1B
  425. LOCATE 1, 1
  426. COLOR 11, 0: PRINT "╔══════════════════════════════════════════════════════════════════════════════╗";
  427. PRINT "║             "; : COLOR 14, 0: PRINT "           ";
  428. COLOR 11, 0: PRINT "   "; : COLOR 24, 0: PRINT "    ";
  429. COLOR 14, 0: PRINT "Here Comes the Sun"; : COLOR 11, 0: PRINT "         ";
  430. COLOR 15, 0: PRINT " "; : COLOR 11, 0: PRINT "                   ║";
  431. PRINT "║"; : COLOR 1, 0: PRINT "                                                        ";
  432. COLOR 15, 0: PRINT "      "; : COLOR 1, 0: PRINT " ";
  433. COLOR 7, 0: PRINT ""; : COLOR 1, 0: PRINT "              ";
  434. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 1, 0: PRINT "                                                           ";
  435. COLOR 15, 0: PRINT "  "; : COLOR 1, 0: PRINT "   ";
  436. COLOR 15, 0: PRINT " "; : COLOR 1, 0: PRINT "             ";
  437. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 1, 0: PRINT "                                                                 ";
  438. COLOR 15, 0: PRINT "  "; : COLOR 1, 0: PRINT "           ";
  439. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  440. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░░░░";
  441. COLOR 14, 0: PRINT "▄▄▄▄▄▄▄"; : COLOR 8, 0: PRINT "░░░░░▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  442. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒";
  443. COLOR 14, 0: PRINT "▄███████████▄"; : COLOR 8, 0: PRINT "▒▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  444. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  445. COLOR 14, 0: PRINT "█████████████████"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  446. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  447. COLOR 14, 0: PRINT "███████████████████";
  448. COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  449. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  450. COLOR 14, 0: PRINT "█████████████████████";
  451. COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  452. COLOR 11, 0: PRINT "║"; : PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────┬───────────────────────────────────────────────────────";
  453. COLOR 11, 0: PRINT " ║"; : PRINT "║                    ";
  454. COLOR 8, 0: PRINT "┌┴"; : COLOR 11, 0: PRINT "╖   ";
  455. COLOR 8, 0: PRINT "───────────────────────────────────────────────────";
  456. COLOR 11, 0: PRINT " ║"; : PRINT "║                   ";
  457. COLOR 8, 0: PRINT "┌┘"; : COLOR 11, 0: PRINT " ╚╗       ";
  458. COLOR 8, 0: PRINT "───────────────────────────────────────── ";
  459. COLOR 11, 0: PRINT "     ║"; : PRINT "║  ";
  460. COLOR 8, 0: PRINT "┌────────"; : COLOR 11, 0: PRINT "╖      ";
  461. COLOR 8, 0: PRINT "┌┘"; : COLOR 11, 0: PRINT " ";
  462. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ╚╗     ";
  463. COLOR 14, 0: PRINT " "; : COLOR 8, 0: PRINT "       ──────────────────────────";
  464. COLOR 11, 0: PRINT "              ║"; : PRINT "║ ";
  465. COLOR 8, 0: PRINT "┌┘        "; : COLOR 11, 0: PRINT "╚╗     ";
  466. COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT "     ║    ";
  467. COLOR 14, 0: PRINT "             "; : COLOR 8, 0: PRINT "──────────────";
  468. COLOR 11, 0: PRINT "    ╓"; : COLOR 8, 0: PRINT "─────────────┐";
  469. COLOR 11, 0: PRINT "   ║"; : PRINT "║ "; : COLOR 8, 0: PRINT "│";
  470. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  471. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  472. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  473. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  474. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  475. COLOR 11, 0: PRINT "║     "; : COLOR 8, 0: PRINT "│";
  476. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  477. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  478. COLOR 11, 0: PRINT " ║   "; : COLOR 14, 0: PRINT "                        ";
  479. COLOR 11, 0: PRINT "       ╔╝"; : COLOR 8, 0: PRINT "█";
  480. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  481. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  482. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  483. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  484. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  485. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█└┐";
  486. COLOR 11, 0: PRINT "  ║"; : PRINT "║ "; : COLOR 8, 0: PRINT "│";
  487. COLOR 11, 0: PRINT "          ║     "; : COLOR 8, 0: PRINT "│";
  488. COLOR 11, 0: PRINT "     ║   "; : COLOR 14, 0: PRINT "             ";
  489. COLOR 8, 0: PRINT "                "; : COLOR 11, 0: PRINT " ╔╝               ";
  490. COLOR 8, 0: PRINT "└┐"; : COLOR 11, 0: PRINT " ║";
  491. PRINT "║ "; : COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  492. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  493. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  494. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  495. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  496. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT "║     ";
  497. COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  498. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  499. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║   ";
  500. COLOR 14, 0: PRINT "                       ";
  501. COLOR 11, 0: PRINT "      ╔╝"; : COLOR 8, 0: PRINT "█";
  502. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  503. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  504. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  505. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  506. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  507. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  508. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  509. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█└┐";
  510. COLOR 11, 0: PRINT "║"; : PRINT "║ "; : COLOR 8, 0: PRINT "│";
  511. COLOR 11, 0: PRINT "          ╚╗    "; : COLOR 8, 0: PRINT "│";
  512. COLOR 11, 0: PRINT "     ║   "; : COLOR 8, 0: PRINT "┌";
  513. COLOR 11, 0: PRINT "╖    "; : COLOR 8, 0: PRINT "┌───────────┬───";
  514. COLOR 11, 0: PRINT "╖     ╔╝                   ";
  515. COLOR 8, 0: PRINT "└"; : COLOR 11, 0: PRINT "╢";
  516. PRINT "║ "; : COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  517. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  518. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  519. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  520. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  521. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║    ";
  522. COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  523. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  524. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║  ";
  525. COLOR 8, 0: PRINT "┌┘"; : COLOR 11, 0: PRINT "╚╗   ";
  526. COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  527. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  528. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  529. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  530. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  531. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  532. COLOR 8, 0: PRINT "│"; : COLOR 11, 0: PRINT " ";
  533. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ║     ║";
  534. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  535. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  536. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  537. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  538. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  539. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  540. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  541. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  542. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  543. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  544. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT "║";
  545. PRINT "║"; : COLOR 8, 0: PRINT "─┘"; : COLOR 11, 0: PRINT " ";
  546. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  547. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  548. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  549. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  550. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙";
  551. COLOR 8, 0: PRINT "────┘"; : COLOR 11, 0: PRINT " ";
  552. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  553. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙";
  554. COLOR 8, 0: PRINT "──┘"; : COLOR 11, 0: PRINT " ";
  555. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT "╙";
  556. COLOR 8, 0: PRINT "───┘"; : COLOR 11, 0: PRINT " ";
  557. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  558. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  559. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  560. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  561. COLOR 8, 0: PRINT "▄─┘"; : COLOR 11, 0: PRINT " ";
  562. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙";
  563. COLOR 8, 0: PRINT "─────"; : COLOR 11, 0: PRINT "╜";
  564. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  565. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  566. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  567. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  568. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  569. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  570. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  571. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  572. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  573. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  574. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT "║";
  575. PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────────────────────────────────────────────────────────────";
  576. COLOR 11, 0: PRINT " ║"; : PRINT "╚══════════════════════════════════════════════════════════════════════════════╝";
  577. COLOR 7, 0
  578.  
  579. END SUB
  580.  
  581. SUB sun212
  582. LOCATE 1, 1
  583. COLOR 11, 0: PRINT "╔══════════════════════════════════════════════════════════════════════════════╗";
  584. PRINT "║             "; : COLOR 14, 0: PRINT "           ";
  585. COLOR 11, 0: PRINT "   "; : COLOR 24, 0: PRINT "    ";
  586. COLOR 14, 0: PRINT "Here Comes the Sun"; : COLOR 11, 0: PRINT "         ";
  587. COLOR 15, 0: PRINT " "; : COLOR 11, 0: PRINT "                   ║";
  588. PRINT "║                                                               ";
  589. COLOR 7, 0: PRINT ""; : COLOR 11, 0: PRINT "              ║";
  590. PRINT "║"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  591. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  592. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░░";
  593. COLOR 14, 0: PRINT "▄▄▄▄▄▄▄"; : COLOR 8, 0: PRINT "░░▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  594. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  595. COLOR 14, 0: PRINT "▄███████████▄"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  596. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  597. COLOR 14, 0: PRINT "█████████████████"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  598. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  599. COLOR 14, 0: PRINT "▄███████████████████▄";
  600. COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  601. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  602. COLOR 14, 0: PRINT "▐█████████████████████▌";
  603. COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  604. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  605. COLOR 14, 0: PRINT "███████████████████████";
  606. COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  607. COLOR 11, 0: PRINT "║"; : PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────";
  608. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "───────────────────────────────────────────────────────";
  609. COLOR 11, 0: PRINT " ║";
  610.  
  611. END SUB
  612.  
  613. SUB sun23
  614. LOCATE 1, 1
  615. COLOR 11, 0: PRINT "╔══════════════════════════════════════════════════════════════════════════════╗";
  616. PRINT "║             "; : COLOR 14, 0: PRINT "           ";
  617. COLOR 11, 0: PRINT "   "; : COLOR 24, 0: PRINT "    ";
  618. COLOR 14, 0: PRINT "Here Comes the Sun"; : COLOR 11, 0: PRINT "                             ║";
  619. PRINT "║"; : COLOR 8, 0: PRINT "                                                                             ";
  620. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  621. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  622. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  623. COLOR 14, 0: PRINT "▄▄▄▄▄▄▄"; : COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  624. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 0, 7: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  625. COLOR 14, 0: PRINT "▄███████████▄"; : COLOR 0, 7: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  626. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  627. COLOR 14, 0: PRINT "█████████████████"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  628. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 0, 7: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  629. COLOR 14, 0: PRINT "▄███████████████████▄";
  630. COLOR 0, 7: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  631. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  632. COLOR 14, 0: PRINT "▐█████████████████████▌";
  633. COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  634. COLOR 11, 0: PRINT "║"; : COLOR 0, 7: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  635. COLOR 14, 0: PRINT "███████████████████████";
  636. COLOR 0, 7: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  637. COLOR 11, 0: PRINT "║"; : PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────";
  638. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "───────────────────────────────────────────────────────";
  639. COLOR 11, 0: PRINT " ║";
  640.  
  641. END SUB
  642.  
  643. SUB sun333
  644. LOCATE 1, 1
  645. COLOR 11, 0: PRINT "╔══════════════════════════════════════════════════════════════════════════════╗";
  646. PRINT "║             "; : COLOR 14, 0: PRINT "           ";
  647. COLOR 11, 0: PRINT "   "; : COLOR 24, 0: PRINT "    ";
  648. COLOR 14, 0: PRINT "Here Comes the Sun"; : COLOR 11, 0: PRINT "                             ║";
  649. PRINT "║"; : COLOR 8, 0: PRINT "                              ";
  650. COLOR 7, 0: PRINT "                      ";
  651. COLOR 8, 0: PRINT "                         ";
  652. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  653. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  654. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  655. COLOR 14, 0: PRINT "▄▄▄▄▄▄▄"; : COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  656. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  657. COLOR 14, 0: PRINT "▄███████████▄"; : COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  658. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  659. COLOR 14, 0: PRINT "█████████████████"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  660. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  661. COLOR 14, 0: PRINT "▄███████████████████▄";
  662. COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  663. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  664. COLOR 14, 0: PRINT "▐█████████████████████▌";
  665. COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  666. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  667. COLOR 14, 0: PRINT "███████████████████████";
  668. COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  669. COLOR 11, 0: PRINT "║"; : PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────";
  670. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "───────────────────────────────────────────────────────";
  671. COLOR 11, 0: PRINT " ║";
  672.  
  673. END SUB
  674.  
  675. SUB sun444
  676. LOCATE 1, 1
  677. COLOR 11, 0: PRINT "╔══════════════════════════════════════════════════════════════════════════════╗";
  678. PRINT "║             "; : COLOR 14, 0: PRINT "           ";
  679. COLOR 11, 0: PRINT "   "; : COLOR 24, 0: PRINT "    ";
  680. COLOR 14, 0: PRINT "Here Comes the Sun"; : COLOR 11, 0: PRINT "                             ║";
  681. PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  682. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  683. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  684. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  685. COLOR 14, 0: PRINT "▄▄▄▄▄▄▄"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  686. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  687. COLOR 14, 0: PRINT "▄███████████▄"; : COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  688. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  689. COLOR 14, 0: PRINT "█████████████████"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  690. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  691. COLOR 14, 0: PRINT "▄███████████████████▄";
  692. COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  693. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  694. COLOR 14, 0: PRINT "▐█████████████████████▌";
  695. COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  696. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  697. COLOR 14, 0: PRINT "███████████████████████";
  698. COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  699. COLOR 11, 0: PRINT "║"; : PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────";
  700. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "───────────────────────────────────────────────────────";
  701. COLOR 11, 0: PRINT " ║";
  702.  
  703. END SUB
  704.  
  705. SUB sun4444
  706. LOCATE 1, 1
  707. COLOR 11, 0: PRINT "╔══════════════════════════════════════════════════════════════════════════════╗";
  708. PRINT "║             "; : COLOR 14, 0: PRINT "           ";
  709. COLOR 11, 0: PRINT "   "; : COLOR 24, 0: PRINT "    ";
  710. COLOR 14, 0: PRINT "Here Comes the Sun"; : COLOR 11, 0: PRINT "                             ║";
  711. PRINT "║"; : COLOR 8, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  712. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 8, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  713. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  714. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  715. COLOR 14, 0: PRINT "▄▄▄▄▄▄▄"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  716. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  717. COLOR 14, 0: PRINT "▄███████████▄"; : COLOR 7, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  718. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  719. COLOR 14, 0: PRINT "█████████████████"; : COLOR 7, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  720. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 14, 0: PRINT "░";
  721. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  722. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  723. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  724. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  725. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  726. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  727. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  728. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  729. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  730. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  731. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  732. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  733. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  734. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░▄███████████████████▄░";
  735. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  736. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  737. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  738. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  739. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  740. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  741. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  742. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  743. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  744. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  745. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  746. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  747. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  748. COLOR 7, 0: PRINT "▓"; : COLOR 11, 0: PRINT "║";
  749. PRINT "║"; : COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  750. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  751. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  752. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  753. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  754. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  755. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  756. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  757. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  758. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  759. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  760. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  761. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  762. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  763. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "█████████████████████";
  764. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  765. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  766. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  767. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  768. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  769. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  770. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  771. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  772. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  773. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  774. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  775. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  776. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  777. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  778. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 14, 0: PRINT "░";
  779. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  780. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  781. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  782. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  783. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  784. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  785. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  786. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  787. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  788. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  789. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  790. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  791. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  792. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "███████████████████████";
  793. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  794. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  795. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  796. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  797. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  798. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  799. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  800. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  801. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  802. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  803. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  804. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  805. COLOR 7, 0: PRINT "▓"; : COLOR 14, 0: PRINT "░";
  806. COLOR 7, 0: PRINT "▓"; : COLOR 11, 0: PRINT "║";
  807. PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────";
  808. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "───────────────────────────────────────────────────────";
  809. COLOR 11, 0: PRINT " ║";
  810.  
  811. END SUB
  812.  
  813. SUB sunend2
  814. LOCATE 1, 1
  815. COLOR 11, 0: PRINT "╔══════════════════════════════════════════════════════════════════════════════╗";
  816. PRINT "║"; : COLOR 1, 0: PRINT "                     ";
  817. COLOR 14, 0: PRINT " H e r e    C o m e s   t h e   S U N";
  818. SLEEP 1
  819. COLOR 15, 0: PRINT " "; : COLOR 1, 0: PRINT "                   ";
  820. COLOR 11, 0: PRINT "║"; : PRINT "║                                                               ";
  821. COLOR 24, 0: PRINT ""; : COLOR 11, 0: PRINT "              ║";
  822. PRINT "║"; : COLOR 1, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  823. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 9, 0: PRINT "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░";
  824. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 1, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  825. COLOR 14, 0: PRINT "▄▄▄▄▄▄▄"; : COLOR 1, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  826. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 9, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  827. COLOR 14, 0: PRINT "▄███████████▄"; : COLOR 9, 0: PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";
  828. SLEEP 1
  829. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 9, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  830. COLOR 14, 0: PRINT "█████████████████"; : COLOR 9, 0: PRINT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓";
  831. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 14, 0: PRINT "░▒░▒░▒░▒░▒░▒░▒░▒░▒░▒░▒░▒░▒░▒░▄███████████████████▄░▒░▒░▒░▒░▒░▒░▒░▒░▒░▒░▒░▒░▒░▒";
  832. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 14, 0: PRINT "▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▐█████████████████████▌▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓";
  833. COLOR 11, 0: PRINT "║"; : PRINT "║"; : COLOR 14, 0: PRINT "▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒███████████████████████▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▒";
  834. COLOR 11, 0: PRINT "║"; : PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────";
  835. SLEEP 1
  836. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "───────────────────────────────────────────────────────";
  837. COLOR 11, 0: PRINT " ║"; : PRINT "║                    ┌┴╖   ";
  838. COLOR 8, 0: PRINT "───────────────────────────────────────────────────";
  839. COLOR 11, 0: PRINT " ║"; : PRINT "║                   ┌┘ ╚╗       ";
  840. COLOR 8, 0: PRINT "───────────────────────────────────────── ";
  841. COLOR 11, 0: PRINT "     ║"; : PRINT "║  ┌────────╖      ┌┘ ";
  842. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ╚╗     ";
  843. COLOR 14, 0: PRINT " "; : COLOR 8, 0: PRINT "       ──────────────────────────";
  844. COLOR 11, 0: PRINT "              ║"; : PRINT "║ ┌┘";
  845. COLOR 8, 0: PRINT "        "; : COLOR 11, 0: PRINT "╚╗     │     ║    ";
  846. COLOR 14, 0: PRINT "             "; : COLOR 8, 0: PRINT "──────────────";
  847. COLOR 11, 0: PRINT "    ╓─────────────┐   ║";
  848. PRINT "║ │ "; : COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  849. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  850. SLEEP 1
  851. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  852. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  853. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT "║     │ ";
  854. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  855. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║   ";
  856. COLOR 14, 0: PRINT "                        ";
  857. COLOR 11, 0: PRINT "       ╔╝"; : COLOR 14, 0: PRINT "█";
  858. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  859. COLOR 11, 0: PRINT " "; : COLOR 14, 0: PRINT "█";
  860. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  861. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  862. COLOR 11, 0: PRINT " "; : COLOR 14, 0: PRINT "█";
  863. COLOR 11, 0: PRINT " "; : COLOR 14, 0: PRINT "█";
  864. SLEEP 1
  865. COLOR 11, 0: PRINT "└┐  ║"; : PRINT "║ │          ║     │     ║   ";
  866. COLOR 14, 0: PRINT "             "; : COLOR 8, 0: PRINT "                ";
  867. COLOR 11, 0: PRINT " ╔╝               └┐ ║";
  868. PRINT "║ │ "; : COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  869. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  870. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  871. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  872. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT "║     │ ";
  873. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  874. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║   ";
  875. COLOR 14, 0: PRINT "                       ";
  876. COLOR 11, 0: PRINT "      ╔╝"; : COLOR 8, 0: PRINT "█";
  877. COLOR 11, 0: PRINT " "; : COLOR 14, 0: PRINT "█";
  878. COLOR 11, 0: PRINT " "; : COLOR 14, 0: PRINT "█";
  879. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  880. COLOR 11, 0: PRINT " "; : COLOR 14, 0: PRINT "█";
  881. COLOR 11, 0: PRINT " "; : COLOR 14, 0: PRINT "█";
  882. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  883. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  884. COLOR 11, 0: PRINT " "; : COLOR 14, 0: PRINT "█";
  885. COLOR 11, 0: PRINT "└┐║"; : PRINT "║ │          ╚╗    │     ║   ┌╖    ┌───────────┬───╖     ╔╝                   └╢";
  886. PRINT "║ │ "; : COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  887. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  888. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  889. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  890. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║    │ ";
  891. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  892. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║  ┌┘╚╗   │ ";
  893. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  894. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  895. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  896. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  897. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " │ ";
  898. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ║     ║";
  899. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  900. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  901. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  902. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  903. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  904. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  905. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  906. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  907. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  908. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  909. COLOR 14, 0: PRINT "█"; : COLOR 11, 0: PRINT "║";
  910. PRINT "║─┘ "; : COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  911. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  912. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  913. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  914. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙────┘ ";
  915. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  916. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙──┘ ";
  917. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT "╙───┘ ";
  918. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  919. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  920. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  921. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  922. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ┘ ";
  923. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙─────╜";
  924. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  925. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  926. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  927. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  928. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  929. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  930. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  931. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  932. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  933. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  934. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT "║";
  935. PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────────────────────────────────────────────────────────────";
  936. COLOR 11, 0: PRINT " ║"; : PRINT "╚══════════════════════════════════════════════════════════════════════════════╝";
  937. COLOR 7, 0
  938.  
  939. END SUB
  940.  
  941. SUB sunwin
  942. LOCATE 13, 1
  943. COLOR 11, 0: PRINT "║                    ┌┴╖   ";
  944. COLOR 8, 0: PRINT "───────────────────────────────────────────────────";
  945. COLOR 11, 0: PRINT " ║"; : PRINT "║                   ┌┘ ╚╗       ";
  946. COLOR 8, 0: PRINT "───────────────────────────────────────── ";
  947. COLOR 11, 0: PRINT "     ║"; : PRINT "║  ┌────────╖      ┌┘ ";
  948. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╚╗     ";
  949. COLOR 14, 0: PRINT " "; : COLOR 8, 0: PRINT "       ──────────────────────────";
  950. COLOR 11, 0: PRINT "              ║"; : PRINT "║ ┌┘";
  951. COLOR 8, 0: PRINT "        "; : COLOR 11, 0: PRINT "╚╗     │     ║    ";
  952. COLOR 14, 0: PRINT "             "; : COLOR 8, 0: PRINT "──────────────";
  953. COLOR 11, 0: PRINT "    ╓─────────────┐   ║";
  954. PRINT "║ │ "; : COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  955. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  956. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  957. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  958. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT "║     │ ";
  959. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  960. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║   ";
  961. COLOR 14, 0: PRINT "                        ";
  962. COLOR 11, 0: PRINT "       ╔╝"; : COLOR 8, 0: PRINT "█";
  963. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  964. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  965. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  966. COLOR 11, 0: PRINT " "; : COLOR 14, 0: PRINT "▄";
  967. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  968. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  969. COLOR 11, 0: PRINT "└┐  ║"; : PRINT "║ │          ║     │     ║   ";
  970. COLOR 14, 0: PRINT "             "; : COLOR 8, 0: PRINT "                ";
  971. COLOR 11, 0: PRINT " ╔╝               └┐ ║";
  972. PRINT "║ │ "; : COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  973. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  974. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  975. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  976. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT "║     │ ";
  977. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  978. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║   ";
  979. COLOR 14, 0: PRINT "                       ";
  980. COLOR 11, 0: PRINT "      ╔╝"; : COLOR 8, 0: PRINT "█";
  981. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  982. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  983. COLOR 11, 0: PRINT " "; : COLOR 14, 0: PRINT "▄";
  984. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  985. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  986. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  987. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  988. COLOR 11, 0: PRINT " "; : COLOR 8, 0: PRINT "█";
  989. COLOR 11, 0: PRINT "└┐║"; : PRINT "║ │          ╚╗    │     ║   ┌╖    ┌───────────┬───╖     ╔╝                   └╢";
  990. PRINT "║ │ "; : COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  991. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  992. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  993. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  994. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ║    │ ";
  995. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  996. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ║  ┌┘╚╗   │ ";
  997. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  998. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  999. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1000. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1001. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " │ ";
  1002. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ║     ║";
  1003. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  1004. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  1005. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1006. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  1007. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  1008. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  1009. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1010. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  1011. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  1012. COLOR 8, 0: PRINT "█"; : COLOR 11, 0: PRINT " ";
  1013. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT "║";
  1014. PRINT "║─┘ "; : COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1015. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1016. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1017. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1018. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙────┘ ";
  1019. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1020. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙──┘ ";
  1021. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT "╙───┘ ";
  1022. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1023. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1024. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1025. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1026. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ┘ ";
  1027. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ╙─────╜";
  1028. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1029. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1030. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1031. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1032. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1033. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1034. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1035. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1036. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1037. COLOR 14, 0: PRINT "▄"; : COLOR 11, 0: PRINT " ";
  1038. COLOR 8, 0: PRINT "▄"; : COLOR 11, 0: PRINT "║";
  1039. PRINT "║ "; : COLOR 8, 0: PRINT "────────────────────────────────────────────────────────────────────────────";
  1040. COLOR 11, 0: PRINT " ║"; : PRINT "╚══════════════════════════════════════════════════════════════════════════════╝";
  1041. COLOR 7, 0
  1042.  
  1043. END SUB
  1044.  
  1045.