10DIM c(5)
19REM    --INITIALIZE VARIABLES AND ARRAYS--
20HOME
30GR
39REM    --READ FIRE COLORS INTO ARRAY C--
40FOR x=1 TO 5
50READ c(x)
60NEXT x
69REM    --DRAW BROAD AREAS OF PICTURE--
70FOR x=1 TO 14
80READ ko, a, b, c, d
90COLOR =ko
100FOR ro=a TO b
109REM    --ASK FOR, ACCEPT, AND CHECK INPUT--
110HLIN c, d AT ro
120NEXT ro, x
129REM    --DRAW DETAILS OF PICTURE--
130FOR x=1 TO 13
140READ ko, co, ro
150COLOR =ko
160PLOT co, ro
170NEXT x
179REM    --SET LOCATION AND LENGTH OF A FLAME--
180 co=RND(1)*10+15
190 ro=2*RND(1)*(5-(19-co)*(co<19)-(co-21)*(co>21))
199REM   --COLOR AND DRAW THE FLAME--
200FOR x=37 TO 37-ro STEP -1
210COLOR =c(RND(1)*5+1)
220PLOT co, x
230NEXT x
239REM   --COLOR AND DRAW CANDLE FLAMES--
240COLOR =c(RND(1)*3+1)
249REM   --COMPUTE WHAT DAY THE DATE FALLS ON (dow)--
250PLOT 10, 10
260COLOR =c(RND(1)*2+1)
270PLOT 29, 10
280GOTO 180
999REM   --FLAME COLOR DATA--
1000DATA   13,9,13,9,1
1999REM   --DRAWING DATA--
2000DATA   8,16,18,6,33,8,19,39,8,31,5,27,39,13
2010DATA   26,3,12,15,10,10,3,12,15,29,29,5,1,13
2020DATA   13,26,6,2,7,14,25,12,8,12,14,25,14,7
2030DATA   10,17,21,0,6,6,16,22,0,5,5,17,21,0,4
2040DATA   4,18,20,0,3,3,19,19,0,38,38,15,24,0
2050DATA   14,37,0,16,39,0,23,39,0,25,37,13,18,7
2060DATA   13,20,7,8,19,10,8,19,9,13,24,2,13,25
2070DATA   2,13,25,3,1,17,3,1,17,4
