      9.2.16. EDIT

      EDIT [N]

        EDIT    롮筮    ᮤন
   . ⢨ EDIT   ⮣, 室
  ""  ࠭ ० (.  SET SCRE-
EN).
        ""    ࠭  ०,       
㪠뢠 "EDIT"  "EDIT N" (N - ।㥬 ).  ᫨
N   㪠,   ""   न  ।㥬
.      ࠭ ०,    ࠭
    ᯮ짮 ᫥ ⮣,    㪠
 . . ࠧ 8  ࠭ .

      ᫨  EDIT 뤠   ࠭  ०,   ""
:

      COORD:

        न  ,  ஥ 㤥 -
, , ,  祭.  -    -
  (  ). ᫨  㪠  祭, "-
" ⮡ࠦ ⥪饥 祭  訢    -
.  ᫨    ,   <> ( -
).  뫨   뫨 ,  "" 訢  
न ᮮ饭 COORD:".

     ᫥  ࢮ  न    쭥襬
 㪠뢠 ⮫쪮  न. "" 㤥 ᯮ짮
  ⢥  न  㬮砭 ।騥    祭.
室  EDIT-० - <>  ⢥  COORD-.

             饭  ^Y    <>  
⢥     "CHANGE?".  ஢    
ନ஢  ᨬ ^Q.  ⮬ ।饥 祭
 ⠭. ᫨ ।  䠩  
USE ᯮ INDEX-ࠧ,   "" 㤥  -
     . ᫨   易 -
  ᭮ 䠩,   䠩   USE  ।-
.


      9.2.17. EJECT

      EJECT

        ந   ਭ  ய  ࠭,
᫨ 뫮 PRINT SET ON  SET FORMAT TO PRINT. ᫨  -
 ଠ⨧樨 ࠭ ᯮ  @,   EJECT 
 㤥  ॣ ப  ⮫.


      9.2.18. ENDDO

      ᯮ  襭 横 DO WHILE.  ࠢ
।   DO  ᫥  ࠦ <>.  .
 DO.


      9.2.19. ERASE

      ERASE

      頥  ࠭  ॢ   孨   㣮
࠭.  ᫨ ᯮ @  SET SCREEN ON,   ERASE 頥
 GET-  ࠧ ।饩  @.


      9.2.20. FIND

      FIND <>  '<>'

       ࢮ   ஢  ( USE),   
箬,    ࠢ    <>.    FIND        
஢   ஢ .

      FIND   ࠡ⠥    ।⥫쭮  ந஢묨
  (.   INDEX).  ᫨    INDEX      ⢥
  ᯮ짮  筮  ࠦ,      FIND   㤥
ࠡ,  ᫨    ᪮쪮   ᨬ  .
   㤥 ࢮ,   ன    砫
 ᨬ (<>).  ਬ:    箬   'SMITH,
JONN'         "FIND SMI", ᫨    㣨
ᥩ  砬  'SMI'.  ᫨ 㪠⥫   த
᫥   ⮣  ,   ᫥騩 "FIND SMI" 
 .

      ᫨    ᮧ  ᫮  箬,    
  㤥  ࢮ  ,    ன  䬥᪨
ࠢ 쥪  FIND (<>).

      砭: ᫨    ᮧ  ᫮  ப
砬,  쥪  FIND - ᨬ᪠ ப  ( ) -
窠.  窨 㪠뢠 ⮫쪮  ᨬ ப,  
砫   騥 ஡.   ⮬ 砥  㦭
筮 㪠뢠 室 ᫮ ஡.

      ᫨ 㦭 㪠  쥪 FIND ६ , 
 ⠢ ᫥  FIND      &-ய⠭,
.. FIND &NAME,   NAME - 筠 ६ . -
 ६    砫  ८ࠧ  
ப   㭪樨 STR ०, 祬    -
ய⠢. .ࠧ 5 㦤 . 쪮  -
   FIND. ᫥ ⮣   
ࠡ⠭ .  (LIST, REPORT, COPY  .).

      ᫨     ,      ᮮ饭  "NO
FIND",  㭪   #  祭 0.

      ᫨ ,   㣠   ⥬  箬,
 ᯮ SKIP  LOCATE  FOR  <wyr>.  SKIP    
᪮쪮 த,  LOCATE (  ᯮ  <>)
ᯮᮡ  ᨭ.

      SET EXACT ON 맮 ᯥ FIND,  ᫨    ᨬ
 ᮢ (஬ 墮⮢ ஡).


      9.2.21. GO  GOTO

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

      ᯮ   ९樮஢  㪠⥫  
.

        ""  "" 㪠⥫ ⥪饩  ⠭-
    ஬ <N>.

        ""  "" ⥪騩 䠩  ६뢠/஬-
