                 57
,       . 
 -     (   -  
  ).         
SAY,   .  USING  -
  ,     . <FORMAT> 
USING ('XXXX..X')  .

        SET FORMAT TO PRINT , 
 "@"           
,      ,    , 
    .         
        (    )
     .     SET  FORMAT  TO
SCREEN        .

           SET  FORMAT:  SET  FORMAT  TO
< >.       ,     
  READ,    @     READ    
<  >.           
      .  
 ,     
    @-, .. @    
 .

      :

       USING   PICTURE      
.        ,     ,
        .  
     .

                                  
                   SAY                   GET

      #                 -
                                     (1,2,...8,
                                        9,0)     ".",
                                        "-",    " " ()
      9           ,   #          ,   #
                         
                  
                          -
                                    
    $  *                
                  $  * 
                  
      !                    
                                           

:

 . @ 5,1 SAY '  ' GET PHO PICTURE'(999)999-
  9999'

       '  '      
,        '()-'  (""  
)  ,     PHO   
.    (   )     READ,
   .    PHO   READ
         ,  ,  '(213)555-
55555'.      PICTURE -
  .     ,      
 -  .

   . @ 10,50 SAY HOURS*RATE USING '$$$$$$$.99'

       "@"     , 
    ,  ..        GET.     
     .     
        . 
HOURS = 40,  RATE = 12,50,  '$$$$500.00'   
.        -
     .

            ,    
   ,     .

   . @ 10,50 SAY NOURS * RATE USING '$$$,$$$.99'

       $$$$500.00,   $$$,500.00.

       ,      @,
        GET,         READ   
     GET-.  
        "@"-,   
   .     
   "0"   "NAME",  ..  ,   
, ..   .

 SET FORMAT TO SCREEN
 USE F:EXAMPLE
 ERASE
 DO WHILE NAME # '0'
 APPEND BLANK
 @ 5,0 SAY "  " ;
 GET NAME PICTURE 'XXXXXXXXXXXXXXXXXXXX'
 @ 6,0 SAY "  ";
 GET TELE:EXTSN PICTURE 'XXXXX'
 @ 6,40 SAY "  " ;
 GET MAIL:STOP PICTURE 'XXXXXXXXXX'
 READ
 ENDDO
 GOTO BOTTOM
 DELETE
 PACK
 LIST
 RETURN

          @-:

     SET INTENSITY ON/OFF  (  ON)   -
   GET-  SAY.

     SET BELL ON/OFF (  ON)   ,
       -
.

     SET COLON ON/OFF (  ON)    ,  
 GET  .

     SET DEBUG ON/OFF  (  OFF)   -
   @-,     ECHO  
STEP  .

     SET SCREEN ON/OFF  (  ON)  -
  ..

     SET FORMAT TO SCREEN/PRINT/< >   
      (   ).  SET FORMAT TO
< >       -
  @-   READ.   SCREEN.

     READ   ,    GET-
.


     9.2.3. ACCEPT

     ACCEPT ["<.>"] TO <>

                
            INPUT,        
        ,      
   INPUT.   ACCEPT          
"", INPUT      
     .

     <> ,   ,     
     <>.       "<>",   
          
   .   
     ACCEPT, <>   -
.       -
         ,
    .

:

  . ACCEPT "  " TO NAME
   :  .

  .ACCEPT MEMO
NAME       (C)   .
** TOTAL **     01 VARIABLE USED  00010 BYTES USED


     9.2.4. APPEND

     ) APPEND FROM <> [FOR <>] [SDF] [DELIMITED WITH
        <>
     ) APPEND BLANK
     ) APPEND

            .  APPEND,
CREATE   INSERT - ,      .
APPEND  CREATE       ,
INSERT -  .

              <>.
      SDF,       
  (.   6.0).      ,
  ,        .    -
,    - .     
  <>.

       DELIMITED,    ,   <-
>,        
.     ,    
     ,    -  
