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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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