REM Set up the initial configuration
      SETBLACK 1:         REM Start with a blank screen
      SPEED 1:            REM Each pause a 50th of a second


      LOADFAST 16,":credits/creditscard"

      NEW 14,16
	  COPY 16,14
      DISPLAY 14:         REM start by displaying screen 14
      FADE 1,14,9:        REM fade in to creditcard 
      PAUSE 100

	  DRAWMODE 0:         REM use only the foreground colour
      PEN 1,2
	  MARGINS 76,246
	  CENTER 1
	  MOVE 100,90
	  TEXT "Showbiz"
	  PAUSE 200
	  PEN 1,3
	  MOVE 100,100
	  TEXT "Produced and directed"
	  MOVE 100,110
	  TEXT "by Robert Corns"

      LOAD 3,":mouse/lobby1"
      LOAD 5,":mouse/mouse1"
      LOAD 6,":mouse/mouse2"
      LOAD 7,":mouse/mouse3"
      LOAD 8,":mouse/mouse4"
	  REM buffer 9 is a shared buffer between mouse5 and mouse 6
      LOADFAST 10,":mouse/mouse5"
      LOADFAST 11,":mouse/mouse6"

      buff=1:             REM dummy variable for screens 1 and 2
      TRANSPARENT 1:      REM set the background colour to transparent
      BLITDEST buff:      REM set BLIT destination screen
      NEW 1,3:            REM initialize screen 1's palete to screen 3's
      NEW 2,3:            REM dito
      NEW 9,3:            REM dito
      COPY 3,2:           REM 3 is the background scene
	  FADE 0,14,1:        REM fade out title
	  DISPLAY 2:          REM start by displaying 2
	  FREE 14
      LOAD 4,":mouse/lobby2":  REM memory problems force this
	  FADE 1,2,5:         REM fade in lobby
      PAUSE 200
REM enter mouse
      x = -160:           REM top left corner x position
	  y = 56:             REM top left corner y position


      FOR cycnum = 1 TO 2:    REM cycnum is the mousewalk cycle number
	    FOR rat = 1 TO 12:    REM rat is the drawing number 
	      GOSUB 20:           REM refreshing the background
		  GOSUB 50:           REM blit the mouse
	      GOSUB 40:           REM displaying and upkeep
	      CLEAR
		  IF cycnum = 2 & rat = 6
		    GOTO 5
		  ENDIF
		NEXT
      NEXT


5 REM break from above loop to here
REM scroll room with mouse
	  rat = 1:                REM reinitialize rat
	  leftedge = 0:           REM leftedge is lobby1's edge blitted
	  width = 320:            REM width is lobby1's width blitted
	  Leftedge = 320:         REM Leftedge is lobby2's edge blitted
	  Width = 0:              REM Leftedge is lobby2's width blitted
	  FOR frame = 1 TO 105:   REM frame is the frame number
	    GOSUB 30:             REM BLIT first and second rooms
		GOSUB 60:             REM blit the mouse for a moving room
        GOSUB 40:             REM displaying and upkeep
		rat = rat + 1
		IF rat > 12
		  rat = 1
		ENDIF
        CLEAR
      NEXT

REM exit mouse
      FOR cycnum = 1 TO 2:    REM cycnum is the mousewalk cycle number
	    FOR rat = 1 TO 12:    REM rat is the drawing number 
	      GOSUB 25:           REM refreshing the background
		  GOSUB 50:           REM blit the mouse
	      GOSUB 40:           REM displaying and upkeep
	      CLEAR
		NEXT
      NEXT
	  COPY 4,buff
	  DISPLAY buff
	  FREE 3
	  FREE 4
	  FREE 5
	  FREE 6
	  FREE 7
	  FREE 8
	  FREE 9
	  FREE 10
	  FREE 11
	  GOTO 100:              REM goto the next scene
	  END:                   REM not necessary but just in case

 

20  REM refreshing the background for lobby1
    COPY 3,buff
	RETURN



25  REM refreshing the background for lobby2
    COPY 4,buff
	RETURN



30  REM a background track
    BLIT 3,leftedge,0,0,0,width,200
	BLIT 4,0,0,Leftedge,0,Width,200
	leftedge = leftedge + 3
	width = width - 3
	Leftedge = Leftedge - 3
	Width = Width + 3
	RETURN


40  REM Displaying the picture, upgrading the buff and blit destination
    REM and pausing
    DISPLAY buff
    buff=3-buff
    BLITDEST buff
	PAUSE 1
    RETURN


