REM *******************************************************************
REM
REM	STRIPNUL.BAS	CB80	11-22-84	W P WOODALL
REM
REM	STRIP NULLS OUT OF COMMUNICATIONS TEXT CAPTURE FILES.
REM	INVOKE WITH INPUT FILENAME ON COMMAND LINE.
REM	INPUT FILE MUST BE OF TYPE ".RCV". AT FINISH, INPUT RENAMED
REM	TO ".BAK", OUTPUT SET TO ORIGINAL FILENAME. 
REM						last changed: 11-22-84
REM *******************************************************************

START:	PRINT"stripnul version 1.0"
	PRINT"Wm. P. Woodall   11-21-84"
	PRINT
	FILE$=COMMAND$
	IF LEN(FILE$)=0 THEN GOTO INSTRUCT
	PERIOD=MATCH(".",FILE$,1): IF PERIOD=0 THEN GOTO FOPEN1
	L=LEN(FILE$)-PERIOD:EXT$=RIGHT$(FILE$,L)
	FILE$=LEFT$(FILE$,PERIOD-1)
	FILE1$=FILE$+"."+EXT$
	FILE0$=FILE$+".BAK"
	GOTO FOPEN2

FOPEN1:	FILE1$=FILE$+".RCV"
	FILE0$=FILE$+".BAK"

FOPEN2:	IF END #1 THEN NOFILE
	OPEN FILE1$ AS 1
	CLOSE 1
	RERROR%=RENAME(FILE0$,FILE1$)
	IF NOT(RERROR%) THEN GOTO EXISTS
	IF END #1 THEN ENDIT
	OPEN FILE0$ AS 1
	CREATE FILE1$ AS 2

MAIN:	CHAR%=GET(1)
	IF CHAR%=0 THEN GOTO MAIN
	PUT 2,CHAR%
	GOTO MAIN

INSTRUCT:	REM PRINT INSTRUCTIONS FOR USAGE
	PRINT"Usage is :"
	PRINT"STRIPNUL FILENAME"
	PRINT"Where FILENAME is file to be stripped of null characters (X'00')"
	PRINT"FILENAME must have '.RCV' as type."
	PRINT
	PRINT"Original file is renamed to FILENAME.BAK. Stripped file takes"
	PRINT"original filename."
	GOTO EOJ

NOFILE:	REM NO INPUT FILE
	PRINT"INPUT FILE NOT FOUND"
	GOTO EOJ

EXISTS:	REM .BAK ALREADY EXISTS
	PRINT FILE$+".BAK ALREADY EXISTS - PROGRAM ABORTED"
	GOTO EOJ

ENDIT:	REM NORMAL PROGRAM TERMINATION
	CLOSE 1
	CLOSE 2

EOJ:	REM ABORTED PROGRAM EXECUTION ENDS HERE

	END