)F FUNCTION -                                                           00000010
  EDITS THE CONTENTS OF A LINE OF TEXT IN WORKING STORAGE.              00000020
  EMULATES THE WYLBUR COMMAND "MODIFY".                                 00000030
)X SYNTAX -                                                             00000040
            REVISE  'LINE-NO'/*/''STRING''                              00000050
                    NONUM                                               00000060
                    SNUM                                                00000070
                                                                        00000080
  REQUIRED - EITHER 'LINE-NO', *, OR A QUOTED STRING.                   00000090
  DEFAULTS - NONE                                                       00000100
  NOTE     - WILL NOT ACCEPT A RANGE OF LINES.                          00000110
             WILL NOT ACCEPT AN AMPERSAND(&).                           00000120
)O OPERANDS -                                                           00000130
  'LINE-NO' - A VALID TSO LINE NUMBER.                                  00000140
  *         - WILL REVISE THE "CURRENT" LINE AS DEFINED                 00000150
              BY THE EDIT CURRENT LINE POINTER.                         00000160
  ''STRING''- WILL SEARCH THE WORKING STORAGE AT OR BELOW               00000170
              THE CURRENT LINE FOR THE TEXT STRING, AND                 00000180
              REVISE THE CONTENTS OF THE FIRST LINE FOUND.              00000190
))NONUM     - FOR UNNUMBERED WORKING STORAGES, SUPPRESSES               00000200
              THE REVISE PROMPT "ALTER?", TO PRESERVE                   00000210
              ALIGNMENT DURING EDITING.                                 00000220
))SNUM      - FOR NUMBERED WORKING STORAGES WHEN IT IS                  00000230
              DESIRABLE TO SUPPRESS THE LINE-NUMBERS,                   00000240
              SUCH AS WITH 72-CHAR TERMINALS. AS IN NONUM,              00000250
              ALIGNMENT IS PRESERVED.                                   00000260
))INSTRUCTIONS -                                                        00000270
    AN EXAMPLE IS PRESENTED.                                            00000280
                                                                        00000290
     THE WORKING STORAGE CONTAINS:                                      00000300
           00010 PGM=RET,PURP=104/EPA,                                  00000310
           00020 A=14AGNFS9,S=070009,                                   00000320
           00030 P=10,P=300,P=310,P=400,                                00000330
     THE CURRENT LINE POINTER IS UNKNOWN.                               00000340
     FIND THE CURRENT LINE:                                             00000350
  USER:    LIST *                                                       00000360
  SYSTEM:  00030 P=10,P=300,P=310,P=400,                                00000370
     THE CURRENT LINE POINTER IS AT LINE 30.                            00000380
     TO CHANGE LINE 20, USE THE REVISE COMMAND:                         00000390
  USER:    REVISE 20                                                    00000400
  SYSTEM:  00020 A=14AGNFS9,S=070009,                                   00000410
           ALTER?                                                       00000420
  USER:                       R070003                                   00000430
  SYSTEM:  00020 A=14AGNFS9,S=070003,                                   00000440
           ALTER?                                                       00000450
  USER:          (CARRIAGE RETURN)                                      00000460
  SYSTEM:  QED                                                          00000470
     THE USER HAS USED REVISE OPERATOR "R" TO ACCOMPLISH                00000480
     A STRING REPLACE.                                                  00000490
     THE OPERATORS ARE:                                                 00000500
                                                                        00000510
       R - REPLACES CHARACTERS ONE-FOR-ONE                              00000520
       D - DELETES CHARACTERS                                           00000530
       I - OPENS SPACE AND INSERTS NEW CHARACTERS                       00000540
       N - IF ENTERED BEFORE ANOTHER OPERATOR, SUPPRESSES               00000550
           THE ECHO.                                                    00000560
                                                                        00000570
     ONLY ONE OPERATOR PER LINE (EXCEPT N AND/OR D)                     00000580
     FOR EXAMPLE:                                                       00000590
  USER:    REV 30                                                       00000600
  SYSTEM:  00030 P=10,P=300,P=310,P=400,                                00000610
           ALTER?                                                       00000620
  USER:               RP 301                                            00000630
  SYSTEM:  00030 P=10,P 301,P=310,P=400,                                00000640
           ALTER?                                                       00000650
  USER:             N   R299                                            00000660
  SYSTEM:  ALTER?                                                       00000670
  USER:                     IP 305,                                     00000680
  SYSTEM:  00030 P=10,P 299,P 305,P=310,P=400,                          00000690
           ALTER?                                                       00000700
  USER:               DDDDD                                             00000710
  SYSTEM:  00030 P=10,P 305,P=310,P=400,                                00000720
           ALTER?                                                       00000730
  USER:                       D DI31516                                 00000740
  SYSTEM:  00030 P=10,P 305,P=31516,P=400,                              00000750
           ALTER?                                                       00000760
  USER:               D     RP=71219                                    00000770
  SYSTEM:  00030 P=10,P=71219,P=400,                                    00000780
           ALTER?                                                       00000790
  USER:          (CARRIAGE RETURN)                                      00000800
  SYSTEM:  QED                                                          00000810
