.PO 15
.PN 18
   APPEND, CREATE,  INSERT :

CTL-C     -         
            .

       -              

   -          

  DBASE.

   BROWSE :

CTL-U     -       :
                 ;
CTL-R     -          
             , ..     ;
CTL-C     -          
             , ..     ;
CTL-W     -         
               /CTL-O  SUPERBRAIN/;
CTL-Z     -      ;
CTL-B     -      .


9.0 .

             DBASE.   

      ,      

    .

9.1   .

     ,          

  DBASE,    .       

  ,       , 

        . ,

      .

                              

<>                  -    
<>                   DBASE;    
                                . IF  ENDIF / WHILE  
                                ENDDO/     -
                                ,          REPORT 
                                   .

< >         -     ;  
< >                 ,
                                     -
                                 /'/,   /"/  -
                                  /[ ]/.

<>                 -  -   -  
                                ;    
                                  ,  -
                                    -
                                    " ( ) * ,.

<>                   -  ;     
                                    
                                , ,     -

.PO 5
                                  - 
                                ."4+8"  "DOC='3'.OR.DOC='4'"
                                   ,   
                                 "$'ABC'+&SOMESTR,,3='ABCDEFG'".

< >            -   ,
                                ;   
                                .     
                                    -
                                 ,   -
                                  .

<>                        -  -    ; 
                                   ,    -
                                   ,  
                                      , -
                                 ITEM, COST, DATE  ..

< >             -       ,
<>                            .

<>                     -  -    ;  
< >                       ,  -
                                         
                                ,       
                                 3.0 .

< >                -     ;
                                  3.4    REPORT,
                                       -
                                      .

< >              -    ,    
                                  ; 
                                 3.6   INDEX,   ,
                                  ,       
                                    .

<>                        -   ,    -
                                       ; 
                                 .    -
                                      -
                                ,        /
                                 '  /.    
                                 <>   .
                                  INDEX   
                                 .

<>                  -  -   -
                                ;    
                                ,    -
                                 STORE      
                                ,    
                                   -
                                  /ACCEPT, INPUT  ../.  
                                  64-    ,
                                   DBASE.

< >           -      ,
                                    .


.PO 15
<>                           -  ;  
                                ,     
                                     -
                                ."4+8"   ,
                                    "4"  "4687"  
                                .

< >            -    
                                ;      
                                   . 
                                 ,     -
                                .

LL                           -     . ALL  -
                                ,        
                                        -
                                      -
                                .      ALL -
                                  .   
                                      -
                                 /    ,  
                                     -
                                  ,  
                                  DELETE/.   
                                   ,  
                                  .     -
                                    FOR   -
                                 , ALL  .

NEXT N                        -     N-, -
                                  ; NEXT   -
                                  ,     -
                                 .  N    -
                                 ,     
                                     -
                                .

RECORD N                      -     N;  
                                N        
                                  -     -
                                ,      -
                                .

FOR <>               -   ,      -
                                    -
                                ,    , 
                                 FOR   
                                  /     
                                 /.

WHILE <>             -     ,  
                                     
                                 .  
                                   , 
                                   .  
                                    WHILE     
                                NEXT 65534,     ,
                                      
                                 .



.PO 5
        ,     

.        '   .


9.2    .

         "" ,     ,     

   ,      .     

                 

 .

1.               

    ;           . 

    :  CREATE,  APPEND,  REPORT,  SET,  DISPLAY, 

ERASE -     -    . 

  ,      . FOR, NEXT, 

WITH   ,   .      

    " ".
2.   ,       ,       

  .     ,       

   254 ,   3- .
3.         ,   254    /   

/.
4.                ( 

)  .  ,  DISPLAY STRUCTURE      DISP 

STRU  DISPL STRUCT  .  .  ,     

       ,   .
5.    ,   ,  ,     

 ,     ,   .
6.              ,   ,    

              

,      ,      

    /  [ ] /.        ,   

    .      

        ,     

,   .
7.        ,     

,        -      ,       

  .     DBASE      .  , 

        ,  , 

         WHILE         

  DO,   DO WHILE,    ALL   

     .
    ,      ,    

   DBASE       .
8.    DBASE            . 

  -  ,         

     .            

   IF-ELSE-ENDIF  DO WHILE-ENDDO.      

,     ,  .
    DBASE       ,        ,     

    .
       ,        

 .








.PO 15
DO WHILE .NOT. EOF                
     -------                  .  IF-ELSE-ENDIF -
                          DO  WHILE-

     -------                  ENDDO.
   IF A .AND. B                   DO WHILE -ENDDO
     -------                               ELSE 

                               IF-ELSE-ENDIF.
                
                   
     -------
   ELSE                       TO       
  DO WHILE A<57               ,  DBASE  
     -------                      
E  
   
     -------
   NDDO   
     -------
  
,  " 
            
    "
     --------        
   ENDIF
     --------
  
