home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 12 / 0156 / dcatfile.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-02-21  |  1.4 KB  |  71 lines
  1. 5  COMMON DRIVEID$,FILEID$
  2. 10  SCREEN 0,1
  3. 20  COLOR 15,9,4
  4. 30  RECNUM = 1
  5. 40  OPEN DRIVEID$+FILEID$+".EZF" AS #1 LEN=128
  6. 50  FIELD #1,2 AS BUCKET1$, 2 AS BUCKET2$,2 AS BUCKET3$,2 AS BUCKET4$,40 AS LINE1$,40 AS LINE2$,40 AS LINE3$
  7. 70  CLS
  8. 75  RECNUM = 1
  9. 80  PRINT " "
  10. 90  PRINT "          DISPLAY CATEGORIES"
  11. 100  PRINT " "
  12. 110  PRINT " "
  13. 115  LINECT=1
  14. 120  INPUT "   SEARCH FOR ==>";SEARCH$
  15. 121  GET #1,1
  16. 122  MAXNUM = CVI(BUCKET3$)
  17. 125  GOSUB 700
  18. 126  RECNUM = CVI(BUCKET1$)
  19. 127  GOTO 135
  20. 130  RECNUM = CVI(BUCKET2$)
  21. 135  IF RECNUM > MAXNUM THEN 1000
  22. 140  IF RECNUM = 0 THEN 500
  23. 150  GET #1, RECNUM
  24. 160  X=INSTR(LINE1$,SEARCH$)
  25. 170  IF X = 0 THEN 180 ELSE 300
  26. 180  X=INSTR(LINE2$,SEARCH$)
  27. 190  IF X = 0 THEN 200 ELSE 300
  28. 200  X=INSTR(LINE3$,SEARCH$)
  29. 210  IF X = 0 THEN 130
  30. 300  CATG$=LINE1$
  31. 310  SUBJ$=LINE2$
  32. 320  TIMESTAMP$=LINE3$
  33. 325  SCREENFUL = 0
  34. 330  GOSUB 400
  35. 335  IF SCREENFUL = 1 THEN GOTO 500
  36. 345  GOTO 130
  37. 400  LINECT = LINECT + 1
  38. 410  IF LINECT > 16 THEN LET SCREENFUL=1
  39. 420  LOCATE LINECT+4,1
  40. 430  PRINT CATG$
  41. 450  IF LINECT > 16 THEN LET LINECT=0
  42. 460  RETURN
  43. 500  PRINT STRING$(40,220)
  44. 505  K$=INKEY$:IF K$="" THEN 505
  45. 510  IF K$=" " THEN GOTO 125
  46. 520  IF K$=CHR$(27) THEN GOTO 1000
  47. 530  IF K$="t" THEN GOTO 70
  48. 540  IF K$="T" THEN GOTO 70
  49. 550  GOTO 505
  50. 600  CATGREC = CVI(BUCKET1$)
  51. 610  GET #1,CATGREC
  52. 620  RETURN
  53. 700  CLS
  54. 701  LINECT = 0
  55. 702  COLOR 15,0
  56. 705  LOCATE 25,4
  57. 706  PRINT "spacebar=CONT  Esc=EXIT  T=RESTART"
  58. 707  COLOR 15,9,4
  59. 708  LOCATE 1,1
  60. 710  PRINT "       EASY-FILE CATEGORY LIST"
  61. 711  LOCATE 2,1
  62. 713  LOCATE 3,1
  63. 714  PRINT STRING$(80,220)
  64. 715  LOCATE 4,1
  65. 720  RETURN
  66. 1000  CLS
  67. 1005  LOCATE 18,8
  68. 1010  PRINT "DISPLAY COMPLETE"
  69. 1015  CLOSE #1
  70. 1020  CHAIN DRIVEID$+"DISPFILE"
  71.