.       ""     
        ""-
  .

       SDF  DELIMITED,   <>   ""-
.      -.  ,
       ,   
<>     .     
           
.     FOR,   ""   
  -  ,  ,      
<>  .   , ,  
<>     .

             BLANK,          
    ,    .  
        EDIT  
REPLACE.

            APPEND (  ),  
       
.                
.  APPEND    
   .

        - ,    ,
    USE,       
   (  APPEND  BLANK).    
   ,         ,     
.

      APPEND     SET CARRY  ON
       .  
   .      ,  
       .

        APPEND    ,      
/   /      
.        CREATE,     
     APPEND    
.  ,      , 
.
     :

   . USE EXAMPLE

   . DISPLAY STRUCTURE
     STRUCTURE FOR FILE:  EXAMPLE
     NUMBER OF RECORDS:   00005
     DATE OF LAST UPDATE: 12/31/80
     PRIMARY USE DATABASE
     FLD       NAME      TYPE WIDTH   DEC
     001     NAME        C      020
     002     TELE:EXTSN  C      005
     003     MAIL:STOP   C      010
     ** TOTAL **              00036

   . DISPLAY ALL
     00001  1XXXXXXXXXXXXXXXX     1357  123/456
     00002  2XXXXXXXXXXX          2468  180/103
     00003  3XXXXXXXXXXXXXX       3344  264/401
     00004  4XXXXXXXXX            6743  190/901
     00005  5XXXXXXXXXX           1011  84/133

   . APPEND

     RECORD 00006

     NAME:       6XXXXXXXXXXXXXXXXXXX
     TELE:EXTSN: 6623
     MAIL:STOP:  170/430
     RECORD 00007
     NAME:       7XXXXXXXXXXXXXXX
     TELE:EXTSN: 8093
     MAIL:STOP:  427/396
     RECORD 00008

     NAME:      <RETURN>

   . DISPLAY ALL OFF NAME,TELE:EXTSN
     1XXXXXXXXXXXXXXXX    1357
     2XXXXXXXXXXX,F -   ;
     3XXXXXXXXXXX,A    ;
     4XXXXXXXXX           6743
     5XXXXXXXXXX          1011
     6XXXXXXXXXXXXXXXXXXX 6623
     7XXXXXXXXXXXXXXX     8093

   . APPEND FROM DUPES
     00007 RECORDS ADDED


     9.2.5. BROWSE

     BROWSE

      BROWSE  -      ""  -
   .  19   -
    ( ,     80 -
).      .    -
-      -  .    
     -
  (.  8).

         BROWSE:

   ^E,A -   ;
   ^S   -   ;
   ^G   -    ;
   DEL  -    ;
   ^Q   -    ;
   ^W   -    
   ^B   -      ;
   ^Z   -      ;
   ^C   -       . ;
   ^R   -       . ;
   ^U   -      
             (    ).


     9.2.6. CANCEL

     CANCEL

                
    .

     :

     INPUT '  (Y/N)' TO X'
     IF X
     CANCEL
     ENDIF

        .   INPUT 
YES/NO.   YES ('Y',  'T'),    
IF X.


     9.2.7. CHANGE

     CHANGE [<>] FIELD <> [FOR <>]

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

         ^Y,  (  - 
)     CHANGE.  CHANGE 
  ESCAPE.

       :

    . USE CARDS
    . CHANGE FIELD DATE

      RECORD: 00001

      DATE: 08/19/81
      CHANGE? 81
      TO         82

      DATE: 08/19/82
      CHANGE? <RETURN>


     9.2.8. CLEAR

     CLEAR [GETS]

         GETS ( GET),       GET-
(.. GET-,   ,@) ,  
 .

         ERASE,      
 GET-   .

        GETS,       "".
    ,    
           
PRIMARY.

            ""      "
". ,    
    ""      SECONDARY,  
     ,      
 PRIMARY,   .

      CLEAR          
   .


     9.2.9. CONTINUE

     CONTINUE

          LOCATE.    LOCATE  
