
  13.   
  ,     
       

     , ,     :

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

      . ,    ,
   .
       .   -
    .  -
 TRON ( . trace on -  ), 
TROFF ( . trace off -  ).
       TRON    .  -
 ,     ,   
.    ,  .  -
,          
  ,     "<" ">".
   ,      ,
         -
.
          ,  
   TROFF.
      .   :

     -  ,
     - ,   ,
     -   .

           . 
     .   
 IF...THEN, :

     10 A$=" ,  ,  ,  !"
     20 PRINT A$
     30 INPUT "? (/)"; R$
     40 IF R$="H" THEN END
     50 GOTO 20

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

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

      .   
 10,  .  ,   
      
(=1),   (A=A+1)    (A=10). -
,        
  .   FOR   :

     FOR  =  TO  
     STEP 

       NEXT ( -
). , , :

     10 FOR C=0 TO 59 STEP 2
     20 PRINT "C=",C;
     30 NEXT C

    ,   .
  ,      ?  -
       .
        ,      
 .      
 .       FOR.
FOR      "".   


     FOR C=0

  , "    
  ". "TO"  "", ..

      59

 " 59".      : "-
     C     
59".
        STEP.      -
 ""  "". ,

     STEP 2

 " 2" -     
  2.
        ,   ?   
  NEXT,     "-
".
      ,     .
    FOR,  : "!
         
   ". ,    ,
         -
   . ,    NEXT, -
       
.       ,
   FOR,    ,
   ,    NEXT.
     ,        -
,   . ,   -
 ,    :

     10 FOR I=0 TO -25 STEP -1
     20 NEXT I
     .........

     10 FOR I=25 TO 0 STEP -1
     20 NEXT I
     .........

     10 FOR I=-25 TO STEP 1
     20 NEXT I

      1, 
STEP  .
            .
    -  .
           
 .    . 
  :

     10 FOR SEC=0 TO 59
     20 CLS
     30 PRINT SEC
     40 NEXT SEC
     50 GOTO 10

  RUN    .   ? 
   - ,   -  .
 ,      .  
 .     STOP    
  

     14 FOR N=0 TO 450
     16 NEXT N

     .   ? , 
 .     .
    14  16?     
 .    ?  .   
   ,     , -
 N  0  450     
,        .
  , ..     -
,     ,   -
  .      
 ,     .  -
,   .
     ,     ,  -
      .  , , -
,   .  ,    
.       
.

      10 CLS
      20 INPUT " "; HR
      30 INPUT " ";MIN
      40 INPUT " ";SEC
      50 FOR HR=HR TO 12
      60     FOR MIN=MIN TO 59
      70         FOR SEC=SEC TO 59
      80             CLS:PRINT:PRINT:PRINT:PRINT
      90             PRINT "         ";HR;":";MIN;":";SEC
      100            FOR N=0 TO 450
      110            NEXT N
      120        NEXT SEC:SEC=0
      130    NEXT MIN:MIN=0
      140 NEXT HR:HR=0
      150 GOTO 50

      .   
       
.   ,     -
  . ,      
 . , ,  ,  
,  .      -
  .         -
.    .  
   :  NEXT, -
  ,     , -
  , :

                       

     10 FOR J=1 TO 3            10 FOR J=0 TO 3
     20 FOR J1=1 TO 2           20 FOR J1=1 TO 2
     30 NEXT J1                 30 NEXT J
     40 NEXT J                  40 NEXT J1

       :

     NEXT   FOR  40

 ,    ,    FOR -
 NEXT J1.      NEXT J, -
 ,      .
        .  
 ,       12   24 
.
          .
 ,      ,   
  .   :

      10 CLS
      20 A$=" ,  ,  ,  ..."
      30 FOR I=0  TO 5
      40 PRINT A$
      50 NEXT I
      60 PRINT
      70 INPUT " , ,     (/)"; R$
      80 IF R$="H" THEN END
      90 PRINT
      100 GOTO 30

     .  
,     "".   
 ,    GOTO   .
  .     15:

     15 FOR J=1 TO 100

   50:

     50 NEXT J

  .   ? .    
.   ,     "",   FOR J=1
TO 100   .     -
 NEXT J,   .  ? . 
