10  CLS : PRINT "What is the message to display?" : PRINT
20  LINE INPUT MSG$
30  PRINT : PRINT "Press 'Q' at any time to end the screen blanker..."
40  FOR J = 1 TO 25000
50     J = J + 1
60  NEXT J
70  S=LEN(MSG$)
80  BACKCOLOR = 0
90  FRONTCOLOR = 3
100 ROWNUM = 4 : COLNUM = 7
110 COLOR FRONTCOLOR,BACKCOLOR
120 CLS
130 LOCATE ROWNUM,COLNUM
140 PRINT MSG$
150 L = 1
160 ROWNUM = INT(RND*20)+1
170 COLNUM = INT(RND*(80-S))+1
180 WHILE L
190    COLOR FRONTCOLOR,BACKCOLOR
200    LOCATE ROWNUM,COLNUM
210    PRINT TIME$
220    L = L + 1
230    IF L = 250 THEN L = 0
240    A$ = INKEY$
250    IF A$ = "q" OR A$ = "Q" THEN 280
260 WEND
270 GOTO 120
280 CLS
290 SYSTEM