20 PRINT "IDE Translation Program"
30 PRINT "Chuck Santose 1 Dec 92"
40 INPUT "Cylinders"; CYL
50 INPUT "Heads"; HDS
60 INPUT "Sectors"; SEC
70 PRINT "Total sectors:"; CYL * SEC * HDS; " ("; CYL * SEC * HDS / 2048; "Megs)"
80 PRINT "Cylinders", "Heads", "Sectors"
90 TOTAL = CYL * SEC * HDS
100 FOR SECX = 17 TO 64
110 FOR CYLX = 306 TO 1024
120 HDSX = TOTAL / SECX / CYLX
130 IF HDSX > 16 THEN 160
140 IF INT(HDSX) = HDSX THEN 150 ELSE 160
150 PRINT CYLX, HDSX, SECX
160 NEXT CYLX
170 NEXT SECX
180 TOTAL = TOTAL - 1
185 PRINT "Reducing Total Sectors to:"; TOTAL; "("; TOTAL / 2048; "Megs)"
190 PRINT "Reducing Total Sectors to:"; TOTAL; "("; TOTAL / 2048; "Megs)"
200 GOTO 100