AUTOCODER RUN                                                         FETCH
     LIBRARY   OPTN 1                                                      FETCH
01020FETCH     INSER                                                       FETCH
01030                BOOL A,-#04*-#05,#10                                  FETCH
01040                MLC  @L@,3977                                         FETCH
01050                MLC  )01                                              FETCH
01060                B    3792                                             FETCH
01070                MEND                                                  FETCH
01080A               BOOL B,-#04*#05,#10                                   FETCH
01090                MLC  @L@,7977                                         FETCH
02010                MLC  )01                                              FETCH
02020                B    7792                                             FETCH
02030                MEND                                                  FETCH
02040B               BOOL C,#04*-#05,#10                                   FETCH
02050                MLC  @L@,11977                                        FETCH
02060                MLC  )01                                              FETCH
02070                B    11792                                            FETCH
02080                MEND                                                  FETCH
02080C               MLC  @L@,15977                                        FETCH
03010                MLC  )01                                              FETCH
03020                B    15792                                            FETCH
99999          END                                                         FETCH