Mmn, N

10 MOV P1

20 HOPEN 1

30 WAIT M_IN(1)=1

40 M_OUT(8)=1

45 M_OUT(9)=1

50 MOV P2, -40

60 MVS P2, +1.5

70 DLY 1

80 HCLOSE 1

90 DLY 1

100 MOV P2,-40

110 MOV P3, -40

120 MVS P3

130 DLY 1

140 HOPEN 1

150 DLY 1

160 MOV P3, -40

170 MOV P4, -40

180 MVS P4

190 DLY 1.5

200 IF M_IN(1)=1 THENGOTO *UNO ELSE GOTO *DOS

210 '---------

220 *UNO

230 MOV P4, -40

240 MOV P10, -50

250 MVS P12, -50

260 MVS P12

270 DLY 1

280 HCLOSE 1

290 DLY1

300 MVS P12, -50

310 MVS P10, -50

320 MOV P11, -40

330 MVS P11, -10

340 DLY 1

350 HOPEN 1

360 DLY 1

370 MVS P11, -50

380 MOV P10, -50

390DLY 1.5

400 M_OUT(8)=0

410 MVS P10

420 DLY 1

430 HCLOSE 1

440 DLY 1

450 MVS P10, -50

460 M_OUT(8)=1

470 MVS P11, -50

480 MVS P11

490 DLY 1500 HOPEN 1

510 DLY 1

520 MVS P11, -40

530 MOV P1

540 MOV P7, -10

550 MVS P13, -50

560 DLY 1.5

570 M_OUT(9)=0

580 MVS P13

590 DLY 1

600HCLOSE 1

610 DLY 1

615 MVS P13, -50

620 MVS P10, -50

630 M_OUT(9)=1

640 MVS P11, -50

650 MVS P11, -10

660 HOPEN 1

670 MVS P11, -40

680 MOV P3,-40

690 MVS P3

700 DLY 1

710 HCLOSE 1

720 DLY 1

730 MOV P3, -40

740 MOV P1

750 MOV P7, -10

760 MOV P5, -10

770 MVS P5

780 DLY 1

790 HOPEN 1800 DLY 1

810 MOV P7 ,-10

820 MOV P1

830 GOTO *FIN

840 '----------

850 *DOS

860 MOV P4, -40

870 MOV P6, -40

880 MVS P6

890 DLY 1

900HCLOSE 1

910 DLY 1

920 MOV P6, -40

930 MOV P1

940 MOV P7, -10

950 MVS P7

960 DLY 1

970 HOPEN 1

980 DLY 1

990 MOV P1

1000 *FIN

1010 END