CONTINUE        ,    
. . LOCATE.


     9.2.10. COPY

     COPY TO <> [<>] [FIELD <>] [FOR <>]
     [SDF] [STRUCTURE] [DELIMITED [WITH <>]]

            .  <>
        ""         
( SDF).

         STRUCTURE,         
""   -.

              FIELD,    
   .   COPY STRUCTURE FIELD  <>,  
    .   FIELD  
,     .

        SDF,        
    .          
 .

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


        DELIMITED  SDF <>     
 .,  - DBF.

     - ,    .


     9.2.11. COUNT

     COUNT [<>] [FOR <>] [TO <>]

          .     
FOR,        ,    <>.
              <>.    
,       COUNT.

     "" :

     COUNT = XXXXX


     9.2.12. CREATE

     CREATE [< >]

          ""-.  
 ,       .

        < >,  :

       :

          , 
 SCP (, ":"   "").

        , "" :
       ? (Y/N)

         Y  N (      -
 ).

               "Y",  
""      .        
:    :

          ,,,  
     001

       -  10   ,    , 
    .    
:  ,   .   -
  :

     C -  ;
     N - ;
     L - .

     WIDTH   .     -
  .    -     ,
    .    
 .  -     , -
 -  .     1.

       :

 . CREATE
  :EXAMPLE
    :
        ,,, .
    001     NAME,C,20
    002     TELE:EXTSN,S,5
    003     MAIL:STOP,S,10
    004     ()                          
     ? Y

   RECORD 00001
   NAME:       XXXXXX, XXXXXX X.
   TELE:EXTSN 1357
   MAIL:STOP:  123/456

   RECORD 00002
   NAME:        ()                      


      9.2.13. DELETE

      DELETE [<>] [FOR <>]
      DELETE FILE < >

                <>   (
<>,    )   .    
<>       .        
,            PACK.  
      ,   
(APPEND)     .         
RECALL.           
     .
                     ,   
 .     ( USE),  
  .


      9.2.14. DISPLAY

      ). DISPLAY [<>] [FOR <>] [<.>] [OFF]
      ). DISPLAY STRUCTURE
      ). DISPLAY MEMORY
      ). DISPLAY FILES [ON <>] [LIKE <>]

      DISPLAY -  "".      
     -     .   DISPLAY   
  ,       
 .

       ""        
.     <>    FOR-, 
  .       <.>,      
   .         
,           (,  ,
).      ,     
     OFF,       .  
   FOR,               ,
 <>.

              15  ,   DISPLAY  
  .   LIST  DISPLAY,
       ,      -
 . ESCAPE-   DISPLAY  LIST.

        ""    .

        ""      
   ( + ).

       "" -   .DBF-, 
             <>, 
 .  LIKE   
   .  <>,     #.<>,   <>
  TXT,   FRM,  MEM       .    
   SCP DIR.


      9.2.15. DO

      . DO <>
      . DO WHILE <>
            <>
         ENDDO
      . DO CASE
            CASE <>
              <>
            CASE <>
              <>
            ...
            [OTHERWISE]
              <>
         ENDCASE

          ""     <>.    
    -   .         
"".  DO         16       (..
       DO,  
  ).   
       RETURN.        
  CANCEL,      
    .

          "",     <>  ,  
 <>,      <>
    ENDDO .

      :

   DO ACCNTPAY

   DO WHILE .NOT.EOF
     DISPLAY NAME
     ...
     SKIP
   ENDDO

     CASE            DO.    
    CASE  DO.

     DO CASE -  .     
  IF-:

   DO CASE                       IF ITEM=''
      CASE ITEM=''         <>
        <>            ELSE
      CASE ITEM=''            IF ITEM=''
        <>                  <>
      OTHERWISE                     ELSE
        <>                  <>
      ENDCASE                       ENDIF
                                 ENDIF

      ""   <>  CASE--
,     ,    
   ENDCASE.     ,  -
 OTHERWISE.
