1 CLS:PRINT TAB(33)"> CANDLE-DEMO <":LOCATE 3,26:PRINT"(C)opyright C.E.Software 2010":LOCATE 5,24:PRINT"programmiert von Carsten Engelmann":LOCATE 13,27:PRINT"Press <Space> to start demo!"
2 LOCATE 24,13:PRINT"<Space>=Kerze brennt schneller ab   <ESC>=Demo abbrechen"
5 ON-(INKEY$<>" ")GOTO 5:SCREEN 9:DIM A(14,22),B(4,6),C(35),D(2900):COLOR 14:CIRCLE(7,17),7,,3.141,6.282:LINE(7,0)-(0,17):LINE(7,0)-(14,17):PAINT(7,17):COLOR 1:CIRCLE(7,20),2,,3.141,6.282:LINE(7,10)-(5,19):LINE(7,10)-(9,19):PAINT(7,20)
7 COLOR 3:CIRCLE(7,20),3,,3,6.5:LINE(7,10)-(4,19):LINE(7,10)-(10,19):LINE(7,9)-(3,19):LINE(7,9)-(11,19):FOR I=0 TO 22:FOR J=0 TO 14:A(J,I)=POINT(J,I):NEXT J,I:CLS
10 COLOR 12:CIRCLE(2,3),3,,,,1.5:PAINT(2,3):COLOR 4:PSET(3,3):PSET(3,2):PSET(2,1):FOR I=0 TO 6:FOR J=0 TO 4:B(J,I)=POINT(J,I):NEXT J,I:LINE(304,72)-(334,73),4,B:COLOR 12:LINE(304,69)-(310,69):LINE(328,69)-(334,69):LINE(303,70)-(335,71),,B
12 LINE(319,69)-(319,67),8:LINE(302,250)-(336,269),8,BF:LINE(328,250)-(332,269),7,BF:COLOR 14:LINE(285,349)-(353,349):LINE(285,349)-(300,320):LINE(353,349)-(338,320):LINE(300,320)-(338,320):PAINT(319,340)
13 FOR I=0 TO 6:LINE(304+I*5,325)-(295+I*8,345),6:NEXT:COLOR 6:CIRCLE(319,247),100,,3.4,5.95:LINE(224,270)-(414,270):PAINT(319,310):COLOR 8:CIRCLE(205,272),20:CIRCLE(205,272),13:PAINT(221,272)
14 COLOR 7:CIRCLE(205,272),18:CIRCLE(205,272),15:PAINT(221,272):COLOR 14:FOR I=0 TO 11:CIRCLE(236+I*15,278),7,,3.141,6.282:NEXT:GET(303,67)-(335,73),C:GET(185,250)-(414,349),D
15 Y=0:W=0:H=0:A=0:B=1:V=0:K=5:R=TIMER+5
20 SCREEN,,X,1-X:DELAY .03:X=1-X:A$=INKEY$:IF A$>"" THEN IF A$=CHR$(27) THEN CLS:END ELSE K=.5:R=0
22 A=A+B:IF A=0 OR A=2 THEN IF V>3 THEN B=-O:V=0 ELSE V=V+1:IF V=1 THEN O=B:B=0
25 C=A:D=B:P=O:U=V:CLS:PUT(303,67+W),C:PUT(185,250),D:LINE(304,74+W)-(334,249),4,BF:IF W=175 THEN ON-(Y=W)GOTO 65:R=TIMER+5
32 FOR I=0 TO 22:E=44+I+W:FOR J=0 TO 14:PSET(311+J+C,E),A(J,I):NEXT:C=C+D:IF C=0 OR C=2 THEN IF U>3 THEN D=-P:U=0 ELSE U=U+1:IF U=1 THEN P=D:D=0
35 NEXT:LINE(319,66+W)-(319,62+W),7:Z=0:FOR I=0 TO 6:F=64+I+Y:IF F>248 THEN Z=1
37 FOR J=0 TO 4:IF B(J,I) AND F>69+W AND F<270 THEN PSET(324+J+Z,F),B(J,I)
40 NEXT J,I:Y=Y+1:IF Y=207 THEN Y=W
45 IF TIMER>R THEN W=W+1:R=TIMER+K
50 GOTO 20
65 FOR I=0 TO 29:E=241+I-H:IF E<242 AND E>-1 THEN PSET(318+C,E),7
70 C=C+D:IF C=0 OR C=2 THEN IF U>3 THEN D=-P:U=0 ELSE U=U+1:IF U=1 THEN P=D:D=0
75 NEXT:H=H+2:IF H=276 THEN DELAY 1:GOTO 15
80 GOTO 20