100 PRINT:PRINT "Hubschrauber"
110 SOUND 0,111 120 SOUND 1,0 130 SOUND 6,30 140 SOUND 8,16 150 SOUND 11,44 160 SOUND 12,1 170 SOUND 13,14 180 SOUND 7,9 190 PRINT:PRINT "Abbruch mit beliebiger Taste" 200 IF LEN(INKEY$)=0 THEN 200 210 SOUND 7,0 220 END |
10 PRINT:PRINT "Explosion"
20 SOUND 5,20 30 SOUND 11,0 40 SOUND 12,31 50 SOUND 13,0 60 SOUND 9,16 70 SOUND 7,16 80 END |
100 PRINT:PRINT "Meeresrauschen"
110 SOUND 6,20 120 SOUND 8,0 130 SOUND 9,16 140 SOUND 10,8 150 SOUND 11,0 160 SOUND 12,50 170 SOUND 13,14 180 SOUND 7,48 190 PRINT:PRINT "Abbruch mit beliebiger Taste" 200 IF LEN(INKEY$)=0 THEN 200 210 SOUND 7,0 220 END |
100 PRINT:PRINT "Schranke"
110 SOUND 2,200 120 SOUND 3,1 130 SOUND 9,16 140 SOUND 11,0 150 SOUND 12,40 160 SOUND 13,8 170 SOUND 7,2 180 PRINT:PRINT "Abbruch mit beliebiger Taste" 190 IF LEN(INKEY$)=0 THEN 190 200 SOUND 7,0 210 END |
© 2011-2023 Jens Müller