pchar1
pchar1(i);
pchar1(i);
pchar1((tchar)FLSS);
pchar1((tchar)i);
pchar1((tchar)'\n');
pchar1((tchar)FLSS);
pchar1((tchar)dip->alss);
pchar1((tchar)'\n');
pchar1((tchar)'\n');