DIM b% 255:SYS "Wimp_Initialise",200,&4B534154,"MyApp":t%=TIME:REPEAT SYS "Wimp_Poll",,b%:WHILE TIME>t%+100:VDU 7:t%+=100:ENDWHILE:UNTIL FALSE