
                                                                 9-Nov-1989 16:11:23	VAX FORTRAN V5.0-1                  Page   1
                                                                 4-Nov-1989 10:59:25	BURWS2$DUA0:[SRS.BADGES]PBADGE.FOR;58       

0001    	SUBROUTINE PBADGE(ANNUAL_SYM,TITLE,AFFIL,DES,CITY,LAST)
0002    C
0003    C	Routine to print a badge with the supplied info at the specified
0004    C	position
0005    C
0006    C	The SRN is a null terminated byte string
0007    C	NAME is a null terminated byte string - uppercase and .-' only
0008    C	CITY is a null terminated byte string - anything (city)
0009    C	DES is a null terminated byte string - anything
0010    C	LAST is logical <TRUE> to handle the different spacing down
0011    C	     to the last badge, and space down 3 inches after printing
0012    C
0013    C	TITLE will be blanked and not used for DECUS symposium (21st Annual)
0014    C	The ok has already been given to begin printing.
0015    C	The printer line has already been assigned
0016    C
0017    	IMPLICIT INTEGER (A-Z)
0018    	CHARACTER*30    TITLE,AFFIL,CITY,DES,FIRST_NAME
0019            CHARACTER       CSRN*10,SRN*9,NAME*30,LANG*2
0020    	CHARACTER       ANNUAL_SYM*(*)
0021    	CHARACTER	RESPON
0022            CHARACTER       FVAL*486
0023    	BYTE            LETTER(40,4,96), STRING(1024)
0024    	BYTE            OFFSET,CHAR,ESC,CR,LF,SPACE
0025    	INTEGER*2       ISB(4)	
0026    	DIMENSION       COUNT(96)
0027    	LOGICAL         LAST,STATUS
0028    	INCLUDE '($SYSSRVNAM)'
2749    	INCLUDE '($IODEF)'
3391    	INCLUDE '($SSDEF)'
4027       
4028    	COMMON /BADGEP/ PRT
4029    	COMMON /SET/	LETTER,COUNT
4030    	COMMON /SRN/	SRN,NAME
4031            COMMON /FVAL/   FVAL
4032    C                                                       
4033         	DATA ESC/"33/,OFFSET/"77/,CR/"15/,LF/"12/,OFFSET/"77/
4034            DATA ATNAME,LANAME/36,60/
4035    	DATA BUFSIZ/132/		! Limit QIO to support Lat ports (kludge)
4036    C
4037    	SPACE = ' '                                      
4038    C	WID = 4.00*83.			! 4.00 inch badge - lengths at pitches
4039    C	REG = 4.00*94.
4040    C	NAR = 4.00*110.
4041    	REG = 4.00*132.			! at 132 cols/inch
4042    C
4043    C	LMWG = .25*85.			! .5 in LM X 96 graphic cols/inch
4044    C	LMRG = .25*96.			! .5 in LM X 110 graphic cols/inch
4045    C	LMNG = .25*110.			! .5 in LM X 132 graphic cols/inch
4046    	LMRG = .25*132.
4047    C
4048    	LMT = 1				! Text (designation) spaces to LM
4049    	LMA = 10 			! 1 char LM X 5  chars/inch (Annual)
4050    	LMC = 9 			! 1 char LM X 5  chars/inch (SRN)
4051    	LML = 24			! 1 char LM X 8  chars/inch (Language)
4052    C
4053    C

PBADGE                                                           9-Nov-1989 16:11:23	VAX FORTRAN V5.0-1                  Page   2
                                                                 4-Nov-1989 10:59:25	BURWS2$DUA0:[SRS.BADGES]PBADGE.FOR;58       

