From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 lang/prolog/1.8.7/src/prolog installation | 117 ++++++++++++++++++++++++++++++
 1 file changed, 117 insertions(+)
 create mode 100644 lang/prolog/1.8.7/src/prolog installation

(limited to 'lang/prolog/1.8.7/src/prolog installation')

diff --git a/lang/prolog/1.8.7/src/prolog installation b/lang/prolog/1.8.7/src/prolog installation
new file mode 100644
index 0000000..cc674fa
--- /dev/null
+++ b/lang/prolog/1.8.7/src/prolog installation	
@@ -0,0 +1,117 @@
+(*************************************************************************)
+(*** Insertiert die für PROLOG benötigten Pakete und holt die          ***)
+(*** Beispiele vom Archiv.                                             ***)
+(***                                                                   ***)
+(*** Autor : W. Metterhausen                          Stand : 03.12.87 ***)
+(*************************************************************************)
+
+erste bildschirmmeldung;
+
+
+IF yes("Prolog insertieren?")
+
+   THEN
+        hole sourcen vom archiv;
+        insertiere alle pakete;
+        hole beispiele vom archiv;
+      forget ("prolog installation", quiet);
+   type("push(""bye""13""prolog again"");prolog(""standard"")"13""); 
+FI.
+
+
+insertiere alle pakete :
+   insert and say ("thesaurus");
+   insert and say ("prolog").
+
+erste bildschirmmeldung :
+   page;
+   put center (" Generator für Prolog gestartet."); line;
+   put center ("--------------------------------------------------");line;
+   put center (" Prolog kann nur in einer Task aufgebaut werden, ");line;
+   put center (" die nicht bereits umfangreiche insertierte Pakete ");line;
+   put center (" enthält! Gegebenenfalls sollte Prolog in ");line;
+   put center (" einer Task direkt unter ""UR"" angelegt werden. ");line;
+   line (2).
+
+hole sourcen vom archiv :
+   TEXT VAR  datei;
+   datei := "thesaurus";          hole wenn noetig;
+   datei := "prolog";             hole wenn noetig;
+   line.
+
+hole beispiele vom archiv :
+   datei := "standard";           hole wenn noetig;
+   datei := "sum";                hole wenn noetig;
+   datei := "permute";            hole wenn noetig;
+   datei := "family";             hole wenn noetig;
+   datei := "puzzle";             hole wenn noetig;
+   datei := "calc";               hole wenn noetig;
+   datei := "prieks";             hole wenn noetig;
+   datei := "topographie";        hole wenn noetig;
+   datei := "quicksort";          hole wenn noetig;
+   datei := "prolog dokumentation";
+                                  hole wenn noetig;
+   release(archive);
+   line.
+
+hole wenn noetig :
+   IF NOT exists (datei) THEN
+      put line (""""+ datei + """ wird vom Archiv geholt");
+      fetch (datei, archive)
+   FI.
+
+PROC insert and say (TEXT CONST datei) :
+
+   INT VAR cx, cy;
+   put line ("Inserting """ + datei + """...");
+   get cursor (cx, cy);
+   checkoff;
+   insert (datei);
+   checkon;
+   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