system/std.graphik/1.8.7/src/gen Graphik

Raw file
Back to index

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");