50  REM blitting the mouse
    IF rat = 1
      x = x + 10
      y = y + 4
      BLIT 5,1,1,x,y,140,135
    ENDIF
    IF rat = 2
	  x = x + 10
	  y = y - 4
	  BLIT 5,170,1,x,y,145,140
	ENDIF
	IF rat = 3
	  x = x + 5
	  y = y - 4
	  BLIT 6,1,1,x,y,140,145
	ENDIF
	IF rat = 4
	  x = x + 9
	  BLIT 6,160,1,x,y,140,145
	ENDIF
	IF rat = 5
	  x = x + 3
	  y = y + 6
	  BLIT 7,1,1,x,y,140,140
	ENDIF
	IF rat = 6
	  x = x + 2
	  BLIT 7,170,1,x,y,135,140
	ENDIF
	IF rat = 7
	  x = x + 8
	  y = y + 2
	  BLIT 8,1,1,x,y,140,135
	ENDIF
	IF rat = 8
	  x = x + 14
	  y = y - 7
	  BLIT 8,165,1,x,y,150,145
	ENDIF
	IF rat = 9
	  COPY 10,9
	  x = x + 3
	  y = y -1
	  BLIT 9,1,1,x,y,150,145
	ENDIF
	IF rat = 10
	  x = x + 10
	  y = y - 1
	  BLIT 9,170,1,x,y,150,145
	ENDIF
	IF rat = 11
	  COPY 11,9
	  x = x + 3
	  y = y + 2
	  BLIT 9,1,1,x,y,150,145
	ENDIF
	IF rat = 12
	  x = x + 6
	  y = y + 3
	  BLIT 9,170,1,x,y,150,145
	ENDIF
	RETURN


60  REM blit mouse when room is moving
    IF rat = 1
      x = x + 5
      y = y + 4
      BLIT 5,1,1,x,y,140,130
    ENDIF
    IF rat = 2
      x = x + 5
      y = y - 4
      BLIT 5,170,1,x,y,145,140
    ENDIF
    IF rat = 3
      y = y - 4
      BLIT 6,1,1,x,y,140,145
    ENDIF
    IF rat = 4
      x = x + 4
      BLIT 6,160,1,x,y,140,145
    ENDIF
    IF rat = 5
	  x = x - 2
      y = y + 6
      BLIT 7,1,1,x,y,140,140
    ENDIF
    IF rat = 6
      x = x - 1
      BLIT 7,170,1,x,y,135,140
    ENDIF
    IF rat = 7
      x = x + 3
      y = y + 2
      BLIT 8,1,1,x,y,140,135
    ENDIF
    IF rat = 8
      x = x + 9
      y = y - 7
      BLIT 8,165,1,x,y,150,145
    ENDIF
    IF rat = 9
      COPY 10,9
	  x = x - 2
      y = y -1
      BLIT 9,1,1,x,y,150,145
    ENDIF
    IF rat = 10
      x = x + 5
      y = y - 1
      BLIT 9,170,1,x,y,150,145
    ENDIF
    IF rat = 11
      COPY 11,9
	  x = x - 2
      y = y + 2
      BLIT 9,1,1,x,y,150,145
    ENDIF
    IF rat = 12
      x = x + 1
      y = y + 3
      BLIT 9,170,1,x,y,150,145
    ENDIF
    RETURN



100  REM the second scene. Taking a seat in the theater



      LOAD 3,":mouse/Stage"
      LOAD 4,":mouse/SecondRow"
	  FADE 0,buff,3:             REM fade out lobby
      SETBLACK 1:                REM Start with a blank screen
	  DISPLAY 3:                 REM get the display off 1 or 2
	  FREE 1
	  FREE 2

      buff=1:             REM dummy variable for screens 1 and 2
      BLITDEST buff:      REM set BLIT destination screen
      NEW 1,3:            REM initialize screen 1's palete to screen 3's
      NEW 2,3:            REM dito
      COPY 3,2:           REM 3 is the background scene
      FADE 1,2,5:         REM fade into theatre seats
      PAUSE 200

      rat = 1:            REM the rat variable shows which mouse 
                          REM is to be blitted
      x = -75:            REM top left corner x position
	  y = 104:            REM top left corner y position
	  xinc = 7:           REM the x increment values 2 <= xinc <= 10 
	  yinc = 1:           REM the y increment values -4 <= yinc <= 4
	  oldyinc = -1:       REM x and y are correlated so an oldxinc 
	                      REM is not needed

      FOR  cycnum = 1 to 21:    REM cycnum is the cycle number
	    FOR rat = 1 to 3
          x = x + xinc
		  y = 104 + yinc
		  GOSUB 110:         REM figure out new xinc and yinc  
	      GOSUB 120:         REM refreshing the background
	      IF rat = 1
		    BLIT 4,1,1,x,y,65,95
          ENDIF
	      IF rat = 2
	        BLIT 4,80,1,x,y,70,100
	      ENDIF
	      IF rat = 3
	        BLIT 4,160,1,x,y,65,110
	      ENDIF
	      GOSUB 130:           REM refreshing the foreground
	      GOSUB 140:           REM displaying and upkeep
	      CLEAR
		NEXT
      NEXT
	  FOR f = 0 to 20 STEP 2
	    y = 100 + f
	    GOSUB 120
	    BLIT 4,245,1,200,y,60,110
	    GOSUB 130
	    GOSUB 140
		IF f = 20
		  PAUSE 200
		  FADE 0,buff,6:       REM fade out from theatre seats
		ENDIF
		CLEAR
	  NEXT
	  FREE 3
	  FREE 4
	  GOTO 200:                REM goto the first act


	  END:                     REM just in case


 
