1 CLS:PRINT TAB(33)"> KALEIDOSKOP <":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 24,31:PRINT"<ESC>=Demo abbrechen"
5 ON-(INKEY$<>" ")GOTO 5:SCREEN 7:DIM E(11):E(0)=14:E(1)=10:E(2)=2:E(3)=3:E(4)=11:E(5)=9:E(6)=1:E(7)=5:E(8)=13:E(9)=12:E(10)=4:E(11)=6:D=INT(RND*11)+1:C=1:E=1:RANDOMIZE TIMER
10 IF INKEY$=CHR$(27) THEN END
11 A=A+E:IF A<0 OR A=80 THEN A=INT(RND*80):GOSUB 35
12 B=B+E:IF B<0 OR B=50 THEN B=INT(RND*50):GOSUB 35
15 F=79-A:G=A+80:H=239-A:I=240+A:J=49-B:K=B+50:L=149-B:M=150+B:D=D+C:IF D<0 THEN D=11 ELSE IF D=12 THEN D=0
17 COLOR E(D):PSET(F,J):PSET(G,J):PSET(H,J):PSET(I,J):PSET(F,K):PSET(G,K):PSET(H,K):PSET(I,K):PSET(F,L):PSET(G,L):PSET(H,L):PSET(I,L):PSET(F,M):PSET(G,M):PSET(H,M):PSET(I,M):GOTO 10
35 E=INT(RND*2):IF E=0 THEN E=-1
40 C=INT(RND*2):IF C=0 THEN C=-1
45 RETURN