.PN 44
.PO 15


 . DISPLAY STRUCTURE
 STRUCTURE FOR FILE:     SHOPLIST.DBF
 NUMBER OF RECORDS:      00009
 DATE OF LAST UPDATE:    07/03/76
 PRIMARY USE DATABASE
 FLD      NAME      TYPE      WIDTH     DEC  
 001   ITEM          C         020      
 002   COST          N         010      002
 ** TOTAL **

 .NOTE CREATE INDEX FILE SHOPINDX

 .INDEX ON ITEM TO SHOPINDX

 .NOTE NOW IN INDEX ORDER

 .LIST
 00001    BEANS               5    0.75
 00004    BLUE 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    T-BONE STEAK        4    4.33

 .NOTE INDEXING ALLOVS FIND COMMAND

 .FIND MILK

 .DISPLAY
 00008    MILK                2    1.30

 .FIND DO

 .DISPLAY
 00001    BEANS               5    0.75
 .SKIP

 RECORD:  00007

 .DISPLAY
 00007    BLUE CHEESE         1    1.96

 .SKIP - 1
 RECORDS: 00001

 .DISPLAY
 00001    BEANS               5    0.75











.PO 5
 .NOTE RDCULAR USE COMMAND DOEJ NOT INCLUDE INDEX FILE

 .USE SHOPLIST

 .LIST
 00001    BEANS               5    0.75
 00002    BREND LONVES        2    1.06
 00003    T-BONE STOAK        4    4.33
 00004    PAPER PLATES        1    0.94
 00005    PLASTIC FORKS       5    0.42
 00006    LETTUCE             2    0.53
 00007    BLU CHEESE          1    1.96
 00008    MILK                2    1.30
 00009    CHARCOAL            2    0.75

 .NOTE ALTERNATE FROM USE COMMAND RECALLS INDEX FILE 

 .USE SHOPLIST INDEX SHOPINDX

 .LIST
 00001    BEANS               5    0.75
 00007    BLUE CHEESE         1    1.96
 00002    BREAD               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    PLASTIC FORKS       5    0.42
 00003    T-BONE STEAK        4    4.33

 .USE BOOKS
 .DISP STRU

 STRUCTURE FOR FILE:     BOOKS.DBF
 NUMBER OF RECORDS:      00010
 DATE OF LAST UPDATE:    10/18/81
 PRIMARY USE DATABASE
 FLD      NAME           TYPE      WIDTH     DEC
 001   TITLE              C         025
 002   AUTHOR             C         015
 003   CAT:NUM            C         006
 004   :            C         008
 ** TOTAL **                      00055

 .INDEX ON AUTHOR - CAT:NUM TO BOOKS
 00010 RECORDS INDEX

 .LIST
 00001    FLYING HIGH              BIRD, I. M.    IMB001  02/29/04
 00005    NESTING PROCEDURES       BIRD, I. M.    IMB001  09/25/06
 00002    DIVING                   FISH, U. R.    URF001  12/30/23
 00006    NURSING                  KNIGHT AND GALE KG001  06/04/44
 00010    VACATTIONG IN EUROPE     KNIGHT AND GALE KG002  06/24/42
 00004    101 WAYS TO TIE A KNOT   LYNCH, I.       IL001  04/01/00
 00003    HOW TO SURVIVE A CRASH   LYNCH, M.       ML001  01/01/30
 00007    EVEN PRIMES              SLADEK, L       LS001  12/01/73
 00009    ........................ ..............  LS002  04/22/73
 00006    THINKING BIG              TIM, TINY      TT001  05/07/42




.PO 15

INPUT

INPUT ["< >"] TO <>

                     

        ,   

        .    , 

                .    

  <  >,              

 ,      .
     <>      ,    .   

    ,   <>   

.       ,   <>    

.      Y / TRUE/   YES //,     

       TRUE;    F   / 

FALSE //  NOT ///,   <      

  FALSE.              

   TYPE.
                 

      ,       ,   ,   

,      .
   INPUT              

.    ACCEPT             

.
   
 :

 .INPUT TO Y
 :3
   3
 .INPUT TO Z
 :23/17.000 + Y
  4.352

 .INPUT '   '  Q
    : 123456
  123456

 .INPUT '     '  LOG
     : T
 .T.

 .INPUT "  "  CHAR
   :      
      

 .DISP MEMO
 Y        (N)       3
 Z        (N)       4.352
 Q        (N)       123456
 LOG      (L)       .T.
 CHAR     (C)            
 ** TOTAL **         05 VARIABLES USED 00059 BYTES USED
 .INPUT '   ' TO LOG2
    : Y
 .T.

 1- **  ** 05   00059 .



