home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTL-MS02.DMS / in.adf / Guide / MovieShop / rexx / tl_init.msrx < prev    next >
Encoding:
Text File  |  1995-06-25  |  526 b   |  35 lines
  1. /*
  2.  
  3.   Initialisierung
  4.  
  5. */
  6.  
  7. TLInit:
  8. Arg TLMODE Scenes
  9.  
  10. BACK = 0
  11.  
  12. ADDRESS MOVIESHOP
  13. OPTIONS RESULTS
  14. OPTIONS FAILAT 21
  15.  
  16. FREETIMELINE
  17. If (RC=0) Then
  18.   Do
  19.     TIMELINEMODE TLMODE
  20.     OPENWINDOW TIMELINE
  21.     TIMELINELOCATOR OFF
  22.  
  23.     GOTOSCENE NUMBER Scenes-1
  24.     If (RC>0) Then
  25.       Do
  26.         REQUEST '"Es sind nicht genügend Szenen vorhanden." GADGETS "Weitere Aufnehmen|   Abbrechen   "'
  27.         If (RESULT>0) Then Call "MS_GUIDE:Rexx/tl_rec.msrx"()
  28.         Else BACK = 5
  29.       End
  30.     Else Nop
  31.   End
  32. Else BACK = 5
  33.  
  34. Return BACK
  35.