/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 $