Анимация ( плоский рисунок с движением)

SCREEN 12
CONST Pi = 3.14159265358#
x0 = 320: y0 = 240: r = 220: rs = 200: rm = 180: rh = 175: DIM c$(12)
DATA XII,I,II,III,IV,V,VI,VII,VIII,IX,X,XI
FOR i = 1 TO 12: READ c$(i): NEXT
CIRCLE (x0, y0), r, 4
FOR s = 0 TO 59
    ax = CINT(x0 - r * COS((Pi / 180) * (6 * s + 90)))
    ay = CINT(y0 - r * SIN((Pi / 180) * (6 * s + 90)))
    ax1 = CINT(x0 - (r - 15) * COS((Pi / 180) * (6 * s + 90)))
    ay1 = CINT(y0 - (r - 15) * SIN((Pi / 180) * (6 * s + 90)))
    ax2 = CINT(x0 - (r - 5) * COS((Pi / 180) * (6 * s + 90)))
    ay2 = CINT(y0 - (r - 5) * SIN((Pi / 180) * (6 * s + 90)))
    IF s MOD 5 = 0 THEN
        LINE (ax, ay)-(ax1, ay1), 5
        LOCATE ay1 / 16, ax1 / 8: PRINT c$((s / 5) + 1)
    ELSE
        LINE (ax, ay)-(ax2, ay2), 5
    END IF
NEXT
WHILE INKEY$ = ""
    a$ = TIME$
    h = VAL(MID$(a$, 1, 2))
    m = VAL(MID$(a$, 4, 2))
    s1 = s: s = VAL(MID$(a$, 7, 2))
    IF s1 <> s THEN
        LINE (x0, y0)-(xs, ys), 0
        LINE (x0, y0)-(xm, ym), 0
        LINE (x0, y0)-(xh, yh), 0
        xs = CINT(x0 - rs * COS((Pi / 180) * (6 * s + 90)))
        ys = CINT(y0 - rs * SIN((Pi / 180) * (6 * s + 90)))
        LINE (x0, y0)-(xs, ys), 4
        xm = CINT(x0 - rm * COS((Pi / 180) * (90 + 6 * m)))
        ym = CINT(y0 - rm * SIN((Pi / 180) * (90 + 6 * m)))
        LINE (x0, y0)-(xm, ym), 15
        xh = CINT(x0 - rh * COS((Pi / 180) * (90 + 6 * ((h MOD 12) * 5 + m \ 12))))
        yh = CINT(y0 - rh * SIN((Pi / 180) * (90 + 6 * ((h MOD 12) * 5 + m \ 12))))
        LINE (x0, y0)-(xh, yh), 1
    END IF
WEND