BASIC and ANSI

10 REM Sexy ASCII Art Pattern

20 FOR y = 1 TO 20

30 FOR x = 1 TO 40

40 LET color = INT(RND(1) * 7) + 1

50 PRINT CHR$(27) + "[" + STR$(color) + "m";

60 PRINT CHR$(RND(1) * 93 + 33);

70 NEXT x

80 PRINT CHR$(27) + "[0m"; REM Reset color

90 PRINT

100 NEXT y