home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PROG_BAS
/
DNALIB59.ZIP
/
TYPWRITE.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-10-27
|
348b
|
19 lines
DECLARE SUB CalcByte(Attr%,LowByte%,HiByte%)
DECLARE SUB Noise(Which%)
SUB TypWrite(Text$,Row%,Col%,Attr%) PUBLIC
CalcByte Attr%,FGround%,BGround%
FOR i% = 1 TO LEN(Text$)
a$ = LEFT$(Text$,i%)
b$ = RIGHT$(a$,1)
LOCATE Row%,Col%,0
PRINT b$;
IF b$ <> " " THEN
NOISE 4
END IF
INCR Col%
DELAY .1
NEXT i%
END SUB