interne T-Nummer ausgeben

%_N_ZEIGE_WKZ_MPF
;$PATH=/_N_WKS_DIR/_N_TOOLS_WPD
   N100; ***************************************************
   N101 DEF STRING[4] _PRAE
   N102 DEF STRING[5] _POST
   N103 DEF REAL _WKZLANG, _WKZRAD
   N104 DEF INT ERROR
   N105;SONDERZEICHEN DEFINIEREN
   N106 DEF CHAR HK=34;"
   N107 DEF CHAR SKL=60;<
   N108 DEF CHAR SKR=62;>
   N109;EINIGE PARAMETER VORBELEGEN
   N110 DEF INT _MAGNUM=1;MAGAZINNUMMER
   N111 DEF INT _MAXWKZ=0
   N112 DEF INT _COUNT=0
   N113 DEF INT _TNUMM=0
   N114 DEF STRING[20] _WKZNAME="?"
   N115 DEF STRING[20] _ZEILE0="R100=2;VERWEILZEIT"
   N116 DEF STRING[80] _ZEILE1=""
   N117 DEF STRING[80] _ZEILE2=""
   N118 DEF STRING[10] _ZEILE3="STOPRE"
   N119 DEF STRING[5]  _ZEILE4="/M0"
   N120 DEF STRING[12] _ZEILE5="G4 F=R100"
   N121 DEF STRING[20] FILENAME="_N_RUNME"
   N122;DATEI IM HAUPTPROGRAMM-ORDNER ANLEGEN
   N123 DEF STRING[80] Z_DIR
   N124 Z_DIR=<<$P_PATH[0]
   N125;TEXT VOR WKZ-NUMMER ZUSAMMENSETZEN -- T="
   N126 _PRAE="T="<<HK
   N127;TEXT NACH WKZ-NUMMER ZUSAMMENSETZEN -- " M6
   N128 _POST=HK<<" M6"
  
   N129 IF ISFILE(Z_DIR<<FILENAME);VORHANDENR DATEI LOESCHEN
   N130   DELETE(ERROR,Z_DIR<<FILENAME)
   N131 ENDIF
  
   N132 WRITE(ERROR,Z_DIR<<FILENAME,_ZEILE0);ERSTE ZEILE SCHREIBEN
   N133 REPEAT _SCHREIBSTART _SCHREIBEND;FEHLERPRUEFUNG
   N134; GESAMTANZAHL DER DEFINIERTEN MAGAZINPLAETZE IM MAGAZIN *1*
   N135 _MAXWKZ=$TC_MAP7[$P_MAG[_MAGNUM]]
  
   N136;DAS MAGAZIN NACH WERKZEUGEN ABSUCHEN
   N137 FOR _COUNT=1 TO _MAXWKZ
   N138;FUER WKZ IM MAGAZIN DIE INTERNE NUMMER LESEN
   N139   _TNUMM=$TC_MPP6[_MAGNUM,_COUNT]
   N140;WENN DIE NUMMER NICHT "0", DANN DIE WKZ-DATEN LESEN
   N141   IF _TNUMM <> 0
   N142     _WKZNAME=$TC_TP2[_TNUMM]
   N143     _WKZLANG=$TC_DP3[_TNUMM,1]
   N144     _WKZRAD=$TC_DP6[_TNUMM,1]
   N145     _ZEILE1=_PRAE<<_WKZNAME<<_POST
   N146     _ZEILE2="MSG("<<SKL<<SKL<<HK<<"WERKZEUG NUM.="<<_TNUMM<<" NAME="<<_WKZNAME<<" LAENGE="<<_WKZLANG<<" RADIUS="<<_WKZRAD<<HK<<")"
   N147     WRITE(ERROR,Z_DIR<<FILENAME,_ZEILE1);WERKZEUGWECHSEL SCHREIBEN
   N148     REPEAT _SCHREIBSTART _SCHREIBEND;FEHLERPRUEFUNG
   N149     WRITE(ERROR,Z_DIR<<FILENAME,_ZEILE2);WERKZEUGDATEN ALS MAESSAGE SCHREIBEN
   N150     REPEAT _SCHREIBSTART _SCHREIBEND;FEHLERPRUEFUNG
   N151     WRITE(ERROR,Z_DIR<<FILENAME,_ZEILE3);ZEILE 3 SCHREIBEN
   N152     REPEAT _SCHREIBSTART _SCHREIBEND;FEHLERPRUEFUNG
   N153     WRITE(ERROR,Z_DIR<<FILENAME,_ZEILE4);ZEILE 4 SCHREIBEN
   N154     REPEAT _SCHREIBSTART _SCHREIBEND;FEHLERPRUEFUNG
   N155     WRITE(ERROR,Z_DIR<<FILENAME,_ZEILE5);ZEILE 5 SCHREIBEN
   N156     REPEAT _SCHREIBSTART _SCHREIBEND;FEHLERPRUEFUNG
   N157   ENDIF
   N158 ENDFOR
   N159;DAS PROGRAMMENDE SCHREIBEN
   N160 WRITE(ERROR,Z_DIR<<FILENAME,"M30")
   N161 M30
  
   N162 _SCHREIBSTART:
   N163 IF ERROR <> 0
   N164   CASE ERROR OF 1 GOTOF _EINS 2 GOTOF _ZWEI 3 GOTOF _DREI 4 GOTOF _VIER 10 GOTOF _ZEHN 11 GOTOF _ELF 12 GOTOF _ZWOELF 13 GOTOF _DREIZ 20 GOTOF _ZWANZIG
   N165   _EINS:
   N166     MSG("Pfad nicht erlaubt")
   N167     GOTOF _FERTIG
   N168   _ZWEI:
   N169     MSG("Pfad nicht gefunden")
   N170     GOTOF _FERTIG
   N171   _DREI:
   N172     MSG("Datei nicht gefunden")
   N173     GOTOF _FERTIG
   N174   _VIER:
   N175     MSG("falscher Dateityp")
   N176     GOTOF _FERTIG
   N177   _ZEHN:
   N178     MSG("Datei ist voll")
   N179     GOTOF _FERTIG
   N180   _ELF:
   N181     MSG("Datei wird benutzt")
   N182     GOTOF _FERTIG
   N183   _ZWOELF:
   N184     MSG("keine Ressourcen frei")
   N185     GOTOF _FERTIG
   N186   _DREIZ:
   N187     MSG("keine Zugriffsrechte")
   N188     GOTOF _FERTIG
   N189   _ZWANZIG:
   N190     MSG("sonstiger Fehler")
   N191     GOTOF _FERTIG
   N192   _FERTIG:
   N193   STOPRE
   N194   M0
   N195   MSG()
   N196 ENDIF
   N197 _SCHREIBEND:
   N198 M30