TEXT VAR geraet;
page;
out ("Bitte den Namen der Hardwareanpassung (z.B. 'PC.plot') eingeben: ");
get line (geraet);
IF NOT exists (geraet)
THEN errorstop ("Endgerät nicht vorhanden") FI;
insert ("GRAPHIK.Picfile");
insert ("GRAPHIK.Transform");
insert (geraet);
insert ("GRAPHIK.Plot");