뢠  (TOP/BOTTOM)  㪠⥫ ⠢  /᫥-
 . ᫨ ⥪騩 䠩 ஢,  ࢠ/᫥-
   易⥫쭮 䨧᪨ ࢠ/᫥,   -
/ ᫥     .

      砩 "" ᯮ  樮஢  ,
 ன ᮤন  ६ .


      9.2.22. IF

      IF <>
         <>
      [ELSE
         <>]
      ENDIF

       ࣠뢠 ᫮ 믮 㣨 -
. ᯮ   䠩. ᫨ <> ⨭, 
믮 ,  騥 ᫥ IF.  ᫨ - ,   - 
ELSE , ᫨ ELSE ,  -  ENDIF. IF-  
 ᪮쪮 㣮 ࠧ.


      9.2.23. INDEX

      INDEX ON <> TO <>

       <> -  㥬 䠩.  -
 ந஢  <>,  <>  . 
砥,    㤥 ᮧ <>,  ᮤঠ騩 㪠⥫ 
 ⥪饣 䠩. 騩 䠩  ⮬ 䨧᪨  -
. ஢   饬 浪. -
஢  뢠饬 浪   ᤥ ᫮ ࠦ-
. . ਬ .

      ஢   祭    ஢
  㪠 ᥣ        FIND.
  易⥫쭮   ஢,   㢥-
 ᫮ ਪ .  ஢   -
짮    ஢.

       INDEX        䠩 ⮫쪮 
ࠧ.  ਬ, APPEND ⮬᪨ 砥  䠩
   ᥩ. ᫨ ஢  -
୮ ᯮ ( USE),   ᯮ ᯥ.  ଠ -
 USE (..USE < > INDEX <  >).

              ᪮஢     ᫮
 䠩,  ⮫쪮  䠩, 㯮 
USE,   ⮬᪨   APPEND,  EDIT,
REPLASE, READ  BROWSE.

      ஢ 䠩  㯠뢠  PACK,
 ⮬ ᮮ⢥⢥ ࠧ     
䠩.  ,  ᫨  ᪮쪮  䠩  易   
㯠   ,      ⠪         
ந஢  ⥬  砬.

      :   ⢥  ᭮   -
짮  㭪 TRIM.  筮,  ᫨  ⢥ ᥣ
   ᯮ 㭪樨 $   STR,    
    ⢥ ࠬ஢  ࠫ (  ६
 ࠦ) (..  INDEX ON  $(NAME,N,5)+STR(AMOUNT,5)  TO
NDXFILE   INDEX ON $(NAME,N,N+5)+STR(AMOUNT,SIZEVAR) TO
NDXFILE).

      9.2.24. INPUT

      INPUT "<>" TO <>

         祭 ࠦ   ६
   ᯮ짮   䠩  ।⢮
    믮    䠩.  <>
ᮧ,  ᫨   室,   ࠦ  
<>.  ᫨ 㪠 <>,  ⮡ࠦ  ࠭
 ⢥ ᪠ ।  .

       <> ।  ⨯  . ᫨
 ࠭祭  ப  ᨬ,    <>  㤥
 ᨬ .  ᫨  ᫮ - ᫮. ᫨ -
  ,  - ᪨. 㭪 TYPE ᯮ  -
 ⨯ .  ᯮ짮   -
 窨  ⢥ ࠭⥫ ப ᪠ (<-
>)

      INPUT   ᯮ    ᥫ  ᪨
.   ACCEPT  室     ᨬ
ப.


      9.2.25. INSERT


      INSERT [BEFORE] [BLANK]

       ⠢   .   
⠢ ⮫쪮  .

      ࠧ BEFORE 뢠 ⠢  । ⥪饩  -
,  - ᫥. ᫨ 㪠 BLANK - ⠢ 
. ᫨ BLANK ,  ""    室 -
祭 (   APPEND  CREATE).

      ᫨   CARRY (SET CARRY  ON),    ଠ  
।饩  뢠   .

      ⠢  INSERT    ⮬⥫    
 ᫥ .

      ⠢  ஢ 䠩  APPEND.


      9.2.26. JOIN

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

          ""  ᫨  -
  ࠧ뢠 .

         - ࢨ   䠩  USE.
। JOIN 뤠  SELECT PRIMARY. JOIN 樮-
  ""    ࢮ    ࢨ筮 䠩  
ON-ࠦ    筮 䠩.   ࠧ,
  ⨭,    -䠩. ᫨ ⨣
 筮 䠩,   ࢨ筮 䠩 롨ࠥ ᫥-
 ,  䠩 ९樮  砫  -
 த ⠪ ࠧ,    㤥 ⨣ -
 ࢨ筮 䠩.
      ᫨ 饭 ࠧ FIELDS,  室  㤥 -
       ࢨ筮 䠩  ⮫쪮 
