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

BASIC

10 INPUT "Enter number of terms: ", n

20 LET a = 0

30 LET b = 1

40 PRINT a;

50 FOR i = 2 TO n

60 PRINT ", "; b;

70 LET temp = b

80 LET b = a + b

90 LET a = temp

100 NEXT i