Ham62

Draw Runman.bas

Jun 26th, 2018
775
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. SUB DRAWMAN (Y!)
  2.  
  3. COLOR 6:
  4. PSET (145, Y)
  5. PSET (146, Y)
  6. PSET (147, Y)
  7.  
  8. B = Y + 1
  9. PSET (144, B)
  10. COLOR 7:
  11. PSET (145, B)
  12. PSET (146, B)
  13. PSET (147, B)
  14. PSET (148, B)
  15.  
  16. B = B + 1
  17. COLOR 6:
  18. PSET (144, B)
  19. COLOR 7:
  20. PSET (145, B)
  21. PSET (146, B)
  22. COLOR 0:
  23. PSET (147, B)
  24. COLOR 7:
  25. PSET (148, B)
  26.  
  27. B = B + 1
  28. COLOR 6:
  29. PSET (144, B)
  30. COLOR 7:
  31. PSET (145, B)
  32. PSET (146, B)
  33. PSET (147, B)
  34. PSET (148, B)
  35.  
  36. B = B + 1
  37. PSET (145, B)
  38. PSET (146, B)
  39. PSET (147, B)
  40.  
  41. B = B + 1
  42. COLOR 2:
  43. FOR X = 144 TO 148
  44.     PSET (X, B)
  45. NEXT X
  46.  
  47. B = B + 1
  48. FOR X = 144 TO 148
  49.     PSET (X, B)
  50. NEXT X
  51.  
  52. B = B + 1
  53. COLOR 0:
  54. PSET (143, B)
  55. COLOR 2:
  56. PSET (144, B)
  57. PSET (145, B)
  58. COLOR 0:
  59. PSET (146, B)
  60. COLOR 2:
  61. PSET (147, B)
  62. PSET (148, B)
  63.  
  64. B = B + 1
  65. COLOR 7:
  66. PSET (142, B)
  67. COLOR 2:
  68. PSET (144, B)
  69. PSET (145, B)
  70. PSET (146, B)
  71. COLOR 0:
  72. PSET (147, B)
  73. PSET (148, B)
  74. COLOR 7:
  75. PSET (149, B)
  76.  
  77.  
  78. B = B + 1
  79. COLOR 2:
  80. FOR X = 144 TO 148
  81.     PSET (X, B)
  82. NEXT X
  83.  
  84. B = B + 1
  85. COLOR 1:
  86. FOR X = 144 TO 148
  87.     PSET (X, B)
  88. NEXT X
  89.  
  90. B = B + 1
  91. FOR X = 144 TO 148
  92.     PSET (X, B)
  93. NEXT X
  94.  
  95. B = B + 1
  96. PSET (144, B)
  97. PSET (148, B)
  98.  
  99. B = B + 1
  100. COLOR 0:
  101. PSET (142, B)
  102. COLOR 1:
  103. PSET (143, B)
  104. PSET (148, B)
  105.  
  106. B = B + 1
  107. COLOR 0
  108. PSET (142, B)
  109. PSET (148, B)
  110. PSET (149, B)
  111. COLOR 9:
  112. PSET (145, B)
  113. PSET (144, B)
  114. PSET (143, B)
  115.  
  116. END SUB
  117.  
  118.  
  119. SUB DRAWMAN2 (Y!)
  120.  
  121. B = Y + 7
  122. COLOR 9:
  123. PSET (143, B)
  124. COLOR 2:
  125. PSET (144, B)
  126. PSET (145, B)
  127. COLOR 0:
  128. PSET (146, B)
  129. COLOR 2:
  130. PSET (147, B)
  131. PSET (148, B)
  132.  
  133. B = B + 1
  134. COLOR 9:
  135. PSET (142, B)
  136. COLOR 2:
  137. PSET (144, B)
  138. PSET (145, B)
  139. PSET (147, B)
  140. PSET (148, B)
  141. COLOR 0:
  142. PSET (146, B)
  143. COLOR 9:
  144. PSET (149, B)
  145.  
  146.  
  147. B = B + 1
  148. COLOR 2:
  149. FOR X = 144 TO 148
  150.     PSET (X, B)
  151. NEXT X
  152. COLOR 7:
  153. PSET (146, B)
  154.  
  155. B = B + 1
  156. COLOR 1:
  157. FOR X = 144 TO 148
  158.     PSET (X, B)
  159. NEXT X
  160.  
  161. B = B + 1
  162. FOR X = 144 TO 148
  163.     PSET (X, B)
  164. NEXT X
  165.  
  166. B = B + 1
  167. PSET (144, B)
  168. PSET (147, B)
  169. COLOR 9:
  170. PSET (148, B)
  171.  
  172. B = B + 1
  173. COLOR 0:
  174. PSET (146, B)
  175. COLOR 1:
  176. PSET (143, B)
  177. PSET (147, B)
  178. COLOR 9
  179. PSET (148, B)
  180. PSET (142, B)
  181. PSET (143, B)
  182.  
  183. B = B + 1
  184. COLOR 0
  185. PSET (147, B)
  186. PSET (146, B)
  187. PSET (145, B)
  188. PSET (148, B)
  189. PSET (144, B)
  190. COLOR 9
  191. PSET (149, B)
  192. PSET (142, B)
  193. END SUB
  194.  
  195. SUB DRAWMAN3 (Y!)
  196.  
  197. B = Y + 6
  198. COLOR 0:
  199. PSET (144, B)
  200. PSET (145, B)
  201.  
  202.  
  203. B = B + 1
  204. COLOR 0:
  205. PSET (143, B)
  206. COLOR 2:
  207. PSET (144, B)
  208. PSET (145, B)
  209. COLOR 0:
  210. PSET (146, B)
  211. COLOR 2:
  212. PSET (147, B)
  213. PSET (148, B)
  214.  
  215. B = B + 1
  216. COLOR 7:
  217. PSET (142, B)
  218. COLOR 2:
  219. PSET (147, B)
  220. PSET (148, B)
  221. PSET (146, B)
  222. COLOR 7:
  223. PSET (149, B)
  224.  
  225.  
  226. B = B + 1
  227. COLOR 2:
  228. FOR X = 144 TO 148
  229.     PSET (X, B)
  230. NEXT X
  231.  
  232. B = B + 1
  233. COLOR 1:
  234. FOR X = 144 TO 148
  235.     PSET (X, B)
  236. NEXT X
  237.  
  238. B = B + 1
  239. FOR X = 144 TO 148
  240.     PSET (X, B)
  241. NEXT X
  242.  
  243. B = B + 1
  244. PSET (144, B)
  245. PSET (148, B)
  246. COLOR 9:
  247. PSET (147, B)
  248.  
  249. B = B + 1
  250. COLOR 0:
  251. PSET (143, B)
  252. COLOR 1:
  253. PSET (144, B)
  254. PSET (148, B)
  255. COLOR 9:
  256. PSET (146, B)
  257. PSET (147, B)
  258.  
  259. B = B + 1
  260. COLOR 0
  261. PSET (142, B)
  262. PSET (148, B)
  263. 'PSET (149, B)
  264. COLOR 9:
  265. PSET (147, B)
  266. PSET (146, B)
  267. PSET (148, B)
  268. END SUB
RAW Paste Data