home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Blend.AMOS / Blend.amosSourceCode
Encoding:
AMOS Source Code  |  1994-03-12  |  717 b   |  24 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *         Simple Blend V1.0         *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Screen Open 0,320,200,4,0
  9. Curs Off : Flash Off : Paper 0 : Cls 
  10. Palette 0,0,0,0
  11. Dim E$(2)
  12. Global PAGE,E$()
  13. Writing 2
  14. Repeat 
  15.   BLEND["HELLO WORLD!"] : Wait 100
  16.   BLEND["PROFESSIONAL BLEND WITH AMOS"] : Wait 100
  17.   BLEND["THIS PROCEDURE IS EASY TO USE!"] : Wait 100
  18.   BLEND["PRESS ANY KEY TO EXIT!"] : Wait 100
  19. Until Inkey$<>""
  20. Procedure BLEND[E$]
  21.   Add PAGE,1,0 To 1
  22.   Pen PAGE+1 : Centre E$(PAGE) : E$(PAGE)=E$ : Centre E$
  23.   Fade 3,0,4096+(PAGE=0),4096+(PAGE=1),$FFF
  24. End Proc