.PN 81
.PO 5 
                                                               .

                            

        ,      

      .      

     ,         

.         ,     

   ,,   SORT.
                     

   .   4-   : 

 MENU      NEWENTR,  CANCELS   BALANCE.   

        :     

      ,     DBASE, 

     .
                       , 

   ".CMD",     .   

      DBASE,  SET  ALTERNATE. 

   SET       .
            ,      ,   

        .         

 :

     NO -   ;
      -   ;
      -     ;
     CAN - /   ;
     DATE - ,    .



  DBASE   / CREATE/   .

       .CREATE
       FILENAME:CHECKREG
       ENTER REKORD STRUCTURE AS FOLLOWS:
         FIELD          NAME,TYPE,WIDTH,DECIMAL PLACES
         001            NO,N,4
         002            TO,C,30
         003            AMT,N,10,2
         004            CAN,L
         005            DATE,C,10
         006            (CR)
      INPUT  NOW?N


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

;5 -  ?

                     

  :

   MENU;








.PO 15

NOTE -      DBASE
*
*
SET TALK OFF
USE CHECKRES
DO WHILE T
?
?
?
?'                         '
?
?
?'                     0 - '
?'                     1 -   '
?'                     2 -   '
?'                     3 - '
?
?'     '
WAIT TO ACTION
IF ACTION = '0'
   SET TALK 0
   CANCEL
ENDIF
IF ACTION = '1'
   DO NEWENTR
ENDIF
IF ACTION = '2'
   DO CANCELS
ENDIF
IF ACTION = '3'
   DO BALANCE
ENDIF
ENDDO
RETURN

   NEWENTR

NOTE -   NEWENTR    
*
*
REMARK     ,  0
DO WHILE .T.
?
INPUT "          "TO C:NO
IF C:NO = 0
   RETURN
ENDIF
?
ACCEPT "             " C:TO
INPUT  "               "TO C:AMT
ACCEPT "                 "TO C:DAT
?
INPUT "   ?    "TO GO:NOGO
IF .NOT. GO:NOGO
   LOOP
ENDIF
APPEND BLANK
REPLACE NO WITH C:NO, TO WITH C:TO, AMT WITH C:AMT, DATE; 
   WITH C:DAT, CAN WITH F
ENDDO

.PO 5



   CANCELS

NOTE -   CANCELS    
*
REMARK       0
DO WHILE .T.
   ?
   INPUT "     " TO C:CAN      
   IF C:CAN = 0
      RETURN 
   ENDIF   
   GO TOP
   LOCATE FOR C:CAN=NO
   REPLACE CAN WITH T
ENDDO

   BALANCE

NOTE -   BALANCE    
NOTE -  
*
SUM AMT TO OUTSTAND FOP  .NOT. SAN
   ?
   ?
DISPLAY OFF'      =/' , OUTSTAND
   ?
REMARK    ,  0  
STORE 0 TO AKTIVE
STORE 0 TO COOUNT
STORE 0 TO T:OUT
DO WHILE ACTIVE

STORE STR (COUNT,3) TO 1
INPUT '    &1' TO D:OUT
 IF D:OUT =0
   STORE F TO ASTIVE
 ELSE
   STORE D: OUT + T:OUT TO T:OUT
   STORE COUNT +1 TO COUNT
 ENDIF
ENDDO
DISPLAY OFF COUNT -1,'    =&',
                                                                UT
 ?
INPUT "  = &',  BEGIN +T :OUT -OUTSTAND
WAIT
RETURN

       :

DO MENU
                     


            0 - 
            1 -   
            2 -   
            3 - 

.PO 15

  
WITING 1
      0

             :1000

                 :ACME RENTALS
                   :123.45
                     :10  79
 
     ?:Y
            :1001
       
                :MAG PUBLISHING GO
                  :79.88
                    :12  79

    ?:Y
 
           :1002

               :RADON INERT GASES
                 :86.86
                   :13  79

   ?:Y

           :1003
               :NEURON COMM.INC.
                 :723.31
                   :14  79

   ?:Y

           :1004

              :CRANKSHAFT AUTO
                  :2753.47
                   :19  79

   ?Y

          :0

                    


               0 - 
               1 -   
               2 -   
               3 - 
  
WAITING 2
      0

    :1001

    :1003

    :0

.PO 5


                


            0 - 
            1 -   
            2 -   
            3 - 


  
