10REM BONFIRE by Lorin Knight 20MODE7:PRINTTAB(12,10)CHR$130;CHR$14 1;"BONFIRE":PRINTTAB(12)CHR$130;CHR$141; "BONFIRE":PRINTTAB(4,15)"Press SPACE and wait a moment-":PRINTTAB(3,17)"Your scr een will then be ablaze!":G=GET:MODE2:VD U23,1,0;0;0;0;:DIME%(17) 30FORN%=0TO15:VDU19,N%,0;0;:NEXT:FORN %=0TO17:E%(N%)=0:NEXT:*LOAD BONFscr FFFF 3000 40REPEATM%=M%-6+4*RND(2):IFM%>16 M%=1 3 50IFM%<3 M%=5 60FORN%=(M%+1)TO17:E%(N%)=0:NEXT:FORN %=(M%-1)TO2STEP-1:E%(N%)=E%(N%-1):IFRND( 5)>4 E%(1)=RND(7)ELSEE%(1)=E%(2) 70NEXT:FORN%=1TO15:VDU19,N%,E%(N%+1); 0;:NEXT:UNTILFALSE