SEAR   START                ;∼SEAR.CAS∩
       IN     WORD,LWORD    ;腹綢妐儂昫及ェ恘
       LAD    GR1,41
       SUBA   GR1,LWORD     ; 41-LWORD◥GR1
       ST     GR1,CT        ; GR1◥CT
       LAD    GR3,0         ; 0◥GR3
L0     LD     GR1,GR3       ; GR3◥GR1
       LAD    GR2,0         ; 0◥GR2
L1     LD     GR0,DCT,GR1   ; DCT(GR1)◥GR0
       CPA    GR0,WORD,GR2  ; GR0:WORD(GR2)
       JNZ    L2
       LAD    GR1,1,GR1     ; GR1+1◥GR1
       LAD    GR2,1,GR2     ; GR2+1◥GR2
       CPA    GR2,LWORD     ; GRLWORD
       JMI    L1
       OUT    ARI,LOUT      ; "ARI.."及請恘
       RET                  ;蔽弇
L2     LAD    GR3,1,GR3     ; GR3+1◥GR3
       CPA    GR3,CT        ; GRCT
       JMI    L0
       OUT    NASI,LOUT     ; "NASHI"及請恘
       RET                  ;蔽弇
CT     DS     1
LWORD  DS     1
WORD   DS     256
DCT    DC     'apple','egg','baseball','English'
       DC     'Japanese','INPUT','test'
LOUT   DC     5
ARI    DC     'ARI..'
NASI   DC     'NASHI'
       END