\start83\
\comment=Program file dated 08/01/98, 06:10
\name=ZWORKDSP
\file=C:\TI\83\WORK\ZWORKDSP.TXT
0\->\G
ClrDraw
Text(2,5,"DaY
Text(2,21,"Start
Text(2,44,"End
Text(2,67,"HOURS
Text(9,2,"MON
Text(16,2,"TUES
Text(23,2,"WED
Text(30,2,"THUR
Text(37,2,"FRY
Text(44,2,"SAT
0\->\C
For(A,9,44,7)
For(B,21,46,23)
C+1\->\C
If int(C/2)=C/2:Then
[E](\theta\,C)-[E](\theta\,C-1)\->\H
G+H\->\G
Text(A,67,H)
End
If [E](\theta\,C)<12:Then
Text(A,B,[E](\theta\,C)
Text(A,B+18,"A"
Else
If [E](\theta\,C)=24:Then
Text(A,B+18,"A"
Else
Text(A,B+18,"P"
End
If [E](\theta\,C)<13:Then
Text(A,B,[E](\theta\,C)
Else
Text(A,B,[E](\theta\,C)-12
End
End
End
End
Text(51,67,G)
Text(51,7,round((G*\L\ZWORK(2))-(G*\L\ZWORK(2)*\L\ZWORK(1)),2)
Text(51,37,[E](\theta\,16)
Return
\stop83\

