10 cls:mg%=0:mi%=0:dol%=1000:pob%=0:por%=0
20 for i%=1 to 10
50 gelload str$(I%),str$(I%)+".png"
60 next i%
80 spritegel "9","9":x%=5:y%=40
90 drawgel "1",0,0
100 drawgel "2",40,20
110 drawgel "3",40,100
120 drawgel "4",40,180
130 drawgel "5",40,260
140 spritemove "9",x%,y%
150 if down(0) then mg%=mg%+1
160 if up(0) then mg%=mg%-1
170 if mg%>3 then mg%=0
180 if mg%<0 then mg%=3
190 if mg%=0 then y%=40
200 if mg%=1 then y%=120
210 if mg%=2 then y%=200
220 if mg%=3 then y%=300
230 if fire(0) and mg%=0 then sleep 500: goto 290
340 if fire(0) and mg%=1 then goto 680
250 if fire(0) and mg%=2 then goto 750
260 if fire(0) and mg%=3 then end
270 repaint
280 goto 140
290 setfont 1
291 drawgel "1",0,0
300 drawgel "6",40,140
310 drawgel "7",120,190
320 drawgel "10",120,230
330 drawgel "8",120,270
331 repaint: stavka%=0:y2%=200:chi%=0
340 sl%=rand(1,100)
350 repaint:drawstring "Ваш счет: "+str$(dol%),40,10
360 drawstring "Угадайте случайное число от 1 до ",30,50
370 drawstring " 10. В случе победы получаете ",30,70
380 drawstring " 2 раза больше денег чем ставки ",30,90
390 drawstring "Победы/Поражение: "+str$(pob%)+"/"+str$(por%),50,150
400 drawstring "Ставка: ",45,200
410 drawstring str$(stavka%),140,200
411 repaint
420 drawstring "Число: ",45,240
421 if chi%>0 then drawstring str$(chi%),125,235
430 spritemove "9",x%,y2%
440 if down(0) then mi%=mi%+1
450 if up(0) then mi%=mi%-1
460 if mi%>2 then mi%=0
470 if mi%<0 then mi%=2
480 if mi%=0 then y2%=200
490 if mi%=1 then y2%=240
500 if mi%=2 then y2%=280
510 if fire(0) and mi%=0 then goto 560
520 if fire(0) and mi%=1 then goto 580
530 if fire(0) and mi%=2 then goto 600
540 repaint
550 goto 430
560 input "Сделайте ставку!",stavka%:repaint
570 goto 350
580 input "Введите число ",chi%
590 goto 350
600 if stavka%>0 and chi%>0 then goto 620
610 if stavka%<1 then goto 350
611 if chi%<1 then goto 350
620 if chi%=sl% then goto 640
630 if chi%<>sl% then goto 660
640 dol%=dol%+stavka%*2:pob%=pob%+1
650 goto 331
660 dol%=dol%-stavka%:por%=por%+1
670 goto 331
680 DRAWGEL "1",0,0: setfont 1
690 drawstring " Askalite,  тебе большое спасибо! ",40,60
700 drawstring "Дай вам бог здоровье!!!",40,85
710 drawstring " 3-назад",160,260
720 repaint
730 if gameb(0) then goto 80
740 goto 730
750 DRAWGEL "1",0,0:setfont 1
760 drawstring "Разработчик: KingDOSYA. v.1.0 сайт: dosya.imob.su",40,60
780 drawstring " 3-назад",160,260:repaint
790 if gameb(0) then goto 80
800 goto 790
810 end