summaryrefslogtreecommitdiff
path: root/system/at/unknown/src/AT install
blob: c02b5147004b4ab4b518cff000d2b9a237ae51a3 (plain)
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
(*************************************************************************)
(*** 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;