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