Askalite (16.09.2013/15:00)
вы trap забыли.Где его надо поставить?

Пишу такой код:
10 cls
11 а%=0
12 OPEN #1, "var.dat", "INPUT"
13 INPUT #1, A%
14 CLOSE #1
20 print "нажмите кнопку "5" тысячи раз"
40 print a%
50 repaint
51 if fire(0) then goto 60
52 goto 51
60 a%=a%+1
61 OPEN #1, "var.dat", "OUTPUT"
62 PRINT #1, A%
63 CLOSE #1
70 goto 40
80 end

но при запуске сообщает такую ошибку : mobile basic. d at line 12. Что это значит? Помогите как исправит?

kingdosya,

5 trap 20
10 cls
11 а%=0
12 OPEN #1, "var.dat",
"INPUT"
13 INPUT #1, A%
14 CLOSE #1
20 print "нажмите кнопку
"5" тысячи раз"
40 print a%
50 repaint
51 if fire(0) then goto 60
52 goto 51
60 a%=a%+1
61 OPEN #1, "var.dat",
"OUTPUT"
62 PRINT #1, A%
63 CLOSE #1
70 goto 40
80 end

Ghoust, 1 CLS
2 SETCOLOR 0,0,0:FILLRECT 0,0,240,320
3 REPAINT:SLEEP 500
4 CLS:SETCOLOR 255,255,255:FILLRECT 0,0,240,320
5 REPAINT:SLEEP 500
6 GOTO 2

Askalite (17.09.2013/08:17)
kingdosya,5 trap 2010 cls11 а%=012 OPEN #1, "var.dat","INPUT"13 INPUT #1, A%14 CLOSE #120 print "нажмите кнопку"5" тысячи раз"40 print a%50 repaint51 if fire(0) then goto 6052 goto 5160 a%=a%+161 OPENОбъясни код пожалуйста. Почему в начале поставил trap? И т.д. Объясни пожалуйста

trap x%
- команда которая заменяет консоль вывода ошибки на оператор goto x%. Вместо вывода ошибки, будет выполнен goto x%. Ты сделал чтение из ещё не созданого файла данных (первое открытие). Trap перенаправил на строку 20, продолжать выполнять.

а как сделать чтоб в любом месте кода работала какаято кнопка

Ghoust, if fire(0) then ....

Virus-ON, ет я знаю, мне нада так чтоб в любой части кода работало

Virus-ON (17.09.2013/10:26)
Ghoust, if fire(0) then ....Но он говорить В ЛЮБОМ МЕСТЕ. Мне тоже это интересно. Покажи как это сделать? Например игрок в любое время сможет нажать на 1 и попадет в меню . Или просто сделает паузу. Короче как сделать так чтобы в любое время игры выполнялся проверка if fire(0) ...then ... Теперь вопрос 2: как сделать так чтобы при нажатии любую кнопку действие происходило мгновенно. Например это if fire(0)... Then... Не мгновенно а придется немного удерживать кнопку 5. Спасибо за ранее