initevents


loop:
 gosub hide
 goto loop
 
sub hide
 event macro 13 21
 wait 201
return