100 PRINT"[147]"
110 PRINT"  MOONLIGHT SHADOW  "
120 PRINT"  VON MIKE OLDFIELD "
130 :
140 (null):(null) 15
150 :
160 REM NOTEN UND DAUER
170 REM FUER STIMME 1 UND 2
180 :
190 DIM N1$(200),D1(200)
200 DIM N2$(200),D2(200)
201 RESTORE
210 :
220 REM DATEN FUER STIMME 1
230 I=0
240 READ N1$(I),D1(I)
250 IFD1(I)>0THENI=I+1:GOTO240
260 :
270 REM DATEN FUER STIMME 2
280 I=0
290 READ N2$(I),D2(I)
300 IFD2(I)>0THENI=I+1:GOTO290
310 :
320 :
330 PRINT"  GESCHWINDIGKEIT (1-6) ?"
340 GET A$:IF A$=""THEN340
350 SP=VAL(A$):(null)SP<1ORSP>6THEN340
360 :
370 :
380 REM HUELLKURVEN
390 (null) 1,4,8,7,10
400 (null) 2,2,11,11,11
410 :
420 S1=0:S2=0:C1=0:C2=0
430 (null) 1,N1$(S1)
440 (null) 2,N2$(S2)
450 (null) 1,3,18.75
460 (null) 2,2
470 (null) 1,ON:(null) 2,ON
480 :
490 :
500 REM STIMME 1
510 C1=C1+1:(null)C1>(D1(S1)*SP/2)THEN (null) 1,(null)
520 IFC1<(D1(S1)*SP)THEN 590
530 :
540 REM NAECHSTE NOTE
550 C1=0:S1=S1+1
551 (null) D1(S1)<0THEN (null) 1,(null):(null) 2,(null):END
555 (null) 1,ON:(null) 1,N1$(S1)
560 :
570 :
580 REM STIMME 2
590 C2=C2+1:(null)C2>(D2(S2)*SP/2)THEN (null) 2,(null)
600 (null)C2<(D2(S2)*SP)THEN 640
610 :
620 REM NAECHSTE NOTE
630 C2=0:S2=S2+1:(null) 2,ON:(null) 2,N2$(S2)
635 (null) 2,ON:(null) 2,N2$(S2)
640 GOTO510
650 :
670 :
680 REM DATEN FUER STIMME 1
690 DATA D5,3,D5,1,D5,1,E5,1,D5,1,C#5,1,H4,4,H4,4,C#5,1,C#5,1
700 DATA D5,1,E5,3,D5,1,E5,1,F#5,2,F#5,2,E5,1,A4,3
710 DATA D5,3,D5,1,D5,1,E5,1,D5,1,C#5,1,H4,4,H4,4,C#5,1,C#5,1
720 DATA D5,1,E5,3,D5,1,E5,1,F#5,2,F#5,2,E5,1,A4,3
730 DATA F#5,2,A5,2,G5,2,F#5,1,D5,1,E5,1,F#5,2,E5,5
740 DATA F#5,3,E5,1,D5,2,D5,1,H4,1,E5,1,F#5,2,E5,3,D5,1,E5,1
750 DATA F#5,2,A5,2,G5,2,F#5,1,D5,1,E5,1,C#5,1,H4,1,A4,5
760 DATA D5,3,C#5,1,H4,1,C#5,1,D5,2,E5,10
770 DATA F#5,2,E5,6,F#5,2,E5,2,D5,1,E5,1,F#5,2,A5,2,G5,2,F#5,1,D5,3,F#5,2,E5,6
780 DATA F#5,2,E5,6,F#5,2,E5,2,D5,1,E5,1,F#5,2,A5,2,G5,2,F#5,1,D5,1
790 DATA E5,1,C#5,1,H4,1,A4,3,H4,1,C#5,1
800 DATA D5,3,D5,1,D5,1,E5,1,D5,1,C#5,1,H4,4,H4,4,C#5,1,C#5,1
810 DATA D5,1,E5,3,D5,1,E5,1,F#5,2,F#5,2,E5,1,A4,3
820 DATA D5,3,D5,1,D5,1,E5,1,D5,1,C#5,1,H4,4,H4,4,C#5,1,C#5,1
830 DATA D5,1,E5,3,D5,1,E5,1,F#5,2,F#5,2,E5,1,D5,7
840 DATA0,-1
850 :
860 :
870 REM DATEN FUER STIMME 2
880 DATA D3,4,D3,4,G3,4,H3,2,D3,2,A3,4,A3,4,D3,4,A3,2,E4,1,A3,1
890 DATA D3,4,D3,4,G3,4,H3,2,D3,2,A3,4,A3,4,D3,4,A3,2,E4,1,A3,1
900 DATA D3,4,D3,4,A3,4,A3,4,H3,4,G3,4,A3,4,A3,4
910 DATA D3,4,D3,4,A3,4,A3,4,H3,4,G3,4,A3,4,A3,3
920 DATA A3,1,A3,7,A3,1,A3,8,D3,4,D3,4,A3,4,A3,3
930 DATA A3,1,A3,7,A3,1,A3,8,D3,4,D3,4,A3,4,A3,4
940 DATA D3,4,D3,4,G3,4,H3,2,D3,2,A3,4,A3,4,D3,4,A3,2,E4,1,A3,1
950 DATA D3,4,D3,4,G3,4,H3,2,D3,2,A3,4,A3,4,D3,4,D3,8
960 DATA0,-1