Initial import

1 files changed, 19 insertions, 0 deletions

diff --git a/app/baisy/2.2.1-schulis/src/schulis kommandobehandlung b/app/baisy/2.2.1-schulis/src/schulis kommandobehandlung
new file mode 100644
index 0000000..51fbcac
--- /dev/null
+++ b/app/baisy/2.2.1-schulis/src/schulis kommandobehandlung
@@ -0,0 +1,19 @@
+PACKET schuliskommandobehandlungDEFINES bsstart,aktuelleskommandolesen,
+kommandoausfuehren:LET standardanfang=2,id="mb kommandobearbeitung";TEXT VAR 
+name:="",fehl:="";#TEXT VAR titel:="";#BOOL VAR fehler:=FALSE ;;TAG VAR 
+aktuellemaske;INT VAR aktuelleposition;PROC bsstart:
+frageentwicklernachkommando;aktuelleskommandolesen.END PROC bsstart;PROC 
+frageentwicklernachkommando:page;fehl:="";standardkopfmaskeausgeben(text(
+vergleichsknoten));aktuelleposition:=standardanfang;initmaske(aktuellemaske,
+id);show(aktuellemaske).END PROC frageentwicklernachkommando;PROC 
+aktuelleskommandolesen:ROW 100TEXT VAR feld;init(feld);feld(2):=name;feld(4)
+:=fehl;putget(aktuellemaske,feld,aktuelleposition);name:=feld(2);IF fehler
+THEN loeschemeldung(aktuellemaske);put(aktuellemaske,"",4)FI .END PROC 
+aktuelleskommandolesen;PROC kommandoausfuehren:disablestop;melde(
+aktuellemaske,46);store(FALSE );do(name);store(TRUE );IF iserrorTHEN 
+clearerror;meldefehler;ELSE fehler:=FALSE ;fehl:="";reorganizescreenFI ;
+return(1);enablestop.meldefehler:meldeauffaellig(aktuellemaske,45);fehl:=
+errormessage.END PROC kommandoausfuehren;PROC init(ROW 100TEXT VAR feld):INT 
+VAR i;FOR iFROM 1UPTO 100REP feld(i):=""PER END PROC init;END PACKET 
+schuliskommandobehandlung;
+