          "MobileBasic 1.8" (   ).        .!!!

          .
  
 ,      .    "run"
:
10 cls
20 print ""
run
        .(10,20,30...)    ,   .

 1.

10 cls
20 print ""
30 end
run

    :
10 cls - 
20 print ""-    ""
30 end-  

(      ,       "")

  print     .     ( )  
   . 
   ,    "%". 
:
a%,x%,raketa%,1%
   ()
       !
-  ,    "$"
:
$,word$,1$

    .

     
:
x,y,fack

      (1.95  0.5)

   ?   .     %   "5".   :

%=5

    $       "",  :

$=""

      ,       "3.14"

=3.14

   

 2.

10 cls
20 s$=""
30 print s$
40 end

 
10 cls - 
20 s$=""- o s$  ""
30 print s$-    
40 end-

(     ,     "")

    :

10 cls
20 h%=1985
30 print h%

.    .   2+2

  2+2?
 :

10 cls
20 %=2
30 b%=2
40 %=%+b%
50 print %
60 end

   .?

    %=2,    ? !

   :
 
input "",%

:
10 cls
20 input " ",g%
30 print g%
40 end
 
10 cls-    ,  
20 input " ",g%-   g%
30 print g% -   
40 
   end     (      )

       .      .(   ) 
       0  100

:
%=50+mod(rnd(0),50)
:
%- ()
50 -
md-
rnd(0)- 
 50?       0  100. 
50+50=100
50-50=0 
   

  0  150

%=75+mod(rnd(0),75)

       ,      !

    :
      ,   
(fire%,Fire%,FIRE%  FiRe%-   )

     !!!

 !

3. "  "

  ""?
     ,      
if "" then " "

 :
 ""  " "

   :

 "  "  ""

 :

if %=5 then %=0

 :

if %>0 then print "--!!!"

   "and"       

:
if %>5 and %<10 then print ""

:
 %  5    %  10      
       %   6,7,8,9    (%=1,2, 20,100)   

        .

 :
10 cls
20 pas%=1742
30 input "   ",p%
40 if p%=pas% then print " "

    :
10 cls-?

20 pas%=1742-  pas%  1742(  )

30 input "   ",p%- p%

40 if p%=pas% then print " "
 p%(   )=pas%(1742)     " "

 ?
 "1742" -       20

  .
  ?   ( )           .    .  .

  ? 

  ,  .

 :
  goto

 :

10 cls
20 %=0
30 %=%+1
40 print %
50 goto 30

:
10 cls
20 %=0- %  0
 
30 %=%+1   % 1

40 print %  
50 goto 30    30    

 goto    

 :

10 cls
20 input " ",%
30 if %=3 then goto 60
40 print "  "
50 goto 10
60 print " !!!"

:

10 cls
20 input " ",%-    %

30 if %=3 then goto 60
    3     60

40 print "  "


50 goto 10    ( 10)
60 print " !!!"

        "3"

    goto  .

        

  :

for i%=0 to %
next i%
:
For i%=0- 
to %- 
(  )

%     

for i%=0 to 20

  ?

 
10 cls
15 %=0
20 for i%=0 to 5
30 %=%+1
40 print %
50 next i%

:
10 cls
15 %=0
20 for i%=0 to 5 -  ( 5 )

30 %=%+1
40 print %
50 next i% -   30

 :
   ,        .          .

  :
        . 

 :

1      0  10
2    
3  
4  

 :

10 cls
20 nomer%=5+mod(rnd(0),5)
30 input " ",you%
40 if you%=nomer% then print " ":goto 10
50 print "  "
60 goto 20
 
     6 .
   ,        .    ":"
 :

 
10 cls
20 %=2
30 b%=2
40 %=%+b%
50 print %
60 end
   

10 cls:%=2:b%=2:%=%+b%:print %:end


     .

4. ""

       - .    .

fire(0)-  "5"(   ) 

up(0) - "2" ( )

down(0)- "8" ( )

right(0)- "4"( )

left(0) -"6" ()

  

   

"1","3","7","9"         

      ?       1, 3, 7, 9   .

 

   

if fire(0) then .....

   5    .

:

if fire(0) then goto 50


 
if fire(0) then print % 

 .?

   

if left(0) then goto 150

 5. ""

  -    ,      .

     .
      .

    .

     

plot %,% 

plot-  

%-   
%- 

       %  %     

      20,50
( 20     ,  50   )

 

10 cls
20 %=20
30 %=50
40 plot %,%

               .

10 cls
20 %=50
30 %=0
40 %=%+1
50 plot %,%
60 goto 40

:
10 cls

20 %=50 (   50     )

30 %=0 (   0   , ..   ) 

40 %=%+1 (       )

50 plot %,% (   )

60 goto 40 (   40,           )
 
   .    : 

setcolor r%,g%,b%

setcolor- 

r%-  

g%-

b%-

           0  255

       

setcolor 255,255,255

 :

setcolor 0,0,0


setcolor 0,0,255


setcolor 0,255,0


setcolor 255,0,0


setcolor 255,255,0

        .

      50,50)

10 cls
20 %=50
30 %=50
40 setcolor 255,0,0
50 plot %,%

    

10 cls
20 r%=0
30 %=50
40 %=50
50 r%=r%+1
60 setcolor r%,0,0
70 plot %,%
80 if r%>255 then r%=0
90 goto 50



10 cls
20 r%=0    0
30 %=50
40 %=50
50 r%=r%+1  1   


60 setcolor r%,0,0
 

70 plot %,%

80 if r%>255 then r%=0       255   

90 goto 50    50

 !     .

        drawline    

drawline %,%,1%,1%

 %  %    ,  1%  1%  


10 cls
20 %=0
30 %=50
40 1%=100
50 1%=50
60 drawline %,%,1%,1%

   ()

drawrect %,%,w%,h%

 %  %     , w%-    h%-

10 cls
20 %=10:%=10:w%=100:h%=50

30 drawrect %,%,w%,h%

      

fillrect %,%,w%,h%

    .
          ,    ,    .
    :
1.     
2.  setcolor
3.    fillrect
4.   goto

   :
10 cls
20 x%=64+mod(rnd(0),64)
30 y%=80+mod(rnd(0),80)
40 w%=50+mod(rnd(0),50)
50 h%=50+mod(rnd(0),50)

60 r%=125+mod(rnd(0),125)

70 g%=125+mod(rnd(0),125)

80 b%=125+mod(rnd(0),125)

85 setcolor r%,g%,b%

90 fillrect x%,y%,w%,h%

100 goto 20  
 :

 drawstring

    print   .   print      ,           ,     .
    drawstring    .

drawstring s$,%,%

s$ - 
%  % 

10 cls
20 input " ",$
24 %=10:%=60

30 drawstring $,%,%

 

10 cls 
20 drawstring "",30,90

  

10 cls
20 setcolor 255,0,0
30 drawstring "",30,20

      " "    .   ,   .   .

  :
1 dol%=500

2 setcolor 0,0,0

5 fillrect 0,0,200,200

10 setcolor 255,255,0

20 drawstring " "+str$(dol%),30,40

25 drawstring " ",10,60
30 input "",stavka%
32 setcolor 0,0,0
33 fillrect 0,0,200,200
35 setcolor 150,150,150
36 drawstring "  0-10",0,50
40 input "",a%
50 d%=5+mod(rnd(0),5)

60 if a%=d% then goto 100
70 setcolor 0,0,0
71 fillrect 0,0,200,200
72 setcolor 255,0,0
73 drawstring " 