(PRIN1)(F:PRO"MTEXTH""Ver. 28.10.2000")(DEFUN C:TEXE(/ SS2 AcB_?0)(F:STOR0)(SETQ SS2(SSGET))(IF SS2(PROGN(INITGET(+ 1 2 4))(SETQ AcB_?0(GETREAL(STRCAT"\nNeue TextLange : ")))(F:TXH2 SS2 AcB_?0 0)))(F:STOR1)(PRIN1))(DEFUN F:TXH2(SS1 AcB_?0 AcB_j0 / AcB_@0 AcB_Q0 AcB_l0 AcB_&0 AcB_10 AcB_#0 AcB_00 AcB_$0 AcB_O0 AcB_|0 AcB_%0 AcB_?$ AcB_j$)(SETQ AcB_@0 0 AcB_l0(SSLENGTH SS1)AcB_10 AcB_?0)(WHILE(< AcB_@0 AcB_l0)(SETQ AcB_Q0(CDR(ASSOC 0(SETQ AcB_&0(ENTGET(SETQ AcB_#0(SSNAME SS1 AcB_@0)))))))(COND((="TEXT"AcB_Q0)(SETQ AcB_00(CDR(ASSOC 8 AcB_&0)))(SETQ AcB_$0(CDR(ASSOC 7 AcB_&0)))(SETQ AcB_O0(CDR(ASSOC 10 AcB_&0)))(SETQ AcB_|0(CDR(ASSOC 50 AcB_&0)))(SETQ AcB_%0(POLAR AcB_O0 AcB_|0 AcB_10))(SETQ AcB_?$(CDR(ASSOC 40 AcB_&0)))(SETQ AcB_j$(CDR(ASSOC 1 AcB_&0)))(SETQ AcB_@0(+ AcB_@0 1))(COMMAND"TEXT""Ein"AcB_O0 AcB_%0 AcB_?$ AcB_j$)(COMMAND"LöSCHEN"AcB_#0"")(COMMAND"ändern""L"""""""AcB_$0"""")(COMMAND"EIGändr""L""""LAY"AcB_00""))(T(PRINT"KEIN TEXT")))))(DEFUN C:LOL()(SETQ C:TEXH NIL C:TEXE NIL F:TXH1 NIL)(PRINC"\n MTEXLA geloescht")(PRIN1))(PRIN1)