.PO15
.PN 26

BROWSE

     BROWSE             DBASE   

   .   ,   

19-,    / 19-,    80 /.   

      ,  ,    . 

        .    

                

  .           

     /          

  8/.

       ,     BROWSE 

    :

CTL-E,A    -     ;
CTL-X,F    -     ;
CTL-D      -    ;
CTL-S      -     ;
CTL-G      -    ;
RUBOUT     -    ;
CTL-Q      -    ;
CTL-W        -           /CTL-O      SUPERBRAIN/; 

,      /CRT/

   *EJECT     -           

                   .
CTL-R         -         ;
CTL-U          -           0   

           "   "  "  .

:

   . BROWSE


   CANCEL

    CANGEL              

.

:

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

-  .  INPUT   / Y/N.
   /'Y'  , 'Y', 'T'  'T'/,    

IF X  ,      
  .TRUE.,   CANCEL  .
       ,  .

  CHANGE

CHANGE     ,         

         .      ,   

   ,   ,   

.                , 

.PO 5
      .
 () ,  CHANGE       

 ,    ( ).  , 

 ,   .

          CTL-Y
/    /       CHANGE?.    CHANGE  

      ESCAPE.

  :

 . USE CARDS
 . CHANGE FIELD DATE

 RECORD:    00001

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

 DATE:      08/19/82 
 CHANGE?    (CR)


CLEAR

CLEAR [GETS]

         GETS / GET/,       GET, 

   /.. GET,   @/, , 

     .         ERASE,   

   GET,     .
       GETS,      DBASE.   

  DBASE II  USE    ,     

      PRIMARY.
      " " DBASE II.  :     

     DBASE   SECONDARY  //,   

   ,  ,    

 PRIMARY //,  ,    .
   CLEAR       ,   ,  

     .

 :

 .CLEAR

CONTINUE

        LOCATE.  LOCATE  CONTINUE   

  , ,  .
         LOCATE.

COPY

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

         USE   . <>    

 DBASE      /   SDF/.
      STRUCTURE,     DBASE  

USE    "".

.PO 15
        FIELD   ,    

     .  COPY STRUCTURE FIELD <>,  

          //  .     

,          ,    

  FIELD.    FIELD ,   

  .
      SDF,     USE     

  .             ASCII.      

    ,          , 

  DBASE.  STRUCTURE  SDF  .
            DELIMITED,       

      ,    ,    

    .          

APPEND.    ,   ,        

DELIMITED  COPY      . 

  WITH  DELIMITED       . 

          ",",         

  ,       

        .   APPEND   

     .
       DELIMITED,    SDF,    

   /<>/           .  ,       

,      .DBF .
    "",    , .

 :

 .DISPLAY ALL OFF NAME,TELE:EXTSN
 NEUMAN, ALFRED E.       1357
 RODGERS, ROY            2468
 CASSIDY, BUTCH          3344
 CHANG, LEE              6743
 POST, WILEY             1011
 LANCASTER, WILLIAM J    6623
 NORRIS, R. "BOB"        8093

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

1-,  ;  2-,  ;  3-,  ; 4-, ; 5-, 

;  6-,   ;  7-,  ."".  8- ; 9-

    ;    10-        ;11- 

  ; 12-     ;13-.

 .COPY TO DUPE
 0007  RECORDS COPIED

 .COPY TO DUPE2 FOR TELE:EXISH '8000'
 0006  RECORDS COPIED





 .PO 5
.USE DUPE2
 
 .DISPLAY ALL
 00001    NEUMAN, ALFRED E.        1357      13/456
 00002    RODGERS, ROY             2468      180/103
 00003    COSSIDY, BUTCH           3344      246/401
 00004    CHANG, LEE               6743      190/901
 00005    POST, WILEY              1011       84/138
 00006    LANCASTER, WILLIAM J     6623      170/430

 .USE EXAMPLE

 .COPY FIELD NAME,TELE:EXTSN TO DUPE3
 00007    RECORDS COPYED

 .USE DUPE3

 STRUCTURE FOR FILE:   DUPE3
 NUMBER OF RECORDS:    00007
 DATE OF LAST UPDATE:  00/00/00
 PRIMARY USE DATABASE
 FLD     NAME           TYPE         WIDTH     DEC
 001   NAME              C            020
 002   TELE:EXTSN        C            005
 ** TOTAL **

