 :),               ,     .     ,       .         - 
 +()
 -()
 /() 
 *().

        ,    , ,     ,     ,    .     :

10 %=10
20 drawstring " "+str$(a%),10,10

           ,        drawstring.       ?   -      ,  1234567890,   .   drawstring       .     .       print?        ... , ,    , ...             .    drawstring    ,       ,     .
 
     .  ,         . ,           . ,      -         ,             .    ,      ,  .        ,      .       ,     -   ,          .   ,       ?         .     ???      ,  ,      .   VAL(_).  ,         . 
 
 .        .    :
ABS(X) - |X| (  X)
SQR(X) - X   0.5 (   X)
RND(0) -   
(32b)LOG(X) - ln X
EXP(X) - e   X
MOD(A,B) -   A  B (/B)
SIN(A) -    
COS(A) -   
TAN(A) -    
ASIN(X) - arcsin X
ACOS(X) - arccos X
ATAN(X) - arctg X

     ,          .          RND,   .          . ,  
10 a%=5+mod(rnd(0),5)

  ,     ,     1  10.     ???   (   ) -   5        5.   5     ,   .  ,        "",        .     :

10      
20      
30      (+,-,/  *)
40 ,    ,     
50 . 40
60 . 40
70 . 40
80  
90 ,    -
100  
110  
120  
130  
140  

   :

10 input " ",num1
20 input " ",num2
30 input " (+, -, *  /)",znak$
40 if znak$="+" then gosub 110
50 if znak$="-" then gosub 120
60 if znak$="*" then gosub 130
70 if znak$="/" then gosub 140
80 drawstring str$(result),10,10
90 if inkey(0) then goto 100:goto 90
100 cls:goto 10
110 result=num1+num2:return
120 result=num1-num2:return
130 result=num1*num2:return
140 result=num1/num2:return

,       . -,  ,       ,     ,         ,  . -,    ,        ,     ,        ,   ,   
gosub _,      return,      ,   gosub .        ,    ,       MBteam.ru,        .
