Dark Bit Factory & Gravity

PROGRAMMING => Freebasic => Topic started by: Hotshot on February 07, 2007

Title: C64 Loading Screen and TV as well
Post by: Hotshot on February 07, 2007

Code: [Select]

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

 :cheers:

Title: Re: C64 Loading Screen and TV as well
Post by: rdc on February 07, 2007

Nice one Hotshot. Brings back memories. :)

Title: Re: C64 Loading Screen and TV as well
Post by: Shockwave on February 07, 2007

What Rdc said :)