110 REM figure out new xinc and yinc
    IF yinc = -4
	  oldyinc = -4
	  yinc = -3
	  xinc = 3
	ENDIF
	IF yinc = -3
	  IF oldyinc = -4
	    oldyinc = yinc
		yinc = -1
		xinc = 5
      ELSE
	    oldyinc = yinc
		yinc = -4
		xinc = 2
	  ENDIF
	ENDIF
	IF yinc = -1
	  IF oldyinc = -3
	    oldyinc = yinc
		yinc = 1
		xinc = 7
      ELSE
	    oldyinc = yinc
		yinc = -3
		xinc = 3
	  ENDIF
	ENDIF
	IF yinc = 1
	  IF oldyinc = -1
	    oldyinc = yinc
		yinc = 4
		xinc = 10
      ELSE
	    oldyinc = yinc
		yinc = -1
		xinc = 5
	  ENDIF
	ENDIF
    IF yinc = 4
	  oldyinc = 4
	  yinc = 1
	  xinc = 7
	ENDIF
	RETURN

120 REM refreshing the background
    COPY 3,buff
	RETURN



130 REM moving the second row 
    BLIT 4,0,127,0,127,319,73
    RETURN



140 REM Displaying the picture, upgrading the buff and blit destination
    REM and pausing
    DISPLAY buff
    buff=3-buff
    BLITDEST buff
	PAUSE 3
    RETURN





200 REM first act


	  LOAD 3,":dance/stage1"
	  LOAD 20,":dance/Signs"

	  DISPLAY 3:                   REM get the display off of buff
	  FREE 1
      FREE 2
      buff=1:                      REM dummy variable for screens 1 and 2
      NEW 1,3:                     REM initialize screen palete 
      NEW 2,3:                     REM dito
      BLITDEST buff:               REM set BLIT destination screen
      COPY 3,buff:                 REM first copy the stage
      BLIT 20,0,0,36,37,110,125:   REM BLIT on ACT 1 sign
      DISPLAY buff
      FADE 1,buff,5:               REM fade onto curtain

      LOAD 4,":dance/curtain1"
      LOAD 5,":dance/dancer1"
      LOAD 6,":dance/dancer2"
      LOAD 7,":dance/dancer3"
      LOAD 8,":dance/dancer4"
      LOAD 9,":dance/dancer5"
      LOAD 10,":dance/dancer6"
      LOAD 11,":dance/dancer7"

      buff=3-buff:                 REM to avoid a "flash" in the picture
      BLITDEST buff
	  PAUSE 1
      CLEAR

REM curtain down
      FOR j = 20 to 200 step 4
        i = 200 - j
        COPY 3,buff:                 REM copy background to buff
        BLIT 20,0,0,36,37,110,125:   REM BLIT on ACT 1 sign
        BLIT 4,0,i,0,0,320,j:        REM BLIT the curtain
        GOSUB 220:                   REM do a display now
        PAUSE 1
        IF j = 20
          PAUSE 200
        ENDIF
        IF j = 200
          PAUSE 100
        ENDIF
        CLEAR
      NEXT
	   
REM curtain up
      FOR j = 200 to 20 step -4
	    i = 200 - j
        COPY 3,buff:               REM copy background to buff
        BLIT 5,0,0,35,50,50,110:   REM BLIT in girl add 10 to xdest below
		BLIT 4,0,i,0,0,320,j:      REM BLIT the curtain
        GOSUB 220:                 REM do a display now
		PAUSE 1
		IF j = 20
		  PAUSE 25
		ENDIF
		CLEAR
      NEXT