4054    C	Get the data to print
4055    C
4056    C       First_name from FVAL
4057            FIRST_NAME=FVAL(ATNAME:LANAME)
4058    	CALL C_REMLED(CSRN,9)
4059    	CSRN=SRN(:3)//'-'//SRN(4:9)
4060    	CALL STR$TRIM(CSRN,CSRN,L_CSRN)
4061    	CALL STR$TRIM(FIRST_NAME,FIRST_NAME,L_F_NAME)
4062    	CALL STR$TRIM(NAME,NAME,L_NAME)
4063    	CALL STR$TRIM(TITLE,TITLE,L_TITLE)
4064    	CALL STR$TRIM(AFFIL,AFFIL,L_AFFIL)
4065    	CALL STR$TRIM(CITY,CITY,L_CITY)  
4066    	CALL STR$TRIM(DES,DES,L_DES)
4067    	CALL STR$TRIM(ANNUAL_SYM,ANNUAL_SYM,L_ANNUAL_SYM)
4068    C
4069     111	STATUS = SYS$ASSIGN('BADGE_PRINTER',PRT,,)     	! Assign the printer
4070    	IF (.NOT. STATUS) THEN
4071    C	   CALL LIB$SIGNAL(%VAL(STATUS))    
4072           	   CALL FDV$GETDL(RESPON,TERM,24,
4073    	1  'Printer busy. Enter <P> to try again, <RETURN> to exit ')
4074        	   IF (RESPON.EQ.'P'.or.RESPON.EQ.'p') THEN
4075    	     GO TO 111
4076    	    ELSE               
4077    	     CALL FDV$PUTL('Badge not printed')
4078    	     RETURN
4079    	   ENDIF
4080    	ENDIF
4081    C
4082    C	Start with the Nth ANNUAL SYMPOSIUM
4083    C
4084    	STRING(1) = ESC
4085    	STRING(2) = '['
4086    	STRING(3) = '8'
4087    	STRING(4) = 'w'		! 8 pitch
4088    	STRING(5) = CR
4089    	STATUS = SYS$QIOW (,
4090         $		%VAL(PRT),
4091         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4092         $		ISB,,,
4093         $		STRING,
4094         $		%VAL(5),,,,)
4095    C
4096    	DO 1  I=1,LMA	  	! Use LMA spaces to get there
4097      1 	STRING(I) = SPACE
4098            DO 2  J=1,L_ANNUAL_SYM	! start with the Annual Symposium label
4099      2 	READ(UNIT=ANNUAL_SYM(J:J),FMT='(A1)') STRING(LMA+J)
4100            STRING(LMA+J) = CR      			! and a carriage return
4101    	STATUS = SYS$QIOW (,
4102         $		%VAL(PRT),
4103         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4104         $		ISB,,,
4105         $		STRING,
4106         $		%VAL(LMA+J),,,,)
4107    	STRING(LMA+J+1) = LF   		! and a LF
4108    	STRING(LMA+J+2) = LF   		! and a LF
4109    	STATUS = SYS$QIOW (,		    	! Print it again bolder
4110         $		%VAL(PRT),

PBADGE                                                           9-Nov-1989 16:11:23	VAX FORTRAN V5.0-1                  Page   3
                                                                 4-Nov-1989 10:59:25	BURWS2$DUA0:[SRS.BADGES]PBADGE.FOR;58       

4111         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4112         $		ISB,,,
4113         $		STRING,
4114         $		%VAL(LMA+J+2),,,,)
4115    C
4116    C	Move down to first line (Just a carriage return for now)
4117    C	Get into Graphics mode for the special characters
4118    C
4119    	LEN = 0
4120    	DO 5 J=1,L_F_NAME
4121    	   NDX = ICHAR(FIRST_NAME(J:J))-ICHAR(' ')+1	! Offset from a space
4122    	   LEN = LEN+COUNT(NDX)
4123      5	CONTINUE
4124    	LEN = LEN-3			! Subtract trailing blank pixels
4125    C                 
4126    C	Get into Graphics mode for the special characters
4127    C
4128    	STRING(1) = CR			! 1 line down (space it out)
4129    	STRING(2) = ESC			! DCS Introducer
4130    	STRING(3) = 'P'
4131    C	IF (LEN.LE.WID) THEN		!aspect ratio
4132    C	   STRING(4) = '8'
4133    C	   LMG = LMWG
4134    C	   LMG = (WID-LEN)/2
4135    C	ELSEIF (LEN.LE.REG) THEN
4136    C	   LMG = LMRG
4137    C	   LMG = (REG-LEN)/2
4138    C	   STRING(4) = '7'			! Protocol Selector
4139    C	ELSE
4140    C	   LMG = LMNG
4141    C	   IF(LEN.LT.NAR) LMG = (NAR-LEN)/2
4142    C	   STRING(4) = '6'			! Protocol Selector
4143    C	ENDIF
4144    	IF (LEN.LE.REG) THEN
4145    	   LMG = (REG-LEN)/2			! Centre the name
4146    	ELSE
4147    	   LMG = LMRG				! Won't fit, so a little mrgn
4148    	ENDIF
4149    	STRING(4) = '0'				! Default LA50 emulation
4150    C
4151    	STRING(5) = 'q'      
4152    	STATUS = SYS$QIOW (,
4153         $		%VAL(PRT),
4154         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4155         $		ISB,,,
4156         $		STRING,
4157         $		%VAL(5),,,,)
4158    C	Build up the actual codes for the characters
4159    C
4160    	DO 40 I=1,4
4161    	   STRING(1) = '!'		! Repeat introducer for LM offset
4162    	   ENCODE (4,30,STRING(2)) LMG  ! Encode LMG cols
4163      30	   FORMAT (I4.4)
4164    	   STRING(6) = OFFSET		! Repeat the 0 (no wires fired)
4165    	   INDEX = 6
4166    	   DO 35 J=1,L_F_NAME
4167    	      NDX =ICHAR(FIRST_NAME(J:J))-ICHAR(' ')+1	! Offset from a space

