На официальном сайте (http://rfobasic.freeforums.org...phone-t4388-140.html ) Mougino сообщил:
Я надеюсь выпустить BASIC! Компилятор на Google Play на следующей неделе , если все пойдет хорошо.
( I hope to release the BASIC! Compiler on Google Play next week if all goes well. )
Хорошо бы ! Интересно посмотреть!

Очень вовремя. Как раз в это время. Это уже не DosBox будет.

Не большая программка показывающая как на быстродействие влияет применение
команды gr.render.
Нужно в листинге в отмеченных местах ставить или удалять "!". Комбинируя можно
получить разные результаты!
  Да еще новость: компилятор готов, но проходит тестирование. На днях будет в маркете по цене 2.49$. Странная цена- но
не дорого!

Игра пятиминутка. С десяток таких хочу сделать .

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. REM Start of BASIC! Program
2. REM  Игра 'Скачки' (концепт)
3. lin$="_______________________:::"
4. a$="A":b$="B":c$="C"
5. lider=0
6.  
7.  
8. PPa=0:OPa=21
9. ppb=0:opb=21
10. ppc=0:opc=21
11.  
12.  
13. Do
14. PPa=PPa+RA:OPa=OPa-RA
15. ppb=ppb+RB:opb=opb-RB
16. ppc=ppc+RC:opc=opc-RC
17.  
18. pause 900
19. cls
20. print
21. print:print "    ИГРА  СКАЧКИ":print
22.  
23. print left$(lin$,PPa)a$left$(lin$,OPa)
24. print left$(lin$,PPb)b$left$(lin$,OPb)
25. print left$(lin$,PPc)c$left$(lin$,OPc)
26.  
27. RA=Floor(3*rnd())
28. RB=Floor(3*rnd())
29. RC=Floor(3*rnd())
30.  
31.  
32. if ppa>=21 then lider=1
33. if ppb>=21 then lider=2
34. if ppc>=21 then lider=3
35. Until lider>0
36.  
37. if lider=1 then win$="A"
38. if lider=2 then win$="B"
39. if lider=3 then win$="C"
40.  
41. print "ВЫИГРАЛ РЫСАК - "win$
42. print lin$
43.  
44. end

--------------------
На самом деле потратил 4 дня (по часу в день) Только на телефоне.

Es1841, сильно.

1961uvg, если знать что делает GR.RENDER то сомнений где его ставить нету.

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. REM "звезды"
2. gr.open 255,0,0,0
3. gr.orientation 1
4. gr.screen w,h
5. gr.set.stroke 4
6.  
7. ccc:
8.  
9. gr.cls % если поставить "!" будет другой эффект
10.  
11. for i=0 to 100
12.  
13. x=0+(rnd()*w)
14. y=0+(rnd()*h)
15.  
16. r=255*((sgn(rnd()-0.5)+1))
17. g=255*((sgn(rnd()-0.5)+1))
18. b=255*((sgn(rnd()-0.5)+1))
19.  
20. gr.color 255,r,g,b,1
21. ! В этом цикле назначаются цвета и ставятся точки(добавляются в список на отрисовку)
22. !если GR.RENDER ставить тут, то после каждого добавления точки будет сразу производится её отрисовка
23. !gr.render % если убрать "!"
24.  
25. gr.point zv,x,y
26.  
27. next i
28. ! Если тут то отрисуется сразу весь список
29. gr.render % если поставить "!"
30.  
31. goto ccc

В цикле рендер рисует каждый проход на один объект больше(он отрисовывает всё каждый раз: первый проход одну точку, третий три точки, сотый сто точек). Менять цвет и положение лучше через GR.MODIFY. Стирать GR.CLS плохо !!!

vh180477 - Валера спасибо за развернутые коментарии!

Es1841 - это в имя в честь ПК?
Эксклюзив понравился, сейчас ни кто не работает с псевдографикой.
Если интересно вот ссылка на знаменитую книгу " BASIC Computer Games ".
http://www.vintage-basic.net/games.html
В ней 101 игра на псевдо графике (сейчас ASCII графика), издана в 1975 году когда еще небыло мониторов !
Не представляю как можно было играть на ЦПУ.
И ссылка на форуме игроделов в тему " Забавная археология ", там много таких книг.
http://gcup.ru/forum/64-50004-1
И еще прилагаю архивчик листингов игр из выше приведенной книги.
Может пригодится.