home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / BUILMEMB.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-30  |  896 b   |  38 lines
  1. 10  COMMON DRIVEID$,FILEID$,DRIVEID2$,FILEID2$,RECNUM2
  2. 30  CLS
  3. 40   PRINT "  "
  4. 50  PRINT "    Warning, the member file is about to be erased."
  5. 70  PRINT " "
  6. 80  PRINT "    Put diskette to contain new file in drive "+DRIVEID$
  7. 90  PRINT " "
  8. 95  PRINT " "
  9. 100  PRINT "    To continue, press + key.
  10. 110  PRINT "    Press ESC key to exit"
  11. 120  K$=INKEY$:IF K$ = "" THEN 120
  12. 130  IF K$ = "+" THEN 150
  13. 140  IF K$ = CHR$(27) THEN 610
  14. 150  OPEN DRIVEID$+FILEID$ AS #1 LEN=4
  15. 160  FIELD #1, 4 AS EXPDATE$
  16. 180  LSET EXPDATE$=MKS$(4)
  17. 190  CLS
  18. 320  PUT #1,1
  19. 330  LSET EXPDATE$=MKS$(0)
  20. 420  PUT #1,2
  21. 470  PUT #1,3
  22. 480  PRINT "   "
  23. 490  COLOR 24,9
  24. 495  LOCATE 23,3
  25. 500  PRINT "FILE CREATION IN PROGRESS"
  26. 505  LOCATE 23,3
  27. 510  COLOR 15,9,4
  28. 515  Z% = 0
  29. 518  A$=MKI$(Z%)
  30. 519  ON ERROR GOTO 620
  31. 520  FOR I%  = 4 TO 20000
  32. 550  PUT   #1,I%
  33. 560  NEXT
  34. 590  PRINT "   FILE HAS BEEN BUILT    "
  35. 600  ON ERROR GOTO 0: PUT #1: CLOSE
  36. 610  CHAIN DRIVEID$+"members"
  37. 620  PUT #1: RESUME
  38.