PROGRAM CONVERT_PRIME ! Fall 1990 DECUS Submissions ! Neither myself nor McDonnell Douglas Missile Systems Company accepts any ! responsibility for the use or reliability of these submissions. They ! may not be sold for profit, but may be distributed freely otherwise. ! written by: ! Charles M. Taylor ! McDonnell Douglas Missile Systems Company ! Mailcode 3064105 ! P. O. Box 516 ! St. Louis, MO 63166-0516 ! This program can be used to convert a file from a 7-bit Prime tape ! to 8-bit ASCII. This program reads the records from unit 1, clears ! the high-order bit on every byte and writes the result to unit 2. ! Before running the program, use: ! $ ASSIGN input_file FOR001 ! $ ASSIGN output_file FOR002 byte record( 80 ) byte out_record( 80 ) 1 read( 1,10,end=999 ) record 10 format( 80a1 ) do i=1,80 out_record( i ) = ( record( i ) .and. 127 ) end do write( 2,10 ) out_record go to 1 999 stop end