Notenfolge wiedergeben (Beispiel Sourcecode)

 

10 REM * * * SPIELEN EINER NOTENFOLGE * * *
Hier können Sie die Anzahl der Töne (Werte) verändern.
20 DIM A ( 10 )
30 GRAPHlCS 0 : PRINT ” BITTE GEBEN SIE zehn ZAHLEN EIN” : ?
40 FOR I=1 TO 10 : PRINT ” ZAHL” ; I ; ” ” ; : INPUT B : A ( I ) =B : NEXT I
50 GRAPHICS 10 : POSITlON 15, 12 : ? ” ICH SPIELE”
60 FOR I=1 O 10 : SOUND 0, A ( I ), 10, 15
70 FOR J=1 TO 200 : NEXT J
80 NEXT I
90 SOUND 0, 0, 0, 0 : GOTO 30