Back to Main page.
Back to Main tapes page.
10  DIM A$[8],B$[5],H$[16],X[2,15]
20  LINPUT H$[1,0]
30  MAT  READ X
40  DATA 2,3,1,3,1,3,1,3,1,3,1,3,1,1,2,1,2,1,4,2,8,4,16,8,32,16,64,32,12,12
50  H$="0123456789ABCDEF"
60  PRINT "               3     3  1  3  1  3  1  3  1  3  1  1  2"
70  PRINT "            2  -  1  -  -  -  -  -- -  -- -- -- -- -  -"
80  PRINT "PITCH  NOTE    2     4  2  8  4  16 8  32 16 64 32 3  3"
90  PRINT "--------------------------------------------------------"
100  IF TYP(0)=3 THEN 9998
110  READ A$,B$
120  PRINT B$[1,2]" "A$;TAB(12);
130  CONVERT B$[3] TO W
140  FOR X=1 TO 15
150  V=INT(W*(X[1,X]/X[2,X])+.5)
160  V1=INT(V/16)+1
170  V=V-16*(V1-1)+1
180  IF V1 <= 16 THEN 210
190  PRINT "   ";
200  GOTO 220
210  PRINT H$[V1,V1];H$[V,V]" ";
220  NEXT X
230  PRINT 
240  GOTO 100
250  DATA "E","0F163"
260  DATA "Eb/D#","10155"
270  DATA "D","12147"
280  DATA "Db/C#","14139"
290  DATA "C/B#","15131"
300  DATA "Cb/B","17123"
310  DATA "Bb/A#","19117"
320  DATA "A","1B110"
330  DATA "Ab/G#","1D104"
340  DATA "G","1F098"
350  DATA "Gb/F#","22093"
360  DATA "F/E#","24087"
370  DATA "E","27082"
380  DATA "Eb/D#","2A078"
390  DATA "D","2D073"
400  DATA "Db/C#","30069"
410  DATA "mid C/B#","33065"
420  DATA "Cb/B","37062"
430  DATA "Bb/A#","3B058"
440  DATA "A","3F055"
450  DATA "Ab/G#","43052"
460  DATA "G","47049"
470  DATA "REST","4C045"
9998  LINPUT H$[1,0]
9999  END