Sound: Sirene 1 (Beispiel Sourcecode)

 

10 REM * * * SIRENE 1 * * *
20 GRAPHICS 18
30 POSITlON 4, 6 : PRINT #6 ; “ * * SIRENE * * „
40 FOR I=80 TO 180
50 SOUND 0, I, 10, 10 : SETCOLOR 0, INT ( I / 10 ), 8
60 NeXT I : SETCOLOR 2, 0, 0
70 FOR I=l80 TO 80 STEP -1
80 SOUND 0, I, 10, 10 : SETCOLOR 0, INT ( I / 19 ), 8
90 NEXT I : SETCOLOR 2, 10, 10
100 GOTO 40