Scroll Messenger
This is a useless program but it is like a scroll messenger. Might be useful for something.
DO
CLS
COLOR 8
LOCATE 2, 2
PRINT "c";
SLEEP 1
PRINT "o";
SLEEP 1
PRINT "r";
SLEEP 1
PRINT "e";
SLEEP 1
PRINT "y";
SLEEP 1
CLS
LOCATE 2, 2
PRINT "core"
SLEEP 1
CLS
LOCATE 2, 2
PRINT "cor"
SLEEP 1
CLS
LOCATE 2, 2
PRINT "co"
SLEEP 1
CLS
LOCATE 2, 2
PRINT "c"
SLEEP 1
CLS
LOCATE 2, 2
PRINT ""
SLEEP 1
LOOP UNTIL INKEY$ = "q"