ebray@pacsbb.UUCP (Eric Bray) (07/02/89)
100 CALL GRAPHICS(3,1) :: CALL CLEAR :: CALL BTIME(3,3) :: W=1 110 CALL BCOLOR(W,6) 120 DISPLAY AT(12,12)BLINK :"THIS IS A TEST" 130 FOR Q=1 TO 5000 :: NEXT Q :: W=W+1 :: IF W=6 OR W=16 THEN 130 :: IF W>1 6 THEN 140 ELSE 110 140 CALL CLEAR :: END