; ************************************************************
; Print Calendar
; ************************************************************
; 

#EMULATOR c:\ti-59\prg2\prtcal\prtcal.t59
#LISTING c:\ti-59\prg2\prtcal\prtcal.lst
#POCKETPC c:\ti-59\prg2\prtcal\prtcal.ti

clr gto 230

0 0 2 rtn  0 0 3 rtn  0 0 4 rtn  0 0 5 rtn
0 0 6 rtn  0 0 7 rtn  0 1 0 rtn  0 1 1 rtn  0 1 2 rtn

2 0 1 rtn  2 0 2 rtn  2 0 3 rtn  2 0 4 rtn  2 0 5 rtn
2 0 6 rtn  2 0 7 rtn  2 1 0 rtn  2 1 1 rtn  2 1 2 rtn

3 0 1 rtn  3 0 2 rtn  3 0 3 rtn  3 0 4 rtn  3 0 5 rtn
3 0 6 rtn  3 0 7 rtn  3 1 0 rtn  3 1 1 rtn  3 1 2 rtn

4 0 1 rtn  4 0 2 rtn  

lbl a
sto 7 rtn

lbl b
sto 8 rtn

lbl c
sto 9 rtn

2 5 1 3 3 1 rtn
2 1 1 7 1 4 rtn
3 0 1 3 3 5 rtn
1 3 3 3 3 5 rtn
3 0 1 3 4 5 rtn
2 5 4 1 3 1 rtn
2 5 4 1 2 7 rtn
1 3 4 1 2 2 rtn
3 6 1 7 3 3 rtn
3 2 1 5 3 7 rtn
3 1 3 2 4 2 rtn
1 6 1 7 1 5 rtn

lbl e
rst stf 8 rcl 7 sbr 433 pgm 20 a 4 sto 6 inv stf 5
iff 2 291 stf 2 sto 2 sbr 440 sto 0 0 sto 12 7 x%t
1 0 prd 0 x2 prd 12 rcl 0 int inv sum 0 ge 282 - 2
+ 3 = sum 12 dsz 2 264 1 3 x%t rcl 7 sto 10 op 27
rcl 7 inv ge 314 inv stf 2 1 sto 7 op 28 sbr 433 
pgm 20 b sto 11 7 prd 10 1 3 6 sum 10 op 0 rcl 12 
op 3 sbr ind 10 op 2 op 5 rcl 4 pgm 20 sbr 177 x%t
rcl 5 - exc 4 = prd 6 3 6 0 0 0 0 3 0 op 1 3 7 0 0 0 0
op 2 4 3 0 0 0 0 3 7 0 0 op 3 2 1 0 0 0 0 3 6 op 4 op 5
op 0 1 eq 474 2 eq 479 3 eq 486 4 eq 491 5 eq 516
6 eq 523 0 eq 528 1/x rtn

* 1 0 0 + 1 + rcl 8 / 4 inv log = rtn

inv log ee inv ee * iff 5 030 4 sum 11 rcl 6 x%t
rcl 11 inv ge 472 stf 5 go* 11 6 sbr 448 + 0 sbr 448
= op 1 4 sbr 448 + 2 +/- sbr 448 = sto 1 int inv sum 1
op 2 rcl 1 * 1 0 inv log ee inv ee + 2 sbr 448 = op 3
6 sbr 448 + 0 sbr 448 = op 4 op 5 inv iff 5 474 adv
dsz 9 240 0 adv adv adv adv rtn

 
#end
 