.PO 5

INSERT

INSERT [BEFORE] [BLANK]

            . 

 INSERT         . 
    BEFORE   ,      , 

     ,    ,      

    .    BLANK   ,   

    ,        

APPEND  CREATE.
      BLANK,    .
     CAPPY    /SET ON/,          

   .
           "    

      ,        .     

   ,        ,       

 /APPEND/.

 :

 .USE SHOPLIST

 .LIST
 00001    BEANS 0303 CAN      5    0.96
 00002    BREAD LOAVES        2    0.86
 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

 .GOTO RECORD 4

 .INSERT

 RECORD   00004

 ITEM:         BLUE CHEESE
 NO:           1
 COSTJ:        1.79

 .LIST
 00001    BEANS 0303 CAN      5    0.69
 00002    BREAD LOAVES        2    0.89
 00003    T-BONE STEAK        4    3.59
 00004    LETTUCE             2    0.49
 00005    BLUE CHEESE         1    1.79
 00006    MILK (1/2 GAL)      2    1.19
 00007    CHARCOAL, 50 BAGS   2    0.69
 .GOTO RECORD 4











.PO 15

 .INSERT BEFORE

 RECORD 00004

 ITEM:    PAPER PLATES
 NO:      1
 COST:    .79


 .LIST
 00001    BEANS 0303 CAN      5    0.69
 00002    BREAD LOAVES        2    0.89
 00003    T-BONE STEAK        4    3.59
 00004    PAPER RLATES        1    0.79
 00005    LETTUCE             2    0.49
 00006    BLUE CHEESE         1    1.79
 00007    MILK (1/2 GAL)      2    1.19
 00008    CHARCOAL, 50 BAGS   2    0.69
 00009    CARCOAL, 50 BAGS    2    0.69
  .5

 .REPLACE ITEM WITH  ' PLASTIC FOKS ' AND WITH 5 AND COST
 WITH .39 

 00001    REPLACEMENT (S)

 .LIST
 00001    BEANS 0303 CAN      5    0.69
 00002    BREAD LOAVES        2    0.89
 00003    T-BONE STEAKS       4    3.59
 00004    PAPER PLATES        1    0.79
 00005    PLASTIK FORKS       5    0.39
 00006    LETTUCE             0.   0.49
 00007    BLUE CHEESE         1    0.49
 00008    MILK (1/2 GAL)      2    1.19
 0000C    HARCOAL, 50 BASG    2    0.69



JOIN

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


   
            DBASE.      " 

           ,     

   .
                 

USE.      SELECT PIMARY.     JOIN. 

  JOIN  DBASE          

USE      ON          USE. 

 ,        TRUE,  

     .      , 

     ,    "" 

            ,         

   USE.




.PO 5
     FIELDS ,         

      USE     A  

USE,       DBASE,  32- .
      FIELDS ,       ,     

 ,      .
                 ,   

         ".       

     ,         

     ,        

 JOIN,   DBASE   .  , ,  

       USE   1000        

   ,    JOIN    

       ,          

,  DBASE   65535 .

:

 .USE INVENTRY

 .DISPLAY STRUCTURE
 STRUKTIRE FOR FILE:     INWENTRY.DBF
 NUMBER OF RECORDS:      00008
 DATE OF LAST UPDATE:    00/00/00
 PRIMARY USE DATABASE
 FLD      NAME           TYPE WIDTH          DEC
 001 ITEM                 C    020
 002 COST                 N    010           002
 003 PART:NO              C    005
 004 ON:HAND              N    005
 ** TOTAL **

 .LIST
 00001    TIME STITCH              9.99  24776   1
 00002    WIDGET                   1.67  31415  18
 00003    GADGET, LARGE           16.33  92653   7
 00004    TANK, SHERMAN       134999.00  89793   3
 00005    SINK,KITCHEN            34.72  21828  77
 00006    RINGS,GOLDEN           200.00  70296   5
 00007    TROMBONES              198.33  76767  76
 00008    09 COAL                 22.00  11528  16

 .SELECT SECONDARY

 .USE ORDERS

 .DISPLAY STRUCTURE
 STRUCTURE FOR FILE:     ORDERS.DBF
 NUMBER OF RECORDS:      00008
 DATE OF LAST UPDATE:    00/00/00
 PRIMARY USE DATABASE
 FLD      NAME      TYPE      WIDTH          DEC
 001  CUSTOMER       C         020 
 002  PART:NO        C         005
 003  AMOUNT         N         005
 ** TOTAL **                 00031







