'===========================================================================
' Subject: SINUSOIDAL FLOWING TEXT           Date: 06-21-98 (11:25)       
' Author:  John Mair                         Code: QB, QBasic, PDS        
' Origin:  www.algonet.se/~emden/          Packet: GRAPHICS.ABC
'===========================================================================
'*************************************************************
'Author : John Mair of SipSoft  #P^b
'If you would like to use this program in one of your programs
'PLEASE give credit where due....
'*************************************************************
SCREEN 9
DIM PI AS DOUBLE
PI = 4 * ATN(1)
text$ = "Sine"
DIM TeXtMaTriX(LEN(text$) * 8, 16) AS INTEGER
PRINT text$
FOR y% = 1 TO 16
  FOR i% = 1 TO (LEN(text$) * 8)
   TeXtMaTriX(i%, y%) = POINT(i%, y%)
  NEXT i%
NEXT y%
CLS
cc% = -LEN(text$) * 8
InC% = 8
XRaDiuS% = 50
DO
 SCREEN 9, 0, 1, 0
 CLS
 IF cc% > 640 THEN cc% = -(LEN(text$) * 8)
 cc% = cc% + InC%
 FOR y% = 1 TO 16
   FOR x% = cc% TO cc% + LEN(text$) * 8
	 x2% = (SIN((x% * (PI / 180))) * (XRaDiuS%)) + 270
	 LINE (x%, (x2% + y%) - 100)-(x%, (x2% + y%) - 100), TeXtMaTriX(x% - cc%, y%), BF
   NEXT x%
 NEXT y%
 SCREEN 9, 0, 0, 0
 PCOPY 1, 0
LOOP UNTIL INKEY$ <> ""