home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / dnalib7a.zip / TYPWRITE.BAS < prev    next >
BASIC Source File  |  1994-05-14  |  371b  |  21 lines
  1. DECLARE SUB CalcByte(Attr%,LowByte%,HiByte%)
  2. DECLARE SUB Noise(Which%)
  3. SUB TypWrite(Text$,Row%,Col%,Attr%) PUBLIC
  4.  
  5. $CODE SEG "DNASEG2"
  6.  
  7. CalcByte Attr%,FGround%,BGround%
  8.  
  9. FOR i% = 1 TO LEN(Text$)
  10.   a$ = LEFT$(Text$,i%)
  11.   b$ = RIGHT$(a$,1)
  12.   LOCATE Row%,Col%,0
  13.   PRINT b$;
  14.   IF b$ <> " " THEN
  15.     NOISE 4
  16.   END IF
  17.   INCR Col%
  18.   DELAY .1
  19. NEXT i%
  20.  
  21. END SUB