add source
This commit is contained in:
parent
32231a55c2
commit
788264499b
1 changed files with 62 additions and 62 deletions
|
@ -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
|
||||
*/
|
||||
|
||||
|
||||
|
||||
|
|
Reference in a new issue