Initial import

1 files changed, 27 insertions, 0 deletions

diff --git a/app/baisy/2.2.1-schulis/src/isp.auskunftseditor b/app/baisy/2.2.1-schulis/src/isp.auskunftseditor
new file mode 100644
index 0000000..abf50d4
--- /dev/null
+++ b/app/baisy/2.2.1-schulis/src/isp.auskunftseditor
@@ -0,0 +1,27 @@
+PACKET ispauskunftseditorDEFINES auskunftstextaendernvp,
+auskunftstextaendernnp,auskunftstextspeichern:LET dateiname=
+"Auskunftstext zur Auskunft ";LET editorfenster=77,eol="�",stop="�";TEXT VAR 
+datnam;PROC auskunftstextaendernvp:datnam:=dateiname+sicherungauskunftsname;#
+FILE VAR dat:=sequentialfile(output,datnam);#store(FALSE );IF 
+sicherungauskunftstext<>""THEN auskunftindatei(datnam,sicherungauskunftstext)
+FI ;wordwrap(TRUE );page;editiere(datnam,"s",FALSE ).END PROC 
+auskunftstextaendernvp;PROC auskunftstextaendernnp:store(FALSE );
+editierewieeingestelltEND PROC auskunftstextaendernnp;PROC 
+auskunftstextspeichern(PROC (INT CONST )spezerfassungauskuenfte,BOOL CONST 
+speichern):originalsituation;IF speichernTHEN TEXT VAR t;auskunftintext(
+datnam,t);#putwert(fnrauskunftstext,t);#zwischenspeicherungdestextes(t);FI ;
+forget(datnam,quiet);return(1);angegebenedatenpruefenundevtlspeichern(
+speichern,PROC spezerfassungauskuenfte);END PROC auskunftstextspeichern;PROC 
+auskunftintext(TEXT CONST datnam,TEXT VAR auskunft):FILE VAR dat:=
+sequentialfile(input,datnam);TEXT VAR zeile;IF eof(dat)THEN close(dat);
+auskunft:=""ELSE auskunft:="";REP getline(dat,zeile);auskunft:=auskunft+
+encode(zeile);UNTIL eof(dat)PER ;FI END PROC auskunftintext;PROC 
+auskunftindatei(TEXT CONST datnam,TEXT CONST te):FILE VAR dat:=sequentialfile
+(output,datnam);TEXT VAR zeile,auskunft:=te;INT VAR bottom:=1,top:=1;INT VAR 
+l:=length(auskunft);formatierezeile;REP schreibe;formatierezeile;UNTIL (top>=
+l)CAND (zeile="")PER .formatierezeile:zeile:="";IF bottom>=lTHEN zeile:=""
+ELSE top:=min(bottom+editorfenster-1,l);zeile:=subtext(auskunft,bottom,top,
+eol,stop,FALSE );topINCR 1;bottom:=topFI .schreibe:putline(dat,zeile).END 
+PROC auskunftindatei;PROC originalsituation:reorganizescreen;store(TRUE )END 
+PROC originalsituation;END PACKET ispauskunftseditor;
+