at cdr 3100D.cd
at lpt 3100D.out
br 400
b cdr
d ssc 1
d 1252 '1
at cdr 3100D.in
c
c
q