t = 0
S = 45400
I = 2100
R = 2500
deltat = 1
PRINT t, S, I, R
FOR k = 1 TO 3
        Sprime = -.00001 * S * I
        Iprime = .00001 * S * I - I / 14
        Rprime = I / 14
        deltaS = Sprime * deltat
        deltaI = Iprime * deltat
        deltaR = Rprime * deltat
        t = t + deltat
        S = S + deltaS
        I = I + deltaI
        R = R + deltaR
        PRINT t, S, I, R
NEXT k