PBADGE                                                           9-Nov-1989 16:11:23	VAX FORTRAN V5.0-1                  Page   4
                                                                 4-Nov-1989 10:59:25	BURWS2$DUA0:[SRS.BADGES]PBADGE.FOR;58       

4168    	      DO 35 K=1,COUNT(NDX)
4169    	         INDEX = INDEX+1
4170    	         STRING(INDEX) = LETTER(K,I,NDX)+OFFSET
4171      35	   CONTINUE
4172    C
4173    C	   Compress the output data if possible
4174    C
4175    	   NDX = 1
4176      36	   UPPER = INDEX-1
4177    	   DO 41 K=NDX,UPPER			! Look only on new stuff
4178    	      CHAR = STRING(K)			! Save this for comparison
4179    	      IF (CHAR.EQ.'!') THEN		! Don't bother with a
4180    	         NDX = K+6			! previously defined repeat
4181    	         GO TO 36			! sequence
4182    	      ENDIF
4183    	      DO 37 L=K+1,INDEX			! Look till not equal
4184    	         IF (STRING(L).NE.CHAR) GO TO 38
4185      37	      CONTINUE    
4186      38	      LEN = L-K				! Length of equal chars
4187    	      IF (LEN.GT.6) THEN		! Savings only if >6 long
4188    	         STRING(K) = '!'
4189    	         ENCODE(4,30,STRING(K+1)) LEN
4190    	         STRING(K+5) = CHAR
4191    	         DO 39 M=L,INDEX                        
4192      39	         STRING(M-LEN+6) = STRING(M)
4193    	         INDEX = INDEX-LEN+6
4194    	         NDX = K+6
4195    	         GO TO 36
4196    	      ENDIF
4197      41	   CONTINUE
4198    	   INDEX = INDEX+1
4199    	   STRING(INDEX) = '$'			! Graphics CR
4200    !	   STATUS = SYS$QIOW (,
4201    !     $		%VAL(PRT),
4202    !     $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4203    !     $		ISB,,,
4204    !     $		STRING,
4205    !     $		%VAL(INDEX),,,,)
4206    	   DO MBS = 1,INDEX,BUFSIZ
4207    	      STATUS = SYS$QIOW (,
4208         $		%VAL(PRT),
4209         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4210         $		ISB,,,
4211         $		STRING(MBS),
4212         $		%VAL(MIN(BUFSIZ,INDEX-MBS+1)),,,,)
4213    	   END DO
4214    C! Re-print for emphasis
4215    	   STRING(INDEX) = '-'			! Graphics CRLF
4216    !	   STATUS = SYS$QIOW (,
4217    !     $		%VAL(PRT),
4218    !     $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4219    !     $		ISB,,,
4220    !     $		STRING,
4221    !     $		%VAL(INDEX),,,,)
4222    	   DO MBS = 1,INDEX,BUFSIZ
4223    	      STATUS = SYS$QIOW (,
4224         $		%VAL(PRT),

PBADGE                                                           9-Nov-1989 16:11:23	VAX FORTRAN V5.0-1                  Page   5
                                                                 4-Nov-1989 10:59:25	BURWS2$DUA0:[SRS.BADGES]PBADGE.FOR;58       

4225         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4226         $		ISB,,,
4227         $		STRING(MBS),
4228         $		%VAL(MIN(BUFSIZ,INDEX-MBS+1)),,,,)
4229    	   END DO
4230      40	CONTINUE
4231    C
4232    C	That completes the 4 lines of the special characters
4233    C	Get out of graphics mode now
4234    C
4235    	STRING(1) = ESC				! DCS terminator
4236    	STRING(2) = '\'
4237    	STRING(3) = CR
4238    	STRING(4) = LF                   
4239    C
4240    	STRING(5) = ESC
4241    	STRING(6) = '['
4242    	STRING(7) = '8'
4243    	STRING(8) = 'w'		! 8 pitch
4244    	STRING(9) = CR
4245    	STATUS = SYS$QIOW (,
4246         $		%VAL(PRT),
4247         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4248         $		ISB,,,
4249         $		STRING,
4250         $		%VAL(9),,,,)
4251    C
4252    	DO 11 J=1,LMT
4253      11	STRING(J) = SPACE			! Use LMT spaces to get there
4254    C    Now the full name
4255    	DO 13 I=1,L_NAME
4256      13	READ(UNIT=NAME(I:I),FMT='(A1)') STRING(LMT+I)
4257        	STRING(LMT+I)= CR   			! and a carriage return
4258    	STATUS = SYS$QIOW (,
4259         $		%VAL(PRT),
4260         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4261         $		ISB,,,
4262         $		STRING,
4263         $		%VAL(LMT+I),,,,)
4264    	STRING(LMT+I+1) = LF   			! and a LF
4265    	STATUS = SYS$QIOW (,
4266         $		%VAL(PRT),
4267         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4268         $		ISB,,,
4269         $		STRING,
4270         $		%VAL(LMT+I+1),,,,)
4271    C    Now the affiliation
4272    	DO 14 I=1,L_AFFIL			! Add the AFFIL
4273      14	READ(UNIT=AFFIL(I:I),FMT='(A1)') STRING(LMT+I)
4274        	STRING(LMT+I)= CR   			! and a carriage return
4275    	STATUS = SYS$QIOW (,
4276         $		%VAL(PRT),
4277         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4278         $		ISB,,,
4279         $		STRING,
4280         $		%VAL(LMT+I),,,,)
4281    	STRING(LMT+I+1) = LF   			! and a LF

