; ******************* 
; Leisure Library 10
; *******************
; Memo Pad

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

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

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

lbl a
x%t 0 eq 106 1 gto 30

lbl b
x%t 0 eq 111 2 gto 30

lbl c
x%t 0 eq 116 3 ( ce + 3 * ( x%t - 1 ) ) x%t 5
ge 81 1 2 ge 86 2 0 ge 91 2 6 ge 96 2 0 gto 124

lbl d
x%t 6 ge 77 3 gto 98

1 gto 98

1 2 gto 98

1 5 gto 98

1 7 gto 98

2 0 ( ce + x%t ) gto 124

5 7 gto 124

4 0 gto 124

7 1 gto 124

lbl e
0 x%t 1 0 0 prd 1 x%t sum 1 rcl 1 dsz 3 149
op 20 st* 0 5 sto 3 0 sto 1 cp op 32 rcl 2 inv
eq 176 iff 1 169 rcl 0 sto 3 sbr 177 5 sto 3
2 0 sto 2 rtn

4 sto 1 rc* 3 op* 1 op 33 dsz 1 180 op 5 op 0 rtn

lbl a'
rcl 3 x%t 5 eq 224 op 20 2 prd 3 ( rcl 3 inv log ee
inv ee * 0 exc 1 ) st* 0 ( rcl 2 / 5 ) int sum 0
gto 158

lbl b'
3 sto 3 rcl 0 x%t 4 sum 3 sbr 177 4 sum 3 rcl 3 inv
eq 244 5 sto 3 0 rtn

lbl d'
( ( ce * 4 - 1 ) sto 3 + 4 ) gto 243

lbl clr
cms inv stf 1 1 

lbl c'
( ce * 4 - 1 ) sto 0 0 sto 1 gto 169

 

#end