Pete's Log: take two

Entry #1007, (Coding, Hacking, & CS stuff)
(posted when I was 22 years old.)

ok, this time around I tested it on platforms other than linuxppc. it seems ridiculous that I have to do portability tests for this kinda code.

unsigned int rs;int U=50,V=50,S=50,P=2;unsigned int r(){return(rs=(rs*
6197)%100001);}char *_S_="/+\"[TR&17\023}\177m\201wr0tzt\2065@7\210"
"\220\214\215\213\225y|@^B\236.";void _(int i){putchar(i);}void _n(int
i){_(i/10+'0');_(i%10+'0');}void _h(int i){ _((i>9)?(i+55):(48+i));}
void _b(){_('\t');_('c');_(32);_('#');}void _e(){_(34);_(',');_('\n');
}void m(){int H,Z_32,q,Z;for(q=0;q<37;++q)_(q[_S_]-q);_(34);_n(V);_(32
);_n(U);_(32);_n(S);_(32);_n(P);_(34);_(',');_('\n');for(H=0;H<25;++H)
{if(P==1){if(H>=S)goto ______;_(34);_('a'+H);_b();_h(r()%16);_h(r()%16
);_h(H%16);_h(r()%16);_h((H*r())%16);_h(r()%16);_e();}else{for(Z_32=0;
Z_32<4;++Z_32){if(H*4+Z_32>=S)goto ______;_(34);_('a'+H);_('a'+Z_32);
_b();_h(r()%16);_h(r()%16);_h(H%8+r()%8);_h(r()%16);_h(r()%16);_h(r()%
16);_e();}}}______:for(H=0;H<U;++H){_(34);for(Z_32=0;Z_32<V;++Z_32){if
(P==1)_('a'+r()%S);else{do{q=r()%25;Z=r()%4;}while(q*4+Z>=S);_('a'+q);
_('a'+Z);}}_e();}_('}');_(';');_('\n');}int main(int c, char* v[]){rs=
((int)v[0])%6197;while(rs%2==0||rs%5==0)++rs;if(c>1)U=(v[1][0]-'0')*10
;if(c>2)V=(v[2][0]-'0')*10;if(c>3){S=(v[3][0]-'0')*10;if(v[3][1])S+=(v
[3][1]-'0');else S/=10;}if(S<25)P=1;m();return 0;/* by PWR (2001) */}