Sound: Sirene (Beispiel Sourcecode)

 

10 REM * * * SIRENE 2 * * *
20 GRAPHICS 0 : ? “LANGE” ; : INPUT AA : GRAPHICS 18
30 POSITlON 4, 6 : PRINT #6 ; ” * * SIRENE* * ”
40 FOR I=l TO AA : NEXT I
50 SOUND 0, 80, 10, 10 : SETCOLOR 0, 8, 8
60 SOUND 1, 60, 10, 10 : SETCOLOR 0, 8, 8
70 SeTCOLOR 2, 0, 0
80 FOR I=l TO AA : NEXT I
90 SOUND 0, 120, 10, 10 : SETCOLOR 0, 2, 8
100 SOUND 1, 100, 10, 10 : SETCOLOR 0, 2, 8
110 SeTCOLOR 2, 10, 10
120 GOTO 40