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