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"
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Share Alike 2.5 License.