Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/gigi/title.cdd-plot
There are 4 other files named title.cdd-plot in the archive. Click here to see a list.
{\\\XPOS\\YPOS\\LETTERSIZE\$\#INTENSITY\)MLEN\1\.9\0HOUSEKEEP@\7\=\C\H\N0\t]
DECLARE X_POS,Y_POS,LETTER_SIZE,INTENSITY,M_LEN
ENTRY 0
    PLOT HOUSEKEEP 4
ENTRY 1 (MESSAGE : STRING,X_ARG,Y_ARG,S_ARG,I_ARG)
    BEGIN
ESSAGE)
	IF X_ARG EQ 0 AND Y_ARG EQ 0 THEN
	    BEGIN
		IF M_LEN > 38 THEN X_POS = 0 ELSE
		    X_POS =                (38 - M_LEN) * 10
		Y_POS = 447
	    END ELSE
	    BEGIN
		X_POS = X_ARG
		Y_POS = Y_ARG
	    END
	IF S_ARG EQ 0 THEN LETTER_SIZE = 2 ELSE LETTER_SIZE = S_ARG
	IF I_ARG EQ 0 THEN INTENSITY = 2 ELSE INTENSITY = I_ARG
	PRINT "P",LXY(X_POS,Y_POS)
	PRINT "T(BS", CVT(LETTER_SIZE), ")","W(I",CVT(INTENSITY),")"
	PRINT "T""", MESSAGE, """", "T(E)"
    END
ENTRY 2
    PLOT HOUSEKEEP 2
END_PLOT