T$="QWERTYUIOPASDFGHJKLZXCVBNMQWERTY" A$="" B$="" FOR I=0 TO 99 A$=A$+T$ NEXT I FOR I=0 TO 99 B$=B$+A$ TRACE I NEXT I S=20*16 L=LEN(B$)-S DO M$=MID$(B$,RND(L),S) PRINT M$ WAIT VBL LOOP