REM now the girl struts


	  COPY 3,buff
      BLIT 5,60,0,43,51,65,105
      GOSUB 220
      PAUSE 4
      CLEAR

	  COPY 3,buff
      BLIT 5,125,0,23,50,75,110
      GOSUB 220
      PAUSE 4
      CLEAR

	  COPY 3,buff
      BLIT 5,200,0,16,49,90,110
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 6,0,0,33,45,70,110
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 6,75,0,42,45,65,115
      GOSUB 220
      PAUSE 6
      CLEAR

	  COPY 3,buff
      BLIT 6,150,0,46,45,88,115
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 6,235,0,59,48,60,110
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 7,0,0,65,46,70,110
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 7,75,0,85,44,65,115
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 7,140,0,60,45,100,115
      GOSUB 220
      PAUSE 6
      CLEAR

	  COPY 3,buff
      BLIT 7,240,0,95,44,75,115
      GOSUB 220
      PAUSE 6
      CLEAR

	  COPY 3,buff
      BLIT 8,0,0,122,51,75,110
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 8,70,0,129,48,81,110
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 8,150,0,138,44,90,115
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 8,240,0,148,43,80,115
      GOSUB 220
      PAUSE 4
      CLEAR

	  COPY 3,buff
      BLIT 9,0,0,165,50,55,110
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 9,60,0,176,49,64,110
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 9,123,0,174,42,75,115
      GOSUB 220
      PAUSE 2
      CLEAR

	  COPY 3,buff
      BLIT 9,200,0,163,39,90,120
      GOSUB 220
      PAUSE 6
      CLEAR

	  COPY 3,buff
      BLIT 10,0,0,170,43,90,115
      GOSUB 220
      PAUSE 6
      CLEAR

	  COPY 3,buff
      BLIT 10,90,0,191,43,100,115
      GOSUB 220
      PAUSE 6
      CLEAR

	  COPY 3,buff
      BLIT 10,190,0,185,42,95,120
      GOSUB 220
      PAUSE 10
      CLEAR

	  COPY 3,buff
      BLIT 11,0,0,186,45,85,115
      GOSUB 220
      PAUSE 50
      CLEAR

REM curtain down
      FOR j = 20 to 200 step 4
	    i = 200 - j
        COPY 3,buff:                 REM copy background to buff
        BLIT 11,0,0,186,45,85,115:   REM BLIT in girl 
		BLIT 4,0,i,0,0,320,j:        REM BLIT the curtain
        GOSUB 220:                   REM do a display now
		PAUSE 1
        IF j = 200
          PAUSE 100
        ENDIF
        CLEAR
      NEXT

REM curtain up
      FOR j = 200 to 20 step -4
	    i = 200 - j
        COPY 3,buff:                   REM copy background to buff
        BLIT 20,110,0,37,37,110,125:   REM BLIT in ACT 2 sign 
		BLIT 4,0,i,0,0,320,j:          REM BLIT the curtain
        GOSUB 220:                     REM do a display now
		PAUSE 1
		CLEAR
      NEXT

      FREE 4
      FREE 5
      FREE 6
      FREE 7
      FREE 8
      FREE 9
      FREE 10
      FREE 11
	  GOTO 300:            REM goto the second act


      END

220  DISPLAY buff
     buff=3-buff
     BLITDEST buff
     RETURN




300 REM now we do the flying sheep bit

	  LOAD 4,":sheep/curtain2"
      LOAD 5,":sheep/springlamb1"
      LOAD 6,":sheep/springlamb2"
	  LOAD 7,":sheep/stage2"

REM curtain down
      FOR j = 20 to 200 step 4
        i = 200 - j
        COPY 3,buff:                   REM copy background to buff
        BLIT 20,110,0,37,37,110,125:   REM BLIT in ACT 2 sign 
        BLIT 4,0,i,0,0,320,j:          REM BLIT the curtain
        GOSUB 320:                     REM do a display now
        PAUSE 1
        IF j = 20
		  PAUSE 200
		ENDIF
		IF j = 200
		  PAUSE 100
		ENDIF
		CLEAR
      NEXT


	  sheep = 1:                   REM a counter for the sheep
	   
REM curtain up
      FOR j = 200 to 20 step -4
	    i = 200 - j
        COPY 7,buff:               REM copy background to buff
        GOSUB 330:                 REM BLIT the sheep
		BLIT 4,0,i,0,0,320,j:      REM BLIT the curtain
        GOSUB 320:                 REM do a display now
		PAUSE 1
		CLEAR
		sheep = sheep + 1
	    IF sheep > 10
		  sheep = 1
		ENDIF
      NEXT


