blob: 4eb0737462932fad258168fd72263f527ec12e8a (
plain)
1
2
3
4
5
6
7
8
9
10
11
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;
|
