Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

C	LOCDEF.INC Include file.
C
	PARAMETER   loc_max=4	    !number of locations defined
	PARAMETER   token_max=5	    !number of valid tokens that may be
				    ! used to specify this location.
	PARAMETER   text_line_max=5 !number of text lines to describe loc.

	IMPLICIT	INTEGER*4	(a-z)
	CHARACTER*15	queue(0:loc_max-1)
	CHARACTER*32	place(0:loc_max-1)
	CHARACTER*8	tokens(0:loc_max-1,token_max)
	CHARACTER*80	text(0:loc_max-1,text_line_max)
	INTEGER*2	n_tokens(0:loc_max-1)
	INTEGER*2	n_text_lines(0:loc_max-1)
C
C	Data base.
C
	PARAMETER   lpd0=0
	PARAMETER   lpd0_S='0'
	DATA	    queue(lpd0)		/'LPD0:'/
	DATA	    place(lpd0)		/'425 CB (Computer Room)'/
	DATA	    n_tokens(lpd0)      /5/
	DATA	    (tokens(lpd0,i),i=1,5) /lpd0_s,'LPD0','LPD0:','B1000','FAST'/
	DATA	    n_text_lines(lpd0)	/2/
	DATA	    (text(lpd0,i),i=1,2)
	1/'Data Products B1000 "Charaband" impact printer, 1000 lpm,'
	1,'upper/lower case, no special forms.'/

	PARAMETER   lpa0=1
	PARAMETER   lpa0_S='1'
	DATA	    queue(lpa0)		/'LPA0:'/
	DATA	    place(lpa0)		/'425 CB (Computer Room)'/
	DATA	    n_tokens(lpa0)      /5/
	DATA	    (tokens(lpa0,i),i=1,5) /lpa0_s,'LPA0','LPA0:','425','CB'/
	DATA	    n_text_lines(lpa0)	/2/
	DATA	    (text(lpa0,i),i=1,2)
	1/'Printronix P600 dot-matrix printer, 600 lines per minute,'
	2,'upper/lower case, plotting, no special forms.'/

	PARAMETER   lpb0=2
	PARAMETER   lpb0_S='2'
	DATA	    queue(lpb0)		/'LPB0:'/
	DATA	    place(lpb0)		/'240 ESC'/
	DATA	    n_tokens(lpb0)      /5/
	DATA	    (tokens(lpb0,i),i=1,5)  /lpb0_s,'LPB0','LPB0:','240','ESC'/
	DATA	    n_text_lines(lpb0)	/2/
	DATA	    (text(lpb0,i),i=1,2)
	1/'Printronix P600 dot-matrix printer, 600 lines per minute,'
	2,'upper/lower case, plotting, no special forms.'/

	PARAMETER   lpc0=3
	PARAMETER   lpc0_S='3'
	DATA	    queue(lpc0)		/'LPC0:'/
	DATA	    place(lpc0)		/'1140 SWKT'/
	DATA	    n_tokens(lpc0)      /5/
	DATA	    (tokens(lpc0,i),i=1,5)  /lpc0_s,'LPC0','LPC0:','1140','SWKT'/
	DATA	    n_text_lines(lpc0)	/2/
	DATA	    (text(lpc0,i),i=1,2)
	1/'Printronix P300 dot-matrix printer, 300 lines per minute,'
	2,'upper/lower case, plotting, no special forms.'/

	COMMON /loc/	queue
	1               ,place
	1               ,tokens
	2               ,text
	3               ,n_tokens
	4               ,n_text_lines
C
C	END of LOCDEF.INC.
C