(cond ((integerp md)
(insert (format " D%05d.0\n" md)))
((eq (car md) 'ho)
- (insert (format " DHO%03d\n" (nth 1 md))))
+ (insert (format " DHo%03d\n" (nth 1 md))))
(md
(insert (format " D%05d.%d\n" (car md)(nth 1 md))))
(t
(cond ((integerp md)
(insert (format " D%05d.0\n" md)))
((eq (car md) 'ho)
- (insert (format " DHO%03d\n" (nth 1 md))))
+ (insert (format " DHo%03d\n" (nth 1 md))))
(md
(insert (format " D%05d.%d\n" (car md)(nth 1 md))))
(t