",10,90
75 sleep 1000
80 dol%=dol%-stavka%
85 if dol%<0 then goto 200

90 goto 2
100 setcolor 255,255,255
101 drawstring "",20,90
110 sleep 1000
115 o%=stavka%*2
120 dol%=dol%+o%
130 goto 2

200 setcolor 0,0,0
210 fillrect 0,0,200,200
220 drawstring "GAME OVER",30,90
230 if fire(0) then goto 1
240 goto 230

  !

            .  sleep  str$ 
Sleep - ,   .

sleep 1000- 1 

sleep 500

          .
      sleep  ,     ,      . 

str$-    .      ,   .
      -$  -%,   drawstring- ,        

drawstring $,0,0

        
drawstring %,0,0      .     str$
  

drawstring str$(%),0,0

   ?

 .
   "" ( )  .   ?  !         jar     .
  GeL:

       ,    .   .

gelload "1","2"

1-    .       

2-  . 

        strela.gif,         ""
 :

gelload "","strel.gif"

   .      ? 

drawgel "",%,%

%  %-  .

     .

10 gelload "","strel.gif"
20 drawgel "",%,%

  .      ?       .

:
1.         cls.
2.      (  )      .    
3    .(   )

  sprite

  ,      .

spritegel "1","2"

1-   .

2-  

     

spritemove "",%,%

%  %- 

-  

  :

10 gelload "","imge.gif"
20 spritegel "",""
30 spritemove "",50,50

     

10 gelload "","imge.gif"
20 spritegel "",""
30 spritemove "",50,50

     spritehit.    .

     .    "",    "".       .
 :
if spritehit("","") then ---



10 gelload "x","f16.gif"
20 gelload "y","enemy.gif"
30 spritegel "x","x"
40 spritegel "y","y"
50 spritemove "x",x%,x1%
60 spritemove "y",y%,y1%
70 if spritehit("","") then goto 1000

  .

   !     .
:

10 cls
20 $="rket"
30 b$="rket.gif"
40 gelload $,b$

 ?
     ,     .     
:

10 cls
20 gelload "f1","f1.jpg"
30 x%=64: y%=100
40 spritegel "f1","f1"
50 spritemove "f1"
60 if left(0) then x%=x%-1
70 if right(0) then x%=x%+1
80 if up(0) then y%=y%-1
90 if down(0) then y%=y%+1
100 goto 50

6. " "

          (  ),     dt
  dt    ","


dt 1,10,500,7, ..

     red         read
:

read $  %

   :

10 cls
20 read $
30 print $
5000 dat 

:

10 cls

20 read $- 

30 print $  

5000 dat -

   ,     ""

 :

10 cls
20 read %
30 print %
5000 dat 50

Data       (   ).  Data   ,          . 

       ,  ,    ?

1 gelload "1","1.gif"
2 gelload "2","2.gif"
3 gelload "1","1.gif"

?     50  ?  50   50 spritegel  50 spritemove ( spritemove-           ,         )
        .         ""
          data

        ""

1 CLS
2 INPUT "",G%
3 FOR I%=0 TO G%-1
4 READ A$
5 READ B$
6 GELLOAD A$,B$
7 SPRITEGEL A$,A$
8 SPRITEMOVE A$,-200,0
9 NEXT I%

1000 DATA x1,x1.gif,x2,x2.gif

:
1 CLS

2 INPUT "",G%-  

3 FOR I%=0 TO G%-1- 

4 READ A$ -  

5 READ B$-  

6 GELLOAD A$,B$- 

7 SPRITEGEL A$,A$-   

8 SPRITEMOVE A$,-200,0 -   

9 NEXT I% - 

1000 DATA x1,x1.gif,x2,x2.gif-. 
       .
         .        
   !
:

 1000 DATA x1,x1.gif,x2,x2.gif,x3,x3.gif,n1,n1.gif,n2,n2.gif,n3,n3.gif,n4,n4.gif,n5,n5.gif,r1,r1.gif,r2,r2.gif,r3,r3.gif,r4,r4.gif,rs1,rs1.gif,rs2,rs2.gif
1001 DATA d,d.gif,n,n.gif,a1,a1.gif,a2,a2.gif,a3,a3.gif,br1,br1.gif,br2,br2.gif,b1,b1.gif,b2,b2.gif,b3,b3.gif

7. ""

   .         .  ?       ?    .  ,    dim.

dim %(5)

%-
(5)- 

  :

10 cls
20 dim %(3)
30 %(0)=50
40 %(1)=100
50 %(2)=6

:

10 cls

20 dim %(3)-  %    
   


30 %(0)=50 - 

40 %(1)=100-

50 %(2)=6-

   ?       ,      .     10   ,    :

1 plot %,% 
2 plot %,b%
3 plot c%,%
4 plot %,n%
5 ....
6 ....
7  ..

    .
  20

 :

