Will only work in Power Basic 3.0, not QBASIC

5 b=10
10 popup quiet b:popup sleep using ems, "C:\mike"
30 b=b-1:delay 1:locate int(rnd(1)*23+1),(int(rnd(1)*70)+1),1
35 if b=1 then let b=10: print "I am an alien trying to communicate with you from the Oort cloud!"
60 goto 10