А.КОЛЕГОВ, 614025, г.Пермь, ул.Косьвинская, 13-43. ПРОГРАММА "КОСМОС" Предлагаю на конкурс свою программу "Космос" для микрокомпьютера МК 85. Программа работает в режиме повышенного быстродействия. Задача игры — уничтожить как можно больше метеоритов. Управление кораблем производится тремя клавишами: "Z"— выстрел, "-" — вверх, "+" — вниз. Максимальный уровень игры — восьмой. По окончании игры отображается число уничтоженных метеоритов. Программа занимает 616 ячеек памяти. 5 CSR 11 ,:PRINT "Космос" 10 VAC:R=3:V=9 20 INPUT "Level (1 -5)",А 40 IF T=90;IF S=0;S=1 :V=R:Y=0 50 IF T=43;DRAWC 1 ,R:R=R-1 :DRAWC 0,R+2 60 IF T=45;DRAWC 1 ,R:R=R+1:DRAWC 0,R-2 70 IF R>6;R=6 80 IF R<0;R=0 90 DRAW 0,R:DRAW 1,R:DRAW 0,R+1 :DRAW 0,R-1 100 IF S=1;DRAWC Y, V:Y=Y+1:DRAW Y,V 110 IF Y=15;S=0:DRAWC Y,V:V=7 120 FOR Z=1 TO A 125 IF A(Z)<0;I(Z)=INT(6*RAN#):A(Z)=15+(15*RAN#) 130 IF A(Z)=Y;I(Z)=V;GOSUB 300 140 DRAWC A(Z),I(Z):A(Z)=A(Z)-1:DRAW A(Z),I(Z) 145 IF A(Z)=Y;IF I(Z)=V;GOSUB 300 150 IF A(Z)=1;IF I(Z)=R THEN 180 160 IF A(Z)=0;IF I(Z)>=R-1;IF I(Z)<=R+1 THEN 180 170 NEXT Z:T=ASCI KEY:GOTO40 180 CSR 11,:PRINT "Score=>";W;:FOR V-O TO 500:NEXT V 190 INPUT "Exit (Y/N)",Z$:IF Z$="N" THEN 5 200 END 300 DRAWC Y,V:DRAW Y+l ,V+1 :DRAW Y-l ,V+1 :DRAW Y-l,V-1 305 DRAW Y+l, V-l:FOR Q=0 TO 100:NEXT Q: A(Z)=-1: DRAWC Y+l, V+l 310 DRAWC Y-l,V+1:DRAWC Y-l,V-l:DRAWC Y+l,V-l 320 I(Z)=10:W=W+1:S=0:Y=0:RETURN "Радиолюбитель" №4 1993г.