' C64 LOADING SCREEN =) WED 7 FEB 2007
const SCR_WIDTH = 320
const SCR_HEIGHT = 320
SCREEN 13
dim X as integer
dim Y as integer
WHILE INKEY$ = ""
for X=1 To SCR_WIDTH
for Y=1 TO SCR_HEIGHT
'C64 LOADING SCREEN
'LINE( RND(X),X )-( Y,X ), rgb( X*RND(100),Y*RND(100),X*RND(100))
' IF U WANT TO CHANGE TO TV SCREEN
LINE( X,Y )-( X,Y ), rgb( RND()*128,RND()*128, RND()*128 )
NEXT X
NEXT Y
WEND
I am still learning on Freebasic but there is lots to learn in freebasic!
