home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / oh_fm / townsfos / del.bas < prev    next >
BASIC Source File  |  1980-01-02  |  1KB  |  52 lines
  1. 10000 '
  2. 10010 ' Del : Delete a file
  3. 10020 '
  4. 10030 ' Filename "DEL.BAS"
  5. 10040 '
  6. 10050 ' Last Update 1989. 5.20 Version 1.01
  7. 10060 '
  8. 10070 '
  9. 10080 DEFINT A-Z
  10. 10090 RFLG=0
  11. 10100 FL$=""
  12. 10110 '
  13. 10120 IF ARGC>1 THEN *PARA
  14. 10130   PRINT : PRINT "***** Del : Delete a File : Ver.1.01 *****"
  15. 10140   PRINT
  16. 10150   LINE INPUT "    Filename ? ",FL$ : IF FL$="" THEN *END_EXIT
  17. 10160 GOTO *MAIN
  18. 10170 '
  19. 10180 *PARA
  20. 10190 FOR I=1 TO ARGC-1 : A$=ARGV$(I)
  21. 10200   IF A$="?" THEN *HELP
  22. 10210   IF A$="-r" OR A$="-R" THEN RFLG=-1:GOTO *PA_1
  23. 10220   IF FL$="" THEN FL$=A$:GOTO *PA_1
  24. 10230   GOTO *PARA_ERR
  25. 10240 *PA_1:NEXT
  26. 10250 GOTO *MAIN
  27. 10260 '
  28. 10270 *HELP
  29. 10280 S_A$="\n***** Help Message for Del *****\n\n":GOSUB *S_PUTS_E
  30. 10290 S_A$="    Del : Delete a file\n":GOSUB *S_PUTS_E
  31. 10300 S_A$="    Usage : Del <filename> [-r]\n":GOSUB *S_PUTS_E
  32. 10310 S_A$="      -r : Ready\n":GOSUB *S_PUTS_E
  33. 10320 GOTO *END_EXIT
  34. 10330 '
  35. 10340 *PARA_ERR
  36. 10350 S_A$="@ Parameter Error!\n":GOSUB *S_PUTS_E
  37. 10360 '
  38. 10370 *END_EXIT
  39. 10380 IF ARGC=0 THEN END
  40. 10390 RETURN *S_T_RETURN
  41. 10400 '
  42. 10410 ' MAIN
  43. 10420 '
  44. 10430 *MAIN
  45. 10440 OPEN "I",#1,FL$ : CLOSE
  46. 10450 IF RFLG THEN *DEL_2
  47. 10460 *DEL_1:INPUT "    Are You Sure (y/n) ? ",A$
  48. 10470        IF A$="" OR A$="n" OR A$="N" THEN *END_EXIT
  49. 10480        IF A$<>"y" AND A$<>"Y" THEN *DEL_1
  50. 10490 *DEL_2:KILL FL$
  51. 10500 GOTO *END_EXIT
  52.