CLS:PRINT TAB(35)"> CE-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!"
LOCATE 23,32:PRINT"<B>=Bewegen an/aus":LOCATE 24,4:PRINT"<SPACE>=Farben „ndern   <Z>=Gr”áe/Aufl”sung „ndern   <ESC>=Demo abbrechen"
WARTE:
ON-(INKEY$<>" ")GOTO WARTE:SCREEN 9:DIM A(105,86),B(14):G=267:H=110:E=1:F=1:K=535:L=264:COLOR 2:CIRCLE(308,142),41,,1.44,4.85:CIRCLE(308,142),27,,1.4,4.89
LINE(314,113)-(322,113):LINE(314,122)-(322,125):LINE(322,113)-(322,125):LINE(314,139)-(314,162):LINE(314,171)-(314,195):LINE(314,195)-(366,195):LINE(366,195)-(366,183):LINE(366,183)-(358,187):LINE(358,187)-(327,187)
LINE(327,187)-(327,171):LINE(327,171)-(358,171):LINE(358,171)-(366,173):LINE(366,173)-(366,161):LINE(366,161)-(358,163):LINE(358,163)-(327,163):LINE(327,163)-(327,147):LINE(327,147)-(358,147):LINE(358,147)-(366,151)
LINE(366,151)-(366,139):LINE(366,139)-(314,139):PAINT(315,140):COLOR 8:CIRCLE(308,142),41,,1.44,4.84:CIRCLE(308,142),27,,1.4,4.89
LINE(314,112)-(323,112):LINE(314,123)-(323,126):LINE(323,112)-(323,126):LINE(313,138)-(313,161):LINE(313,172)-(313,196):LINE(313,196)-(367,196):LINE(367,196)-(367,182):LINE(367,182)-(358,186):LINE(358,186)-(328,186)
LINE(328,186)-(328,172):LINE(328,172)-(358,172):LINE(358,172)-(367,174):LINE(367,174)-(367,160):LINE(367,160)-(358,162):LINE(358,162)-(328,162):LINE(328,162)-(328,148):LINE(328,148)-(358,148):LINE(358,148)-(367,152)
LINE(367,152)-(367,138):LINE(367,138)-(313,138):LINE(323,126)-(328,124):LINE(328,124)-(328,110):LINE(328,110)-(323,112):CIRCLE(311,142),44,,1.43,3.03:LINE(318,110)-(328,110):CIRCLE(308,144),22,,3.14,4.9:CIRCLE(355,144),70,,2.85,3.12
LINE(313,138)-(318,136):LINE(318,136)-(372,136):LINE(372,136)-(372,150):LINE(372,150)-(367,152):LINE(367,138)-(372,136):LINE(333,148)-(333,160):LINE(333,160)-(367,160):LINE(367,160)-(372,158):LINE(372,158)-(372,172)
LINE(372,172)-(367,174):LINE(333,172)-(333,184):LINE(333,184)-(361,184):LINE(367,182)-(372,180):LINE(372,180)-(372,194):LINE(372,194)-(367,196):PAINT(300,112):PAINT(322,111):PAINT(324,113):PAINT(312,161):PAINT(366,137):PAINT(368,139)
PAINT(329,161):PAINT(368,161):PAINT(329,185):PAINT(368,183):LINE(291,114)-(294,113):PSET(287,130):COLOR 7:LINE(328,162)-(333,160):LINE(328,186)-(333,184):LINE(323,112)-(328,110):LINE(367,138)-(372,136):PSET(367,160):PSET(367,182)
FOR I=0 TO 105:FOR J=0 TO 86:A(I,J)=POINT(I+G,J+H):NEXT J,I
FARBEN:
FOR I=0 TO 14:READ B(I):NEXT:C=C+1:IF C=8 THEN RESTORE:C=0
SCHLEIFE:
SCREEN 9-2*D,,X,1-X:X=1-X:DELAY .055:Y$=INKEY$:IF Y$="b" THEN W=1-W
Z=Z-1:IF Z<0 THEN Z=14
Y=Z:CLS:FOR J=0 TO 86:FOR I=0 TO 105:IF A(I,J)=2 THEN PSET(I+G,J+H),B(Y) ELSE PSET(I+G,J+H),A(I,J)
NEXT:Y=Y+1:IF Y=15 THEN Y=0
NEXT:G=G+W*E:IF G=0 OR G=K THEN E=-E
H=H+W*F:IF H=0 OR H=L THEN F=-F
ON-(Y$=" ")GOTO FARBEN:IF Y$="z" THEN D=1-D:K=535-D*320:L=264-D*150:G=267-D*159:H=110-D*53
ON-(Y$<>CHR$(27))GOTO SCHLEIFE:CLS
DATA 15,14,14,10,10,10,2,2,2,2,10,10,10,14,14,15,14,14,12,12,12,4,4,4,4,12,12,12,14,14,2,10,10,14,14,14,15,15,15,15,14,14,14,10,10,4,12,12,14,14,14,15,15,15,15,14,14,14,12,12
DATA 15,14,14,11,11,11,3,3,3,3,11,11,11,14,14,15,14,14,13,13,13,5,5,5,5,13,13,13,14,14,15,14,14,9,9,9,1,1,1,1,9,9,9,14,14,1,1,3,3,2,2,14,15,14,10,10,11,11,9,9