summaryrefslogtreecommitdiff
path: root/system/std.graphik/1.8.7/src/gen Graphik
blob: f70cc668ec865f4be80db58cdd3de522b498e07c (plain)
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");