home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd593 / n_flash_text_ii.amos / n_flash_text_ii.amosSourceCode
AMOS Source Code  |  1993-03-31  |  915b  |  44 lines
  1. '************************************
  2. '*                                  *
  3. '*         Flash Text Font II       *
  4. '*         ------------------       *
  5. '*                                  *
  6. '*       By Malcolm Lavey 1993      *
  7. '*                                  *
  8. '************************************
  9. '
  10. '
  11. Screen Open 0,320,256,4,Lowres
  12. Palette $0,$FFF,$F
  13. Flash Off : Cls 0
  14. Get Disc Fonts 
  15. '  
  16. '
  17. _FLASH_TEXT[70,20,1,"INSTRUCTIONS",15]
  18. '
  19. _FLASH_TEXT[10,50,0,"Welcome to my little demo  I call.....",10]
  20. '
  21. _FLASH_TEXT[20,100,1,"F L A S H   T E X T",20]
  22. '  
  23. '
  24. Procedure _FLASH_TEXT[X,Y,TYPE,TEX$,DELAY]
  25.    '
  26.    Set Font TYPE
  27.    LE=Len(TEX$)
  28.    POS=1
  29.    Repeat 
  30.       Palette ,$FFF
  31.       TE$=Mid$(TEX$,POS,1)
  32.       T=Text Length(TE$)
  33.       Ink 1,0
  34.       Text X+XPOS,Y,TE$
  35.       Fade 1,,$F
  36.       Wait DELAY
  37.       Ink 2,0
  38.       Text X+XPOS,Y,TE$
  39.       Add XPOS,T
  40.       Add POS,1
  41.    Until POS=LE+1
  42.    POS=1
  43.    '
  44. End Proc