     5. -

      ,       (&), 
          ,  ""
           
.       .
          .
        
    .      &  
    ( )     
  .            
   ,     
     .       
.

:

. ACCEPT "  " TO DR
. USE &DR:DATAFILE

          USE B:DATAFILE,    
 ACCEPT   "B".

 . STORE 'DELETE RECORD ' TO T
  & 5

     DELETE RECORD 5.



     6.     -""-

     ""     ,  
  (.,   BASIC,   FORTRAN,   PASCAL)    
 ,      .
  APPEND       -7-
  (  SCP   , 
             
(LINE  FEED)),      SDF (SYSTEM  DATA  FORMAT -
      ).          
COPY      -7-   ,  
     SDF ;    ,     
 SDF  DELIMITED   ..

                  
  .      , 
         .   ""   
  (APPEND)    (COPY)   ,    
    DELIMITED.  
 DELIMITED,   SDF.

                 
,   - ,  APPEND   
.   "COPY"     ,
     ,     
WITH    DELIMITED.

      ,   ","    WITH   COPY.
        
     .   ..         
   ,    .

     :

.USE < >.DBF
.COPY TO < >.TXT DELIMITED WITH "

.USE < >.DBF
.APPEND FROM < >.DAT SDF


             7.  


            ""      
    .  
   .       ""-   
    ,             
""    .             
"  ".      
    (   9.0 ).

      :

 CREATE  -    ;
 COPY    -   ;
 MODIFY  -   ;
 REPORT  -    ;
 SAVE    -    ;
 INDEX   -   ;
 REINDEX -    ;
 JOIN    -    ;
 TOTAL   -    .

      :

 APPEND -     ;
 CREATE -     ;
 INSERT -    .

      :

 CHANGE  -   ;
 BROWSE  -       -
            ;
 DELETE  -    ;
 EDIT    -      ;
 PACK    -  ,   ;
 RECALL  -    ;
 REPLACE -    ;
 READ    -       
            ;
 UPDATE  -     .

       :

 @      -        
             ;
 BROWSE -   19     
             ;
 COUNT  -    ,      
           ;
 DISPLAY -  ,   ;
 READ   -        
           ;
 REPORT -     ;
 SUM    -        -
              ;
 ?      -   .

         :

 CONTINUE  -      -
             ,    LOCATE;
 FIND      -   , 
                ;
 GOTO      -    ;
 LOCATE    -  ,  ;
 SKIP      -    .

          :

 APPEND -    ""-           
            (SDF);
 COPY   -       SDF-;
 DELETE -  ;
 DO     -   ,   
           ;
 RENAME -  ;
 SELECT -    ;
 SORT   -   ,     -
            ;
 USE    -    ,      
           USE.

         :

 ACCEPT  -     ;
 COUNT   -    ;
 DISPLAY -   ;
 INPUT   -     ;
 RESTORE -       ;
 SAVE    -     ;
 STORE   -     ;
 SUM     -     ;
 WAIT    -     .

          :

 ACCEPT   -      ;
 CANCEL   -    ;
 DO       -      
                  
               ;
 IF       -   ;
 ELSE     -        
                 IF;
 ENDDO    -   DO WHILE;
 ENDIF    -   IF;
 INPUT    -     ;
 LOOP     -    DO WHILE;
 MODIFY COMMAND -   ;
 RETURN   -   ;
 SET      -    "";
 WAIT     -    .


        :

EJECT -    ;
ERASE -  .


     8.     

            
:

 ^E,A   -     ;
 ^X,F   -     ;
 ^S     -       ;
 ^D     -       ;
 ^Y     -      ;
 ^V     -           
           ;
 ^G     -     ;
 DEL    -      ;
 ^Q     -      
               "".    
             .

       EDIT:

 ^U     -       -
                ;
 ^R     -        
            ;
 ^C     -       ;
 ^W     -         
            .

      MODIFY:

^N     -        ,  
               ;
^T     -         -
            ;
^C     -    ;
^R     -    ;
^W     -            
           ;
^Q     -     .

      APPEND, CREATE  INSERT:

^C  -         ;
^R

<>    -  ,     
              -   
             "".

      BROWSE:

^U     -       -
               ;
^R     -       ;
^C     -       ;
^W     -          
           
