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