
   10.    
   ,     
       .  , 
       .

        ?     ? 
    .  , , -
 -         .
   ?
     ?   .   ,  -
 .  ,     
 .      -  ( 
 !).        ,  
 .
        ,   -
,      PRINT  CLS.
           -
,    .    RUN,
LIST, NEW  .. , ,     
  ,     .
           ,
  . , PRINT "*****"   -
.     .   
  .     .
           .
      .    
-       .  -
    ,   
 .
      -.      -
 .  , PRINT   
 .
      .    
     .
     ,    .
      
 . ,  ,   
10,  20,  30   ..   
     20,  10,  30
 ..
      .  ,    -
, ,   .. , ,  -
,   .     , 
   .  ,    
   .
          .
      .
          =2.5.
  ,   2.5    
       .  
   ,        .
       ,      .
    .   ,  -
,        ?
. ,  ,   .
  ,     
 .     

     PRINT A

       -
   .
         ?     
 2.5    ? , ,
 2.5 -         .
   .    
   ,    -
     ,     -
.     . ,     50,
      

     =50

    2.5  50   . 
,   ,   PRINT

     PRINT A

       (  -
  )  ,    -
.
     ,  -       
, ,   ..  -    
 .      -
   :   50,    -
50  ..
     ,     :

     =

          -
.
        ?    
,   ,    .  
 .       .
    , :

     A1=100
     B=21
     H3=37
     XX=15

   .       -
     .  
        Z,   -
   ,    0  9. ,
  , -      -
  ,     
  . , IF,GO  .   
     .   -
      :

     AQ, 1J, MO,  Q, 0E
     8Y,  2, HW, 24, 1B

? ,  AQ, MO, Q  HW.  
- ,    .
         - ?   
 ,      -
   ,        -
.   :

     =1
     B=100
     C=1357

          ,  .
  ,     PRINT.
        

     PRINT A+B
     PRINT B-C+A
     PRINT B*C
     PRINT C/B

        
,    -     
 .
         . ,    
      -
.  :       -
 , :

     D=A+B

   : "      -
   ,   D".
         D    
 PRINT.  ,      -
.
     ,      -
 

     =

        
   ,    -
.
         ?   -
 ,  ,   "+", "-",
"/", "*"  , :

     B+C
     1+A
     2*A/5
     1

    PRINT,     -
   ?  . , 
 

     A=1
     A=A+1

    .   -
 .       ?
     , 
  :

     A=1
     A=A+1
     PRINT A

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

     N1="    "

  .   

      

 , ,  .   .
          .    ,
      . ,
    ,     
 .    .
(      String).
"    "  
 .  , ,  
      . ,
,         N1, -
   .
          

     " .. ."
     ", , "
     "1  -   "
     "2*5=10"
     "1 =100 "
     ">>>>--->>>>"

      ?      
- ...    "$" 
  N1.   

     N1$="    "

  .  ,  

     PRINT N1$

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

     A1$, Y$, PQ$, BB$, F$, WV$

    "$",    .

     =100
     A$="M    "

   .
        . ,  
 ,     ?
       
 .      
  

        

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

     CLEAR 1000

  .    -
   .
      CLEAR      -
        -
.       
  ,  ,  
CLEAR. ,      1000 .
,       
  50 .
     ,      ,
       - 
-.
      -.
       ,        
?         -
  ,     , -
  .     .
           . 
NEW   .   :

     10 CLS
     20 PRINT ",    ''!"
     30 PRINT "  ?"

    ,    
      .   , 
    -   .
      , .. -
,   ,    ,  ,
, .   ,   -
, N$. .      -
        N$.  -
  ,      ,
    ,      -
.        -
INPUT.       

     40 INPUT N$

     . ,   40 - 
  .    ,   
 RUN.
              -
,    ,    
:

     50 PRINT " ";N$;"!!" ()

       
LIST    .    , 
RUN   .   

     ,    !
       ?
     ?

     ,  
     40      
.     .
      ,    40  50 .
         40 ,   
      .   
 , ,   ,   -
 N$.  50      -
 "",    N$    -
   .     
  ""   50,      -
. ,     ?
         . 
   .      
  ,       .  
   ,    .  
        -
      (  ).
   .
     ,    .
     , ,     -
   . ,   
  

     10 CLS
     20 PRINT 1/2
     30 PRINT 1/3
     40 PRINT 1/4
     50 PRINT 1/5
     60 PRINT 1/6
     70 PRINT 1/7
     80 PRINT 1/8
     90 PRINT 1/9

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

     10 CLS
     20 A=1
     30 PRINT 1/A
     40 A=A+1
     50 GOTO 30

            , 
        -
 .      
 ,     .
     10:  CLS    
