.PN79
20.         

20.1.  ERROR       
           

         ERROR       

          -,   , 

     .
:  ERROR (<>)
            ,       

  ,           255.   

 ,    ,  ERROR 

    ,  ,  ,   

        .         

      ,        

  254   ,       

 -.       ,   

     ERROR,    .

:
           ON ERROR GOTO (   20.2.), 

      /.

:        10 ERROR 4
               RUN
               OUT OF DATA IN 10
               200 ON ERROR GOTO 500
               210 INPUT "";%
               220 IF K% < 20 THEN ERROR 254
                    ...
               500 IF ERR=254 THEN PRINT " "


.CP15
20.2.  ON ERROR GOTO       

     :  ON ERROR GOTO (< >)
              

 ,      ,   

             -.   

            RESUME   (.    

20.3.).        .   

              

.        ON ERROR 

GOTO.        ,       

   .
          ON ERROR GOTO     

    ,   0.         

 ,          

   .          

,            

.
     
:
        ON ERROR GOTO         

  .                

    .
.CP8

:        10 ON ERROR GOTO 10000
                    .  .  .
               200 INPUT ":";ANZ%
               210 IF ANZ% > 50 THEN ERROR 243
                    .  .  .
               10000 IF ERR=243 THEN PRINT "   !"
               10010 IF ERL=210 THEN RESUME 200

:    -   /.


.CP15
20.3.  RESUME     

        RESUME        ON  ERROR  GOTO   

 ,     .
:  RESUME [0]
       
         RESUME [NEXT]
       
         RESUME [< >]
       RESUME   RESUME 0       ,   

  .
       RESUME  NEXT           , 

  ,    .
  RESUME < >        

 .

:
        -,     

/X.


.CP15
20.4.  ERR   ERL    

       ERR    ERL       

.         ERR   

  .        

ERL   ,   .      

,      65536.     -  

   .       .  

   ERL    :
               IF ERL = < > THEN
        ,      RETURN  (. 

 20.3.)       .
.PA

 .         

              .

1.  USR

       DEF USR    .    

               

:
                            
     ---------------------                   ----------------------------
           A=2                           ,  2 
           =3                           
           =4                             ,
                                         4 
           =8                                  

                                        ,  8 
          ,       "HL" 

    (FAC),     .   

  8 :  FAC7, FAC6, ..., FAC0. FAC7  1- , FAC0 - 

8-M ).
           :
     -     FAC3 ( )  FAC2 ( )
     -           FAC3  (   

       ),   FAC2  (    )    FAC1  (   

       ,  8-  );   FAC0    , 

         128;
     -           FAC7   

       FAC1 (,   FAC7  ,   FAC1    );  

       FAC0   ,   128.
          ,       "" 

        .   0-      

   (   0  255).   1  2  

     ( 1-   ,         

).
     !        ,   

    .     

      !
     ,   ,  ,     

  
          < >+" "
                   

,      "DE".
       USR  ,   ,     ,     

  .               

    .


.CP15

2.  CALL

         CALL       ,   

      RET.    CALL       

    ,      2-  . 

     ,         "HL" 

(  ),  "DE" ( )  "BC" (  ).   

   ,           

  "HL"    "DE".           

  .            

"BC".        .   

   .
!                

,   -   , , /1, 

    ..             CALL       

           ,         

.
.PA

 .    - 

        -      

 :

1.   NEXT  WITHOUT  FOR           NEXT     ,    

                                     

                               FOR.
2.   SYNTAX ERROR                  
                              (,  ,  ,
                                ,  
                                ).
3. RETURN WITHOUT GOSUB         RETURN,    -
                               GOSUB.
4. OUT OF DATA                  READ,   ,   -
                                 .
5. ILLEGAL FUNCTION CALL            
                              .
6. OVERFLOW                       -
                               .
7. OUT OF MEMORY                   
                                (:  ,
                                ,    -
                              ,       

                               FOR-NEXT  ).
