IF NOT single user
  THEN do ("IF name (myself) <> ""DOS HD"" THEN error stop (""Bitte der Task den Namen 'DOS HD' geben und neu starten"") FI");
FI;

archive ("austausch");
check off;
command dialogue (FALSE);
fetch ("insert.dos", archive);
fetch ("bpb ds", archive);
IF single user
  THEN do (PROC (TEXT CONST) gen s, ALL "insert.dos");
       gen s ("manager/S.dos")
  ELSE fetch (ALL "insert.dos", archive);
       fetch ("manager/M.dos", archive);
       release (archive);
       do (PROC (TEXT CONST) gen m, ALL "insert.dos");
       gen m ("manager/M.dos");
FI;
do ("hd version (TRUE)");
forget ("insert.dos", quiet);
forget ("dos hd inserter", quiet);
IF NOT single user
  THEN do ("dos manager (29)")
FI.

single user:
  (pcb (9) AND 255) = 1.

PROC gen m (TEXT CONST name):
  insert (name);
  forget (name, quiet)

END PROC gen m;

PROC gen s (TEXT CONST t):
  fetch (t, archive);
  insert (t);
  forget (t, quiet)

END PROC gen s;