Clear Screen ( ).
     20:      1.
     30:  ,  1,    .
     40:       ,    
  .
     50:     30.
        .  -
  .      10 
50        LIST. 
  ,  . ,   RUN
 .
       !     
  .     ,
    .   .
    STOP.    -
 .   ,    
 .    .
     ,    ,   
 .    ,  -
  .   30,40  50.  -
,         :
"".       
 30,40  50.     -
.
           ,
      PRINT.  
,        -
  ,        ,
   ,     ,
 .    ,  
    , , -
     . 
 ? ,  ,     
       "," 
";".   ";"   30 :

     30 PRINT 1/A;

          30   . -
        
,  .     
     .  ,  
  ,   . ,  -
      ,  ,  .
  ,     ";"  ",",
        
  16 .    

     PRINT 1/2,1/3,1/4,1/5,1/6,1/7,1/8,1/9,1/10

 

     PRINT " 1"," 2"," 3"," 4"

,  .    ,
  30-      :

     30 PRINT 1/A,

  .   ,   
       .
           
 .      .
         .   -
       ,  
   ?     - 
 .     ,   
 ,   .     -
  RUN,     .
      .    .6 
?    ",  ", ,   -
       CTRL-S. -
       CTRL 
S  ,  .    , 
    .    
     CTRL  S. 
     .  ,
       
  .
     GOTO -     , -
  .     -
     .   50
 : "      30".
      GOTO    -
.    ,      
      , 
 GOTO.
      , ,  ,    -
      CTRL-S?   -
. ,  ,    
  (         -
 ;  ,  ).   
   45:

     45 IF A=10 THEN END

      LIST.  
 

     10 CLS
     20 A=1
     30 PRINT 1/A,
     40 A=A+1
     45 IF A=10 THEN END
     50 GOTO 30

      -
 . ,    
10,20,30  ..      
  45.       1,2,3...? 
.
       45 .      -
   : "    , 
 ".    .
       ,     10?    .
      ,  .  -
    .
      IF    .
   :

     IF  THEN  

 IF  THEN     .
  ,    , 
  THEN.  ,    
 .  ,    =10 
 45    .   
  10.     ,
   ,         
10.
       END.      , a
  ,     
 .
          , -
        1/11,
1/12,...1/19.
          NEW   -
 :

     10 CLS
     20 PRINT ",   '' - !"
     30 PRINT "  ?"
     40 INPUT N$
     50 PRINT "    , ";N$;"?"
     60 INPUT N$
     70 PRINT "...  - ."
     80 GOTO 60

  ,     .
    (    
"" ,   50 )     .
       ,  .
    ,     -
 .      .
      .   ,  
    "",   .
     ? ,     IF:

     IF N$="" THEN END

 ,       . ,
, 65.
       ,     
 (   )   -
 -  .      
 (    )    
 .     :

     10 PRINT "  ";
     20 INPUT N$
     30 PRINT " ";N$;"!"

 ,      .
         10  20.  
  10    20 

     20 INPUT "  ?"; N$

  .    . -
       -
, :

     20 INPUT "  "; N$,AG
     30 PRINT N$;" ";AG;"".

 ,        
(   )    .
     ,  ,     INPUT -
:

     INPUT "";  .

    .   
.        
      ";".
           -
.
       IF-THEN     
.  ,   ,    .
,  ,  ,    
.     ?    -
 :

     10 CLS
     20 A=1
     30 PRINT/A
     40 A=A+1
     50 IF A=10 THEN END
     60 GOTO 30

,     ,  1/
 ,  0.01.  ,    -
    ,  0.01.    
   " 1/   0.01,  ".
     "<"  ">".   
  .
         

                      
     <                        
     =                       
     >                        
     <=  =<                 
     >=  =>                 
     <>  ><                

     .  
     .
      .
          ,    , 
  .   ,  
,    ,   
 ,     .  , -
   ,      
1700  11.     .
     154.545454(54). 
 ,      -
  .    ,  -
, 154.5.     
154.5454.         
    154.    , 
    .    

     PRINT 1700/11

  

     154.545

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

     1, 1.234567, 3.14159, -25000000, 0.000123

      7  .  -
     .    -
:

     10 INPUT " "; 
     20 PRINT X;"   "
     30 PRINT
     40 GOTO 10

    ,  , -
 .  ,    
1.234567.      .
       ,   PRINT  . 
        .
   ,    , 
  .
         -25000000. 
 

     -2.5 +07    

  ,    0.000123

     1.23 -03    

         ,    -
