                                                                          
                                                                          
                                                                          
*************************************************************             
*                                                           *             
*                       H I   S O F T                       *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                  ********      *       *                  *             
*                         *       *     *                   *             
*                      *            * *                     *             
*                   *               * *                     *             
*                  *               *    *                   *             
*                  ********      *       *                  *             
*                                                           *             
*    ****  *****  *****  ****  ***** *****  *    * *     *  *             
*   *    * *    * *     *    *   *   *    * *    * * * * *  *             
*    *     *    * *     *        *   *    * *    * *  *  *  *             
*       *  *****  ****  *        *   *****  *    * *     *  *             
*   *    * *      *     *    *   *   *  *   *    * *     *  *             
*    ****  *      *****  ****    *   *    *  ****  *     *  *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*            POPAMMPOBAHE HA KE ACKA              *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                                                           *             
*                          1989                             *             
*                                                           *             
*************************************************************             
                                                                          
                               2                                          
                                                                          
                                                                          
                                                                          
                   OCAHE PEAKTOPA HP80                                
                   =======================                                
                                                                          
      PABEHE PEAKTOPOM:                                              
                                                                          
        CAPS-SHIFT 1    EDIT                                              
        - PEAKTPOBAT CTPOK, BEEHH KPAHHM KPCOPOM;             
        CAPS-SHIFT 2    CAPS-LOCK                                         
        - KCA PECTPA MAX  OX CMBOOB;                   
        CAPS-SHIFT 3    TRUE-VIDEO                                        
        - CTPAHA BEPE;                                                
        CAPS-SHIFT 4    INV-VIDEO                                         
        - CTPAHA HAA;                                                 
        CAPS-SHIFT 5    <--                                               
        - KPCOP BEBO / CTPOKA BEBO;                                    
        CAPS-SHIFT 6    CTPEKA BH                                      
        - KPAHH KPCOP BH;                                           
        CAPS-SHIFT 7    CTPEKA BBEPX                                     
        - KPAHH KPCOP BBEPX;                                          
        CAPS-SHIFT 8    -->                                               
        - KPCOP BPABO / CTPOKA BPABO;                                  
        CAPS-SHIFT 9    GRAPHIC                                           
        - BKT PAECK PECTP;                                   
        CAPS-SHIFT 0    DELETE                                            
        - AT CMBO;                                                 
        SYMBOL-CHIFT Q                                                    
        - EPET B HAAO TEKCTA;                                        
        SYMBOL-CHIFT W                                                    
        - EPET B KOHE TEKCTA;                                         
        SYMBOL-CHIFT E                                                    
        - CTAHOBT PEM PEAKTPOBAH;                                
        SYMBOL-CHIFT I                                                    
        - CTAHOBT PEM BBOA CMBOOB;                                
        SYMBOL-CHIFT A                                                    
        - CTAHOBT PEM OABEH CMBOOB;                           
        SYMBOL-CHIFT S                                                    
        - HAT OPAE;                                                  
        SYMBOL-CHIFT D                                                    
        - AT CTPOK, BEEHH KPAHHM KPCOPOM.                   
                                                                          
      BHMAHE: BKOBO CHA COOAET O  HAAT  HEOC-             
 TMO KAB!                                                           
                                                                          
        SYMBOL-CHIFT CAPS-SHIFT                                           
        - APOC "COMMAND" (KOMAHA):                                     
        OCTME OTBET:                                                
        4       OPEN#                                                     
        - OTKPT OK TEKCTA;                                            
        5       CLOSE                                                     
        - AKPT OK TEKCTA;                                            
        6       MOVE                                                      
        - EPEHECT OK TEKCTA;                                          
        7       ERASE                                                     
        - AT OK TEKCTA;                                            
        0       FORMAT                                                    
        - EPEKT OPMAT KPAHA 64/32 CMBOA  HAOOPOT;             
        Z       COPY                                                      
        - KOPOBAT OK TEKCTA;                                         
                                                                          
                               3                                          
                                                                          
                                                                          
                                                                          
        X       CLEAR                                                     
        - OCTT TEKCTOB EP;                                       
        Y       RETURN                                                    
        - EPET K HISOFT OPMAT PEAKTPOBAH  BBOT               
          TEKCT CPECTBAM ECKA;                                       
        F                                                                 
        -AAT OPAE  CTAHOBT PEM OCKA;                        
        R                                                                 
        - AAT TEPA  AMEH.                                      
                                                                          
      BHMAHE: COTE CTAHAPTH HP PEAKTOP    C-             
 OHEH POX KOMAH [C,R,G,P...].                                     
                                                                          
      KOMAH PEMA OCKA:                                              
        S                                                                 
        - HAT OPAE;                                                  
        R                                                                 
        - AMEHT HAEHH OPAE HA AAHH TEPA;                 
        G                                                                 
        -EPET K AMEHE OCTAHX OPAOB;                             
      BHMAHE: BKOBO CHA COOAET O  HAAT  HEOC-             
 TMO KAB!                                                           
      BHMAHE: HE COTE PAECK PECTP BHE TEKCTA             
 POPAMM!                                                               
      BHMAHE: AEE PBOTC B OCHOBHOM CBEEH,  KACA-             
 EC OT OT CTAHAPTHOO!                                           
      ACKA HE MEET BCTPOEHHX PAECKX POEP  H-             
 K.                                                                    
        OPAHEH:                                                      
        - T FILE HE PEAOBAH;                                         
        - T RECORD HE MOET MET BAPAHTHE O;                      
        - POEP  HK HE MOT BTC OPMAHM               
          APAMETPAM;                                                    
        - HE OCTMO COOBAHE KAATEE HA PAHEE HE               
          OPEEEHH T;                                               
                                                                          
      KOM  COHEHE:                                            
        KOM:                                                       
        C LINE NUMBER                                                     
        OCTAHOBKA CTHA:                                               
        BREAK                                                             
      B CAE CEHO KOM POPAMM HA APOC                    
        RUN?                                                              