.PO 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

 .SELECT PRIMARY

 .JOIN TO ANNOTATE FOR PART:NO*S.PART:NO:    ,
 FIELD CUSTOMER, ITEM, AMOUND, COST           
 .USE ANNOTATE                            K .

 .DISPLAY STRUCTURE
 STRUCTURE FOR FILE:     ANNOTATE.DBF
 NUMBER  OF RECORDS:     00008
 DATE OF LAST UPDATE:    00/00/00
 PRIMARY USE DATABASE
 FLD      NAME      TYPE      WIDTH     DEC
 001   CUSTOMER      C         020
 002   ITEM          C         020
 003   AMOUNT        N         005
 004   DAST          N         ...      002
 ** TOTAL **                 000..

 .LIST
 00001    SWARTZ,JOE          .............            13           1.67
 00002    MACK,JAY            .............             3           1.67
 00003    ADAMS,JEAN          TANK,SHERMAN             12      134999.00
 00004    JUAN,DON            SINK,KITCHEN              5          34.72
 00005    SWARTZ,JOE          TROMBONES                13         198.37
 00006    TERRAY,HANS         TROMBONES                 5         198.37
 00007    SALT,CLARA          RINGS,GOLDEN              9         200.00
 00008    HARRIS,ARNOLD       09 COAL                  44          22.00

 .USE INVENTRY

  :
/     ,    

,        ,         

 ./

 .JOIN TO WACKORDR FOR PART:NO=S.PART:NO.AND.ON:HAND<AMOUNT;
 FIELD CUSTOMER,ITEM
 .USE WACKORDR

 .LIST
 00001    ADAMS,JEAN          TANK,SHERMAN
 00002    SALT,CLARA          RINGS,GOLDEN
 00003    HARRIS,ARNOLD       09 COAL









.PO 5
LIST

   LIST       ,    DISPLAY,     

,            /ALL/ 

      /WAIT/        

15- .  ,   LIST STRUCTURE, LIST FILES  LIST 

MEMORY   , KAK  DISPLAY.
   

LOATE

LOATE [< >] [FOR <>]
[CONTINUE]

            USE -      

,       <>  TRUE.  

 ,       :

RECORD 

     CONTINUE       .   

LOATE    CONTINUE        DBASE.  ,   

          FOR  <>   

128,  254.  CONTINUE.
        ,    END OF FILE  

        .      

    NEXT  /  ,    9.1/   

             NEXT,   

  END OF LOGATE         

 .

 : LOATE    ,   / 

 USE/   .

 :

 .USE SHOPLIST

 .LIST
 00001    BEANS 0303 CAN      5         0.69
 00002    BREAD LOAVES        2         0.89
 00003    T-BONE STEAKS       4         3.59
 00004    PAPER PLATES        1         0.79
 00005    PLAS TIC FORKS      5         0.39
 00006    LETTUCE             2         0.49
 00007    BLEU CHEESE         1         1.79
 00008    MILK (1/2 GAL)      2         1.19
 00009    CHARCOAL,50 BAGS    2         0.69

 .LOATE FOR COST>.70
 RECORD: 00002
 .CONTINUE
 RECORD: 00003

 .DISP ITEM
 T-BONE STEAKS

 .CONTINUE
 RECORD: 00004



.PO 15

 .CONTINUE
 RECORD: 00007

 .CONTINUE
 RECORD: 00008

 .CONTINUE
 END OF FILE


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
    IF ITEM = '   '              ITEM  ,
      SKIP                         
      LOOP                        DO WHILE

    ENDIF
    DO PROCESS
    ENDDO 

    2-O 

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


MODIFY

A. MODIFY STRUCTURE
. MODIFY COMAND [< >]

     .          

  DBASE.      .        , 

       /,  ,  ,  , 

  /.
  


.PO 5
   MODIFY                USE. 

    ,      

   ,            

:  CTL-T           ,CTL-N 

    ,      .     

   ,     9.
 :   MODIFY STRUCTURE    ,   

   USE -    MODIFY.        

  ,       /COPY/      , 

   ,  ,      /APPEND/   

 .
                   