1- ; 2-, ; 3-, ; 4-, ; 

5-,  ;  6-,  ;  7-,  ; 8- ; 9-

   ;    10-      ;   11- 

   ;  12-       ;  13-

.

 .DISPLAY ALL
 00001    NEUMAN, ALFRED E.        1357
 00002    RODGERS, ROY             2468
 00003    CASSIDY, BUTCH           3344
 00004    CHANG, LEE               6743
 00005    POST, WILEY              1011
 00006    LANCASTER, WILLIAM J     6623 
 00007    NORRIS, R. "BOB"         8093
 .USE EXAMPLE

 .COPY NEXT 4 TO DUPE5
 00004 RECORDS COPYED

 .USE DUPE5

 .DISPLAY ALL
 00001    NEUMAN, ALFRED E.        1357      123/456
 00002    RODGERS, ROY             2468      180/103
 00003    CASSIDY, BUTCH           3344      264/401
 00004    CHANG, LEE               6743      190/901

 (THE DELIMITED COPY)






 

.PO 15
 .USE ORDERS

 .DISP STRUCTURE
 STRUCTURE FOR FILE:   ORDERS.DBF
 NUMBER OF RECORDS:    00012
 DATE OF LAST UPDATE: 07,01/80
 PRIMARY USE DATABASE
 FLD      NAME             TYPE      WIDTH
 0001   CUSTOMER            C         020
 0002   PART:NO             C         005
 0003   AMOUT               N         005
 ** TOTAL **

1-,  ;  2-,  ;  3- , ; 4-, ; 5-, 

;  6-,  ; 7-, . ""; 8- ; 

9-      ;  10-  ;  11- 

;  12-  ;  13-    

; 14-     ; 15-.

 .LIST
 00001    SWARTZ, JOE         31415     13
 00002    SWARTZ, JOE         76767     13
 00003    HARRIS, ARNOLD      11528     44
 00004    ADAMS, JEAN         89793     12   
 00005    MACK, JAY           31415      3
 00006    TERRY, HANS         76767      5
 00007    JUAN, DON           21828      5   
 00008    SALT, CLARA         70296      9
 00009    BARNETT, WALT       31415      6
 00010    NICHOLS, BILL       76767     17
 00011    MURRAY, CAROL       89793      4
 00012    WARD, CHARLES A.    92653     15

 .COPY TO DELIM.DAT DELIMITED
 00012    RECORDS COPIED

'SWARTZ, JOE        ','31415',         13
'SWARTZ, JOE        ','76767',         13

          >>>>>>>>>>>>>>>>>>>>>
                . .


CREATE [< >]

         DBASE.     

,         .
         ,     < 

>,    ,    :

FILENAME :

                

   :                , 

  ,       CP/M 

   /  :    ""/.
     CREATE       ,  DBASE 

  :

DESTROY EXSISTING FILE ?            /  ?/


.PO 5
     Y  N    .
                   

    Y,  DBASE        

  .      :

ENTER RECORD STRUCTURE AS FOLLOWS:
  FIELD NAME, TYPE WIDTH, DECIMAL, PLACES
  001

   TE                 

.            10  , 

    ,   .     

    .      : , 

  .      :

      -  
     N - 
     L - 

         ,  ,       

  20 ,  ..     20.      

 ,  .     

   ,   ,     . 

       ;       

 ,         

 /  /,       , 

        .     

     1.  

 :

 .CREATE
 FILENAME: EXAMPLE
 INTER RECORD STRUCTURE AS FOLLOWS:
  FIELD    NAME, TYPE, WIDTH, DECIMAL PLACES
  001      NAME,C,20
  002      TELE:EXTSN,C,5
  003      MALL:STOP,C,10
  004      (CR)
 INPUT NOW?X

