     5. -⠭

      ࠧ,     砥 ᠭ (&), 
  ᫥    筮  ६  ,  ""
    ᮤন   ᮤন  筮  ६
.    ।  ࠣ .
       ᯮ㥬 ᫮  ࠦ.
 ⠪  ࣠ ।  ࠬ஢  
楯窨    䠩.   ᨬ   &  
᫥騬  ᯥᨬ  ( ஡)     
६  .   ᫨  짮⥫  㦭     
ᨬ᪮  ⠭ ᨬ,    ६ 
    ࠭祭 窮.   㤥 㤠   ६
⠭.

ਬ:

. ACCEPT "  " TO DR
. USE &DR:DATAFILE

       ६ 믮 㤥 USE B:DATAFILE, ᫨   ⢥
 ACCEPT 뫮  "B".

 . STORE 'DELETE RECORD ' TO T
  & 5

  ६ 믮 㤥 DELETE RECORD 5.



     6.   䥩  -""-ࠬ

     ""     䠩, ᮧ 㣨
ࠬ  (.,   BASIC,   FORTRAN,   PASCAL)    
஢ 䠩,   ਭ 㣨  .
  APPEND     ⠭  -7-
⥪⮢ 䠩 (ᯮ ᮣ襭 SCP  ப ⥪, 
ன  ᫥  ᨬ   ⪨      ப
(LINE  FEED)),  㪠뢠    SDF (SYSTEM  DATA  FORMAT -
⥬  ଠ    ).        ࠧ  
COPY    ⠭  -7- ଠ  䠩,  ᫨
㪠     SDF ; ᫨   㪠, ⨯  ᮧ  
ﬨ SDF  DELIMITED 䠩 㤥 ..

         모       䠩  
ଠ  ࠧ⥫ﬨ.     ࠧ 묨, 
ᨬ   ப  祭    窨.   ""   
  (APPEND)   ஢ (COPY)   䠩,  ᫨  
 㪠 祢 ᫮ DELIMITED.  ᯮ
 DELIMITED, ।  SDF.

              ᯮ   
窨,  㣨 - ,  APPEND 㤥 ਭ 
.   "COPY" 筮    窨,
  㤥 뢮  ᨬ,  ।   
WITH   । DELIMITED.

     ᮡ 砩,  ᫨ "," ᯮ   WITH   COPY.
  ஡  ᨬ ப  砫 ஡
   ᫠  㡨.   ..   ᨬ  ப    
   窨,   㣨 ᨬ.

     ਬ:

.USE < >.DBF
.COPY TO < >.TXT DELIMITED WITH "

.USE < >.DBF
.APPEND FROM < >.DAT SDF


             7.  


        筮  ᯮ짮  ""      믮
ॡ㥬  㯮ॡ ࠧ .  㯯
ਢ   .       ""-   ⮡ࠦ
    樨,     㯮ॡ塞        
