IDENT       EXAMPLE
        ENTRY       BEGIN
        NOEXIT
        NOSYMB
BEGIN   UJP         *+1
        FUNC        1067
        FUNC        1067
        ECHA        MESS
        FUNC        1063
        ENI         3,1
        ENI         1,2
        FUNC        2001
        FUNC        1012
        ANI         7777B,2
        STI         FILENO,2
        FUNC        1019
        ENI         25,3
        ENA         12B
LOOP    STA         ARRAY,3
        INA         1
        IJD         LOOP,3
        FUNC        1013
        ENI         ARRAY+25,1
        ENQ,S       0
        ENA         1
WRITE   FUNC        1022
        FUNC        1017
        ISD         ARRAY,1
        UJP         WRITE
        FUNC        2003
        FUNC        1012
        ENA,S       0
        ENQ,S       0
        ENI         0,1
        AIA         1
        ISI         101,1
        UJP         *-2
        SHAQ        -24
        ENI         12,1
        ENI         NFIELD,2
        ENI         10,3
        FUNC        1066
        FUNC        1062
        FUNC        1051
MESS    BCD,C       18,EXAMPLE PROGRAM#
ARRAY   BSS         26
NFIELD  BSS         3
FILENO  BSS         1
        END