1 CLS:PRINT TAB(32)"> ANIMATION-DEMO <":LOCATE 3,26:PRINT"(C)opyright C.E.Software 2010":LOCATE 5,24:PRINT"programmiert von Carsten Engelmann":LOCATE 13,27:PRINT"Press to start demo!" 2 LOCATE 24,15:PRINT"=Sprite bewegen =Demo abbrechen" 4 ON-(INKEY$<>" ")GOTO 4:SCREEN 9:CLS:DIM A(105,86),B(1,319),F(199),G(199),H(199),I(2):G=267:H=110:I(0)=3:I(1)=11:I(2)=15:FOR J=0 TO 319:READ B(0,J),B(1,J):NEXT:COLOR 2:CIRCLE(308,142),41,,1.44,4.85:CIRCLE(308,142),27,,1.4,4.89 5 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) 6 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) 7 LINE(366,151)-(366,139):LINE(366,139)-(314,139):PAINT(315,140):COLOR 10:J=132:FOR I=270 TO 314 STEP 4:PSET(I,J):J=J-1.6:NEXT:PSET(269,135):PSET(272,133):PSET(275,132):PSET(278,131):PSET(281,130):PSET(284,129):PSET(287,127) 10 PSET(290,126):PSET(296,124):PSET(299,123):PSET(302,121):PSET(305,120):PSET(308,119):PSET(311,118):PSET(314,117):PSET(317,115):PSET(320,114):PSET(268,137):PSET(271,135):PSET(274,134):PSET(277,133):PSET(280,132):PSET(283,131) 13 PSET(286,129):PSET(304,122):PSET(307,121):PSET(310,120):PSET(313,119):PSET(316,117):PSET(319,116):PSET(269,139):PSET(273,137):PSET(277,135):PSET(281,134):PSET(313,121):PSET(317,119):PSET(321,118):PSET(281,163):PSET(285,161) 15 PSET(289,159):PSET(317,148):PSET(321,147):PSET(325,145):PSET(329,143):PSET(333,142):PSET(337,140):PSET(341,139):PSET(315,186):PSET(319,184):PSET(323,182):PSET(327,181):PSET(351,171):PSET(355,170):PSET(359,168):PSET(363,166) 17 PSET(314,189):PSET(317,187):PSET(320,186):PSET(323,185):PSET(326,184):PSET(359,171):PSET(362,169):PSET(365,168):PSET(316,190):PSET(319,188):PSET(322,187):PSET(325,186):PSET(364,170):PSET(315,193):PSET(319,191) 20 PSET(323,189):PSET(327,188):PSET(365,173):PSET(284,164):PSET(287,162):PSET(290,161):PSET(293,160):PSET(317,150):PSET(320,149):PSET(323,148):PSET(326,147):PSET(329,146):PSET(332,144):PSET(335,143):PSET(338,142):PSET(341,141) 22 PSET(344,140):PSET(286,165):PSET(289,163):PSET(292,162):PSET(295,161):PSET(316,153):PSET(319,151):PSET(322,150):PSET(325,149):PSET(331,147):PSET(334,145):PSET(337,144):PSET(340,143):PSET(343,142):PSET(346,141):PSET(349,139) 25 PSET(287,167):PSET(292,165):PSET(296,163):PSET(300,162):PSET(316,155):PSET(320,154):PSET(324,152):PSET(336,147):PSET(340,146):PSET(344,144):PSET(348,143):PSET(352,141):PSET(356,139):COLOR 8:CIRCLE(308,142),41,,1.44,4.84 27 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) 30 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) 33 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 35 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) 37 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) 40 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) 45 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:RANDOMIZE TIMER:FOR I=0 TO 199:F(I)=INT(640*RND):G(I)=INT(350*RND):H(I)=INT(3*RND):NEXT:E=213:F=426:R=1 60 SCREEN,,Z,1-Z:DELAY .03:Y$=INKEY$:IF Y$="8" AND H>-87 THEN H=H-2 ELSE IF Y$="2" AND H<349 THEN H=H+2 ELSE IF Y$="4" AND G>-106 THEN G=G-2 ELSE IF Y$="6" AND G<640 THEN G=G+2 ELSE IF Y$=CHR$(27) THEN END 61 IF Y$="7" AND H>-87 AND G>-106 THEN H=H-2:G=G-2 ELSE IF Y$="9" AND H>-87 AND G<640 THEN H=H-2:G=G+2 ELSE IF Y$="3" AND H<349 AND G<640 THEN H=H+2:G=G+2 ELSE IF Y$="1" AND H<349 AND G>-106 THEN H=H+2:G=G-2 62 Z=1-Z:E=E+R:F=F+R:IF E=193 OR E=233 THEN R=-R 64 Y=W:C=E:D=F:S=R:CLS:FOR J=0 TO 349:X=1-X:LINE(C,J)-(D,J),B(0,Y):IF X=0 THEN C=C+S:D=D+S:IF C=193 OR C=233 THEN S=-S 65 Y=Y-1:IF Y<0 THEN Y=319 66 NEXT:W=W-2:IF W<0 THEN W=319 67 FOR I=0 TO 105:O=I+G:FOR J=0 TO 86:P=J+H:IF A(I,J) AND O<640 AND O>-1 AND P<350 AND P>-1 THEN PSET(O,P),A(I,J) 68 NEXT J,I:FOR J=0 TO 199:G(J)=G(J)+H(J)+1:IF G(J)>349 THEN G(J)=0:F(J)=INT(640*RND):H(J)=INT(3*RND) 69 I=POINT(F(J),G(J)):IF I=0 OR I=3 THEN PSET(F(J),G(J)),I(H(J)) 70 NEXT:GOTO 60 75 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 77 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6 79 DATA 6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14 81 DATA 14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14 83 DATA 14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6 85 DATA 6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 87 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 89 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6 91 DATA 6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14 93 DATA 14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14 95 DATA 14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6 97 DATA 6,6,6,6,6,6,6,6,6,6,6,6,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6