home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 12 / 0156 / builfile.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-02-21  |  1.4 KB  |  61 lines
  1. 20  COMMON DRIVEID$,FILEID$
  2. 30  SCREEN 0,1
  3. 40  GOTO 110
  4. 50  FOR I = 3 TO 1003
  5. 60  PUT #1,I
  6. 70  NEXT
  7. 80  CLOSE #1
  8. 90  PRINT "EASYFILE FILE HAS BEEN BUILT"
  9. 100  CHAIN DRIVEID$+"FILEMENU"
  10. 110  KEY OFF
  11. 120  COLOR 15,9,4
  12. 130  CLS
  13. 140  PRINT " "
  14. 150  PRINT " "
  15. 160  PRINT "      EASY-FILE BUILD FILE"
  16. 170  PRINT "  "
  17. 180  PRINT "  "
  18. 190  PRINT "   Are you sure that you want"
  19. 200  PRINT "   to erase the diskette in "+DRIVEID$+" drive?"
  20. 210  PRINT "   "
  21. 220  INPUT "  ENTER    Y  OR  N";ANS$
  22. 230  IF ANS$ = "N" THEN 260
  23. 240  IF ANS$ = "Y" THEN 290
  24. 250  GOTO 210
  25. 260  PRINT "  "
  26. 270  PRINT "     BUILD  BYPASSED"
  27. 280  CHAIN DRIVEID$+"FILEMENU"
  28. 290  OPEN DRIVEID$+FILEID$+".EZF" AS #1 LEN=128
  29. 300  FIELD #1, 2 AS BUCKET1$, 2 AS BUCKET2$, 2 AS BUCKET3$, 2 AS BUCKET4$, 40 AS LINE1$, 40 AS LINE2$, 40 AS LINE3$
  30. 310  LSET BUCKET1$=MKI$(2)
  31. 320  LSET BUCKET2$=MKI$(2)
  32. 330  LSET BUCKET3$=MKI$(2)
  33. 340  LSET BUCKET4$=MKI$(1)
  34. 350  PRINT "  "
  35. 360  INPUT "  COMPANY  NAME==>";NAM$
  36. 370  INPUT "  PURPOSE      ==>";PURP$
  37. 380  INPUT "  FIRST CATEGORY=>";CATG$
  38. 390  INPUT "  FIRST SUBJECT==>";SUBJ$
  39. 400  LSET LINE1$=NAM$
  40. 410  LSET LINE2$=PURP$
  41. 420  LSET LINE3$=" "
  42. 430  LOCATE 23,5
  43. 440  COLOR 31,0,14
  44. 450  PRINT "FILE BEING BUILT"
  45. 460  COLOR 15,9,4
  46. 470  LOCATE 23,5
  47. 480  PUT #1,1
  48. 490  LSET BUCKET1$=MKI$(0)
  49. 500  LSET BUCKET2$=MKI$(0)
  50. 510  LSET BUCKET3$=MKI$(0)
  51. 520  LSET BUCKET4$=MKI$(2)
  52. 530  LSET LINE1$=CATG$
  53. 540  LSET LINE2$=SUBJ$
  54. 550  LSET LINE3$=DATE$+" "+TIME$
  55. 560  PUT #1,2
  56. 570  LSET BUCKET4$=MKI$(3)
  57. 580  LSET LINE1$=" "
  58. 590  LSET LINE2$=" "
  59. 600  LSET LINE3$=" "
  60. 610  GOTO 50
  61.