PBADGE                                                           9-Nov-1989 16:11:23	VAX FORTRAN V5.0-1                  Page   6
                                                                 4-Nov-1989 10:59:25	BURWS2$DUA0:[SRS.BADGES]PBADGE.FOR;58       

4282    	STATUS = SYS$QIOW (,
4283         $		%VAL(PRT),
4284         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4285         $		ISB,,,
4286         $		STRING,
4287         $		%VAL(LMT+I+1),,,,)
4288    C
4289    C	Now the City
4290    C
4291    C
4292    	DO 15 J=1,LMT
4293      15	STRING(J) = SPACE			! Use LMT spaces to get there
4294    	DO 16 I=1,L_CITY			! Add the Country
4295      16	READ(UNIT=CITY(I:I),FMT='(A1)') STRING(LMT+I)
4296        	STRING(LMT+I)= CR   			! and a carriage return
4297    	STATUS = SYS$QIOW (,
4298         $		%VAL(PRT),
4299         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4300         $		ISB,,,
4301         $		STRING,
4302         $		%VAL(LMT+I),,,,)
4303    	STRING(LMT+I+1) = LF   			! and a LF
4304    	STRING(LMT+I+2) = LF   			! and a LF
4305    	STATUS = SYS$QIOW (,
4306         $		%VAL(PRT),
4307         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4308         $		ISB,,,
4309         $		STRING,
4310         $		%VAL(LMT+I+2),,,,)
4311    C
4312    C	Languages
4313    C
4314    C Suppress languages
4315    C
4316    C	DO 17 I=1,LML				! Use LML spaces to get there
4317    C  17	STRING(I) = SPACE
4318    C        DO 18 J=1,2				! Add the Languages
4319    C  18	READ(UNIT=LANG(J:J),FMT='(A1)') STRING(LML+J)
4320    C        STRING(LML+J) = CR      			! and a carriage return
4321    C	STATUS = SYS$QIOW (,
4322    C     $		%VAL(PRT),
4323    C     $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4324    C     $		ISB,,,
4325    C     $		STRING,
4326    C     $		%VAL(LML+J),,,,)
4327    C	STRING(LML+J+1) = LF          		! Space down 1
4328    C	STATUS = SYS$QIOW (,		    	! Print it again bolder
4329    C     $		%VAL(PRT),
4330    C     $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4331    C     $		ISB,,,
4332    C     $		STRING,
4333    C     $		%VAL(LML+J+1),,,,)
4334    C
4335    C	Now the Designation
4336    C
4337    	DO 19 I=1,LMT				! Use LMT spaces to get there
4338      19	STRING(I) = SPACE

