SHARE
TWEET

Untitled

a guest Jul 17th, 2017 34 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Lbl 1
  2.  
  3. ClrHome
  4. Output(1,1,"AVOID THE"
  5. Output(2,1,"QUESTION MARKS."
  6. Output(4,1,"PRESS ENTER TO"
  7. Output(5,1,"START OR CLEAR"
  8. Output(6,1,"TO EXIT"
  9.  
  10. While 1
  11. getKey->K
  12. If K=45
  13. Goto 99
  14. If K=105
  15. Goto 2
  16. End
  17.  
  18. Lbl 2
  19.  
  20. ClrHome
  21. checkTmr(0)->S
  22.  
  23. 4->X
  24. 8->Y
  25. 2->A
  26. 2->B
  27. 2->C
  28. 15->D
  29. 7->E
  30. 8->F
  31.  
  32. 0->P
  33. 0->I
  34.  
  35. While 1
  36.  
  37. (checkTmr(0)-S)-P->T
  38. Output(1,1,T)
  39.  
  40. Output(X,Y,"0"
  41.  
  42. If I=0
  43. Then
  44.  
  45. 1->I
  46. A->U
  47. B->V
  48. randInt(~1,7)->R
  49. If R>1
  50. Then
  51. If A<X
  52. Then
  53. A+1->A
  54. Else
  55. If A>X
  56. A-1->A
  57. End
  58. Else
  59. A+R->N
  60. If N<9
  61. Then
  62. If N>0
  63. N->A
  64. End
  65. End
  66.  
  67. randInt(~1,7)->R
  68.  
  69. If R>1
  70. Then
  71. If B<Y
  72. Then
  73. B+1->B
  74. Else
  75. If B>Y
  76. B-1->B
  77. End
  78. Else
  79. B+R->N
  80. If N<17
  81. Then
  82. If N>0
  83. N->B
  84. End
  85. End
  86. Output(U,V," "
  87. Output(A,B,"?"
  88.  
  89. Else
  90. If I=1
  91. Then
  92.  
  93. 2->I
  94. C->U
  95. D->V
  96. randInt(~1,7)->R
  97. If R>1
  98. Then
  99. If C<X
  100. Then
  101. C+1->C
  102. Else
  103. If C>X
  104. C-1->C
  105. End
  106. Else
  107. C+R->N
  108. If N<9
  109. Then
  110. If N>0
  111. N->C
  112. End
  113. End
  114. randInt(~1,7)->R
  115. If R>1
  116. Then
  117. If D<Y
  118. Then
  119. D+1->D
  120. Else
  121. If D>Y
  122. D-1->D
  123. End
  124. Else
  125. D+R->N
  126. If N<17
  127. Then
  128. If N>0
  129. N->D
  130. End
  131. End
  132. Output(U,V," "
  133. Output(C,D,"?"
  134.  
  135. Else
  136. 0->I
  137.  
  138. E->U
  139. F->V
  140. randInt(~1,7)->R
  141. If R>1
  142. Then
  143. If E<X
  144. Then
  145. E+1->E
  146. Else
  147. If E>X
  148. E-1->E
  149. End
  150. Else
  151. E+R->N
  152. If N<9
  153. Then
  154. If N>0
  155. N->E
  156. End
  157. End
  158. randInt(~1,7)->R
  159. If R>1
  160. Then
  161. If F<Y
  162. Then
  163. F+1->F
  164. Else
  165. If F>Y
  166. F-1->F
  167. End
  168. Else
  169. F+R->N
  170. If N<17
  171. Then
  172. If N>0
  173. N->F
  174. End
  175. End
  176. Output(U,V," "
  177. Output(E,F,"?"
  178.  
  179. End
  180.  
  181. End
  182.  
  183.  
  184. If A=X and B=Y
  185. Then
  186. Goto 98
  187. Else
  188. If C=X and D=Y
  189. Then
  190. Goto 98
  191. Else
  192. If E=X and F=Y
  193. Goto 98
  194. End
  195. End
  196.  
  197. getKey->K
  198. If K
  199. Then
  200.  
  201. If K=45
  202. Then
  203. checkTmr(0)->J
  204. ClrHome
  205. Output(4,6,"PAUSED"
  206. Pause
  207. P+(checkTmr(0)-J)->P
  208. ClrHome
  209.  
  210. Else
  211. If K=34 and X<8
  212. Then
  213. Output(X,Y," "
  214. X+1->X
  215.  
  216. Else
  217. If K=25 and X>1
  218. Then
  219. Output(X,Y," "
  220. X-1->X
  221.  
  222. Else
  223. If K=26 and Y<16
  224. Then
  225. Output(X,Y," "
  226. Y+1->Y
  227.  
  228. Else
  229. If K=24 and Y>1
  230. Then
  231. Output(X,Y," "
  232. Y-1->Y
  233. End
  234.  
  235. End
  236. End
  237. End
  238. End
  239. End
  240.  
  241. End
  242.  
  243. Lbl 98
  244. (checkTmr(0)-S)-P->T
  245. ClrHome
  246. If T<=H
  247. Then
  248. Output(1,1,"YOU LOSE!")
  249. Output(2,1,"YOU SURVIVED:"
  250. Output(3,1,T)
  251. Output(4,1,"SECONDS")
  252. Output(6,1,"HIGHSCORE: "
  253. Output(6,12,H
  254. Output(7,1,"BY: "
  255. Output(7,5,Str9
  256. Pause
  257. Else
  258. Disp "NEW HIGHSCORE!"
  259. Input "NAME:",Str9
  260. T->H
  261. End
  262.  
  263. Goto 1
  264.  
  265. Lbl 99
  266.  
  267. ClrHome
RAW Paste Data
Top