set display mode 800,600,16:sync on:sync rate 50:hide mouse:set text font "arial"
set text size 20:set text to bold:read name$:dim name_y(61):dim name_col(61)
dim text_y(55):dim text$(55):dim text_col(55):dir=1:for c=1 to 55
read text$(c):text_y(c)=500+(c*30):text_col(c)=0:next c:for c=1 to 61
name_y(c)=510:name_col(c)=100:next c:do:cls 0
for c=1 to 55:if text_y(c)<480 and text_y(c)>300 then text_col(c)=text_col(c)+1
if text_y(c)<280 and text_col(c)>0 then text_col(c)=text_col(c)-1
ink rgb(text_col(c),text_col(c),text_col(c)),0:if text_y(c)<480 then center text 400,text_y(c),text$(c)
if text_y(c)<100 then text_y(c)=2000:text_col(c)=0
text_y(c)=text_y(c)-1:next c
for c=1 to 61:ink rgb(100,10,name_col(c)),0
text -7+(c*13),name_y(c),mid$(name$,c):text -7+(c*13),name_y(c)-490,mid$(name$,c):line 0,480,800,480:line 0,100,800,100:next c
inc ym,15:if dir=1 then name_col(1)=name_col(1)+5
if dir=2 then name_col(1)=name_col(1)-5
if name_col(1)=255 then dir=2
if name_col(1)=80 then dir=1
for c=61 to 2 step-1:name_y(c)=name_y(c-1):name_col(c)=name_col(c-1):next c:name_y(1)=name_y(1)+sin(ym)*6:sync
loop:data "------------=======+++++( MR TUMNUS )+++++=======------------","HI AND WELCOME TO THIS NAFF SCROLLER!","","","","ME PC BROKE!","","SO I AIN'T BEEN ABLE TO DO ANYTHING FOR MONTHS & MONTHS!",":(","","","","","WANTED TO ADD COLOUR TO THIS TEXT"
data "","BUT I'M OUT OF LINES","","BUMMER!","","","","","","A SILLY THING...","","","","-------------------------","LEMONADE PIZZA","-------------------------","","","LEMONADE PIZZA","I COULDN'T CARE LESS","COS YOU'RE NOT A PEANUT IN MY EAR.","","",""
data "I ATE A BRAINWAVE","THAT YOU WERE A MORON","PLAYING THE FLUTE IN A PINT OF BEER.","","","","WE'RE LIVIN' IN A FRIED BANANA","ON SPACE PORT 43","","","","AND YOU CAN'T FORM AN INVERSE LEMON","WITH AN ELEPHANT ON YOUR KNEE.","","","*****","","C YA!"
