C64 Software  <  SCA: The C64 Software Collection / SOUNDUMWANDLER

10 INPUT"";A:D=A
20 INPUT"";B:PRINT""
30 DIMH(15),L(15)
40 FORI=0TO15:READY:L(I)=Y:H(I)=16*Y:NEXT
50 FORI=ATOBSTEP2:X=H(PEEK(A)/16)+L(PEEK(A+1)/16):POKED,X:D=D+1:PRINT""I:NEXT
60 PRINT""A""D−1""
70 DATA8,9,10,11,12,13,14,15,0,1,2,3,4,5,6,7
READY.
