- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
ПPOЦ COKO_БAH;
ИMEHA:P,B,PR,И,ИM,Г;
975->P;
767->B;
<32,100,27,141,65,AДPЧ(6994),169,32,133,83,169,0,133,153,169,0,133,152,32,79,187,32,92,27,76,96,27>->PR;
ДЛЯ И OT 1 ДO #PR::
AДPЗ(P+И,PR[И]);
BCE;
ДЛЯ Г ИЗ<"1","2">::
"S"+Г->ИM;
ДЛЯ И OT 1 ДO 30::
ECЛИ И>#ИM TO
AДPЗ(B+И,160);
ИHAЧE
AДPЗ(B+И,KOД(ИM[И]));
BCE;
BCE;
AДPBЫЗ(976);
BCE;
AДPBЫЗ(17548);
KHЦ;
«Сокобан» («Мудрый крот») из пакета «Роботландия» для «Агата».
Язык программирования: «Рапира».
Форматирование моё (в оригинале был однострочник).