So hier wäre mal das
Unterprogramm, ist jetzt nur mal ein Beispiel für ein Kanal, aber wenn du die ganzen Variablen frei hast kannst es ja einfach mal ablaufen lassen oder wenn du keine 12 Stationen brauchst etwas abspecken.
O9020(WERKZEUG STANDZEIT)
IF[#100EQ#0]GOTO100
N1 #100=-101
#524=#101
#536=#113
IF[#101EQ0]GOTO2
IF[#113GE#101]THEN#3000=1(T101 AUF HD1 WECHSELN)
#113=#113+1
N2 #102=-202
#525=#103
#537=#115
IF[#103EQ0]GOTO3
IF[#115GE#103]THEN#3000=1(T202 AUF HD1 WECHSELN)
#115=#115+1
N3 #104=-303
#526=#105
#538=#117
IF[#105EQ0]GOTO4
IF[#117GE#105]THEN#3000=1(T303 AUF HD1 WECHSELN)
#117=#117+1
N4 #106=-404
#527=#107
#539=#119
IF[#107EQ0]GOTO5
IF[#119GE#107]THEN#3000=1(T404 AUF HD1 WECHSELN)
#119=#119+1
N5 #108=-505
#528=#109
#540=#121
IF[#109EQ0]GOTO6
IF[#121GE#109]THEN#3000=1(T505 AUF HD1 WECHSELN)
#121=#121+1
N6 #110=-606
#529=#111
#541=#123
IF[#111EQ0]GOTO7
IF[#123GE#111]THEN#3000=1(T606 AUF HD1 WECHSELN)
#123=#123+1
N7 #124=-707
#530=#125
#542=#137
IF[#125EQ0]GOTO8
IF[#137GE#125]THEN#3000=1(T707 AUF HD1 WECHSELN)
#137=#137+1
N8 #126=-808
#531=#127
#543=#139
IF[#127EQ0]GOTO9
IF[#139GE#127]THEN#3000=1(T808 AUF HD1 WECHSELN)
#139=#139+1
N9 #128=-909
#532=#129
#544=#141
IF[#129EQ0]GOTO10
IF[#141GE#129]THEN#3000=1(T909 AUF HD1 WECHSELN)
#141=#141+1
N10 #130=-1010
#533=#131
#545=#143
IF[#131EQ0]GOTO11
IF[#143GE#131]THEN#3000=1(T1010 AUF HD1 WECHSELN)
#143=#143+1
N11 #132=-1111
#534=#133
#546=#145
IF[#133EQ0]GOTO12
IF[#145GE#133]THEN#3000=1(T1111 AUF HD1 WECHSELN)
#145=#145+1
N12 #134=-1212
#535=#135
#547=#147
IF[#135EQ0]GOTO13
IF[#147GE#135]THEN#3000=1(T1212 AUF HD1 WECHSELN)
#147=#147+1
N13
M99
N100
#101=#524
#113=#536
#103=#525
#115=#537
#105=#526
#117=#538
#107=#527
#119=#539
#109=#528
#121=#540
#111=#529
#123=#541
#125=#530
#137=#542
#127=#531
#139=#543
#129=#532
#141=#544
#131=#533
#143=#545
#133=#534
#145=#546
#135=#535
#147=#547
GOTO1