home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd593 / n_flash_text.amos / n_flash_text.amosSourceCode
AMOS Source Code  |  1993-03-31  |  1KB  |  54 lines
  1. '
  2. '************************************
  3. '*                                  *
  4. '*         Flash  Text Font         *
  5. '*         ----------------         *
  6. '*                                  *
  7. '*      By Malcolm Lavey 1993       *
  8. '*                                  *
  9. '************************************
  10. '
  11. '
  12. Screen Open 0,320,256,4,Lowres
  13. Palette $0,$FFF,$F
  14. Flash Off : Cls 0
  15. Get Disc Fonts 
  16. D=15
  17. '
  18. '
  19. Do 
  20.    '
  21.    _FLASH_TEXT[10,1,"Hello everybody!",D]
  22.    _FLASH_TEXT[40,1,"another proc",D]
  23.    _FLASH_TEXT[60,1,"by malcolm lavery",D]
  24.    _FLASH_TEXT[80,1,"this time its called",D]
  25.    _FLASH_TEXT[100,1,"f l a s h   t e x t",D]
  26.    _FLASH_TEXT[120,1,"how is it done?",D]
  27.    _FLASH_TEXT[140,1,"with fade command",D]
  28.    _FLASH_TEXT[160,1,"centres any font",D]
  29.    _FLASH_TEXT[180,1,"any sized screen!",D]
  30.    _FLASH_TEXT[200,0,"By Malcolm Lavery 1993",D]
  31.    '
  32.    Wait 100
  33.    Fade 4,,,$0
  34.    Wait 60
  35.    Cls 0
  36.    Colour 2,$F
  37.    '
  38. Loop 
  39. '
  40. '
  41. Procedure _FLASH_TEXT[YPOS,TYPE,TEX$,DELAY]
  42.    '
  43.    Palette ,$FFF
  44.    Set Font TYPE
  45.    SCWIDTH=Screen Width(0)
  46.    TEXLENGTH=Text Length(TEX$)
  47.    Ink 1,0
  48.    Text SCWIDTH/2-TEXLENGTH/2,YPOS,TEX$
  49.    Fade 1,,$F
  50.    Wait DELAY
  51.    Ink 2,0
  52.    Text SCWIDTH/2-TEXLENGTH/2,YPOS,TEX$
  53.    '
  54. End Proc