OTBETT Y, EC TPEETC COHEHE POPAMM, O M               
PM CMBOOM  BOBPATA B PEAKTOP.                                  
      AHHA PEAA ACKA P KOHTPOE PABHOCT C-             
 OOBAH TOB  COET  KBBAEHTHOCT  MEH,  A  HE             
 CTPKTP. OTOM EPEMEHHE                                             
                                                                          
        VAR A:ARRAY[1...3] OF T;                                          
            B:ARRAY[1...3] OF T;                                          
                                                                          
HE MOT COOBATC B BPAEH COBMECTHO. HEOCTMO,               
TAKE, PCBABAHE                                                       
        A:=B;                                                             
                                                                          
      CHTAKCC  CEMAHTKA                                               
                                                                          
                                                                          
                               4                                          
                                                                          
                                                                          
                                                                          
      CO E HAKA::=#ECTHAATEPHOE CO;                         
      CTPOKOBA KOHCTAHTA ACBAETC B KABKAX " ", MAKC-             
 MAHA EE HA 255 CMBOOB.                                           
      CMBOHA KOHCTAHTA ::=CHR("KOHCTAHTA")"  PAB-             
 X CMBOOB CR, LF, NULL  T. .                                        
      KEBOE COBO PACKED HOPPETC.                                 
      T MHOECTBA MOET MET OT 0 O 256 EHOB.                       
      CTO CCOK B OEPATOPE CASE PBOT K OKE.                   
      EC OXOA BETB CCKA CASE  HE  HAEHA,  PAB-             
 EHE EPEAETC OEPATOP, CEEM A END.                           
      PABA EPEMEHHA OEPATOPA FOR OHA T  POC-             
 TO  HE MOET BTC APAMETPOM.                                      
      OEPATOP GOTO OEH EPEABAT PABEHE BHTP  TOO             
 OKA, E OH HAXOTC.                                                 
      OEPATOP GOTO OEH HAXOTC HA OHOM POBHE BOEH-             
 HOCT C METKO.                                                          
      POPAMMA HE MEET APAMETPOB.                                      
