10 REM THIS PROGRAM LISTS TRACK SPACING FOR VARIOUS DISK TRACK DENSITIES
20 REM
21 A=40
22 B=48
23 C=77
24 D=96
25 E=100
26 F=135
27 G=144
28 H=150
29 I=154
30 J=170
31 REM ADD ADDITIONAL TRACK PER INCH NUMBERS STARTING HERE
F$=" #.### #.### #.### #.### #.## #.#### #.#### #.#### #.#### #.####       ###"
37 A$=" TRACKS PER INCH ="
38 B$="IN. PER TRACK"
40 PRINT "WHEN PRINTER IS READY, ENTER 1, OR 0 TO QUIT"
45 PRINT
50 INPUT X
60 IF X<>1 THEN 999
70 LPRINTER
70.2 PRINT "                       FLOPPY DISK SPECIFICATIONS"
70.4 PRINT
71 PRINT A;A$;1/A;TAB(45);B$
PRINT B;A$;1/B;TAB(45);B$
PRINT C;A$;1/C;TAB(45);B$
PRINT D;A$;1/D;TAB(45);B$
72 PRINT E;A$;1/E;TAB(45);B$:PRINT F;A$;1/F;TAB(45);B$
73 PRINT G;A$;1/G;TAB(45);B$:PRINT H;A$;1/H;TAB(45);B$:PRINT I;A$;1/I;TAB(45);B$
74 PRINT J;A$;1/J;TAB(45);B$
76 PRINT
77 PRINT
80 PRINT"                  NUMBER OF TRACKS PER INCH"
90 PRINT
100 PRINT TAB(2);A;TAB(8);B;TAB(14);C;TAB(20);D;TAB(26);E;\
TAB(32);F;TAB(39);G;TAB(46);H;TAB(52);I;TAB(59);J
120 REM PRINTED HEADING COLUMNS FOR NO. TRACKS/INCH
130 PRINT
135 PRINT
140 PRINT TAB(74);"TRACK"
150 PRINT TAB(8);"DISTANCE TO EACH TRACK FOR EACH DENSITY LISTED BELOW";TAB(74);"NUMBER"
160 PRINT
200 FOR P=1 TO 200  REM CALCULATE FOR 300 TRACKS FOR EACH DENSITY
210 PRINT USING F$;P/A,P/B,P/C,P/D,P/E,P/F,P/G,P/H,P/I,P/J,P
300 NEXT P
999 CONSOLE
9999 END