\start83\
\comment=Program file dated 08/01/98, 06:10
\name=ZWORKMNU
\file=C:\TI\83\WORK\ZWORKMNU.TXT
Menu("OPTIONS","CHANGE DATE",1,"GOTO DATE",2,"ACTUAL PAY",3,"REMOVE OLD",4,"CANCEL",6,"QUIT",7)
Lbl 1
ClrHome
Disp "DATE:"
Output(1,6,[E](\theta\,15)
Disp "CHANGE TO?"
Input "MMDDYY ",A
A\->\[E](\theta\,15)
Return
Lbl 2
ClrHome
dim([E])\->\L\1\
L\1\(1)\->\A
Disp "USED DATES"
For(B,1,A)
Disp [E](B,15)
If int(B/7)=(B/7):Then
Pause 
Disp "USED DATES"
End
End
Input "MMDDYY ",C
0\->\D
For(B,1,A)
If [E](B,15)=C:B\->\D
End
If D\!=\0:Then
D\->\\theta\
Else
Menu("DATE","CREATE",A,"CANCEL",B)
Lbl A
dim([E])+{1,0}\->\dim([E]
A+1\->\\theta\
C\->\[E](\theta\,15)
Lbl B
End
Lbl 6
Return
Lbl 3
ClrHome
Input "ACTUAL PAY ",A
A\->\[E](\theta\,16)
Return
Lbl 4
dim([E])\->\L\1\
L\1\(1)\->\A
If A>1:Then
Menu("ARE YOU SURE?","NO",B,"YES",C)
Lbl C
For(B,1,A-1)
For(C,1,16)
[E](B+1,C)\->\[E](B,C)
End
End
L\1\-{1,0}\->\dim([E])
Else
ClrHome
Disp "YOU DON'T HAVE"
Disp "ONE TO REMOVE"
Pause 
End
Return
Lbl 7
RecallGDB GDB5
Output(1,1,""
Stop
\stop83\

