.H                101.2341987.00102-0 3 01
.F                          #
.PL 66
.PN 56     
.9.2.42 RESTORE


      RESTOR FRO <FAJL>

      ~ITAE FAJ PEREMENNY PAMQTI o DOLVE BYT OBRAZOWA 
KOMANDOʠ SAV MEMOR٠ T <fajl> wSŠ PEREMENNYŠ PAMQTI 
OPREDELENNY D RESTORE BUDU UNI^TOVEN \TO KOMANDOJ.


      9.2.43 RETURN


      RETURN

       iSPOLXZUETS  WNUTR  KOMANDNOG  FAJL  DL  WOZWRAT 
UPRAWLENI KOMANDNOM FAJLU WYZWAW[EM DANNY (IL  KLAWIA- 
TURE ESL  POLXZOWATEL  NEPOSREDSTWENN  WYZWA  KOMANDNY 
FAJL) wKL@^ENI KONC FAJL (EOF  KOMANDNY FAJ  \KWIWA- 
LENTN KOMAND RETURN.


      9.2.44. SAVE


          SAV T <fajl>

     zAPOMINAE WS OPREDELENNY  TEKU]I MOMENԠ PEREMENNY 
PAMQTɠ נ FAJLE oNɠ MOGUԠ BYTؠ WOSSTANOWLEN٠ KOMANDO 
RESTORE.


      9.2.45 SELECT
      SELEC [PRIMARY]
             [SECONDARY]

      zASTAWLQEԠ "rebus WYBRAT DLѠ POSLEDU@]IȠ OPERACI  
ODNՠ Iڠ DWUȠ WOZMOVNYȠ OBLASTEʠ BAZY s POMO]X \TOG  
POLXZOWATELؠ MOVEԠ RABOTAT ODNOWREMENNϠ Ӡ DWUMѠ BAZAMI 
NAPRIMER ISPOLXZUѠ DANNY I ODNO BAZ IZMENQT DANNYŠ  
DRUGO  BAZE IL SRAWNIWAT DANNY I DWU BA  DR..

           kOGD INICIIRUETS "rebus" AKTIWN OBLAST PRIMARY |T 
OBLAST BUDE AKTIWN D  KOMAND  SELEC  SECONDARY  pOSL 
\TOG AKTIWN WTORI^NA OBLASTX POK N BUDE WYDAN  SELEC 
PRIMARY w OBEI OBLASTQ MOGU ISPOLXZOWATXS RAZLI^NY BAZ 
(KOMANDO USE).

           eSLɠ OBŠ OBLASTɠ IME@ BAZ  USE T Iڠ NIȠ MOGU 
IZWLEKATXSѠ POLEPEREMENNYE sLEDUEԠ SKAZATX ^TϠ L@BO  
WYRAVENIŠ MOVEԠ ISPOLXZOWAT PEREMENNYŠ Iڠ L@BOʠ OBLAST 
BAZY eSL IMEN POLE  OBEI OBLASTQ ODINAKOW DL  KAKOJ-
NIBUD  PEREMENNOJ T PEREMENNA PREFIKSIRUETS   "P. IL  
"S."  DL UKAZANI BAZY I KOTORO ON IZWLEKAETSQ.

           kOMAND "rebus" KOTORY WYZYWA@ PEREDWIVENI  P  BAZ 
(T.E GOTO SKIP REPORT SORT LIST DISPLAY (DL DIAPAZON 
Iڠ BOLEŠ ^E͠ ODNO ZAPISEJ)  DR DEJSTWU@Ԡ TOLXKϠ N  
TEKU]U WYBRANNU BAZU SE LINKAG OΠ   POZWOLQEԠ WSE  
POSLEDU@]I͠ KOMANDA͠ (IME@]I͠ PARAMETҠ  <diapazon>  
OSU]ESTWLQTؠ POZICIONIROWANIŠ ODNOWREMENN N PERWI^NOʠ  
WTORI^NO  BAZA (SM KOMAND SET).

          kOMAND REPLAC BUDE WLIQT TOLXK N PEREMENNY TEKU]E 
WYBRANNOʠ BAZY. DISPLA٠ STRUCTUR  OTOBRAVAEԠ  STRUKTUR 
TOLXK TEKU]E WYBRANNO BAZY.


       9.2.46. SET


      a SE <par1 [ON]
      b SE <par2 T <opciq>
 
      |T KOMAND IZMENQE KOFIGURACI  "rebus"  SE  IMEE 