"ᮢ६"    몠.        室     
"  䠩".    ᯥ樠  ࠢ
 ᯮ짮 ⠪  ( ࠧ  9.0 ).

      䠩:

 CREATE  - ᮧ   ;
 COPY    - ஢  ;
 MODIFY  -   ;
 REPORT  - ᮧ 䠩  ;
 SAVE    - ஢ ६  ᪥;
 INDEX   - ᮧ  䠩;
 REINDEX -    䠩;
 JOIN    - 뢥 쥤  ;
 TOTAL   - 뢥   .

      :

 APPEND -     ;
 CREATE -    ᮧ ;
 INSERT - ⠢   .

     ஢ :

 CHANGE  - ।஢ ⮫殢 ;
 BROWSE  - ࠭   ᬮ   ।-
            ;
 DELETE  -    㤠;
 EDIT    -    㪠  ;
 PACK    - 㤠 , 祭  㤠;
 RECALL  - 㡨ࠥ ⪨  㤠;
 REPLACE - 頥   ;
 READ    - 頥    ।  짮⥫
            ࠭;
 UPDATE  -  ᤥ   .

      ⮡ࠦ :

 @      - ⮡ࠦ  ଠ㥬  짮⥫   
           ࠭  ਭ;
 BROWSE - ⮡ࠦ  19 ᥩ  ᨬ쭮  
           ࠭ ᫮ ;
 COUNT  -    ᥩ,   㤮⢮   ஬
          ᫮ ࠦ;
 DISPLAY - ⮡ࠦ ,   ࠦ;
 READ   - ⮡ࠦ   ᪠뢠 ଠ   
          ࠭ ०;
 REPORT - ଠ஢  ⮡ࠦ  ;
 SUM    - ᫥   ⮡ࠦ ⮣  ண -
            㯯  ;
 ?      - ⮡ࠦ ᯨ᮪ ࠦ.

       樮஢  :

 CONTINUE  - 樮஢  ᫥   ᫮-
             ﬨ, 㪠묨   LOCATE;
 FIND      - 樮஢  , ᮮ⢥
                䠩;
 GOTO      - 樮஢  । ;
 LOCATE    -  , 㤮⢮ ᫮;
 SKIP      - 樮஢ ।  .

        ࠡ  䠩:

 APPEND - 㧨   ""-䠩       䠩    
          ⥬ ଠ (SDF);
 COPY   - ஢   㣨   SDF-䠩;
 DELETE - 㭨⮦ 䠩;
 DO     - 㪠뢠  䠩,  ண 
          ᫥騥 ;
 RENAME - २ 䠩;
 SELECT - ४祭  ᯮ㥬묨 䠩;
 SORT   - ᮧ  ,     -
            ;
 USE    - 㪠뢠 䠩  ,    ᯮ  
          ᫥饣 USE.

      ࠡ  ६묨 :

 ACCEPT  -  ᨬ ப  ६;
 COUNT   -  稪  ६;
 DISPLAY -  ⮡ࠦ ६;
 INPUT   -  ࠦ  ६ ;
 RESTORE -   ᮢ㯭⥩    ६;
 SAVE    -  ६   䠩;
 STORE   -  ࠦ  ६ ;
 SUM     -  㬬  ६ ;
 WAIT    -     ६.

      ࠡ   묨 䠩:

 ACCEPT   -  ᨬ ப  ६ ;
 CANCEL   - ନ 믮  䠩;
 DO       - 맮  䠩  ᯮ 
               ࣠樨   
            横   䠩;
 IF       - ᫮ 믮 ;
 ELSE     - ୠ⨢    믮   
                 IF;
 ENDDO    - ନ  DO WHILE;
 ENDIF    - ନ  IF;
 INPUT    -  ࠦ  ६ ;
 LOOP     - 室  砫 DO WHILE;
 MODIFY COMMAND - ।஢  䠩;
 RETURN   -   䠩;
 SET      - ⠭ ࠢ騥 ࠬ "";
 WAIT     - ਮ⠭ 믮  䠩.


       ࠢ ன⢠:

EJECT - ய ࠭  ਭ;
ERASE - ⪠ ࠭.


     8.   樨 ࠭ ०

      ᫥ ࠢ騥 ᨬ ஬   
࠭:

 ^E,A   -   ।饥  ;
 ^X,F   -   ᫥饥  ;
 ^S     -    ᨬ   ;
 ^D     -  ।  ᨬ   ;
 ^Y     -  ⪠ ஡ ⥪饣  ;
 ^V     -  ४⥫    ०     
           ⠢;
 ^G     -  㭨⮦ ᨬ  ஬;
 DEL    -  㭨⮦ ᨬ ᫥  ;
 ^Q     -  ନ ࠭ ०  
            ଠ ०  "".    
           ६  ନ.

      ० EDIT:

 ^U     -  ४⥫  ⥪饩   -
           祭  㤠   祭;
 ^R     -   ⥪饩     ⮡ࠧ
           । ;
 ^C     -   ⥪饩   ⮡ࠦ ᫥饩;
 ^W     -   ⥪饩   室   ࠭
           ० ४஢.

      MODIFY:

