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