1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
(*************************************************************************)
(*** Insertiert alle notwendigen Pakete, damit ein AT-System generiert ***)
(*** werden kann, das die Hardwareuhr lesen und Partitionen bedienen ***)
(*** kann. Startet den "AT Generator". ***)
(*** ***)
(*** Autor : W. Sauerwein Stand : 15.07.86 ***)
(*************************************************************************)
erste bildschirmmeldung;
IF ich bin single THEN putline ("Die AT-spezifische Software ist nur auf Multi-User-Systemen benutzbar !")
ELSE hole dateien vom archiv;
insertiere alle pakete;
put line ("Running ""AT Generator""...");
run ("AT Generator")
FI;
forget ("AT install", quiet).
ich bin single : (pcb (9) AND 255) <= 1.
insertiere alle pakete :
insert and say ("AT Utilities").
erste bildschirmmeldung :
page;
put center (" Generator für AT-spezifische Software gestartet."); line;
put center ("--------------------------------------------------");
line (2).
hole dateien vom archiv :
TEXT VAR datei;
datei := "AT Utilities"; hole wenn noetig;
datei := "AT Generator"; hole wenn noetig;
release (archive);
line.
hole wenn noetig :
IF NOT exists (datei) THEN
put line ("Loading """ + datei + """...");
fetch (datei, archive)
FI.
PROC insert and say (TEXT CONST datei) :
INT VAR cx, cy;
put line ("Inserting """ + datei + """...");
get cursor (cx, cy);
insert (datei);
cl eop (cx, cy); line;
forget (datei, quiet).
END PROC insert and say;
TEXT PROC inverse (TEXT CONST t):
""15"" + t + " " + ""14""
END PROC inverse;
PROC put center (TEXT CONST t):
put center (t, 80)
END PROC put center;
PROC put center (INT CONST zeile, TEXT CONST t):
put center (zeile, t, 80)
END PROC put center;
PROC put center (TEXT CONST t, INT CONST gesamtbreite):
INT VAR cy;
get cursor (cy, cy);
put center (cy, t, gesamtbreite)
END PROC put center;
PROC put center (INT CONST zeile, TEXT CONST t, INT CONST gesamtbreite):
cursor ((gesamtbreite - length (t)) DIV 2, zeile);
put (t).
END PROC put center;
PROC cl eol:
out (""5"")
END PROC cl eol;
PROC cl eop:
out (""4"")
END PROC cl eop;
PROC cl eol (INT CONST cx, cy):
cursor (cx, cy);
cl eol
END PROC cl eol;
PROC cl eop (INT CONST cx, cy):
cursor (cx, cy);
cl eop
END PROC cl eop;
|
