Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!bpa!temvax!pacsbb!ebray
From: ebray@pacsbb.UUCP (Eric Bray)
Newsgroups: comp.sys.ti
Subject: DISPLAY AT BLINK DEMO IN ABASIC
Keywords: ABASIC 6/29/89
Message-ID: <646@pacsbb.UUCP>
Date: 2 Jul 89 14:13:22 GMT
Organization: PACS - Philadelphia Area Computer Society, Penna.
Lines: 8



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