WAITING 3
    = & 2963.78

  ,  0  
          1 : 1234.56
          2 : .03
          3 : 333.44
          4 : 0
   3       = & 1568.03

   :1445.89
  = & 50.14
WAITING


          ME    


         0 - 
         1 -   
         2 -   
         3 - 

  
WAITING O
DO CANCELLED

   ,        DBASE,   

,      ,         

. , 

DISPLAY DATE ,AMOUNT FOR NO =1003
 


SUM AMT FOR DATE >' 01 
          DBASE         

,          

 .











.PO 15

    

  ?< >   [,<>]
 <> [SAY <> [USING' <>' ]] [GET
          <> [PICTURE' <K>']]
ACCEPT ["   "]   < >
APPEND [FROM <> [SDF] [DELIMITED ] [FOR  <>]] 
                  [BLANK]
BROWSE
CANCEL
CHANGE FIELD <> [<  >] [FOR <>]
CLEAR [GETS]
CONTINUE
COPY  TO  <> [<  >] [FIELD < >]  [FOR  <>] 

[SDF] [WIDTH <  >]]   [STRUCTURE]  COUNT [<  >]
CREATE [< >]
DELETE [<  >] [ FOR <>]
DELETE FILE <>
DISPLAY [<  >] [FOR < >]
        [< >] [OFF]
DISPLAY STRUCTURE
DISPLAY MEMORY
DISPLAY FILES [ ON < >] [LIKE <>]
DO <> 
DO WHILE <>
EDIT

EJEST

ELSE

ENDDO

ENDIF

