home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / chop-app.lbr / CHOP-APP.CZM / CHOP-APP.COM (.txt)
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1993-10-26  |  10.6 KB  |  102 lines
  1. Copyright (C) 1985 BORLAND Inc
  2. Kaypro, no hiliteeedP
  3.  .,;:=?*[]<>{}
  4. ^#V#N#F
  5. s#r#q#p
  6.     #^#V
  7. 9^#Vh&
  8. |/g}/o#
  9. T]=o`9y
  10. T9^K#
  11. 8/<oz
  12. T9^K#
  13. oGOW_g
  14. `1pF,
  15. LSTCAUX
  16. >~O6~*
  17.  .##~
  18. TRUEFALSE
  19. ##N#F*
  20. ##~++
  21.     N#F#s#r
  22. N#F#^#V
  23. Nw#Fw
  24. q#p#6
  25. #w#w#w
  26. >!DM!
  27. <(    !\
  28. Ns#Fr
  29. User break
  30. Run-time
  31.  error 
  32. , PC=
  33. Not enough memory
  34. Program aborted
  35. }289!
  36.  *b9&
  37. }289*89&
  38. )!*b9&
  39. ",9*,9
  40. CHOP/APP v
  41. 2.1! 
  42. 04/29/88 RSR
  43.  Public Domain w/o any Warranty
  44. )C>hop or A>ppend chopped files of TEXT > 
  45. )!*b9&
  46. U"*b9&
  47. }2K9*K9&
  48. )D:oldfilename.typ (file to be chopped) > 
  49. "Y9*Y9
  50. ' not found, check spelling or directory
  51. ?D:FILENAME (only) of CHOPPED files i.e. LARGE(.1,.2,.3 etc.) > 
  52. Write !
  53.  to Drive (A,B,C, etc) > 
  54. )!*b9&
  55. $*b9&
  56.  *b9&
  57. }2c9*c9&
  58. "Y9*Y9
  59. Working on !
  60. Concatenation of *c9&
  61.  files to !e9
  62.  is COMPLETE
  63. "Y9!x;
  64. *Y9+))))))))
  65. *Y9+))))))))
  66. "Y9*Y9
  67. 5&*Y9"
  68. *Y9+))))))))
  69.  *Y9#
  70. /&!d:
  71. Erase appended !
  72.      [Y,N] > *b9&
  73.  *b9&
  74. p'!d:
  75. (File size in records (8 recs. per Kb) = *W9
  76. D:newfilename (no type) > 
  77. "_9*_9
  78. }2b9!
  79. }2c9!
  80. }2d9!
  81. "]9*c9&
  82. +Number of lines per new file (try 1000 ) > 
  83. Processing *_9
  84.  lines of !
  85.  to !
  86.  *c9&
  87. }2c9*c9&
  88. Processing *_9
  89.  lines of !
  90.  to !
  91. "t;!d:
  92. }2d9*d9&
  93. }2d9!d:
  94. +))))))))
  95. "]9*t;
  96. "t;*d9&
  97. *Y9+))))))))
  98.  *Y9#
  99. }2d9*t;
  100. +*!d:
  101.  total lines processed!
  102.