Рисовалка
- 10 MSG$="Touch the Screen (Move)"
- 20 SETCOLOR 0,0,0
- 30 CLS
- 40 SETCOLOR 255,255,255
- 50 DRAWSTRING MSG$,(SCREENWIDTH(0)-STRINGWIDTH(MSG$))/2,SCREENHEIGHT(0)/2
- 60 REPAINT
- 70 SETCOLOR 255,255,0
- 80 IF POINTPRESS(0) THEN LASTX%=POINTX(0):LASTY%=POINTY(0)
- 90 IF POINTDRAG(0) THEN XPOS%=POINTX(0):YPOS%=POINTY(0):DRAWLINE LASTX%,LASTY%,XPOS%,YPOS%:REPAINT:LASTX%=XPOS%:LASTY%=YPOS%
- 100 SLEEP 10
- 110 GOTO 80
Этот код позволяет движением вашего пальца по экрану телефона - рисовать. Запускать только на сенсорном экране и только в мобильном бейсике версии 1.9.1 mod by vlavolk!
