API tools faq
paste
Guest User

Untitled

a guest
Jan 24th, 2018
150
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Basic4GL 12.07 KB | None | 0 0
raw download clone embed print report
  1. %Header Record
  2. Format:TXT
  3. Communication SW:0
  4. Data Type:PG
  5. Capacity:1308
  6. File Name:Mario2Ed
  7. Group Name:
  8. Password:
  9. Option1:NL
  10. Option2:
  11. Option3:
  12. Option4:
  13. %Data Record
  14. 0\->A~Z:9\->E
  15. \Cls
  16. \ViewWindow 1,127,1,1,63,1
  17. \Text 1,40,"Maryo 2 LevEdit"
  18. \For 1\->A \To 21
  19. \For 1\->B \To 9
  20. \Mat D[B,A]\<>0\=>B>T\=>B\->T
  21. \Next :T\->\List 6[A:0\->T
  22. \Next
  23. \Cls:\Text 1,45,"PLEASE WAIT"
  24. 1\->Z
  25. \For 1\->B \To 21
  26. \For 1\->A \To 9
  27. A>\List 6[B]\=>\Break
  28. \Mat D[A,B]\->H
  29. 6A\->M:6B-5\->C
  30. \Goto0
  31. \Lbl 1
  32. \Next :\Next :0\->Z
  33. \Text 1,45,"READY...    "
  34. 1\->A:1\->B
  35. \While 1
  36. 0\->H:6B-5\->C:6A\->M
  37. \Do:\Getkey\->K
  38. \LpWhile K=0
  39. K=71\=>0\->H:K=72\=>1\->H
  40. K=62\=>2\->H:K=52\=>3\->H
  41. K=73\=>4\->H:K=63\=>5\->H
  42. K=53\=>6\->H:K=74\=>7\->H
  43. K=64\=>8\->H:K=54\=>9\->H
  44. K=75\=>10\->H:K=65\=>11\->H
  45. K=55\=>12\->H:K=45\=>13\->H
  46. K=35\=>14\->H:K=25\=>15\->H
  47. K=76\=>16\->H:K=66\=>17\->H
  48. K=56\=>18\->H:K=46\=>19\->H
  49. K=36\=>20\->H:K=26\=>21\->H
  50. \If K=27\ And B\<>21
  51. \Then \Isz B:6B-5\->C
  52. \Text 64-M,C+1,"+"
  53. \IfEnd
  54. \If K=38\ And B\<>1
  55. \Then \Dsz B:6B-5\->C
  56. \Text 64-M,C+1,"+"
  57. \IfEnd
  58. \If K=28\ And A\<>9
  59. \Then \Isz A:6A\->M
  60. \Text 64-M,C+1,"+"
  61. \IfEnd
  62. \If K=37\ And A\<>1
  63. \Then \Dsz A:6A\->M
  64. \Text 64-M,C+1,"+"
  65. \IfEnd
  66. \If K=27\ Or K=28\ Or K=37\ Or K=38
  67. \Then \Text 64-M,C," "
  68. \Mat D[A,B]\<>0\=>\Mat D[A,B]\->H
  69. \IfEnd
  70. \Mat D[A,B]\->F
  71. \If H\<>F
  72. \Then \Text 64-M,C," "
  73. \Green \Text 64-M,C," ":\Orange \Text 64-M,C," ":\IfEnd
  74. \Lbl 0
  75. H=0\=>Z=1\=>\Goto1
  76. H=1\=>\Orange \Text 64-M,C,"()"
  77. H=2\=>\Text 64-M,C+1,"\Dms"
  78. \If H=3
  79. \Then \Green \F-Line C-1,M+3,C+1,M+5
  80. \Green \F-Line C+3,M+5,C+5,M+3
  81. \Green \F-Line C+2,M+4,C+2,M-5
  82. \Green \F-Line C+1,M-5,C+3,M-5
  83. \Green \F-Line C+1,M+3,C+3,M+3:\IfEnd
  84. \If H=4
  85. \Then \Green \F-Line C,M-2,C+1,M-3
  86. \Green \F-Line C+4,M-2,C+3,M-3
  87. \Green \F-Line C+2,M-2,C+2,M-5:\IfEnd
  88. \If H=5
  89. \Then \F-Line C+1,57,C+4,57
  90. \F-Line C+5,56,C+5,54
  91. \F-Line C+4,53,C+1,53
  92. \F-Line C,54,C,56
  93. \IfEnd
  94. \If H=6
  95. \Then \Orange \F-Line C,M-5,C+2,M
  96. \Orange \F-Line C+2,M,C+4,M-5:\IfEnd
  97. H=7\=>\Text 64-M,C+1,"\Deg>"
  98. H=8\=>\Text 64-M,C+1,"\theta"
  99. H=9\=>\Green \Text 64-M,C,"()"
  100. H=10\=>\Text 64-M,C,"()"
  101. H=11\=>\Green \Text 64-M,C+1,"\=>"
  102. H=12\=>\Text 64-M,C+1,"~"
  103. H=13\=>\Orange \Text 64-M,C+1,"+"
  104. H>13\=>\Text 64-M,C+1,H-10
  105. Z=1\=>\Goto1
  106. H\->\Mat D[A,B
  107. \WhileEnd
  108. %End
  109. %Header Record
  110. Format:TXT
  111. Communication SW:0
  112. Data Type:PG
  113. Capacity:232
  114. File Name:M2Instal
  115. Group Name:
  116. Password:
  117. Option1:NL
  118. Option2:
  119. Option3:
  120. Option4:
  121. %Data Record
  122. 0\->L:\ClrText
  123. \Locate 1,1,"Maryo 2 Install"
  124. \Locate 1,3,"Using LevEdit? Y\slashN"
  125. \Locate 1,4,"Maryo 2 Uses \Mat C"
  126. \Locate 1,5,"LevEdit Uses \Mat D"
  127. \Do:\Getkey\->K:K=32\=>1\->L
  128. \LpWhile K=0
  129. \ClrText
  130. "Installing.."
  131. 22\->\Dim \List 6
  132. {9,21}\->\Dim \Mat C
  133. L=1\=>{9,21}\->\Dim \Mat D
  134. "\Done. This prog may":"now be deleted"
  135. \Stop
  136. %End
  137. %Header Record
  138. Format:TXT
  139. Communication SW:0
  140. Data Type:PG
  141. Capacity:537
  142. File Name:MOutside
  143. Group Name:
  144. Password:
  145. Option1:NL
  146. Option2:
  147. Option3:
  148. Option4:
  149. %Data Record
  150. D=1\ Or D=9\=>\Orange \Text 64-M,C,"[]"
  151. D=2\=>\Text 64-M,C+1,"\Dms":\If D=3
  152. \Then \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Green
  153. {-1,1,2,3,5,1,1,3,2,2,1,3}\->\List 1:\List 1+C\->\List 1
  154. {3,5,4,5,3,99,3,3,3,-5,-5,-5}\->\List 2:\List 2+M\->\List 2:\DrawStat
  155. \IfEnd
  156. \If D=4
  157. \Then \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Green
  158. {2,2,0,0,0,4,4\->\List 1:\List 1+C\->\List 1
  159. {-5,-2,99,-3,-4,-4,-3\->\List 2:\List 2+M\->\List 2:\DrawStat
  160. \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Orange
  161. {2,0,2,4,3\->\List 1:\List 1+C\->\List 1
  162. {-1,1,3,1,0\->\List 2:\List 2+M\->\List 2
  163. \DrawStat:\IfEnd
  164. \If D=5
  165. \Then \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Green
  166. {0,2,3,4,5,6,7,8,9,9,7,6,5,4,3,2,1,0\->\List 1:\List 1+C\->\List 1
  167. {-1,1,1,0,0,1,1,0,0,-1,-3,-3,-2,-3,-2,-3,-2,-2\->\List 2:\List 2+M\->\List 2:\DrawStat
  168. \IfEnd
  169. \If D=6
  170. \Then \Orange \F-Line C,M-5,C+2,M
  171. \Orange \F-Line C+2,M,C+4,M-5:\IfEnd
  172. %End
  173. %Header Record
  174. Format:TXT
  175. Communication SW:0
  176. Data Type:PG
  177. Capacity:2357
  178. File Name:MLevDat
  179. Group Name:
  180. Password:
  181. Option1:NL
  182. Option2:
  183. Option3:
  184. Option4:
  185. %Data Record
  186. \If \theta=1
  187. \Then 1\->I:[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1][0,3,3,0,4,4,1,1,1,0,0,0,0,14,0,0,1,1,1,1,1][0,0,0,2,2,0,1,1,1,0,0,0,0,14,0,0,1,0,0,0,3][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2][0,0,0,0,0,0,2,2,0,1,0,1,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0][0,0,5,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,0,0,1][0,0,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0\->\Mat C:\IfEnd
  188. \If \theta=2
  189. \Then 1\->I:[[1,1,1,1,1,1,1,1,6,6,6,1,1,1,1,1,1,1,1,1,1][0,0,0,0,0,3,3,0,0,0,0,0,0,1,1,3,3,0,0,0,0][0,2,2,0,0,0,7,0,0,1,0,0,0,0,1,0,2,1,1,1,0][7,0,0,0,10,10,10,0,0,0,0,0,0,0,0,0,0,9,11,1,0][7,0,0,0,0,0,0,0,0,0,1,8,1,0,0,0,0,0,1,1,0][7,1,1,1,7,1,0,1,0,0,1,12,1,0,1,1,0,1,6,6,1][1,7,0,7,1,0,7,0,1,0,7,1,7,0,0,0,0,7,9,9,7][0,0,7,0,0,7,0,7,0,0,0,7,0,0,0,2,0,1,0,0,1][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\->\Mat C:\IfEnd
  190. \If \theta=3
  191. \Then 1\->I:[[1,1,1,1,1,1,1,6,1,7,1,1,1,1,1,1,1,1,1,1,1][9,9,0,3,0,9,0,1,6,0,1,3,7,7,0,10,1,6,6,6,1][9,9,2,7,2,9,0,0,1,7,0,7,0,7,2,0,1,7,7,7,1][9,9,0,2,0,10,10,0,7,7,1,0,0,7,7,0,1,1,2,0,1][9,9,0,0,0,9,0,10,1,0,0,1,0,0,0,0,0,0,0,0,1][1,1,1,0,10,10,0,0,0,0,1,0,0,1,1,0,0,10,0,0,0][7,7,1,0,0,0,10,1,11,1,0,0,0,0,0,0,0,7,7,0,0][1,7,7,0,0,0,0,3,7,3,0,2,0,0,0,5,0,0,1,1,2][7,7,7,1,0,5,0,0,0,0,0,0,0,0,0,0,0,9,12,8,0\->\Mat C:\IfEnd
  192. \If \theta=4
  193. \Then 1\->I:[[1,1,1,1,1,1,1,1,1,1,1,1,1,6,1,6,1,6,6,6,1][1,7,7,7,3,0,1,11,9,1,7,9,3,0,0,0,0,0,1,1,0][1,7,0,7,0,0,0,1,9,9,9,1,0,0,0,0,0,0,0,0,0][1,7,7,10,1,0,0,3,1,1,1,0,0,1,0,1,0,0,5,0,1][1,1,7,0,1,10,0,0,3,1,0,0,1,4,0,4,1,0,0,0,1][0,7,7,8,1,0,0,10,0,0,0,0,1,11,7,11,1,0,0,1,1][0,1,1,1,1,0,0,0,0,0,0,0,1,7,7,7,1,0,0,0,1][7,1,7,3,7,0,0,0,0,0,0,0,3,7,1,7,3,0,0,0,1][0,1,0,7,0,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,0\->\Mat C:\IfEnd
  194. \If \theta=5
  195. \Then 1\->I:[[10,1,10,1,10,6,1,1,6,1,6,1,6,6,10,10,10,6,6,6,6][9,7,9,7,9,0,0,0,0,7,0,3,0,1,7,7,7,1,0,0,1][7,9,7,1,1,0,0,2,0,7,0,0,0,4,0,1,0,3,0,0,4][9,7,1,7,6,0,0,0,1,7,1,0,0,0,0,4,0,7,0,0,0][9,1,7,7,0,0,1,1,1,8,1,0,0,1,0,0,0,1,0,0,1][9,1,1,1,9,1,7,7,1,12,1,0,1,6,1,1,1,6,0,1,0][9,9,0,0,0,7,7,7,7,1,0,0,0,7,0,0,0,0,0,0,0][1,1,0,1,1,1,0,1,7,0,0,0,1,2,1,7,0,0,0,0,3][0,0,0,1,11,3,0,7,7,1,2,1,13,0,0,2,0,0,0,0,0\->\Mat C:\IfEnd
  196. \If \theta=7
  197. \Then 2\->I:[[1,1,4,1,1,1,1,0,1,1,1,1,4,1,1,1,1,1,1,1,1][0,7,0,7,0,7,3,7,0,7,0,7,0,7,3,7,0,7,0,7,0][0,2,0,0,2,0,0,2,0,0,2,0,0,2,0,0,2,0,0,2,0][0,0,0,0,0,0,0,0,2,0,0,0,2,0,0,0,0,0,0,0,0][1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0][0,0,0,0,0,5,0,0,0,0,0,5,0,0,0,0,5,0,0,0,0][1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1\->\Mat C:\IfEnd
  198. I\->\List 6[22
  199. %End
  200. %Header Record
  201. Format:TXT
  202. Communication SW:0
  203. Data Type:PG
  204. Capacity:2404
  205. File Name:Mario2
  206. Group Name:
  207. Password:
  208. Option1:NL
  209. Option2:
  210. Option3:
  211. Option4:
  212. %Data Record
  213. \GridOff:\AxesOff:\LabelOff:\FuncOff:\S-WindMan:\Norm
  214. \If \List 6[22]\<>0
  215. \Then \ClrText
  216. \Locate 8,1,"Load?"
  217. \Locate 1,3,"[L] to load"
  218. \Locate 1,4,"Any key to skip"
  219. \Do:\Getkey\->I:\LpWhile I=0:I=25\=>\GotoB:\IfEnd
  220. 0\->A~Z:0\->\theta:3\->L
  221. \ViewWindow 1,127,1,1,63,1
  222. \Orange \Text 10,40,"Mario 2 BETA 3"
  223. \Green \Text 20,45,"By Alias4399"
  224. \Text 45,33,"[S]t\ory [N]\ormal"
  225. \Text 55,30,"[R]\andom [C]ustom"
  226. \Do:\Getkey\->I:\LpWhile I=0
  227. \Text 35,40,"Loading..."
  228. \If I=43
  229. \Then \Cls
  230. \Text 1,1,"One day in Mario L\and:"
  231. \Text 11,1,"Mario was relaxing when..."
  232. \Text 21,1,"'AAIEEE! Help! Help!'"
  233. \Text 31,1,"A scream from Peach's castle?"
  234. \Text 41,1,"'Im on my way!'"
  235. \Text 51,1,"And so the Adventure Begins!!"
  236. \Stop:\IfEnd
  237. \Lbl A
  238. \Int \theta+1\->\theta
  239. \If I\<>53\ And I\<>56
  240. \Then \theta=6\=>\GotoW
  241. \theta=8\=>\Stop
  242. \Prog "MLevDat":\IfEnd
  243. \If I=56
  244. \Then 0\->\theta:\Mat D\->\Mat C
  245. 9\->R:\IfEnd
  246. \If I=53
  247. \Then 1\->\List 6[22
  248. \For 1\->T \To 6
  249. \For 1\->U \To 21
  250. \Int 25\Ran#+1\->V
  251. V>12\=>0\->V
  252. V\->\Mat C[T,U
  253. \Next :\Next :\IfEnd
  254. \Dim \Mat C
  255. \List \Ans[1]\->E
  256. \theta=1\=>E\->R
  257. \Cls:1\->Q
  258. \For 1\->A \To 21
  259. \For 1\->B \To E
  260. \Mat C[B,A]\<>0\=>B>T\=>B\->T
  261. \Next :T\->\List 6[A:0\->T
  262. \Next
  263. \If \theta\<>7
  264. \Then \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Orange
  265. {-39,0,35,21,35,70,0,0,28,35,73}\->\List 1:\List 1+40\->\List 1
  266. {20,60,20,36,50,10,99,60,43,50,33}\->\List 2
  267. \DrawStat:\IfEnd
  268. \List 6[22]\->I
  269. \For 1\->B \To 21
  270. \For 1\->A \To E
  271. A>\List 6[B\=>\Break
  272. 6B-5\->C:6A\->M
  273. \Mat C[A,B\->D
  274. \If D\<>0
  275. \Then I=1\=>\Prog "MOutside"
  276. I=2\=>\Prog "MCastle"
  277. D=7\=>\Text 64-M,C+1,"\Deg>":D=8\=>\Text 64-M,C+1,"\theta":D=10\=>1\->\Mat C[A,B
  278. D=11\=>\Green \Text 64-M,C+1,"\=>"
  279. D=12\=>A\->F:D=12\=>B\->G
  280. \IfEnd:\Next :\Next
  281. \Text 1,5,"Level:"
  282. \Text 1,30,\theta
  283. \theta=0\=>\Text 1,30,"C"
  284. \Text 1,50,"Coins:"
  285. \Text 1,95,"Lives:"
  286. \Text 1,120,L
  287. \Text 1,75,S
  288. 1\->C:\Lbl B
  289. \While 1
  290. \Getkey\->I
  291. \Mat C[R,Q]\->Z
  292. \If Z\ Or R=1
  293. \Then \If Z=7
  294. \Then \Isz S
  295. \Text 1,75,S
  296. 0\->\Mat C[R,Q:\IfEnd
  297. \If Z=8:\Then \Isz L
  298. \Text 1,120,L
  299. \Text 64-6R,6Q-4," "
  300. 0\->\Mat C[R,Q:\IfEnd
  301. \If Z=6\ Or Z=13\ Or R=1:\Then \Dsz L
  302. \Text 1,120,L
  303. L=0\=>\GotoL
  304. \Text 64-6R,6Q-4,"*"
  305. E\->R:1\->Q:0\->J:\IfEnd
  306. \IfEnd
  307. \If I
  308. \Then R>1\=>\Mat C[R-1,Q]\->T:I=28\=>T=1\ Or T=2\ Or T=5\=>\Isz J
  309. Q<21\=>\Mat C[R,Q+1]\->W
  310. Q=21\=>0\->W
  311. \If I=27\ And W\<>1\ And W\<>2
  312. \Then Q=21\=>\GotoA
  313. \Text 64-6R,6Q-4," "
  314. \Isz Q:\IfEnd
  315. Q>1\=>\Mat C[R,Q-1]\->U
  316. Q=1\=>1\->U
  317. \If I=38\ And U\<>1\ And U\<>2
  318. \Then \Text 64-6R,6Q-4," "
  319. \Dsz Q:\IfEnd
  320. \Text 64-6R,6Q-4,"\theta"
  321. \IfEnd
  322. \Mat C[R,Q]\->Z
  323. \If Z
  324. \Then \If Z=7:\Then \Isz S
  325. \Text 1,75,S
  326. 0\->\Mat C[R,Q:\IfEnd
  327. \If Z=8:\Then \Isz L
  328. \Text 1,120,L
  329. \Text 64-6R,6Q-4," "
  330. 0\->\Mat C[R,Q:\IfEnd
  331. \If Z=11
  332. \Then \Text 64-6R,6Q-4," ":F\->R:G\->Q:\IfEnd
  333. \IfEnd
  334. R>1\=>\Mat C[R-1,Q]\->T
  335. \If T\<>1\ And T\<>2\ And T\<>5\ And \Not J
  336. \Then \Text 64-6R,6Q-4," "
  337. R>1\=>\Dsz R
  338. Q>1\=>\Mat C[R,Q-1]\->U
  339. Q<21\=>\Mat C[R,Q+1]\->W
  340. \IfEnd
  341. \If J
  342. \Then R<E\=>\Mat C[R+1,Q]\->V
  343. \If V=2
  344. \Then \Text 64-6R,6Q-4," "
  345. \Text 61-6R,6Q-4,"\theta"
  346. \Text 52-6R,6Q-4,"\Deg>"
  347. \Text 52-6R,6Q-4," "
  348. \Text 61-6R,6Q-4," "
  349. \Text 64-6R,6Q-4,"\theta"
  350. \Text 58-6R,6Q-4," "
  351. \Isz S:\Text 1,75,S
  352. 0\->\Mat C[R+1,Q:0\->J
  353. \IfEnd
  354. \If J
  355. \Then \Text 64-6R,6Q-4," "
  356. V\<>1\=>V\<>2\=>R<E\=>\Isz R:\Isz J:J\>=3\=>0\->J
  357. \IfEnd:\IfEnd
  358. \Text 64-6R,6Q-4,"\theta"
  359. \WhileEnd
  360. \Lbl L
  361. \Cls
  362. \Text 20,40,"Game Over.."
  363. \Text 30,30,"Thanks f\or Playing"
  364. \Text 40,20,"Ask me f\or hints \and tips"
  365. \Stop
  366. \Lbl W
  367. \Cls
  368. \Text 10,41,"Congrats! You won!"
  369. \Text 20,31,"New levels coming soon\!mark"
  370. \Text 30,21,"Bugs? Suggestions?"
  371. \Text 40,11,"Feel free to let me know"
  372. \Text 50,1,"--Thanks f\or playing!--"\Disp\ClrText
  373. "Stay tuned to help"
  374. "Mario save Peach!"
  375. "Here is a bonus"
  376. "Castle level!:"\Disp2\->R:\GotoA
  377. %End
  378. %Header Record
  379. Format:TXT
  380. Communication SW:0
  381. Data Type:PG
  382. Capacity:914
  383. File Name:MCastle
  384. Group Name:
  385. Password:
  386. Option1:NL
  387. Option2:
  388. Option3:
  389. Option4:
  390. %Data Record
  391. \If D=1
  392. \Then 1\->\Mat C[A,B
  393. \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Green
  394. {0,4,4,3,3,4,4,0,0,1,1,0\->\List 1:\List 1+C\->\List 1
  395. {1,1,0,0,-4,-4,-5,-5,-4,-4,0,0\->\List 2:\List 2+M\->\List 2:\DrawStat:\IfEnd
  396. \If D=2
  397. \Then \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Green
  398. \Text 64-M,C+1,"?"
  399. {-1,5,5,-1,-1\->\List 1:\List 1+C\->\List 1
  400. {1,1,-5,-5,0\->\List 2
  401. \List 2+M\->\List 2
  402. \DrawStat:\IfEnd
  403. \If D=3
  404. \Then \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Green
  405. {2,3,4,3,2,2,1,0,1,4,2,2,3,2,1,0\->\List 1:\List 1+C\->\List 1
  406. {2,3,2,1,0,-1,-1,0,-1,-1,-1,-2,-3,-2,-3,-3}\->\List 2:\List 2+M\->\List 2:\DrawStat
  407. \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Orange
  408. {2,2,1,0,0,2,2,1,0,0}\->\List 1:\List 1+C\->\List 1:{4,3,2,3,4,6,7,8,7,6}\->\List 2:\List 2+M\->\List 2:\DrawStat:\IfEnd
  409. \If D=4
  410. \Then \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Orange
  411. {1,1,3,3,1,1,2,3,3,1,1,3,3,2,2,4,4,0,0,4,4,3,2,1,2\->\List 1
  412. \List 1+C\->\List 1
  413. {2,3,5,6,8,9,10,9,8,6,5,3,2,1,0,0,-6,-6,0,0,-3,-3,-2,-3,-4\->\List 2:\List 2+50\->\List 2
  414. \DrawStat:\IfEnd
  415. \If D=5
  416. \Then \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Orange
  417. {1,2,0,0,2,1,5,5,6,4,4,6,5,9,9,10,8,8,10,9\->\List 1
  418. \List 1+C\->\List 1
  419. {1,0,0,-1,-1,-2,-100,1,0,0,-1,-1,-2,-100,1,0,0,-1,-1,-2\->\List 2:\List 2+M\->\List 2
  420. \DrawStat
  421. \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Green
  422. {1,1,3,5,5,5,7,9,9\->\List 1:\List 1+C\->\List 1:{-3,-5,-7,-5,-3,-5,-7,-5,-3\->\List 2:\List 2+M\->\List 2
  423. \DrawStat:\IfEnd
  424. %End
Add Comment
Please, Sign In to add comment
Public Pastes
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!