/PROGRAM TO DELETE DISK FILES.
/USES FILENAME EXACTLY AS TYPED
/IN, SO IT CAN BE USED TO DELETE
/FILES CREATED WITH BUGGY PROGRAMS,
/WHICH INCLUDE SPACES AND OTHER
/NASTY THINGS.
*200
	CLA
	TAD	PROMPT
	SAS			/PRINT PROMPT
	JMP	.-2		/LOOP UNTIL DONE
	TAD	KBBUF
	KSR			/READ IN FILENAME
	TAD	CRLF
	SAS			/PRINT CR/LF
	JMP	.-2		/LOOP UNTIL DONE
	JMS	PACK		/PACK 6 ASCII CHARS INTO 3 WORDS
	JMS	PACK
	JMS	PACK
	CLA
	TAD	KFCB		/POINT TO PARAM BLOCK
	OPEN			/OPEN THE FILE
	SZA			/CONTINUE IF NO ERROR
	JMP	ERROR
	TAD	KFCB
	FINF			/GET LENGTH, AMONG OTHER THINGS
	CLA
	TAD	FCB+6		/GET LENGTH INTO AC
	DCA	FCB+1		/SET UP FOR RED
	TAD	KFCB		/POINT AT CTRL BLOCK
	RED			/ZERO FILE
	SZA
	JMP	ERROR
	TAD	(1)
	CLOS			/CLOSE FILE 0
	HLT			/AND EXIT
/
ERROR,	CLA
	TAD	ERRTXT
	SAS			/PRINT "ERROR"
	JMP	.-2		/LOOP UNTIL DONE
	HLT			/AND EXIT
/
PACK,	0
	CLA
	TAD	I BUFPTR	/GET CHAR
	ISZ	BUFPTR		/INC PTR
	TAD	M240		/CONVERT TO SIXBIT
	CLL			/CLEAR CARRY FROM SUBTRACT
	RTL			/ROTATE LEFT 6 BITS
	RTL
	RTL
	DCA	TEMP		/SAVE
	TAD	I BUFPTR	/GET CHAR
	ISZ	BUFPTR		/INC PTR
	TAD	M240		/CONVERT TO SIXBIT
	TAD	TEMP		/ADD IN OTHER CHAR
	DCA	I FCBPTR	/PUT IN FCB
	ISZ	PCBPTR		/INC PTR
	JMP	I PACK		/RETURN
/
PROMPT,	.+1
	-6
	.
	"I
	"N
	"P
	"U
	"T
	":
KBBUF,	.+1
	-7			/INCLUDE CAR RET
	.
	240			/INIT TO 7 SPACES
	240
	240
	240
	240
	240
	240
CRLF,	.+1
	-2
	.
	215			/CR
	212			/LF
ERRTXT,	.+1
	-7
	.
	"E
	"R
	"R
	"O
	"R
	215
	212
FCB,	0
	0
	0
	0
	0
	0
	0
BUFPTR,	KBBUF+3
FCBPTR,	FCB+2
TEMP,	0
KFCB,	FCB
M240,	-240
$