      9.2.16. EDIT

      EDIT [N]

        EDIT        
   .  EDIT   , 
  ""    (.  SET SCRE-
EN).
        ""      ,       
 "EDIT"  "EDIT N" (N -  ).  
N   ,   ""     
.       ,    
      ,    
 . .  8   .

        EDIT      ,   ""
:

      COORD:

          ,    -
, , ,  .  -    -
  (  ).     , "-
"         -
.      ,   <> ( -
).      ,  ""   
  COORD:".

             
    . ""  
           .
  EDIT- - <>    COORD-.

               ^Y    <>  
     "CHANGE?".      
   ^Q.    
 .      
USE  INDEX-,   ""   -
     .     -
   ,      USE  -
.


      9.2.17. EJECT

      EJECT

               ,
  PRINT SET ON  SET FORMAT TO PRINT.   -
     @,   EJECT 
      .


      9.2.18. ENDDO

          DO WHILE.  
   DO     <>.  .
 DO.


      9.2.19. ERASE

      ERASE

                
.    @  SET SCREEN ON,   ERASE 
 GET-     @.


      9.2.20. FIND

      FIND <>  '<>'

            ( USE),   
,        <>.    FIND        
    .

      FIND         
  (.   INDEX).      INDEX      
      ,      FIND   
,           .
    ,       
  (<>).  :       'SMITH,
JONN'         "FIND SMI",     
    'SMI'.      
     ,    "FIND SMI" 
 .

              ,    
      ,      
   FIND (<>).

      :         
,    FIND -    ( ) -
.       ,  
    .      
    .

           FIND  , 
    FIND      &-,
.. FIND &NAME,   NAME -   . -
         
    STR ,     -
. . 5  .   -
   FIND.     
 .  (LIST, REPORT, COPY  .).

           ,        "NO
FIND",     #   0.

       ,        ,
  SKIP  LOCATE  FOR  <wyr>.  SKIP    
 ,  LOCATE (    <>)
  .

      SET EXACT ON   FIND,      
  (  ).


      9.2.21. GO  GOTO

      . GOTO RECORD <N>
      . GOTO TOP
      . GOTO BOTTOM
      . <N>
      . GOTO <>

             
.

        ""  ""    -
     <N>.

        ""  ""    /-
  (TOP/BOTTOM)     /-
 .    ,  /-
     /,   -
/      .

       ""     ,
     .


      9.2.22. IF

      IF <>
         <>
      [ELSE
         <>]
      ENDIF

           -
.    .  <> , 
 ,    IF.   - ,   - 
ELSE ,  ELSE ,  -  ENDIF. IF-  
   .


      9.2.23. INDEX

      INDEX ON <> TO <>

       <> -   .  -
   <>,  <>  . 
,      <>,    
  .       -
.     . -
        -
. .  .

             
           FIND.
     ,   -
   .     -
    .

       INDEX          
.  , APPEND    
   .    -
  ( USE),    .   -
 USE (..USE < > INDEX <  >).

                   
 ,    ,  
USE,      APPEND,  EDIT,
REPLASE, READ  BROWSE.

           PACK,
        
.  ,           
   ,               
    .

      :        -
   TRIM.  ,     
     $   STR,    
        (  
 ) (..  INDEX ON  $(NAME,N,5)+STR(AMOUNT,5)  TO
NDXFILE   INDEX ON $(NAME,N,N+5)+STR(AMOUNT,SIZEVAR) TO
NDXFILE).

      9.2.24. INPUT

      INPUT "<>" TO <>

             
        
        .  <>
,     ,     
<>.    <>,    
     .

       <>     . 
     ,    <>  
  .     - .  -
  ,  - .  TYPE   -
  .     -
       (<-
>)

      INPUT         
.   ACCEPT       
.


      9.2.25. INSERT


      INSERT [BEFORE] [BLANK]

          .   
   .

       BEFORE       -
,  - .   BLANK -  
.  BLANK ,  ""     -
 (   APPEND  CREATE).

         CARRY (SET CARRY  ON),      
     .

        INSERT        
  .

           APPEND.


      9.2.26. JOIN

      JOIN TO <> FOR <> [FIELDS <.>]

          ""    -
   .

         -      USE.
 JOIN   SELECT PRIMARY. JOIN -
  ""           
ON-     .   ,
  ,    -.  
  ,      -
 ,       -
   ,      -
  .
         FIELDS,     -
           
 ,  ,     -
 32 .

       FIELDS ,      
.

          .


      9.2.27. LIST

      LIST  DISPLAY,   ,  
 -          15  -
. , ,  LIST STRUCTURE, LIST FILES  LIST
MEMORY    DISPLAY.


      9.2.28. LOCATE

      LOCATE [<>] [FOR <>] [CONTINUE]

               
,    <>.   ,
  :

      RECORD N

       CONTINUE      .
    ""  LOCATE  CON-
TINUE.        <>:
128  254. . CONTINUE.

         ,     END  OF
FILE,         
.    NEXT (. <>   9.1)
       NEXT,   