8. UNDEFINED LINE NUMBER         GOTO-, GOSUB, IF-THEN, ELSE- 

                                  DELETE         ,     

                                .
9. SUBSCRIPT OUT OF RANGE          
                               .    -
                                .
10. REDIMENSIONED ARRAY           
                                 ,     

                                (   

                                10),    -
                               DIM   .
11. DIVISION BY ZERO                     
                                  .  -
                                      
                                 ,  - -
                                 .   

                                .
12. ILLEGAL DIRECT              .
13. TYPE MISMATCH                    -
                                 -   .
14. OUT OF STRING SPACE                    
                               ,        
                                .
15. STRING TOO LONG                      
                                 255 .
16. STRING FORMULA TOO              -
    CEMPLEX                    .       
                                 .
17. CAN'T CONTINUE                   -
                              ,    .
18. UNDEFINED USER FUNCTION    USR  ,   -
                              .
19. NO RESUME                  ON ERROR GOTO        
                                ,            
.CP3                           USER.

20. RESUME WITHOUT ERROR        RESUME  ,  -
                               .
21. UNPRINTABLE ERROR                 
                               .      , 
                                  ERROR     

                               .
22. MISSING OPERAND                .
23. LINE PUFFER OVERFLOW                
                              255 .
26. FOR WITHOUT NEXT            NEXT   -     
                                FOR.
29. WHILE WITHOUT WEND          WHILE  -
                                WEND.
30. WEND WITHOUT WHILE           WEND     
                               WHILE.
50. FIELD OVERFLOW              FIELD   , 
                                    OPEN-"R".
51. INTERNAL ERROR             -    -
                               .    -
                                 .
52. BAD FILE NAME                    -
                              .
53. FILE NOT FOUND             KILL-, LOAD-  OPEN                     
                              ,   .
54. BAD FILE MEELE                  GET
                               PUT   , -
                                 LOAD    
                                OPEN    
                              .
55. FILE IS ALREADY OPEN             
                               .
57. DISK I/O ERROR                   
                               ,     -
                                .
58. FILE ALREADY EXISTS         NAME     -
                                     -
                               .
61. DISK FULL                      -
                               .
62. INPUT PAST END                         
                              INPUT     
                               .
63. BAD  RECORD  NUMBER         PUT  GET  -
                                 ( 1   32767)
64. BAD FILE NAME               KILL-, LOAD-, SAVE-  OPEN-
                                ,   -
                               .
66. DIRECT  STATEMENT  IN             

    FILE                      ASCII     . -
                               .
67. TOO MANY FILES                   -
                               .

:
           .
.PA

 .    -

                   

  ,      :
     -      ,           

        ;
     - :  ,  .
           .
     
               

  .        "^"     ,   

    .          , 

   .
        :
       :
BS                 

     .
CD     COMMON        .
CN     COMMON     .
CO    COMMON      .
DD       DIM,    ,     

        .
FD       .
FN     FOR    NEXT              

           .
IN      %INCLUDE       

      .
LL                254 

     .
LS       255 .
OM        -     ,   

      ,         

     .
SN    .
SQ             

     .
TC       ;  ,         

     ,       .
TM                  

         .
UC        .
UF    ,   .
WE    WHILE  WEND,  WEND  WHILE.
IO     .
IE     /.
IX     /.
     :
ND       .
SI    ,  .
         ,           

  ,    -.      

 ,        .  

     .
.PA

                                    
------------                                 -----------------------
     2         SYNTAX ERROR                  
     3         RETURN WITHOUT GOSUB         RETURN  GOSUB
     4         OUT OF DATA                   
     5         ILLEGAL FUNTION CALL           
     6         OVERFLOW                     
     9         SUBSCRIPT OUT OF RANGE          
     11        DIVISION BY ZERO               
     14        OUT OF STRING SPACE            
     20        RESUME WITHOUT ERROR         RESUME  
     21        UNPRINTABLE ERROR             
     50        FIELD OVERFLOW                
     51        INTERNAL ERROR                
     52        BAD FILE NUMBER                
     53        FILE NOT FOUND                 
     54        BAD FILE MODE                    
     55        FILE ALREADY OPEN              
     56        DISK I/O ERROR                /  
     58        FILE ALREADY EXISTS            
     61        DISK FULL                     
     62        INPUT PAST END               INPUT  END
     63        BAD RECORD NUMBER              
     64        BAD FILE NAME                  
     67        TOO MANY FILES                 
