| 2775 | 2776 | SUBROUTINE(PRIN1(L)) | 2777 | / CAR(L) N=-1 YIELDS ERROR | 2778 | ST = L | 2779 | A1 CDR(L) = 0 YIELDS ERROR | 2780 | L = CDR(L) | 2781 | CAR(L) = PNAME YIELDS GO(A3) | 2782 | CAR(L) N= FLOAT YIELDS GO(A1) | 2783 | L = CAR(CDR(L)) | 2784 | VAL = FLONAM(L) | 2785 | REPLACD(CONS(PNAME,CONS(VAL,CDR(ST))),ST) | 2786 | L = CDR(ST) | 2787 | A3 L= CAR(CDR(L)) | 2788 | A2 PRIN2(CWR(CAR(L)) | 2789 | L = CDR(L) | 2790 | L=0 YIELDS RETURN | 2791 | */ GO(A2) |
| 04703 | −0634 00 4 05072 | 2792 | PRIN1 | SXD | PR1,4 |
| 04703 | 11315 | PRIN1 | SYN | T$PRIN1 |