'
'
'    Program setup 
'
Screen Open 0,320,256,32,Lowres
Flash Off 
Double Buffer 
Hide 
Cls 0 : Rem give a black background
'       text defalts to white
'
Paper 0 : Rem Set Text background to black 
'
Print ""
Print ""
Print "    Start the videos, put on pause "
Print "    and then press the left mouse"
Print "    button to continue this program."
Print "    Start recording when the first "
Print "    screen apppears."
Print ""
Print ""
Print "    The first picture will be displayed"
Print "      until you press a mouse button"
Print "    to give you time to get organised."
Print ""
Print ""
Print "     Remember, you can also create "
Print "    animations or graphics in DPAINT"
Print "    and record them in the middle of "
Print "            your video."
Print ""
Print "    Therefore the first thing to record "
Print "      is bright from the top level "
Print "              directory"
Print ""
Print "   Use left Amiga A to get to workbench"
Print "   & back again when you have finished"
Print ""
Print "    THEN PRESS A MOUSE KEY TO CONTINUE"
'
DELAY : Rem check out the last procedure in this listing 
'
'
'  
'
'
Screen Open 0,320,1000,32,Lowres
Load Iff "wedding:pics/tomlaird"
' The MEM procedure is for checking remaining memory during de-bugging 
'MEM 
Spack 0 To 1
Cls 0
Paper 0
Locate 0,10
Centre " Screen 1 of 13 loaded and packed"
Wait 50
'MEM 
'
'
Screen Open 0,320,1000,32,Lowres
Load Iff "wedding:pics/maureen"
Spack 0 To 2
Cls 0
Paper 0
Locate 0,12
Centre " Screen 2 of 13 loaded and packed"
Wait 50
'MEM 
'
'
Screen Open 0,320,1000,32,Lowres
Load Iff "wedding:pics/starring"
'MEM 
Spack 0 To 3
Cls 0
Paper 0
Locate 0,12
Centre " Screen 3 of 13 loaded and packed"
Wait 50
'MEM 
'    
'
Screen Open 0,320,1000,32,Lowres
Load Iff "wedding:pics/people1"
'MEM 
Spack 0 To 4
Cls 0
Paper 0
Locate 0,12
Centre " Screen 4 of 13 loaded and packed"
Wait 50
'MEM 
'
'
Screen Open 0,320,1000,32,Lowres
Load Iff "wedding:pics/location"
Spack 0 To 5
Cls 0
Paper 0
Locate 0,12
Centre " Screen 5 of 13 loaded and packed"
Wait 50
'MEM 
'
Screen Open 0,320,1000,32,Lowres
Load Iff "wedding:pics/pressies"
Spack 0 To 6
Palette $0
Cls 0
Paper 0
Locate 0,12
Centre " Screen 6 of 13 loaded and packed"
Wait 50
'
'
Screen Open 0,320,1000,32,Lowres
Load Iff "wedding:pics/credits1"
Spack 0 To 7
Cls 0
Paper 0
Locate 0,12
Centre " Screen 7 of 13 loaded and packed"
Wait 50
'
Screen Open 0,320,1000,32,Lowres
Load Iff "wedding:pics/credits2"
Spack 0 To 8
Cls 0
Paper 0
Locate 0,12
Centre " Screen 8 of 13 loaded and packed"
Wait 50
'
Screen Open 0,320,1000,32,Lowres
Load Iff "wedding:pics/credits3"
Spack 0 To 9
Cls 0
Paper 0
Locate 0,12
Centre " Screen 9 of 13 loaded and packed"
Wait 50
'
Screen Open 0,320,1000,32,Lowres
Load Iff "wedding:pics/credits4"
Spack 0 To 10
Cls 0
Paper 0
Locate 0,12
Centre " Screen 10 of 13 loaded and packed"
Wait 50
'
'
Screen Open 0,320,256,32,Lowres
Load Iff "wedding:pics/weddingbell"
Spack 0 To 11
Palette $0
Cls 0
Paper 0
Locate 0,12
Centre " Screen 11 of 13 loaded and packed"
Wait 50
'
'
Screen Open 0,320,256,32,Lowres
Load Iff "wedding:pics/thankyou"
Spack 0 To 12
Cls 0
Paper 0
Locate 0,12
Centre " Screen 12 of 13 loaded and packed"
Wait 50
'
'
' As with all the pictures here, set-up can be called into 
' DPAINT 3 and the scroll buttons used to view the contents. 
'
'
Screen Open 0,320,1000,32,Lowres
Load Iff "wedding:pics/set-up"
Spack 0 To 13
Cls 0
Paper 0
Locate 0,12
Centre " Last screen finally loaded and packed"
Wait 50
'
'
'
' The following 6 lines call the first set of procedures for 
' controlloing the various displays
' The procedures can be found at the end of this listing.
'
LAIRD
'MEM 
MAUREEN
'MEM 
STARRING
'MEM 
PEOPLE1
'MEM 
LOCATION
'MEM 
PRESSIES
'
'
'  Now clear the screen and give some instructions 
'  
Cls 
Print ""
Print ""
Print ""
Print ""
Print ""
Print " NOW RECORD THE SHOWING OF THE PRESENTS "
Print ""
Print "  then press mouse button to continue"
Print ""
'
' keep this on display until a mouse button is pressed 
'
DELAY
'
'
'
Wait 200
'  
' The following 3 lines call the next 3 procedures.
' These can be found at the end of this listing
'
CREDITS1
'MEM 
CREDITS2
'MEM 
CREDITS3
'MEM 
CREDITS4
'MEM 
WEDDINGBELL
'
'
' now clear the screen and give the next set of instructions 
'
Cls 
Print ""
Print ""
Print ""
Print " NOW RECORD THE PEOPLE AT THE CHURCH "
Print ""
Print ""
Print ""
Print "    Then play and record champ from "
Print "          the top level"
Print "    and then record the reception."
Print ""
Print "   Left Amiga  / A will take you out "
Print "   to the workbench to run the anim "
Print "    & back when you have finished."
Print ""
Print ""
Print "    edit the program to disable the "
Print "   screen after next, or to show it"
Print "    after a mouse button has been "
Print "   pressed, and to change the time"
Print " for which the next one is displayed."
Print ""
Print "   Press a mouse key to continue"
'
DELAY
'
THANKYOU
'
'
'  to keep this on the screen until a mouse button is pressed
'  just comment-in the next line and comment-out the   
'  following wait command. 
' delay  
'
'
Wait 400 : Rem this determines for how long the thank-you screen is displayed 
'
'
SETUP
'
End 
'This is the end of the program
' *****************************************************************
'
' These are the procedures which have been called earlier in the 
' listing
'
' Use fold/unfold to reduce their size 
'
Procedure LAIRD
   Unpack 1 To 0
   Screen To Front 0
   DELAY
   Repeat 
      DY=DY+1
      Screen Offset 0,DX,DY
      Wait Vbl 
   Until DY=300
