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 <Space> to start demo!"
2 LOCATE 24,15:PRINT"<Nummernblock>=Sprite bewegen   <ESC>=Demo abbrechen"
5 ON-(INKEY$<>" ")GOTO 5:SCREEN 9:CLS:DIM A(3,25,26),B(1,319),F(199),G(199),H(199),I(2):G=307:H=161:I(0)=8:I(1)=7:I(2)=15:FOR J=0 TO 319:READ B(0,J),B(1,J):NEXT
10 LINE(3,10)-(24,14),11,BF:COLOR 3:LINE(13,1)-(6,20):LINE(14,1)-(21,20):LINE(6,20)-(21,20):PAINT(13,3):PAINT(13,14):LINE(1,7)-(2,17),3,BF:LINE(25,7)-(26,17),3,BF:COLOR 11:LINE(8,21)-(12,22),,BF:LINE(15,21)-(19,22),,BF:LINE(13,6)-(12,9)
15 LINE(14,6)-(15,9):LINE(12,9)-(15,9):PAINT(13,8):CIRCLE(10,24),1,4,,,3:CIRCLE(17,24),1,4,,,3:FOR I=0 TO 25:FOR J=0 TO 26:A(0,I,J)=POINT(I+1,J+1):NEXT J,I:CIRCLE(10,25),2,14,,,5:CIRCLE(17,25),2,14,,,5:FOR I=0 TO 25:FOR J=0 TO 26
20 A(1,I,J)=POINT(I+1,J+1):NEXT J,I:LINE(63,6)-(65,18),3,BF:LINE(83,8)-(84,16),3,BF:LINE(66,9)-(66,15):LINE(66,9)-(83,11):LINE(66,15)-(83,13):LINE(83,11)-(83,13):PAINT(67,12):COLOR 3:LINE(74,1)-(79,20):LINE(73,1)-(70,20)
25 LINE(79,20)-(70,20):PAINT(75,19):LINE(71,21)-(74,22),11,B:LINE(78,21)-(76,22),11,B:CIRCLE(77,25),2,6,,,3:CIRCLE(72,25),2,14,,,5:LINE(74,6)-(74,9),11:LINE(75,8)-(75,9),11:FOR I=0 TO 25:FOR J=0 TO 26:A(3,I,J)=POINT(62+I,J+1):NEXT J,I
30 LINE(93,8)-(94,16),,BF:LINE(112,6)-(114,18),,BF:COLOR 11:LINE(94,11)-(94,13):LINE(94,11)-(111,9):LINE(94,13)-(111,15):LINE(111,9)-(111,15):PAINT(95,12):COLOR 3:LINE(103,1)-(98,20):LINE(104,1)-(107,20):LINE(98,20)-(107,20):PAINT(103,19)
35 LINE(99,21)-(101,22),11,B:LINE(103,21)-(106,22),11,B:CIRCLE(100,25),2,6,,,3:CIRCLE(105,25),2,14,,,5:LINE(102,8)-(102,9),11:LINE(103,6)-(103,9),11:FOR I=0 TO 25:FOR J=0 TO 26:A(2,I,J)=POINT(92+I,J+1):NEXT J,I
40 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
50 SCREEN,,B,1-B:DELAY .03:B=1-B:Z=0+V:Y$=INKEY$:IF Y$="" THEN Y$=A$ ELSE IF Y$=CHR$(27) THEN CLS:END
54 IF Y$="4" AND Q<>3 AND G>-26 THEN G=G-2:Z=2 ELSE IF Y$="6" AND Q<>2 AND G<640 THEN G=G+2:Z=3 ELSE IF Y$="7" AND Q<>3 AND H>-27 AND G>-26 THEN H=H-2:G=G-2:Z=2 ELSE IF Y$="9" AND Q<>2 AND H>-27 AND G<640 THEN H=H-2:G=G+2:Z=3
56 IF Y$="3" AND Q<>2 AND H<350 AND G<640 THEN H=H+2:G=G+2:Z=3 ELSE IF Y$="1" AND Q<>3 AND H<350 AND G>-26 THEN H=H+2:G=G-2:Z=2 ELSE IF Y$="8" AND H>-27 THEN H=H-2 ELSE IF Y$="2" AND H<350 THEN H=H+2
60 A$=Y$:V=1-V:Q=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 25:O=G+I:FOR J=0 TO 26:P=H+J:IF A(Z,I,J) AND O>-1 AND O<640 AND P>-1 AND P<350 THEN PSET(O,P),A(Z,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=8 THEN PSET(F(J),G(J)),I(H(J))
70 NEXT:GOTO 50
75 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
77 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9
79 DATA 9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1
81 DATA 1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1
83 DATA 1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9
85 DATA 9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
87 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
90 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9
91 DATA 9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1
93 DATA 1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1
95 DATA 1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9
97 DATA 9,9,9,9,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9