L 0
T MW 223
R "STOE_PROGEING"
L "DB7_LS_BF".PROG_NR_ANZ
T #prog_nr
A "WPR_EDIT"
JC mark
L "DB7_LS_BF".PROG_NR
T #prog_nr
mark: NOP 0
L #prog_nr
JL LSTX // Programmnummer >8
JU SG0 // Programmeingabe 0
JU SG1
JU SG2
JU SG3
JU SG4
JU SG5
JU SG6
JU SG7
JU SG8
LSTX: S "STOE_PROGEING"
JU COMM
SG0: AN "WPR_EDIT"
AN "AUFKONZ"
S "STOE_PROGEING"
JU COMM
SG1: = "PROG_1"
JU COMM
SG2: = "PROG_2"
JU COMM
SG3: = "PROG_3"
JU COMM
SG4: = "PROG_4"
JU COMM
SG5: = "PROG_5"
JU COMM
SG6: = "PROG_6"
JU COMM
SG7: = "PROG_7"
JU COMM
SG8: = "PROG_8"
JU COMM
COMM: NOP 0