10 REM"YuleLog -‚Mode 5 20 REM John Davis - '96. 30 *TV255,1 40 MODE7 50 VDU23,1,0;0;0;0; 60 PRINT"‡ * Y U L E L O G *" 70 PRINT'" †Save on those heating bills this †winter. Let your computer keep you †warm..." 80 PRINT" †This program is also currently †running in a shop window." 90 PRINT'CHR$(145)+STRING$(39,","); 100 PRINT" †The program runs until you Escape." 110 PRINTCHR$(145)+STRING$(39,","); 120 PRINTTAB(12)"PressƒSPACE‡to start fire." 130 G=GET 140 MODE5 150 VDU23,1,0;0;0;0; 160 GCOL0,1 170 FORN=1023TO992STEP-6 180 MOVE0,N:DRAW1279,N 190 NEXT 200 GCOL0,3 210 MOVE0,992:DRAW1279,992 220 VDU5:GCOL0,2:MOVE32,1023 230 PRINT"* MERRY CHRISTMAS *" 240 VDU4:VDU23,1,0;0;0;0; 250 GCOL0,2 260 MOVE0,6:DRAW1279,6 270 MOVE0,0:DRAW1279,0 280 GCOL0,3 290 MOVE191,992:DRAW191,0 300 MOVE1088,992:DRAW1088,0 310 GCOL0,1 320 FORN%=1TO40 330 MOVE0,RND(805)+5 340 R%=RND(90) 350 PLOT17,90+R%,90+R% 360 NEXT 370 FORN%=1TO40 380 MOVE1279,RND(805)+185 390 R%=RND(90) 400 PLOT17,-90-R%,-90-R% 410 NEXT 420 GCOL0,3 430 FORN%=910TO0STEP-82 440 MOVE0,N%:DRAW191,N% 450 MOVE1088,N%:DRAW1279,N% 460 NEXT 470 FORN%=910TO0STEP-164 480 MOVE50,N%:DRAW50,N%-82 490 MOVE1230,N%:DRAW1230,N%-82 500 NEXT 510 GCOL0,1 520 MOVE256,240:FORN%=1TO6:READA%:PLOT1,A%,-28:NEXT 530 DATA-10,-6,-1,0,2,8 540 MOVE256,246 550 FORN%=1TO12:READA%:PLOT1,64,A%:NEXT 560 DATA-22,-15,-10,-5,-2,-1,1,2,5,10,15,22 570 MOVE256,70 580 RESTORE560 590 FORN%=1TO12:READA%:PLOT1,64,A%:NEXT 600 MOVE1024,240 610 RESTORE530 620 FORN%=1TO6:READA%:PLOT1,-A%,-28:NEXT 630 FORN%=230TO90STEP-20 640 RESTORE560 650 MOVE256,N% 660 FORM%=1TO12 670 GCOL0,0+(1ANDRND(1)>.7)+(1ANDRND(1)>.8) 680 READA%:PLOT17,64,A% 690 NEXT:NEXT 700 FORR%=24TO12STEP-4:MOVE500,100-R%*2:FORN=0TO(2*PI)STEP.4:GCOL0,RND(2):PLOT17,R%*COSN,R%*SINN:NEXT:NEXT 710 GCOL0,1 720 FORN%=31TO3STEP-6 730 MOVE192,N%:DRAW1080,N% 740 NEXT 750 VDU28,3,8,16,1 760 COLOUR1 770 REM"Fire 780 REPEAT 790 GCOL0,RND(2) 800 X%=RND(600)+340 810 Z%=X%+RND(50)*SGN(RND) 820 Y%=56-56*ABS(X%-640)/310 830 X1%=X%+RND(100):X2%=X%-RND(100) 840 MOVEX%,216-Y%:MOVEX1%,246-Y% 850 PLOT85,X2%,246-Y% 860 PLOT85,Z%,440+RND(400) 870 IFRND(1)>.5X1%=X2% 880 GCOL0,0:DRAWX1%,246-Y% 890 PRINT 900 GCOL0,RND(2) 910 X%=RND(680)+300:S%=SGN(RND) 920 MOVEX%-RND(30)*S%,750:MOVEX%,850 930 PLOT85,X%+RND(20)*S%,800 940 GCOL0,0 950 Z%=Z%+RND(30)*S% 960 MOVEZ%+25,736:MOVEZ%-25,736 970 PLOT85,Z%,630-RND(350) 980 PRINTTAB(RND(12),7)"." 990 UNTIL0