PBADGE                                                           9-Nov-1989 16:11:23	VAX FORTRAN V5.0-1                  Page   7
                                                                 4-Nov-1989 10:59:25	BURWS2$DUA0:[SRS.BADGES]PBADGE.FOR;58       

4339            DO 20 J=1,L_DES				! Add the Designations
4340      20	READ(UNIT=DES(J:J),FMT='(A1)') STRING(LMT+J)
4341            STRING(LMT+J) = CR      			! and a carriage return
4342    	STATUS = SYS$QIOW (,
4343         $		%VAL(PRT),
4344         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4345         $		ISB,,,
4346         $		STRING,
4347         $		%VAL(LMT+J),,,,)
4348    	STRING(LMT+J+1) = LF   		! and a LF
4349    	STATUS = SYS$QIOW (,		    	! Print it again bolder
4350         $		%VAL(PRT),
4351         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4352         $		ISB,,,
4353         $		STRING,
4354         $		%VAL(LMT+J+1),,,,)
4355    	DO 12 I=1,L_TITLE			! Add the TITLE
4356      12	READ(UNIT=TITLE(I:I),FMT='(A1)') STRING(LMT+I)
4357        	STRING(LMT+I)= CR   			! and a carriage return
4358     	STATUS = SYS$QIOW (,
4359         $		%VAL(PRT),
4360         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4361         $		ISB,,,
4362         $		STRING,
4363         $		%VAL(LMT+I),,,,)
4364     	STRING(LMT+I+1) = LF   			! and a LF
4365    	STRING(LMT+I+2) = LF   		! and a LF
4366     	STATUS = SYS$QIOW (,
4367         $		%VAL(PRT),
4368         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4369         $		ISB,,,
4370         $		STRING,
4371         $		%VAL(LMT+I+2),,,,)
4372    C
4373    C	Now the SRN      
4374    C
4375    	STRING(1) = ESC
4376    	STRING(2) = '['
4377    	STRING(3) = '5'
4378    	STRING(4) = 'w'		! 5 pitch
4379        	STRING(5) = CR
4380    	STATUS = SYS$QIOW (,
4381         $		%VAL(PRT),
4382         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4383         $		ISB,,,
4384         $		STRING,
4385         $		%VAL(5),,,,)
4386    	DO 21 I=1,LMC
4387      21	STRING(I) = SPACE			! Use LMC spaces to get there
4388    	DO 22 J=1,L_CSRN			! Add the SRN
4389      22	READ(UNIT=CSRN(J:J),FMT='(A1)') STRING(LMC+J)
4390            STRING(LMC+J) = CR      			! and a carriage return
4391    	STATUS = SYS$QIOW (,
4392         $		%VAL(PRT),
4393         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4394         $		ISB,,,
4395         $		STRING,

PBADGE                                                           9-Nov-1989 16:11:23	VAX FORTRAN V5.0-1                  Page   8
                                                                 4-Nov-1989 10:59:25	BURWS2$DUA0:[SRS.BADGES]PBADGE.FOR;58       

4396         $		%VAL(LMC+J),,,,)
4397    	STATUS = SYS$QIOW (,                   ! Print it again bolder
4398         $		%VAL(PRT),
4399         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4400         $		ISB,,,
4401         $		STRING,
4402         $		%VAL(LMC+J),,,,)
4403    	STRING(LMC+J) = LF          		! Space down 1
4404    C	Shoot that sucker out... 4 linefeeds plus CR
4405    	DO 50 I=1,5
4406      50	STRING(LMC+J+I) = LF          		! Space down 1
4407    	STRING(LMC+J+I) = CR
4408    	STATUS = SYS$QIOW (,		    	! Print it once more
4409         $		%VAL(PRT),
4410         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4411         $		ISB,,,
4412         $		STRING,
4413         $		%VAL(LMC+J+I),,,,)
4414    	STRING(1) = ESC
4415    	STRING(2) = '['
4416    	STRING(3) = '0'
4417    	STRING(4) = 'w'		! reset?
4418    	STATUS = SYS$QIOW (,
4419         $		%VAL(PRT),
4420         $		%VAL(IO$_WRITEVBLK.OR.IO$M_NOFORMAT),
4421         $		ISB,,,
4422         $		STRING,
4423         $		%VAL(4),,,,)
4424    C
4425    C	End of it all             
4426    C
4427    	STATUS = SYS$DASSGN(%VAL(PRT))	! deAssign the printer
4428    	RETURN
4429    	END