DWŠ FORMY fORM "a POZWOLQE  PEREKL@^AT  PARAMETR٠  N  
ON (WKL@^ENO ɠ OF (WYKL@^ENO)  fORM "b"  POZWOLQE  
IZMENIT ZNA^ENI PARAMETRO P UMOL^ANI@ 

     pARAMETR٠ נ FORMŠ "a   IȠ ZNA^ENIѠ PϠ UMOL^ANI 
                              (OTME^EN ZWEZDO^KOJ):

       <par1      DEJSTWI     ZNA^ENIE

     1 ECH O        PRIHODQ]I I KOMANDNOG FAJL KOMANDY
                                   REPRODUCIRU@TSQ NA \KRANE.
             OF       REPRODUCIROWANI NET.

     2STEPOΠ     "rebusOSTANAWLIWAETSѠP ZAWER[ENI  
                        KAVDOJ KOMANDY I VDET PODTWERVDENIQ
                        OT POLXZOWATELQ - PEREHODITX K 
                        SLEDU@]EJ KOMANDE ILI NET (ISPOLX-
                                   ZUETSQ DLQ OTLADKI KOMANDNYH FAJLOW).
                        OFF      * NORMALXNYE OPERACII.

      3 TAL O       REZULXTAT KOMAN OTOBRAVA@TSQ
                        N \KRANE.
             OF       N OTOBRAVA@TSQ.

      4 PRIN O      WYWO PROIZWODITS N PRINTER.
              OF      NET.

      5 CONSOL O    WYWO PROIZWODITS N \KRAN.
                 OF   NET.

      6 ALTERNAT O  WYWO PROIZWODITS  DISKOWY FAJL.
                  OF  NET.

      7 SCREE  O    POLNO\KRANNY  OPERACI  DL  APPEND,
                               INSERT EDIT CREATE.
                 OF   NET.

      8 LINKAG O    WS POSLEDOWATELXNY KOMANDY
                        (LIST REPORT SUM  T.E  KO-
                        MAND  PARAMETRO <diapazon>)
                        OSU]ESTWLQ@  POZICIONIROWANIE
                         PERWI^NO  WTORI^NO BAZAH.
                 OF   PERWI^NA  WTORI^NA BAZ NEZA-
                        ZAWISIMY.

      9 COLO O      GRANIC \LEMENTO GET-DANNY SO
                        STOLBCAM   KOMANDAH.
               OF     BE STOLBCOW.

      10 BEL O      ZWONO PR WWOD NEWERNY DANNY  
                        IL  PR NARU[ENI GRANIC.
              OF      NET.

     11 ESCAP O     SIMWO ESCAP (1w 16-RI^NOE)
                        TERMINIRUE WYPOLNENI KOMAND-
                        NOG FAJLA.
                OF    N SU]ESTWUE ESCAPE.

     12 EXAC O      SIMWOLXNY  STROK  DOLVN  POLNOSTX  
                        (Z ISKL@^ENIE HWOSTOWY PROBELOW 
                        SRAWNIWATXS  WYRAVENIQ   KOMAND 
                        FIND.
                OF    SRAWNENI DELAETS P DLIN WTOROJ
                        STROKI T.E "abwgde"*"abw ISTINNO.

     13 INTENSIT O  POLNO\KRANNY OPERACI BUDUT
                        ISPOLXZOWAT SIMWOL  DWOJNOJ
                        QRKOSTX (OBY^NO IL INWERSNOE
                        IZOBRAVENI DL NEKOTORY TERMINALOW).
                  OF  DWOJNA QRKOST N ISPOLXZUETSQ.

     14DEBUǠO    *WYHOĠKOMANĠECHɠSTEP POSYLAETS  
                        N PRINTER.
               OF   DOPOLNITELXNOG WYWODNPRINTE NET.

     15 CARR O      DANNY I PERWO ZAPIS BUDUT
                        PERENOSITXS DL ZAPISE  APPEND
                         POLNO\KRANNO REVIME.
               OF     NE PERENOSA.

     16CONFIR͠O   "rebus N PEREHODI ˠSLEDU@]EM POL@
                         POLNO\KRANNO REDAKTIROWANI POK 
                        NŠ NAVAT UPRAWLQ@]AѠKLAWI[TIP 
                        <et>.
                 OF   "rebus PEREHODI  SLEDU@]EMU POL@ 
                        ESLɠWWEDENϠSLI[KO͠MNOG SIMWOLOW.

     17EJECԠ O     KOMAND REPOR PROPUSKAEԠ STRANIC 
                        PERED WYWODO NOWOG OT^ETA.
               OF     NE PROGON STRANICY.

     18 RAנ O      STAWI PROBEL MEVDՠPOLQMIESL 
                        KOMANDY DISPLA   LIS  ISPOLXZU@TSQ
                        BE SPISK POLEJ.
             OF       PROBEL OTSUTSTWU@T.

     19 SCREE O     POLNO\KRANNI DL EDIT APPEND,
                        INSER  CREATE.
                OF    NET.


      pARAMETR FORM  I FORMATY:

      1 SE HEADIN T <stroka>

      <stroka ZAPOMINAETS  PE^ATAETS  KA^ESTW ZAGOLOWKA
 OT^ETA <stroka D 6 SIMWOLO DLINNO (SM REPORT).

      2 SE FORMA T [SCREEN]
                       [PRINT]
                       [<formatnyj fajl>]

      pERWY DW FORM OPREDELQ@T  KUD  IDE  WYHO  KOMAND
 "@" pOSLEDNQѠ FORM OPREDELQET BUDUԠ Lɠ  @-KOMAND 
S^ITYWAT P REA (SM "@  READ)

      3 SE DEFAUL T <u-wo>

      uKAZYWAEԠ DISKOWOŠ USTROJSTW PϠ UMOL^ANI@ "rebus 
BUDEԠ PREDPOLAGATX ^TϠ NEQWNYŠ (NEPOLNYE IMEN FAJLO  
NAHODQTS N \TO USTROJSTWE |T POZWOLQE PISAT KOMANDNY 
FAJL TAKI OBRAZOM ^TOB SSYLO^NY FAJL MOGLɠ NAHODITXS 
N L@BO DISK  SISTEME |T MOVN DELAT  &-MAKROSAMI w 
INTERAKTIWNO͠ REVIMŠ \T SET-KOMAND USTANAWLIWAEԠ NEQWNY  
IMEN  DL FAJLOW.
      kOGD USTANOWLENϠ USTROJSTWϠ PϠ UMOL^ANI@ TϠ P  
UMOL^ANI STANOWQTS  "rebus WS NEQWNY IMEN FAJLOW s@D 
WKL@^A@TS  FORMATNY FAJLY KOMANDNY FAJLY  FAJL  PAMQTI 
FORMATIRU@]I FAJLY INDEKSNY FAJLY TEKSTOWY FAJL  FAJL 
BAZY.

      pARAMET <u-wo MOVE SODERVAT  DWOETO^I (:)  T.E. 
 "b  "b: MOVN UKAZAT  KA^ESTW USTOROJSTWA.
      zAME^ANIE \T SET-KOMAND N WLIQE N  USTROJSTW  P 
UMOL^ANI  SCP pERWONA^ALXNO USTROJSTW  "rebus  T  VE 
^T  DL SCP.

      4 SE ALTERNAT T [<fajl>]

      |T FORM KOMAND SE ALTERNATE EST ^AST DWUH[AGOWOG 
PROCESS ZAPISɠ TOGO ^TϠ OBY^NϠ PI[ETSѠ N \KRAN   
DISKOWY FAJL |T OTNOSITS  WYWODU GENERIRUEMOM "rebus"  
ɠ  ˠ WWODU NABIRAEMOMՠ Ӡ KLAWIATURY |T FORM 
IDENTIFICIRUEԠI  OTKRYWAEԠ PRINIMA@]I FAJ NDISKE eSL 
<fajl UVŠ SU]ESTWUE N DISKE TϠ SODERVIMOŠ EGϠ BUDE ZATIRATXSQ pOSLEDU@]A SE ALTERNAT O WKL@^I \HO-PROCESS.

      PRIMERY:

   SE ALTERNAT T B:PRINTFLE
   SE ALTERNAT ON
   ...
   SE ALTERNAT T <fajl>

      wSE ^TϠ POQWLQETSѠ N \KRAN  N PRINTER, BUDE 
KOPIROWATXS ZDES  FAJ B:PRINTFLE.TXT.


      5 SE DAT T mm/dd/gg

      w L@BOŠ WREM MOVNϠ USTANAWLIWATؠ ZANOWϠ SISTEMNU  
DATU oDNAK NE NIKAKO PROWERK P KALENDAR@.

      6 SE INDEX T  <indeks.fajl  [  <indeks.fajl>  ...
 <indeks.fajl>]

      iDENTIFICIRUE  USTANAWLIWAE D    INDEKSNY  FAJLO 
DL POSLEDU@]EG  ISPOLXZOWANIQ  eSL  INDEKSNY  FAJ  UV 
ISPOLXZUETS ( USE) T STARY INDEKSNY FAJ ZAKRYWAETSQ  
NOWY - OTKRYWAETSQ.

      zAME^ANIE ESL USTANAWLIWAETS NOWY INDEKS T  BAZ 
OSTAETS POZICIONIROWANNO TAM GD ON BYLA  INDEK WOOB] 
NIKUD NŠ UKAZYWAET nEOBHODIM D ISPOLXZOWANI KOMANĠ  
FRAZO NEX  WYDAT  KOMAND  FIN  IL  GOT  Ӡ  USTANOWKO 
INDEKSNOG UKAZATELQ.

      pERWYʠ INDEKSNYʠ FAJ̠ S^ITAETSѠ GLAWNY͠ INDEKSO  
(MASTEҠINDEX) wS FIND- BUDU ISPOLXZOWATؠ TOLXKϠ \TO 
INDEK,  BAZ BUDE RASSMATRIWATXS P \TOM INDEKSU.

           kOMAND SE INDEX T  (BE INDEKSNOG  FAJLA  OSWOBODIT
WS INDEKS,  BAZ PREWRATITS  POSLEDOWATELXNY FAJL.

      7 SE MARGI T N

      pOZWOLQEԠ POLXZOWATEL UPRAWLQT LEWOʠ GRANICEʠ PR 
PE^ATɠ OT^ETA wSŠ PE^ATAEMYŠ STROKɠ BUDUԠ PE^ATATXSQ 
OTSTUPI SLEW N N PROBELOW  DOLVE BYT LITERALO O  D 
254.


      9.2.47 SKIP


      SKIP [+ [<wyr>]
           [-]

      pEREME]AE UKAZATEL  TEKU]E  ZAPIS  WPERE    NAZA 
OTNOSITELXN TEKU]EG POLOVENIQ.


      9.2.48 SORT


      SOR O <pole T <fajl [ASCENDING]
                               [DESCENDING] 

      sORTIRUEԠ FAJ̠ נ DRUGOʠ FAJL OTLI^NYʠ O  
