home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / zapdup.200 < prev    next >
Text File  |  2006-10-19  |  1KB  |  24 lines
  1. 0 'ZAPDUP.200  (c) 1990 Wilson Van Alst
  2. 1 'v1.5            All rights reserved.
  3. 2 '
  4. 3 'This creates ZAPDUP.CO, an AltLCD
  5. 4 'utility that removes duplicate
  6. 5 'records from a TEXT file "in place."
  7. 6 'Run ZAPDUP.CO from the main menu,
  8. 7 'or to use within a BASIC program:
  9. 8 'LOADM"ZAPDUP", OPEN the intended .DO
  10. 9 'file for any read/write operation,
  11. 10 'and CALL 63605.
  12. 11 '
  13. 12 READT,E:C=T+E:FORR=TTOE:READY
  14. 13 PRINT@90,R;:POKER,Y:C=C+Y:NEXT
  15. 14 READY:IFC-YTHENPRINT"Data error":END
  16. 15 SAVEM"zapdup",T,E,T:MENU
  17. 100 DATA63574,63703,33,86,248,34,52,239,205,77,79,205,42,42,205,254,109,70,105,108
  18. 101 DATA101,0,205,240,84,215,200,205,67,45,205,202,90,205,189,43,202,86,248,235,229
  19. 102 DATA205,104,130,43,126,254,10,225,194,69,79,34,149,248,205,183,248,202,194,248
  20. 103 DATA34,167,248,17,0,0,26,190,194,139,248,35,19,254,10,194,151,248,205,201,143
  21. 104 DATA17,0,0,213,126,18,35,19,254,26,194,170,248,225,195,145,248,62,10,190,35,194
  22. 105 DATA185,248,126,254,26,201,42,149,248,205,183,248,194,136,248,229,229,42,21,246
  23. 106 DATA193,8,77,68,225,195,218,130,145837
  24.