Arcaniod v 0.95 beta 
10.02.2002

10 N=14: DEFM N+1: VAC: N=14: S=0: A=1: L=0
15 FOR I=0 TO 6: DRAW N+1,I:NEXT I
20 FOR I=0 TO N: IF RAN#<0.5 THEN 40
30 Z(I)=1:DRAW I,6: L=L+1
40 NEXT I
50 FOR I=0 TO 4: DRAW I,0: NEXT I: C=0: Y=1: X=2
60 FOR I=0 TO 60: GOSUB 260: DRAWC X,Y: X=C+2: DRAW X,Y
70 IF K=4 THEN 80: NEXT I
80 DRAWC X,Y
90 GOTO 90+10*A
100 X=X+1: Y=Y+1: GOTO 140
110 X=X+1: Y=Y-1: GOTO 140
120 X=X-1: Y=Y+1: GOTO 140
130 X=X-: Y=Y-1
140 IF X<0; X=0: A=A-2
150 IF X>N; X=N: A=A+2
160 IF Y=6; A=A+1
170 IF Y=0 THEN 390
180 DRAW X,Y: IF Y=\5 THEN 190 =\ - НЕ РАВНО
182 IF A=1; GOSUB 300
185 IF A=3; GOSUB 300
190 IF Y=\1 THEN 250
200 IF C-X>0 THEN 250
202 IF C-X<=-4 THEN 250
205 A=A-1
250 FOR I=0 TO 3: GOSUB 260: NEXT I
255 GOTO 80
260 K=ASCI KEY: IF K=54 THEN 290
270 IF K=\52; RETURN
280 C=C-1:IF C=-1; C=0
285 DRAWC C+4,0: DRAW C,0: RETURN
290 C=C+1: IF C=N-2; C=N-3
295 DRAWC C-1,0: DRAW C+3,0: RETURN
300 IF Z(X)=1 THEN 330
305 IF Z(X-1)=1; IF A=3 THEN 320
307 IF Z(X+1)=0; RETURN
310 IF A=1; A=4: Z(X+1)=0: DRAWC X+1,6: GOTO 340
315 RETURN
320 A=2: Z(X-1)=0: DRAWC X-1,6: GOTO 340
330 A=A+1: Z(X)=0: DRAWC X,6
340 S=S+10: CSR 9,: PRINT S;:IF S=L*10 THEN 370
360 RETURN
370 PRINT "YOU WIN"
380 END
390 PRINT "YOU LOSE"

Управление - 4,6, сначала можно премещать некоторое время ракетку, запуск мяча - EXE.
Программа получилась корявой, слишком много операторов IF. Думаю, что можно ее уменьшить и убыстрить. Но зачем? Арканоид на МК85 довольно убогое зрелище, за мячом следить трудно.
Эта программа - урезаная версия более прогрессивнойб которая разрабатывалась сначала, но та совсем сильно глючила и работала очень медленно, поэтому пришлось ее изменить, чтобы хотя бы посмотреть, как это выглядит. Выглядит не очень...
Хотя, кто хочет, может поменять.
N - размер поля по горизонтали. Больше 20 лучше не вводить, все равно угнаться бесполезно. 
 
(с) Сергей Киселев