{$U+}
PROGRAM FUNKTIONSKONTROLLEDRIVE ;
VAR    A,B            :INTEGER ;
       SEKTOR         : ARRAY [0..127] OF BYTE ;

PROCEDURE DISK ;
{ SCHREIBEN/LESEN TESTEN }
VAR      TESTFILE    : FILE OF REAL ;
         A,B,C,D     : REAL ;
         Z           : INTEGER ;
 BEGIN
 WRITELN ('Ueberpruefung Schreiben / lesen ') ;
  {$I-}
  ASSIGN (TESTFILE, 'TESTFILE.DAT');
  REWRITE (TESTFILE) ;
  WRITELN ('SCHREIBVERSUCH ') ;
  IF IORESULT <> 0 THEN
  BEGIN
   WRITELN (' DATEIEROEFFNUNGSFEHLER !') ;
   FOR Z:=0 TO 10 DO
    WRITE ( CHR (7) ) ;
   END
   ELSE  BEGIN
  FOR Z:=0 TO 1000 DO
   BEGIN
   A:=Z ;
   B:=A*A ;
   C:=A*B ;
   WRITE (TESTFILE , A ,B,C) ;
   END ;
  CLOSE (TESTFILE) ;
  IF IORESULT <> 0 THEN
   WRITELN  ('      SCHREIBFEHLER !')
  ELSE WRITELN ('      SCHREIBEN O.K. ') ;
  END;
 { LESEN }
 ASSIGN (TESTFILE, 'TESTFILE.DAT') ;
 RESET (TESTFILE) ;
 IF IORESULT <>0 THEN
  WRITELN ('      DATEIEROEFFNUNGSFEHLER beim  LESEN')
 ELSE BEGIN
 WRITELN ('LESEN DER DATEI ');
 FOR Z:=0TO 1000 DO
 BEGIN
 READ (TESTFILE, B,C,D) ;
 END ;
 IF IORESULT<>0 THEN WRITELN ('      LESEFEHLER')
 ELSE
 WRITELN ('      LESEN O.K.') ;
 {LOESCHEN DER DATEI }
 ERASE (TESTFILE) ;
 IF IORESULT<>0 THEN WRITELN ('      LOESCHFEHLER')
 ELSE WRITELN ('      LOESCHEN O.K.') ;
 END;
 END;

BEGIN
 CLRSCR ;
 GOTOXY (5,5) ;
 WRITELN (' Funktionskontrolle D004 DRIVE ') ;
 DISK ;
 WRItELN ('UEBERPRUEFUNG DER POSITIONIERUNGSSTEUERUNG') ;
 BIOS (11,ADDR(SEKTOR)) ;
 BIOS (9,79) ;
 BIOS (10,0) ;
 A:= BIOS(12) ;
 IF A=0 THEN
  WRITELN ('      SPUR 79/ SEKTOR 1 GELESEN') ELSE
  WRITELN ('FEHLER BEIM LESEN VON SPUR 79/ SEKTOR 1 !!!', CHR(7) ) ;
 BIOS (9,0) ;
 A:=BIOS (12) ;
 IF A=0 THEN
  WRITELN ('      SPUR 0 / SEKTOR 1 GELESEN') ELSE
  WRITELN ('FEHLER BEIM LESEN VON SPUR 0 / SEKTOR 1 !!!', CHR(7) ) ;
 BIOS (9,79) ;
 BIOS (10,79) ;
 A:= BIOS(12)ċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċċ', CHR(7) ) ;
 WRITELN ;
 WRITELN ;
 WRITELN ;
 WRITELN (' LAUFWERKSUEBERPRUEFUNG ABGESCHLOSSEN ') ;
END.