1- ; 2-    ;
3-       ; 4-   ?

 RECORD 00001

 NAME:         NEUMAN, ALFRED E.
 TELE:EXTSN:   1357
 MAIL:STOP:    123/456

 RECORD 00002

 NAME:         CASSIDY, ROY
 TELE:EXTSN:   2468
 MAIL:STOP:    180/103







.PO 15

 RECORD 00003

 NAME:         (CR)

 DISPLAY STRUCTURE
 NO FILE IN USE, FILENAME: EXAMPLE
 STRUCTURE FOR FIE:      EXAMPLE
 NUMBER OR RECORDS:      00002
 DATE OF LAST UPDATE:    00/00/00
 PRIMARY USE DATABASE
 FLD         NAME      TYPE    WIDTH    DEC
 001    NAME            C       020
 002    TELE:EXTSN      C       005
 003    MAIL:STOP       C       010
 ** TOTAL **

 .DISPLAY ALL
 00001    NEUMAN, ALFRED E.        1357      123/456
 00002    RODGERS, ROY             2468      180/103


DELETE

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

    ,      /   

      FOR,  /     . 

  ,     ,       

.                      

  PACK,  ,  ,    ,  

  ,    .   RECALL   

            ,     

.  ,       ,   

   .         

     .
         ,     <  >       

,     /  /,     

       .  , 

,   < >       / USE/,   

    .


   
 :

 .DELETE RECORD 2
 00001 DELETION (S)

 .DELETE NEXT 3
 00003 DELETION (S)

 .RECALL ALL
 00004 RECALL (S)

 .DELETE FILE B: SHOPSAVE
 FILE DELETED




.PO 5
DISPLAY

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

   DISPLAY    DBASE.         

        .
   DISPLAY                   

 ,     .
     .            

USE.            FOR <>,   

          .     

  ,   FOR <> ,       

        .       

 < >,     .   

     ,     - 

 ,   .      

    ,       OFF.   

    FOR,     ,     

   FOR,         

.
         15- ,  DISPLAY  -

       .       

""  .
     LIST    DISPLAY,     , 

   LIST                    , 

  ,   /ALL/ .
    ESCOPE    DISPLAY  LIST.
       .,               , 

  USE.
       .,              

 .
     .           .DBF,   

  ,     /    

/,        .   

LIKE       . <>   

  *.,       TXT,  FRN,  MEM   

     .        

,    DIR   /.

 .USE B:INVENTRY

 .DISPLAY STRUCTURE
 STRUKTURE FOR FILTE : B: INVENTRY. DBF

 .DISPLAY ALL ITEM, PART. NO, COST* ON: HAND & (PART:NO, 1,2 )
 FORT; COST > 100. AND . ON: HAND> 2 OFF

 .DISPLAY MEMORY

 .DISPLAY FILES ON B: LIKE *.FRM









.PO 15
 .DISPLAY FILES
 DATABASE FILES ORCDS   LAST UPDATE
 TEST     DBF   00077   00/00/00        
 ADRECS   DBF   00073   09/23/81
 HISTSTR  DBF   00000   06/29/81
 NOT A DBASE II DATABASE


A. DO <>
. DO WHILE <>
   <>
   END DO
. DO CASE
      CASE <>
         <>
      CASE <>
         <>
      .
      .
      .
      [OTHERWISE]
      .....<>
      ENDCASE

     .,  <>   .     , 

     /COMMAND FILE/.        DBASE. 

         ,       

,    .  DO     

O  16  /..         DO,   

     /.       , 

           RETURN.     

  ,     ,      

       .         

        CANCEL,          

      .
     .,   ,   TRUE,  

ENDDO.       FALSE,   

,    ENDDO.
     :        .   

DO  WHILE  ENDDO.        ; 

   IF "" DO WHILE,   ENDDO     ENDIF. 

  9.2  8,    .

 :