/RENAME/,            . 

  .
     .             

     /    /.    <  > 

,     .    ,  

 .   ,    , MODIFY COMMAND 

    .      .CMD.
        MODIFY COMMAND,    CTL-N   CTL-T 

  ,         .  CTL-Q     

    ,  CTL-W        

  ,    .
           :
1. /    77    /  / 

 /;
2. /     /;
3. /          4000 /;
4.  /      ,        

 .
               

 ,     MODIFY COMMAND,    :
CTL-N -   ,     ;
CTL-T  -   ,           

;
CTL-W  -            

   MODIFY COMMAND /CTL-O  SUPER BRAUN/;
CTL-Q -  - ,    ;
CTL-R -     ;
CTL-C -     ;

 :

 .NOTE   ---                 

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











.PO 15

NOTE

A. NOTE  
.  *  


          .    

  REMARK,                

 .

 :

 .N -  : 4  1976
 * --      


PACK

         ,      

DELETE.            PACK,         

 .
    ,   /PACKED/,    

     /USE/,    PACK    

             USE- .       

  ,    /PACK/        

   .
                ,   

       /INDEX/   , 

  PACK /  /   .
         /COPY/     

  .      /    /     

.            /     

/,    .

 :

 .USE B:SHOPSAVE
 .LIST
 00001    BEANS               5         0.75
 00002    BREAD LOAVES        2         0.97
 00003    T-BONE              4         3.94
 00004    PAPER PLATES        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

 .DELETE RECORD 8
 00001    BEANS               5         0.75
 00002    BREAD LOAVES        2         0.97
 00003    T-BONE              4         3.94
 00004    PAPER PLATES        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 5

 .PACK
 PACK COMPLETE, 00008 RECORDS COPIED

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

   PACK    ,  ,      

  ,        .   

    /COPY/,   /APPEND/    /SORT/; 

,     /COUNT/.     ,  

          .   

,     ,      

,    ,       

.

DO WHILE. NOT . FOR
   LOCATE FOR NATURE = "TLM"
   IF .NOT. *

   .  
   
   .
  ENDIF
  CONTINUE
ENDDO


QUIT

QUIT [TO<  >]

         ,     

      .       

 *** END RUN DBASE ***.
         ,        <   

>     /.
          DBASE       

 . 
            /,   

    ,       254     

   .       DBASE     

 .  ,    ; /     

   .

 :

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

     ,     DBASE,    

    ,    PIP        

         DBASE    

 /CMDFILE.CMD/,    .


.PO 15

READ

READ

               /   

  ,        "" 

  GET.         GET - . 

,      ,    

     .
      SET FORMAT TO < >,   READ  

    ""   ,     , 

     GET.  ,     

               EDIT,       

 .
       SET FORMAT TO SCREEN,        

  ERASE.        ""   

.    READ,   .
      READ       "", 

 READ      GET.     

READ.   ,       

    ,        

  READ.
   ,               ""   

,      READ,      USE-

,       ,          

   .                  

,      "".  ,  

  ,              

,               /, 

STORE '   ' TO MEMVAR/.
       8           

   .
           SET SCREEN ON /    , 

    ,     DBASE  II     

   /.

 :

 .
 .
 .
 STORE '   ' TO PTYPE
 STORE '             ' TO ACCT
 ERASE
 E5,0 SAY '   '
 6,0 SAY '       I   '
 8,10 PTYPE
 READ
 IF PTYPE='D'
 E 10,10 SAY '  ' G  PICTURE '999-99-9999'
    READ
 ENDIF
 .
 .
 .






.PO 5

                

  "".      ,     

    PTYPE.     STORE   

   PTYPE   ,   ,  

,  PTYPE       READ.
      DBASE   "D",        

"",     . ,    STORE  

     ,      

,     PICTURE  "".


 USE CHECKS
 SET FORMAT TO SCREEN
 ACCEPT "  " TO CHOICE
 IF CHOICE&'AA'
   ERASE
   DO WHILE NUMBER # O
     APPEND BLANK
     E 5.0 SAY "  ";
           GET NUMBER PICTURE '99999'
     E 6.0 SAY " ";
           GET RECIPIENT PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXX'
     E 7.0 SAY " "
           GET AMOUNT PICTURE '9999999999'
     E 8.5 SAY "  ?"
           GET NOME
     E 8.30 SAY "  ?"
           GET OUTGOING

     READ
   ENDDO
  ENDIF

   ,      , , 

  ,     ,        

   .
       ,    "".


