rem
rem Video Playback Example
rem

rem Load Video
LoadVideo("video.wmv")
SetVideoDimensions(0,0,100,70)
PlayVideo()


APPSW$ = "A"



  ResetTimer()
TimeK =  0.0
  
     

      IF APPSW$ = "A"
     

         TimeK =  Timek + 22.0

         Repeat
			 
			

			 
         until Timer() >  TimeK

 EndIF


  StopVideo()
  PlayVideo()
  
  

      IF APPSW$ = "A"
		
         Sync()


         TimeK =  Timek + 22.0

         Repeat
         until Timer() >  TimeK

      EndIF


  StopVideo()
  PlayVideo()
  
  
End
  





















     GoSub virtualM1
     
 Sync()
 GoSub virtualM1a
 
RemStart     
rem Main loop
do
 if GetPointerPressed()=1
  rem Reset video
  StopVideo()
  
SetTextString(1,""Press screen to replay")")

  rem Play from beginning
  PlayVideo()
 endif
 Sync()
 GoSub virtualM1a
 loop
 
 RemEnd

End


virtualM1:

AddVirtualButton(1,0,80,50)


AddVirtualButton(2,50,80,50)


SetVirtualButtonText(1,"1")
SetVirtualButtonText(2,"Salir")

 rem       i = Random2(100,255)

        SetVirtualButtonColor(1,255,0,0)

        Sync()



 Return


virtualM1a:           //  Virt Exec

         AritBasicaM$ = "              Menu Principal           "

 rem        Gosub  AritMessage


Do
 Rem   For i=100 to 255


        If GetVirtualButtonPressed(2)=1 then Goto UnoM1

        If GetVirtualButtonPressed(2)=1 then End


  Sync()

Loop


CeroM1:

numero = 0

  rem Reset video
  StopVideo()
  
SetTextString(1,"-------------")

  rem Play from beginning
  PlayVideo()
  
End
        

goto beepM1


UnoM1:

numero = 0

  rem Reset video
 rem StopVideo()
  
SetTextString(1,"-------------")

APPSWSuma$ = "A"
  ResetTimer()
TimeK =  0.0
  PlayVideo()
  
     

		 
         SetTextString(1,"Press screen to replay")

         Sync()


  StopVideo()

         TimeK =  Timek + 9.0

         Repeat
			 
			

			 
         until Timer() >  TimeK

 


  StopVideo()
  PlayVideo()
  
  

      IF APPSWSuma$ = "A"
		
         Sync()


         TimeK =  Timek + 9.0

         Repeat
         until Timer() >  TimeK

      EndIF


  StopVideo()
  PlayVideo()
  
  
End
        

goto beepM1


beepM1:

Return