program floppy_ledek;

USES Crt;

procedure turn_on_motor(drive:byte);
begin
port[$3F2] := 12 + drive + 1 SHL (4 + drive);
end;

procedure turn_off_motor(drive:byte);
begin
port[$3F2] := 12 + drive;
end;

VAR I : BYTE;

BEGIN

FOR I := 1 TO 10 DO
BEGIn
Turn_On_Motor(0);
Delay(100);
Turn_Off_Motor(0);
Delay(100);
Turn_On_Motor(1);
Delay(100);
Turn_Off_Motor(1);
Delay(100);
END;
END.