Commodore 128 Handbuch Seite 213

10 FOR 1=0 TO 9
20 PLAY"T"+RIGHT$(STR$(1),1)
30 VOL9
40 TEMPO 20
50 PLAY"HEQFGGFEDCCDEHEIDHD*'
60 PLAY"HEQFGGFEDCCDEHDICHC"
70 PLAY"DQECDIEFQEC0IEFQEDCDHO3GO4"
80 PLAY"EQFGGFEDCCDEHDICHC"
90 PLAY"DQECDIE FQECDIEFQEDCDH03G04"
100 PLAY"EQFGGFEDCCDEHDICHC"
110 NEXT I
Zeile 60 unterscheidet sich von Zeile 50 nur in den
letzten 5 Zeichen. Zeile 70 ist mit Zeile 90 und Zeile 80
mit Zeile 100 identisch, wenn Sie daß bei der Eingabe
berücksichtigen, so können Sie sich Arbeit ersparen.
Starten Sie die Routine dann mit 'RUN' und genießen das
Stück.
Mit dem entsprechenden
COMMODORE 128 so durchaus zum Bühnenfähigen Synthesizer
machen.
Programm können
201
- -
Sie Ihren