home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTL-MS02.DMS / in.adf / Guide / MovieShop / tl_calc.msx < prev    next >
Encoding:
Text File  |  1995-03-18  |  418 b   |  26 lines
  1. /*
  2.   Berechnung
  3. */
  4.  
  5. Calc:
  6.   PARSE ARG SceneName
  7.  
  8. ADDRESS MOVIESHOP
  9. OPTIONS RESULTS
  10.  
  11. REQUEST '"Schnittliste Berechnen?"' GADGETS '" Ja |Nein"'
  12. If (RESULT=1) Then
  13.   Do
  14.     CALCULATETIMELINE VIDEO
  15.     If (RC>0) Then Exit 10
  16.     LastScene = 0
  17.     Do While (LastScene = 0)
  18.       GOTOSCENE NEXT
  19.       LastScene = RC
  20.     End
  21.     TIMELINETOSCENE
  22.     If (RC>0) Then Exit 10
  23.     RENAMESCENE '"' || SceneName || '"'
  24.   End
  25. Exit 0
  26.