      ⮬   䠩      ᨬ  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.
