You might check out my menu example, it does that:
http://www.caffeineoverdose.net/cod/coding_coding.shtml
***Note that text command is notoriously SLOW, so copyrecting whatever graphics would be much faster.
Graphics3D 800,600,16,1
cam = CreateCamera()
CameraClsMode cam,0,1
MoveEntity cam,0,0,-5
light = CreateLight()
MoveEntity light,-10,10,-10
cube = CreateCube()
EntityColor cube,51,51,204
EntityAlpha cube,.75
y = -220: LineSpacing = 12: z = 0
Repeat
Cls
Z=Z+1
Color 153,153,255
Rect 40,y-10,345,250
Color 0,0,92
Rect 50,y,325,230
If z=<40 Then
Color 153,153,255
Rect 50,y+62,9,10
EndIf
If z=80 Then z=0
y = y+1
If y > GraphicsHeight() Then y=-220
Color 153,153,255
w=6
Text 50,(LineSpacing*0)+y," **** COMMODORE 64 BASIC V2 ****"
Text 50,(LineSpacing*2)+y," 64K RAM SYSTEM 38911 BASIC BYTES FREE"
Text 50,(LineSpacing*4)+y,"READY"
Text 50,(LineSpacing*w+1)+y,"PRESS 'ESC' TO GET BACK TO THE NENU"
TurnEntity cube,2,1,.5
RenderWorld
Flip
Until KeyHit (1)
|