$CONTROL USLINIT
BEGIN
  BYTE ARRAY FORMAL (0:2) := "FD ";
  BYTE ARRAY LDEV (0:3) := "002 ";
  ARRAY BUFFER (0:127);
  INTEGER I,FD;

  INTRINSIC FOPEN,FWRITEDIR,FCLOSE,PRINT'FILE'INFO;

  FOR I := 0 UNTIL 127 DO
    BUFFER (I) := I;

  FD := FOPEN (FORMAL, 0, 4, 128, LDEV);

  IF < THEN
    PRINT'FILE'INFO (FD)

  ELSE
    BEGIN
      FWRITEDIR (FD, BUFFER, 128, 0D);

      IF <> THEN
        PRINT'FILE'INFO (FD)

      ELSE
        BEGIN
          FCLOSE (FD, 0, 0);

          IF < THEN
            PRINT'FILE'INFO (FD);
        END;
    END;
END.