Это типа мобильного BASIC только урезанный и намного тормазнутый . Можно сравнить как будут схожие програмы работать на DROS и Mobile BASIC нужно в тектовой файл переименовать в bas и написать команду run имяфайла.bas
GRAPHICSMODE X = 10 Y = 10 A = 1 B = 2 10 X = X + A Y = Y + B IF X > 75 THEN A=-A IF X < 3 THEN A=-A IF Y > 179 THEN B=-B IF Y < 10 THEN B=-B SETCOLOUR 255,255,255 CLS DRAWBOX X,Y,20,20 FOR Z = 1 TO 20 W = Z * 10 FOR V = 1 TO 20 U = V * 10 DRAWBOX U,W,10,10 NEXT NEXT GOTO 10 EXIT
Для сравнения схожая програма на Mobile BASIC
10 X%=10 20 Y%=10 30 A%=1 40 B%=1 50 C%=0 60 X%=X%+A% 70 Y%=Y%+B% 80 IF X%>75 THEN A%=-A% 90 IF X%<3 THEN A%=-A% 100 IF Y%>179 THEN B%=-B% 110 IF Y%<10 THEN B%=-B% 120 CLS 130 SETCOLOR 0,0,0 140 DRAWRECT X%,Y%,20,20 150 FOR T%=1 TO 20 160 W%=T%*10 170 FOR U%=1 TO 20 180 V%=U%*10 190 DRAWRECT V%,W%,10,10 200 NEXT U% 210 NEXT T% 220 GOTO 60
24 авг 2009 в 19:51