diff --git a/projekte/soundz/arpeggio/arpeggio.pde b/projekte/soundz/arpeggio/arpeggio.pde index 6c2fc64..278952b 100644 --- a/projekte/soundz/arpeggio/arpeggio.pde +++ b/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 #include #include @@ -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 -*/ - - -