10 REM PIANOFORTE direttamente dal manuale del Vic20
20 S2=36875
30 V=36878
40 POKE S2,0
50 FOR N=1 TO 8
60 READ A (N)
70 NEXT N
80 DATA 223,227,230
90 DATA 231,234,236
100 DATA 238,239
110 POKE V,3
120 GET A$:IF A$="" THEN 120
130 N=VAL(A$)
140 IF N=0 OR N=9 THEN 190
150 POKE S2,0
160 FOR T=1 TO 25: NEXT T
170 POKE S2,A (N)
180 GOTO 120
190 POKE S,0

Suonare il piano con i tasti da 1 a 8 con 0 o 9 si esce dal programma.