danke
aber irgenwie funtzt das nicht
ein TP wird kopiert, umbenannt und dann gestartet aber die alte nicht gelöscht
A_3 kopieren in A_3_1 ( funktioniert)
A_3 löschen ( funktioinier nicht)
PROGRAM TP_COPY
------------------------------------------------------------------------
------------------------------------------------------------------------
VAR
prog_name : STRING[12] -- The program name to save
STATUS : INTEGER -- The status returned from the built-in calls
prog_index : INTEGER
-----------------------------------------------------------------------
BEGIN
------------------------------------------------------------------------
prog_name='A_3'
COPY_TPE(prog_name,prog_name +'_1',TRUE, STATUS)
FORCE_SPMENU(TP_PANEL,SPI_TPUSER,1) -- USER Anzeige an TECHPAD nach vorne
WRITE TPDISPLAY (CHR(128),CHR(137)) -- USER Anzeige an TECHPAD leeren
WRITE TPDISPLAY (prog_name + '_1 wird geladen',CR)
CALL_PROG(prog_name + '_1', prog_index) -- Programm aufrufen und starten
-- Im PROG muss am Anfang eine PAUSE
-- sonst startet es automatisch
DELETE_FILE(prog_name, FALSE,STATUS)
END TP_COPY