home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 1 / sauce-n-code-01.adf / ASCII_Source / TextEffect#1.asc < prev    next >
Text File  |  1995-05-05  |  804b  |  45 lines
  1. Screen Open 0,320,200,2,Lowres
  2. Curs Off 
  3. Palette $FFF,$0
  4. Ink 1
  5. A$="OKAY LADS LETS N.F.A IT!"
  6.  
  7. Do 
  8. For G=-8 To 20
  9.    Cls 
  10.    Proc SPACED[A$,G,100]
  11.    Wait 3
  12. Next G
  13. For G=20 To -8 Step -1
  14.    Cls 
  15.    Proc SPACED[A$,G,100]
  16.    Wait 3
  17. Next G
  18. Loop 
  19. Procedure SPACED[TXT$,GAP,Y]
  20.    ' cODED bY ßudda/NFA 
  21.    ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 
  22.    ' TXT$ is the string of text to pad out
  23.    ' GAP is the space in pixels inbetween each character
  24.    ' Y is the verticle co-ordinate of the text on screen
  25.    ' ** Strings are auto centred ** 
  26.    '
  27.    SPACE_WIDTH=GAP*Len(TXT$)
  28.    Y=Y+Text Base
  29.    GAP=GAP+8
  30.    PX=Text Length(TXT$)
  31.    PX=PX+SPACE_WIDTH
  32.    For LTTR=1 To Len(TXT$)
  33.       CURRENT_LETTER$=Mid$(TXT$,LTTR,1)
  34.       X=(Screen Width/2)+XPOS-PX/2
  35.       Text X,Y,CURRENT_LETTER$
  36.       Add XPOS,GAP
  37.    Next LTTR
  38. End Proc
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.