home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug004.ark / Z-LCTOUC < prev   
Encoding:
Text File  |  1984-04-29  |  1.7 KB  |  75 lines
  1. @{ps|lctouc 10/13/77|}
  2. ` LCTOUC is an ACT program which will convert a standard ACT program
  3.   to the upper case conventions.  See the introduction section of the
  4.   ACT writeup.
  5.  
  6.   To run this program, type
  7.  
  8.         ACT LCTOUC INPUT OUTPUT
  9.  
  10.   where the file INPUT contains lower case letters and the standard
  11.   special characters.
  12.   (Note: The indenting in this file is done with tab characters.)
  13. `
  14.  
  15.  
  16. @{ns|buffer size|20}
  17. ` buffer size is the number of 128 character disk records which can
  18.   be processed at a time.  The processing time for 20 records is
  19.   about 1.5 minutes, so be patient.
  20. `
  21. @{ns|lc-to-uc|{
  22.     @{read}
  23.     @{ss|text|
  24.         a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|
  25.         @|@@{pk|7b}|@@{pk|7c}|@@{pk|7d}|@@{pk|60}|@@{pk|7e}
  26.     }
  27.     @{ns|text|@@{text|
  28.         A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z|
  29.         ^|[|,|]|'|!
  30.     }}
  31.     @{write}
  32.     @{eq|@@{done}|yes|
  33.         {@{st}}|
  34.         {@{lc-to-uc}}
  35.     }
  36. }}
  37.  
  38. @{ns|read|{
  39.     @{of|@@{input}|@@{in record #}||{
  40.         @{ps|File "@@{input}" does not exist.|}@{st}
  41.     }}
  42.     @{rf|text|@@{buffer size}||{
  43.         @{ns|done|yes}
  44.     }}
  45.     @{ns|in record #|@@{rn}}
  46. }}
  47.  
  48. @{ns|write|{
  49.     @{of|@@{output}|@@{out record #}||{
  50.         @{ps|Can not open output file.|}
  51.     }}
  52.     @{wf|text|||{
  53.         @{ps|Full diskette.|}@{st}
  54.     }}
  55.     @{ns|text|}
  56.     @{ns|out record #|@@{rn}}
  57.     @{cf||{
  58.         @{ps|Close error.|}@{st}
  59.     }}
  60. }}
  61.  
  62. @{ns|files|@@{@in}}`    rest of input line after "act "`
  63. @{|@@{in|files| }}`    skip over "lctouc "`
  64. @{ns|input|@@{in|files| }}
  65. @{ns|output|@@{in|files}}
  66. @{nt|input|{
  67.     @{ns|input|@@{rs|Input file:  }}
  68. }}
  69. @{nt|output|{
  70.     @{ns|output|@@{rs|Output file: }}
  71. }}
  72. @{of|@@{output}||{@{df}}}`    destroy existing output file`
  73. @{mf|@@{output}||{@{ps|No directory space.|}@{st}}}
  74. @{lc-to-uc}
  75.