Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- :FnOff
- :ClrHome
- :ClrDraw
- :GridOff
- :AxesOff
- :PlotsOff
- :ZStandard
- :84→Xmin
- :52→Ymin
- :ZInteger
- :{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
- :{1,18,25,33,45,52,61,74,91,104
- :For(X,1,9
- :Text(L1(3X-2),L1(3X-1),sub("FIVE PACK OF MATHALGEBRACALCULUSTRIGONOMETRYVOLUMESCHEMISTRYARCHIVE STATEMADE BY AES SEDIA5CEMETECH.NET",Ans(X),Ans(X+1)-Ans(X
- :End
- :1→X
- :Repeat K=105
- :L1(3X-1)-2→U
- :63-L1(3X-2→V
- :L1(3X→W
- :Line(U,V,U+W,V
- :Line(U,V,U,V-8
- :Line(U+W,V,U+W,V-8
- :Line(U,V-8,U+W,V-8
- :Repeat Ans
- :getKey→K
- :End
- :min(9,max(1,X+min(ΔList(Ans={24,26→X
- :Line(U,V,U+W,V,0
- :Line(U,V,U,V-8,0
- :Line(U+W,V,U+W,V-8,0
- :Line(U,V-8,U+W,V-8,0
- :End
- :Disp X
Advertisement
Add Comment
Please, Sign In to add comment
