BEGIN PGM INIT MM 
Q262 = ABS Q262
Q272 = ABS Q272
Q275 = ABS Q275
Q276 = ABS Q276
Q277 = ABS Q277
Q278 = ABS Q278
Q279 = ABS Q279
Q280 = ABS Q280
Q281 = ABS Q281
Q282 = ABS Q282
Q283 = ABS Q283
Q284 = ABS Q284
Q285 = ABS Q285
Q286 = ABS Q286
Q287 = ABS Q287
FN 9: IF +Q198 EQU +427 GOTO LBL 8
Q288 = ABS Q288
Q289 = ABS Q289
LBL 8
Q301 = ABS Q301
Q304 = ABS Q304
Q305 = ABS Q305
Q308 = ABS Q308
Q309 = ABS Q309
Q311 = ABS Q311
Q312 = ABS Q312
Q313 = ABS Q313
Q314 = ABS Q314
Q320 = ABS Q320
Q323 = ABS Q323
Q324 = ABS Q324
Q326 = ABS Q326
Q327 = ABS Q327
Q330 = ABS Q330
Q337 = ABS Q337
Q402 = ABS Q402
FN 11: IF +Q198 GT +419 GOTO LBL 11
FN 12: IF +Q198 LT +410 GOTO LBL 11
FN 9: IF +Q305 EQU +0 GOTO LBL 11
FN 10: IF +Q303 NE -1 GOTO LBL 11
FN 14: ERROR= 1078
LBL 11
FN 10: IF +Q109 NE -1 GOTO LBL 1
FN 14: ERROR= 1001
LBL 1
FN 18: SYSREAD Q0 = ID210 NR3
FN 9: IF +Q0 EQU +0 GOTO LBL 2
FN 14: ERROR= 1008
LBL 2
FN 18: SYSREAD Q0 = ID210 NR4 IDX1
FN 18: SYSREAD Q1 = ID210 NR4 IDX2
FN 18: SYSREAD Q2 = ID210 NR4 IDX3
Q0 = Q0 + Q1 + Q2
FN 9: IF +Q0 EQU +3 GOTO LBL 3
FN 14: ERROR= 1007
LBL 3
FN 18: SYSREAD Q0 = ID210 NR1
FN 18: SYSREAD Q1 = ID210 NR2
Q41 = Q0 + Q1
FN 17: SYSWRITE ID 212 =+3
FN 17: SYSWRITE ID 990 NR1 =+1
FN 17: SYSWRITE ID 990 NR2 =+3
FN 11: IF +Q198 GT +402 GOTO LBL 5
FN 11: IF +Q305 GT +0 GOTO LBL 252
FN 17: SYSWRITE ID 210 NR1 =+0
FN 9: IF +0 EQU +0 GOTO LBL 253
LBL 252
FN 17: SYSWRITE ID 210 NR1 =+0
FN 17: SYSWRITE ID 504 NRQ305 =+0
LBL 253
LBL 5
FN 18: SYSREAD Q3 = ID1000 NR6140
FN 18: SYSREAD Q58 = ID1000 NR6120
FN 18: SYSREAD Q59 = ID1000 NR6150
; Eilgang von 441 gesetzt
FN 18: SYSREAD QL1 = ID370 NR3
FN 10: IF +QL1 NE +1 GOTO LBL 59
; FMAX zuweisen
Q59 = -57239891
LBL 59
FN 18: SYSREAD Q2 = ID350 NR11
FN 18: SYSREAD Q0 = ID1000 NR7411
FN 10: IF +Q0 NE +0 GOTO LBL 7
FN 17: SYSWRITE ID 990 NR3 =+1
LBL 7
END PGM INIT MM 
