dzanis, а верса с максимальным кодом и чтоб в сборке работало есть?

да ну ваще нафиг этот бейсик

HoldFast (08.03.2013/12:15)да ну ваще нафиг этот бейсик зря ты так...

HoldFast, Зря.

kiriman, ты их декомпилил именно для того ,что бы тебя хвалили?
Я думаю ты это делал из-за интереса.А на похвалах далеко не уедешь.
Я наведу порядок в главном классе и можно будет выложить исходники.
Но всё-же они мне не нравятся.Я придумал,что лучше сделать специальный класс контейнер,который будет исполняемым кодом.
Вобше думаю самое приоритетное - это удобный редактор.
И вобше всё ,что я пишу ,это неозначает,что я незнаю ,что делать, - это означает,что нужно многое сделать.

Vapigor, После того как прочищу главный класс,то будет версия для сборки.

dzanis, ну вообще я написал что и почему в первых постах.
Потом малость порефакторил и все. Я много и не планировал. А, ну еще баг на нокиях пофиксил. Все что было у меня в планах)

Да редактор неудобный. Я набираю код в текстовом редакторе ded Потом сохраняю в формате *.lis

Pesik1, А я в бейсе и пишу, потому что часто тестю написанное. Руки то кривые.

dzanis, в чём проблемма, собераю, устанавливаю, и вылет при запуске.
110 ms%=milliseconds(0):sleepms%=milliseconds(0)

120 gl"fon","/fon.png":gl"ak","/ak.png"
130 if (milliseconds(0)-ms%)>150 then ms%=milliseconds(0):dg"fon",0,0

470 if inkey(0)=49 and (milliseconds(0)-sleepms%)>300 then sleepms%=milliseconds(0):dg"ak",26,41:pw "/1.mid"
480 if inkey(0)=50 and (milliseconds(0)-sleepms%)>300 then sleepms%=milliseconds(0):dg"ak",74,41:pw "/2.mid"
481 if inkey(0)=51 and (milliseconds(0)-sleepms%)>300 then sleepms%=milliseconds(0):dg"ak",122,41:pw "/3.mid"
482 if inkey(0)=52 and (milliseconds(0)-sleepms%)>300 then sleepms%=milliseconds(0):dg"ak",26,87:pw "/4.wav"
483 if inkey(0)=53 and (milliseconds(0)-sleepms%)>200 then sleepms%=milliseconds(0):dg"ak",74,87:pw "/5.wav"
490 if inkey(0)=54 and (milliseconds(0)-sleepms%)>210 then sleepms%=milliseconds(0):dg"ak",122,87:pw "/6.wav"
491 if inkey(0)=55 and (milliseconds(0)-sleepms%)>190 then sleepms%=milliseconds(0):dg"ak",26,133:pw "/7.wav"
492 if inkey(0)=56 and (milliseconds(0)-sleepms%)>190 then sleepms%=milliseconds(0):dg"ak",74,133:pw "/8.wav"
493 if inkey(0)=57 and (milliseconds(0)-sleepms%)>190 then sleepms%=milliseconds(0):dg"ak",122,133:pw "/9.wav"
494 if inkey(0)=42 and (milliseconds(0)-sleepms%)>120 then sleepms%=milliseconds(0):dg"ak",26,179:pw "/10.wav"
495 if inkey(0)=48 and (milliseconds(0)-sleepms%)>150 then sleepms%=milliseconds(0):dg"ak",74,179:pw "/11.wav"
496 if inkey(0)=35 and (milliseconds(0)-sleepms%)>120 then sleepms%=milliseconds(0):dg"ak",122,179:pw "/12.wav"

600 if inkey(0)=-11 then end
610 repaint

620 goto 130