But now I need to get back to swotting.....
Graphics 640,480
t$="***** Blitzplotter *****"
u$=" Jul 2013 Already!! "
w=TextWidth(t)
h=TextHeight(t)
r#=0
s#=0
While Not KeyHit( KEY_ESCAPE )
Cls
s:+2
SetOrigin 320,240
SetHandle w/2,h/2
SetTransform s,3,5
SetColor 0,0,255
DrawRect 0,0,w,h
SetColor 255,255,255
DrawText u,0,0
SetOrigin 0,0
SetHandle 0,0
SetTransform 0,1,1
r:-1
SetOrigin 320,240
SetHandle w/2,h/2
SetTransform r,3,5
SetColor 0,0,255
DrawRect 0,0,w,h
SetColor 255,255,255
DrawText t,0,0
SetOrigin 0,0
SetHandle 0,0
SetTransform 0,1,1
Flip
Wend
|