5 PRINT"[147]EINEN MOMENT ZUR VORBEREITUNG BITTE"
10 INIT
20 OBJ 12,12
30 P=3
40 DIM P0(P*4,2),P1(P*4,2),P2(P*4,2),P3(P*4,2)
50 DIM P5(P*4,2),P6(P*4,2),P7(P*4,2),P8(P*4,2)
80 Y=50
90 PSET 4,0,45-Y,0
100 PSET 9,0,80-Y,0
110 PSET 10,-10,90-Y,0
120 PSET 11,0,100-Y,0
130 PSET 12,10,90-Y,0
140 LSET 0,0,1
150 LSET 1,1,4
160 LSET 2,3,4
170 LSET 3,2,3
180 LSET 4,4,9
190 LSET 5,5,6
200 LSET 6,6,9
210 LSET 7,8,9
220 LSET 8,7,8
230 LSET 9,9,10
240 LSET 10,10,11
250 LSET 11,11,12
260 LSET 12,9,12
300 DATA -8,-10,8,15,-10,-15,10,10
310 DATA 40,60,70,60,10,30,25,20
320 DATA 15,15,-30,-15,-25,-20,30,10
330 FORI=0TO2
340 READP5(0,I),P6(0,I),P7(0,I),P8(0,I)
350 READP0(0,I),P1(0,I),P2(0,I),P3(0,I)
360 NEXT
370 DATA -10,-10,10,10,-15,-10,15,10
380 DATA 55,60,55,60,0,20,0,20
390 DATA -10,10,-10,10,0,-5,0,-5
400 T=P*3
410 FORI=0TO2
420 READP5(P,I),P6(P,I),P7(P,I),P8(P,I)
430 READP0(P,I),P1(P,I),P2(P,I),P3(P,I)
440 P5(T,I)=P5(P,I):P6(T,I)=P6(P,I)
450 P7(T,I)=P7(P,I):P8(T,I)=P8(P,I)
460 P0(T,I)=P0(P,I):P1(T,I)=P1(P,I)
470 P2(T,I)=P2(P,I):P3(T,I)=P3(P,I)
480 NEXT
490 DATA -8,-10,8,10,-15,-10,15,10
500 DATA 70,60,40,60,25,20,10,30
510 DATA -30,-15,15,15,30,10,-25,-20
520 T=2*P
530 FORI=0TO2
540 READP5(T,I),P6(T,I),P7(T,I),P8(T,I)
550 READP0(T,I),P1(T,I),P2(T,I),P3(T,I)
560 NEXT
570 FORK=0TO3
580 FORL=1TOP-1
585 J=K*P:PRINT(4-K)*(P-1)-L
590 N=J+P:IFK=3THENN=0
600 FORI=0TO2
610 P0(J+L,I)=P0(J,I)+L/P*(P0(N,I)-P0(J,I))
620 P1(J+L,I)=P1(J,I)+L/P*(P1(N,I)-P1(J,I))
630 P2(J+L,I)=P2(J,I)+L/P*(P2(N,I)-P2(J,I))
640 P3(J+L,I)=P3(J,I)+L/P*(P3(N,I)-P3(J,I))
650 P5(J+L,I)=P5(J,I)+L/P*(P5(N,I)-P5(J,I))
660 P6(J+L,I)=P6(J,I)+L/P*(P6(N,I)-P6(J,I))
670 P7(J+L,I)=P7(J,I)+L/P*(P7(N,I)-P7(J,I))
680 P8(J+L,I)=P8(J,I)+L/P*(P8(N,I)-P8(J,I))
690 NEXT I,L,K
700 MODSET 1,1,0
710 DELSET 0,0,0
720 DWSET -10,0
740 VIDEO 1,0,0
780 L=0:GOSUB840
790 DREH
800 FORL=0TOP*4-1
810 GOSUB 840
820 \:NEXT
830 GOTO800
840 PSET 0,P0(L,0),P0(L,1)-Y,P0(L,2)
850 PSET 1,P1(L,0),P1(L,1)-Y,P1(L,2)
860 PSET 2,P2(L,0),P2(L,1)-Y,P2(L,2)
870 PSET 3,P3(L,0),P3(L,1)-Y,P3(L,2)
880 PSET 5,P5(L,0),P5(L,1)-Y,P5(L,2)
890 PSET 6,P6(L,0),P6(L,1)-Y,P6(L,2)
900 PSET 7,P7(L,0),P7(L,1)-Y,P7(L,2)
910 PSET 8,P8(L,0),P8(L,1)-Y,P8(L,2)
920 RETURN