API tools faq
paste
Aes_Sedia5

Menu 1

Aes_Sedia5
Oct 29th, 2011
85
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.53 KB | None | 0 0
raw download clone embed print report
  1. :While 1
  2. :Asm(prgmZZARCHIV
  3. :Unarchive prgmZZZCLEAN
  4. :prgmZZZCLEAN
  5. :Archive prgmZZZCLEAN
  6. :Asm(prgmZZARCHIV
  7. :ClrDraw
  8. :AxesOff
  9. :0→Xmin
  10. :94→Xmax
  11. :0→Ymin
  12. :62→Ymax
  13. :Text(3,17,"FIVE PACK OF MATH
  14. :Text(14,3,"ALGEBRA
  15. :Text(14,45,"CALCULUS
  16. :Text(24,3,"TRIGONOMETRY
  17. :Text(24,60,"VOLUMES
  18. :Text(34,3,"CHEMISTRY
  19. :Text(34,45,"ARCHIVE STATE
  20. :Text(45,20,"MADE BY AES SEDIA5
  21. :Text(55,20,"CEMETECH.NET
  22. :Line(15,61,76,61
  23. :Line(15,61,15,52
  24. :Line(15,52,76,52
  25. :Line(76,52,76,61
  26. :Repeat K
  27. :getKey→K
  28. :End
  29. :If K
  30. :Then
  31. :Line(15,61,76,61,0
  32. :Line(15,61,15,52,0
  33. :Line(15,52,76,52,0
  34. :Line(76,52,76,61,0
  35. :0
  36. :End
  37. :If K=105
  38. :1
  39. :If K=34 or T=25 or C=24 or C=26
  40. :Then
  41. :Line(1,49,1,41
  42. :Line(1,49,31,49
  43. :Line(1,41,31,41
  44. :Line(31,49,31,41
  45. :Repeat A
  46. :getKey→A
  47. :End
  48. :End
  49. :If A
  50. :Then
  51. :Line(1,49,1,41,0
  52. :Line(1,49,31,49,0
  53. :Line(1,41,31,41,0
  54. :Line(31,49,31,41,0
  55. :0
  56. :End
  57. :If A=105
  58. :2
  59. :If A=34 or V=25
  60. :Then
  61. :Line(1,31,1,38
  62. :Line(1,31,50,31
  63. :Line(51,31,51,39
  64. :Line(51,39,1,39
  65. :Repeat T
  66. :getKey→T
  67. :End
  68. :End
  69. :If A=25
  70. :0→K
  71. If A=24 or A=26
  72. :Repeat C
  73. :getKey→C
  74. :End
  75. :End
  76. :If C=105
  77. :3
  78. :If C=24 or C=26
  79. :34→K
  80. :If C=34
  81. :24→M
  82. :If C=25
  83. :0->K
  84. :If C=35
  85. :Then
  86. :Line(58,31,58,39
  87. :Line(58,39,89,39
  88. :Line(58,31,89,31
  89. :Line(89,31,89,39
  90. :Repeat V
  91. :getKey->V
  92. :End
  93. :End
  94. :If V
  95. :Then
  96. :Line(58,31,58,39,0
  97. :Line(58,39,89,39,0
  98. :Line(58,31,89,31,0
  99. :Line(89,31,89,39,0
  100. :0
  101. :End
  102. :If V=105
  103. :6
  104.  
  105.  
  106.  
  107. :If V=24 or V=26 or T=24 or T=26
  108. :Line(58,31,58,39
  109. :Line(58,39,89,39
  110. :Line(58,31,89,31
  111. :Line(89,31,89,39
  112.  
  113.  
  114. ://Still working right here.
  115. :
  116. :
  117. :
  118. :
  119. :If M
  120. :Then
  121. :Line(1,31,1,38,0
  122. :Line(1,31,50,31,0
  123. :Line(51,31,51,39,0
  124. :Line(51,39,1,39,0
  125. :0
  126. :End
  127. :If M=26 or M=24
  128. :Then
  129. :Line(58,31,58,39
  130. :Line(58,39,89,39
  131. :Line(58,31,89,31
  132. :Line(89,31,89,39
  133. :Repeat O
  134. :getKey→O
  135. :End
  136. :End
  137. :If K=25
  138. :Then
  139. :Line(18,8,18,0
  140. :Line(18,8,66,8
  141. :Line(18,0,66,0
  142. :Line(66,8,66,0
  143. :Repeat L
  144. :getKey→L
  145. :End
  146. :End
  147. :If M=105
  148. :4
  149. :If M=34
  150. :Then
  151. :Line(1,21,1,29
  152. :Line(1,21,39,21
  153. :Line(1,29,39,29
  154. :Line(39,29,39,21
  155. :Repeat Z
  156. :getKey→Z
  157. :End
  158. :End
  159. :
  160. :
  161. :
  162. :
  163. :
  164. :
  165. :
  166. :
  167. :
  168. :
  169. :
  170. :
  171. :
  172. :If Ans=1
  173. :Then
  174. :ClrDraw
  175. :Text(1,1,"THE FIVE PACK OF MATH
  176. :Text(7,1,"MADE BY AES SEDIA5
  177. :Text(13,1,"ALL RIGHTS RESERVED
  178. :Text(19,1,"PLEASE DO NOT USE ANY
  179. :Text(25,1,"OF THIS CODE WITHOUT 
  180. :Text(31,1,"MY EXPRESS PERMISSION
  181. :Text(37,1,"YOU MAY CONTACT ME AT THE
  182. :Text(43,1,"WWW.CEMETECH.NET FORUMS
  183. :Text(49,1,"OR EMAIL ME AT
  184. :Text(55,1,"KINGRJ554 AT YAHOO.COM
  185. :Pause
  186. :End
  187. :If Ans=2
  188. :Then
  189. :Asm(prgmZZARCHIV
  190. :UnarchiveprgmZZALGEBR
  191. :prgmZZALGEBR
  192. :ArchiveprgmZZALGEBR
  193. :Asm(prgmZZARCHIV
  194. :0
  195. :End
  196. :If Ans=3
  197. :Then
  198. :Asm(prgmZZARCHIV
  199. :UnarchiveprgmZZZCALC
  200. :prgmZZZCALC
  201. :ArchiveprgmZZZCALC
  202. :Asm(prgmZZARCHIV
  203. :End
  204. :If Ans=5
  205. :Then
  206. :Asm(prgmZZARCHIV
  207. :UnarchiveprgmZZZTRIG
  208. :prgmZZZTRIG
  209. :ArchiveprgmZZZTRIG
  210. :Asm(prgmZZARCHIV
  211. :End
  212. :If Ans=6
  213. :Then
  214. :Asm(prgmZZARCHIV
  215. :UnarchiveprgmZZZVOLUM
  216. :prgmZZZVOLUM
  217. :ArchiveprgmZZZVOLUM
  218. :Asm(prgmZZARCHIV
  219. :End
  220. :If Ans=7
  221. :Then
  222. :ClrDraw
  223. :Text(1,1,"COME JOIN THE T.I. ELITES
  224. :Text(13,1,"AT CEMETECH
  225. :Text(25,1,"WWW.CEMETECH.NET
  226. :Pause
  227. :End
  228. :If Ans=8
  229. :Then
  230. :ClrDraw
  231. :Text(1,1,"CONTACT ME AT
  232. :Text(13,1,"KINGRJ554 AT YAHOO.COM
  233. :Text(25,1,"OR AT THE CEMETECH.NET 
  234. :Text(37,1,"FORUMS
  235. :Text(49,1,"JUST PM AES SEDIA5
  236. :Pause
  237. :End
  238. :If K=45
  239. :Then
  240. :Text(1,1,"THANKS FOR USING THE
  241. :Text(13,1,"FIVE PACK OF MATH
  242. :ClrDraw
  243. :Text(25,1,"MADE BY AES SEDIA5
  244. :rand(100
  245. :ClrDraw
  246. :Output(1,1,"
  247. :Return
  248. :End
  249. :End
  250. :End
  251. :End
  252.  
  253.  
  254.  
  255.  
Advertisement
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!