@chicago, post #123
@djpiotrs, post #127
@QUAD, post #130
Screen Open 0,640,200,16,Lowres
Screen Display 0,128,50,320,200
Flash Off : Curs Off
Pen 1
Box 0,0 To 15,15
Get Bob 1,0,0 To 16,16
Cls 9
Box 0,0 To 319,199
Double Buffer : Autoback 0 : Bob Update Off
Screen Open 1,320,20,16,Lowres : Flash Off : Curs Off
T1=Timer
Repeat
Inc FPS
Screen 0
Bob 0,160+X#,100,1
Bob Clear : Bob Draw
Screen Swap
Screen Offset 0,X,0
Wait Vbl
Inc X : X#=X#+0.5
If X=319 Then X=0
T2=Timer
If T2-T1>=50
Screen 1 : Locate 0,0 : Print Str$(FPS)+" "
FPS=0
T1=Timer
End If
Until Mouse Click @QUAD, post #132
@QUAD, post #132