PBADGE                                                           9-Nov-1989 16:11:23	VAX FORTRAN V5.0-1                  Page   9
01                                                               4-Nov-1989 10:59:25	BURWS2$DUA0:[SRS.BADGES]PBADGE.FOR;58       

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                 2034   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                 103   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                2648   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG
  3 BADGEP                                   4   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  4 SET                                  15744   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  5 SRN                                     39   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  6 FVAL                                   486   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

    Total Space Allocated                21058


ENTRY POINTS

    Address  Type  Name          

  0-00000000       PBADGE        


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name              Address  Type  Name          

 AP-0000000C@ CHAR AFFIL          AP-00000004@ CHAR ANNUAL_SYM          **      I*4  ATNAME          2-00000438  I*4  BUFSIZ        
      **      L*1  CHAR           AP-00000014@ CHAR CITY            2-00000433  L*1  CR              2-00000426  CHAR CSRN          
 AP-00000010@ CHAR DES             2-00000432  L*1  ESC             2-00000408  CHAR FIRST_NAME      6-00000000  CHAR FVAL          
  2-00000460  I*4  I                   **      I*4  INDEX               **      I*4  J                   **      I*4  K             
      **      I*4  L                   **      I*4  LANAME              **      CHAR LANG           AP-00000018@ L*4  LAST          
      **      I*4  LEN             2-00000434  L*1  LF                  **      I*4  LMA                 **      I*4  LMC           
  2-00000464  I*4  LMG                 **      I*4  LML                 **      I*4  LMRG                **      I*4  LMT           
  2-0000044C  I*4  L_AFFIL         2-00000458  I*4  L_ANNUAL_SYM    2-00000450  I*4  L_CITY          2-0000043C  I*4  L_CSRN        
  2-00000454  I*4  L_DES           2-00000440  I*4  L_F_NAME        2-00000444  I*4  L_NAME          2-00000448  I*4  L_TITLE       
      **      I*4  M                   **      I*4  MBS             5-00000009  CHAR NAME                **      I*4  NDX           
  2-00000431  L*1  OFFSET          3-00000000  I*4  PRT                 **      I*4  REG             2-00000430  CHAR RESPON        
      **      L*1  SPACE           5-00000000  CHAR SRN                 **      L*4  STATUS          2-0000045C  I*4  TERM          
 AP-00000008@ CHAR TITLE               **      I*4  UPPER         