ERASE
FIND <>
GO  GOTO [ REKORD],  [STOP],  [BOTTOM], <>
IF <  >
INIE  N <  >  <   >
INPUT ["<  >"]  <   >
INSERT [ BEFORE ],  [ BLANK ]
JOIN TO <> FOR <> [FIELDS <   >]
LIST
LOCATE [< >] [FOR <>]
LOOP
MODIFY STRUCTURE
MODIFY COMMAND < >
NOTE  *
PACK
QUIT  [  <   /   ">]
READ
RECALL [<  >] [FOR <>]

RELEASE [<   >]  [ ALL ]
REMARK
RENAME   <   >  <    >
RELACE [<   >] <  > WITH < >
       [ AND <> WITH <  >]


.PO 5
REPORT [<  >] [ FORM <    >]
       [ TO PRINT ] [ FOR <  >]
RESET
RESTORE
RETURN

SAVE TO  < >
SELECT [PRIMARY  SEKONDARY]
SET <> [ ON ]  [ OFF ]
SET ALTERNATE TO < >


SET DEFAULT TO < >
SET DATE TO <   >
SET FORMAT TO <  >
SET HEADING TO <  >
SET INDEX TO <  >
SET MARGIN TO <>
SKIP <+/-> [<>]
SORT ON < >  <> [ASCENDING ],  [DESCENDING] 
STORE <> TO < >
SUM <. [< >] [TO<  >]
           [FOR<>]
TOTAL TO <> N < > [FIELDS < >]
UPDATE FROM <> ON < > [ADD < >]
       [REPLACE < >]
USE <> [INDEX <  >]
WAIT [TO < >]

 :

E (<1- >),(<2- >)            
*                                              
#                                              
! (< >)                          
                                             
& (< >),(<>,<>)     
<1- >&<2- >                  /
                                             /
CHR < >                         SCII
DATA ()                                        
EOF                                            
FILE (<>)                                  
FINT (< >)                   
LEN (< >)                      
STR (< >),<>,[< >] 
VAL (< >)                      
TRIM (< >)                      
TYPE (<>)                              













.PO 15














              

   . . . . . . . . . . . . . .  32
    . . . . . . . . . . . .  1000
     . . . . . . . . . .  65535
     . . . . . . .  254
   . . . . . . .  . . . . . . . 10 
  . . . . . . . . . . . .  1.8  10**
  . . . . . . . . . . . .  1.0  10**-6
   . . . . . . . . . . . .  64
     . . . . . . .  254
    SUM . . . . . . . . .  5
    RERORT . . . . . . .  254
      . . . . . . .  100
  GET'OB  . . . . . . . . . . . .  64
 ,   . . . . . . .  16
































.PO 5

     

BAD DECIMAL WIDTH FIELDS
/   /

BAD FILE NAME
/  /
        

BAD TYPE FIELD
/  /
      C,N  L.
BAD WIDTH FIELD
/  /

CANNOT INSERT - THERE ARRE NO REKORDS IN DATAWASE FILE
/  -     /    
      INSERT   APPEND.

CANNOT OPEN FILE
/   /
      ,   
       .

COMMAND FILE CANNOT WE FOUND
/     /
       .

DATA ITEM NOT FOUND
/   /

DATABASE IN USE IS NOT INDEXED
/     /
     FIND      .

DIRECTORY IS FULL
/ /
        SP/M     - .

DISK IS FULL
/ /

END OF FILE FOUN UNEXPECTEDLY
/   /    
       ,   USE,    .
                     

      /PACK/   /INDEX/  .

"FIELD" PHRASE  NOT FOUND
/    "FIELD"/

FILE OLREADY EXISTS
/  /

FILE DOES NOT EXIST
/  /

FILE IS CURRENTLY OPEN
/    /
        B USE  CLEAR   .

.PO 15

FORMAT FILE CANNOT BE OPENED
/     /

FORMAT FILE HAS NOT BEEN SET
/   /

ILLEGAL DATA TYPE
/  /

VARIABLE NAME
   ALPHANUMCRIC. AND COLONS ARE ALLOWED IN VARIABLE AND
   B NAMES.
EOS NOT MATCH DATABASE
   IE CANNOT MATCH THE DATABASE. TRY ANOTHAR
   X.-C.
ILE CANNOT BE OPPENED
   .K SPELING OR INDEX THE DATABASE.
TEMPTED TO GENERATE MORE THAN 65,534 REKORDS
   FOR CLAUNC ALLOWS TOO MANU JOINED OITPUT RECORDS, MAKE IT
   STRINGENT.
E NOT A CHARACTER STRING
ROS MUSH BE CHARACHTER STRINGS.

AN 5 FIELDS TO SUM

LIMIT VIOLATION EXCEEDED

ESSION TO SUM

"PHRASE
M"PHRASE 

I A DIAGNOSTIU TYPE MESSAGE THAN AN ERROR MESSAGE. DBASE
IN'T FIND THE KEY.

ERIC EXPRESSION

TENT FILE

HASE NOT FOUND

MEMORY FOR MEMORY VARIABLES
   BE THE NUMBER OR SIZE OF MEMORY VARIABLES.

LENGT EXCEEDS MAXIMUM SIZE (OF 1000)

NOT IN INDEX
X FILE WAS NOT UPDATED AFTER A RECORD WAS ADDED.REINDEX.

------------------------
*/     ,      ,   

 ,   ,      , 

      ,         

   .
/. ./

ILLEGAL GOTO VALUE
/   GOTO/



.PO 5

* ILLEGAL VARIABLE NAME
/  /
          -  

 .

INDEX DOES NOT MATCH DATABASE
/     /
   DBASE       .
      .

INDEX FILE CANNOT BE OPEND
/     /
         .

IT IS ATTEMMPTED TO GENERATE MORE THAN 65,634 RECORDS
/    65534 /
    FOR      ,
      .

RECORD LENGTH EHCEEDS MAXIMUM SIZE (OF 1000)
/     (1000)/

RECORD OUT OF RANGE
/   /
           .
     .

SORTER INTERNAL ERROR, NOTIFY SCIP
/ ,      /

SOURSE AND DESTINATION DATA TYPES ARE DIFFERENT
/      /

***SYNTAX ERROR***
/    /

SYNTAX ERROR IN FORMAT SPECIFICATION
/    /

SYNTAX ERROR, RE-ENTER
/ ,  /

"TO" PHRASE NOT FOUND
/ "TO"  /

TOO MANY CHARACTERS
/  /

 MANY FILES ARE OPENED
/   /
       16  ,          

   .

TOO MANY MEMORY VARIABLES
/   /
      64-  .

TOO MANY RETURNS ENCOUNTERED
/    -  RETURN/
   ,     .

.PO 15

"WITH" PHRASE NOT FOUND
/ "WITH"  /

UNASSIGNED FILE NUMWER
/  /
    ,      .

*** UNKNOWN COMMAND ***

VARIABLE CANNOT BE FOUND  /    /
         .
   MSFMN QNGD@R\ OEPELEMMS^ HKH OPNBEPHR\ NXHAJH M@OHQ@MH_.
