FT - FOREIGN TAPE SUMMARIZE, LIST, COPY AND CONVERT UTILITY
 
31JAN78 - 1600  GFM
 
THIS UTILITY UTILIZES 'MTBLOK' TO PERFORM TAPE HANDLING DUTIES.  IT IS
WRITTEN IN FORTRAN 4 PLUS.
 
31MAR78 -1351  RF THEIS
  
THIS UTILITY CAN NOW ALSO CONVERT MOST 360 STYLE TAPES TO 11/70 DISC FILES
********************************************************************************
 
FT IS AN INTERACTIVE TAPE UTILITY PROGRAM.  IT HANDLES FOREIGN TAPES, AND
THUS DOES NOT REQUIRE THAT TAPES BE 'MOU'NTED.  THE TAPE UNITS TO BE USED
DURING A RUN SHOULD BE 'ALL'OCATED TO ELIMINATE CONFUSION BETWEEN TASKS.
 
ONE OR TWO TAPE UNITS ARE USED, DEPENDENT UPON WHETHER A COPY IS TO BE MADE
OR NOT.  THE PROGRAM WILL PROMPT FOR A 'UNIT ID', WHICH IS THE PHYSICAL UNIT
NUMBER.  IT WILL THEN PROMPT FOR THE 'CHARACTERISTICS'.  THIS IS AN OCTAL
WORD WHICH CAN BE USED TO ESTABLISH CERTAIN NON-DEFAULT CHARACTERISTICS IN
THE UNIT, SUCH AS 1600BPI, WRITE LOCK, ETC.  RESPONDING WITH A CARRIAGE
RETURN WILL SET THE DRIVE AT 800BPI, WITH ALL OTHER CHARACTERISTICS BEING
DICTATED BY THE PHYSICAL FEATURES OF THE UNIT, I.E. WRITE LOCKED BY RING, ETC.
THE PROGRAM WILL THEN ENTER A COMMAND MODE IN WHICH YOU ARE ASKED TO ENTER
THE 'ACTION CODE' AND 'REPEAT COUNT'.  THE AVAILABLE CODES ARE SHOWN BELOW:
 
	RPT			
CODE	CNT			DESCRIPTION
----	---			-----------
 EX	 N	EXIT THE PROGRAM.  TAPES WILL BE REWOUND.  IF A COPY HAS
		BEEN PRODUCED, IT WILL HAVE AN EOT WRITTEN AS TWO END FILES.
 RC	 N	RESET INPUT TAPE CHARACTERISTICS.  IF THE TAPE IS NOT AS
		DESCRIBED BY THE CHARACTERISTICS YOU FIRST SET, YOU CAN
		CHANGE THEM WITH THIS CODE.
 RW	 N	REWIND THE INPUT TAPE.
 SF	 Y	SKIP FILES ON THE INPUT TAPE.  THE PROGRAM WILL SKIP THE
		REQUESTED NUMBER OF FILES.
 TY	 Y	OUTPUT THE NUMBER OF RECORDS REQUESTED ON THE CRT.
 FI	 Y	OUTPUT THE NUMBER OF RECORDS REQUESTED TO THE FILE NAMED
		FOR003.DAT IN THE ACCOUNT UNDER WHICH THE PROGRAM IS RUNNING.
                WHEN THIS CODE IS SELECTED THE USER WILL BE ASKED TO 
                INPUT THE DESIRED RECORD LENGTH (BYTES) FOR THE OUTPUT FILE AND
                THE TYPE OF CONVERSION (IF ANY ) DESIRED.  INPUTTING
                A RECORD LENGTH OF ZERO (0) WILL LEAVE THE RECORDS WITH
                THEIR OLD LENGTH.
                THE CONVERSION WILL GENERALLY ASSUME THAT ALL OF A GIVEN FILE
                IS OF THE SAME TYPE (IE ALL CHARACTORS OR ALL REAL*4)
                WHEN A CHARACTOR CONVERSION IS REQUESTED AND WHEN THE
                OUTPUT RECORD SIZE IS LESS THAN 132 THE OUTPUT WILL
                BE IN A1 FORMAT OTHERWISE ALL OUTPUT IS UNFORMATTED.
                IF YOU ASK FOR A REAL*4 CONVERSION THEN THE PROGRAM WILL
                ASK IF YOU WOULD LIKE IT TO CHECK FOR AND PROPERLY CONVERT
                ANY INTEGER *4 NUMBERS MIXED IN WITH THE REAL*4 NUMBERS.
                INTEGER*4 NUMBERS WITH MAGNITUDES <2**24 WILL BE PROPERLY
                CONVERTED INTO 11/70 INTEGER*4 NUMBERS.
                THE PROGRAM CAN ALSO HANDLE TAPES PRODUCED WITH FORTRAN 
                UNFORMATTED WRITES AS LONG AS ALL THE RECORDS ARE OF EQUAL
                LENGTH.  WHEN SPECIFYING THE RECORD LENGTH ADD 4 TO
                ACCOUNT FOR THE 4 BYTE CONTROL WORD AT THE START OF EACH RECORD.
 SZ	 Y	READ THE REQUESTED NUMBER OF RECORDS, REPORTING THE LENGTH OF
		EACH TO THE CRT.
 DU	 N	DUPLICATE FILES FROM THE INPUT TAPE TO AN OUTPUT TAPE.  THE
		PROGRAM WILL REQUEST AN OUTPUT 'UNIT ID' AND 'CHARACTERISTICS',
		AS WELL AS STARTING AND ENDING FILE NUMBERS FROM THE INPUT
		TAPE.  FILES WILL BE COPIED IN THEIR ENTIRETY, AND EACH WILL BE
		FOLLOWED WITH AN EOF. THE OUTPUT TAPE WILL NOT BE MOVED AT
		THE END OF A REQUEST.  THUS, YOU CAN SELECTIVELY COPY FILES
		FROM THE INPUT UNIT, REORDERING THEM AS REQUIRED.
 EF	 N	WRITE AN END OF FILE ON ONE OF THE UNITS.  IF ADDITIONAL EOF'S
		ARE REQUIRED ON THE TAPE, YOU MAY WRITE THEM WITH THIS CODE.
		(SOME SYSTEMS REQUIRE 3 CONSECUTIVE EOF'S FOR EOT.) NOTE
		THAT THE EOF'S CAN BE WRITTEN ON EITHER UNIT, AS ENTERED BY
		THE USER IN RESPONSE TO A PROMPT BY THE PROGRAM.  THIS CAN
		BE USED TO SHORTEN TAPES OR TO ADD EOF'S TO TAPES WHICH HAVE
		NONE TO MAKE PROCESSING BY OTHER PROGRAMS SIMPLER.
 
REPEAT COUNTS MAY BE ANY DECIMAL NUMBER UP TO FIVE DIGITS IN LENGTH.  IF AN
EOF IS ENCOUNTERED PRIOR TO COMPLETION OF AN ACTION AS REQUESTED, THE ACTION
WILL TERMINATE, AND THE PROMPT FOR 'ACTION CODE' WILL APPEAR.
 
CAUTION: 
	A) BE EXTREMELY CAREFUL WITH 'EF'.  YOU CAN DESTROY A TAPE
	   EASILY BY WRITING EOF'S ON IT!!!!!
 
********************************************************************************