10 REM *********** 20 REM Pianola 30 REM By Mark Ray 40 REM *********** 50 REM NC100/200 Version 60 REM Downloaded from Tim's Amstrad NC Users' Site 70 REM http://www.ncus.org.uk 80 REM Originally from the Amstrad Notepad Users' Web 90 ON ERROR CLOSE#0:REPORT:PRINT " at ";ERL:END 100 CLS:PRINT SPC(31);"ELECTRONIC PIANOLA"'' 110 INPUT LINE "Music Document";F$:F=OPENIN(F$) 120 INPUT#F,T$:TEMPO=VAL(T$):BASE=1:ALT=0 130 REPEAT:N$=CHR$(BGET#F):N=INSTR("C-D-EF-G-A-Bc-d-ef-g-a-bT",N$) 140 PRINT N$;:IF N THEN SOUND 1,0,(N+ALT+1)*4,TEMPO 150 ALT=(N$="@")-(N$="#") 160 UNTIL EOF#F:CLOSE#F:A=GET:CHAIN"AUTO"