Мк85 это лучший из советских и российских калькуляторов. Выпускался примерно с 86 по 96. У него был экранчик в 60х7 пикселей и язык бейсик.
Быстродействие у него было крохотным, поэтому все игры, что я видел, не имели реалтайм движущихся объектов. Либо фигурки в три пикселя, но реалтайм, либо крупнее, но слайдшоу частотой кадр в две секунды.
Я задумал это изменить, и написать ему графический движок. Который бы позволил удобно выводить графику с приемлемой скоростью. Таким образом, это будет первый графический движок для него. Также он будет лучшим в мире, потому как реалтайм вывода нормальных спрайтов я не встречал.
---
Таким образом сделал для него игру. Принц1221, по мотивам известной Принц Персии.
Вот тут можно скачать файл с эмулятором, куда игра вшита. Так доступно поиграть на компе.
Вот тут исходный код программы. На тот случай, если у вас существует интерес к ней:
// // Игра "Принц 1221" для калькулятора МК-85. // Релиз от 31.10.2014. Автор Сергей Бобров. // // Управление: // Ходить влево или вправо: клавиши 4 и 6. // Прыжок по ходу движения: клавиша 8. // Залезть на этаж вверх: клавиша 8, стоя под лазом вверх. // Залазит в ту сторону, в какую герой двигался до залезания. // 1 GOSUB 94: A=3.4 2 I=0: GOSUB 30: B=1: I=A: FOR A=0 TO 9 STEP 3: GOTO 18 3 NEXT A: A=I: I=9: GOTO 9 // 4 I=1: C=0: GOTO 70 5 GOTO 8 6 H=G: C=0: GOTO 2 7 PRINT "Died": END 8 I=ASCI KEY: IF I=0 THEN 8: IF I<55; C=.2: IF I=52; C=-C 9 D=J: B=8: IF I=56; D=15: I=-1: IF 0=LEN T$(8+A) THEN 70: I=1.7 10 FOR E=A TO F=A+C*D STEP C+.1: IF 3=LEN T$(8+E) THEN 8: NEXT E: GOTO 16 // 15 IF A=F THEN 4+LEN V$(18+A): IF I<J; A=A+C: B=B+I: I=I-.566 16 A=A+C: IF J<=ABS(A-J); A=9.4-.9*INT A: G=G+C: GOTO 2 18 E=J*FRAC A: CSR A: FOR D=A+16 TO A+18: $=L$+V$(E)+L$ 19 LETC K$(D)+ MID(B+LEN K$(D),7-LEN K$(D)-LEN W$(D)) +W$(D) 20 PRINT K$;: E=E-J: NEXT D: IF B>1 THEN 15: GOTO 3 // 30 GOSUB G: D=D(J*FRAC G): FOR F=29 TO 18 STEP -1: $="V": E$=$ 31 D=D*.1: GOSUB 34+10*FRAC D: IF I>=0; I$(F)=$ 32 IF I<=0; U$(F)=E$ 33 NEXT F 34 RETURN 35 E$="": RETURN 36 GOSUB 35 37 $="": RETURN 38 E$="KLV": RETURN 39 IF H=G THEN 34: E$="VH": RETURN 40 IF 2=ABS(H-G); RETURN 41 $="VEE": E$="EEEV": RETURN 42 $="V4LE": RETURN // 55 E=71500140: F=106187: RETURN 56 D=71600140508: E=52044360: F=701345370: RETURN 57 D=782047310880: E=703880106: F=543107880: RETURN 58 D=703456034058: E=56380: F=380617: RETURN 59 PRINT "Win": END // 70 G=G+I: GOSUB 30: CSR A+1: LETC S$: PRINT K$; 71 FOR E=-I*3 TO -E STEP I: FOR D=18 TO 29: $=L$+U$(D)+"V"+I$(D)+L$ 72 IF 15<LEN $; LETC MID(5+E+LEN U$(D),7): CSR D-18: PRINT K$; 73 NEXT D: NEXT E: GOTO 2 // 94 VAC: DEFM 24: D=16: E=254: F=186: G=56: H=40: I=108: FOR A TO 14 95 $="": B=2^A: FOR J=-2 TO 4: K=48+FRAC(E(J)/B)*32: IF K>=58; K=K+7 96 $=$+CHR K: NEXT J: L$(A)=$: NEXT A: K$=CHR 96: RETURN
Запись старой и неготовой версии игры Принц-1221.
