home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTL-MS02.DMS / in.adf / Guide / MovieShop / tl_new.msx < prev    next >
Encoding:
Text File  |  1995-03-18  |  1.1 KB  |  65 lines
  1. /*
  2.   Erstellen eines neuen Projektes für die demonstration
  3.   verschiedener Möglichkeiten der Schnittliste
  4. */
  5.  
  6. ADDRESS MOVIESHOP
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 21
  9.  
  10. CLOSEPROJECT
  11. If (RC>=10) Then Exit 10
  12.  
  13. OPERATINGMODE 'V'
  14. If (RC>0) Then Exit 10
  15.  
  16. If (SetInput()>0) Then Exit 10
  17.  
  18. FRAMEPOS L 300 T 120
  19. If (RC>0) Then Exit 10
  20.  
  21. FRAMESIZE W 320 H 256
  22. If (RC>0) Then Exit 10
  23.  
  24. JPEGQUALITY 25
  25. If (RC>0) Then Exit 10
  26.  
  27. NEWPROJECT
  28. If (RC>0) Then Exit 10
  29.  
  30. Call 'MS_GUIDE:tl_rec.msx'
  31.  
  32. ADDRESS MOVIESHOP
  33. GOTOSCENE NUMBER 2 /* Test ob drei Szenen vorhanden sind */
  34. If (RC>0) Then Exit 10
  35.  
  36. ADDRESS MOVIESHOP_HELP 'LINK timeline.msg/TL_ACT 5'
  37. Exit 0
  38.  
  39. SetInput:
  40. /*
  41.    Automatisches Ermitteln des
  42.    Eingangs und der Videonorm
  43. */
  44. BACK = 0
  45. GETVIDEOSTATUS
  46. If (RC>0) Then
  47. Do
  48.   VIDEOINPUT YC
  49.   ADDRESS COMMAND 'Wait 1'
  50.   GETVIDEOSTATUS
  51.   If (RC>0) Then
  52.   Do
  53.     VIDEOINPUT CVBS
  54.     ADDRESS COMMAND 'Wait 1'
  55.     GETVIDEOSTATUS
  56.     If (RC>0) Then
  57.     Do
  58.       REQUEST '"Kein Videosignal!"'
  59.       BACK = 5
  60.     End
  61.   End
  62. End
  63. If (BACK=0) Then INPUTVMODE Word(RESULT,1) /* letzter Rückgabewert von GETVIDEOSTATUS */
  64. Return BACK
  65.