ARRAYS

    Address  Type  Name                Bytes  Dimensions

  4-00003C00  I*4  COUNT                 384  (96)
  2-00000000  I*2  ISB                     8  (4)
  4-00000000  L*1  LETTER              15360  (40, 4, 96)
  2-00000008  L*1  STRING               1024  (1024)

PBADGE                                                           9-Nov-1989 16:11:23	VAX FORTRAN V5.0-1                  Page  10
01                                                               4-Nov-1989 10:59:25	BURWS2$DUA0:[SRS.BADGES]PBADGE.FOR;58       

LABELS

    Address   Label       Address   Label       Address   Label       Address   Label       Address   Label       Address   Label   

      **      1             **      2             **      5             **      11            **      12            **      13      
      **      14            **      15            **      16            **      19            **      20            **      21      
      **      22        1-00000063  30'           **      35        0-000002A8  36            **      37        0-000002F1  38      
      **      39            **      40            **      41            **      50        0-000000B4  111     


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name            Type  Name            Type  Name            Type  Name            Type  Name            Type  Name          

        C_REMLED              FDV$GETDL             FDV$PUTL              STR$TRIM         I*4  SYS$ASSIGN       I*4  SYS$DASSGN    
   I*4  SYS$QIOW      


COMMAND QUALIFIERS

  FOR/LIST PBADGE

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(NOSYMBOLS,TRACEBACK)
  /SHOW=(NODICTIONARY,NOINCLUDE,MAP,NOPREPROCESSOR,SINGLE)
  /STANDARD=(NOSEMANTIC,NOSOURCE_FORM,NOSYNTAX)
  /WARNINGS=(NODECLARATIONS,GENERAL,NOULTRIX,NOVAXELN)
  /CONTINUATIONS=19  /NOCROSS_REFERENCE  /NOD_LINES  /NOEXTEND_SOURCE
  /F77  /NOG_FLOATING  /I4  /NOMACHINE_CODE  /OPTIMIZE  /NOPARALLEL
  /NOANALYSIS_DATA
  /NODIAGNOSTICS
  /LIST=BURWS2$DUA0:[SRS.BADGES]PBADGE.LIS;1                                                                
  /OBJECT=BURWS2$DUA0:[SRS.BADGES]PBADGE.OBJ;1                                                                


COMPILATION STATISTICS

  Run Time:           8.64 seconds
  Elapsed Time:       13.86 seconds
  Page Faults:        1185
  Dynamic Memory:     1094 pages
