' oldskool scrolltext - CS_TBL d=320Graphics d,240Local a:Int[20]Local b:Int[20]For t=0To 19a[t]=t*16Next c=128Repeat o:+1For t=0To 19;a[t]:+1;a[t]:Mod d;If a[t]=0 b[t]=Rnd(95)+32 y#=Sin(o+t*36)*32SetColor c+t*6,c+y*6,t*9 DrawText Chr(b[t]),d-a[t],c+y Next;Flip;Cls;Until KeyHit(27) ' 74 ' 73 ' 41 ' 29 ' 30 ' ---+ ' 247