BEGIN PGM 441 MM 
Q396 = ABS Q396
Q397 = ABS Q397
Q399 = ABS Q399
Q400 = ABS Q400
FN 17: SYSWRITE ID 370 NR2 =+Q396
FN 17: SYSWRITE ID 370 NR3 =+Q397
FN 17: SYSWRITE ID 370 NR6 =+Q400
FN 18: SYSREAD Q1 = ID1000 NR6165
FN 10: IF +Q1 NE +1 GOTO LBL 99
FN 17: SYSWRITE ID 370 NR5 =+Q399
LBL 99
END PGM 441 MM 