PEOPEEEHHE EHTKATOP:                                          
      KOHCTAHT:                                                          
        MAXINT ... 32767                                                  
        TRUE, FALSE.                                                      
        T:                                                             
        INTEGER ... 2 ATA                                               
        REAL    ... 4 ATA                                               
        CHAR    ... PACPEHH ASCII ... 256 CMBOOB                    
        BOOLEAN                                                           
                                                                          
        POEP  HK:                                              
        BBO  BBO:                                                     
        WRITE                                                             
        WRITELN                                                           
        - HA CE  PHTEP                                          
        CHR(8)  ... BS HA CEE (A HAA);                            
        CHR(12) ... OCTKA KPAHA (CLEAR SCREEN  NEWPAGE)             
        CHR(13) ... CR  LF (BK  C);                                  
        CHR(16) ... EPEKT BBO C CE HA PHTEP                
                     HAOOPOT                                            
        READ                                                              
        PEADLN                                                            
        - C KABATP.                                                   
        INCH                                                              
        - HK, TAET CMBO C KABATP, EC HE HAATA             
          H OHA KABA, BOBPAAET CHR(0).                             
      APMETECKE HK:                                             
        FRAC - POHA ACT.                                             
      PE POEP  HK:                                         
        - CKEHA POEPA DISPOSE, BMECTO HEE                         
          MARK  RELEASE                                                  
        INLINE(C1,C2,...)                                                 
        - CI - ECTHAATEPHE CA, PAMEATC B                     
          OCEOBATEHOCT ATOB;                                      
        USER(V)                                                           
        - V - EOE, BBAET OPOPAMM C APECOM V, OHA               
         OHA ABEPATC HCTPKE RET;                              
        HALT                                                              
        - ABEPAET POPAMM;                                            
        POKE(X,V)                                                         
        - OMEAET HAEHE V B EK AMT C APECOM X;                
                                                                          
                               5                                          
                                                                          
                                                                          
                                                                          
        TOUT(NAME,START,SIZE)                                             
        - ACBAET AHHE HA MAHTH EHT;                           
        TIN(NAME,START)                                                   
        - TAET AHHE C MAHTHO EHT;                                
        OUT(P,C)                                                          
        - KBBAEHTHO                                                    
        BC:=P; A:=C; OUT  (C),A;                                          
        RANDOM                                                            
        -HK, BOBPAAET CAHOE CO B                            
         AAOHE 0...255                                                
        ADDR(V)                                                           
        - HK, BOBPAAET APEC APMEHTA POBOHOO               
          TA;                                                           
        PEEK(X,T)                                                         
        - X - EOE, AAET APEC, BTOPO APMEHT MOET                  
        MET POBOH T, AAET HAEHE, KOTOPOE                  
        AHOCTC B EK AMT;                                        
        SIZE(V)                                                           
        - HK, BOBPAAET PAMEP OACT AMT,                      
        AHMAEMO EPEMEHHO V;                                          
        INP(P)                                                            
        - AHAOHO OUT.                                                 
                                                                          
KOMMEHTAP: "(*"           "*)  "["           "]"                       
    [ ] - PHE CKOK.                                                
      O (K): PAMEATC BHTP KOMMEHTAPEB BCE A             
 CMBOOM $(OAP).COCTOT  HAKA "+"  "-", A  KOTOPM             
 CEET OH  CMBOOB:                                                
        L                                                                 
        - PABEHE CTHOM P KOM (O MOAH               
          +L);                                                            
        O                                                                 
        - KOHTPO EPEOHEH (O MOAH +O);                        
        S                                                                 
        - KOHTPO EPEOHEH CTEKA (O MOAH +S);                  
        A                                                                 
        - KOHTPO PAH MACCBOB (O MOAH +A);                     
        I                                                                 
        P                                                                 
        F                                                                 
        - POTAT ACT POPAMM C MAHTHO EHT,                    
         OBOT KOHOMT AMT.                                      
                                                                          
      CTAHAPTH PEAKTOP:                                               
I N,M                                                                     
- PEM ABTOMATECKO HMEPA CTPOK POPAMM;                         
L N,M                                                                     
- PACEATAT HA CEE TEKCT C HOMEPAM CTPOK OT N O M;                
D N,M                                                                     
- AT CTPOK TEKCTA C HOMEPAM OT N O M;                             
K N                                                                       
- CTAHOBT CO CTPOK TEKCTA, EATAEMX E OCTAHOBA                  
  P BAE CTHA, PABHM N;                                          
M N,M                                                                     
- AMEHT CTPOK C HOMEPOM M HA CTPOK C HOMEPOM N;                      
                                                                          
PEAKTPOBAHE:                                                           
F N,M,F,S                                                                 
                                                                          
                               6                                          
                                                                          
                                                                          
                                                                          
- HAT B AAOHE CTPOK C HOMEPAM N,M OPAE F  AMEHT             
  EO HA S;                                                               
E N                                                                       
- PEAKTPOBAT CTPOK C HOMEPOM N:                                       
                                                                          
