'$DYNAMIC
DEFINT A-Z
DECLARE SUB setwait (buf(), BYVAL t)
DIM a(1)
CLS
a(0) = 5
setwait a(), 61
WHILE a(0) = 0: LOCATE 1, 1: PRINT a(0): WEND