Телесистемы
 Разработка, производство и продажа радиоэлектронной аппаратуры
На главную   | Карта сайта | Пишите нам | В избранное
Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс.
e-mail:jobsmp@pochta.ru

Телесистемы | Электроника | Конференция «Микроконтроллеры и их применение»

gcc -E bas.c | indent > bas-e.c плюс пару нажатий клавиш в редакторе и получим

Отправлено ReAl 19 июня 2007 г. 00:07
В ответ на: Переделай исходники в таком стиле(реально работающий интерпритатор BASIC)...(+) отправлено ETM 18 июня 2007 г. 22:06


char *s =
"Qjou!s\\311^ - g\\311^ - n\\311^ - c\\::^ - q - ma%mO1JBHm%BQ - aP1J[O1HB%[Qo)*|gps)<<*txjudi)m*|aQdbtf!::::;sfuvso\ndbtf!aP2Q;m>aP2QaP4HC%TQs\\q,,^>m,2aP4HC%SD12N1\nJNQm>s\\..q^aHC%NHb%GN1!D32P3%RN1UP1D12JPQUaP1HR%PN4\nQaP2Q,2aP4Hb%OD12D12N2!N3\nJVP3Q,,n\\(aP3Q(^*m>g\\(aP3Q(^aP1Q*aHb%FN1\nQm>::::aHC%VP3Q>bupj)hfut)c**aHb%JD12JON1!Qjg)a%LN1UP1D12JIQUaP1HL%IQ*m>aN2!N2\nP2QP2Q>aN2\nP2Hbdd!b/d";

int k;
char R[4][99];

main(void)
{
FILE *i, *o;
char *p, *r, *q;
for (q = s; *q; q++)
*q > ' ' && (*q)--; {
i = fopen("a.txt", "r"), o = fopen(q - 3, "w");
for (p = s;; p++)
switch (*p++) {;
break;
case 'M':
r = R[*p++ - '0'];
while ((k = fgetc(i)) != EOF && k != *p)
*r++ = k;
if (k == EOF) {
fputs("}}\n", o);
fclose(o);
return system(q - 6);
}
*r = 0;
break;
case 'P':
while (*p != '`')
fputc(*p++, o);
break;
case 'O':
r = R[*p++ - '0'];
while (*r)
fputc(*r++, o);
p--;
break;
case 'C':
k = 0;
r = R[*p++ - '0'];
while (k < *p - '0')
(*r++ = fgetc(i), k++);
*r = 0;
break;
case 'I':
k = *p;
if (**R == k)
goto G;
break;
case 'G':
k = *p;
G:p = s;
while (*p != '$' || p[1] != k)
p++;
p++;
break;
case 'N':
R[*p - '0'][0]++;
}
}
}



Составить ответ | Вернуться на конференцию

Ответы


Отправка ответа
Имя*: 
Пароль: 
E-mail: 
Тема*:

Сообщение:

Ссылка на URL: 
URL изображения: 

если вы незарегистрированный на форуме пользователь, то
для успешного добавления сообщения заполните поле, как указано ниже:
увеличьте 3 в два раза:

Перейти к списку ответов | Конференция | Раздел "Электроника" | Главная страница | Карта сайта

Rambler's Top100 Рейтинг@Mail.ru
 
Web telesys.ru