
  16.  
  ,     
      

     ,    .   -
      .   
,  ,   , 
  .      -
,      "$".   -
   ,  

     10 CLEAR 50
     20 PRINT "     ()"
     30 INPUT $
     40 PRINT A$;"  "
     50 PRINT
     60 GOTO 20

,    CLEAR?   -
 .     , 
  .., :

       
     2+3=5
     5>3, 4>2

       

     ?  

 ,    ? ,   INPUT
    ","     ";". ,
   ,     -
.    INPUT    ,
   .     -
    ?  .     
:

     "5>3, 4>2"

  ?
         .  
     

     "       
        .    "

     ?

          20

 ,      
     . , 
   ,  
 .      20  -
:

     20 CLEAR 500

,      CLEAR.   
    "".   
       -
       ,
 ,   CLEAR.  CLEAR -
  ,      
.       . 
    ,    -
   ,   CLEAR
    .
            -
?       
 ,  . , ,  
     ,  
   .      -
  ,  .
        .    -
   ? , -,   
 .     

     LEN (   )

      ,  , 
EXP, SIN  ..   ,  LEN   
.      , -
   .  LEN  ,
      .    -
   ,  , -
    PRINT  ..
       

     LEN (" ")

     :

      

   

     PRINT LEN (" ")

   

     10

   .    :

     35 PRINT "  ";LEN(A$)

        
.  ,     ,
   ,   ,    
    7-   -
   .
        .        -
      .  
-   ? .   -
,       ,   -
 .       , -
   .    LEFT (""),
RIGHT ("")  MID ( . middle - ).
        ? , -,  
,       
PRINT,   ..    ? 
   .     

     A$="   "
     PRINT LEFT$(A$,5)

  

      

    

     PRINT RIGHT$(A$,5)

  

     

   -  

     PRINT MID$(A$,15,4)

  

     

, ,  ,     
.  ,      .
      LEFT  RIGHT  :

     LEFT$(, )
     RIGHT$(, )

 -       ",  
",    . ,   -
 , ,      -
   .
      MID$   .   , - 
 ,   ,     
  .    :

     ID$ (,   ,  )

   ,   -
 .
            ?
   . ,    -
,      ,  -
  .    ?
       ,    :

     10 CLS
     20 INPUT " "; A$
     30 N=LEN(A$)
     40 FOR I=1 TO N-3
     50 IF MID$(A$,I,3)="" THEN MES$="    "
        ELSE MES$="    "
     60 NEXT I
     70 PRINT MES$
     80 GOTO 20

       .  ,    -
      .  
,    ?    
  40-60.     
    ,     
   .     ,  
  .
        ,   . 
INSTR    

     INSTR (n,  1,  2)

   ?  ,    1
 2.   ,    
0.  ,      -
   1 ,     2. 
n    ,    ,
:

     PRINT INSTR (1,"  ","")
     3
     PRINT INSTR (3,"  ","")
     3
     PRINT INSTR (1,"  ","")
     0

     "  "  "" -
.     ,   

     PRINT INSTR (5,"  ","")
     0

 ,       ,   -
 "  "     .
         .   
 ,     -
.    SPACE$ ().
     -   -
,     :

     SPACE$(n)

 n  . ,  

     A$="  "
     PRINT A$

  

       

 

     B$=SPACE$(12)
     PRINT B$,A$

     ,     
  12 .
           .
,.  .      -
     .  -
 :

     A$=" "
     B$="K"
     C$=A$+" "+B$

  ,   C$?   ,  -
     

     PRINT C$
       

            ,  -
  "+".       
.       , -
  ,      
   RIGHT$, LEFT$, MID$  ..
     ,         -
  .   ,     
     RIGHT$, LEFT$, MID$, a   -
        . 
 ,     
"computer"    ("").
            .  
, ,   INPUT.   
    READ  DATA.  
 :

     1000 DATA "Computer     
          "
     1010 DATA "    
          computer"
     1020 DATA " computer    
          "
     1030 DATA " "

       
  . ,   ,  -
  .
       -      
computer  Computer     . 
 :

     10 CLS
     20 C=LEN ("Computer")
     30 READ A$
     40 IF A$=" " THEN END
     50 N=INSTR(1,A$,"Computer")
     60 IF N=0 THEN N=INSTR(1,A$,"computer")
     70 IF N=0 THEN 120
     80 IF N>1 THEN L$=LEFT$(A$,N-1) ELSE B$=""
     90 NA=LEN(A$)
     100 IF N<NA-C THEN R$=RIGHT(A$,NA-N C+1) ELSE R$=" "
     110 A$=L$+""+R$
     120 PRINT A$
     130 GOTO 30

   ,     -
 .     -
    COMPUTER,   -
.
           .
  ,      -
    ,     ,
     .   
          -
?  .  ,   -
 ,     .
      ASCII . -
    American Standart Code for
Information Interchange (    -
 ).     .   -
 :

     10 REM   ASCII  
     20 A$=INKEY$:IF A$="" THEN 20
     30 PRINT A$, ASC(A$):GOTO 20

(   ,    20  
   ,    ).
        ?  ,    -
,  ,       -
 INKEY$  ASC(A$).
        -    .  
  INPUT      . 
    ,    . 
     INKEY$    ()
   .
       ASC(A$).  ,  
,  ASCII   A$.
      ,  ""   20  
,     -    (..
A$   "").       $ 
  ASCII .  . -
     - . -
    ,    -
.   . ,    
 - 13.
         ,   
   ? .  
CHR$(n),   n -   0  255.   
   "character" ().  , 
  ASCII ,  :

     10 FOR I=0 TO 255
     20 PRINT I;" ";CHR$(I);" ";
     30 NEXT I

 .  ,     - -
      ,   I=32,  -
  .   ,    
I<32   .    -
,   ,    ..  
   ASCII  - .   32.
        - .   -
   , ..  , , , -
  .  .  ,  
  .     
  :

     10 INPUT " 1"; S1$
     20 INPUT " 2"; S2$
     30 IF S1$>S2$ THEN PRINT S1$ ELSE PRINT S2$
     40 GOTO 10

       . , 
,    .
            ?
 . ,   ,  .
   ,     
.      
 ,   ,     -
  ,  .   -
    -    . 
   -   -.
 .      , 
    .  -
 -   ASCII . ,    -
   . , ,  -
 ,  ""  "".  ,  "" -
. ?   .   ,  
ASCII    ,     
  .     "" 
 "D".     .
        .  ,   -
  .    
 ,   . 
        - ,
  .      
. , .      
:

     BIN$(n), OCT$(n)  HEX$(n)

 n - ,    .  -
 

     PRINT "17", BIN$(17), OCT$(17), HEX$(17)

  

     17 10001 21 11

   .
           
     ,  -
,     ,  
.      STR$( )
 VAL( ).  VAL  
   .    
  ,      
 ,    VAL 
, ,

     PRINT 2*VAL("2")
     4
     PRINT "2+"+STR$(2)
     2+2
     PRINT VAL("1"+"."+"2")
     1.2
     PRINT VAL ("")
     0

       ,       -
. ,      .

       `	      GLAWA19 TXT           N%8  GLAWA5  TXT           @~%q;  LAWA23 TXT           jM   