END OF LOCATE       
 .


      9.2.29. LOOP

      LOOP

         DO WHILE    ,
  LOOP,    , , 
  DO WHILE.  LOOP    
DO WHILE,  ,  ,     -
   ,     .
LOOP   ENDDO,    DO WHILE.

          "DO WHILE"- 
  LOOP.

      :

 STORE 1 TO INDEX
 DO WHILE INDEX<10
   STORE INDEX+1 TO INDEX     ,  ITEM  -
   IF ITEM=' '               ,     -
      SKIP                       DO WHILE.
      LOOP
   ENDIF
   DO PROCESS
 ENDDO

     :

 STORE 1 TO INDEX
 DO WHILE INDEX<10
   STORE INDEX + 1 TO INDEX
   IF ITEM = ' '
      SKIP
   ELSE
      DO PROCESS
   ENDIF
 ENDDO


      9.2.30. MODIFY

      . MODIFY STRUCTURE
      . MODIFY COMMAND [<.>]

       ""    . -
   .  / ,  -
  .

      MODIFY      .     
    ,           
,    ,   : ^N
        ,   ^T   
  .         
 9.

      :    MODIFY  STRUCTURE    
      .    
          
COPY         ,   USE      ,
 ,  ,  APPEND      .
                
RENAME,            
.  .  .

       ""      -
      (  ).  
<.>  , ""    .   
  -   .    
 MODIFY COMMAND         
.       .CMD.

         MODIFY COMMAND  ^N  ^T  ,  
 . ^Q      ,
^W       ,   -
 .

            :
      1).       77  (    /);
      2).      ;
      3).             4000
          ;
      4).    ,    , 
            .

          ,     
MODIFY COMMAND,  :

      ^N -     ;
      ^T -       
            ;
      ^W -         
            MODIFY COMMAND ;
      ^Q -      ;
      ^R -    ()   -
            ;
      ^C -   1  .

     :

   . NOTE - ,    
               
   . USE INVNTRY
   . COPY TO WORK
   . USE WORK
   . MODIFY STRUCTURE
   . APPEND FROM INVNTRY
   . DELETE FILE INVNTRY
   . USE
   . RENAME WORK TO INVNTRY


      9.2.31. NOTE

      . NOTE < >
      . * < >

             .
    REMARK,   NOTE  
  .


      9.2.32. PACK

      PACK

        ,     DE-
LETE.  PACK    .

             -
,    PACK       -
 .     PACK 
        -
.
                   
,                     
      ,   ..  PACK  ()
 .

         PACK  - COPY         .
   .     
     (   .),        -
.


      9.2.33. QUIT

      QUIT [TO < . >]

          ,   ,  -
        SCP.   
 :

      ***   

          TO,  SCP  
     <   >.    
    ""          
.

               
SCP  ,   :      
   254 .

      :

   . QUIT TO 'DIR B:','PIP PRN:=ALTERNAT.TXT','REBUS CMDFILE'

             "",   -
   "",    PIP    
       ""   -
 CMDFILE.CMD.


      9.2.34. READ

      READ

              -
 /    , 
   @  GET-.   -
   GET-.  ,   
     ,     
   .

        SET FORMAT TO  <  >,    READ
   @-   , .. -
       GET--
.  ,       
EDIT    .

         SET FORMAT TO SCREEN, -
  ERASE   .    -
    @-.     
   READ   .

         (  ) @- 
 READ,    READ          GET-,
     READ.      
           
       READ.

      ,   @-,   
  READ,         (  
)     .  
    ,      
       -
   (.. STORE ' ' TO MEMVAR).

      .  8      .

         SET SCREEN ON  (  
  ,       -
 "").

    :

 ...
 STORE ' ' TO RTYPE
 STORE ' ' TO ACCT
 ERASE
 @ 5,0 SAY ' "C"  ......'
 @ 6,0 SAY '  "D"  ......'
 @ 8,10 GET RTYPE
 READ
 IF RTYPE='D'
 @ 10,10 SAY ' . ' GET ACCT PICTURE '999-99-9999'
   READ
 ENDIF
 ...


      9.2.35. RECALL

      RECALL [<>] [FOR <>]

          ,   
DELETE,  ,  <>.


      9.2.36. RELEASE

      RELEASE [<->] [ALL]

               ,  
,  ,    -
   .


      9.2.37. REMARK

      REMARK < >

            -
.


      9.2.38. RENAME

      RENAME <  > TO <  >

            . 
       ( 3      ),
" ,          .DBF.
.  4    .

        :

   . RENAME INVENMAS TO INVENOLD
   . RENAME D:REPORT.FRM TO REPORT.BAK
   . RENAME TYPELESS. TO TYPED.TYR


      9.2.39. REPLACE

      REPLACE [<>] <> WITH <>  [,<2>  WITH
               <2>] ,ITD [FOR <>]

               
      .    
STORE,  REPLACE   ,    ,   STORE
   .

       <>  ,   .

       REPLACE          
  USE,     ,  
    .      USE 
.        "-
"   ,    "  "  -  
,    " ".    <-
>  NEXT N,     .