REM some "bookkeeping"
    FREE 3
	NEW 3,7
	COPY 7,3
	FREE 7

REM now the sheep springs on the open stage
	blink = 1
	squint = 1
    FOR count = 1 to 200
	  COPY 3,buff:                 REM copy the background to buff
      GOSUB 330:                   REM BLIT the sheep
	  IF sheep = 9 & blink = 4
	    BLIT 6,9,79,152,25,9,9:    REM start a blink
      ENDIF
	  IF sheep = 10 & blink = 4
	    BLIT 6,25,182,150,22,12,8
	  ENDIF
	  IF sheep = 1 & blink = 1
	    BLIT 5,34,68,151,25,11,7
	  ENDIF
	  IF sheep = 2 & blink = 1
        BLIT 5,133,68,151,30,11,9
	  ENDIF
	  IF sheep = 6 & squint = 2
	    BLIT 5,112,188,152,116,18,7
	  ENDIF
	  GOSUB 320:                   REM do a display now
	  PAUSE 1
	  CLEAR
	  sheep = sheep + 1
	  IF sheep > 10
	    sheep = 1
	    squint = 3 - squint
		blink = blink + 1
		IF blink > 4
		  blink = 1
		ENDIF
	  ENDIF
    NEXT


REM now the curtain comes down
      FOR j = 20 to 200 step 4
	    i = 200 - j
        COPY 3,buff:               REM copy background to buff
        GOSUB 330:                 REM BLIT the sheep
		BLIT 4,0,i,0,0,320,j:      REM BLIT the curtain
        GOSUB 320:                 REM do a display now
		PAUSE 1
        IF j = 200
          PAUSE 100
        ENDIF
		CLEAR
		sheep = sheep + 1
	    IF sheep > 10
		  sheep = 1
		ENDIF
      NEXT


REM curtain up
      FOR j = 200 to 20 step -4
	    i = 200 - j
        COPY 3,buff:                   REM copy background to buff
        BLIT 20,220,0,41,37,100,125:   REM BLIT in ACT 3 sign 
		BLIT 4,0,i,0,0,320,j:          REM BLIT the curtain
        GOSUB 220:                     REM do a display now
		PAUSE 1
		CLEAR
      NEXT


      GOTO 400:                        REM the 3rd act
      END



320  DISPLAY buff
     buff=3-buff
     BLITDEST buff
     RETURN



330 REM blit the sheep and the trampoline
    IF sheep = 1
	  BLIT 6,100,0,80,120,185,25:        REM tramp1
	  BLIT 5,0,0,120,15,75,65:           REM 1st lamb
    ENDIF

    IF sheep = 2
	  BLIT 6,100,0,80,120,185,25:        REM tramp1
	  BLIT 5,80,0,115,22,80,65:          REM 2nd lamb
    ENDIF

    IF sheep = 3
	  BLIT 6,100,0,80,120,185,25:        REM tramp1
	  BLIT 5,165,0,123,30,75,70:         REM 3rd lamb
    ENDIF

    IF sheep = 4
	  BLIT 6,100,0,80,120,185,25:        REM tramp1
	  BLIT 5,245,0,130,53,60,75:         REM 4th lamb
    ENDIF

    IF sheep = 5
	  BLIT 6,110,26,85,120,175,28:       REM tramp2
	  BLIT 5,0,100,122,63,70,80:         REM 5th lamb
    ENDIF

    IF sheep = 6
	  BLIT 6,120,55,100,105,115,30:      REM tramp3a
	  BLIT 5,75,130,117,100,95,40:       REM 6th lamb
	  BLIT 6,105,85,90,125,150,25:       REM tramp3a
    ENDIF

    IF sheep = 7
	  BLIT 6,115,110,96,108,150,40:      REM tramp4
	  BLIT 5,175,105,125,56,60,75:       REM 7th lamb
    ENDIF

    IF sheep = 8
	  BLIT 6,125,150,95,113,155,35:      REM tramp5
	  BLIT 5,255,90,133,26,45,95:        REM 8th lamb
    ENDIF

    IF sheep = 9
	  BLIT 6,110,26,85,120,175,28:       REM tramp2
	  BLIT 6,0,0,123,20,70,75:           REM 9th lamb
    ENDIF

    IF sheep = 10
	  BLIT 6,100,0,80,120,185,25:        REM tramp1
	  BLIT 6,0,110,115,16,80,65:         REM 10th lamb
    ENDIF
	RETURN





