From aa147d2f6fd3151c416a70793e00b36b63a19215 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Thu, 7 Feb 2019 09:16:14 +0100
Subject: Move AT utilities into own package

---
 system/std.zusatz/1.8.7/src/AT install | 93 ----------------------------------
 1 file changed, 93 deletions(-)
 delete mode 100644 system/std.zusatz/1.8.7/src/AT install

(limited to 'system/std.zusatz/1.8.7/src/AT install')

diff --git a/system/std.zusatz/1.8.7/src/AT install b/system/std.zusatz/1.8.7/src/AT install
deleted file mode 100644
index 11f9b55..0000000
--- a/system/std.zusatz/1.8.7/src/AT install	
+++ /dev/null
@@ -1,93 +0,0 @@
-(*************************************************************************)
-(*** 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; 
-
-- 
cgit v1.2.3