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