home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / UPDMEMB.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-30  |  768 b   |  35 lines
  1. 10  COMMON DRIVEID$,FILEID$,RECNUM2,DRIVEID2$,FILEID2$
  2. 20  OPEN DRIVEID$+FILEID$ AS #1  LEN=4
  3. 30  FIELD #1, 4 AS EXPDATE$
  4. 40  CLS
  5. 50  PRINT " "
  6. 60  PRINT "    Ready printer ..."
  7. 70  ON ERROR GOTO 900
  8. 100  LPRINT "            Membership Information"
  9. 110  LPRINT " "
  10. 120  LPRINT A$
  11. 130  IF B$<>=SPACE$(30) THEN LPRINT B$
  12. 140  IF C$<>=SPACE$(30) THEN LPRINT C$
  13. 150  LPRINT D$;E#
  14. 160  LPRINT "    Welcome to the Interchange.  Your membership number "
  15. 170  LPRINT " is ";RECNUM2
  16. 180  LPRINT " "
  17. 190  LPRINT "    Please use this number on all orders and correspondence."
  18. 200  LPRINT " "
  19. 210  GET #1,1
  20. 220  LPRINT " "
  21. 230  LSET EXPDATE$=MKS$(RECNUM2)
  22. 240  LPRINT " "
  23. 310  PUT #1,1
  24. 320  LPRINT " "
  25. 330  LPRINT " "
  26. 340  LPRINT " "
  27. 350  LPRINT " "
  28. 360  LPRINT " "
  29. 370  LPRINT " "
  30. 380  LPRINT " "
  31. 390  LPRINT " "
  32. 400  CLOSE #1
  33. 410  CHAIN DRIVEID$+"members"
  34. 900  RESUME
  35.