c
	Character*7	Terminal
c
	Common /JpiStr/	Terminal
c
	Integer*4	Remaining_File_Quota,	File_Quota
c
	Common /JpiVal/	Remaining_File_Quota,	File_Quota
c
	Integer*4	Item_List( 12 )
	Integer*4	Terminal_Length
c
	Common /JpiPrm/	Item_List,	Terminal_Length
c