// Begin FB3 PPC Program, Standard or Carbon (not tested above OS 8.6)

'~'5
// Lil' Movie Player  Robert Covington   <artlythere@...>
'~'5

Local FN Nickel_Ode_Ian(nav)
DIM as OSerr  err
DIM as short  @refNum,resID,vRef
DIM as Long   @wndPtr,movie,wndGW,wndDV
DIM as rect   m
DIM as FSSpec theFSSpec
DIM dahmane$   // Taschen :)

long if nav
dahmane$ = Files$(_FSSpecOpenPreview,"MooV",¬
"Choose Test Movie...",theFSSpec)
Xelse
dahmane$ = Files$(_fOpenPreview,"MooV",¬
"Choose Test Movie...",vRef)
End if

Long if dahmane$ <> ""
If FN EnterMovies then exit FN// no use going on
if nav = 0 then err = FN FSMakeFSSpec(vRef, 0,dahmane$,@theFSSpec )
err = FN OpenMovieFile( @theFSSpec, @refNum, _fsRdPerm )
err = FN NewMovieFromFile( @movie, refNum, @resID, =_nil,¬
 _newMovieActive, =_nil )
err = FN CloseMovieFile( refNum ) : refNum = -1
GetMovieBox( movie, m ) : OffsetRect( m ,-m.left%,-m.top%)
Window 1,"ShowTime At The Arobbo",@m,_docNoGrow
GetGWorld(wndGW,wndDV) : SetMovieGWorld( movie, wndGW ,0)
GoToBeginningOfMovie( movie) : StartMovie( movie )
while FN IsMovieDone( movie ) = _False and FN Button = _False
MoviesTask( 0, 0 )
Wend
StopMovie( movie ) : ExitMovies : Window Close 1
End If

End FN

'~'5
Dim @qtVersion as long, err  as OSErr
err = Fn Gestalt(_"qtim",qtVersion)
if qtVersion&[0] < 3 Then END
'~'5
long if gFBHasNavServices
gFBUseNavServices = _zTrue
Xelse
gFBUseNavServices = 0
End IF
'~'5
FN Nickel_Ode_Ian(gFBUseNavServices)
'~'5
END
// End FB3 Program