home *** CD-ROM | disk | FTP | other *** search
/ Chestnut's Multimedia Mania / MM_MANIA.ISO / slide / cinema10 / cinema.cin < prev    next >
Text File  |  1990-07-05  |  959b  |  51 lines
  1. Rem This is a test of the cinema program
  2.  
  3. Rem We'll start by loading a graphics driver
  4. OpenDriver GrafDrv.Drv
  5.  
  6. Rem Next we'll define how long the pictures will stay on the screen
  7. SetWait 3
  8.  
  9. Rem This tells CINEMA to jump to the next picture if a key is hit
  10. SetKeybreak ON
  11.  
  12. :myLoop
  13.     REM start of my loop
  14.     while 4
  15.         Call mySubroutine
  16.         while 3
  17.             OpenImage bodefrag.pcx
  18.             OpenImage zoe.pcx
  19.         wend
  20.         OpenImage frogg.pcx
  21.         Call mySubroutine
  22.     wend
  23.  
  24.     OpenImage nagel2.Img
  25. GoTo myLoop
  26. Quit
  27.  
  28. :mySubroutine
  29.     REM Start of my subroutine
  30.     OpenImage e:\gif\mouse.gif
  31.     OpenImage e:\gif\parrot.gif
  32.     Call mySecondSubroutine
  33.     Return
  34.  
  35. :mySecondSubroutine
  36.     REM Start of my second subroutine
  37.     OpenImage d:\gemart\kelly.img
  38.     Call myThirdSubroutine
  39.     OpenImage d:\gemart\cheetah.img
  40.     Return
  41.  
  42. :myThirdSubroutine
  43.     REM Start of my third subroutine
  44.     while 2
  45.         OpenImage e:\gif\pigs.gif
  46.         OpenImage d:\gemart\hkGirl.Img
  47.     wend
  48.     Return
  49.  
  50.  
  51.