BUF     EQU  3000
PRINTER EQU  18
Y       EQU  2011
        ORIG 2000
START   ENTX Y
        STX  BUF+1
        ENTA 0
        DIV  =19=
        INCX 1
        STX  BUF+2
        ENTA 0
        LDX  BUF+1
        DIV  =100=
        INCA 1
        STA  BUF+3
        MUL  =3=
        DIV  =4=
        DECA 12
        STA  BUF+4
        LDA  BUF+3
        MUL  =8=
        INCX 5
        DIV  =25=
        DECA 5
        STA  BUF+3
        LDA  BUF+1
        MUL  =5=
        DIV  =4=
        SUB  BUF+4
        DECA 10
        STA  BUF+5
        LDA  BUF+2
        MUL  =11=
        INCX 20
        SRC  5
        ADD  BUF+3
        SUB  BUF+4
        SRC  5
        DIV  =30=
        CMPX =25=
        JNE   1F
        LDA  BUF+2
        CMPA =11=
        JLE  2F
        INCX 1
        JMP  2F
1H      CMPX =24=
        JNE  2F
        INCX 1
2H      STX  BUF+6
        ENTA 44
        SUB  BUF+6
        CMPA =21=
        JGE  3F
        INCA 30
3H      STA  BUF+7
        LDA  BUF+5
        ADD  BUF+7
        SRC  5
        ENTA 0
        DIV  =7=
        ENTA 0
        SRC  5
        STA  BUF+8
        LDA  BUF+7
        INCA 7
        SUB  BUF+8
        STA  BUF+7
        CMPA =31=
        JG   4F
        CHAR
        STX  BUF+33
        LDA  BUF+1
        CHAR
        STX  BUF+37
        JMP  5F
4H      DECA 31
        CHAR
        STX  BUF+9
        LDA  BUF+1
        CHAR
        STX  BUF+13
        JMP  5F
5H      OUT  BUF+9(PRINTER)
        HLT
        ORIG BUF+10
        CON  0
        ORIG BUF+11
        ALF   APRIL
        ORIG BUF+12
        CON  0
        ORIG BUF+34
        CON  0
        ORIG BUF+35
        ALF   MARCH
        ORIG BUF+36
        CON  0
        END  START