$ ON ERROR THEN GOTO FEHLER
$
$ ANFANG:
$ IF P1 .EQS. "0" THEN EXIT
$ IF P1 .EQS. "1" THEN GOTO PROGRAMM
$ IF P1 .EQS. "2" THEN GOTO PROGRAMM
$ IF P1 .EQS. "3" THEN GOTO PROGRAMM
$ IF P1 .EQS. "4" THEN GOTO PROGRAMM
$ IF P1 .EQS. "5" THEN GOTO PROGRAMM
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT "#3Semantischer Speicher"
$ WRITE SYS$OUTPUT "#4Semantischer Speicher"
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT "#30) Ende"
$ WRITE SYS$OUTPUT "#40) Ende"
$ WRITE SYS$OUTPUT "#31) Teil 1: TEXT"
$ WRITE SYS$OUTPUT "#41) Teil 1: TEXT"
$ WRITE SYS$OUTPUT "#32) Teil 2: NETZ"
$ WRITE SYS$OUTPUT "#42) Teil 2: NETZ"
$ WRITE SYS$OUTPUT "#33) Teil 3: CODE"
$ WRITE SYS$OUTPUT "#43) Teil 3: CODE"
$ WRITE SYS$OUTPUT "#34) Teil 4: META"
$ WRITE SYS$OUTPUT "#44) Teil 4: META"
$ WRITE SYS$OUTPUT "#35) Teil 5: DECO"
$ WRITE SYS$OUTPUT "#45) Teil 5: DECO"
$ WRITE SYS$OUTPUT ""
$ INQUIRE /NOPUNCTATION P1 "Was soll ich machen ? [0..5] "
$ GOTO ANFANG
$
$ PROGRAMM:
$ ASSIGN /USER_MODE SYS$COMMAND: SYS$INPUT:
$ IF P1 .EQS. "1" THEN RUN W1:TEXT
$ IF P1 .EQS. "2" THEN RUN W1:NETZ
$ IF P1 .EQS. "3" THEN RUN W1:CODE
$ IF P1 .EQS. "4" THEN RUN W1:META
$ IF P1 .EQS. "5" THEN RUN W1:DECO
$ INQUIRE /NOPUNCTATION P1 "Weiter mit <RETURN> (Neue Eingabe moeglich [0..5]) "
$ GOTO ANFANG
$
$ FEHLER:
$ WRITE SYS$OUTPUT "#3Irgendwas ist schief gelaufen !"
$ WRITE SYS$OUTPUT "#4Irgendwas ist schief gelaufen !"
$ EXIT