home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / tools / delite / delrec.frb (.txt) < prev    next >
FrontRunner Binary Module  |  1991-06-01  |  4KB  |  89 lines
  1. WINCOL
  2. CENTER
  3. SET WINDOW TO "DELETE - "+FILENAME POSITION 4,CENTER SIZE &WINLIN,&WINCOL
  4. USE &FILENAME
  5. TONES
  6. File is empty. DELETE not available.
  7. AFLAG
  8. AFLAG
  9. FMT_SPEC
  10. FMT_SPEC
  11. TMPFILE
  12. FILENAME
  13. TMPFILE
  14. TMPFILE
  15. AFLAG
  16. TMPFILE
  17.  (the format file) cannot be found.
  18. TONES
  19. INDXNAME
  20. AFLAG
  21. SET INDEX TO &INDXNAME
  22. LEADINDX
  23. INDXCOUNT
  24. INDXCOUNT
  25. INDXCOUNT
  26. LEADINDX
  27. INDXCOUNT
  28. INDXCOUNT
  29. INDXCOUNT
  30. INDXCOUNT
  31. INDXCOUNT
  32. >@)F3
  33. THISREC
  34. LEADINDX
  35. THISREC
  36. Enter 
  37. LEADINDX
  38.  to find:
  39. THISREC
  40. Enter record number to find:
  41. THISREC
  42. THISREC
  43. THISREC
  44. THISREC
  45. LEADINDX
  46. THISREC
  47. GOTO &THISREC
  48. TONES
  49. AFLAG
  50. TONES
  51. AFLAG
  52. AFLAG
  53. THISREC
  54. THISREC
  55. @Z 999999
  56. Enter record number to DELETE: 
  57. THISREC
  58. THISREC
  59. THISREC
  60. TONES
  61. AFLAG
  62. PASTEIT
  63.  <ESC> to abort. <PgDn> or <PgUp> to move through file. 
  64. PASTEIT
  65. AFLAG
  66. TMPFILE
  67. TMPFLD
  68. TMPFLD
  69. OOPS=MESSAGE()
  70. &TMPFLD
  71. _ERROR
  72. CODE: 
  73. TMPFLD
  74. FILE: 
  75. TMPFILE
  76. PASTEIT
  77. DELETE this record? 
  78. PASTEIT
  79. AFLAG
  80. DELETE in progress . . . 
  81. AFLAG
  82. AFLAG
  83. PASTEIT
  84. AFLAG
  85. AFLAG
  86. TONES
  87. AFLAG
  88. AFLAG
  89.