home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / REC.ZIP / CONVERT.REC < prev    next >
Encoding:
INI File  |  1986-12-01  |  8.0 KB  |  312 lines
  1. [CONVERT.REC]
  2. [13 Feb 1986]
  3. {
  4. ($m33cmpw0%(f:;)wnnS;) F
  5. {(J(' 'ED:;)(' 'FjJ<;Z<;)
  6. @d(@m;Z'.'IJj:)@x>JZDI;) n
  7. (j':'UQD':'ED\64-%;0%;) d
  8. ('.'U<(8a;@b;)Q|D>;) m
  9. ('.'FJDZ(3a;@b;)Q|;) x
  10. (Zz(d' 'I:;)JZ;) b
  11. (('/'FDABQD('s'=)L;'S';)' '|28$S
  12. @nA' 'E'No file given'TLxM;B
  13. 9aQpG'REC'|m (Z3b' 'E'CNV';Q;)|mJZqtD
  14. 30@F 29@F
  15. n30$rS 30@f
  16. n29$rS 29@g29@e
  17. ;) }  G
  18. (@*'.'=:L@y:(@*'.'=:0=;e26%(f:;)@*L;L;)
  19. 29$r16k;) H
  20. (jJ<(@*'.'=:0=:L;)Zz>;) P
  21. (')'@D;) d
  22. (pGEzL;
  23. '<(>'Ez:'<)>'Ez:'<,>'Ez:
  24. '<<'E'>>'(VD;Zz):
  25. ('(QUO'Ez;'(REC'Ez;)ABQz(FzA;Zz):
  26. '(IVL'EzABQz(FQzFzA;Zz):'('Ez')'@D:
  27. ('<)'E(3aj)L)A:L) D
  28. {
  29. (39%I;) q
  30. (zZ<(','@D;)BjJ>;J>) r
  31. ('Expected ","'@z) X
  32. (('%'EQDZ;'';)m''(z@q3bjA@qZQ|D:;)
  33. DJj(n''='@';L'x';)IZQ|DI;) l
  34. (('('EDZ<@dBDJ>;@!)
  35. <(AJ@V' 'IJQj(A' 'FD'x('Iz:;);' ';)>
  36. ','ED;@X) n
  37. ('Ill var list'@z) !
  38. (I<j0(ABD' 'VD^:0=;#I'x:'Iz;)>;) m
  39. (@a;"''"IIQzBD'x)'Iz;) o
  40. (' '=' ';) a
  41. (28$r'S '=;L'<:%:>'IJ;) %
  42. {(')'E;)U
  43. (@(@UD;@k<@%@b
  44. (J27%F'Ill <=>'@z;Z;)>';'IzA@N:) p
  45. (@(@UD;@k<j'JZD'Iz@S>';'IzA@N:) s
  46. (@@;)} T
  47. {() L
  48. (;)Z
  49. (')'E;)U
  50. (@(@U;D(@a;'@~'I;)
  51. @k<j(@r<(ABj'J'Iz@b
  52. J(27%F(D'64x['I27%F:
  53. JjABD'x'I39%IZ'x'I34%Iz'64'@I;);Zz;);;)>ABD
  54. Z<j'JZD'Iz@S>;'Ill rule'@z)>
  55. ABD@N(3b';'Ez;':'Ez;'Ill sep'@z)AA:)} R
  56. ('30'Ez;{('0''9'Mz;)&(Z<'1'Ez@&;J'2'Ez@&;J@&;)}>;>'Ill var'@z) v
  57. (@v' 'Ez:A@!;;) V
  58. (D'{'Iz127$r0,127$S@(D'p'@T@{@(D's'@T@{127$S
  59. @(z@k<(AJ@V;;)' 'IJQDT>ABD
  60. (@o @a; ';)~
  61. 'Iz;)
  62. @((@aD;pGI<(A' 'FD'x('Iz:;)'('Iz>;)@Rj'Z;'IzA
  63. (@aL;'@~'I@m';)'Iz;)
  64. @)'}'Iz;) } t
  65. {
  66. (I<j@rzABDZQDJ;) ,
  67. (EDZ<@dBDJQD>;) )
  68. (AB(@#(ABj'I'Iz@c'JQD'I;;);@c'JQD'I;);"''"I;) s
  69. (Z<@dBDJ><((@#;)(A);@$)>;) E
  70. ('Ill patt'@z) $
  71. (z
  72. @#'Ez'I:
  73. '<['ED (Z<']>'@D2bD;@$)J>
  74. <(QABOL>'(a;L)z'Iz;
  75. Lj'j<'Iz@s>'>(Oa;L)z'Iz;):
  76. '<:'ED (':>'U;@$)
  77. ((QD':>'ED''=@$; pG'%'=;
  78. '@'=(ZQD'<:%:>'=;''=;@$);L)'@'II;
  79. '~'='x8'I;
  80. I<28$r'S '=@l>;
  81. LQD>Z<'<:%:>'FD'<:~:>'IJ>
  82. <j'x9{('Iz@b>';)%('II<@l>'x};x})}'I;
  83. j'{('Iz@b>';)%('II<@l>';)}'I;) :
  84. '<-->'ED((AB('<>'ED))'Zz'Iz@b;
  85. Z<(@#JQD;'';)>ABj'(('I(''='';I'(Fz;ZzqL)'I'B';)
  86. 'qL'Iz@b'L;Y);A'II':)'I;''=@$;I'Fz'I;);
  87. '<()>'ED "'('Ezx*"I'()'@I :
  88. '<>'EZD (2b'Zz'E;3b'(A)'E;'(A)'I;):
  89. '<'EDZ<@vJQD>'>'(ED;@$)
  90. ((A)I'x]'I;BZ<(@#JQD;'';)>
  91. ''=('<>'EDI'x](A)'Iz@b;'');
  92. '{('Iz(''='';IQ'Ez'Iz;) @b ';)#('I
  93. (''=I'x<'I;II'x>'I;)';)}'I;) ;
  94. '(DEF,' @) '{('Iz
  95. (@, @%@b';)'I>@, >'('I:
  96. @b';)}'Iz>;):
  97. '(ITR,'ED '(Z<'Iz
  98. Z<@dBDJ><@b>'>:J>;)'I :
  99. '(itr,' @)(ABj '(Z<'IzZ <@b>
  100. '>;J>'II <@b> ':)'I;L;) ;
  101. '(OR)'ED '()'I:
  102. '(OR,' @)
  103. (ABZ<
  104. ('<:'Ez(':>'U;@$)'%'EzJZQD
  105. 'Z<(l'I(m@,npGIJ@b';x{Jl'I>:nIJ@b';x{>)L>'Iz>;);
  106. '<:%:>'FD'<:~:>'IJj'x9{('Iz@b
  107. ';)%(Z<(l'I(@,'<:%:>'IJ@b';x{Jl'I>:
  108. '<:%:>'IJ@b';x{>)L>x};x})}'I>'::'@I;);
  109. Jj'{('Iz@b
  110. ';)%(Z<(l'I(@,'<:%:>'IJ@b';x{Jl'I>:
  111. '<:%:>'IJ@b';x{>)L>;)}'I>;);)>;
  112. 'Z<(l'I(@,@b';x{Jl'I>:@b';x{>)L>'Iz>;););
  113. '(AND)'ED:
  114. '(AND,' @) ZQmD(@,'(REC'I30%I'(ljJ><'I
  115. (n''=m''pGpG;
  116. I<m('<:%:>'FD'<:~:>'IJ'x}''x9';''pG;)
  117. n@bmJj'qLJ>Z<Y'IZmQDn>;)
  118. Jj'Z<('IIzqL&nZ>
  119. (@,'<>'IJ@b'J'I>:
  120. '<>'IJ@bI'>L;x{J>Z<)'I30%I')'I>
  121. Y@bpGI';'II'>)'Iz;);
  122. nIJj>;):
  123. '(and)'ED:
  124. '(and,' @) ( @, j'Z<('Iz@b'jJ><'I>
  125. ( @, '<>'IJ@b'J'I>:'<>'IJ@b';>)>'Iz;);
  126. j;)>:
  127. '(or)'ED'()'I:
  128. '(or,' @)
  129. 'Z<('I
  130. ( @, @b';J'I>:
  131. @b';>)>'I>;):
  132. '(NOT,'ED'(Z<'I
  133. zZ<@dBDJ><@b>
  134. 'J>)'I(zABj('<>'ED('<>'ED:;))'J>'I;'>Zz'I;):
  135. '(nor,'ED Z<j'(NOT,(or,'Iz@d')'IJj> :
  136. '(REC'ED ABQDFD')'ED:
  137. '(^)'ED'0%31%Mz'I:
  138. '(IVL'ED Z<jABQQQj'(QUO'IzA
  139. Fz')(QUO'IIzFz')'EJ><@#z@#>'Mz'I:
  140. '(ivl,' @)'('Iz
  141. ((@,)j'j<'Iz@s">''Mz;"I>;
  142. j'j<'Iz@s>(@,;0;)@s">Mz;"I>0=;:)')'I:
  143. '(LAM,'ED @n'{('I@o@m';)~('Iz
  144. Z<@dBDJ><@b>'@~;@~)}'I:
  145. '(PWS)'ED 'x+Zqtj'I:
  146. '(PWS,'ED 'x+'Iz@E'TLZqtj'I:
  147. '(HLT)'ED 'RL'I:
  148. '(HLT,'ED 'x+'Iz@E'TLRL'I:
  149. '(NOP)'ED :
  150. '(NOP,'E ')'VD :
  151. '(PVR,'ED@v ')'ED"x_"I'v '@I:
  152. '()'ED:
  153. '('EAZ<@dJ>B<j'j<'Iz@s>'>Ez'I:
  154. A@$;;) B (j@Bz;)} b
  155. {
  156. (QD@q30%I#I'%'I30%I@qz;) Q
  157. (1b39%(ED)@qz;) E
  158. (Z<
  159. ('(DEC,'ED')'FD'%'Iz;
  160. '(HEX,'ED@q')'FD@q'H'Iz;
  161. '(QUO'EDABQD@qZ<jAFDJ><
  162. jA("''"%F@Q:;)JjA('""'%F@Q:;)Z@q30%I
  163. J("''"30%|FD:;)J(30%FD(30%FD'|'Iz:;);;)
  164. J(A;"''"I;)Zz>')'ED;
  165. '(^)'(E)'(^'ED')'U<j(ABQ\64-%fLz:;)
  166. Jq&L(1=QD#I'%'I;2=QD#I','I;LQD!@qI@q'H'I;)z>')'ED;
  167. 10044[<']'>'|ED'39%'Iz;
  168. 8764[<"] '>'|ED'34%'Iz;
  169. j@qz(@Wz:'(<)'ED '<'Iz:'(>)'ED'>'Iz:
  170. '<(>'ED'('Iz:'<)>'ED')'Iz:'<,>'ED','Iz:
  171. '!''~'(M);
  172. ('('E;')'E;39%E;34%E;','E;'>'E;'<'E;z)j;:)@E;)
  173. J><@K>;>)} #
  174. {(Z<@dBjJ><j@rzAJQD>;>) 1
  175. (I<j(@rz','EDZQD;0;)J>;) k
  176. ((@n@a;'{('I@o';)~('I;);) ;
  177. ((@a;'@~'I;)'J'ImpGIn(@r;@X)<@b>
  178. ','EDm&pGI&n;) .
  179. (<j'JZD'Iz@S>;) ,
  180. ((@aL;'@~'I@m';)}'I;)LL;) f
  181. (''2b('z<'Ez;'j<'Ez;);3b('JZD'Ez;'JQD'Ez;);'z<'IzL'>';) F
  182. ('Ill skel'@z) $
  183. (z
  184. @#'I'I:
  185. '<=>'ED27%I:
  186. '<'ED@v'>'ED'x['I:
  187. '(LAM,'EDz@nZ<@dBDJ><@c>@o@m:
  188. '(REC'ED ABQDFD')'ED:
  189. (('(IF,'E''pG;'(NF,'E')''(';)(D@1;@X);
  190. '(if,'ED''pG'(),';'(nf,'ED')''(''(),';)
  191. mmm@FnnnZ<@dBjJ>qLJ<Yj(@r;;)
  192. (qLJ<Y@c>','EDI@;'('I
  193. (@.(@r@,';'Iz;@,';Z;'Iz;)
  194. ','ED((@r;;)@,','ED;';'Iz):
  195. >')'Ez;)@fI;>')'EDLLLI;):
  196. (('(WHILE,'E''pG;
  197. '(UNTIL,'E')''(';)(D@1;@X);
  198. '(while,'ED''pG'(),';
  199. '(until,'ED')''(''(),';) 'z<'Iz
  200. Z<@dBjJ>qLJ<Yj(@r;@X)qLJ<Y@c>','EDI@;
  201. ((@rj;@,)'('I@.(@r;@X)qL@,','ED'>'I
  202. (@r;;)qL&Y<Yj'z<'Iz@S>':;)'Iz','ED:
  203. >')'ED'Z>'Iz;)@f:
  204. '(%R,CTR:'(Ej)
  205. '(%R'EDz(','ED;;)@FZ<@dBDJ>QD
  206. ("{(Jx|;)~(xRA;;)}x~"I''=;
  207. mqL'}x~'9aQDn@kqLpGJ<Y@cYjmIZzn>0=FzL;
  208. mFYn<"x|"FQDm@k<n
  209. (ALB@b>'xRA'F'BD'I'x~'FD;I>;)0=Z>;
  210. Z2b('x~'EQD;'';)&4bjqL&A@k<j'JZD'Iz@S>0=YjIZ>;
  211. &YjIL<j'JZD'Iz@S>Z>;)I:
  212. '(@' ED (')'ED3b'JZD'ED;@$) '@@'I:
  213. '()'ED:
  214. '('EDZ<@dBDJ><(j@rzA(@rzABD'<,>'I:;);;)J>
  215. (qLJ<Yj@F@rQD','ED@c>
  216. (''='JZD'I(''=;L'>'I;);I<@i@lI>;);
  217. ><@i@lI>;):
  218. A@$;;) C (j@C;)} c
  219. (@cJ('JZD'Ez27%ED1bD;;)
  220. (J'JZ'Ez('QI'Ez:;)27%ED'QI'I:;)
  221. (J'JZDz<'Ez27%EDJ'Dz'FD;;)
  222. (J'JZ'Ez('QI'Ez:;)'z<'Ez27%EDJ'z'FD'QI'I;;)
  223. (J'JZ'Ez('QI'Ez:;)'<'Ez('QI'Ez:;)27%ED'QI'I:;)
  224. J27%F'64'@IJj'JZ'ED'x'I39%I(27%FD'64x['I:;)Z'x'I34%Iz;Zz;) S
  225. (']'Ez;'['Ez@j:A:) j
  226. (@h$r15K(255=22K255='Dir full'TLxM;;)LL;) e
  227. (@h$r15K(255='Not Found'TLxM;;)LL;) f
  228. (@h$r19k;) g
  229. ('080'H26k;) h
  230. (J26%EZD0;128aqL26k29$r
  231. 21K(0=L;1='Dir full'TLxM;'Disk full'TLxM)
  232. D'.'T;) *
  233. ("~
  234. {((Jj':'UQD':'ED\64-(0=)%;0,25K^&L%;)
  235. ('.'U<(8a;xb;)Q|D>;Z'.'IJj:)
  236. '.'FJD(3a;xb;)Q|JZDI;) u
  237. (255='Not Found'I;) v
  238. (Zz(d' 'I:;)JZ;) b
  239. (w0%(f:;)w;) -
  240. (cmpx-n;) 0
  241. (128,26k;) 5
  242. (x+'[[]]'TL;) Q
  243. ((B13%ED;;)J(10%FD:;)Z;) ~
  244. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  245. (|0|0|0|pLpGnpG6-mSpG8+n&S;) 3
  246. (x00x3;) `
  247. (mx0n&mx0nx3;) z
  248. (30$r128eqL26k20K0=L;DLL) y
  249. (('L/'FDZ<(' 'FjJ;;)QD>
  250. ((B;;)' 'ED;;);'';)mZ
  251. "I
  252. <'[[]]'FDnIZ>
  253. (28$r'S '=;L"1024@0'}'$S"I;)
  254. "188@0pG66-,127$Sx@
  255. 'uvb-05Q~|3`zy'I<z(BQD@s:;)>@i
  256. 33@0pG30$SnI
  257. <@u(A' 'EZD'CNVLIB  REC'I;;)JQD>&S
  258. @5,30$r15K(@vu\64+%':'|&11G|':'|TLqt_;LL;)
  259. '[!!]'m0''CLpLr32$SLZz;) x
  260. (Jj(' 'ED:;)(' 'U;Z;)QZI<(AB;'TTY:'I;)31$m
  261. ('TTY:'E4x`;xu130,33xz;)QZD>&pG8+0&SrS;) i
  262. (pG$r&\pG+127$r+S;) s
  263. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%ELnL0,30$S;
  264. J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  265. >J<'[!]'FDBQD\pG+127$r+mJq32$rC
  266. mpGlyG-'w'$r'x'$r-
  267. (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
  268. (@x<<@w>JZD>J'Next: '32$r!|TLxQ
  269. (A;{(Jx|;) ~ (xR;;)}x~;);)} %
  270. (@%@~xTxE;) }
  271. "I
  272. <'[!!]'FDIZ>;) u
  273. (@WD:'['EzZ<(@jJ;@yJ:'Unbal ['@z)>B;;) &
  274. (12(d(@y;;):;)Jj'convert/icuap/1985'm''pGmm
  275. (@&<5b'.CNV]'ED'.REC]'I2573Iz>@&<;J;)
  276. ('[Include 'EDZ1bDJnQ|mD>@&<:
  277. '[Exclude LIB]'ED'LB'n&nLmm>@&<:
  278. '[['EDZ2bDnnnLJQmmmD>@&<:'['EZD>@&<:;)>
  279. @(j'{'Iz(@(@+@t
  280. (@Z@WD:'['EzZ<(@j;@yJ:J>B)JZD>BD;
  281. 26%E;(AB)@yj:);ABqtz2573Iz@P:;)@{
  282. (28$r'S '=;L'::'@I;)
  283. J(26%FZD;Zz;)((B);'}'Ez;:)
  284. (nn'LB'='}
  285. ['II']'InL;L@+'end'TL@u;)@P@H;) w
  286. (''('MEM:'F'm 'J;;)('CTR:'F'c 'J;;)
  287. ('NUL:'F'n ';;)Zz(''=;@I:);) K
  288. (q|&nZI<(pGFL;ZI;)JZQDm>Y;) I
  289. (('&'(E)'#'(E);j'%'IZ'&'IjJ;)QZI<
  290. '%'(ED(A;'Ill name'@z)B)D>;QD' 'I(pGABQD|@I:LL;)>J;) i
  291. (@[@WD:@L:@U;'('E;AB'Expected (, [, {'@z;@A:) (
  292. ('['EDZ<(@jJD;@yJ:'Unbal ['@z)>:;) [
  293. (@[@WD:')'ED;AB'Expected ), ['@z;@A:) )
  294. (@yj;'Unexpected EOF'@z) A
  295. ('}'Eqtz(127$pGrd&S;'Excess }'@z):;) Z
  296. (@Z@WD:ABqtz2573Iz;@A:) N
  297. (zZ<(@d;@yJj:'Unbal ('@z)BjJ>;) k
  298. () U
  299. ('{'Eqtz127$pGr^&S;) L
  300. (127$r0=;'Unbal {'@z) {
  301. (' 'E;10%E;13%E;9%E;) W
  302. (128(e)'WS ovf'TLxM;qL26k30$r20K0=L;
  303. 3=LqLz(B0%ED:Y;);DLL@h) y
  304. (100(b;J;)@+qt@+zZ<(26%FjJ;;)>qt@+TLz@P(@y@*;;)29$r16kxM) z
  305. (_) M
  306. (2573TL;) +
  307. (30pGm$rm 29pGm$rm 28pGm$rm 0,127$S
  308. 'convert> 'TL
  309. @G@w
  310. JZDLL3(dnn$S:;);)}
  311. [end]
  312.