400 REM now comes "The Dance of Seconds" act


      LOAD 4,":croc/curtain3"
      LOAD 5,":croc/ballet01"
      LOAD 6,":croc/ballet02"
      LOAD 7,":croc/ballet03"
      LOAD 8,":croc/ballet04"
      LOAD 9,":croc/ballet05"
      LOAD 10,":croc/ballet06"
      LOAD 11,":croc/stage3"
      LOADFAST 21,":croc/ballet07"
	  LOADFAST 22,":croc/ballet08"
	  LOADFAST 23,":croc/ballet09"
	  LOADFAST 24,":croc/ballet10"


REM curtain down
      FOR j = 20 to 200 step 4
        i = 200 - j
        COPY 3,buff:                   REM copy background to buff
        BLIT 20,220,0,41,37,100,125:   REM BLIT in ACT 3 sign 
        BLIT 4,0,i,0,0,320,j:          REM BLIT the curtain
        GOSUB 420:                     REM do a display now
        PAUSE 1
        IF j = 20
		  PAUSE 200
		ENDIF
        IF j = 200
          PAUSE 100
        ENDIF
		CLEAR
      NEXT



       
REM curtain up
      FOR j = 200 TO 20 step -4
        i = 200 - j
        COPY 11,buff:              REM copy background to buff
    	BLIT 4,0,i,0,0,320,j:      REM BLIT the curtain
        GOSUB 420:                 REM do a display now
    	PAUSE 1
    	IF j = 20
    	  PAUSE 25
    	ENDIF
    	CLEAR
      NEXT


REM some more bookkeeping
      FREE 3
      NEW 3,11
      COPY 11,3
      FREE 11