RECALL

RECALL [< >] [FOR <>]

              ,     

  DELETE.

 :

 .USE DUPE3

 .LIST
 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




.PO 15

 .3

 .DELETE NEXT
         00003 DELETION (S)

 .LIST
 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

 .RECALL RECORD
 00001 RECALL (S)

 .LIST
 00001    NEUMAN,ALFRED E.              1357 
 00002    RODGERS,ROY                   2468
 00003    *COSSIDY,BUTCH                3344
 00004    CHANG,LEE                     6743
 00005    *POST,WILEY                   1011
 00006    LANCASTER,WILLIAM J           6623

 .RECALL ALL
 00002 RECALL (S)

 .LIST
 00001    NEUMAN,ALFRED E.              1357
 00002    RODGERS,ROY                   2466
 00003    CASSIDY,BUTCH                 3344
 00004    CHANG,LEE                     6743
 00005    POST,WILEY                    1011
 00006    LANCASTER,WILLIAM J           6623


RELASE

RELASE [< >]
       [ALL]

                  
,       ,          
.     ALL,      .


REMARK

REMARK  

          .   

    ,    .

 :

 .REMARK ******   REMARK ******
 ******   REMARK ******




.PO 5

RENAME

RENAME <  >  <  >

             /. 

      /  ,     /,   

DBASE ,         

  .DBF.
         DBASE  , 

  4.

 :

 .RENAME INVENMAC TO INVENOLD
 .RENAME D:REPORT.FRM TO REPORT BAK
 .RENAME TYPELESS. TO TYPED.TUP


REPLACE

REPLACE [< >] <> WITH <> [< 2>
WITH <>]  . .
               [FOR <>]

         ,     

    USE     .       

 STORE  ,   REPLACE    ,   

   STORE    .
          ,   REPLACE   

   .
     REPLACE          USE,   

          

              .      / 

    USE/     .    REPLACE 

    ,     "   "   

,    "  "        ,       

"  ".       NEXT      

.

 :

 .USE SHOPLIST
 .NOTE      10%
 .LIST
 00001    BEANS 0303 CAN           5    0.69
 00002    BREAD LOAVES             2    0.89
 00003    T-BONE STEAK             4    3.59
 00004    PAPER PLATES             1    0.79
 00005    PLASTIC FORKS            5    0.39
 00006    LETTUCE                  2    0.49
 00007    BLEU CHEESE              1    1.79
 00008    MILK (1/2 GAL)           2    1.19
 00009    CHARCOAL, 50 BAGS        2    0.69

 .REPLACE ALL COST WITH COST*1.1
 00009 REPLACEMENT (S)





.PO 15 
 .LIST
 00001    BEANS 0303 CAN           5    0.75
 00002    BREAD LOAVES             2    0.97
 00003    T-BONE STEAKS            4    3.94
 00004    PAPER PLATES             1    0.86
 00005    PLASTIC FORKS            5    0.42
 00006    LETTUCE                  2    0.53
 00007    BLEU CHEESE              1    1.96
 00008    MILK (1/2 GAL)           1    1.30
 00009    CHARCOAL, 50 BAGS        2    0.75

 .USE B:SHOPLIST

 .COPY TO B:SHOPWORK
 00009 RECORDS COPIED

 .LIST
 00001    BEANS                    5    0.75
 00002    BREAD LOAVES             2    0.97
 00003    T-BONE                   4    3.94
 00004    PAPER PLATES             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

 .GOTO TOP

 .REPLACE NEXT 6 COST WIHT COST * 1.1 FOR COST >.75
 00003 REPLACEMENT (S)

 .LIST
 00001    BEANS                    5    0.75
 00002    BREAD LOAVES             2    1.06
 00003    T-BONE                   4    4.33
 00004    PAPER PLATES             1    0.94
 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

 .USE CHECKS

 .DISP STRU
 STRUCTURU FOR FILE:     CHEECKS.DBF
 NUMBER OF RECORDS:      00016
 DATE OF LAST UPDATE:    10/16/81
 RRIMARY USE DATABASE
 FLD      NAME           TYPE WIDTH     DEC
 001 NIMBER               N    005
 002 RECIPIENT            C    020
 003 AMOUNT               N    010      002
 004 NOME                 L    001
 005 OUTGOING             L    001
 ** TOTAL **                 00038





