API tools faq
paste
Aes_Sedia5

MenuFinal1

Aes_Sedia5
Oct 29th, 2011
87
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.68 KB | None | 0 0
raw download clone embed print report diff
  1. SetUpEditor LMPACK
  2. :FnOff
  3. :ClrHome
  4. :ClrDraw
  5. :GridOff
  6. :AxesOff
  7. :PlotsOff
  8. :ZStandard
  9. :84→Xmin
  10. :52→Ymin
  11. :ZInteger
  12. :{3,17,61,14,3,30,14,45,34,24,3,50,24,60,30,34,3,38,34,45,51,45,20,65,55,20,48→L1
  13. :{1,18,25,33,45,52,61,74,92,104
  14. :For(X,1,9
  15. :Text(L1(3X-2),L1(3X-1),sub("FIVE PACK OF MATHALGEBRACALCULUSTRIGONOMETRYVOLUMESCHEMISTRYARCHIVE STATEMADE BY AES SEDIA5CEMETECH.NET",Ans(X),Ans(X+1)-Ans(X
  16. :End
  17. :1→X
  18. :Repeat K=105 Or K=45
  19. :L1(3X-1)-2→U
  20. :63-L1(3X-2→V
  21. :L1(3X→W
  22. :Line(U,V,U+W,V
  23. :Line(U,V,U,V-8
  24. :Line(U+W,V,U+W,V-8
  25. :Line(U,V-8,U+W,V-8
  26. :Repeat Ans
  27. :getKey→K
  28. :End
  29. 2int(.5X->S:X=9->T:K={24,25,26,34:If max(Ans:min(9,max(1,sum(Ans{S+T,X+T-2,S+1-(X=8),X+2-(3=abs(X-4->X
  30. :Line(U,V,U+W,V,0
  31. :Line(U,V,U,V-8,0
  32. :Line(U+W,V,U+W,V-8,0
  33. :Line(U,V-8,U+W,V-8,0
  34. :End
  35. :Disp X
  36. If Ans=1
  37. :Then
  38. :ClrDraw
  39. :Text(1,1,"THE FIVE PACK OF MATH
  40. :Text(7,1,"MADE BY AES SEDIA5
  41. :Text(13,1,"ALL RIGHTS RESERVED
  42. :Text(19,1,"PLEASE DO NOT USE ANY
  43. :Text(25,1,"OF THIS CODE WITHOUT 
  44. :Text(31,1,"MY EXPRESS PERMISSION
  45. :Text(37,1,"YOU MAY CONTACT ME AT THE
  46. :Text(43,1,"WWW.CEMETECH.NET FORUMS
  47. :Text(49,1,"OR EMAIL ME AT
  48. :Text(55,1,"KINGRJ554 AT YAHOO.COM
  49. :Pause
  50. :End
  51. If Ans=7
  52. Then
  53. Text(1,1,"WOULD YOU LIKE TO KEEP
  54. Text(13,1,"ALL PROGRAMS ARCHIVED
  55. Text(25,1,"1.YES
  56. Text(37,1,"2.NO
  57. Repeat Z
  58. getKey->Z
  59. End
  60. If Z=92
  61. 1->Dim(LMPACK)
  62. If Z=93
  63. 2->dim
  64. End
  65. :If Ans=8
  66. :Then
  67. :ClrDraw
  68. :Text(1,1,"COME JOIN THE T.I. ELITES
  69. :Text(13,1,"AT CEMETECH
  70. :Text(25,1,"WWW.CEMETECH.NET
  71. :Pause
  72. 0
  73. :End
  74. :If Ans=9
  75. :Then
  76. :ClrDraw
  77. :Text(1,1,"CONTACT ME AT
  78. :Text(13,1,"KINGRJ554 AT YAHOO.COM
  79. :Text(25,1,"OR AT THE CEMETECH.NET 
  80. :Text(37,1,"FORUMS
  81. :Text(49,1,"JUST PM AES SEDIA5
  82. 0
  83. Pause
  84. End
  85. If dim(LMPACK=1
  86. Then
  87. :If Ans=2
  88. :Then
  89. :Asm(prgmZZARCHIV
  90. :UnarchiveprgmZZALGEBR
  91. :prgmZZALGEBR
  92. :ArchiveprgmZZALGEBR
  93. :Asm(prgmZZARCHIV
  94. :0
  95. :End
  96. :If Ans=3
  97. :Then
  98. :Asm(prgmZZARCHIV
  99. :UnarchiveprgmZZZCALC
  100. :prgmZZZCALC
  101. :ArchiveprgmZZZCALC
  102. :Asm(prgmZZARCHIV
  103. 0
  104. :End
  105. :If Ans=4
  106. :Then
  107. :Asm(prgmZZARCHIV
  108. :UnarchiveprgmZZZTRIG
  109. :prgmZZZTRIG
  110. :ArchiveprgmZZZTRIG
  111. :Asm(prgmZZARCHIV
  112. :End
  113. 0
  114. :If Ans=5
  115. :Then
  116. :Asm(prgmZZARCHIV
  117. :UnarchiveprgmZZZVOLUM
  118. :prgmZZZVOLUM
  119. :ArchiveprgmZZZVOLUM
  120. :Asm(prgmZZARCHIV
  121. :End
  122. If Ans=6
  123. Then
  124. :Asm(prgmZZARCHIV
  125. :UnarchiveprgmZZZCHEM
  126. :prgmZZZCHEM
  127. :ArchiveprgmZZZCHEM
  128. :Asm(prgmZZARCHIV
  129. :End
  130. :End
  131. If dim(LMPACK=2
  132. Then
  133. :If Ans=2
  134. :prgmZZALGEBR
  135. :If Ans=3
  136. :prgmZZZCALC
  137. :If Ans=4
  138. :prgmZZZTRIG
  139. :If Ans=5
  140. prgmZZZVOLUM
  141. If Ans=6
  142. prgmZZZCHEM
  143. End
  144. If K=45
  145. Then
  146. ClrDraw
  147. :Text(1,1,"THANKS FOR USING THE
  148. :Text(13,1,"FIVE PACK OF MATH
  149. :Text(25,1,"MADE BY AES SEDIA5
  150. :rand(100
  151. :ClrDraw
  152. ClrHome
  153. :Output(1,1,"
  154. :Return
  155. End
  156.  
  157.  
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!