@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