^Z     -       ;
^B     -       .


               9.   

     9.1. 

 <>     -      "";  -
 <>              .   IF
                      ENDIF  ( DO WHILE  ENDDO  
                      ,     
                     REPORT   .
 <.>  -   ;  -
 <>                  ,
                             ('),
                        (")      
                     ([,]).
 <>   -  ;   
                            "()"*,:.
 <>            - ;       ,
                    ,       ,
                            :
                    "4+"              "DOS='3'.OR.DOS='4'",
                    "$('ABC'+&COMESTR,N,#)='ABCDE FG'".
 <.>       -  ,    ;
                          .
                      2    -
                    ,   - .
 <>           -   .
 <.>  -     ,   
 <>           .
 <>        -  .
 < >
 <>       -       (. 
                    3.4   REPORT).
 < >   -   .
 <>           -  ,    .
                           .
                         .
                        <>    
                    .
 <>         -  ;   STORE 
                        ,   
                          
                    (ACCEPT, INPUT  ..)
                      ""      64  
                    .
<  >  -     ,   
                    .
<N>               - .
<>         -   .     -
                     3 .
ALL               -    .      
                     ,   
                      .       ALL -
                      .    
                            
                    (,   DELETE).   -
                      FOR,   
                    ALL.

 NEXT N           -  N ,    -
                    . N  .
 RECORD N         - N- ; N - .
 FOR <>        -   ,    
                    .
 WHILE <>      -  ,     
                     .     -
                    .

          .


      9.2.  

                  
"".
     1.        
  ;          
  .         - .  CREATE,
APPEND,    REPORT,   SET,   DISPLAY         ERASE   
 .         (
)      . FOR, NEXT WITH - 
,       .     (
         )    .
     2.        .
     3.   ..  254   (    
        ).
     4.             
  4  ( )  .  ,    DISPLAY
STRUCTURE   DISP STRU.
     5.        
  ,   ,   ,    
   .
     6.         .  
    .
     7.      , 
 ,      - ,
    ,      .   ""  
  .  ,        
    .  ,   
   WHILE             
  DO  WHILE    DO, ALL  
      .
     8.    ""       
  .  ""     ,  
     .

      9.2.1. ?


      ?[<.>]
      ??[<.>]

                   
DISPLAY ;    DISPLAY OFF <>.   
         
.   "?"    ,
 ,    .  "?"       
 .


      "??"  "?",    ,   
        (LINE  FEED)  
 .

:

 . USE EXAMPLE
 . 4
 . ? #
 4
 . ? NAME
  CHANG, LEE
 . ? 5+9
 14

            "?"  
   .     -
: " < >".

 SET DEFAULT TO G
 USE TRACE INDEX TRACE
 DISP STRU
 ?
 ACCEPT "ENTER TODAY'S DATE." TO DTE
 SET DATE TO &DTE
 RELEASE DTE
 RETURN


     9.2.2. @

     @<> [SAY <> [USING <FORMAT>]]
     [GET <> [PICTURE <FORMAT>]]

           SET FORMAT TO,  ERASE,
EJECT,  CLEAR  GETS,  READ        
          
     .        @    
,       SET  FORMAT
TO.     .

     <>   "Y,X"       
:       .  "Y,X"
  (Y)   (X).     
Y    0-23,   X - 0-79, .. 24    
80  .  ""   0-     
,         
.      Y    X         0-254.
      ,     
       .     SET   FORMAT
     .

         SET FORMAT TO SCREEN ( 
),   "@"     . 
  0,0       (    
)    .   10,15  11-     16-
      .   0-           
.  "@"      
  .  ..,  SAY      15  
 SAY   10.      .

        SET FORMAT TO PRINT,  
"@"      .       0,0
          .
 "@"     .  
          .   
     ,          
.           5    
       6 (      ).     
,            
.

        SET FORMAT TO SCREEN,  
ERASE     ,      GET'
(.  )    0,0.   SET
FORMAT TO PRINT,  EJECT     
 0,0.

        SAY         ,
          
     READ.     USING    
    SAY.   
 .    USING   
.      USING, ""  
  .

       SAY       .
GET- -    SET FORMAT TO SCREEN.

       GET       
    .         
   GET           
       READ.      PICTURE    
          GET,       
       (.  READ).
     PICTURE,       
PICTURE.

              
GET - ,         
 'T', 'F', 'Y', 'N'    .

      64 GET-         
   .     ERASE,       CLEAR  GETS   
    GET-.

       SET FORMAT TO SCREEN     SAY-   
GET-,        ,    ,
 .  ,  @ 10,0   
 11- .

          SET  FORMAT TO  SCREEN,    
  READ     GET-  (.      READ).
,    SET FORMAT TO PRINT,  "@"  
        READ       
.

         READ       
            ,    
   (:  ,    )
    .      
,    "@"   ,  
      .

           SET  FORMAT  TO  PRINT
       .  
                 
   .           
  ,    
 .

 SET FORMAT TO PRINT
 GOTO TOR
 STORE 7 TO CNTR
 DO WHILE .NOT. EOF
    IF CNTR >= 50
        EJEST
        STORE 7 TO CNTR
    ENDIF
 @ CNTR,12 SAY R USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ CNTR,48 SAY D USING 'XXXXXXXXXX'
 @ CNTR,64 SAY R1 USING 'XXXXXXXXXXXXXXXXXX'
 @ CNTR,88 SAY U USING 'XXXXXXXXXX'
 @ CNTR,104 SAY R2 USING 'XXXXXXXXXXXXXXXXXX'
 IF RSD <> 0
 @ CNTR,130 SAY RSD USING '9999'
 ENDIF
 STORE CNTR + 1 TO CNTR
 SKIP
 ENDDO
 RETURN