筮 䠩, ᪮쪮 ,  饥 ᫮  -
 32 .

      ࠧ FIELDS 㪠뢠,      室
.

        ॡ  ६.


      9.2.27. LIST

      LIST  DISPLAY,  ᪫祭 ⮣,  
 -      ᫥ 뢮 㯯  15  -
ᥩ. ⨬, ,  LIST STRUCTURE, LIST FILES  LIST
MEMORY ࠡ 筮  DISPLAY.


      9.2.28. LOCATE

      LOCATE [<>] [FOR <>] [CONTINUE]

      ⢫   ।  ᥩ  ⥪饩  ࢮ
,  ன 㤮⢮ <>. ᫨  ⠪,
  ᮮ饭:

      RECORD N

       CONTINUE  ᯮ   த ᪠.
 ᯮ짮 㣨  ""  LOCATE  CON-
TINUE.    । ᫠ ᨬ  <>:
128  254. . CONTINUE.

      ᫨ ࠦ  ,   ᮮ饭  END  OF
FILE,     ⠥ 樮஢  ᫥ 
䠩.  ᫨ ᯮ짮 NEXT (. <>  ࠧ 9.1)
  ࠦ     NEXT,   ᮮ饭
END OF LOCATE   ⠥ 樮஢   ᫥
᪠஢ .


      9.2.29. LOOP

      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     ࠧ,  ITEM ࠢ -
   IF ITEM=' '               , 室   ᫥饩 -
      SKIP                       DO WHILE.
      LOOP
   ENDIF
   DO PROCESS
 ENDDO

    ன ਬ:

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


      9.2.30. MODIFY

      . MODIFY STRUCTURE
      . MODIFY COMMAND [<.>]

      ଠ ""  ஢  . -
   .  /㭨⮦ ,  -
  ࠬ.

      MODIFY ࠡ⠥   ⥪饩  .     
⮡ࠦ    ࠭,         אַ  
࠭,   ࠭ ०,   ᪫祭ﬨ: ^N
⠢   ப     ,   ^T   㭨⮦
ப  ஬.  㣨 ࠢ騥    ᠭ  
ࠧ 9.

      砭:    MODIFY  STRUCTURE  㭨⮦  
 ⥪饩  । ந⢮  .    楫
   ࠭    ᪠   砫
COPY       ࠡ稩  䠩,   USE    ࠡ稩  䠩,
 ,  ,  APPEND    ࠡ稩  䠩.
室      ࠡ稥 䠩      २   
RENAME,   ᫨  室  ⠭     ࢮ砫
.  . ਬ .

      ଠ ""   讬 ࠭  ।-
஢     䠩 (  㣮).  ᫨
<.>  㪠, ""    . ᫨ 䠩 
  -   ᮧ.  ᫥ ।஢ 
䠩 MODIFY COMMAND ਬ  ⨯  ன    
.  ࠭    ⨯ .CMD.

       砥  MODIFY COMMAND 㭪樨 ^N  ^T ⠪ ,  
ᠭ . ^Q ନ     䠩,
^W   ⭮    २,   -
ᠭ .

        ࠭祭    :
      1). ப      77  (    /);
      2).  ⠡樨 ॢ   ஡;
      3).         䠩    4000
          ;
      4).    ᪠,   । , 
           । ⥪.

      ࠭ ࠢ ஬ ⠪ ,     
MODIFY COMMAND,  ᪫祭:

      ^N - ⠢ ⮩ ப  ஬;
      ^T - 㤠 ப  ஬  । 
            ப;
      ^W -   ⭮  䠩    室
            MODIFY COMMAND ;
      ^Q - ନ     䠩;
      ^R - ।  ப (஫)   -
            ;
      ^C - ஫  1 ࠭ .

     ਬ:

   . NOTE - ਬ,  ஢  
               䠩
   . USE INVNTRY
   . COPY TO WORK
   . USE WORK
   . MODIFY STRUCTURE
   . APPEND FROM INVNTRY
   . DELETE FILE INVNTRY
   . USE
   . RENAME WORK TO INVNTRY


      9.2.31. NOTE

      . NOTE < >
      . * < >

       ⠢  ਨ    䠩.
᫨    REMARK,  ᮤন NOTE  ந
 室 ன⢥.


      9.2.32. PACK

      PACK

        , 祭  㤠  DE-
LETE. ᫥ PACK  㦥  ⠭.

      ᫨ 㯠뢠 䠩 ஢   㦥 ᯮ-
,    PACK  ࠡ⠥  䠩 ६  -
㥬 䠩.   ஢ 䠩 PACK 
䠩   ᮢ  ᫥饩 २樥 ன -
॥.
      ᫨      ஢   ᪮쪨    묨
