/PRINT ADDITIONAL INFORMATION WORDS
/          
/MAIN LINE
/          
/DEFINE CONSTANT
/          
SYSDAT=7666
/          
FIELD 1
*0000
START,
LOOP,	PRINT 10	;TEXT '__MORE? '
	YESNO	;RPFEND
	PRINT 10	;TEXT '_DEVICE='
	TYPTEX	;FILINF	;4
	PRINT 13	;TEXT ' FILE NAME='
	TYPTEX	;FILINF+2	;6
	PRINT 13	;TEXT ' EXTENSION='
	TYPTEX	;FILINF+5	;2
	PRINT 6	;TEXT ' OK?  '
	YESNO	;LOOP
	MOVE 	;FILINF	;.+3	;6
	OPEN	;DEVICE     	;FILENAME       .  	;FILBLK
	GOIF	;.+2	;OPENER
	PRINT 35	;TEXT '__FILE INFORMATION BLOCK FOR '
	PRINTX	;FILINF	;4
	PRINTC 1	;":
	PRINTX	;FILINF+2	;6
	PRINTC 1	;".
	PRINTX	;FILINF+5	;2
	LOADIM	;-11
	STORE1	;LPKNT
	CLEARW	;FBINDX
	CLEARW	;NEGSW
PRNTLP,	LOADX1	;FBINDX
	MULTX1 14
	PRINTX 1	;PRNTAB	;27
	LOAD1	;FBINDX
	SUBTIM	;2
	GOIF	;PRNDAT	;.+1
	SUBTIM	;6
	GOIF	;.+2	;.+3
	INCREM	;NEGSW
	LOADX1	;FBINDX
	LOAD1-1	;FILBLK
	GOIFZO	;.+4	;NEGSW
	SIGN1
	NEGATE
	PRINTU	;MASK	;6
PLPEND,	INCREM	;FBINDX
	INCGOZ	;LOOP	;LPKNT
	GOTO	;PRNTLP
/          
/THIS SECTION OF CODING PRINTS THE DATE
/          
PRNDAT,	MOVE 1	;SYSDAT	;DATSAV	;1
	LOADX1	;FBINDX
	MOVE-1	;FILBLK	;SYSDAT	;1
	DATE
	PRINTU	;DMASK	;11
	MOVE 	;DATSAV	;SYSDAT	;1
	GOTO	;PLPEND
/          
/ERROR EXIT
/          
OPENER,	PRINT 23	;TEXT '_ERROR OPENING FILE'
	GOTO	;LOOP
/          
/THE PROGRAM ENDS HERE
/          
RPFEND,	PRINT 14	;TEXT '__END OF JOB'
	EXIT
/       
/THIS IS THE TABLE OF LITERALS FOR THE
/ADDITIONAL INFORMATION WORDS HEADINGS
/         
PRNTAB,	TEXT '__FILE DEVICE NUMBER   '
	TEXT '_FIRST BLOCK NUMBER    '
	TEXT '_FILE ALTERATION DATE  '
	TEXT '_INDEX LENGTH (BLOCKS) '
	TEXT '_FIRST UNUSED BLOCK    '
	TEXT '_FIRST UNUSED WORD     '
	TEXT '_RECORD LENGTH (WORDS) '
	TEXT '_KEY LENGTH (WORDS)    '
	TEXT '_FILE LENGTH (BLOCKS)  '
/          
/THESE ARE THE CONSTANTS AND DATA AREAS
/          
FILINF,	ZBLOCK 6
FBINDX,	0
NEGSW,	0
LPKNT,	0
DATSAV,	0
MASK,	TEXT '        0 '
DMASK,	TEXT '   /  /   '
/          
FIELD 0
*6200
FILBLK,	ZBLOCK 11
$
RROR OPENING FILE'
	GOTO	;LOOP
/          
/THE PROGRAM ENDS HERE
/          
RPFEND,	PRINT 14	;TEXT '__END OF JOB'
	EXIT
/       
/THIS IS THE TABLE OF LITERALS FOR THE
/ADDITIONAL INFORMATION WORDS HEADINGS
/         
PRNTAB,	TEXT '__FILE DEV