flames.bas

5 OPTION GOSUB
10 H% = 30
20 W% = 80
30 F$ = " .:^*xsS#$"
40 T% = H% * W%
50 DIM B%(T% + W% + 1)
60 FOR C% = 0 TO INT(W% / 9)
70 B%((RND(1) * W%) + W% * (H%-1)) = 65
80 NEXT C%
90 C% = 0
100 CLS
110 FOR I% = 1 TO T%
120 C% = C% + 1
130 B%(I%) = INT((B%(I%) + B%(I%+1) + B%(I%+W%) + B%(I%+W%+1)) / 4)
140 IF B%(I%) > 9 THEN PRINT "$"; ELSE PRINT MID$(F$, B%(I%)+1, 1);
150 IF C% = W% THEN C% = 0 : PRINT
160 NEXT I%
170 SLEEP 50
180 GOTO 60