100 ' Weihnachtskerze (Ben”tigt EGA-Grafikkarte!)
110 :
120 SCREEN 9:CLS:KEY OFF
130 DIM F%(9),FL%(977)
140 FOR I%=0 TO 9:READ F%(I%):PALETTE I%,F%(I%):NEXT I%
150 FOR I%=10 TO 15
160 READ F%:PALETTE I%,F%
170 NEXT I%
180 DATA 1,32,4,36,52,38,54,62,55,63,63,39,60,36,20,42
190 LINE (290,136)-(350,282),13,BF
200 FOR I%=0 TO 2:LINE (332+I%*2,136)-(342-I%*2,282),12-I%,BF
210 NEXT I%
220 CIRCLE (320,136),30,11,,,.3
230 PAINT (320,136),11
240 FOR I%=1 TO 9
250 T%=27-3*I%:X%=320:Y%=109+I%
260 LINE (X%-T%,Y%)-(X%,Y%+T%),I%
270 LINE -(X%+T%,Y%),I%:LINE -(X%,Y%-T%),I%
280 LINE -(X%-T%,Y%),I%
290 PAINT (X%,Y%),I%
300 NEXT I%
310 CIRCLE (320,270),31,0,4!*ATN(1!),0!,.3
320 PAINT (291,281),0
330 Y%=85:IF G% THEN 540
340 G%=-1
350 GET (290,86)-(350,146),FL%
360 PUT (500,100),FL%
370 PUT (500,101),FL%
380 GET (500,100)-(561,160),FL%
390 LINE (500,100)-(561,161),0,BF
400 COLOR 10
410 PRINT "Frohe Weihnachten!"
420 FOR I%=0 TO 13
430 FOR J%=0 TO 143
440 LINE (104+3*J%,14+3*I%)-(106+3*J%,16+3*I%),POINT(J%,I%),BF
450 NEXT J%,I%
460 LOCATE 1,1
470 PRINT SPACE$(18)
480 LINE (100,265)-(450,335),14
490 FOR I%=0 TO 70:LINE (100+5*I%,265+I%)-(98+5*I%,252+I%),15
500 LINE (100+5*I%,265+I%)-(90+5*I%,275+I%),15:NEXT I%
510 LINE (200,285)-(140,225),14
520 FOR I%=0 TO 60 STEP 3:LINE (200-I%,285-I%)-(183-I%,287-I%),15
530 LINE (200-I%,285-I%)-(205-I%,272-I%),15:NEXT I%
540 T!=TIMER+53!
550 IF TIMER<T! THEN 580
560 Y%=Y%+1:PUT (290,Y%),FL%:T!=T!+53!
570 IF Y%=220 THEN 620
580 I%=CINT(INT(4!*RND))
590 FOR I%=0 TO I%-1:PALETTE I%,1:NEXT
600 FOR J%=I% TO 9:PALETTE J%,F%(J%-I%):NEXT
610 IF INKEY$="" THEN 550 ELSE END
620 LINE (290,86)-(350,282),0,BF
630 GOTO 190