C64 Loading Screen and TV as well

[Hotshot]

Code Select Expand


' 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! 

[rdc]

Nice one Hotshot. Brings back memories.

[Shockwave]

What Rdc said