End Proc
'
'
Procedure MAUREEN
   Unpack 2 To 0
   Screen To Front 0
   Wait 300
   Repeat 
      DY=DY+1
      Screen Offset 0,DX,DY
      Wait Vbl 
   Until DY=400
End Proc
'
'
Procedure STARRING
   Unpack 3 To 0
   Screen To Front 0
   Wait 100
   Repeat 
      DY=DY+1
      Screen Offset 0,DX,DY
      Wait Vbl 
   Until DY=300
End Proc
'
'
Procedure PEOPLE1
   Unpack 4 To 0
   Screen To Front 0
   Wait 600
   Repeat 
      DY=DY+1
      Screen Offset 0,DX,DY
      Wait Vbl 
   Until DY=400
End Proc
'
'
Procedure LOCATION
   Unpack 5 To 0
   Screen To Front 0
   Wait 300
   Repeat 
      DY=DY+1
      Screen Offset 0,DX,DY
      Wait Vbl 
   Until DY=300
End Proc
'
'
Procedure PRESSIES
   Unpack 6 To 0
   Screen To Front 0
   DELAY
End Proc
'
'
Procedure CREDITS1
   Unpack 7 To 0
   Screen To Front 0
   Repeat 
      DY=DY+1
      Screen Offset 0,DX,DY
      Wait Vbl 
      If DY=250 Then Wait 1000
      If DY=470 Then Wait 1000
   Until DY=730
End Proc
'
'
Procedure CREDITS2
   Unpack 8 To 0
   Screen To Front 0
   Repeat 
      DY=DY+1
      Screen Offset 0,DX,DY
      Wait Vbl 
      If DY=250 Then Wait 1000
      If DY=470 Then Wait 1000
   Until DY=730
End Proc
'
Procedure CREDITS3
   Unpack 9 To 0
   Screen To Front 0
   Repeat 
      DY=DY+1
      Screen Offset 0,DX,DY
      Wait Vbl 
      If DY=250 Then Wait 1000
      If DY=470 Then Wait 1000
   Until DY=730
End Proc
'
'
Procedure CREDITS4
   Unpack 10 To 0
   Screen To Front 0
   Repeat 
      DY=DY+1
      Screen Offset 0,DX,DY
      Wait Vbl 
      If DY=250 Then Wait 1000
      If DY=470 Then Wait 1000
   Until DY=730
End Proc
'
'
'
Procedure WEDDINGBELL
   Wait 200
   Unpack 11 To 0
   Screen To Front 0
   DELAY
End Proc
'
'
Procedure THANKYOU
   Unpack 12 To 0
   Screen To Front 0
   DELAY
End Proc
'
Procedure SETUP
   Unpack 13 To 0
   Screen To Front 0
   Repeat 
      DY=DY+1
      Screen Offset 0,DX,DY
      Wait Vbl 
      If DY=1 Then Wait 200
      If DY=250 Then Wait 200
      If DY=450 Then Wait 200
   Until DY=700
End Proc
'
'
Procedure DELAY
   Repeat 
   Until Mouse Click=1 : Rem mouse is set to 1 on click &reset to 0 imediately
End Proc
'
Procedure MEM
   If Chip Free<1 Then End : Rem set this to a sensible value 
End Proc
'