.PA

 D.     ASCII

                  
                              
-------------------------------------------------------------------------------
 :
     00                     0                        NUL 
     01                     1              ^A        SOH  
     02                     2              ^B        STX  
     03                     3              ^C        ETX  
     04                     4              ^D        EOT  
     05                     5              ^E        ENQ 
     06                     6              ^F        ACK  
     07                     7              ^G        BEL 
     08                     8              ^H        BS  
     09                     9              ^I        HT 
     0A                    10              ^J        LF  
     0B                    11              ^K        VT  .
     OC                    12              ^L        FF  .
     0D                    13              ^M        CR  
     0E                    14              ^N        SO  
     OF                    15              ^O        SI  
     10                    16              ^P        DLE   
     11                    17              ^Q        DC1 -  1
     12                    18              ^R        DC2 -  2
     13                    19              ^S        DC3 -  3
     14                    20              ^T        DC4 -  4
     15                    21              ^U        NAK  
     16                    22              ^V        SYN 
     17                    23              ^W        ETB   
     18                    24              ^X        CAN 
     19                    25              ^Y        EM  
     1                    26              ^Z        SUB  
     1B                    27              ^[        ESC  
     1C                    28              ^/        FS  
     1D                    29              ^]        GS  
     1E                    30              ^^        RS  
     1F                    31              ^-        US  .
:
     20                    32                        
     21                    33              !
     22                    34              "
     23                    35              #
     24                    36              $
     25                    37              %
     26                    38              &
     27                    39              '
     28                    40              (
     29                    41              )
     2                    42              *
     2B                    43              +
     2C                    44              ,
     2D                    45              -
     2E                    46              .
     2F                    47              /
.PA

     30                    48              0
     31                    49              1
     32                    50              2
     33                    51              3
     34                    52              4
     35                    53              5
     36                    54              6
     37                    55              7
     38                    56              8
     39                    57              9 
     3A                    58              :
     3B                    59              ;
     3C                    60              <
     3D                    61              =
     3E                    62              >
     3F                    63              ?
     40                    64              @
     41                    65              A
     42                    66              B
     43                    67              C
     44                    68              D
     45                    69              E
     46                    70              F
     47                    71              G
     48                    72              H
     49                    73              I
     4A                    74              J
     4B                    75              K
     4C                    76              L
     4D                    77              M
     4E                    78              N
     4F                    79              O 
     50                    80              P
     51                    81              Q
     52                    82              R
     53                    83              S
     54                    84              T
     55                    85              U 
     56                    86              V
     57                    87              W
     58                    88              X
     59                    89              Y
     5A                    90              Z
     5B                    91              [
     5C                    92              \
     5D                    93              ]
     5E                    94              ^
     5F                    95              .
.PA

     60                    96              -
     61                    97              A
     62                    98              B
     63                    99              C 
     64                   100              D
     65                   101              E
     66                   102              F
     67                   103              G
     68                   104              H
     69                   105              I
     6A                   106              J
     6B                   107              K
     6C                   108              L
     6D                   109              M
     6E                   110              N
     6F                   111              O
     70                   112              P
     71                   113              Q
     72                   114              R
     73                   115              S
     74                   116              T
     75                   117              U
     76                   118              V
     77                   119              W
     78                   120              X
     79                   121              Y
     7A                   122              Z
     7B                   123              
     7C                   124              !
     7D                   125              
     7E                   126              -
     7F                   127                                DEL
     

