home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / REORMAIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-02-15  |  1.5 KB  |  40 lines
  1. 10  SCREEN 0,1
  2. 20  COLOR 15,9,4
  3. 30  CLS
  4. 40  PRINT " "
  5. 50  PRINT " "
  6. 60  PRINT "         REORGANIZE  FILE"
  7. 70  PRINT " "
  8. 80  PRINT " "
  9. 90  PRINT " PLACE SCRATCH DISKETTE IN DRIVE A"
  10. 100  PRINT " "
  11. 110  PRINT "      PRESS ANY KEY WHEN READY"
  12. 120  PRINT " "
  13. 130  K$=INKEY$: IF K$ = "" THEN 130
  14. 140  OPEN "B:MAILLIST.REE" AS #1 LEN=128
  15. 150  FIELD #1, 9 AS ZIPCODE$, 30 AS NAM$, 30 AS ADD1$, 30 AS ADD2$, 29 AS CITYST$
  16. 160  OPEN "A:REORGML.REE" AS #2 LEN=128
  17. 170  FIELD #2, 9 AS ZIP2$, 30 AS NAM2$, 30 AS ADD12$, 30 AS ADD22$, 29 AS CITYST2$
  18. 180  COLOR 23,0,3
  19. 190  PRINT "      REORG IN PROGRESS"
  20. 200  COLOR 15,9,4
  21. 210  PRINT " "
  22. 220  RECNUM1=0
  23. 225  DONE = 0
  24. 230  RECNUM2=0
  25. 240  FOR I = 1 TO 1000
  26. 241  IF DONE=1 THEN 390
  27. 250  RECNUM1 = RECNUM1 + 1
  28. 260  IF RECNUM1 > 1000 THEN 390
  29. 280  GET #1,RECNUM1
  30. 290  ZIP# = CVD(ZIPCODE$)
  31. 300  IF ZIP# = 1E+09 THEN 250
  32. 310  LSET ZIP2$ = MKD$(ZIP#)
  33. 320  LSET NAM2$ = NAM$
  34. 330  LSET ADD12$ = ADD1$
  35. 340  LSET ADD22$ = ADD2$
  36. 350  LSET CITYST2$ = CITYST$
  37. 360  RECNUM2 = RECNUM2 + 1
  38. 370  PUT #2, RECNUM2
  39. 380  IF ZIP# = 0
  40.