cmp	lbparam,0
je	exit
pob	types
jne	exit
cmp	recno, reccount	; anhängen
JA	exit
cmp	recno,0
je	exit
DEFINE	i,i
DEFINE	s,c
MOV	i,recno
FILE	types
RESET
:begin
CMP	t_specmn,i
JNE	skip
MOV	s,s+iff(s='','',' / ')
MOV	s,s+t_type.T_MNAME+' of '
MOV	s,s+t_spec.o_genus.gname+#32+t_spec.sname+iff(t_spec.subname='','',#32+t_spec.subname)+#32+t_spec.sauthor.author.fname+', '+t_spec.sauthor.year
:skip
SKIP
JNEOF	begin
LAB.TOC	lbparam
LAB.CAP	s
:exit
FILE	specmens
EXIT