DO ACCNTRAY

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

   CASE    DO   ,  .  

    CASE,     DO CASE.   

OTHERWISE  .




.PO 5
   DO   CASE      .      CASE    

    ,         ,   

  OTHERWISE.            

    ,      CASE,       

  OTHERWISE.  OTHERWISE   ,   

 .    .
       DBASE    DO CASE       

"          IF.     ,  DBASE 

 DA CASE         IF-ENDIF.

DO CASE                                 IF ITEM='ORANGES'
   CASE ITEM ='ORAGES'                        
                        ELSE
   CASE ITEM='APLES'                    IF ITEM='APLES'
                              
   OTHERWISE                              ELSE
                              
ENDCASE                                   ENDIF
                                        ENDIF

     ,  DBASE        CASE   

  ,    ,    ,   

 .  DBASE   ,   "CASE",  

    ENDCASE.    ,       CASE   

,      .
      OTHERWISE      CASE   

   ,               

OTHERWISE.     OTHERWISE       CASE  

  ,           DO  CASE     

  .
     ,         "DO  CASE",      

.

 :

DO CASE
   CASE ITEM="BROWN"
        <>,   BROWN
   CASE ITEM="JONES"
        <>,   JONES
   CASE ITEM="SMITH"
        <>,   SMITH
   OTHERWISE
        <>,     
ENDCASE

    ,   ,            

.    .           ,   

  CASE     .

DO CASE
   CASE TODAY=""
          <>  
   CASE WEATHER=""
          <>  
   CASE CITY=" "
          <>   
ENDCASE




.PO 15
   ,   -     ,   CASE  

  .
     CASE      ,       

 .   .

DO CASE
   CASE 3=2+1
          <>  
   CASE .NOT. A
          <>   
   CASE "A" & "BSDEF"
          <>    
   OTHERWISE
          <>
ENDCASE

   ENDCASE   ,       DO 

CASE.       CASE  OTHERWISE,   

 ,   ENDCASE

EDIT

EDIT [N]

     EDIT        

     .       EDIT     

       DBASE       

/  SET SCREEN/
    DBASE       ,    

      "EDIT",  "EDIT N" /N   

 /.   N ,   DBASE   

 .  ,          , 

     ,     

.
      8,     ,     

   .
                  

,  DBASE  :
GOORD:
          ,      

,     //    .       

  :       /  /.     

  ,    DBASE      .   

     ,   DBASE        

              .   

    ,          DBASE     

  .            ,  DBASE 

               

"COORD:".
         ,    

   ,   DBASE     

  .     EDIT      

      COORD.
           CONTROL-U,  RETURN,  

       CHANGE ?.      

    ,    .         

         CTL-Q.            

        .




.PO 5
           

 ,  DBASE   ,   

 .           ,   

 /UN-USED/      .

 :

 .USE SHOPLIST

 .DISPLAY STRUCTURE
 STRUCTURE FOR FILE:     SHOPLIST
 NIMBER OF RECORDS:      00006
 DATE OF LAST UPDATE:    07/03/76
 PRIMARY USE DATABASE
 FLD      NAME           TYPE      WIDTH     DEC
 001   ITEM               C         020      
 002   NO                 N         005
 003   COST               N         010      002
 ** TOTAL **                      00036

 .LIST
 00001    BEANS  0303   SAN        5         0.69
 00002    BREAD                    2         0.89
 00003    T-BONE STEAKS            4         3.59
 00004    LITTUCE                  1         0.49
 00005    MILK (1 GAL BOTTLES)     2         1.19
 00006    CHARCOAL                 1         0.69

 .EDIT
 COORD: 5, ITEM, MILK (1/2 GAL)

 COORD: 2,1

 ITEM:BREAD

 CHANGE? D
 TO      D LOAVES

 ITEM: BREAD LOAVES
 CHANGE ? (CR)
 COORD: 6,1

 ITEM: CHARCOAL, 50 BAGS
 CHANGN ? (CR)
 COORD: ,2

 NO: 1
 TO: 2
 COORD: 4

 NO: 1
 TO: 2
 COORD: (CR)









