NB. screen messer

COUNT=: 0
SIZE=: 100 100
SPEED=: 20 18
DIR=: 1 1
MAX=: 1000-SIZE
POS=: ?MAX
COLORS=: ?500 3$255

smupdate=: 3 : 0
COUNT=: >:COUNT
POS=: POS+SPEED*DIR
DIR=: DIR*_1^(POS<0)+.MAX<POS
POS=: POS+(+: 0>.-POS)-+:0>.POS-MAX
SPEED=: ?40 36
glbrush glrgb (?500){COLORS
glshow glellipse POS,SIZE
)

3 : 0''
gback 255 255 255
while. 0=".wd'qbreak' do.
 try. smupdate''
 catch. break.
 end.
end.
)