OKOMAH:                                                               
" " (POE)                                                              
- HKPEMEHT TEKCTOBOO KAATE;                                         
DELETE                                                                    
- EKPEMEHT TEKCTOBOO KAATE;                                         
CAPS SHIFT/I                                                              
- TA BPABO;                                                       
ENTER                                                                     
- KOHE PEAKTPOBAH;                                                   
Q                                                                         
- OTMEHT PEAKTPOBAHE;                                                
R                                                                         
- HAAT PEAKTPOBAHE AHOBO;                                           
F                                                                         
- HAT PAHEE AAHH OPAE;                                           
S                                                                         
- AMEHT OPAE;                                                       
I                                                                         
- BBOT CMBO C O KPCOPA C ABTOPABKO                      
  (ABEPAETC ENTER);                                                    
X                                                                         
- KPCOP EPMEAETC B KOHE CTPOK;                                      
C                                                                         
- BBOT CMBO C O KPCOPA CHTOEHEM CXOHOO               
  TEKCTA (ABEPAETC ENTER);                                             
K                                                                         
- AT CMBO O KPCOPOM;                                            
Z                                                                         
- AT CMBO OT KPCOPA O KOHA CTPOK.                             
                                                                          
      KOMAH  PAOT C MAHTOOHOM:                                  
                                                                          
P N,M,S                                                                   
- ACAT TEKCT OT CTPOK N O CTPOK M  B A C MEHEM S;              
G ,,S POTAT TEKCT  AA C MEHEM S;                                
W N,M,S                                                                   
- ACBAET TEKCT B A B OPME, KOTOPA OTOM MOET                    
  COOBATC C KOM $F N,M,S.                                       
                                                                          
KOM  COHEHE POPAMM:                                         
C N                                                                       
- KOMPOBAT TEKCT, HAHA CO CTPOK N;                               
R                                                                         
- COHT CKOMPOBAHH POPAMM;                                   
T                                                                         
- OTAEHHA POPAMMA KOMPETC TAKM OPAOM, TO                   
  EPEKPBAET B AMT KOMTOP. OHEE MOET T                     
  ACAHA HA MAHTH EHT  COHEHA ABTOHOMHO;                      
B                                                                         
- BOBPAT B ECK                                                        
O N,M                                                                     
- COETC  PAOT C TEKCTOM, OOTOBEHHM PM                
PEAKTOPOM.                                                               
                                                                          
                               7                                          
                                                                          
                                                                          
                                                                          
POEHE 1. COOEH O OKAX.                                       
                                                                          
