[comp.sys.ti] DISPLAY AT BLINK DEMO IN ABASIC

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