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;