Rem ************************************ 
Rem *                                  * 
Rem * Wots its name Intro              * 
Rem *                                  * 
Rem * From Genetix Efx                 * 
Rem *                                  * 
Rem * January 1992                     * 
Rem *                                  * 
Rem ************************************ 
'
'
Hide 
F$="WIN:fonts/Win-Intro.abk" : Rem Load F$
Get Icon Palette : No Icon Mask 
Bank Swap 2,10
Bload F$+".cfnt",Font Data
Font Size 0,0
'Load "win:sound/Beginning.abk"
Screen Open 0,320,256,32,Lowres
Screen Open 1,320,256,32,Lowres
Screen 1 : Palette $0,$0,$0
Unpack 8 To 0
SOURCE=0
DEST=1
APEAR[SOURCE,DEST]
Music 1
Wait 25
Unpack 9 To 0
SOURCE=0
DEST=1
APEAR[SOURCE,DEST]
Wait 25
Unpack 11 To 0
SOURCE=0
DEST=1
APEAR[SOURCE,DEST]
Wait 25
Unpack 12 To 0
SOURCE=0
DEST=1
APEAR[SOURCE,DEST]
Wait 25
Procedure APEAR[SOURCE,DEST]
Rem Got this proc from Totally Amos  
'
   Screen To Front DEST
   Screen DEST
   Get Palette SOURCE
   For LOP=0 To 159 Step 2
      X=LOP*2
      X2=317-(X-1)
      Screen Copy SOURCE,X,0,X+2,256 To DEST,X,0
      Screen Copy SOURCE,X2,0,X2+2,256 To DEST,X2,0
 '     PAUSE[5] 
   Next LOP
   Screen SOURCE
End Proc
'
Rem start scrolly
'
SC1$="music by scampz...graphics by beaky...coding by turbo... "
SC1$=SC1$+"ideas and other help...odie.....playtesting by......"
SC1$=SC1$+"thanks to peter hickman and totally amos for the screenwipes... "
SC1$=SC1$+"this is our first attempt at amos programming. hope you "
SC1$=SC1$+"like it........loading game..."
SC1=Plen(SC1$)
CX=330
Screen 1
Locate 6,2 : Pen 31 : Paper 0 : Print "Click Mouse To Load Program"
Curs Off 
TIM=(SC1+330)/4
For I=1 To TIM
   Ctext CX,250,SC1$
   If Mouse Click=1 Then Run "Win:Wots-Its-Name"
   CX=CX-4
Next I
'
Rem run main program
'
Run "Win:Wots-its-Name"