,  
""
     --------
   ENDDO.
DO WILE .NOT. EOF                NO NO.ENDDO   
     --------                  IF-ENDIF,    -
                     .
     --------
IF,  ,                ,      -

              ,      , DBASE 
     --------                  ' .
   ENDDO
     --------
 
  
     --------
   ENDIF


? [< >]
??[< >]

            DISPLAY;  OA 

  DISPLAY  OFF < > .         

,       .
     " " /  "  /   

  ,      ,      .  "?"   

     .          

   ""   .
         "??"       "?"   

 ,         

    .            

 ,            .
      


.PO 5
     :
  .ISE EAMPLE
  .4
  .<#
   4
  .? 
  CHANG, LEE
  .? 5+9

  14

        ,    ?   

       .      

   :
  "DBASE  B:FILE".  DBASE         

.

   SET DEFAULT TO G
   USE TRAGE INDE TRAGE

   DISP STRU
   ?
   ACCERT "  ."  DTE
   SET DATA TO BDTE
   RELEASE DTE
   RETURN

   @<> [SAY<> [USING<>]]
      [GAT < >[PISTURE <A>]]
     
              SET  FORMAT  TO,   ERASE,   EJECT, 

CLEAR,GETS  READ          

,    ,        

          .          "@"     ' 

,     ,     SET FORMAT  TO. 

        ,            

-   ,      SET.   

 .
    <>   "X,Y"         

,           ,        

   .
    "X,Y"    //   /Y/.      /CRT/ 

,   ,    "" - 23,   

 "Y"  0  79,  , 24   80 .
    DBASE     0-             

        .       

,   ,     ""   "Y", 

   0  254.           

-   ,                

.    SET FORMAT   ,     

    .
       SET FORMAT TO SCREEN /   / 

 "@"     ,    0,0  

            .  /   

       HOME // /.    10,15   

11-   16-   .       

    .   "@"         

, ,    /SAY/ -   15  ,  

  /SAY/      10-  .    ,     

   .


.PO 15
        SET FORMAT TO PRINT,    "@"   

    .    0,0  

       .   "@"      

    .     ,   

   .        , 

     /    /.      

 5     20-   ..      

,                

.
       SET FORMAT TO SCREEN,   ERASE    

  ,       ,    

GETS  /.  /      0,0.      SET 

FORMAT TO PRINT, EJECT        0,0.
      SAY        ,     

    ,     READ. 

 USING    ,     

SAY.    ' .     , 

     USING.  DBASE     

,   USING.
      SAY          ,     

  . ,  SETS   

 ,    SET FORMAT TO SCREEN.  GET   

       .
            ,         GET   

      READ.
      PICTURE         GET    ,   

              

.   /.     READ        /.    

  PICTURE    ,      /,     

/   PICTURE.

 .APPEND
 RECORD 00006

 NAME: LANCASTER, WILLIAM J
 TELE:EXTSN: 6623
 MAIL:STOP: 170/430

 RECORD 00007

 NAME: NORRIS,R. "BOB"
 TELE:EXTSN: 8093
 MAIL:STOP: 427/396

 RECORD 00008

 NAME: <CR>

 .DISPLAY ALL OFF NAME,TELE:EXTSN

 NEUMAN,ALFRED E.         1357
 RODGERS, ROY             2468
 CASSIDY,BUTCH            3444
 CHANG,LEE                6743
 POST,WILEY               1011
 LANCASTER,WILLIAM J      6623
 NORRIS,R. "BOB"          8093

 .APPEND FROM DUPE3
 00007 RECORDS ADDED


.PO 5




 .DISPLAY ALL

 00001 NEUMAN,ALFRED E.       1357      123/456
 00002 RODGERS,ROY            2468      180/103
 00003 CASSIDY,BUTCH          3444      264/401
 00004 CHANG,LEE              6743      190/901
 00005 POST,WILEY             1011       84/138
 00006 LANCASTER,WILLIAM J    6623      170/430
 00007 NORRIS,R. "BOB"        8093      427/396
 00008 NEUMAN,ALFRED E.       1357      
 00009 RODGERS,ROY            2468
 00010 CASSIDY,BUTCH          3444
 00011 CHANG,LEE              6743
 00012 POST,WILEY             1011
 00013 LANCASTER,WILLIAM J    6623
 00014 NORRIS,R. "BOB"        8093

 .APPEND BLANK

 DISPLAY
 00015

 .REPLAGE NAAME WITH 'RINEHART,RALPH'
 00001 REPLAGEMENT(S)

 .DISPLAY
 00015 RINEHART,RALPH

 .DISPLAY ALL NAME,'EX=',TELE:EXTSN

 00001 NEUMAN,ALFRED E.       EX=1357
               -"-"-"-"-"-
               -"-"-"-"-"-
 00015 RINEHART,RALPH         EX=