.      .   -
      
.  ,      10  -
,  , ..     
 (    )    -
,   .
         ,  
.
     ,    ,  1000000 
 0.01   PRINT     


     X.YYYYY E ZZ

      ,  
-999999    -0.01.    ( -
)     .   
YYYYY     .   
 E ZZ    10   ZZ. 
     -1  +1,  ZZ .
 

     X.YYYYY E ZZ



     X.YYYYY*10   ZZ.

   ,     .
       .  
,   PRINT    
.
     , , ,     -
    . ,  -
 , ,       -
,     ,      -
    2.4 . ,  -
      2.4  .
         "%". 
  ? ,     "$"?.
     .   -
     "%",   
   ,      -
 :

     A%=1.334
     B%=100.001
     C%=-1.5
     D%=-300.1
     PRINT ",    ";A%,B%,C%,D%

 ,   1.334     1, -
 100.001  100,  -1.5  -2   -300.1
 -301.     , .
        -
 .     ?  .
 ,  ?
       "%"      
       
,  " ".     -
  -32768  32767.     -
   ,     , 
    ,  -
 .
            . 
    .
     A%, B%, C%  D% -   .  -
        A,
B, C  D.
         ,    
      ,
, 1.2345; -1.01.
        -   
:

     X=1.2345
     PRINT X
     X=-1.01
     PRINT X

       , -
 DATA ().    , 
  READ ().   

     NEW
     10 READ X
     20 PRINT X
     30 DATA 1.234567

 .  READ  ,   -
 DATA     X.  ,   READ    DATA 
     ,   
DATA.
       ,  

     27 GOTO 10

O  30 ,    

     DATA 1.234567,2.12,3.23,4.34

 .  ,     
DATA    ,     
:

      DATA 10

      ,
 ,      ,
 ,     DATA, ,   
    .   , 
  ,     
DATA,       .
     ,   ,
    .       -
  0.     :

     15 IF X=0 THEN PRINT " DATA":END

  30 ,    

     30 DATA 1.234567, 2.12, 3.23, 4.34, 0

  .  15    -
  .     ,  -
     . ,  -
  DATA      
.     .   -
    DATA   .
   ,       -
   .
       DATA     -
 READ.       
  DATA  .     
.       , 
    .
      READ    .  
      
 DATA.     ,   
 READ,     

      DATA  ...

      ,     READ
     DATA  -
        
 .       -
     RESTORE.
      :

     10 CLS
     20 READ A$
     30 DATA "   "
     40 PRINT A$;

   RUN   .   
READ        DATA  
      40.  ,  
      ,   
 .       -
  GOTO,    40   
   .   , -
    :

     50 GOTO 20

 . ,  ? ,   -
,       ,   


        20

 ,      . 
 GOTO   50     20,  
 READ      DATA, 
 READ  DATA  ,    
    .   ,
,   ,     ,
       .
              -
   DATA?    -
 RESTORE ().     -
        
  DATA ,     
.
         :

     45 RESTORE

 .   ,    
   .  ,   
,    .
     ,      RESTORE.  
      ,  
     
  .
           .  
 ,       
   .    
  .   -    
      
  ,   , 
       
   ..      ,
 ,      ,   
      , 
    ,   -
 ,      .
       ,      -
    (  ,   
   ) ,  -
         
. ,   ,  
  ,     
,       -
.
        ,     
      . ,
        
 ,     ,   -
 ,    .    -
  ,     
,  

     100.000 /*3.600 .=3.600.000.00 .

,       
       . 
  ,    
   ,     
.
            ? 
   "#".    -
,        . -
     17  . ,
  8  17  ,   
   .  PRINT   
 16  , 17-   .
           , 
:

     10 INPUT " "; #
     20 =X#
     30 IF X#<-32768 OR X#>32768 THEN X%=0;GOTO 50
     40 X%=X#
     50 PRINT "";" ", " "
     60 PRINT X%,X, " ", X#

      .  -
,       , , 10  16
, .. 1  16 , ,  
,   ,   
   ,      
D. D   .   D-  
.       . 
D-    16.
       ,   -
 .    ,   1/3  -
        3.
  : 1.000000029802322.
     ,     .   
?     #=1/3,  
 1  3      #. 
  1/3    . 
,   1/3    
  .      -
,   #,    (10
)    -   " ".
  ?      :

     10 #=1/3#
     20 B#=A#*3
     30 PRINT A#;"*3="; B#

     

     .333333333333*3=1

  ,   "#"  1/3 
,  1/3     .
     ,   ,    .
  ,    -
,    .

9;=?A!CAEaGIMOQ!SAUa