Теперь это правильно? Код 1:
10 cls
11 OPEN #1, "var.dat", "INPUT"
12 INPUT #1, A%
13 CLOSE #1
20 print "нажмите кнопку "5" тысячи раз"
30 a%=0
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

или это правильно? Код 2:
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

первый или второй?

end не нужен, у тебя же бесконечный цикл.
  Вариант 2.

вы trap забыли.

У меня такая хрень: когда запускаю например такой код
1 cls
2 sc 0,0,0:fr 0,0,240,320
3 sleep 500
4 sc 255,255,255:fr 0,0,240,320
5 sleep 500
6 goto 2
; екран не мигает бело-черными цветам а просто замирает на строке 2 . Чтоб показало белый цвет нада нажать кнопку выход,нет,выход,нет....

Ghoust, repaint забыл

SeTSeR, процент нубства в данном сообщении зашкаливает, просьба людей с слабой психикой не читать

Открыть спойлер

Закрыть спойлер

я не знаю такой команды, обьясни мне что ето такое и как ней пользоватся

Ghoust, это в 1.9 версии появилась команда. Просто перед слипом пишешь в отдельной строке и все

AHiLLA, тоесть так ;
1 cls
2 sc 0,0,0:fr 0,0,240,320
3 repaint
4 sleep 1000
5 goto 1

после дравґел и дравстринґ нада репеинт писать

Ghoust, репаинт это комманда пересисовки экрана. Она рисует на экране все графические команды с последнего вызова repaint.