API tools faq
paste
Advertisement
Ham62

Draw Runman.bas

Ham62
Jun 26th, 2018
1,192
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 2.98 KB | None | 0 0
raw download clone embed print report
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!