:

     NEXT J

  .     20! 
 .    ,   . 
  :     
   .    
 GOTO  IF/THEN.
           , 
  .     -
   ,    . 
     .  
       
 .
      ELSE.      "". ELSE
    IF-THEN.  , 
  IF  :

     IF  HN  1 ELSE  2

  .  "" ,   (THEN)
  1.     
2.      -
 IF:

     10 INPUT "  ";A,B
     20 IF A<B THEN PRINT A;"<";B:END
     30 PRINT A;">=";B

 20  30    :

     20 IF A<B THEN PRINT A;"<";B ELSE PRINT A;">=";B

,   THEN  ELSE,   
  .
             A=B:

     10 INPUT "  ";A,B
     20 IF A<B THEN PRINT A;"<";B:STOP:ELSE IF B<A THEN PRINT B;
        "<";A:STOP
     30 PRINT A;"=";B

  20  :

        ,  PRINT A<B  STOP,   B  ,
      PRINT B<A  STOP.

    ,     -
  30.
       .  ,
  :

     10 PRINT " 1    1"
     20 PRINT " 2    2"
     30 PRINT " 3    3"
     40 INPUT C

      ,   
 ,   :

     50 IF C=1 THEN 1000
     60 IF C=2 THEN 2000
     70 IF C=3 THEN 3000
     80 GOTO 10
     1000 PRINT " 1":END
     2000 PRINT " 2":END
     3000 PRINT " 3":END

 .      80? ,
 ,    ?   .
  50-70    :

     50 ON C GOTO 1000,2000,3000

 ON     -
.   :

     ON   GOTO   

          
,      0  256. -
      .
         1,  -
    ,    .  -
   2,    
 ,    ,  ..  
         -
,   .
         .
     -
,       
 .     -
  .
     -,      -
:

     IF A<B THEN 100 ELSE 200

     -,    
:

     ON A GOTO 1000,2000,3000

 ,    ,  ,
   1000,2000  3000.   
  ,      -
  .
         .   ,
  :

     10 PRINT " 1    1"
     20 PRINT " 2    2"
     30 PRINT " 3    3"
     40 INPUT C
     50 ON C GOTO 1000,2000,3000
     80 GOTO 10
     1000 PRINT " 1":GOTO 10
     2000 PRINT " 2":GOTO 10
     3000 PRINT " 3":GOTO 10

      10-80   . 
  1000, 2000  3000.    .  
 . ,    -
 - ,    ,  -
    . ,   -
   .   
    .   -
       -
        10.
    ,    , -
.      
 .
       :      -
   ,    ?   
      GOTO 10.   
   ,   .
        ,  -
       
   10,     .
        ?  . 
     - GOSUB. 
    .  
  ,     ,    -
 GOTO:      , 
 .    .   
GOTO, GOSUB  : "   -
!".  ,    , -
   ,   .
    . 
    RETURN,   -
     "".
     ,      
.     GOSUB    -
 RETURN,        ,
   .   ,
    ,  -
 .

     10 PRINT "  "
     20 S=0
     30 GOSUB 1000
     40 S=S+1
     50 IF S>59 THEN S=0
     60 PRINT "=";S
     70 GOTO 30
     1000 PRINT " "
     1010 FOR I=1 TO 450
     1020 NEXT I
     1030 RETURN

      ,     -
 .
     -,      -
   GOSUB.   ,    -
  ,   70   -
.    

     RETURN  GOSUB

     -,     - 
,      RETURN.  -
      . 
,        
 GOTO  ON/GOTO,      -
 .   GOSUB  , 
     
   .     
     .  ,  
   ,   ,    
,    .
          -
    ? ,  
   ,     GOTO:

     ON   GOSUB   

    ON...GOTO.   
     -
, :

     10 PRINT " 1    "
     20 PRINT " 2    "
     30 PRINT " 3     "
     40 INPUT C
     50 ON C GOSUB 100,200,300
     60 GOTO 10
     100 FOR I=1 TO 50
     110 PRINT I;SQR(I),
     120 NEXT I
     130 RETURN
     200 FOR I=1 TO 50
     210 PRINT I;I^(1/3),
     220 NEXT I
     230 RETURN
     300 FOR I=1 TO 50
     310 PRINT I;I^(1/4),
     320 NEXT I
     330 RETURN

          
.     60.  
    ,   GOSUB.
   ,  ,  .

                                                                                                                    