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