10 DATA 8,15,2,9,16,3,10,17,4,11,18,5,12,19,6,13,20,7,14,21,1,8
20 DEFSTR M
30 FOR I=1 TO 25:PRINT:NEXT I
40 PRINT"THIS PROGRAM IS FOR CONVERTING 'BADMAP' INFORMATION"
50 PRINT"THAT IS SUPPLIED BY SHUGART WITH THE SA4008 (M26),"
60 PRINT"AND BY FUJITSU, FOR THE M2301B (M10) AND M2302B (M20)"
70 PRINT"HARD DISK DRIVES.":PRINT
80 REM  "WRITTEN BY KURT SCHULTZ ON 7/17/81 FOR MORROW DESIGNS."
90 PRINT"VERSION 1.3        UPDATED 8/11/81":PRINT
100 PRINT"SELECT DRIVE TYPE:"
110 PRINT TAB(15)"A) M26"
120 PRINT TAB(15)"B) M10"
130 PRINT TAB(15)"C) M20"
140 GOTO 160
150 PRINT:PRINT"UNDECIPHERABLE INPUT, PLEASE RE-ENTER.":PRINT
160 INPUT "DRIVE TYPE";M$
170 IF NOT(M$="B" OR M="C" OR M="A") THEN 150
180 IF M$="A" THEN 320
190 DIM U(22)
200 FOR I=0 TO 21
210 READ D
220 U(I)=D
230 NEXT I
240 PRINT:INPUT"WHAT IS THE 'BYTE #'. ('<CR>' OR '0 <CR>' TO STOP)";B
250 IF B<=12000 THEN 270
260 PRINT"THAT IS TOO HIGH TO BE A 'BYTE #'; PLEASE TRY AGAIN":GOTO 240
270 IF B=0 THEN 490
280 V=INT(B/571)-1
290 IF V>0 THEN 310
300 V=V+21
310 PRINT"THE SECTOR NUMBER FOR THAT 'BYTE #' IS ";U(V):GOTO 240
320 DIM T(32)
330 FOR J=1 TO 3
340 FOR I=J TO 27+J STEP 3
350 T(I)=22+((I-J)/3)-(J-1)*10
360 NEXT I
370 NEXT J
380 T(31)=32:T(32)=1
390 PRINT:INPUT"WHAT IS THE 'BYTE COUNT'.('<CR>' OR '0 <CR>' TO STOP)";B
400 IF B<=18000 THEN 420
410 PRINT"THAT IS TOO HIGH TO BE A 'BYTE COUNT'; PLEASE TRY AGAIN":GOTO 390
420 IF B<17920 THEN 440
430 PRINT"THAT LOCATION IS IN A GAP BETWEEN SECTORS":GOTO 390
440 IF B=0 THEN 490
450 V=INT(B/560)-1
460 IF V>=1 THEN 480
470 V=V+32
480 PRINT"THE SECTOR NUMBER FOR THAT 'BYTE COUNT' IS ";T(V):GOTO 390
490 END
INT(B/560)-1
460 IF V>=1 THEN 480
470 V=V+32
480 PRINT"THE SECTOR NUMBER FOR THAT 'BYTE COUNT' IS ";T(V):GOTO 3