C PROGRAM DELETE.FT C ================ C C C PETER LEMKIN C NATIONAL INSTITUTES OF HEALTH C BETHESDA, MD 20014 C C MARCH 6, 1972 C REVISED DECEMBER 4, 1972 C C C ABSTRACT C ======== C "DELETE" IS AN OS/8 PROGRAM WHICH DELETES FILES WITH ILLEGAL C "PIP" FILE NAMES FROM DEVICE SYS:. SUCH FILE NAMES CAN BE C CREATED IN THE SYSTEM UNDER FORTRAN. FOR EXAMPLE THE FILE C "%!,. Y..DA" C COULD BE CREATED BY FORTRAN. THIS FILE NAME WILL NOT BE C ACCEPTED BY PIP SINCE THE COMMAND DECODER WILL TRAP IT AS C ILLEGAL SINCE IT HAS A SPACE IN THE MIDDLE OF THE NAME, AND C "%", "," AND "." ARE ILLEGAL CHARACTERS. WHEN DELETE STARTS C IT WILL GIVE INSTRUCTIONS AS TO ITS USAGE. C **PAGE C C C LOADING SEQUENCE C ---------------- C .R FORT C *DELETE.RL_DELETE.FT C .R LOADER C *DELETE C *LIB8.RL/L C *$ C .SAVE SYS:DELETE.SV C C C C C C C C OPERATOR DEFINITIONS C ==================== S OPDEF JMSI 4400 /FAKE A JMS I........ C C C DIMENSION FILE(2) C C C C 1. INITIAL THE NEEDED CONSTANTS ITTY=1 WRITE(ITTY,177) 177 FORMAT(' ALL FILE NAMES HAVE THE FORMAT "XXXXXX.XX", IF THERE 1 IS ',/' A SHORT FILE USE "AT SIGN" FOR THE CORRESPONDING X.', 2/,' TO RETURN TO OS/8, TYPE "ENDFIL.".') S CLA CLL S TAD (5640 /". " S DCA \JPERIOD /SET UP THE CONSTANT ENDFILE='ENDFIL' C C C 2. INPUT THE FILE. 10 READ(ITTY,100) FILE(1),IPERIOD,FILE(2), 100 FORMAT('DELETE THE FILE:',1A6,1A1,1A6) C C C C 3. TEST IF AN END OF FILE. IF(IPERIOD-JPERIOD)400,50,400 50 IF(FILE(1)-ENDFILE)200,12,200 C C C C 4. DONE, GO RETURN. 12 CALL EXIT C C C C 5. GO CLOSE THIS FILE. S\200, CLA IAC S CPAGE 13 S 6212 /CIF 10 S JMSI (7700 /THE USR S 4 /DO A CLOSE OPERATION S \FILE /POINTER TO THE FILENAME ENTRY S 0000 /DELETES THE FILE IF THE # BLOCKS=0 S JMP \400 /ERROR GOTO 10 C C C C 6. ERROR, FILE NOT THERE... 400 WRITE(ITTY,401)FILE(1),IPERIOD,FILE(2) 401 FORMAT(' THE FILE ',1A6,1A1,1A2,' WAS NOT FOUND.') GOTO 10 END