REM now the croc dances 


      COPY 3,buff:                   REM copy the background
      BLIT 5,0,0,-46,39,95,90:       REM BLIT croc
      BLIT 10,128,0,-2,0,60,200:     REM BLIT side curtain
      GOSUB 420:                     REM do a display now
      PAUSE 2
      CLEAR

      COPY 3,buff
      BLIT 5,0,0,-17,35,95,90:       REM BLIT croc
	  BLIT 5,0,188,21,139,35,10:     REM BLIT shadow
      BLIT 10,128,0,-2,0,60,200:     REM BLIT side curtain
      GOSUB 420:                     REM do a display now
      PAUSE 2
      CLEAR

      COPY 3,buff
      BLIT 5,0,0,12,33,95,90:        REM BLIT croc
	  BLIT 5,0,188,50,139,35,10:     REM BLIT shadow
      BLIT 10,128,0,-2,0,60,200:     REM BLIT side curtain
      GOSUB 420:                     REM do a display now
      PAUSE 2
      CLEAR

      COPY 3,buff
      BLIT 5,0,0,41,37,95,90:        REM BLIT croc
	  BLIT 5,0,188,79,139,35,10:     REM BLIT shadow
      GOSUB 420:                     REM do a display now
      PAUSE 2
      CLEAR

      COPY 3,buff
      BLIT 5,0,0,70,37,95,90:        REM BLIT croc
	  BLIT 5,0,188,108,139,35,10:    REM BLIT shadow
      GOSUB 420:                     REM do a display now
      PAUSE 2
      CLEAR

      COPY 3,buff
      BLIT 5,0,0,97,55,95,90:        REM BLIT croc
	  BLIT 5,0,188,137,139,35,10:    REM BLIT shadow
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 5,94,0,94,67,120,90:      REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 5,213,0,113,72,107,90:    REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 5,0,89,130,61,85,100:     REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 5,84,89,141,53,100,100:   REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 5,183,89,137,52,105,100:  REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 6,0,0,120,68,80,86:       REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 6,79,0,116,68,65,86:      REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 6,143,0,84,71,120,86:     REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 6,0,85,74,69,110,95:      REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 6,109,85,74,72,110,95:    REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 6,218,85,66,79,100,95:    REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 7,0,0,56,83,88,85:        REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 7,87,0,44,64,85,102:      REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 7,171,0,51,51,75,115:     REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 7,244,0,52,39,75,125:     REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 7,0,84,62,34,75,115:      REM BLIT croc
      BLIT 7,74,185,99,152,25,15:    REM BLIT shadow
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 8,0,0,95,31,68,110:       REM BLIT croc
      BLIT 8,275,140,113,150,40,15:  REM BLIT shadow
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 8,67,0,108,42,90,110:     REM BLIT croc
      BLIT 8,275,175,127,151,40,15:  REM BLIT shadow
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 8,156,0,140,62,80,110:    REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 8,235,0,144,66,74,110:    REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 8,0,109,147,73,85,91:     REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 8,84,109,136,74,90,91:    REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 8,173,109,123,76,96,91:   REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 9,0,0,104,85,115,90:      REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 9,114,0,118,76,105,90:    REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 9,218,0,125,73,102,90:    REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 9,0,89,128,71,105,92:     REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 9,104,89,128,71,120,92:   REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 10,0,0,138,78,130,85:     REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 4
      CLEAR

      COPY 3,buff
      BLIT 10,0,84,134,78,130,85:    REM BLIT croc
      GOSUB 420:                     REM do a display now
      PAUSE 100 
      CLEAR


      COPY 21,5:                     REM copy last drawings from
	  COPY 22,6:                     REM fast to chip ram
	  COPY 23,7
	  COPY 24,8



      COPY 3,buff
	  BLIT 10,195,10,138,84,115,80:     REM BLIT croc
	  GOSUB 420:                        REM do display
	  PAUSE 4
	  CLEAR

	  COPY 3, buff
	  BLIT 5,0,10,269,59,170,120:       REM BLIT hippo
	  BLIT 5,268,0,268,0,52,200:        REM BLIT right curtain
	  BLIT 5,195,0,195,0,60,22:         REM BLIT top curtain
	  BLIT 10,55,190,205,152,30,10:     REM BLIT croc's shadow
	  BLIT 10,210,95,137,55,100,105:    REM BLIT croc
	  GOSUB 420:                        REM do a display now
	  PAUSE 4
	  CLEAR

	  COPY 3, buff
	  BLIT 5,0,10,220,33,170,120:       REM BLIT hippo
	  BLIT 5,268,0,268,0,52,200:        REM BLIT right curtain
	  BLIT 5,195,0,195,0,60,22:         REM BLIT top curtain
	  BLIT 10,55,190,155,152,30,10:     REM BLIT croc's shadow
	  BLIT 10,210,95,89,52,100,105:     REM BLIT croc
	  GOSUB 420:                        REM do a display now
	  PAUSE 4
	  CLEAR

	  COPY 3, buff
	  BLIT 5,0,10,179,0,170,120:        REM BLIT hippo
	  BLIT 5,268,0,268,0,52,200:        REM BLIT right curtain
	  BLIT 5,195,0,195,0,60,22:         REM BLIT top curtain
	  BLIT 10,55,190,125,152,30,10:     REM BLIT croc's shadow
	  BLIT 10,210,95,60,52,100,105:     REM BLIT croc
	  GOSUB 420:                        REM do a display now
	  PAUSE 4
	  CLEAR

	  COPY 3, buff
	  BLIT 6,0,0,120,-20,120,165:       REM BLIT hippo
	  BLIT 5,195,0,123,0,60,22:         REM BLIT top curtain
	  BLIT 5,195,0,159,0,60,22:         REM BLIT top curtain
	  BLIT 10,55,190,105,152,30,10:     REM BLIT croc's shadow
	  BLIT 10,210,95,40,56,100,105:     REM BLIT croc
	  GOSUB 420:                        REM do a display now
	  PAUSE 4
	  CLEAR

	  COPY 3, buff
	  BLIT 6, 155,10,57,-5,135,165:     REM BLIT hippo
	  BLIT 5,195,0,105,0,60,22:         REM BLIT top curtain
	  BLIT 5,195,0,123,0,60,22:         REM BLIT top curtain
	  BLIT 7,220,90,42,59,100,110:      REM BLIT shaded croc
	  GOSUB 420:                        REM do a display now
	  PAUSE 4
	  CLEAR

      COPY 3,buff
	  BLIT 7,0,55,38,29,210,136:        REM BLIT hippo
      GOSUB 420:                        REM do a display now
	  PAUSE 4
	  CLEAR

      COPY 3,buff
	  BLIT 8,0,50,39,26,165,145:        REM BLIT hippo
      GOSUB 420:                        REM do a display now
	  PAUSE 4
	  CLEAR

REM curtain down
      FOR j = 20 to 200 step 4
        i = 200 - j
        COPY 3,buff:                      REM copy background to buff
	    BLIT 8,0,50,39,26,165,145:        REM BLIT hippo
		IF j = 40
		  BLIT 8,18,18,119,36,34,16:      REM an eye blink
		ENDIF
        BLIT 4,0,i,0,0,320,j:             REM BLIT the curtain
        GOSUB 420:                        REM do a display now
        PAUSE 1
		CLEAR
      NEXT

      FADE 0,3,5:                    REM fade out on curtain
	  FREE 3
	  FREE 4
	  FREE 4
	  FREE 6
	  FREE 7
	  FREE 8
	  FREE 9
	  FREE 10
	  FREE 21
	  FREE 22
	  FREE 23
	  FREE 24

	  GOTO 1000:                     REM roll the credits


      END