.PO 15
 .LIST
 00001    BEANS  0303 CAN     5    0.69
 00002    BREAD LOAVES        2    0.89
 00003    T-BONE STEAKS       4    3.59
 00004    LETTUCE             2    0.49
 00005    MILK (1/2 GAL)      2    1.19
 00006    CHARCOAL, 50 BAGS   2    0.69


   /          

  .  "L"           

;    ,    ACCEPT,  ,  

 EDIT.

STORE 'I' TO X
DO WHILE X <> '0'
    ACCERT "    "  X
    EDIT &X
ENDDO


EJECT   

              

  / /,    PRINT   SET TO  PRINT.   

         ,           

,  AJECT      .
              
:

 .EJECT

 ENDOO
 
            DO  WHILE.     

,        DO     

   .

        DO .

   ,   .

 ERASE

 ERASE

            /    /   

     .     ""     

  SET SCREEN ON, ERASE     GET 

 PICTURES .

 :

 .ERASE








.PO 5
  FIND

  FIND <   >  ' <  >'
              DBASE    /FIND/          

     / B USE /,           

  <   >. FIND      

      .      FIND   

        .
        FIND          ,      

  /      INDEX  /.      INDEX 

          ,       FIND  

,       .
    ,        

  ,  < >.
:  ,    "SMITH, JOHN",    

      'FIND SMI'   ,        , 

  'SMI',  SMITH, JOHN    . FIND  

      ,             

,   <   >.      ,   , 

    ,    FIND       

  .
             ,       

  ,       ,     

'  FIND.
:   ,      ,    ,  ' 

  FIND          

  .        

     .    ,        

   .
        "  FIND    ,     

              FIND         - 

,  , FIND &NAME,  NAME    

    ,            

        STR    

       .        

 5.
           FIND     

    ,         ,     

     .  ,      ,  , 

   . . .
    DBASE,       /, LIST, 

REPORT,  COPY   ../,          

   ,   .
    ,    < >,  ,  

    :  "NO FIND"      "#"   

 ,  . 
                   ,       

  SKIP   LOCATE FOR <>. SKIP  , 

      ,  GOCATE /        

/    .
    SET EXACT ON  FIND  "  "    

           /      

/.







   

.PO 15
 :

 .USE SHOPLIST INDEX SHOPIHDX

 .LIST
 00001    BCANS               5    0.75
 00007    BLCU CHEESE         1    1.96
 00002    BREAD LOAVES        2    1.06
 00009    CHARCOAL            2    0.75
 00006    LETTUCE             2    0.53
 00008    MILK                2    1.30
 00004    PAPER PLATES        1    0.94
 00005    RLASTIC FORKS       5    0.42
 00003    T-BONE STEAK        4    4.33

 .FIND BREAD

 .DISPLAY
 00002    BREAD LOAVES        2    1.06

 .DISPLAY NEXT 3
 00002    BREAD LOAVES        2    1.06
 00009    CHARCOAL            2    0.75
 00006    LETTUCE             2    0.53

 .FIND P

 .DISPLAY
 00004    PAPER PLATES        1    0.94

 .FIND PLAS
 00005    PLASTIK FORKS       5    0.42

 .FIND P

 .DISPLAY
 00004    PAPER PLATES        1    0.94

   FIND          ,       

  .

 .LIST

 00001    FLYING HIGH              BIRD      I.   M.   IMB001 02/29/04
 00005    HESTING PROCCDURCS       BIRD      I.   M.   IMB002 09/25/06
 00002    DIVING                   FISH      U.   R.  .URF001 12/30/23
 00008    NURSING                  KNIGHT    AND  GALE KG001  08/04/44
 00010    VACATIONING IN EUROPE    KNIGHT    AND  GALE KG002  06/24/42
 00004    ......................   LUNCH,    T.        IL001  04/01/00
 00003    HOW TO SURVIVE A CRACH   LUNCH,    M.        ML001  01/01/30
 00007    IVCH PRIMES              SLADCK,   L         LS001  12/01/73
 00009    IVEN MORE PRIMES         SLADCK,   L         LS002  04/24/73
 00006    THINKING BIG             TIM,TINY            TT001  05/07/42

 .FIND "BIRD, I.M.    IMB002"

 .DISP
 00005    NESTING PROCEDURES       WIRD,I.M.           IMB002 09/25/06




