þþ2 èX;SAVE #D2:DUPDEL.M65òAŒDELETE FILESAü(X; **** DELETE FILE ROUTINE ****X;X;†DELFIL „DEMG$ †GETIC1. „PERX;;EXIT IF PARAM ERRORS8X;B/ †CHKVER;;BE SURE THAT IT IS VER. 2 DISKETTELX;V@X; CONTINUE WITH DELETE - ALLOW ONLY FOR DISK DEVICE ID`X;jQƒPAR;;GET DEVICEt!R> D;;ONLY ALLOW DELETE FOR D:~FƒDF1ˆ Q>4ƒNDF’ $>5ƒNDFœ †DSPLIN¦ !†MENUSL°ƒNDF ANOT A DISK FILEA=‚CRØX;â ƒDF1$>ìQƒOPTöR> N;;IF OPTION=N, NO QUERYHƒDWQ;;NO, DELETE WITH QUERY  Q>†DELETE P…ICCOM9 …CIOCL( !†MENUSL2ƒDWQQ>4ƒTYQ< $>5ƒTYQF$ †DSPLIN;;SAY TYPE Y TO DELETE...PQ>Z0P„IPTR;;HOW MANY FILES TO SKIP, NONE AT FIRSTd$> ;;SET UP DELETE IOCBn Q>†DELETEx P…ICCOM9‚ Q>4ƒDB3Œ P…ICBAL9– Q>5ƒDB3  P…ICBAH9ªQ> D´ P„DBUF¾Q> :È P„DBUFÒ-QƒPAR;;DEVICE NUMBER OR : FROM OP INPUTÜR> :æ H†:HASDNð#Q> 1;; NO DRIVE NUMBER - USE D1:ú)†:HASDNP„DBUF;;KLUDGE KLUDGE KLUDGE „IDRD$> Q>„OPEN P…ICCOM9"Q>,P…ICAX19;;DIR READ OPEN6 Q>4ƒPAR@ P…ICBAL9J Q>5ƒPART P…ICBAH9^ …CIOCLh Q>4„DBUFr P…ICBAL9| Q>5„DBUF† P…ICBAH9 Q>†GETRECš P…ICCOM9¤Q>®(PƒPTR;;HOW MANY FILES WE HAVE SKIPPED¸X;Â.X; READ FILENAME FROM DIR, QUERY AND DELETEÌX;Ö „RDFN$>àQ>ê P…ICBLL9ôQ>þ P…ICBLH9& …CIOCL;;READ A LINE FROM DIRECTORY)Q„DBUF;;IF FILE LINE, THIS IS BLANKR> ;; Is it a space?&#H„DELX;;THIS IS FREE BLOCKS LINE0#ƒPTR;;COUNT THIS FILE:"QƒPTR;;HAVE WE SKIPPED ENUF YETD R„IPTRNG„RDFN;;BR IF NOX$>;;PUT PTRb%>;;GET PTRlX;vX; MESSAGE DELETE FILE NAMES€X;Š„MDN1Q„DBUF8”R> ;;END OF FILENAMEž F„MDN2¨ P„DBUF9²2¼3Æ(>Ð G„MDN1ÚX;ä!X; FILENAME IS MOVED, PUT .EXTîX;ø „MDN2Q> . P„DBUF9 2%> ;;WHERE EXT IS „MDN3Q„DBUF8* P„DBUF943>2H)> R G„MDN3\&„SAVX;;PUT CR HERE LATERfQ> ?;;FOR QUERYp P„DBUF9z2„Q>‚CRŽ P„DBUF9˜ Q>4ƒDB3¢ $>5ƒDB3¬# †DSPLIN;;GO ASK ABOUT THIS FILE¶ †CHRGETÀR> YÊH„RDFN;;GO DO NEXT FILENAMEÔ/QƒPTR;;NUMBER FILES WE HAVE GONE THRU SO FARÞ!P„IPTR;;IS NEW NUMBER TO SKIP.è $„SAVXòQ>‚CRü P„DBUF9 $> ;;DELETE IOCB …CIOCL …CLOS1$ )!„IDRD;;CLOSE AND REOPEN DIR READ FILE. $„DELX …CLOS1;;CLOSE DIR READ FILE8 !†MENUSLB …CLOS1$>L Q>…CLOSEV P…ICCOM9` !…CIOCL;;DO CLOSE AND RETURNj 0ƒTYQ A…TYPE A="=AYA="=A TO DELETE...A=‚CR’ X;œ „DEMG ADELETE FILE SPECA=‚CR¦ X;LIST