^N     -  ।      ,  稢
          ᢮   ⠢  ;
^T     -  㤠   ஬    -
            ;
^C     -  ஫  ;
^R     -  ஫  ;
^W     -          த  ଠ
          権 ;
^Q     -  室  ࠭ .

      APPEND, CREATE  INSERT:

^C  -   ⥪饩   室   ᫥饩;
^R

<>    -  ⪨, ᫨    
            砫쭮 樨 - ନ 樨 
          । ଠ 権 "".

      BROWSE:

^U     -  ४⥫  ⥪饩   -
          祭  㤠   祭;
^R     -   ⥪饩   ⥭ ।饩;
^C     -   ⥪饩   ⥭ ᫥饩;
^W     -   ⥪饩   室    ࠭
          ० ४஢
^Z     -  ।     ;
^B     -  ।  ࠢ   .


               9.   

     9.1. 祭

 <>     -  ୮  ।  "";  ⠪-
 <।>        砥      ।.   IF
                      ENDIF  ( DO WHILE  ENDDO  
                    ⮫쪮  ।,     ६
                     REPORT   ।.
 <.ப>  -  ᨬ쭠 ப; ᨬ쭠 -
 <ப>               ᫥⥫쭮   ᨬ,
                    祭       窨  ('),
                      窨  (")      
                    ᪮ ([,]).
 <࠭⥫>   -  ᯥᨬ; ᯥᨬ  
                        ९   ⨯ "()"*,:.
 <>            - ࠦ;   ࠦ ⮨   ᥫ,
                    㭪権,      ᨬ ப,
                    ⠢    ந쭮    浪:
                    "4+"              "DOS='3'.OR.DOS='4'",
                    "$('ABC'+&COMESTR,N,#)='ABCDE FG'".
 <.>       - ᮪ ࠦ,  ࠧ  묨;
                    筮 ᯮ     ࠦ.
                    襯ਢ  2  ᫥ ࠦ -
                    ᫮,  ࢮ - ⮥.
 <>           -   .
 <.>  - ᮪    ᥩ,   ࠧ
 <᮪>           묨.
 <>        -  䠩.
 < 䠩>
 <䠩>       -  ଠ⭮ 䠩    (. ࠧ
                    3.4   REPORT).
 < 䠩>   -  ᭮ 䠩.
 <>           -  ,  ஥ 㤥 ஢.
                         ࠧ  .
                        ᪮쪮 ᮢ.
                        <ࠦ>    
                    .
 <௠>         - ६ ; ᮧ  STORE 
                      ᯮ짮  ,   ࠭
                    祭     쭥襣 ᯮ짮
                    (ACCEPT, INPUT  ..)
                      ""  ⨬    64  ६
                    .
<௠  ᯨ᮪>  - ᮪  ६  ,   ࠧ
                    묨.
<N>               - ࠫ.
<>         -  ⢨ .     ਭ-
                     3 祭.
ALL               -    䠩.  ᫥  ⠭  
                    砫 ,  ᬠਢ 
                      䠩.       ALL -
                    祭  㬮砭.   㣨 
                      㬮砭  ⠥  ⥪  
                    (ਬ,   DELETE).  砥 ᯮ-
                     ࠧ FOR,  㬮砭 ⠥
                    ALL.

 NEXT N           - ᫥騥 N ᥩ,   ⥪ -
                    . N  ࠫ.
 RECORD N         - N- ; N - ࠫ.
 FOR <>        -   ,  ᫨ ᪮ ࠦ
                    ⨭.
 WHILE <>      -  ,   ᪮ ࠦ 
                    ⠭ .   砫  ⠭-
                    .

     㣨 ᯥᨬ ᠭ  ᢮ .


      9.2. ࠢ ࠡ

       ⢮  ࠢ    ᯥ譮  ࠡ   
"".
     1.        ஡
ᨬ  ப; ࠧ        ᫥ 
  浪.       ᫮  - ਪ.  CREATE,
APPEND,    REPORT,   SET,   DISPLAY         ERASE   뢠
ᯥ᪨ ⢨.  ࠧ       (
⢮)      ⢨. FOR, NEXT WITH - ਬ
᫮,      稭 ࠧ.   ⠪ ᫮ (
     砫  ᫮  ࠧ)  뢠 祢묨 ᫮.
     2.  ᫮ ஡  ࠧ ᫮  ࠧ.
     3.   ..  254 ᨬ  (ࠢ    ᫥
        ७).
     4.      祢 ᫮    ᮪饭  
  4  ( )  ᨬ.  ਬ,    DISPLAY
STRUCTURE   DISP STRU.
     5. 訥  쪨 㪢   ᯮ짮 
  ,  祢 ᫮,   ,    ६
   䠩.
     6.    ࠣ     ᪠.  
祭  ᯮ  ᪮.
     7.  १ࢨ஢ ᫮  祢 ᫮, ஥
맮 訡, ᫨  ᯮ   祣- 㣮,
祬    ⮣,    祣  ।祭.   ""  
१ࢨ஢  ᫮.  ,        
䠩   맢 ᫮.  ਬ,  䠩 
   WHILE   㤥   ४⭮    ஢   
।  DO  WHILE   ஬ DO, ALL  
   ᯮ짮  拉 .
     8.  ।  ""   䠩    
  ४⭮.  ""  砥 訡  ,  
㤥 믮  䠩 ।᪠㥬 ࠧ.

      9.2.1. ?


      ?[<.>]
      ??[<.>]

            ᯥ樠쭮   ମ    
DISPLAY ;   ⭠ DISPLAY OFF <>.   
ᯮ짮   ⮡ࠦ 祭 ࠦ    ᯨ᪠
ࠦ.   "?"  ᯮ짮 ६ ,
 ,  ⠭  㭪樨.  "?"    ࠬ஢   
ப ஡.


     ଠ "??"  "?",   ᪫祭 ⮣,   ।
뢮  ࠦ    ப  (LINE  FEED)  
 ⪨.

ਬ:

 . USE EXAMPLE
 . 4
 . ? #
 4
 . ? NAME
  CHANG, LEE
 . ? 5+9
 14

      ᫥饬 ਬ   䠩  "?"  ᯮ
 ⪨ ࠭ ᯫ.  䠩 ᪠  -
: " < >".

 SET DEFAULT TO G
 USE TRACE INDEX TRACE
 DISP STRU
 ?
 ACCEPT "ENTER TODAY'S DATE." TO DTE
 SET DATE TO &DTE
 RELEASE DTE
 RETURN


     9.2.2. @

     @<> [SAY <> [USING <FORMAT>]]
     [GET <> [PICTURE <FORMAT>]]

        ࠡ⠥   SET FORMAT TO,  ERASE,
EJECT,  CLEAR  GETS,  READ      ।⢮  
⮮ࠦ   ।  ଠ஢  ଠ樨   
ᯫ     ਭ.        @    
,    ᯮᮡ ᯮ짮  SET  FORMAT
TO.  樨 ᯮ짮 ᫥ .

     <>   "Y,X"       
᫮:  न ᯫ  न  ਭ.  "Y,X"
 ப (Y)  ⮫ (X).   設⢥  ࠭
Y   । 0-23,   X - 0-79, .. 24  ப  
80  ⮫殢.  ""  ᯮ 0- ப    ᮮ饭
짮⥫,   짮⥫      ᯮ짮
.    ਭ  Y    X      ।   0-254.
न      ࠫ,   ᫮묨  ६묨
     ᫮묨  ࠦﬨ.     SET   FORMAT
ᯮ    祭 न.

       ᯮ  SET FORMAT TO SCREEN ( 
㬮砭),   "@" 뢠 뢮   ࠭. 
न  0,0  砥     (ࠩ    
᫥)    ࠭.   10,15 砥 11- ப    16-
⮫      ᯫ.   0-   ப        ४
ᯮ짮.  "@"  ᯮ짮    浪
  ࠭.  .., ࠧ SAY  ਬ  ப  15  
ਬ SAY  ப 10.   ⭮   ⮫栬.

      ᯮ  SET FORMAT TO PRINT,  
"@" 뢠 뢮    ਭ.     न  0,0
㪠뢠  ࠩ  ᫥      㬠.
 "@"  ਭ   㯮冷祭.  ⨢
砥  ஧  १   室   㬠.   짮⥫
   ।⠢  ᥡ,       ᯮ   
設.         ப  5    ।⢮
     ப  6 (      ⮫殢).  ᫨   
襭,   ।  砫   ப  ந室  ய
࠭.

     ᫨ ᯮ  SET FORMAT TO SCREEN,  
ERASE   ଠ  ࠭,      GET'
(.  )  ⠭ न 0,0. ᫨ ᯮ SET
FORMAT TO PRINT,  EJECT   ࠭  ⠭
न 0,0.

     ࠧ   SAY  ᯮ    ⮡ࠦ   ࠦ,
஥    㤥  ᫥騬  ।஢  
     READ.   ࠧ  USING  ᯮ  
ଠ⨧樨 ࠦ  ࠧ SAY.  ଠ騥 ४⨢
ᠭ .  ᯮ짮 ࠧ USING   訬
⮭.    砥 ⢨ USING, "" 㤥 ந쭮
  ࠦ.

     ࠧ  SAY  ᯮ짮  ࠭   ਭ.
GET- - ⮫쪮   SET FORMAT TO SCREEN.

     ࠧ  GET ⮡ࠦ ⥪饥  祭   ६
  ६  .  ६    室   
ᯮ짮   GET      쥪⮬     쭥襣
।஢       READ.   ࠧ   PICTURE    
ᯮ짮       ࠧ   GET,       ᯥ樠
ଠ⨧    ஢   (.  READ).
᫨     PICTURE,   ⨯  ନ  
PICTURE.

     ᫨ ⨯   ६  ६   
GET - ᪨,   ஢ઠ  ࠧ蠥    ⮫쪮
ᨬ 'T', 'F', 'Y', 'N'    ⮢.

     ᨬ 64 GET-    ⨢஢     
   ६.     ERASE,   ⠪    CLEAR  GETS   
ᯮ짮    GET-.

       SET FORMAT TO SCREEN     SAY-   
GET-ࠧ,      ⮪  , ।   न⠬,
頥 ஡.  ⥫쭮,  @ 10,0 㤥  
 11- ப.

          SET  FORMAT TO  SCREEN,    
뤠  READ    믮 GET-  (.      READ).
,    SET FORMAT TO PRINT,  "@"  
ॡ   ᫥     READ    襭   ᢮
⢨.

       ॡ㥬  READ       짮⥫
אַ   ଠ஢   뢮      ,    ।⥫쭮
⠭  ਠ (ਬ:  祪,  ⮨  थ)
  室騬  ࠧ.  짮⥫  室  ⮫쪮
,    "@"  ᯮ짮 ⠪,  ᫨
   諠  饩 設.

        ᯮ짮  ⥩ SET  FORMAT  TO  PRINT
  室 믥뢠    .  
         ᮤন    ६    
न묨   祭ﬨ.    騩   ਬ    
ࠣ⮬  䠩,   ᯥ 
ᮡ 楫.

 SET FORMAT TO PRINT
 GOTO TOR
 STORE 7 TO CNTR
 DO WHILE .NOT. EOF
    IF CNTR >= 50
        EJEST
        STORE 7 TO CNTR
    ENDIF
 @ CNTR,12 SAY R USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ CNTR,48 SAY D USING 'XXXXXXXXXX'
 @ CNTR,64 SAY R1 USING 'XXXXXXXXXXXXXXXXXX'
 @ CNTR,88 SAY U USING 'XXXXXXXXXX'
 @ CNTR,104 SAY R2 USING 'XXXXXXXXXXXXXXXXXX'
 IF RSD <> 0
 @ CNTR,130 SAY RSD USING '9999'
 ENDIF
 STORE CNTR + 1 TO CNTR
 SKIP
 ENDDO
 RETURN