.PA

  .          

                 

         ,        , 

           . 

         .  

     .
        ,   ,     

    ,       ,     

 -:

               NEW            LIST           SAVE
               AUTO           LLIST          LOAD
               CONT           DELETE         MERGE
               EDIT           RENUM          ERASE          
                  

       .
1.  CLEAR

     ,  ,     .     

           .       

   ,   ,      

  CLEAR.

2.  RUN

         RUN       

      "R".         CHAIN. 

  RUN              , 

         "COM".      

       .

3.  TRON  TROFF

                  /D,     

    .         

  .

4.   DEFINT, DEFSNG, DEFDBL  DEFSTR.

                 ,   

,          ,     

            DEF???.     

,      GOTO,     ,  

  .

5.   DIM

                    

   ,        

,   .

6.  ERASE

           .

7.  FOR, TO, STEP  NEXT

               

   .


8.  CALL

                (   

    )    

,      6 .       

               PUBLIC.    

   .

9.  USR

                     USR     

  .       

     POKE,        

    .       

    .      

        PEEK.  

           -

   .        

   CALL.

10.  CHAIN

            MERGE  <  >,   CALL    DELETE   

.                  

    COMMON.

11.  COMMON

          COMMON :
:  COMMON [/<>/] [< >]
         [< >]...
              ( 6 

)    .      

    CALL       . 

 ,     COMMON,      

    DIM.    COMMON    

 ;   :
                    COMMON
                    DIM
                    OPTION BASE
                    REM
                    DEFDBL, DEFSNG, DEFINT, DEFSTR
                    %INCLUDE

12.  REM

          .

13.  END

            END      

        .      END 

,      ,         

 .
.CP10

14.  STOP

              STOP       END. 

                      

  ,           STOP.    

    /D,/X  /E,         ,   

    STOP.

15.  ON ERROR GOTO

            -     

 /.

16.  RESUME

           -     

/X.
.PA

  F.      ,         

                   -

       -,       -     

  ,              

.
<CTRL>+A             

           (.   5.7.).
<CTRL>+C                

             (   -  - 

           .  5.5.).
<CTRL>+H       (  <DEL>).
<CTRL>+I     (  <>).
<CTRL>+O      ,        

           .     .
<CTRL>+R        .
<CTRL>+S     .
<CTRL>+Q     ,   <CTRL>+S.
<CTRL>+U       .
.PA

 G.     

               ABS            GOTO           POKE
               AND            HEX$           POS
               ATN            IF             PRINT
               AUTO           IMP            PRINT$
               CALL           INKEY$         PUT
               CDBL           INP            RANDOMIZE
               CHAIN          INPUT          READ
               CHR$           INPUT#         RENUM
               CINT           INPUT$         RESET
               CLEAR          INSTR          RESTORE
               CLOSE          INT            RESUME
               COMMON         KILL           RETURN
               CONT           LEFT$          RIGHT$
               COS            LEN            RND
               CSNG           LINE INPUT     RSET
               CVD            LINE INPUT#    RUN
               CVS            LIST           SAVE
               DATA           LLIST          SGN
               DEF            LOAD           SIN
               DEFDBL         LOG            SPACE$
               DEFINT         LOF            SPC
               DEFSNT         LOG            SQR
               DEFSTR         LPOS           STOP
               DELETE         LPRINT         STR$
               DIM            LSET           STRING$
               EDIT           MERGE          SWAP
               ELSE           MID$           SYSTEM
               END            MKD$           TAB
               EOF            MKI#           TAN
               EGV            MKS$           TROFF
               ERASE          MOD            TRON
               ERL            NEW            USR
               ERR            NAME           VAL
               ERROR          NOT            VARPTR
               EXP            OCT$           WAIT
               FIELD          ON             WEND
               FILES          OPEN           WHILE
               FN             OPTION BASE    WIDTH
               FOR            OR             WRITE
               FRE            OUT            %INCLUDE
               GET            PEEK
               GOSUB