Отправлено ETM 26 октября 2006 г. 00:46 В ответ на: Вечер памати Доктура Ту...? Тогда вот... отправлено ETM 26 октября 2006 г. 00:38

#include 
#include 
#define Q r=R[*p++ - '0'];while(
#define B ;break;case
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%T\
Qs\\q,,^>m,2aP4HC%SD12N1\nJNQm>s\\..q^aHC%NHb%GN1!D32P3%RN1UP1D12JPQUaP1H\
R%PN4\nQaP2Q,2aP4Hb%OD12D12N2!N3\nJVP3Q,,n\
\\(aP3Q(^*m>g\\(aP3Q(^aP1Q*aHb%FN1\nQm>::::aHC%VP3Q>bupj)hfut)c**aHb%JD12JON1!Qjg)a%LN1UP1D12JIQUa\
P1HL%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++){B'M':Q(k=fgetc(i))!=EOF
&&k!=*p)*r++=k;if(k==EOF){fputs("}}\n",o);fclose(o);return system(q - 6);}*r=0
B'P':while(*p!='`')fputc(*p++,o)B'O':Q*r)fputc(*r++,o);p--B'C':k=0;Q k<*p - '0'
)(*r++=fgetc(i),k++);*r=0 B'I':k= *p;if(**R==k)goto G B'G':k= *p;G:p=s;while(
*p!='$'||p[1]!= k)p++;p++B'N':R[*p - '0'][0]++;}}}






Составить ответ
 ||| 
Конференция
 ||| 
Архив



Ответы

Это реально работающий код полнофункционального интерпритатора BASIC... Источник информации - Доктор Ту..  Как многое мы могли бы еще узнать, будь Он с нами.. Аминь..   — ETM   (26.10.2006 00:52 62.117.85.87, пустое)




















Отправка ответа


Имя (обязательно): 

Пароль: 

E-mail: 



Тема (обязательно):




Сообщение:




Ссылка на URL: 

Название ссылки: 

URL изображения: 













Перейти к списку ответов
 ||| 
Конференция
 ||| 
Архив
 ||| 
Главная страница
 ||| 
Содержание