BASiC нового пакаления

[mixunya]

привет всем!! я создал бэйсик на pythone 2.7.18.
получилось весма рабочая вещ есть подержка http json
если есть время попробыват этот байсик то пожалуста!
сылка: http://download.old-web.com/files/mixunya/basic/


если ктото будет чтото нанём по приколу писать делитесь кодом под темой
буду очень рад

[maninabox]

Сообщение от mixunya

я создал бэйсик на pythone 2.7.18

[mixunya]

maniabox, было интересно и я решил поделиться

[eriko]

mixunya, конечно делись, и не надо обижаться на maninabox, он не переходит на личности, просто свободно выражает свое мнение.

Главное чтобы тебе нравилось что ты делаешь и тогда обязательно найдут те, кто будут с тобой того же мнения.

Добавлено через 34 секунды
Лично я не знаю ни бейсика ни питона, поэтому не знаю что сказать.

[maninabox]

Сообщение от mixunya

было интересно и я решил поделиться

Интересно или нет - главное не это.
А то, куда это можно применить.
Как дипломную работу это можно рассмотреть. Как что-то полезное - нет.
Питон и так медленный, а ты сделал его еще медленнее.
Написал язык программирования на языке программирования, чтобы программировать, пока программируешь.

[mixunya]

maninabox, ну это твоё мнение ты имеешь на него полное право доказывать что-то я не буду

[maninabox]

Сообщение от mixunya

доказывать что-то я не буду

Так а тебе объективно нечего доказывать. Практического применения твоему коду просто нет, хотя допускаю в образовательных целях. Я, к слову, почитал исходник, действительно тянет на дипломку, но не более.
Разумеется, может найдутся ребята, что заинтересуются попробовать что-нибудь изобразить, но только в рамках эксперимента.

[mixunya]

Я для этого и писал его, что может ктото поприколу напишет например змейку ради забавы. Я тоже не говарю что это супер унивирсальная вещ, но например петнашки и получить допустим курсы валют для какихто вычислений, спакойно написать.

maninabox, точто на депломку тянет я и не расчитывал) спосибо

[mixunya]

решил подогреть интерес и напишу тут пятнашки

10 let w = 4
11 let calc_index = 1000
12 let draw = 1500
13 let find_void = 1200
15 let UP = 1072
16 let LEFT = 1075
17 let RIGHT = 1077
19 let DOWN = 1080
20 let h = 4
25 let size = w * h
30 dim bord [size]
40 for i = 0 to 14
50 dim bord [i] = i + 1
60 next i
68 cls
70 gosub draw
80 let key = KEY
90 if key == ( 0 - 1 ) then goto 80
100 if key != DOWN then goto 200
110 gosub find_void
120 let void_x = x
130 let void_y = y
140 if void_y == 0 then goto 500
150 let y = y - 1
160 gosub calc_index
170 let zn = bord [bord_index]
180 dim bord [void_index] = zn
190 dim bord [bord_index] = 0
200 if key != UP then goto 300
210 gosub find_void
220 let void_x = x
230 let void_y = y
240 if void_y == 3 then goto 500
250 let y = y + 1
260 gosub calc_index
270 let zn = bord [bord_index]
280 dim bord [void_index] = zn
290 dim bord [bord_index] = 0
300 if key != RIGHT then goto 400
310 gosub find_void
320 let void_x = x
330 let void_y = y
340 if void_x == 0 then goto 400
350 let x = x - 1
360 gosub calc_index
370 let zn = bord [bord_index]
376 dim bord [bord_index] = 0
378 dim bord [void_index] = zn
400 if key != LEFT then goto 500
410 gosub find_void
420 let void_x = x
430 let void_y = y
440 if void_x == 3 then goto 500
450 let x = x + 1
460 gosub calc_index
470 let zn = bord [bord_index]
476 dim bord [bord_index] = 0
478 dim bord [void_index] = zn
500 if key != 114 then goto 600
510 dim bord [size]
520 for i = 1 to 15
530 let bord_index = rnd 15
540 if bord [bord_index] != 0 then goto 529
550 dim bord [bord_index] = i
580 next i
990 if key != 27 then goto 68
999 exit
1000 let bord_index = ( w * y ) + x
1003 return
1100 let y = bord_index / w
1110 let x = bord - ( y * w )
1120 return
1200 for dy = 0 to 3
1210 for dx = 0 to 3
1220 let x = dx
1230 let y = dy
1240 gosub calc_index
1245 let void_index = bord_index
1250 if bord [bord_index] == 0 then return
1300 next dx
1310 next dy
1320 return
1500 for dy = 0 to 3
1510 for dx = 0 to 3
1520 let x = dx
1530 let y = dy
1540 gosub calc_index
1545 if bord [bord_index] < 10 then print "" ;
1550 if bord [bord_index] == 0 then print "." ;
1560 if bord [bord_index] != 0 then print bord [bord_index] ;
1570 goto 1590
1580 print "" ;
1590 next dx
1600 print ""
1610 next dy
1620 return

96 строк кода!!