IF NOT singleuserTHEN do(
"IF name (myself) <> ""DOS HD"" THEN error stop (""Bitte der Task den Namen 'DOS HD' geben und neu starten"") FI"
);FI ;archive("dos");checkoff;commanddialogue(FALSE );fetch("insert.dos",
archive);fetch("bpb ds",archive);IF singleuserTHEN do(PROC (TEXT CONST )gens,
ALL "insert.dos");gens("manager/S.dos")ELSE fetch(ALL "insert.dos",archive);
fetch("manager/M.dos",archive);release(archive);do(PROC (TEXT CONST )genm,
ALL "insert.dos");genm("manager/M.dos");FI ;do("hd version (TRUE)");forget(
"insert.dos",quiet);forget("dos hd inserter",quiet);IF NOT singleuserTHEN do(
"dos manager (29)")FI .singleuser:(pcb(9)AND 255)=1.PROC genm(TEXT CONST name
):insert(name);forget(name,quiet)END PROC genm;PROC gens(TEXT CONST t):fetch(
t,archive);insert(t);forget(t,quiet)END PROC gens;