I just finished adding a menu to my program.
Code: :DCS
"4444444444444444443344333443334444343434444434444434343334443444443434344444344444334433344434444444444444444444999999999999999999996999996669999966699996999699999969999699969999996999999969999999699999969999999969999969999999666669966666999999999999999999
If 80>det([[20:Then:Disp "Get Doors CSE to run this:","http://dcs.cemetech.net":Return:End
0->A:0->B:255->C:255->D
Goto F
Lbl F
ClrHome
real(0,1,1
real(0,3,4,151,1
real(0,3,4,151,1
real(0,1,0,0
"Low High"
real(6,0,30,8,0,60,1
"Low Hig"
real(6,0,95,8,0,60,1
"h
real(6,0,0,8,0,60,1
det(12,0,0,151,151
Output(1,7,"| | | | |"
det(12,Black,Blue
Output(1,8," A "
det(12,Black,Magenta
Output(1,12," B "
det(12,Black,Green
Output(1,16," C "
det(12,Black,Orange
Output(1,20," D "
det(12,0,0,151,151
Output(2,1,"det(12, , , , )"
Output(2,8,A
Output(2,12,B
Output(2,16,C
Output(2,20,D
Output(3,1,"--------------------------"
Output(7,1,"--------------------------"
Output(8,1,"Foreground Background"
Output(9,1,"---- bolduparrow=+1 -- bolddownarrow=-1 ----"
Output(10,1," | | | | "
det(12,Black,Blue
Output(10,1," +1 "
det(12,Black,Magenta
Output(10,6," +1 "
det(12,Black,Red
Output(10,11," Menu "
det(12,Black,Green
Output(10,18," +1 "
det(12,Black,Orange
Output(10,23," +1 "
det(12,A,B,C,D
real(7,9,0,50,160,25,255,1
real(7,9,0,50,160,25,255,1
Output(5,1,"Your text"
1->P
Goto D
Lbl D
Repeat K=13 or K=45
Repeat Ans
getKey
End
Ans->K
P+(Ans=25)->P
P-(K=34)->P
A+P(K=11)->A
B+P(K=12)->B
C+P(K=14)->C
D+P(K=15)->D
If A<0
A+256->A
If A>255
Then
det(12,0,0,151,151
A-256->A
Output(2,8," "
End
If B<0
B+256->B
If B>255
Then
det(12,0,0,151,151
B-256->B
Output(2,12," "
End
If C<0
C+256->C
If C>255
Then
det(12,0,0,151,151
C-256->C
Output(2,16," "
End
If D<0
C+256->C
If D>255
Then
det(12,0,0,151,151
D-256->D
Output(2,20," "
End
If P=26
25->P
If P=~26
~25->P
If abs(P)=P
Then
det(12,Black,Blue
Output(10,1," "
Output(10,2,"+
Output(10,3,P
det(12,Black,Magenta
Output(10,6," "
Output(10,7,"+
Output(10,8,P
det(12,Black,Green
Output(10,18," "
Output(10,19,"+
Output(10,20,P
det(12,Black,Orange
Output(10,23," "
Output(10,24,"+
Output(10,25,P
Else
det(12,Black,Blue
Output(10,1," "
Output(10,2,"-"
Output(10,3,~P
det(12,Black,Magenta
Output(10,6," "
Output(10,7,"-"
Output(10,8,~P
det(12,Black,Green
Output(10,18," "
Output(10,19,"-"
Output(10,20,~P
det(12,Black,Orange
Output(10,23," "
Output(10,24,"-"
Output(10,25,~P
End
det(12,0,0,151,151
Output(2,8,A
Output(2,12,B
Output(2,16,C
Output(2,20,D
det(12,A,B,C,D
Output(5,1,"Your text"
det(12,Black,White
End
If K=45
Goto Q
7->R
Output(7,11," Input"
Output(8,11," Help "
Output(9,11," Quit "
0->K
Repeat K=21 or K=45 or K=105
getKey->K
If K=25
Then
Output(R,11," "
R-1->R
End
If K=34
Then
Output(R,11," "
R+1->R
End
If R=10
7->R
If R=6
9->R
Output(R,11,"[|>]"
End
If K=45
Then
det(12,0,0,151,151
Output(7,11,"------"
Output(8,11," "
Output(9,11," -- "
Goto D
End
If R=7
Then
ClrHome
real(0,1,0,1
Input "A=",A
iPart(A)->A
Input "B=",B
iPart(B)->B
Input "C=",C
iPart(C)->C
Input "D=",D
iPart(D)->D
While A<0
A+256->A
End
While A>255
A-256->A
End
While B<0
B+256->B
End
While B>255
B-256->B
End
While C<0
C+256->C
End
While C>255
C-256->C
End
While D<0
D+256->D
End
While D>255
D-256->D
End
Goto F
End
If R=8
Then
ClrHome
real(0,1,0,1
Output(1,1,"This program is meant to help you choose numbers touse with det(12). Pressingthe up and down arrows will increase/decrease thechanges. In the menu, Input allows you to enter values, and [CLEAR] will exit the menu. Press [ENTER] to return."
Pause
Goto F
End
If R=9
Goto Q
Lbl Q
ClrHome
real(0,1,0,1
det(12,A,B,C,D
Output(8,1,"Your Text"
det(12,300
Disp "det(12,A,B,C,D)","","A=","B=","C=","D="
Output(3,3,A
Output(4,3,B
Output(5,3,C
Output(6,3,D
Pause
I am about to upload it to the archives queue.