0  BEGIN PGM 404 MM
1  FN 18: SYSREAD Q0 = ID210 NR6
2  FN 10: IF +Q0 NE -1 GOTO LBL 1
3  FN 14: ERROR = 1006
4  LBL 1
5  FN 17: SYSWRITE ID210 NR1 = +Q307
6  END PGM 404 MM