䠩,        㣨      䠩       
२஢    ᢮  砬,   ..  PACK  (猪)
। .

      ୠ⨢   PACK  - COPY  ண  䠩     .
   . ᫥ ⮣  䠩 
   㭨⮦  ( ࠭  .),      䠩  -
२.


      9.2.33. QUIT

      QUIT [TO < . >]

        뢠  ,   䠩,  -
ୠ⨢  䠩   頥 ࠢ  SCP.   ࠭
 ᮮ饭:

      ***   

      ᫨ 㪠  ࠧ TO,  SCP ᫥⥫쭮 믮
  ணࠬ   <   >.    
    ""        㣮  ணࠬ
ᯥ祭.

         ࠭祭   ᫮ ணࠬ  
SCP  믮,  ஬ :      
   254 ᨬ.

      ਬ:

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

       ⮬  ਬ  室  "",   -
  ன⢠ "",  뢠  PIP    ஢
䠩   ਭ   뢠 ""   䠩-
 CMDFILE.CMD.


      9.2.34. READ

      READ

           ࠭ ०  ।-
஢ /    ६, ஢
 ⮡ࠦ  @  GET-ࠧ.   ।-
   GET-६.  ,  뫨 ᤥ
  ६묨   ࠭,    ᮮ⢥騥 
  ६ .

      ᫨ 뤠 SET FORMAT TO  <  >,    READ
⠢ 믮  @-  ଠ⭮ 䠩, .. -
஢ ࠭   ।஢   GET--
६.  ⨬,    孨   
EDIT  砥 ࠪ⨢ ०.

      ᫨ ⠭ ० SET FORMAT TO SCREEN, ᯮ-
  ERASE  ⪨ ࠭. ᫥ ⮣  ନ-
 ࠭ ᯮ  @-.  ᫥ ⮣  
 뤠  READ  権 ।஢.

      ᫨ 뤠  (  ᪮쪮) @- ᫥
 READ,    READ  ⠢        GET-६,
᫥    ᫥ READ.   ⮬ 砥  ଠ஢
࠭    ।஢ ६    ᭮  
襭 짮⥫  ⢥  ।騥  READ.

      ६, ᯮ㥬  @-,   ।㥬
  READ,      ⥪饬 䠩  (  
)  ६묨  筮 ⨯. ᫨ 室
   ⮫쪮 ஡,  ᪮쪮  㦭  
।  ᨬ쭮  ६   樠-
樨 ६  (.. STORE ' ' TO MEMVAR).

      . ࠧ 8  ࠢ ஬   .

        ⢮ SET SCREEN ON  (  祭
  㬮砭,  ᫨ ࠧ襭 ࠭ 樨  -
 "").

    ਬ:

 ...
 STORE ' ' TO RTYPE
 STORE ' ' TO ACCT
 ERASE
 @ 5,0 SAY ' "C"  ......'
 @ 6,0 SAY '  "D"  ......'
 @ 8,10 GET RTYPE
 READ
 IF RTYPE='D'
 @ 10,10 SAY ' . ' GET ACCT PICTURE '999-99-9999'
   READ
 ENDIF
 ...


      9.2.35. RECALL

      RECALL [<>] [FOR <>]

       ⪨  㤠 ᥩ,  ⠢ 
DELETE,  ᥩ, 㤮⢮ <>.


      9.2.36. RELEASE

      RELEASE [<->] [ALL]

      ᢮     㪠  ६  ,  
࠭⢮, ⮥ , ⠭ 㯭  ।-
  ६ .


      9.2.37. REMARK

      REMARK < >

       ⮡ࠦ  ᨬ  뢮 ன-
⢥.


      9.2.38. RENAME

      RENAME <  > TO <  >

         䠩   ᪥. ᫨
  㪠  ⨯  䠩 ( 3 ᨬ ᫥    䠩),
" ।,      砥  ⨯  .DBF.
. ࠧ 4  ᯮ짮 ⨯ 䠩.

        ਬ:

   . RENAME INVENMAS TO INVENOLD
   . RENAME D:REPORT.FRM TO REPORT.BAK
   . RENAME TYPELESS. TO TYPED.TYR


      9.2.39. REPLACE

      REPLACE [<>] <> WITH <>  [,<2>  WITH
               <2>] ,ITD [FOR <>]

      ᯮ     ᮤন  㪠  
 ⥪饣 䠩    .    ⨢
STORE,  REPLACE  ⮫쪮 ,    ६,   STORE
 ⮫쪮 ६ .

      ᫨ <>  㪠, ᯮ ⥪ .

      ᫨ REPLACE      箬    
㪠  USE,     㭨⮦,  
 ⠢  㦭 .   䠩   USE 
ண.    ᭮  ᠬ  "-
頥"  䠩 ⠪,    "᫥  "  -  
㣠,  祬  "᫥ ". ᫨  ⢥ <-
> 㪠 NEXT N,    㤥 .
