Rem This is a test of the cinema program

Rem We'll start by loading a graphics driver
OpenDriver GrafDrv.Drv

Rem Next we'll define how long the pictures will stay on the screen
SetWait 3

Rem This tells CINEMA to jump to the next picture if a key is hit
SetKeybreak ON

:myLoop
	REM start of my loop
	while 4
		Call mySubroutine
		while 3
			OpenImage bodefrag.pcx
			OpenImage zoe.pcx
		wend
		OpenImage frogg.pcx
		Call mySubroutine
	wend

	OpenImage nagel2.Img
GoTo myLoop
Quit

:mySubroutine
	REM Start of my subroutine
	OpenImage e:\gif\mouse.gif
	OpenImage e:\gif\parrot.gif
	Call mySecondSubroutine
	Return

:mySecondSubroutine
	REM Start of my second subroutine
	OpenImage d:\gemart\kelly.img
	Call myThirdSubroutine
	OpenImage d:\gemart\cheetah.img
	Return

:myThirdSubroutine
	REM Start of my third subroutine
	while 2
		OpenImage e:\gif\pigs.gif
		OpenImage d:\gemart\hkGirl.Img
	wend
	Return