PERWONA^ALXNOGO tEKU]Iʠ FAJ SORTIRUETS P ODNOM POL   
WOZWRASTA@[E (ASCENDING   UBYWA@]E (DESCENDING PORQDKE 
zAMETIM ^T TEKU]I FAJ OSTAETS NEIZMENNYM.

      bAZՠ MOVNϠ OTSORTIROWATؠ PϠ NESKOLXKI͠ KL@^A 
POSLEDOWATELXNYMɠ SORTIROWKAMI WNA^AL P MLAD[EMՠ KL@^U 
POTO͠  - P WS BOLE STAR[I KL@^AM dL SIMWOLXNYȠ POLE 
SORTIROWK IDE  KOD koi-7 p UMOL^ANI SORTIROWK IDE P 
WOZRASTANI@.

      sORTIROWK  KOD koi- OZNA^AET ^T 'SMIT MENX[ ^E 
'SMITH'-MALENXKIMɠ BUKWAMI kOMAND INDEX - ALXTERNATIW 
KOMAND SORT  INDEX  OSU]ESTWLQE WS SORTIROWKI INDEX  
CELO DAE BOLX[U SWOBOD  SKOROSTX ^E SORT.



      9.2.49 STORE


      STOR <wyr T <perpam>

      wY^ISLQE ZNA^ENI WYRAVENI  ZAPOMINAE   PEREMENNO 
PAMQTI eSLɠ PEREMENNA PAMQT NŠ SU]ESTWUET TϠ "rebus  
SOZDAE EE.

      zAMETIM ^T STOR IZMENQE TOLXK  PEREMENNY  PAMQTI 
REPLAC MOVE MENQT POLEPEREMENNYE.


      9.2.50 SUM


      SU <pole [,<pole>  [T  <spis.perpam>  [<diapazon>]
          [FO <wyr>]

      sKLADYWAEԠ ^ISLOWYŠ WYRAVENIѠ NA TEKU]I͠ FAJLO͠  
PREDELAȠ <diapazona ɠ FRAZ٠ FOR  oDNOWREMENNϠ  MOGU  
SKLADYWATXS D  WYRAVENIJ eSL UKAZAN FRAZ "to" ITOG  
TAKV ZAPOMINA@TS  PEREMENNY PAMQT (ONɠ SOZDA@TSQ ESL 
IȠ  NŠ BYLO. pϠ UMOL^ANI DIAPAZOΠ SU OHWATYWAEԠ  WS  
NEUDALENNY ZAPISI.

      pRIMERY:

    SU COS FO NO=1
     2.82

    SU NO*COST,NO,COST,COST/NO
     31.5 2 11.4 5.81


      9.2.51 TOTAL


      TOTA O  <kl`~  T  <baza  [FIELD  <spisok>  [FOR
 <wyr>]

      oN PODOBN WOZMOVNOSTQ RAZREZ  KOMAND  REPORT  Z 
ISKL@^ENIE TOGO ^T RAZREZ ZDES POME]A@TS  BAZ WMEST 
WYPE^ATYWANIQ.

      zAME^ANIE TEKU]AѠ BAZ DOLVN BYTؠ PREDWARITELXN 
OTSORTIROWAN IL PROINDEKSIROWAN P <kl`~u>.

      eSL  to-baza  OPREDELEN  (T.E  SU]ESTWUE    IMEE 
STRUKTURU) TϠ EŠ STRUKTUR OSTAETSѠ  NEIZMENNOʠ    
ISPOLXZUETS DL OPREDELENIQ KAKI POL BUDU ARIFMETI^ESK  
SUMMIROWATXSQ.

       eSL to-bazy NET T STRUKTUR KONSTRUIRUETS I  IME 
POLE  UKAZANNY  FRAZ FIELDS eSL NE FRAZ FIELDS  T 
STRUKTUR TEKU]E BAZ KOPIRUETS  to-fajl.

      |T KOMAND BOLE PREDPO^TITELXNA ESL SU]ESTWUE  T 
BAZ  FRAZ FIEL UKAZAN  NEJ w \TO SLU^AŠ SUMMIRU@TS 
TOLXK ^ISLOWY POL I FIELDS.

      TOTA MOVEԠ TAKVŠ ISPOLXZOWATXSѠ DLѠ UDALENI 
DUBLIROWANNY ZAPISE I BAZY T.K NE^ISLOWO POL  FIELDS-
SPISK N SUMMIRUETS  N POME^AETS O[IBO^NYM.




      9.2.52 UPDATE


      UPDAT FRO <baza O <kl`~ [AD <spis.polej>  [REP-
 LAC <spis.polej>]

      UPDAT PROSMATRIWAE USE-fajl I  ISPOLXZU  DANNY  I 
WTOROʠ BAZY IZMENQEԠ USE-fajl iZMENENNYŠ DANNYŠ MOGU 
SUMMIROWATXSѠ (ADD ILɠ ZAME]ATXSѠ (REPLACE) zAPIS  
IZMENQETSQ ESLɠ PROHODI SRAWNENI POL TEKU]E  BAZ٠  I  
FROM-bazy |Tɠ POL NAZYWA@TS KL@^AM ɠ POSTAWLQ@TSѠ ON-
FRAZOJ.

      zAME^ANIE TEKU]AѠ BAZ DOLVN BYTؠ PREDWARITELXN 
OTSORTIROWAN ILɠ PROINDEKSIROWAN PϠ <kl`~u> FROM-baza 
DOLVN BYT  PREDWARITELXN OTSORTIROWAN P KL@^U.
      oBŠ BAZ POZICIONIRU@TS  NA^AL   ^ITAETS  ZAPISX 
eSLɠ KL@^ SOWPADA@T OSU]ESTWLQETS DOBAWLENIŠ (ADD IL 
ZAME]ENIŠ (REPLACE KAˠ UKAZANO eSL KL@ޠ TEKU]Eʠ BAZ 
MENX[ ( PORQDK SORTIROWKI ^E KL@ I FROM-bazy TϠ  N 
DELAETS NIKAKI DEJSTWIJ ZAPIS  PROPUSKAETS    OSTAETS 
NEIZMENNOJ pODOBNY  OBRAZOM  ESL  FROM-kl`~  MENX[E  T 
IZMENENI N DELA@TS  ZAPIS PROPUSKAETSQ.


     9.2.53 USE


      US [<baza>]
      US <baza INDEX <ind.fajl>[,<ind.fajl>,...<ind.fajl>]

      pRIMER:

       US DATABAS INDEX NAME,SITY,PART:NO,SALESMAN

      kOMAND US UKAZYWAET KAKA (UV  SU]ESTWU@]AQ  BAZ 
BUDE SEJ^A ISPOLXZOWATXSQ eSL D \TOG UV BYL USE  T 
STARYʠ FAJ̠ ZAKRYWAETSQ eSLɠ IMѠ BAZ٠ NŠ UKAZANO T  
PREDYDU]I FAJ  US OTKRYWAETSQ.

      wTORAѠ FORM US UKAZYWAE BAZ DL OPERACI  POMO]X 
INDEKS-FAJLO (PREDWARITELXN SOZDANNY KOMANDO  INDEX  IL 
SE INDEX T <indeks-fajl>).

      mOVN UKAZYWAT D  indeks-fajlow pERWY  indeks-fajl 
NAZYWAETS  GLAWNY  INDEKSO  (master-indeks)   wS   FIND
ISPOLXZU@Ԡ TOLXKϠ master-indeks wS \T INDEKSNYŠ FAJL 
BUDUԠ AWTOMATI^ESK IZMENQTXS PRɠ KOMANDAȠ APPEND EDIT 
REPLACE READ BROWSE.

      9.2.54 WAIT


      WAI [T <perpam>]

      zASTAWLQEԠ "rebus PRIOSTANOWIT WYPOLNENIŠ OPERACIJ 
POKUD Ӡ KLAWIATUR٠ N BUDEԠ WWEDEΠ L@BOʠ  SIMWOL  n  
\KRAN OTOBRAVAETS SOOB]ENI "WAITING" eSL UKAZAN  FRAZ  
"to" T SIMWOLXNA STROK I ODNOG SIMWOLA KOTORA WYWODI 
rebu I SOSTOQNI OVIDANIQ POPADAE  PEREMENNU PAMQTI.

      oPCIѠ "to O^ENؠ POLEZNA ESL TOLXKϠ ODIΠ SIMWO  
TREBUETSѠ DL OPREDELENI DEJSTWI  KOMANDNO͠ FAJLE T.E  
PR WYBOR MEN@ zAMETIM ^T WOZWRA KARETK N  NEOBHODI  
DL POSYLK SIMWOL (KA  KOMANDA ACCEPT  INPUT).

      eSL NABIRAETS NEPE^ATNY SIMWO  (T.E  RETURN  LIN 
FEE IL DRUPRAWLQ@]I SIWOL   OTWE  N  "WAI  TO"  T 
ZNA^ENIE PEREMENNO PAMQT BUDE PROBEL.
.PA
      11 sORTIROWK P RUSSKOM ALFAWITU.

      dL TOG ^TOB WOSPOLXZOWATXS SORTIROWKO PϠ RUSSKOM 
ALFAWIT NEOBHODIM SLEDU@]E :

               - DLѠ POL, PϠ KOTOROMՠ PREDPOLAGAETSѠ SORTIROWK  
STRUKTUR ZAPIS, PREDUSMOTRET SLUVEBNO POL TAKO V DLINY;

     -  PEREMENNU FSR POMESTIT IM SORTIRUEMOGϠ POLQ  
WPEREMENNUFSERIMѠ SLUVEBNOGϠ POLQ; נ PEREMENNU DIA 
POME]AETS DIAPAZO DEJSTWI  FORMAT :

                    a    - WSE ZAPISI
                    R<N> - ZAPISX S NOMEROM <N>
                    N<N> - <N> ZAPISEJ NA^INAQ S TEKU]EJ;

     - WYPOLNITؠKOMANDNYʠFAJ̠RSOR(KOMANDOʠD RSORT).

       pOSLŠ \TOG FAJ MOVN INDEKSIROWAT ILɠ SORTIROWAT 
STANDARTNOʠ KOMANDOʠ SORT  KA^ESTW KL@^ UKAZYWAѠ IM 
SLUVEBNOGO POLQ.

       nEOBHODIMϠ IMETؠ WWIDU,^TϠ KOMAND RSOR TREBUE 
SRAWNITELXNϠ MNOGϠ WREMENɠ DLѠ WYPOLNENIQ ZAWISQ]EGϠ  
PERWOG O^ERED O DLIN SLUVEBNOG POLQ.
.PA
       11. pROGRAMMA "rebus/|kran".

       11.1.  oBZOR.

       pROGRAMM "rebus/|kran PREWRA]AE WA \KRA  "OKNO 
DLѠ SOZDANIѠ 2 STRO^NO WWODNO FORM DL \KRAN ɠ DϠ 8 
STRO^NOʠ  WYHODNO FORM DL PRINTERA POZWOLQѠ PREWRA]AT 
IZOBRAVENI N \KRAN  POSLEDOWATELXNOST KOMAN "rebus".

      11.1.1 sTRUKTUR \KRAN PR RABOT "rebus/|kran"

      0.........................79
      .
                  /r
      .
                  /m
      ----------------------------
      !                          !  /t
      !                          !
      !                          !
      !                          !
      !                          !
      !                          !
      !                          !
      !                          !  /w
      ---------------------------- 
      .
      .
                  /N
      .
      <DLIN STRANICY>(23-88)
      .
      .
      .
      88

      11.1.2 |KRANNY KOMAND ZIP
              (PE^ATAEMYE IZMENQEMYE)

       :PREFIK KOMAND     //:MEN@
      /t:WER \KRAN         /w:NI \KRANA
      /m:SEREDIN STROKI
      /I:WSTAWIT PROBE     /D:UDALIT SIMWOL
      /a:WSTAWK STROK      /k:UBRAT LINI KURSORA
      /n:^ERTIT GORIZ.LIN  /V:^ERTIT WERTIK LINI@
      /N:SLED \KRA         /L:POSL \KRAN
      /F:PERWY \KRA        /S:SOHRANIT FAJL PROGRAMMU
      /e:^ISTK RAB FAJLA
      /Q:PEREHO  SISTEMU

      dL "rebus :

       :SAY-PEREMENNA       :GET-PEREMENNAQ
      []:ZAREZERWIROWAN DL WKL@^AEMY "rebus"-KOMAND

     11.1.3 dINAMI^ESKIŠ ZNA^ENIQ KOTORYŠ W٠ MOVET 
IZMENIT WO WREM SESSI "rebus/|kran"

       :<V WERTIK MARKE  - :<n GORIZONTALXNY MARKER
       :<t TABULQCI (1-9 88:<r DLIN STRANIC (23-88)
      40:<m GRANIC DL PRINTER (0-127)

      11.2 pRINCI RABOT "rebus/|kran"

      w DALXNEJ[E͠ TEKSTŠ WMESTϠ SLOנ "rebus/|kran 
ISPOLXZUETS SOKRA]ENI ZIP.
      rAMK  TABLIC SOZDA@TS, ISPOLXZU  GORIZONTALXNY   
WERTIKALXNY MARKERY tEKST IMEN PEREMENNY ( LIDIRU@]IM 
 IL #  WSTROENNY KOMAND ( KWADRATNY  SKOBKAH  PROST 
NABIRA@TS N \KRAN BE WSQKI  UPRAWLQ@]I  SIMWOLOW  kA 
TOLXK W NARISOWAL FORMU KOTORA WA  NRAWITSQ  NABERIT 
'/S,  ZIP PRIMETS Z RABOTU.

     ZIP SKANIRUE FORM  AWTOMATI^ESK SOZDAE WS KOMANDY:

      @ <stroka,stolbec SA <tekst>

      wSTRETI SIMWO  O PI[ET:

       <stroka,stolbec SA <peremennaq>

      kOMAND٠ "rebus OΠ UZNAEԠ PϠ KWADRATNY͠ SKOBKAM  
WPRO^E͠ SODERVIMO KWADRATNY SKOBO OΠ NŠ ANALIZIRUET   
PERENOSIԠ EGϠ  WYHODNO FAJL FMT-fajly (WYHODNYŠ FORMY 
MOGU SOZDAWATXS DL \KRAN IL DL PE^ATI CMD-fajly 
(WHODNY FORMY - DL \KRANA.


      11.3 iSPOLXZOWANI "rebus/|kran"

      wWEDIT KOMANDU:

          ZIP

      ZIP NA^INAE RABOT  POKAZ HELP-|krana  ZNA^ENI  P 
UMOL^ANI@ nA͠ NŠ NAD I ZAPOMINATX |TOԠ \KRAΠ MOVET 
UWIDET, NABRAW:

   //
      ~TOB WYJT I NEGO NABERIT L@BO SIMWOL.
|KRA O^ISTITS  ZIP ( NIVNE STROK \KRANA SPROSIT:

     <NEW O <OLD FIL ( T QUIT)?

     ZIP NŠ BUDE RABOTATX POKUD W EMՠ NŠ SKAVETŠ  -  
VELAETŠ Lɠ W٠ SOZDAT NOWY FAJ (N ILɠ IZMENITؠ STARY  
(o) ILɠ W RAZDUMAL RABOTAT  ZIP (Q) eSLɠ W٠ TOLXK 
NA^ALI:

   N
     ZIP SPROSI IM SOZDAWAEMOG FAJLA:

     FIL NAM (DRIV ORTIONAL):

     iM FAJL D  SIMWOLO  MOVE SODERVAT SIMWOLY:

     a-q 0123456789 @#  :

      |TϠ OZNA^AET ^TϠ W٠ N IMEET PRAW ZADAWATؠ TI  
FAJLA ZIP BUDE SOHRANQT RABO^I FAJ PO IMENE <imq>.ZIP
ɠ  BUDE ZAPISYWAT KOMANDNY FAJ  נ  <imq>.CMD  wWEDIT  
IM FAJL  <wk> kURSO PEREDWINETS  NA^AL  \KRAN (0,0, 
 ZIP SOOB]I WA EG TEKU]I KOORDINATY.

      pOPROBUE NAVAT KLAWI[ TABULQCI <tab IL <wk> eSL 
EST AWTOPOWTOR T DERVIT KLAWI[ NAVATO  KURSO  NA^NE 
DWIVENI P STROKAM POK N DOSTIGNE KONC \KRANA  pRI^E 
ZI KAVDYʠ RAڠ BUDEԠ SOOB]ATؠ KOORDINAT٠ KURSORA eST 
KOMAND DL BOLE BYSTROG PEREHOD P \KRANU:

    /t - N WER \KRAN ( STOLBCE);
    /w - N NI \KRAN ( STOLBCE);
    /m - N CENT STROK \KRANA.

      pOMNITE ^T ZIP WS WREM SLEDI Z  WAM    SOOB]AE 
WA TEKU]I KOORDINAT KURSORA kOGD W NAVIMAET  "/"  O 
ZNAET ^T W HOTIT WWEST KOMANDU  OTOBRAVAE    "/   
KOMAND  SWOE STROKE  N PO KURSOROM!

      kOGD W٠ NA^INAETŠ SEANӠ Ӡ ZIP [AǠ TABULQCI 
AWTOMATI^ESK USTANAWLIWAETS  5  RAZME STRANIC -  ^ISL  
STRO \KRAN (ESL W  USTANOWK ZIP I N MENQLI).

      w WREM SEANS W MOVET MENQT [A TABULQCI  RAZME 
STRANIC٠ WYZWAנ HELP-|kran eSLɠ W٠ SOKRA]AETŠ RAZME 
STRANIC  TE^ENI SESSI  ZIP STROK Z STRANICEʠ  BUDU  
TERQTXSQ nAWSEGDA.

           tEPERؠ USTANOWIT KURSO  NA^AL  \KRAN  (<wk>,/t   
NABERITE:

   /n
   /V
   <tab dwavdy>
   /V
   <tab dwavdy>
   /V
   /n

      |T KOMAND ^ERTQ  UBIRA@ WERTIKALXNY LINII  STAWQ
 "+  PERESE^ENI IH.
      eSL KURSO N SIMWOL GORIZONTALXNOG MARKER W WREM 
WWOD KOMAND /n ZIP ZA^I]AE OSTATO STROKI.

      eSL KURSO N "+" ZIP MOVE OTWETIT PO-RAZNOMU.

      eSL KURSO N "+  SLEW O NEG DRUGI  SIMWOLY  T  
O OSTAETSQ  SPRAW O NEG ZA^I]AETS OSTATO LINII eSL 
NEԠ NIKAKIȠ SIMWOLOנ NEPOSREDSTWENNϠ SLEW OԠ NEGO   
SLEDU@]Iʠ SIMWO̠ SPRAW NŠ "+" GORIZONTALXNAѠ LINI  
ZATIRAETSQ  "+ ZAMENQETSѠ N TEKU]EŠ ZNA^ENI 
WERTIKALXNOG  MARKERA.

      eSL SIMWO OKRUVE DRUGIM "+" T WS ON OSTA@TSQ  
OSTATO STROK POSL KRAJNEG SPRAW "+ ZATIRAETSQ w  \TO 
SLU^AŠ ZIP WNOWؠ NŠ PROWEDEԠ \Tՠ LINI@ POK W٠ N  
PEREDWINET KURSO N KRAJNI SPRAW "+".

      wERTIKALXNY MARKE IMEE T V LOGIKU.

      iSPOLXZU \T KOMAND DWAVD (/n,/n  IL  /V,/V  MOVN 
BYSTR ZATERET WS STROK IL STOLBEC.
      tEPER NABERITE:

   //
   r
   40
    (TEKU]E ZNA^ENI WERTIKALXNOG MARKERA)
   *

      |TI M IZMENIL RAZME STRANIC  4 STROK  ZNA^ENI 
WERTIKALXNOGϠ MARKER - נ '*' nAVMITŠ L@BU KLAWI[ՠ   
WERNETES  RABO^I \KRA ZIP.

      iSPOLXZUѠ <wk SPUSTITESؠ WNI N NESKOLXKϠ STROK  
nABERITŠ /n  POTO͠ /V wMESTϠ O^ISTKɠ  WERTIKALXNO  
STROKI POSLEDNQ KOMAND IZMENI WS SIMWOL N ZWEZDO^KI 
|TϠ  POTOMU ^TϠ M٠ NAHODIMSѠ NŠ N TEKU]E͠  SIMWOL  
WERTIKALXNOG MARKERA.

      tEPER NABERITE:

   /N
   /w

      w O^UTITES WNIZ SLEDU@]EG \KRANA  ZIP PODSKAVET:

    RO 39,CO 0
   (STROK 39, STOLBE 0)

      sTROKɠ נ NA[Eʠ STRANICŠ NUMERU@TSѠ OԠ  DϠ 39  
zAMETXTE ^T POSLEDNQ WERTIKALXNA LINI DOHODI D SAMOG  
NIZA STRANICY, HOTQ ONA PROWODILASX WNE \TOGO \KRANA.

   / - N PERWY \KRAN;
   / - N POSLEDNI \KRA (POSLEDNQѠ STROK STRANIC٠ N 
POSLEDNE STROK \KRANA).

      ~TOB SOHRANIT WSE ^T M NARISOWALI:

   /S
     ZIP N \T OTWETIT:

     sohranitx <imq kak CM ili kak FMT-fajl (s  ili STOP) 

     eSL W NAVAL N "s IL "F" ZIP ZANESE  WA[  FORM   
OBRATNϠ  RABO^I FAJL eSL NAVAL "s" ZIP SPROSIT 

     |ta forma dlq pe~ati (u ILɠ N) 

     l@BO OTWE KROM "u \KWIWALENTE "N".

      pOSL \TOG ZIP DAE WA [AN SMENIT  IM  FAJL  (DL   
FM  CMD-fajlow):

      fajl <imq> velaete smenitx (u ili N)?

      eSL "u" ZIP SPROSI NOWO IMQ w DAV MOVET UKAZAT 
DRUGOʠ DISˠ  SOSTAWNO IMENɠ FAJLA l@BOʠ DRUGOʠ OTWE 
RAWNOZNA^E "N".
      ZIP WNA^ALŠ SOHRANQEԠ OBRAڠ \KRAN ILɠ PRINTERA  
KOTORY W SOZDALI o SKAVET:

      zapisan obraz |krana <imq>.ZIP

      dL OBRAZ PE^ATI:

   zapisan obraz pe~ati <imq>.ZPR

      pRɠ ZAPISɠ KOMANDNOGϠ FAJL "rebus ZIP  WNA^AL  
ZAPISYWAE IM FAJL  KA^ESTW KOMMENTARIQ:

   *<imq>.CMD

     ILI:

   *<imq>.FMT

      eSL FAJ TIP CMD T POSL \TO STROK O WNOSIT:

   ERAS (dlq obraza |krana)

      ILI:

   SE FORMA T PRINT
   SE MARGI T XX (dlq obraza |krana)

      dL OBOI TIPO FAJLO (CM  FMT ZIP  ZAPISYWAE  WS 
PREDLOVENIѠ '@..SAY ɠ GE  WKL@^AE REA נ FAJ̠ POSL 
KAVDYȠ 6 GET'OW ZIP WSEGD SOOB]AE WAM SKOLXKϠ TAKI  
STRO BYL ZANESENO.

      ZIP ZAWER[AE RABOT  ZAPISX  REA    KONC  WHODNOG 
\KRANNOGϠ FORMAT ILɠ SE FORMA TϠ SCREE DLѠ PE^ATNY 
FORMATOנ NEPOSREDSTWENNϠ PERE ZAWER[A@]I RETUR נ KONC  FAJLA.

      pOSLŠ \TOGϠ ZIP SOHRANQEԠ WA۠ RABO^Iʠ FAJL PI[E 
PROGRAMM  POKAZYWAE E N \KRANE w  MOVET  IZMENIT  E  
I SOHRANITX W FAJLE POD DRUGIM IMENEM.
      eSL ZIP NAJDE GE  PE^ATNO FAJLE O SKAVET:

   "GET w pe~atnom fajle prawilxno (u IL N)?

      eSL W NAMERENN UPOTREBIL GE -  OTWETXT  "u"  ZIP 
PRODOLVI ZAPIS  <imq>.CMD.

      eSLɠ GE O[IBO^N - NAVMITŠ L@BU KLAWI[U ZIP 
TERMINIRUE CMD-fajl ZAQWLQ "komandnyj fajl ne  zawer{en"  
POZICIONIRUEԠ KURSO N SIMWOL GET PREDLAGA WA  UDALIT  
ILI SMENITX EGO.

      wY TEPERX MOVET OPQT SOHRANIT WA  FAJ  (/S)  N 
WS \TO KONE^NO ZAJME  WA MNOG WREMENI.

      ZIP PROWERQE IMEN PEREMENNYH eSL ON NEPRAWILXN   
SMYSL "rebus" O SPROSIT:

   ne peremennaq prodolvitx (u IL N)?

      nAVATIŠ NŠ "u TERMINIRUEԠ OPERACI SOHRANENIѠ   
WYZOWE POZICIONIROWANI KURSOR N O[IBO^NO IMENI.
ZIP TAKV SOOB]I WAM ESL W NA^AL IL  KON^IL  IM 
PEREMENNO DWOETO^IEM:

   wisq}ee dwoeto~ie prodolvitx (u IL N)?

        oPQTX ESLɠ N "u - TERMINACI SOHRANENI  KURSO  
NA O[IBKU, WY ISPRAWLQETE I WNOWX PYTAETESX SOHRANITX FAJL.

      wϠ MNOGI SLU^AQ W NAJDETE ^TϠ NEԠ NEOBHODIMOST 
WIDET FAJLY KOTORY ZAPISYWAE ZIP |T IMEE SMYSL ESL 
W٠ N HOTIT DOBAWLQT KOD DL TRASSIROWK  O[IBO ɠ T.D. 
     ~TOB SRAZ PEREJT  WA[E GOLOWNO PROGRAMME:

   D <imq>

      ILI:

   SE FORMA T <imq>

      eSLɠ WA[ PROGRAMM DAEԠ ZNA^ENIѠ DLѠ PEREMENNYH 
KOTORYŠ W WWEL  FORM  POMO]X ZIP  W٠  POLU^ITŠ  T  
FORMU \KRANA ILI PE^ATI, KOTORU@ WY ZAPLANIROWALI.

      dL ZAPUSK NOWOG FAJL WNA^AL O^ISTIT STARYJ:

   /e

     pOSL ^EG ZIP SPROSIT:

     za~istitx (u ili N)?

     oTWETXT "u"ZIP SPROSIT HOTIT W NOWY IL STARYJ FAJL:

   <NEW IL <OLD fajl ( - wyhod)?

      oTWETXT "Q" ZIP SPROSIT:

   wyhod w sistemu (u ili N)?

      oTWETXT "u" w WY[L  SCP.
      kOGD W WYHODIT  FAJ BOLX[ \KRANA ZIP  BYSTRENXK 
PROMATYWAE EG  POSLEDNI RA  WYHODI  SCP.


      11.4 rABOT BE KOMAN GE  SAY.


      pOPROBUE ISPOLXZOWAT ZIP O TEPER BUDE SA  PISAT 
SA  GET |T GORAZD LEG^E ^E BYL RANEE.
      ZIP AWTOMATI^ESKɠ USTANAWLIWAEԠ DLINՠ STRANIC٠  
RAZMERŠ \KRANA eSL W ZAGRUVAET UV SOZDANNYʠ FORMATNY  
FAJL ZIP USTANAWLIWAEԠ DLIN STRANICY RAWNU DLINŠ DL 
\TOG FAJLA.

     eSL \TO FAJ DL PE^ATI T DLIN STRANIC MOVE BYT 
OPREDELEN DϠ 8 STROK dLѠ POZICIONIROWANIѠ PEREMENNO 
NABERIT  (DL SAY-PEREMENNOJ IL  (DL GET-PEREMENNOJ  
NUVNO MEST  \KRANA pOSL \TOG NABERIT IM PEREMENNOJ n 
NUVN STAWIT  PRIZNA KONC IMENI TA KA ZIP ZNAE PRAWIL 
OBRAZOWANI  IME PEREMENNY "rebus" ZIP ZAWER[AE IM POSL 
TOGO KA  PRO^TE 1 DOPUSTIMY SIMWOLOW ILI ESL WSTRETI 
NEDOPUSTIMYʠ  DLѠ IMENɠ  PEREMENNOʠ  "rebus  SIMWO  
(NAPRIMER  PROBEL)  eSL WSTRE^E NEDOPUSTIMY SIMWOL ZIP  
S^ITAET  ^TϠ  W٠  NA^ALɠ WWODITؠ TEKSԠ SOOB]ENIѠ IL 
ZAGOLOWKA.

      tEPER POSMOTRIT HELP-|kran NABRA // tA W NAJDET 
KRATKU SWODK KOMAN ZIP.


      11.5 wKL@^ENI KOMAN "rebus  FORMATNY FAJLY


      n PRIWLEKA KAKIH-LIB REDAKTORO,TEKST  POMO]X ZIP 
MOVNϠ WKL@^ATؠ  FORMATNY FAJL٠ KOMAND٠ "rebus" oDNAK 
NEOBHODIMO SOBL@DATX SLEDU@]IE PRAWILA:

      - kOMAND "rebus DOLVN ZAKL@^ATXS  KWADRATNY SKOBKI; 
       - kWADRATNY SKOBK DOLVN  BYT  RASPOLOVEN    ODNO 
STROKŠ (ISPOLXZUJTŠ TO^Kՠ Ӡ ZAPQTOʠ DLѠ BOLEŠ DLINNY 
KOMAND) 
           - kOMAND  KWADRATNY SKOBKA DOLVN BYT OTDELEN  O 
TEKST  DRUGI KOMAN  KWADRATNY SKOBKAH.

      ~TOB OTDELIT IH ISPOLXZUJT  ODI  KOMANDNY  SIMWO 
PEREĠ LEWO KWADRATNO SKOBKO  IL  DW  KOMANDNY  SIMWOL 
(@@ @ ILɠ #@) kOMAND٠  KWADRATNYȠ SKOBKAȠ NŠ NAD  
OTDELQT O PRED[ESTWU@]I IME PEREMENNYH.


      11.6 dL "rebus"


       - POZICI  SAY-PEREMENNOJ;
       - POZICI  GET-PEREMENNOJ.

      sIMWO̠ KONC POLѠ NŠ TREBUETSQ TAˠ KAˠ  ZIP  
AWTOMATI^ESKɠ  PREDPOLAGAET  ^TϠ  IMѠ  PEREMENNO  
KON^ILOSX  ESL WSTRE^E SIMWOL N WOSPRINIMAEMY "rebus"  
IL  DLIN  IMENI STALA > 10. rAZRE[ENNYE SIMWOLY "rebus":

      a-q 012345678  DWOETO^I  CENTRE.

      ZIP PROWERQE DWOETO^IQ OTSUTSTWU@]I IMEN PEREMENNY 
ɠ GET'٠ נ FAJLŠ DLѠ PE^ATI POSLŠ ^EGϠ POZWOLQEԠ WA 
KORREKTIROWATؠ ILɠ IGNORIROWAT IH ZIP PI[EԠ REA POSL 
KAVDY 64 GET'OW W CMD-fajl I DAET WAM ZNATX.

      ZIP PI[EԠ KOMANDNYŠ FAJL (<imq>.CM ɠ <imq>.FMT)  
KOTORYŠ W٠ MOVET WYPOLNQT BEڠ  WSQKOGϠ  REDAKTIROWANIQ  
dLѠ FAJL DL \KRAN ZIP PI[E ERAS נ NA^ALŠ FAJLA dL  
FAJLOנ DL PE^AT ZIP PI[E SE FORMA T PRIN  SEԠ MAGI 
TϠ XX נ NA^ALŠ FAJL ɠ SEԠ FORMAԠ TϠ SCREEΠ  PERE  
ZAWER[A@]E  RETURN ZIP TAKV SOHRANQE OBRA WA[EG \KRAN 
 <imq>.ZIP  A OBRAZ PE^ATI - W <imq>.ZPR.

      kWADRATNYŠ SKOBKɠ ZAREZERWIROWAN٠ KAˠ TEKSTOWY 
OGRANI^ITEL DL ZIP  MOGU BYT ISPOLXZOWAN DL  WKL@^ENI  
MEV NIMI KOMAND "rebus" ILI KOMENTARIEW.


      11.7 dINAMI^ESKI ZNA^ENIQ

      SLUVI WERTIKALXNY MARKEROM MOVE BYT  SMENEN  N 
DRUGO SIMWO (W WREM USTANOWK ZIP IL  SEANS  ZIP ).

     - GORIZONTALXNYʠ MARKEҠ MOVEԠ BYT SMENEΠ N DRUGO  
SIMWOL.
      {A TABULQCI USTANOWLE     MOVE  BYT  SMENE  N 
^ISL 1-9.
      dLIN STRANIC MOVE  BYT  DINAMI^ESK  USTANOWLEN - 
^ISL STRO \KRAN IL D 8 STROK gRANIC PE^AT MOVE BYT 
USTANOWLEN  0-127.


      11.8 dRUGI KOMAND "rebus/|kran"

       kOMANDNYʠ MARKER MOVEԠ BYTؠ SMENEΠ N DRUGI  SIMWOLY NEISPOLXZUEMY  TEKST \KRAN IL PE^ATI. 
     / OTOBRAZIT SWODK KOMAN  POLU^IT WOZMOVNOST SMEN 
GORIZONTALXNOGϠ MARKERA WERTIKALXNOGϠ MARKERA [A 
TABULQCII DLINՠ STRANIC ɠ  GRANICՠ  PE^ATI  nAPRIMER  
SMENIM DLINU STRANICY NA 47:

     //
     r
     47

     / KOMAND GORIZONTALXNO LINII 
     eSLɠ KURSOҠ N KAKOM-T SIMWOLE NŠ SOWPADA@]E͠    
GORIZONTALXNY  MARKEROM  P \TO KOMAND ^ERTITS LINIѠ   
POZICI  KURSOR  NAPRAW  D KRA \KRANA eSL V KURSO N 
SIMWOLŠ GORIZONTALXNOGϠ  MARKER - STIRA@TS WS SIMWOL٠   
POZICI  KURSOR  D  PRAWO GRANIC \KRANA.

      / KOMAND WERTIKALXNO LINII.
      eSLɠ KURSO N SIMWOLE OTLI^NO͠ OԠ WERTIKALXNOG  
MARKERA PϠ \TOʠ KOMANDŠ ^ERTITSѠ WERTIKALXNAѠ LINIѠ   
POZICI KURSOR D NIVNE STROK TEKU]E STRANICY eSL DLIN  
STRANIC٠ BOLX[Š 23 \T LINI WYJDE N NIVN@  GRANIC  
\KRANA eSLɠ KURSOҠ N  SIMWOLŠ  WERTIKALXNOGϠ  MARKERA  
PROIZOJDEԠ ^ISTK WSEȠ SIMWOLOנ NA^INAѠ Ӡ TEKU]EGϠ D 
POSLEDNE  STROKI STRANICY.

      sIMWO "+ BUDE AWTOMATI^ESK  STAWITXS    STIRATXS 
WSQKI RAZ KA PERESEKA@TS WERTIKALXNY    GORIZONTALXNY 
LINII.

    /t ɠ /w PEREDWIGA@Ԡ KURSO N WERȠ ɠ NIڠ  \KRAN  
SOOTWETSTWENNO OSTAWAQS  TO V STOLBCE.
     /m KURSO N SEREDIN STROKI.
           /N OTOBRAVAET SLEDU@]IJ \KRAN WNUTRI TEKU]EJ STRANICY.
           /r OTOBRAVAET PREDYDU]IJ \KRAN WNUTRI TEKU]EJ STRANICY.
           /F OTOBRAVAET PERWYJ \KRAN W STRANICE.
           /L OTOBRAVAET POSLEDNIJ \KRAN W STRANICE.
           /I WSTAWLQET PROBEL POD KURSOROM.

      eSL EST KAKOJ-LIB SIMWO  PRAWO GRANIC \KRANA T 
O BUDE POTERQ NAWSEGDA!
      / UDALIT SIMWO PO KURSOROM.
      /a DOBAWIT STROK  MEST KURSORA PROTALKIWAѠ TEKS 
WNIZ pOSLEDNQ STROK STRANIC PR \TO TERQETSQ!
             /k UBIRAE STROK PO KURSOROM PODNIMA TEKST.
            /e STIRAE RABO^I FAJL POSL ^EG W MOVET NA^AT   
NOWOG FAJLA.
      /S SOHRANQE RABO^I  FAJ  PO  IMENE  <imq>.ZIP  IL 
<imq>.ZPR POTO KOMANDNY FAJ  PO  IMENE  <imq>.CM  IL 
<imq.FMT  ZAWISIMOST O WA[EG WYBOR (DL \KRAN IL DLQ
PE^ATI).
            / WYHO  SCP.

.PA

      12 fUNKCIONALXNY ANALOGI.

      fUNKCIONALXNYMɠ ANALOGAMɠ subd "rebus QWLQ@TSѠ subd 
DBASŠ I WERSI 2. FIRM ASHTON-TAT  subd REDABAS RAZ- 
RABOTANNA npk "robotron (gdr) 

      fUNKCIONALXNY͠ ANALOGO͠ PROGRAMM٠ "rebus/|kran 
QWLQETS PROGRAMM ZI WERSI 3.0.


.PA
                                        pRILOVENIE 1



      fUNKCI "rebus"

      #
      *
      EOF
      !(<perem>/<stroka>)
      TYPE(<wyr>)
      INT(<perem>/<wyr>)
      VAL(<perem>/<stroka>/<podstroka>)
      STR(<wyr>/<perem>/<~islo> <na~> <dlina> <desqt>)
      LEN(<perem>/<stroka>)
      $(<wyr>/<perem>/<stroka> <na~> <dlina>)
      @(<perem1>/<stroka1> <perem2>/<stroka2>)
      CHR(<~islo>)
      &
      FILE(<"imq fajla">/<perem>/<wyr>)
      TRIM




.PA
                                        pRILOVENIE 2



      kOMAND "rebus"


      iSPOLXZU@TS SLEDU@]I SOKRA]ENIQ:

      <wyr  WYRAVENIE
      <per  PEREMENNAQ
      <str  STROKA
      <koor  KOORDINATY

      |LEMENT٠ נ SKOBKAȠ <... WWODQTSѠ POLXZOWATELEM 
|LEMENT٠  [... FAKULXTATIWNY w NEKOTORYȠ SLU^AQȠ OPCI 
MOGU IMETX  SWO O^ERED SWO OPCI (BYT WLOVENNYMI).


       <wyr [,spis]                
     oTOBRAZIT N \KRAN WYRAVENIE

      <koor [SA <wyr [USIN 'obraz'] [GE <per [PICTURE
'obraz']] 
                         fORMATIROWANI KONSOLXNOG \KRAN 
                         ILI PRINTERA

      ACCEP ['podskaz'] T <per>
                         wWOD SIMWOLXNOJ STROKI S KONSOLI, 
                         BEZ KAWY^EK

      APPEN [BLANK]
      APPEN FRO <fajl [SDF [FO  <wyr>  [DELIMITE [WITH
        <ograni~itelx>]]

                         dOBAWITX DANNYE W BAZU

      CANCEL

                         tERMINIROWATX WYPOLNENIE KOMANDNOGO FAJLA

      CHANG [<diapazon> FIEL <spisok [FO <wyr>]
              mNOVESTWENNY IZMENENI  BAZE

      CLEAR
                         rEPOZICIONIROWANIE BAZY I SBROS PEREMENNYH 
                         PAMQTI

      CONTINUE 
                         pRODOLVITX KOMANDU LOCATE
      
     COP [<diapazon> T <fajl [STRUCTURE [FIEL <spisok>]
        [FO <wyr> [DELIMITE [WITH <ograni~itelx>]]
                         kOPIROWANIE IZ BAZY W DRUGOJ FAJL
      

COP T <fajl STRUCTUR EXTENDED
                         sOZDATX NOWYJ FAJL, ZAPISI KOTOROGO 
                         SODERVAT OPISANIE STAROGO FAJLA. 
                         (SMOTRI TAKVE CREATE  <now.fajl>
                         FROM <star.fajl>)

      COUN [<diapazon> [FO <wyr> [T <per>]
                         sOS^ITATX ZAPISI, UDOWLETWORQ@]IE 
                         DANNOMU USLOWI@

      CREATE
                         sOZDATX NOWU@ BAZU

      CREAT <now.fajl FRO <star.fajl>
                         sOZDATX NOWYJ FAJL S STRUKTUROJ, 
                         OPREDELENNOJ  DANNYMI STAROGO FAJLA 
                         (SM. TAKVE COPY STRUCTURE EXTENDED)


      DELET [<diapazon> [FO <wyr>]
                         pOMETITX TREBUEMYE ZAPISI NA UDALENIE

      DELET FIL <fajl>
                         uDALITX FAJL IZ SISTEMY

      DISPLA [<diapazon> [FO <wyr> [OFF]
                         pOKAZATX DANNYE PO ZAPROSU

      DISPLA [<diapazon> [<pole [,<spisok>]]
                         pOKAZATX TOLXKO TREBUEMYE POLQ

      DISPLA STRUCTURE
                         pOKAZATX STRUKTURU BAZY W USE

      DISPLA MEMORY
              pOKAZAT SODERVIMO PEREMENNY PAMQTI
      
      DISPLA FILE [O <u-wo>]
                         pOKAZATX OGLAWLENIE DISKA

      D <fajl>
                         wYPOLNITX KOMANDNYJ FAJL

      D WHIL <wyr>
                         cIKLI^ESKI WYPOLNQTX GRUPPU KOMAND

      EDIT
                         iZMENITX DANNYE W BAZE

      EDI [<~islo>]
                         uKAZANIE TREBUEMYH ZAPISEJ DLQ KORREKTIROWKI

      EJECT
                         sMENITX FORMU NA PRINTERE

      ELSE
                         aLXTERNATIWNYJ PUTX WYPOLNENIQ W KOMANDE IF

      ENDDO
                         tERMINATOR KOMANDY DO WHILE

      ENDIF
                         tERMINATOR KOMANDY IF

      ERASE
                         o^ISTITX \KRAN

      FIN <kl`~>
                         lOKALIZIROWATX ZAPISX W  INDEKSIROWANNOJ  
                         BAZE PO kl`~u (kl`~ BEZ KAWY^EK)

      G ili GOT [RECORD] ili [TOP] ili [BOTTOM] N
                         pOZICIONIROWANIE W BAZE

      I <wyr>
                         uSLOWNOE WYPOLNENIE KOMANDY

      INDEX O <kl`~ T <fajl>
                         sOZDATX INDEKSNYJ FAJL DLQ BAZY W USE

      INPU ['podskaz' T <per>
                         wWOD DANNYH POLXZOWATELQ W PEREMENNYE 
                         PAMQTI  (WOZMOVNO S PODSKAZOM)

      INSER [BEFORE]
             [BLANK]
                         dOBAWITX NOWU@ ZAPISX W BAZU  OTNOSITELXNO  
                         DRUGIH ZAPISEJ

      JOI T <fajl O <wyr [FIELD <spisok>]
                         sOZDATX BAZU, SOSTOQ]U@ IZ NAJDENNYH W 
                         DRUGOJ BAZE ZAPISEJ

      LIST
                         oTOBRAZITX ZAPISI

      LOCAT [<diapazon> [FO <wyr>]
                         nAJTI ZAPISI, UDOWLETWORQ@]IE TREBUEMOMU 
                         USLOWI@

      LOOP
                         mEHANIZM SBROSA DLQ GRUPP DO WNILE

      NOT ili *
                         kOMMENTARIJ W KOMANDNOM FAJLE, NE  
                         OTOBRAVAETQ  PRI WYPOLNENII KOMANDNOGO 
                         FAJLA

      MODIF COMMAN <fajl>
                         oSU]ESTWLQET MODIFIKACI@ KOMANDNOGO 
                         FAJLA PRQMO  IZ "rebus"

      MODIF STRUCTURE
                         iZMENITX STRUKTURU BAZY. wSE DANNYE 
                         W BAZE RAZRU[A@TSQ

      PACK
                         uNI^TOVAET ZAPISI, POME^ENNYE NA UDALENIE

      QUI [T spisok komand SC ili .COM-fajlow]
                         tERMINIRUET "rebus" I WYPOLNQET PROGRAMMU. 
                         kAVDAQ KOMANDA W KAWY^KAH, I RAZDELENY ONI 
                         ZAPQTYMI

      READ
                         wWODIT POLNO\KRANNOE REDAKTIROWANIE 
                         FORMATIROWANNOGO \KRANA. dANNYE WWODQTSQ 
                         PO KOMANDAM GET


      RECAL [<diapazon> [FO <wyr>]
                         sNIMAET MARKI NA UDALENIE S ZAPISEJ

      RELEAS [<per [,<spisok>] ili [ALL]
                         uBIRAET NEVELAEMYE PEREMENNYE PAMQTI

      REMARK
                         kOMMENTARIJ W KOMANDNOM FAJLE, OTO-
                         BRAVAEMYJ PRI ISPOLNENII NA \KRANE

      RENAM <star.fajl T <now.fajl>
                         pEREIMENOWYWAET FAJL

      REPLAC [<diapazon> <pole  WITH  <wyr  [,<pole WITH
        <wyr ...] 
                         iZMENQET DANNYE W BAZE. vELATELXNO 
                         SOHRANITX KOPI@ BAZY, TAK KAK "rebus" 
                         DELAET W TO^NOSTI  TO,  ^TO WY 
                         UKAVETE, DAVE ESLI WAM \TOGO I NE 
                         HOTELOSX

      REPOR [<diapazon> [FRO <fajl [T PRINT [FO <wyr>]
                         GENERIRUET OT^ET

      RESET
                         sOOB]AET SCP, ^TO DOLVNA BYTX SMENENA 
                         DISKETA

      RESTOR FRO <fajl>
                         wOSSTANAWLIWAET SOHRANENNYE PO SAVE 
                         PEREMENNYE  PAMQTI. zATIRAET WSE SU-
                         ]ESTWU@]IE PEREMENNYE PAMQTI

      RETURN
                         tERMINIRUET WYPOLNENIE KOMANDNOGO FAJLA 
                         I WOZWRA]AET UPRAWLENIE W WYZYWAW[IJ FAJL

      SAV T <fajl>
                         zAPISYWAET PEREMENNYE PAMQTI W FAJL  DLQ 
                         BUDU]EGO ISPOLXZOWANIQ

      SELEC [PRIMARY ili [SECONDARY]
                         pEREKL@^ENIE RABO^IH OBLASTEJ

      SE <param [ON] ili [OFF]
                         dINAMI^ESKAQ REKONFIGURACIQ KOMAND "rebus"

      SKIP +/-<wyr/~islo>
                         pEREDWIVENIE WPERED-NAZAD PO BAZE

      SOR O <kl`~ T <fajl [ASCENDING]
                               [DESCENDING]
                          gENERACIQ BAZY, OTSORTIROWANNOJ PO POL@

      SU [<diapazon> <pole [,<spisok>] [T <per [,spisok]
        [FO <wyr>]
                          sUMMIROWANIE POLEJ W BAZE

      TOTA T <fajl O <kl`~ [FIELD <pole [,spisok]>
                          gENERACIQ BAZY S PODSUMMAMI DLQ ZAPISEJ

      UPDAT FRO <fajl O <kl`~ [AD <pole [,spisok]>
                                   [REPLACE <pole [,spisok]>
                          mODIFIKACIQ BAZY DANNYMI IZ DRUGOJ BAZY

      US <fajl [INDEX <fajl>]
                          oTKRYTX FAJL BAZY DLQ POSLEDU@]IH OPERACIJ

      USE
                          zAKRYTX OTKRYTU@ BAZU

      WAI [T <per>]
                          pAUZA W WYPOLNENII OPERACIJ (DLQ WWODA)



.PA
                                        pRILOVENIE 3



      sWODK KOMAN "rebus P FUNKCIQM


      sTRUKTUR FAJLA:
      ----------------

      CREAT 
              oPREDELQE STRUKTUR NOWOG FAJLA

      CREAT <now.fajl FRO <star.fajl>
              sOZDAE NOWY FAJL STRUKTUR  KOTOROGO  
                         OPISAN   ZAPISQ STAROG FAJLA

      USE <star.fajl>
            COPY TO <now.fajl> STRUCTURE
              |TI DWE KOMANDY SOZDA@T NOWYJ FAJL, 
                   STRUKTURA KOTOROGO RAWNA STRUKTURE 
              STAROGO FAJLA

      US <star.fajl>
      COP T <now.fajl STRUCTUR EXTENDED
              sOZDAETS NOWY FAJL STRUKTUR KOTOROGO 
                         SODERVITSQ W ZAPISQH STAROGO FAJLA

      DISPLA STRUCTURE
      LIS STRUCTURE
              oBŠKOMAND٠POKAZYWA@ԠSTRUKTUR FAJL  USE

MODIF STRUCTURE
                         iZMENQET IMENA POLEJ, IH RAZMERY

      IZMENIT STRUKTUR DANNYM I BAZY:
      -----------------------------------

      US <star.fajl>
      COP T <now.fajl>
      US <now.fajl>
      MODIF STRUCTURE
      APPEN FRO <star.fajl>
      COPY T <star.fajl>
      US <star.fajl>
      DELET FIL <now.fajl>


      pEREIMENOWAT POL DANNY  BAZE:
      ---------------------------------

      US <star.fajl>
      COP T <now.fajl SDF
      MODIF STRUCTURE
      APPEN FRO <now.fajl>.TX SDF
      DELET FIL <now.fajl>





      oPERACI  FAJLOM:
      ------------------

      US <imq fajla>
    oTKRYT FAJL

      US <now.fajl>
                          zAKRYTX STARYJ FAJL

      USE
                          zAKRYTX WSE FAJLY

      RENAM <star.fajl T <now.fajl>
                          nELXZQ PEREIMENOWYWATX OTKRYTYJ FAJL

      COP T <fajl>
                          sOZDATX STRAHOWO^NU@ KOPI@

      CLEAR
                          zAKRYTX WSE FAJLY I O^ISTITX WSE 
                          PEREMENNYE PAMQTI

      SELEC [PRIMARY][SECONDARY]
                          mOVNO OTKRYTX ODNOWREMENNO DWA FAJLA. 
                          dANNYE  MOVNO PERESYLATX S PREFIKSAMI r. I S.

      DISPLA FILE [O <D>]
                          lISTATX BAZY NA PODKL@^ENNOM ILI UKAZANNOM  
                          DISKE. wMESTO NEE MOVNO LIST

      DISPLA FILE LIK <WILDCARD [O <D>]
                          pROSMATRIWATX FAJLY NA DISKE DRUGOGO TIPA

      QUIT
                          zAKRYTX AKTIWNYE OBLASTI, WSE FAJLY I 
                          TERMINIROWATX OPERACII "rebus"


      sORTIROWK BAZY:
      ----------------

      SOR O <kl`~ T <now.fajl>

      INDEX O <kl`~ T <now.fajl>
          mOVN ISPOLXZOWAT  OBEI  KOMANDA  MNOVESTWENNYE
          KL@^I




      kOMBINIROWANI BAZAMI:
      ----------------------

      COP T <now.fajl>
                          sOZDATX DUBLIKAT FAJLA W USE

      APPEN FRO <dr.fajl>
                          dOBAWITX ZAPISI K FAJLU W USE

      UPDAT FRO <dr.fajl O <kl`~>
                          dOBAWITX ILI ZAMENITX DANNYE W 
                          FAJLE W USE. oBA FAJLA DOLVNY BYTX 
                          OTSORTIROWANY PO <kl`~u>

      JOIN
                          sOZDAET TRETIJ FAJL IZ DWUH DRUGIH


      rEDAKTIROWANI  IZMENENI DANNYH:
      ----------------------------------

      DISPLAY LIST BROWS     
                          pROSMOTR ZAPISEJ

      DELET 
                          MARKIRUET ZAPISI TAK, ^TO ONI 
                          BOLX[E UVE NE ISPOLXZU@TSQ

      RECAL 
                          sNIMAET S ZAPISI PRIZNAK UDALENIQ

      PAC  
                          uNI^TOVAET POME^ENNYE NA UDALENIE 
               ZAPISI

      EDI                     
                          iZMENENIQ W OTDELXNYH ZAPISQH
.PA
                                        pRILOVENIE 4



                           oGRANI^ENIQ

      ~ISL POLE  ZAPIS                         3 MAH
      ~ISL SIMWOLO  ZAPIS                    100 MAH
      ~ISL ZAPISE  BAZ                     6553 MAH
      ~ISL SIMWOLO  SIMWOLXNO STROK          25 MAH
                                                   1 CIFR
      nAIBOLX[E ^ISL                     1.8*10**6 PRIBL.
      nAIMENX[E ^ISL                    1.0*10**-6 PRIBL.
      ~ISL PEREMENNY PAMQT                      6 MAH
      ~ISL SIMWOLO  KOMANDNO STROK           25 MAH
      ~ISL WYRAVENI  KOMAND SU                  MAH
      ~ISL SIMWOLO  ZAGOLOWK REPOR           25 MAH
      ~ISL SIMWOLO  KL@^                      10 MAH
      ~ISL OTLOVENNY GET-O                      6 MAH
      ~ISL ODNOWREMENN OTKRYTY FAJLO           1 MAH
.PA
                                        pRILOVENI 5



             dOPOLNITELXNY DANNY  "rebus"


      1 0- STROK \KRAN ZAREZERWIROWAN DL  SPEC  CELEJ 
sLEDOWATELXN NELXZ WYDAWAT  KOMAND  TIP  "
0,<Y  SA <wyr>".
      2 kOMAND REPOR OGRANI^EN N 2 POL DANNYH.
      3 PACK NŠ UMENX[AEԠ PROSTRANSTWϠ N DISKE  
ZAREZERWIROWANNO SCP DL FAJLApROSTRANSTW MOVN POLU^IT, 
WYDAנ "COP٠ TϠ <im fajla> ɠ POSLŠ \TOGϠ  UNI^TOVI  
ISHODNY  FAJL. |T OGRANI^ENI SCP  N "rebus".
      4 nELXZ PEREIMENOWAT TEKU]I FAJL.
      5 pODHODQ]I SINTAKSI DL KOMAND COP STRUCTURE:
         US <FAJL>
         COP STRUCTUR T <nowyj fajl>
         oPCI "STRUCTURE DOLVN SLEDOWATؠNEPOSREDSTWENN 
         ZA GLAGOLO "COPY".
      6 pR WYDA^ US N NUVN UKAZYWAT RAS[IRENI ".DBF",
         T.K ON P UMOL^ANI@.
.PA









--------------------------------------------------------
!            LIST REGISTRACII IZMENENIJ                !
--------------------------------------------------------
! NOMERA LISTOW(STRANIC)     !WSEGO  !NOMER!WHOD.!PO!DA!
------------------------------LISTOW !DOKU-!NOMER!DP!TA!
!   !IZME-!ZAME-!NOWYH!ANNU- !(STR.) !MENTA!SOPR.!  !  !
!IZM!NEN- !NEN- !     !LIRO- !W DO-  !     !DO-  !  !  !
!   !NYH  !NYH  !     !WAN-  !KUMEN- !     !KUM.I!  !  !
!   !     !     !     !NYH   !TE     !     !DATA !  !  !
--------------------------------------------------------
