; ************************************************************
; Data Lister
; ************************************************************
; PPX Volume 5, Number 2 (March/April - 1981), page 6

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

lbl A
adv op 0 9 9 sto 0 hir 2 

A011:
rc* 0 op 19 iff 7 A090 

A019:
cp rc* 0 eq A085 rcl 0 inv ge A118
x%t 1 hir 3 0 hir 4 x%t / log int hir 33
inv log 

A046:
+ x%t 1 0 0 hir 44 8 ge A059 2 + 

A059:
1 - int hir 34 = hir 2 1 hir 53 hir 13 cp
inv eq A110 hir 14 op 4 rc* 0 op 6 

A085:
op 30 gto A019

A090:
inv stf 7 clr 1 0 inv sum 0 hir 52 hir 12 inv
ge A129 gto A011 

A110:
hir 12 * 1 0 gto A046 

A118:
1 7 3 1 1 6 op 4 op 5 r/s

A129:
r/s 3 3 6 4 1 2 0 6 1 2 op 4 op 5 

A143:
9 1/x pause clr 9 5 9 pause clr gto A143


#end
 