/KALEIDOSCOPE-8

T,      TAD Y
        JMS SCALE
        CMA
        TAD X
        DCA X
        TAD X
        DXS
        JMS SCALE
        TAD Y
        DYS
        DCA Y 
        JMP T

///

SCALE,  0
        DCA TEM
        OSR
        CIA
        DCA C
        TAD TEM
        CLL
        SPA
        CML
        RAR
        ISZ C
        JMP .-5
        JMP I SCALE

X,      400
Y,      0
TEM,    0
C,      0

DXS=6057
DYS=6067
$
h