home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / DTJ950307B.ARC / DELOLDFILES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  640 b   |  21 lines
  1. 10 RESTORE:PRINT
  2. 20 PRINT "THIS DELETES THE OLD VERSIONS OF FILES"
  3. 30 PRINT "FOUND IN DTJFILES.SDA.  AFTER RUNNING"
  4. 40 PRINT "THIS PROGRAM, RUN DTJFILES.SDA.  THIS"
  5. 50 PRINT "PROGRAM WILL NOT DELETE YOUR MENU"
  6. 60 PRINT "FILES."
  7. 70 PRINT
  8. 80 INPUT "        DRIVE   8[157][157][157]";D
  9. 90 INPUT "   PARTITION#  0[157][157][157]";P
  10. 100 INPUT " SUBDIRECTORY";S$
  11. 110 PRINT
  12. 120 PRINT "PRESS ANY KEY TO START.":POKE198,0:WAIT198,255:GETA$:P$=""
  13. 130 PRINT"WORKING...": OPEN1,D,15:IFP<>0THENP$=MID$(STR$(P),2)
  14. 140 READA$:IFA$<>""THENPRINT#1,"S"+P$+S$+":"+A$:INPUT#1,E,E$:GOTO140
  15. 150 CLOSE1
  16. 160 PRINT "DONE."
  17. 170 END
  18. 180 DATA "A%[205][197][205][196][213][205][208]","A.[211][217][211][201][206][198][207]","H-*","P-1[203][216][205][207][196][197][205]"
  19. 190 DATA "P-1[203][216][205][207][196][197][205]/[211]","P-[216][205][207][196][197][205]","P-[216][205][207][196][197][205][195][210][195]","P-[216][205][207][196][197][205][195][210][195]/[211]","P-[193][211][195][201][201]"
  20. 200 DATA "P-[208][213][206][212][197][210]","STATISTICS",""
  21.