420  DISPLAY buff
     buff=3-buff
     BLITDEST buff
     RETURN


     END



1000 REM the credits role

      NEW 14,16
	  NEW 15,16
	  COPY 16,14
	  MARGINS 76,246
	  CENTER 1
	  COPY 14,15
	  DISPLAY 15
	  FADE 1,14,3:            REM fade onto the credit card
	  PAUSE 100

	  MOVE 100,50
	  PEN 1,2
	  TEXT "Cast"
      MOVE 100,100
	  TEXT "The mouse"
	  MOVE 100,110
	  PEN 1,3
	  TEXT "Imma D. Bess"
	  PAUSE 250

      DISPLAY 14
	  COPY 14,15
	  PEN 1,2
	  MOVE 100,100
	  TEXT "Bubbles"
	  MOVE 100,110
	  PEN 1,3
	  TEXT "Ginger"
	  PAUSE 250

      DISPLAY 15
	  COPY 15,14
	  MOVE 100,90
	  PEN 1,2
	  TEXT "Tillie"
	  MOVE 100,100
	  TEXT "The Wonder Sheep"
	  MOVE 100,110 
	  PEN 1,3
	  TEXT "as herself"
	  PAUSE 250

	  DISPLAY 14
	  COPY 14,15
      MOVE 100,100
	  PEN 1,2
	  TEXT "The crocodile dancer"
	  MOVE 100,110
	  PEN 1,3
	  TEXT "Al Airadanceski"
	  PAUSE 250

      DISPLAY 15
	  COPY 15,14
      MOVE 100,100
	  PEN 1,2
	  TEXT "The hippo dancer"
	  MOVE 100,110
	  PEN 1,3
	  TEXT "Henrietta Leadbottom"
	  PAUSE 250

	  DISPLAY 14 
	  COPY 14,15
	  MOVE 100,90
	  PEN 1,2
	  TEXT "Images prepared using"
	  PEN 1,3
	  MOVE 100,100
	  TEXT "Digi-View"
	  MOVE 100,110
	  TEXT "Deluxe Paint II"
	  MOVE 100,120
	  TEXT "The Director"
	  PAUSE 400

	  DISPLAY 15
	  COPY 15,14
	  PAUSE 25
	  MOVE 100,90
	  PEN 1,2
	  TEXT "Animation and Cleanup"
	  MOVE 100,100
	  PEN 1,3
	  TEXT "Robert Corns"
	  PAUSE 400

	  DISPLAY 14
	  COPY 14,15
	  PAUSE 25
	  PEN 1,2
	  MOVE 100,90
	  PEN 1,2
	  TEXT "Backgrounds"
	  MOVE 100,100
	  PEN 1,3
	  TEXT "Raymond Saltel"
	  MOVE 100,110
	  TEXT "Robert Corns"
	  PAUSE 400

	  DISPLAY 15
	  COPY 15,14
	  PAUSE 25
	  PEN 1,2
	  MOVE 100,90
	  PEN 1,2
	  TEXT "Camera"
	  MOVE 100,100
	  PEN 1,3
	  TEXT "Chris Shabaga"
	  PAUSE 400

	  DISPLAY 14
	  COPY 14,15
	  PAUSE 25
	  PEN 1,2
	  MOVE 100,60
	  TEXT "This movie is"
	  MOVE 100,70
	  TEXT "freely distributable."
	  MOVE 100,80
	  TEXT "It may not be"
	  MOVE 100,90
	  TEXT "used in whole or in"
	  MOVE 100,100
      TEXT "part for commercial"
	  MOVE 100,110
	  TEXT "gain without prior"
	  MOVE 100,120
	  TEXT "consent of R. Corns."
	  PAUSE 500

	  DISPLAY 15
	  COPY 15,14
	  PAUSE 25
	  PEN 1,2
	  MOVE 100,80
	  TEXT "R. Corns"
	  MOVE 100,90
	  TEXT "3 Northumbria Bay"
	  MOVE 100,100
	  TEXT "Winnipeg, Manitoba"
	  MOVE 100,110
	  TEXT "Canada, R2J 1Y3"
	  PAUSE 800

      END