- ZWIN - Custom Menu
- 02 Dec 2010 06:04:41 pm
- Last edited by Rhombus P. on 02 Dec 2010 06:08:24 pm; edited 2 times in total
here is my first release of a custom menu program that i made i pure basic. weighing in at only 386 bytes, this program includes a graphical menu, animations, and options.
Code:
download: ZWIN2.8xp
OPTIONS
1 -> LZWIN(1 == Save screen and graph settings and recall (buggy?)
1 -> LZWIN(2 == Draw line under selected option instantly instead on animated
2ND key and clear key end program,
selected option is stored in A
DESTORYS:
Real vars: a,k
Code:
:StorePic 1
:StoreGDB 1
:ClrDraw
:{-}62→Ymin:0→Ymax:94→Xmax:0→Xmin
:Line(5,{-}4,89,{-}4:Line(4,{-}5,4,{-}57:Line(5,{-}58,89,{-}58:Line(90,{-}5,90,{-}57
:Text(6,6,Str1
:Line(5,{-}14,90,{-}14
:length(Str2)/16→B
:iPart(B)→B
:For(A,1,B
:Text(7A+8,11,sub(Str2,16A-15,16
:End
:1→A
:SetUpEditorZWIN
:3→dim(∟ZWIN
:Repeat K=21 or K=45
:Text(7A+8,6,">
:If ∟ZWIN(2)
:Line(11,({-}7A-8)-6,85,({-}7A-8)-6
:For(V,11,85
:getKey→K
:If Ans
:85→V
:Pt-On(V,({-}7A-8)-6
:End
:While not(Ans
:getKey→K
:End
:Line(11,({-}7A-8)-6,85,({-}7A-8)-6,0
:Text(7A+8,6,"
:A-(K=25 and A>1)+(K=34 and A<B)→A
:End
:ClrHome
:If ∟ZWIN(1)
:Then
:RecallPic 1
:RecallGDB 1
:End
download: ZWIN2.8xp
OPTIONS
1 -> LZWIN(1 == Save screen and graph settings and recall (buggy?)
1 -> LZWIN(2 == Draw line under selected option instantly instead on animated
2ND key and clear key end program,
selected option is stored in A
DESTORYS:
Real vars: a,k