%%HP: T(1)A(D)F(.);
"
CLS
STOV L 50
STOV A 00
STOV C 00
STOV E 20
STOV D 40
#B
COPY B C SIN B
%COPY D A
%FLG=1 0
%LINE A D
%PAUSES L
FLG=0 0
LINE A D
V+C A 01
V+C C 05
GOTO B
@"