; ******************* 
; Leisure Library 17
; *******************
; Learning Nim

#EMULATOR c:\ti-59\le\17\le-17.t59

#LISTING c:\ti-59\le\17\le-17.LST

#AZEMULATOR c:\ti-59\le\17\le-17.TI

lbl clr
cp cms 

lbl e
rcl 1 rtn

sto 2 sto 1 rcl 1 rtn

lbl a
inv stf 1 rcl 2 rtn

( ce - 4 ) cp ge a ( ce + 3 ) inv ge a ( ce + 1 )
+/- sum 2 rcl 2 eq op ( ce + 6 ) sto 5 . 2 sm* 5

lbl b 
stf 1 rcl 2 sto 6 ( e' e' e' sto 3 rcl 2 sto 6 rcl 4
* 1 8 0 / pi ) ( ( ce - ( ce + . 5 ) int + . 5 )
sto 4 * rcl 3 ) +/- 

lbl list
sto 0 ( sbr deg + rcl 0 ) inv ge list rcl 6 eq op sto 2
. 1 sm* 5 gto a

lbl deg
rcl 6 op 10 inv sum 6 ( rcl 6 + 6 ) sto 5 rc* 5 inv lnx rtn

lbl e'
sbr deg + rtn

lbl op
( rcl 1 sto 6 + 6 ) sto 5

lbl gto
1 sto 3 ( rc* 5 - ( ce + . 5 ) int st* 5 - . 1 ) inv ge
dsz inv eq iff 1 +/- prd 3 

lbl iff 
rcl 3 iff 1 dms +/-

lbl dms
sm* 5 

lbl dsz
op 35 dsz 6 gto iff 1 pi pi c rtn

lbl pi
0 1/x 0 rtn






#end