here's your code with no scaling and the ball bouncing off the flipper.
my system not that fast only get about 208fps without the smoke.
` set up the program
phy enable debug
sync on
sync rate 0
phy start
autocam off
make light 1
set directional light 1, -5,-5,5
` create a material
concrete=1
phy make material concrete,"concrete"
phy set material static friction concrete,0.75
phy set material dynamic friction concrete,0.75
phy set material restitution concrete,0.1
phy build material concrete
load object "Test.3DS",1000
`scale object 1000,200,200,200
load image "Textures/stripe5.png",2
load image "Textures/stripe6.png",3
load object "Test1.3DS",999
`scale object 999,200,200,200
load object "flipper.3DS",998
`scale object 998,200,200,200
texture object 1000,2
phy make rigid body static mesh 1000,1
texture object 999,2
phy make rigid body static mesh 999,1
texture object 998,1
position object 998,15,66.5,-25
phy make rigid body dynamic mesh 998,1
PHY SET RIGID BODY KINEMATIC 998,1
PHY SET RIGID BODY KINEMATIC ROTATION 998,10,0,0
`phy make smoke emitter 1, 512, 0, 200, 0
`load image "Textures/smoke2.jpg", 1
`texture object 1, 1
`ghost object on 1, 0
make object sphere 99, 7
position object 99, 0,200,0
color object 99, rgb( rnd( 255 ), rnd( 255 ), rnd( 255 ) )
set object specular 99, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
set object specular power 99, 255
set object ambient 99,0
phy make rigid body dynamic sphere 99, 1
phy set gravity 0,-10,0
position camera 0,200,0 : point camera 0,0,0
set point light 0,500,300,500 : set ambient light 20
set normalization on
` main program loop
count = 0
count2 = 0
count2 = 500
do
inc x#,.3
PHY SET RIGID BODY KINEMATIC ROTATION 998,0,x#,0
If leftkey()=1
count=count-1
Position camera count,count2,count1
endif
If rightkey()=1
count=count+1
Position camera count,count2,count1
endif
If upkey()=1
count1=count1+1
Position camera count,count2,count1
endif
If downkey()=1
count1=count1-1
Position camera count,count2,count1
endif
If controlkey()=1
count2=count2-1
Position camera count,count2,count1
endif
If shiftkey()=1
count2=count2+1
Position camera count,count2,count1
endif
point camera 0,0,0
phy update
sync
loop
Dark Physics makes any hot drink go cold.