summaryrefslogtreecommitdiff
path: root/app/baisy/2.2.1-schulis/src/dump
diff options
context:
space:
mode:
Diffstat (limited to 'app/baisy/2.2.1-schulis/src/dump')
-rw-r--r--app/baisy/2.2.1-schulis/src/dump12
1 files changed, 12 insertions, 0 deletions
diff --git a/app/baisy/2.2.1-schulis/src/dump b/app/baisy/2.2.1-schulis/src/dump
new file mode 100644
index 0000000..4eb0737
--- /dev/null
+++ b/app/baisy/2.2.1-schulis/src/dump
@@ -0,0 +1,12 @@
+PACKET dumpDEFINES dump:TEXT VAR ergebnis:="";PROC dump(TEXT CONST kommentar,
+dumptext):ergebnis:=kommentar;ergebnisCAT ": ";INT VAR i;FOR iFROM 1UPTO
+LENGTH dumptextREP zeichenschreibenPER ;ergebnisschreiben.zeichenschreiben:
+INT CONST charcode:=code(dumptextSUB i);IF charcode<32THEN ergebnisCAT ("$"+
+text(charcode)+"$")ELSE ergebnisCAT code(charcode)FI .END PROC dump;PROC dump
+(TEXT CONST kommentar,INT CONST dumpint):ergebnis:=kommentar;ergebnisCAT ": "
+;ergebnisCAT text(dumpint);ergebnisschreiben.END PROC dump;PROC dump(TEXT
+CONST kommentar,REAL CONST dumpreal):ergebnis:=kommentar;ergebnisCAT ": ";
+ergebnisCAT text(dumpreal);ergebnisschreiben.END PROC dump;PROC
+ergebnisschreiben:FILE VAR f:=sequentialfile(output,"logbuch");putline(f,
+ergebnis);ergebnis:="".END PROC ergebnisschreiben;END PACKET dump;
+