; ******************* 
; Leisure Library 16
; *******************
; Hangman

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

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

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

lbl a
pgm 10 a gto 34

lbl b
pgm 10 b gto 34

lbl c
x%t 9 inv eq 30 pgm 10 e gto 34

x%t pgm 10 c x%t 2 0 iff 4 197 eq 64 x%t rtn

lbl d
( ( ce / 5 ) int +/- + 4 ) sto 19 pgm 10 a' stf 4
cp rcl 19 sto 0 4 sto 2 iff 2 224 8 sto 3 5 sto 1
rc* 2 sto 16 ( rcl 16 / 1 0 0 ) sto 16 inv int inv
sum 16 iff 0 118 eq 137 sbr 253 sm* 3 gto 137

inv eq 137 stf 3 sbr 253 inv sm* 3 rcl 17 sbr 255
sm* 3 dsz 1 88 op 22 op 23 dsz 0 81 2 inv iff 0 191
iff 3 191 1 sum 18 rcl 18 x%t 7 eq 174 rcl 17 gto 182

2 3 4 1 3 1 2 2 op 4 x%t op 6 gto 310

1 pgm 10 d' gto 310

sto 2 sto 3 0 exc 1 cp inv eq 210 rtn

( sto 17 / 1 0 0 ) x%t stf 0 gto 67

1 2 sto 3 0 sto 17 ( rc* 2 - rc* 3 ) inv eq 159
op 23 op 22 dsz 0 231 gto 190

2 0 ( ce * ( ( 5 - rcl 1 ) * 2 ) inv log ee inv ee
) rtn

lbl e
stf 2 inv stf 4 0 sto 12 sto 13 sto 14 sto 15 3 
pgm 10 c' rtn

lbl clr
pgm 10 sbr clr stf 1 4 sto 19 inv stf 4 inv stf 0
inv stf 2 inv stf 3 0 rtn



#end