• API
• FAQ
• Tools
• Archive
daily pastebin goal
87%
SHARE
TWEET

# Untitled

a guest Jul 17th, 2017 36 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
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.

Top