; ******************* 
; Leisure Library 18
; *******************
; Football

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

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

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

lbl clr
cms cp fix 9 0 rtn

lbl e
cms fix 0 sto 9 1 sto 8 ( 6 0 + sbr 163 * 9 ) ee
inv ee sto 5 ( 7 0 + sbr 163 * 2 0 ) dms sto 3 4
sto 0 rcl 3 sto 4 prt rtn

lbl a
( ce * 9 * ( sbr 163 - . 3 ) ) ( ee inv ee - rcl 3
) +/- sto 3 prt inv ge 125 ( ce - 1 0 0 ) ge 138
op 35 rcl 5 eq 189 ( rcl 4 - rcl 3 - 1 0 ) ge 47
inv dsz 0 173 +/- rtn

( 6 + sbr 163 ) ee inv ee gto 140 2 +/- ( prt * rcl 8
) ge 155 +/- sum 7 gto 157

sum 6 sbr 197 gto 33

7 inv lnx pgm 13 sbr rad rcl 9 rtn

( 1 0 0 - rcl 3 ) sto 3 sbr 197 gto 47

rcl 6 adv prt rcl 7 prt rtn

adv 1 +/- prd 8 rtn


#end