1 cls
2 dim x%(20)
3 for i%=0 to 19
4 read a%
5 x%(i%)=a%
6 next i%
7 for i%=0 to 19
8 plot x%(i%),50
9 next i%

100 data 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,35,40,42,60,100

:

1 cls

2 dim x%(20)   %

3 for i%=0 to 19- 

4 read a%- 

5 x%(i%)=a%  %      4.
 %(i%),   (i%)    i%    0  19.   %(0),%(1)    19

6 next i%   

7 for i%=0 to 19   

8 plot x%(i%),50     %(i%),50

9 next i% 

100 data 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,35,40,42,60,100-       %

          20  

    .        ,    ,     !

 :
      ""
10 cls
20 dim x%(10)
30 dim y%(10)
40 r%=0:g%=0:b%=0
50 setcolor r%,g%,b%
60 fillrect 0,0,200,200
70 for i%=0 to 9
80 x%(i%)=64+mod(rnd(0),64)
90 y%(i%)=20+mod(rnd(0),20)
100 next i%

110 for i%=0 to 9
120 y%(i%)=y%(i%)+1
135 if g%>255 then g%=0
140 setcolor 0,g%,0
150 plot x%(i%),y%(i%)
160 if y%(i%)>176 then goto 70
170 next i%
175 g%=g%+1
180 goto 110

8. ""

   .     .   !    .  ?   ,  .     .             .       ,    ,          .      .                      . MobileBasic    . (    ).
       ?     .   :

10 d%=days(0)
20 m%=milliseconds(0)

     .       .

h%=hour(d%,m%)

mi%=minute(d%,m%)

s%=second(d%,m%)

   :

drawstring str$(h%)+":"+str$(mi%)+":"+str$(s%),30,50

  :

1 cls
2 d%=days(0)
3 m%=milliseconds(0)
4 h%=hour(d%,m%)
5 mi%=minute(d%,m%)

6 s%=second(d%,m%)

7 cls:drawstring str$(h%)+":"+str$(mi%)+":"+str$(s%),30,50

8 sleep 50

9 goto 2

9. " "

       .    messageform. 
messageform    .    ,     SMS.
:
X%=massageform(t$,o$,c$,l$,m$)

t$-
o$-  ""
c$-  ""
l$-
m$- .

       :

10 cls
20 input "",$
30 %=messageform("","","","",$)

         ,    .        .

   editform.
editform    .         SMS.

%=editform(t$,o$,c$,l$,$,%,%)

t$-
o$-  ""
c$-  ""
l$-
$-       
%-   
%- 
 0 - 
 1 - 
 2 - 
 3 - e-mail
 4 -  
 5 - url

 :

10 cls
20 w%=editform("","","","",v$,200,0)

      messageform

 :
10 cls
20 w%=editform("","","","",v$,200,0)
30 %=messageform("","","","",v$)

 

choiceform(T$,O$,C$,L$,A$,M%)

t$-
o$-  ""
c$-  ""
l$-
$- 
M%-: 
0 - 
1 - 

    .
:

10 cls
20 dim a$(3)
30 a$(0)="Start"
40 a$(1)="Options"
50 a$(2)="Exit"
60 x%=choiceform("Game","Ok","Cancel","menu",A$,0)

    .         ?  !

10 cls
20 dim a$(3)
30 a$(0)="Start"
40 a$(1)="Options"
50 a$(2)="Exit"
60 x%=choiceform("Game","Ok","Cancel","menu",A$,0)

70 if x%=0 then print "Start"
80 if x%=1 then print "options"
90 if x%=2 then print "exit"

    ,  x%=-1

10 cls
20 dim a$(3)
30 a$(0)="Start"
40 a$(1)="Options"
50 a$(2)="Exit"
60 x%=choiceform("Game","Ok","Cancel","menu",A$,0)

70 if x%=0 then print "Start"
80 if x%=1 then print "options"
90 if x%=2 then print "exit"
100 if %=-1 then goto 60

$9 " "

 , ,     .             .
     screenwidth(0)  screenheight(0)    .

w%=screenwidth(0)- 
h%=screenheight(0)-

 :      .

10 cls
20 setcolor 0,0,0
30 w%=screenwidth(0)
40 h%=screenheight(0)
50 fillrect 0,0,w%,h%
60 goto 60

           
      .

10 cls
20 setcolor 0,0,0
30 w%=screenwidth(0)
40 h%=screenheight(0)
50 fillrect 0,0,w%,h%
60 setcolor 255,255,255
70 plot w%/2,h%/2
80 goto 80

/-  . 

               . 

      (    ).     .   
X%=stringwidth(s$)- 

Y%=stringheight(s$)- 
(s$)-

     

x%=gelwidth(g$)
y%=gelheight(g$)

g$- 

: Dou Hammett