; ************************************************************
; Learning Nimb
; ************************************************************
; From: http://www.ti59.com/prog.htm, Thomas Endo 

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

lbl d
hir 5 cms

lbl e
ce hir 18 rtn

int hir 8 hir 7

lbl a
inv stf 1 hir 17 sto 0 rtn

int x%t 3 inv ge a 1 x%t inv ge a hir 57 a cp
eq 110 . 2 sm* 0 

lbl b
a sbr 161 sbr 161 sbr 161 hir 6 a clr hir 15 rad 
cos deg inv cos - sbr 174 + . 5 = hir 5 * hir 16 
= x%t 

;084
sbr 161 inv ge 86 clr stf 1 rcl 0 cp eq 110
hir 7 . 1 sm* 0 gto a 

;110
e sto 0 op 30 . 1 x%t 

;118
1 hir 6 rc* 0 - sbr 174 st* 0 = inv ge 151 inv eq 142 1 +/-
hir 46 

;142
hir 16 iff 1 149 inv 

;149
sm* 0 

;151
dsz 0 118 iff 1 e pi c rtn

;161
rcl 0 op 10 inv sum 0 rc* 0 inv lnx + rtn

fix 0 ee inv ee fix 9 rtn




 
#end
 