SHOW:
|
|
- or go back to the newest paste.
| 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,91,104
|
| 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 | - | :min(9,max(1,X+min(ΔList(Ans={24,26→X
|
| 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 |
| 155 | + | |
| 156 | ||
| 157 |