.PO 5

 .LIST
 00001    1 PHONE COMPANY               104.89    .F.  .T.
 00002    2 GAS COMPANY                   4.15    .F.  .T.
 00003    3 ELECTRICITI                 250.30    .F.  .T.
 00004    4 GROCERY STORE              1034.45    .F.  .T.
 00005  134 ME, SALARY                  561.77    .T.  .F.
 00006    6 BANK (SC)                     4.00    .T.  .T.
 00007    7 DOCTOR DOOLITTLE            100.00    .T.  .T.
 00008    8 PIRATES                     100.00    .F.  .T.
 00009    9 CAR REPAIR MAN              500.01    .F.  .T.
 00010   10 ME                          561.77    .T.  .F.
 00011   11 TUPERWARE                    50.02    .F.  .T. 
 00012   12 ME                          561.02    .T.  .F.
 00013   13 ME                          750.03    .T.  .F.
 00014  234 PETER RABBIT                 14.00    .F.  .T.
 00015  237 GOLDEN GOOSE                650.00    .F.  .T.
 00016   30 ME                          561.77    .T.  .F.

 .11

 .REPLACE NOME WITH F
 00001 REPLACEMENT (S)

 .DISPLAY
 00011    1 TUPERWARE                    50.02    .F.  .T.


REPORT

REPORT [FORM < >] [< >] [TO PRINT]
[PLAIN]

   REPORT      /  ,     

/        ,      USE,   

  .           ,   

       ,     , 

   .
    FOR  ,     ,    

  <>,     ;      PRINT   

       ,        ;   

<  >           

/LL/,    .
         REPORT    /    /   

    FORM.  DBASE     

         FORM.   

      FORM            

   .    FORM ,     

   .
                  . 

               

    "" /  - 8 /;   

    "L" /  - 57 /;   

     "W" /    

 80- /,          

  .






.PO 15

 :

 .REPORT FORM SHOPFORM
 ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, W=PAGE WIDTH M=5, W=65
 PAGE HEADING (Y/N) Y
 ENTER PAGE HEADING:    
 DOUBLE SPACE REPORT? (Y/N) N
 ARE TOTALS REQUIRED? (Y/N) Y
 SUBTOTALS IN REPORT? (Y/N) N
 COL      WITDTH, CONTENTS
 001      23,ITEM +'...'
 ENTER HEADING:;=======
 002      10,NOO
 ENTER HEADING:>;==========
 ARE TOTALS REQUIRED? (Y/N) Y
 003      10,COST
 ENTER HEADING:>/;========     
 ARE TOTALS REQUIRED? (Y/N) N
 004      10,NO*COST
 ENTER HEADING:> :=========
 ARE TOTALS REQUIRED? (Y/N) Y
 005      / /

1- ,= ,L=/,W= ;
2-  ?;  3-   ;  4-   

?; 5- ?; 6-   ?; 7- 

, ; 8- 

   REPORT          .  , 

 ,      ,  

  -  ,  ,    ,  , 

ITEM  ,    23 ,    

  ITEM     20 .     ,   

  '...'            ITEM.    

      .    ,     

   ,   ,     , 

DBASE      .  80-     

  ,     50-  .
            ,    , 

    .  ,                

 ,     .      

,       ,      ,   

    /     /    , 

     .  4-      NO 

//  COST //.  4-    ,  

   ./   /   /  ITEM, NO  COST 

/.














.PO 5

: 

 .LIST
 00001                    5         0.75
 00002              2         1.06
 00003               4         4.33
 00004         1         0.94
 00005        5         0.42
 00006    -         2         0.53
 00007                     1         1.96
 00008                  2         1.30
 00009          2         0.75

          FORM /,         

/,  ,     ,  

 .   ,      

      /;/           

        .   

/      /                 

    ,     ,   

      / /      

.      "<"  ">".   , 

    "<",         

 ,  , ">"      

 .
         REPORT      ,   

    .      

     ,        

.
                , 

     .   .
                

.        / /   

   PRINT,         

. 
     DBASE,       ,   

  "SET  EJECT OFF",  "SET HEADING TO"  "SET DATE TO".     

REPORT      ,         .    

       "SET EJECT  OFF".    "SET 

HEADING  TO"           

.                . 

/     ,     

  DBASE./        "SET  DATE  TO".   

          . 

    ,   SET.
    ,      ,    

      ,          

  ,              

,   ,    REPORT,   .  .   ""  "SET 

FORMAT  TO  PRINT"             

.        ,     

"".