.PO 5
 FIND "LYNCH, M"

 .DISP
 00003    HOW TO SURVIVE A CRASH LYNCH,M.              ML001  01/01/30

 .FIND "SLADEC,L     LS002"

 .DISP
 00009    EVEN MORE PRIMES         SLADEC,L            LS002  04/24/73


GO  GOTO

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

               

.
      ,     ,       

  // TOP /BOTTOM/         

//      .      USE  ,     

//         //   

      ,        /    , 

    .
     .          , 

    .

 :

 .USE SHCRLIST
 .GOTO RECORD 6
 .6
 .DISPLAY
 00006    LETTUCE             2    0.53
 .GOTO TOP

 .DISPLAY

 00001    BEANS               5    0.75

 .GOTO BOTTOM

 .DISPLAY

 00009 CHARCOAL               2    0.75

 .LIST
 00001    BEANS               5    0.75
 00002    BREAD LOAVES        2    0.97
 00003    T-BONE              4    3.94
 00004    PAPER PLOTES        1    0.86
 00005    PLASTIC FORKS       5    0.42
 00006    LETTUCE             2    0.53
 00007    BLEU CHEESE         1    1.96
 00008    MILK                2    1.30
 00009    CHARCOAL            2    0.75



.PO 15


 .STORE 4 TO RECORDNO
 4

 .GOTO RECORDNO

 .DISP

 00004    PAPER RLATES        1    0.86


IF

IF <>
   <>
ELSE
   <>
ENDIF

     IF             

.         .    <> 

,   TRUE //,    ,     IF. 

  <>    FALSE //,      , 

  ELSE.     ELSE,       

,        ENDIF.   IF        

.
    :  <>     .   

IF    IF   ENDIF.       

,   IF    DO  WHILE      /  /       

      DO WHILE.       

,  8-   9.8.

 :

 IF STATUS = 'MARRIED'
      DO MCOST
 ELSE
      DO SCOST
 ENDIF
 
 IF $$1
      STORE CITY + STATE TO LOCATION
 ENDIF

      ,   .


INDEX

INDEX ON <>  <  >

     INDEX             USE. 

<>     "".   ,    DBASE   

   /  /,           

    USE.       ,        USE 

           .     

  /USE/   .       

  .          

,   .     .


.PO 5

                 

                     

    FIND.  /  FILD./       
,            . 

                 

 .
         ,   INDEX        - 

     .   ,     APPEND     

  ,   .
               /    

    DBASE        ,     

      INDEX/,   TO        

    USE/   ,USE <    > INDEX 

<  >/.
                     

    ,   ,           

        PPEND,EDIT,REPLAGE,READ    

BROWSE.
                   PACK     

,          ,      A. 

,                

,                  

.

     :   TRIM    ,     

 .            

  /  STR,  TO           

  /      /./  ,  INDEX  NO  & 

(NAME, N, 5)+STR (AMOUNT, 5) TO ENDXFILE,   INDEX ON & (NAME, N, N+5)+STR 

(AMOUNT, SIZEVAR) TO ENDXFILE./


 :


 .USE SHOPLIST

 .LIST
 00001    BEANS               5    0.75
 00002    BREAD LOAVES        2    1.06
 00003    T-BONE STEAK        4    4.33
 00004    PAPER PLATES        1    0.94
 00005    PLASTIC FORKS       5    0.42 
 00006    LETTUCE             2    0.53
 00007    BLUE CHREESE        1    1.96
 00008    MILK                2    1.30
 00009    CHARCOAL            2    0.74
  