home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / zapdup.100 < prev    next >
Text File  |  2006-10-19  |  1KB  |  24 lines

  1. 0 'ZAPDUP.100   (c)1990 Wilson Van Alst
  2. 1 'v1.6            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 64733
  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
  17. 100 DATA64704,64836,33,192,252,34,82,246,205,49,66,205,58,31,33,64,253,205,162,17,205
  18. 101 DATA62,70,215,200,205,250,33,205,11,76,205,160,32,202,192,252,235,229,205,45
  19. 102 DATA107,43,126,254,10,225,194,41,66,34,253,252,205,31,253,202,42,253,34,15,253
  20. 103 DATA17,0,0,26,190,194,243,252,35,19,254,10,194,255,252,205,118,118,17,0,0,213
  21. 104 DATA126,18,35,19,254,26,194,18,253,225,195,249,252,62,10,190,35,194,33,253,126
  22. 105 DATA254,26,201,42,253,252,205,31,253,194,240,252,229,229,42,98,251,193,8,77,68
  23. 106 DATA225,195,159,107,70,105,108,101,0,147756
  24.