[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference hydra::amiga_v1

Title:AMIGA NOTES
Notice:Join us in the *NEW* conference - HYDRA::AMIGA_V2
Moderator:HYDRA::MOORE
Created:Sat Apr 26 1986
Last Modified:Wed Feb 05 1992
Last Successful Update:Fri Jun 06 1997
Number of topics:5378
Total number of notes:38326

2854.0. "KER files??????????" by GIDDAY::MORAN () Wed Aug 23 1989 02:04

    I wonder if anyone can help me ?
    
    I was look at the later FISH disks (200-) and noticing that most of
    them are in .KER format.
    
    Is this a new form of compressing a file like ARC and if it is can
    someone point out where the new decompactor is ?
    
    thanks Shaun.
T.RTitleUserPersonal
Name		DateLines
2854.1only another file formatFRAIS2::ZIMMERMANNNCP> DEF MOD WORK DEST NL:Wed Aug 23 1989 06:5912
    :-)  :-) NO don't panic
    These files are in variable length 510 bytes; a format which
    kermit likes. But X/Y/ZModem need CR, Stream-LF format to be
    'happy' VMS-arc and VMS-zoo also need CR STR-lf.
    There is a conversation-program available, it's name is CVTARC.EXE
    give me some minutes and i upload a small procedure which makes
    the use of CVTARC.EXE very easy.
    
    so long
    
    Ralf
    ====
2854.2procedure followsFRAIS2::ZIMMERMANNNCP> DEF MOD WORK DEST NL:Wed Aug 23 1989 07:0195

    
$!
$ SET TER/WI=80
$!
$ WRITE SYS$OUTPUT "CONVERSION-PROCEDURE for Kermit OR XModem"
$ Write sys$output ""
$ WRITE SYS$OUTPUT "< V > = Variable lenght 510 Bytes for Kermit"
$ WRITE SYS$OUTPUT "< U > = CR, STREAM-LF for XModem and VMS-Arc"
$ Write sys$output ""
$ Write sys$output ""
$!
$ inquire/nopunct answer "Which Format? (V,U)"
$ if answer .eqs. "V" then goto CVTF
$ if answer .eqs. "U" then goto CVTS
$ EXIT
$!
$!
$!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
$!
$!
$ CVTF:
$!=====
$!
$ ! Command procedure to convert all files in the current directory to
$ ! VARIABLE LENGTH 510 BYTE format if they are not already so.
$!
$ cvt	:== $dua1:[zimmermann._amiga._vmstools]cvtarc
$ say	:== write sys$output
$
$ say "Converting all files in ''f$directory()' to VARIABLE 510 BYTE format"
$ say "" 
$ loop:
$	file = f$search("*.*")		! Will get each file in succession
$	if file .eqs. "" then goto done	! and return NULL after last file
$	RFM = f$file_attributes(file,"RFM")	! get Record Format
$	RAT = f$file_attributes(file,"RAT")	!  and record attributes
$	say "File: ''file' :"
$	say "      RAT = ''RAT', RFM = ''RFM'"                      
$	! If already in correct format, don't bother
$	if ((RAT .eqs. "") .and. (RFM .eqs. "VAR")) then goto loop
$	! Don't touch text files!
$	if ((RAT .eqs. "CR") .and. (RFM .eqs. "VAR")) then goto loop
$
$	say "      - Converting to VARIABLE, 510 BYTE..."
$	file = f$element(0,";",file)		! Strip off version
$	cvt v 'file
$	say "      - ... done"
$	goto loop
$
$ done:
$
$! say "Purging directory..."
$! purge/LOG
$ say "Conversion Complete"
$ exit
$
$!
$!
$ CVTS:
$!=====
$!
$ ! Command procedure to convert all files in the current directory to
$ ! CR, STREAM_LF format if they are not already so.
$!
$ cvt	:== $dua1:[zimmermann._amiga._vmstools]cvtarc
$ say	:== write sys$output
$
$ say "Converting all files in ''f$directory()' to CR, STMLF format"
$ say "" 
$ loop:
$	file = f$search("*.*")		! Will get each file in succession
$	if file .eqs. "" then goto done	! and return NULL after last file
$	RFM = f$file_attributes(file,"RFM")	! get Record Format
$	RAT = f$file_attributes(file,"RAT")	!  and record attributes
$	say "File: ''file' :"
$	say "      RAT = ''RAT', RFM = ''RFM'"                      
$	! If already in correct format, don't bother
$	if ((RAT .eqs. "CR") .and. (RFM .eqs. "STMLF")) then goto loop
$	! Don't touch text files!
$	if ((RAT .eqs. "CR") .and. (RFM .eqs. "VAR")) then goto loop
$
$	say "      - Converting to CR, STMLF..."
$	file = f$element(0,";",file)		! Strip off version
$	cvt u 'file
$	say "      - ... done"
$	goto loop
$
$ done:
$
$! say "Purging directory..."
$! purge/LOG
$ say "Conversion Complete"
$ exit
2854.3ELWOOD::PETERSWed Aug 23 1989 12:218
    
    
    	The .KER files are the .ZOO files converted to 510 fixed byte
    for kermit download. The .ZOO files should also be in the directory.
    Both files contain the same information.
    
    		Steve Peters