DIM K
 
 CLS
 
 FOR K = 0 TO 15
   COLOR K, 0
   LOCATE 2 + K, 5, 0
   PRINT "Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins."
 NEXT
 
 COLOR 15, 1
 LOCATE 23, 28, 0
 INPUT "Press Enter To End", K
 COLOR 7, 0
 
 CLS

Result:

 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.
 Introducing BCX! The Basic To C Translator for Win32 by Kevin Diggins.

                       Press Enter To End