home *** CD-ROM | disk | FTP | other *** search
- /*
-
- 3 Szenen mit einer Länge von 5 Sekunden Aufnehmen
-
- */
-
- ADDRESS MOVIESHOP
- OPTIONS RESULTS
- OPTIONS FAILAT 21
-
- GETVIDEOSTATUS
- If (RC>0) Then
- Do
- VIDEOINPUT YC
- GETVIDEOSTATUS
- If (RC>0) Then
- Do
- VIDEOINPUT CVBS
- GETVIDEOSTATUS
- If (RC>0) Then
- Do
- REQUEST '"Kein Videosignal!"'
- Exit 5
- End
- End
- End
-
- RECORDLENGTH 'TIME 5:00'
- If (RC>0) Then Exit 10
-
- RECORDSCENE DOWAIT
- If (RC>0) Then Exit 10
- RENAMESCENE '"Szene 1"'
-
- RECORDSCENE DOWAIT
- If (RC>0) Then Exit 10
- RENAMESCENE '"Szene 2"'
-
- RECORDSCENE DOWAIT
- If (RC>0) Then Exit 10
- RENAMESCENE '"Szene 3"'
-
- Exit 0
-