110 PRINT"[147]RE-FORMATTER WRITTEN BY P.ENGELS"
120 PRINT"AENDERT 40-TRACK-FORMAT VON"
130 PRINT"SPEED-DOS <-> DOLPHIN-DOS UND VICE VISA"
140 DIMD(20),S(20)
150 :
160 REM TRACK 18 SEKTOR 00 IN BUFFER 3 EINLESEN
170 :
180 OPEN15,8,15:PRINT#15,"I0":OPEN1,8,3,"#":PRINT#15,"U1:3"0",18,0"
190 :
200 REM BUFFERPOINTER AUF 172 = HEX AC
210 :
220 PRINT#15,"B-P:3,172"
230 :
240 REM DOLPHIN-DOS BAM EINLESEN IN ARRAY D
250 :
260 FORX=1TO20:A$="":GET#1,A$:IFA$=""THENA$=CHR$(0)
270 D(X)=ASC(A$):NEXT
280 :
290 REM SPEED-DOS BAM EINLESEN IN ARRAY S
300 :
310 FORX=1TO20:A$="":GET#1,A$:IFA$=""THENA$=CHR$(0)
320 S(X)=ASC(A$):NEXT
330 :
340 REM SUM(S) UND SUM(D) BILDEN
350 :
360 FORX=1TO20:SD=SD+S(X):DD=DD+D(X):NEXT
370 :
380 IF DD<>0 OR SD<>0 THENGOTO410
390 PRINT"      DISK IST VOLL ODER MIT 35 TRACKS
400 [153]"             FORMATIERT !!":[137]760
410 [139] DD[179][177]0 [175] SD[179][177]0 [137]550
420 [139] DD[178] 0 [175] SD[179][177]0 [137]490
430 [139] DD[179][177]0 [175] SD [178]0 [167][153]"    DISK IST MIT 40 TRACK DOLPHIN-DOS"
440 [153]"             FORMATIERT !!"
450 [153]"      AUF SPEED-DOS AENDERN ? J/N
460 GETA$:IFA$=""THEN460
470 IFA$ ="J"THEN610
480 GOTO760
490 PRINT"    DISK IST MIT 40 TRACK SPEED-DOS[146]
500 [153]"             FORMATIERT !!"
510 [153]"      AUF DOLPHIN-DOS AENDERN ? J/N
520 GETA$:IFA$=""THEN520
530 IFA$ = "J"THEN680
540 GOTO760
550 PRINT"  DISK IST NICHT EINDEUTIG FORMATIERT !
560 [137]760
570 :
580 [143] ARRAY D AUF SPEED-DOS BAM BRINGEN
590 [143] DOLPHIN-BAM WIRD MIT 0 GEFUELLT
600 :
610 [152]15,"B-P:3,172"
620 [129]X[178]1[164]20:[152]1,[199](0);:[130]
630 [129]X[178]1[164]20:[152]1,[199](D(X));:[130]:[137]750
640 :
650 [143] ARRAY S AUF DOLPHIN-DOS BAM BRINGEN
660 [143] SPEED-DOS-BAM WIRD MIT 0 GEFUELLT
670 :
680 [152]15,"B-P:3,172"
690 [129]X[178]1[164]20:[152]1,[199](S(X));:[130]
700 [129]X[178]1[164]20:[152]1,[199](0);:[130]
710 :
720 [143] BUFFER 3 AUF TRACK 18 SEKTOR 00 ZURUECKSCHREIBEN
730 [143] FEHLERKANAL LESEN + PROGRAMM ENDE
740 :
750 [152]15,"U2:3"0",18,0":[152]15,"I0"
760 [160]1:[160]15
770 [159]1,8,15:[132]1,A$,B$,C,D
780 [153]"           STATUS: ";:[153]A$" ";B$;C;D:[160]1
790 [153]"         PROGRAMM IST BEENDET !!"
800 [153]"         -----------------------"