add source

projekte/soundz/arpeggio/arpeggio.pde

@@ -1,3 +1,65 @@
+// original BASICA code by JIM LEONARD 5/8/1984
+// port to arduino duemilanove by neingeist
+// with some code borrowed from Joby Taffey
+
+/*
+    10 REM ARPEGGIO BY JIM LEONARD 5/8/1984
+    15 WIDTH 80:SCREEN 0,0,0:KEY OFF
+    20 READ N1,N2,N3,D:ON ERROR GOTO 10000
+    30 FOR I = 1 TO D
+    40 SOUND N1,D*.1
+    50 SOUND N2,D*.1
+    60 SOUND N3,D*.1
+    70 NEXT
+    80 GOTO 20
+    300 DATA 261,329,130,7
+    310 DATA 329,392,130,4
+    320 DATA 329,392,130,6
+    330 DATA 329,392,123,6
+    340 DATA 261,329,110,7
+    350 DATA 329,392,110,4
+    360 DATA 493,392,110,4
+    370 DATA 523,440,110,4
+    375 DATA 440,349,110,6
+    380 DATA 293,246,146,7
+    390 DATA 329,261,146,4
+    400 DATA 349,293,146,6
+    410 DATA 293,246,146,6
+    420 DATA 246,196,99,7
+    430 DATA 261,220,99,4
+    440 DATA 293,246,99,6
+    450 DATA 246,196,99,6
+    500 DATA 261,329,130,7:REM REPEAT (ALMOST)
+    510 DATA 329,392,130,4
+    520 DATA 329,392,130,6
+    530 DATA 329,392,123,6
+    540 DATA 261,329,110,7
+    550 DATA 329,392,110,4
+    560 DATA 493,392,110,4
+    570 DATA 523,440,110,4
+    575 DATA 440,349,110,6
+    580 DATA 293,246,146,7
+    590 DATA 329,261,146,4
+    600 DATA 349,293,146,6
+    620 DATA 246,196,99,6
+    630 DATA 261,329,110,6
+    640 DATA 261,329,110,6
+    645 DATA 261,329,110,6
+    650 DATA 246,196,99,6
+    660 DATA 174,220,82,6
+    670 DATA 174,220,82,6
+    680 DATA 174,220,82,6
+    690 DATA 246,196,99,6
+    700 DATA 261,329,110,6
+    710 DATA 261,329,110,6
+    720 DATA 261,329,110,6
+    730 DATA 261,329,110,6
+    740 DATA 261,329,110,6
+    750 DATA 261,329,110,6
+    760 DATA 261,329,110,6
+    10000 LOCATE 24,1:END
+*/
+
 #include <avr/io.h>
 #include <avr/interrupt.h>
 #include <avr/delay.h>
@@ -120,65 +182,3 @@ int main(void) {
       
     }
 }
-  
-
-/*
-    10 REM ARPEGGIO BY JIM LEONARD 5/8/1984
-    15 WIDTH 80:SCREEN 0,0,0:KEY OFF
-    20 READ N1,N2,N3,D:ON ERROR GOTO 10000
-    30 FOR I = 1 TO D
-    40 SOUND N1,D*.1
-    50 SOUND N2,D*.1
-    60 SOUND N3,D*.1
-    70 NEXT
-    80 GOTO 20
-    300 DATA 261,329,130,7
-    310 DATA 329,392,130,4
-    320 DATA 329,392,130,6
-    330 DATA 329,392,123,6
-    340 DATA 261,329,110,7
-    350 DATA 329,392,110,4
-    360 DATA 493,392,110,4
-    370 DATA 523,440,110,4
-    375 DATA 440,349,110,6
-    380 DATA 293,246,146,7
-    390 DATA 329,261,146,4
-    400 DATA 349,293,146,6
-    410 DATA 293,246,146,6
-    420 DATA 246,196,99,7
-    430 DATA 261,220,99,4
-    440 DATA 293,246,99,6
-    450 DATA 246,196,99,6
-    500 DATA 261,329,130,7:REM REPEAT (ALMOST)
-    510 DATA 329,392,130,4
-    520 DATA 329,392,130,6
-    530 DATA 329,392,123,6
-    540 DATA 261,329,110,7
-    550 DATA 329,392,110,4
-    560 DATA 493,392,110,4
-    570 DATA 523,440,110,4
-    575 DATA 440,349,110,6
-    580 DATA 293,246,146,7
-    590 DATA 329,261,146,4
-    600 DATA 349,293,146,6
-    620 DATA 246,196,99,6
-    630 DATA 261,329,110,6
-    640 DATA 261,329,110,6
-    645 DATA 261,329,110,6
-    650 DATA 246,196,99,6
-    660 DATA 174,220,82,6
-    670 DATA 174,220,82,6
-    680 DATA 174,220,82,6
-    690 DATA 246,196,99,6
-    700 DATA 261,329,110,6
-    710 DATA 261,329,110,6
-    720 DATA 261,329,110,6
-    730 DATA 261,329,110,6
-    740 DATA 261,329,110,6
-    750 DATA 261,329,110,6
-    760 DATA 261,329,110,6
-    10000 LOCATE 24,1:END
-*/
-
-
-