DECLARE SUB CalcByte(Attr%,LowByte%,HiByte%) DECLARE SUB Noise(Which%) SUB TypWrite(Text$,Row%,Col%,Attr%) PUBLIC $CODE SEG "DNASEG2" 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