home *** CD-ROM | disk | FTP | other *** search
INI File | 1990-07-11 | 2.6 KB | 61 lines |
- [HILBERT.REC]
- {{(J'0'EzJZD;
- JZ'&''m'x#0x({(''0x);)~((@~J0x]JZD@+z<0x[@b>z<@t@c@g>z<@->z<0x[@a>z<@t@c@g>z<0x[@a>z<@->z<@t@c@g>z<0x[@b>z<@+>;Z;)@~1x:;)};
- Z;)}a
- {(J'0'EzJZD;
- JZ'&''m'x#0x({(''0x);)~((@~J0x]JZD@-z<0x[@a>z<@t@c@g>z<@+>z<0x[@b>z<@t@c@g>z<0x[@b>z<@+>z<@t@c@g>z<0x[@a>z<@->;Z;)@~1x:;)};
- Z;)}b
- {(J'0'EzJZD9x[',0'I;
- J'1'EzJZD'0,'I9x[;
- J'2'EzJZD'-'I9x[',0'I;
- J'3'EzJZD'0,-'I9x[;
- Z;)}c
- {(''0x);)~
- (0x((@~J'-'Ez{(',0'Ez;)#(',0'0x>;)}JZD@Lz<'0'I(J(0x])x'D'12,al=1,cx='Iz<@X>',dx='Iz<@y>xG>z<64x['&''p'x#x":;)JZDZ>;
- @~J'0,-'Ez0x]JZD@Dz<'0'I(J(0x])x'D'12,al=1,cx='Iz<@x>',dx='Iz<@Y>xG>z<64x['&''p'x#x":;)JZDZ>;
- @~J{(',0'Ez;)#(',0'0x>;)}JZD@Rz<'0'I(J(0x])x'D'12,al=1,cx='Iz<@X>',dx='Iz<@y>xG>z<64x['&''p'x#x":;)JZDZ>;
- @~J'0,'Ez0x]JZD@Uz<'0'I(J(0x])x'D'12,al=1,cx='Iz<@x>',dx='Iz<@Y>xG>z<64x['&''p'x#x":;)JZDZ>;
- Z;)@~1x:;)}g
- {(JZD{(Jx|;)~('ARR:xy[1]'IxRA;;)}x~;)x
- (JZD{(Jx|;)~('ARR:xy[2]'IxRA;;)}x~;)y
- (JZD{(Jx|;)~('CTR:X'IxRA;;)}x~JQDO320+320/L#I;)X
- (JZD{(Jx|;)~('CTR:Y'IxRA;;)}x~JQDO200+200/L#I;)Y
- (JZD'CTR:X,'Iz<@x>',-1'IxWz<@l>;)L
- (JZD'CTR:Y,'Iz<@y>',-1'IxWz<@d>;)D
- (JZD'CTR:X,'Iz<@x>',1'IxWz<@r>;)R
- (JZD'CTR:Y,'Iz<@y>',1'IxWz<@u>;)U
- (JZD'ARR:xy[1],'Iz<@xJQDO0$ryGO-,320+320/L#I>xW;)l
- (JZD'ARR:xy[2],'Iz<@yJQDO0$ryGO-,200+200/L#I>xW;)d
- (JZD'ARR:xy[1],'Iz<@xJQDO0$ryGO+320/L#I>xW;)r
- (JZD'ARR:xy[2],'Iz<@yJQDO0$ryGO+200/L#I>xW;)u
- (JZD{(Jx|;)~('ARR:xy[3]'IxRA;;)}x~;)t
- (JZD'ARR:xy[3],'Iz<@tJQDO^4/L#I>xW;)+
- (JZD'ARR:xy[3],'Iz<@tJQDO3+4/L#I>xW;)-
- (J'1''7'Mz(A)x''.'Iz<'199/(2^'I64x['-1)'I'&''f'x#>8x(9x({(''8 9x);)~((@~J{('.'Ez9x];)#('.'8x>;)}JZD'ARR:xy,3,6'I'r'xOz<'CTR:X'I'r'xO>z<'CTR:Y'I'r'xO>z<'ARR:xy[1],60'IxW>z<'ARR:xy[2],0'IxW>z<'ARR:xy[3],0'IxW>z<'0,al=4'IxG>z<'11,bl=0,bh=1'IxG>z<8x[@a>z<'12,al=1,cx='Iz<@x>',dx='Iz<@y>xG>RLz<'0,al=3'IxG>;Z;)@~2x:;)}x";
- JZD{(Jx|;)~('TTY:digit? (1-6) 'IxRA;;)}x~:
- Z;)}~
- {(-1='Not Found'I;) v
- ((' 'FZD;Z;)0%IJ;) u
- (x+'Terminated'TLxE_) M
- ((B13%ED;;)J(10%FD:;)J(26%FBAZD;;)Z;) ~
- (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
- (512eqm29$rn|63K0(=)(a;L)LzZD(B26%ED:;)Y;DLL) y
- (J(2573FDZQmD;''m;)l30$SJ('L/'FDZ<(' 'FjJ;;)QD>
- ((B;;)' 'ED;;);'';)mZ
- 188cmpw'M'$r(f:;)wnpG66-,127$Sx@
- 'vuM~|y'I<z(BQD@s:;)>0,31$S
- nI<(A1b':'(E)'\'(E);'CNVLIB.REC'I;;)0%IJQD>
- 30$ryGI<@ppGm(pL61K-1(=);LLL@o:lyG' Not Found'|T_)
- 29$SnLLLLJZD>
- '#^# #mG #p64a c W #fO Or'm(32$r0=0''CLpLr32$S;;)LZz;) x
- (';'FDJ<((A);1b'\'E;'\'I;)JQD>lyG|;) o
- ('PATH='(F)JZD;(0%U;zZ;)QJZD(''=;';'=;I';'I;)J;) p
- (pG$r&\pG+127$r+S;) s
- (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%EnL0pG29$rpGm62knS;
- J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
- >J<'[!]'FDBQD\pG+127$r+mJq32$rC
- mpGlyG-'w'$r'x'$r-
- (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
- (@x<<@w>JZD>;)} %
- (@%@~xTxE;) }
-