; ******************* 
; Leisure Library 04
; *******************
; Football Predictor

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

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

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

lbl clr
cms fix 9 0 rtn

lbl a
1 2 sto 0 gto 21

lbl c
6 sto 0 rcl 0 rtn

st* 0 dsz 0 21 0 rtn

lbl d
sto 18 1 1 gto 63

lbl b'
sto 18 6 gto 63

lbl d'
sto 18 5 gto 63

lbl b
sto 18 1 2 ( sto 0 - 4 ) sto 19 ( rcl 18 ex* 0
* rc* 19 ) sm* 0 1 sm* 19 rc* 19 inv pd* 0 0 rtn

sto 18 ( rcl 0 - 2 - sto 0 2 ) sto 19 rcl 18 (
ex* 0 * ( rc* 19 - 1 ) ) sm* 0 rc* 19 inv pd* 0
0 rtn

lbl e
( ( rcl 12 + rcl 3 ) / 2 ) fix 0 dms sto 13 ( (
rcl 10 + rcl 5 ) / 2 ) dms sto 14 fix 9 ( rcl 14
ee +/- 2 + rcl 13 ) inv ee fix 9 rtn
 

#end