home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / BUILDML.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-18  |  1.6 KB  |  70 lines
  1. 40   PRINT "  "
  2. 50  PRINT "    Warning, the mailing list file"
  3. 60  PRINT " is about to be erased."
  4. 70  PRINT " "
  5. 80  PRINT "    Put diskette to contain new"
  6. 90  PRINT "file in drive B."
  7. 100  PRINT "    To continue, press + key.
  8. 110  PRINT "    Press ESC key to exit"
  9. 120  K$=INKEY$:IF K$ = "" THEN 120
  10. 130  IF K$ = "+" THEN 150
  11. 140  IF K$ = CHR$(27) THEN 610
  12. 150  OPEN "b:maillist.ree" AS #1 LEN=128
  13. 160  FIELD #1, 9 AS ZIPCODE$, 30 AS NAM$, 30 AS ADD1$, 30 AS ADD2$, 29 AS CITYST$
  14. 180  LSET ZIPCODE$=MKD$(4)
  15. 190  CLS
  16. 200  PRINT " "
  17. 210  PRINT "     SPECIFY FOR COMPANY"
  18. 220  PRINT " "
  19. 230  PRINT " "
  20. 240  INPUT "  COMPANY NAME==>";COMP$
  21. 250  INPUT "  ADDRESS     ==>";ADDRES$
  22. 260  INPUT "  CITY/STATE  ==>";CTYST$
  23. 270  INPUT "  PHONE NUMBER==>";PHONE$
  24. 280  LSET NAM$=COMP$
  25. 290  LSET ADD1$=ADDRES$
  26. 300  LSET ADD2$=PHONE$
  27. 310  LSET CITYST$=CTYST$
  28. 320  PUT #1,1
  29. 330  PRINT " "
  30. 340  INPUT "  PURPOSE     ==>";COMP$
  31. 350  INPUT "  TITLE 1     ==>";ADDRES$
  32. 360  INPUT "  TITLE 2     ==>";CTYST$
  33. 370  INPUT "  RATE        ==>";PHONE$
  34. 380  LSET NAM$=COMP$
  35. 390  LSET ADD1$=ADDRES$
  36. 400  LSET ADD2$=PHONE$
  37. 410  LSET CITYST$=CTYST$
  38. 420  PUT #1,2
  39. 421  PRINT " "
  40. 422  PRINT "-return address-"
  41. 423  INPUT "  NAME        ==>";COMP$
  42. 424  INPUT "  ADDRESS     ==>";ADDRES$
  43. 425  INPUT "  ADDRESS 2   ==>";PHONE$
  44. 426  INPUT "  CITY/STATE  ==>";CTYST$
  45. 427  INPUT "  ZIP CODE    ==>";ZIP$
  46. 430  LSET NAM$=COMP$
  47. 440  LSET ADD1$=ADDRES$
  48. 450  LSET ADD2$=PHONE$
  49. 460  LSET CITYST$=CTYST$
  50. 462  ZIPCD#=VAL(ZIP$)
  51. 465  LSET ZIPCODE$=MKD$(ZIPCD#)
  52. 470  PUT #1,3
  53. 480  PRINT "   "
  54. 490  COLOR 24,9
  55. 495  LOCATE 23,3
  56. 500  PRINT "FILE CREATION IN PROGRESS"
  57. 505  LOCATE 23,3
  58. 510  COLOR 15,9,4
  59. 515  Z# = 0
  60. 518  A$=MKD$(Z#)
  61. 519  ON ERROR GOTO 620
  62. 520  FOR I  = 4 TO 1000
  63. 550  PRINT #1,A$
  64. 560  NEXT
  65. 570  PRINT #1,"//eof"
  66. 590  PRINT "   FILE HAS BEEN BUILT    "
  67. 600  ON ERROR GOTO 0: PUT #1: CLOSE
  68. 610  CHAIN "B:MAILMENU"
  69. 620  PUT #1: RESUME
  70.