A.1.1.  COOEH, EHEPPEME KOMTOPOM.                             
                                                                          
    1.  CO CKOM BEKO.                                             
    2.  POEHA TOKA C ATO (;).                                    
    3.  HE OCAHH EHTKATOP.                                       
    4.  POEH EHTKATOP.                                           
    5.  COTE "=", A HE ":=" P OCAH KOHCTAHT.                
    6.  POEHO "=".                                                    
    7.  C TOO EHTKATOPA HE MOET HAHATC OEPATOP.              
    8.  POEH ":="                                                     
    9.  POEHA ")".                                                    
   10.  HEPABH T.                                                 
   11.  POEHA ".".                                                    
   12.  POEH MHOTE.                                               
   13.  POEHA KOHCTAHTA.                                              
   14.  TO HE EHTKATOP KOHCTAHT.                                   
   15.  POEH "THEN".                                                  
   16.  POEH "DO".                                                    
   17.  POEHO "TO"  "DOWNTO"                                       
   18.  POEHA "(".                                                    
   19.  HE MO ACAT BPAEHE TAKOO TA.                           
   20.  POEH "OF".                                                    
   21.  POEHA ",".                                                    
   22.  POEHO ":".                                                    
   23.  POEH "PROGRAM".                                               
   24.  POEHA EPEMEHHA.                                             
   25.  POEH "BEGIN".                                                 
   26.  P OPAEH K READ POEHA EPEMEHHA.                        
   27.  HE MO CPABHBAT BPAEHE TAKOO TA.                         
   28.  OEH T T INTEGER  REAL.                                 
   29.  HE MO POTAT EPEMEHH TAKOO TA.                         
   30.  TO HE EHTKATOP TA.                                        
   31.  OKAATE CTEEH OEH OTHOCTC K                            
        ECTBTEHOM C.                                            
   32.  POEHO CKAPHOE BPAEHE.                                    
   33.  HEBA CTPOKA HE OCTMA (COTE CHR(0)).                 
   34.  POEH "(*".                                                   
   35.  POEH "*)".                                                   
   36.  T HEKCA MACCBA OEH T CKAPHM.                        
   37.  POEH "..".                                                   
   38.  POEHA "["  "," B OCAH MACCBA.                         
   39.  HH PAHA BE BEPXHE PAH.                              
   40.  MHOECTBO CKOM BEKO (OEE 255 EMEHTOB).                   
   41.  PETAT HK OEH T EHTKATOPOM TA.               
   42.  B MHOECTBE POEH ","  "]".                                
   43.  B MHOECTBE POEH ".."  ","  "]".                       
   44.  T APAMETPA OEH T EHTKATOPOM TA.                   
   45.  CTOE MHOECTBO HE MOET T EPBM COMHOTEEM B              
        OEPATOPE, HE BMC OEPATOPOM PCBABAH.                 
   46.  POEHO CKAPHOE HAEHE (BKA ECTBTEHE              
        CA).                                                           
   47.  POEHO CKAPHOE HAEHE (HE BKA ECTB-                 
        TEHE CA).                                                   
   48.  MHOECTBA HE CPABHM.                                            
   49.  P CPABHEH MHOECTB HE COOBAT "<",">".               
   50.  POEH "FORWARD", "LABEL", "CONST", "VAR",                      
                                                                          
                               8                                          
                                                                          
                                                                          
                                                                          
        "TYPE"  "BEGIN".                                               
   51.  OHO T ECTHAATPHOE CO.                              
   52.  HE COOBAT POKE  MHOECTB.                            
   53.  MACCB CKOM BEK (OEE 48 K).                                
   54.  B OPEEEH AC POEH "END"  ";".                     
   55.  POEH EHTKATOP O.                                      
   56.  POEHA EPEMEHHA OCE WITH.                                  
   57.  EPEMEHHA B WITH OHA MET T RECORD.                        
   58.  EHTKATOP O E OEPATOPA WITH.                            
   59.  OCE "LABEL" OHO HAXOTC EOE E HAKA.                  
   60.  OCE "GOTO" OHO HAXOTC EOE E HAKA.                   
   61.  TA METKA HAXOTC HA HEOCTMOM POBHE.                       
   62.  HEOCAHHA METKA.                                                
   63.  APAMETPOM SIZE OHA T EPEMEHHA.                           
   64.  KAATEE OCTMA POBEPKA TOKO HA PABEHCTBO              
   65.                                                                    
   66.                                                                    
   67.  EHCTBEHHM OPMATOM P AC EX C BM CM-               
        BOAM ":" BETC E:M:H.                                        
   68.  CTPOK HE OH COEPAT CMBO END-OF-LINE.                    
   69.  APAMETP NEW, MARK  RELEASE OEH MET T                   
        KAATE.                                                        
   70.  APAMETPOM ADDR OHA T EPEMEHHA.                           
                                                                          
A.1.2. OK P COHEH POPAMM.                                   
                                                                          
      P OBEH OOK BO BPEM COHEH POPAMM  B-             
 BOTC OHO  EPECEHHX  HE  COOEH,  A  KOTOPM             
 CEET "AT PC=XXXX", E XXXX - APEC, HA KOTOPOM POOA             
 OKA. OHO CTOHK OK OEBEH; B POTBHOM  CAE             
 CEET POCMOTPET CTH KOM,  CO  HAEHE             
 XXXX  OHAPEH OK. KAK PABO, TO PEKO HE  O-             
 BOET OT TOHE AHHE.                                           
                                                                          
1.  OCTAHOB.                                                              
2.  EPEOHEHE.                                                         
3.  A PEEAM O.                                                     
4.  EEHE HA 0 (TAKE EHEPPETC P DIV).                            
5.  HEKC CKOM MA.                                                   
6.  HEKC CKOM BEK.                                                 
7.  OKA P BOBE MATEMATECKO HK.                             
8.  CO CKOM OOE.                                                
9.  POEHO CO.                                                      
10. CKOM HHA CTPOKA.                                               
11. POEH OKAATE CTEEH.                                          
                                                                          
      OK BO BPEM COHEH POPAMM PBOT K EE  OC-             
 TAHOB.                                                                  
