BlitzMax : Commodore 64 depacking screen[BMAX]

[Dad1916]

Attached source code and .exe example.
Can the mod change this forums title from blitz basic to blitz Basic/Max/3d to reflect all the languages please! 

Code: [Select]

'c64 random color loading demo
'Posted to DBF-GVY Demo Code Forum by DaD1916 scsicork@hotmail.com
'Draws
Strict

Graphics 800,600,32
HideMouse()

Repeat
Cls
C64Loading
Flip
Until KeyHit(KEY_ESCAPE)

End

Function C64Loading()
Local y=0,h
Repeat
If KeyHit(KEY_ESCAPE) End
h=Rand(5,60)
SetColor Rand(255),Rand(255),Rand(255)
DrawRect 0,y,GraphicsWidth(),h
y:+h
Until y>=GraphicsHeight()
End Function


[Shockwave]

That's a pretty authentic version of the effect Nice one, thanks for posting the source.