home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd593 / n_fade_in_iffy.amos / n_fade_in_iffy.amosSourceCode
AMOS Source Code  |  1993-03-31  |  677b  |  29 lines
  1. '
  2. '********************************
  3. '
  4. '         IFFY FADE IN 
  5. '         ------------ 
  6. '
  7. '     By Malcolm Lavery 1993 
  8. '
  9. '********************************
  10. '
  11. EMERGE[":mixed_grafix/game_layout_pic",0,4]
  12. '
  13. Procedure EMERGE[FILE$,DES,SPEED]
  14.    '
  15.    Screen Open DES,320,256,32,Lowres
  16.    Curs Off : Flash Off : Hide On : Cls 0
  17.    Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  18.    Screen Open 1,320,256,32,Lowres
  19.    Curs Off : Flash Off : Hide On : Cls 0
  20.    Load Iff ""+FILE$,1
  21.    Screen Copy 1,0,0,320,256 To DES,0,0
  22.    Screen Hide 1
  23.    Screen DES
  24.    Fade SPEED To 1
  25.    Wait 15*SPEED
  26.    Screen Close 1
  27.    Screen 0
  28.    '
  29. End Proc