; Requires Extended language mode. F5 writes PNG; F6 writes PNG plus report.
Graphics3D 960,600,0,2
camera=CreateCamera():PositionEntity camera,0,1,-6
light=CreateLight():RotateEntity light,35,-35,0
sphere=CreateSphere(32):EntityColor sphere,60,170,255
While Not KeyHit(1)
    TurnEntity sphere,.15,.4,0
    If KeyHit(63) Then CaptureScreenshot "prototype.png"
    If KeyHit(64) Then CaptureFrame "prototype_frame"
    RenderWorld
    Color 255,255,255:Text 10,10,"F5 screenshot   F6 screenshot + report   ESC exits"
    If CaptureStatus()=-1 Then Text 10,30,CaptureError()
    Flip
Wend
End