static char *sccsid
= "@(#)pti.c 4.1 (Berkeley) %G%";
int stab
[] = {010,0,01,07,02,03,04,05,0211,06,0212,0213,0214,0215,0216,0217};
int rtab
[] = {6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 24, 28, 36, 18};
while((--argc
> 0) && ((++argv
)[0][0]=='-')){
while(((j
= *ap
++ - '0') >= 0)
&& (j
<= 9))offset
= 8*offset
+j
;
if((fid
=open(argv
[0], 0)) < 0){
printf("Cannot open: %s\n",argv
[0]);
while((i
= getc()) >= 0){
if(!lflg
)printf("%o ",i
);
if(!lflg
)printf("< %d\n",esc
);
if(!lflg
)printf("> %d\n",esc
);
if(!lflg
)printf("%o ",i
);
if(!i
){if(!lflg
)printf("\n"); continue;}
escd
= verd
= mcase
= railmag
= 0;
if(!lflg
)printf("Initialize\n");
case 0101: /*lower rail*/
if(!lflg
)printf("Lower rail\n");
case 0102: /*upper rail*/
if(!lflg
)printf("Upper rail\n");
if(!lflg
)printf("Upper mag\n");
if(!lflg
)printf("Lower mag\n");
case 0105: /*lower case*/
if(!lflg
)printf("Lower case\n");
case 0106: /*upper case*/
if(!lflg
)printf("Upper case\n");
case 0107: /*escape forward*/
if(!lflg
)printf("> mode, %d\n",esct
);
case 0110: /*escape backward*/
if(!lflg
)printf("< mode, %d\n",esct
);
if(!lflg
)printf("STOP\n");
case 0112: /*lead forward*/
if(!lflg
)printf("Lead forward, %d\n",leadtot
);
case 0114: /*lead backward*/
if(!lflg
)printf("Lead backward, %d\n",leadtot
);
if(!lflg
)printf("New page\n");
if(!lflg
)printf("Undefined code\n");
if((i
& 0340) == 0140){ /*leading*/
if(!lflg
)printf("Lead %d\n",lead
);
if((i
& 0360) == 0120){ /*size change*/
for(j
= 0; i
!= (stab
[j
] & 017); j
++);
printf("Size %d",rtab
[j
]);
if(!(osize
& DBL
) && (size
& DBL
))printf(", double\n");
else if((osize
& DBL
) && !(size
& DBL
))printf(", single\n");
if(railmag
!= 03)k
= asctab
[i
];
if(!lflg
)printf("%s\n",k
);
printf("Total lead %d\n",leadtot
);
if((i
=read(fid
,ibuf
,512)) <= 0)ex();
"-", /*some horizontal line*/
0, /*partial derivative*/
0, /*cap (intersection)*/
"|", /*right ceiling (rt of ")*/
"|", /*left top (of big curly)*/
"|", /*left center of big curly bracket*/
"|", /*right center of big curly bracket*/
"|", /*right floor (rb of ")*/
"|", /*left floor (left bot of big sq bract)*/
"|", /*left ceiling (lt of ")*/
"*", /*telephone asterisk?*/