%%HP: T(1)A(D)F(.);
"CLS
STOV A 40
STOV B 20
FLG=0 0
STOV C 01
STOV D 7F
#U
CIRCLE A C
V+C C 01
%PAUSEL B
?> D C 
GOTO U
#A
GOTO A


@"