home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / convert.rec < prev    next >
Encoding:
INI File  |  1990-09-14  |  8.3 KB  |  305 lines
  1. [CONVERT.REC]
  2. [14 Sep 1990]
  3. {
  4. ('IMM:'ED('/'ED('A''Z'M;'a''z'M;)QD('s'=);'S';)28$S0;
  5. (Jj2573U<;Z<;)('/'FDABQD('s'=);'S';)28$S
  6. J(' 'FDJ><;Z;)(AB)' 'E'No file given'I1;
  7. 'convert> '@"L@'
  8. (4b'.CNV'EjJQ;JQ'.CNV'I;)'.REC'|JZQD>
  9. ('PATH='(F)JZD;(0%U;zZ;)QJZD(''=;';'=;I';'I;);)
  10. 30@f29@e) G
  11. (m&|0%|pL0,32|60K-1(=)n$SLLL;LLL
  12. 'Cannot create'I-1) e
  13. (Jm''&0%|pGm(pL61K-1(=);LLLL
  14. @h:'Not Found'ILnL-1)
  15. nLn$SLLLJZD;) f
  16. (';'FDJ<((A);1b'\'E;'\'I;)JQDpG>lyG|;) h
  17. (J(26%FDJ;512a;)qm29$rlyG|
  18. 64K(n=LL;'Disk full'TLxM)
  19. D'.'@";) *
  20. (@*'.'=:L@y:(@*'.'=:LZ26%I@*L;L;)
  21. 0,29$r62k0,30$r62k;) H
  22. (jJ<(@*'.'=:0=:L;)Zz>;) P
  23. (')'@D;) d
  24. (pGEzL;
  25. '<(>'Ez:'<)>'Ez:'<,>'Ez:
  26. '<<'E'>>'(VD;Zz):
  27. ('(QUO'Ez;'(REC'Ez;)ABQz(FzA;Zz):
  28. '(IVL'EzABQz(FQzFzA;Zz):'('Ez')'@D:
  29. ('<)'E(3aj)L)A:L) D
  30. {
  31. (39%I;) q
  32. (zZ<(','@D;)BjJ>;J>) r
  33. ((ABQj;'';)'Expected ","'@=;) X
  34. (('%'EQDZ;'';)m''(z@q3bjA@qZQ|D:;)
  35. DJj(n''='@';L'x';)IZQ|DI;) l
  36. (('('EDZ<@dBDJ>;(jAB;;)@!j;)
  37. <(AJ@V' 'IJQj(A' 'FD'x('Iz:;);' ';)>
  38. ','ED;@X;) n
  39. (Q'Ill var list'@=;) !
  40. (I<j0(ABD' 'VD^:0=;#I'x:'Iz;)>;) m
  41. (@a;"''"IIQzBD'x)'Iz;) o
  42. (' '=' ';) a
  43. (28$r'S '=;L'<:%:>'IJ;) %
  44. {(')'E;)U
  45. (@(@UD;@k<@%@b
  46. (J27%FD'''Ill <=>'@=:Z;)>';'IzA@N:) p
  47. (@(@UD;@k<j'JZD'Iz@S>';'IzA@N:) s
  48. (@@;)} J
  49. {() L
  50. (;)Z
  51. (')'E;)U
  52. (@(@U;D(@a;'@~'I;)
  53. @k<j(@r<(ABj'J'Iz@b
  54. J(27%F(D'64x['I27%F:
  55. JjABD'x'I39%IZ'x'I34%Iz'64'@I;);Zz;);;)>ABD
  56. Z<j'JZD'Iz@S>;JZQ'Ill rule'@=D;)>
  57. ABD@N(3b';'Ez;':'Ez;z2bDBQj'Ill sep'@=)AA::)} R
  58. ('30'Ez;{('0''9'Mz;)&(Z<'1'Ez@&;J'2'Ez@&;J@&;)}>;
  59. j('3'EzA;A;;)JQD>'Ill var'@='0'I;) v
  60. (@v' 'Ez:ABZ@!D;;) V
  61. (D'{'Iz127$r0,127$S@(D'p'@J@{@(D's'@J@{127$S
  62. @(z@k<(AJ@V;;)' 'IJQD@">ABD
  63. (@o @a; ';)~
  64. 'Iz;)
  65. @((@aD;pGI<(A' 'FD'x('Iz:;)'('Iz>;)@Rj'Z;'IzA
  66. (@aL;'@~'I@m';)'Iz;)
  67. @)'}'Iz;) } Q
  68. {
  69. (I<j@rzABDZQDJ;) ,
  70. (EDZ<@dBDJQD>;) )
  71. (AB(@#(ABj'I'Iz@c'JQD'I;;);@c'JQD'I;);"''"I;) s
  72. (Z<@dBDJ><((@#;)(A);@$)>;) E
  73. (ZQD'Ill patt'@=;) $
  74. (z
  75. @#'Ez'I:
  76. '<['ED (Z<']>'@D2bD;@$)J>
  77. <(QABOL>'(a;L)z'Iz;
  78. Lj'j<'Iz@s>'>(Oa;L)z'Iz;):
  79. '<:'ED (':>'U;@$)
  80. ((QD':>'ED''=@$; pG'%'=;
  81. '@'=(ZQD'<:%:>'=;''=;@$);L)'@'II;
  82. '~'='x8'I;
  83. I<28$r'S '=@l>;
  84. LQD>Z<'<:%:>'FD'<:~:>'IJ>
  85. <j'x9{('Iz@b>';)%('II<@l>'x};x})}'I;
  86. j'{('Iz@b>';)%('II<@l>';)}'I;) :
  87. '<-->'ED((AB('<>'ED))'Zz'Iz@b;
  88. Z<(@#JQD;'';)>ABj'(l('I(''='';I'(Fz;ZzqL)'I'B';)
  89. 'qL'Iz@b'L;Y)L;x{A'II':)'I;I'Fz'I;);
  90. '<()>'ED "'('Ezx*"I'()'@I :
  91. '<>'ED (2b'Zz'E;3b'(A)'E;'(A)'I;):
  92. '<'EDZ<@vJQD>'>'(ED;@$)
  93. ((A)I'x]'I;BZ<(@#JQD;'';)>
  94. ''=('<>'EDI'x](A)'Iz@b;'');
  95. '{('Iz(''='';IQ'Ez'Iz;) @b ';)#('I
  96. (''=I'x<'I;II'x>'I;)';)}'I;) ;
  97. '(DEF,' @) '{('Iz
  98. (@, @%@b';)'I>@, >'('I:
  99. @b';)}'Iz>;):
  100. '(ITR,'ED '(Z<'Iz
  101. Z<@dBDJ><@b>'>:J>;)'I :
  102. '(itr,' @)(ABj '(lqL'IzZ <@b>
  103. 'LL;Yx{'II <@b> ':)'I;L;) ;
  104. '(OR)'ED '()'I:
  105. '(OR,' @)
  106. (ABZ<
  107. ('<:'Ez(':>'U;@$)'%'EzJZQD
  108. 'Z<(l'I(m@,npGIJ@b';x{Jl'I>:nIJ@b';x{>)L>'Iz>;);
  109. '<:%:>'FD'<:~:>'IJj'x9{('Iz@b
  110. ';)%(Z<(l'I(@,'<:%:>'IJ@b';x{Jl'I>:
  111. '<:%:>'IJ@b';x{>)L>x};x})}'I>'::'@I;);
  112. Jj'{('Iz@b
  113. ';)%(Z<(l'I(@,'<:%:>'IJ@b';x{Jl'I>:
  114. '<:%:>'IJ@b';x{>)L>;)}'I>;);)>;
  115. 'Z<(l'I(@,@b';x{Jl'I>:@b';x{>)L>'Iz>;););
  116. '(AND)'ED:
  117. '(AND,' @) ZQmD(@,'(REC'I30%I'(ljJ><'I
  118. (n''=m''pGpG;
  119. I<m('<:%:>'FD'<:~:>'IJ'x}''x9';''pG;)
  120. n@bmJj'qLJ>Z<Y'IZmQDn>;)
  121. Jj'Z<('IIzqL&nZ>
  122. (@,'<>'IJ@b'J'I>:
  123. '<>'IJ@bI'>L;x{J>Z<)'I30%I')'I>
  124. Y@bpGI';'II'>)'Iz;);
  125. nIJj>;):
  126. '(and)'ED:
  127. '(and,' @) ( @, j'Z<('Iz@b'jJ><'I>
  128. ( @, '<>'IJ@b'J'I>:'<>'IJ@b';>)>'Iz;);
  129. j;)>:
  130. '(or)'ED'()'I:
  131. '(or,' @)
  132. 'Z<('I
  133. ( @, @b';J'I>:
  134. @b';>)>'I>;):
  135. '(NOT,'ED'(Z<'I
  136. zZ<@dBDJ><@b>
  137. 'J>)'I(zABj('<>'ED('<>'ED:;))'J>'I;'>Zz'I;):
  138. '(nor,'ED Z<j'(NOT,(or,'Iz@d')'IJj> :
  139. '(REC'ED ABQDFD')'ED:
  140. '(^)'ED'0%31%Mz'I:
  141. '(IVL'ED Z<jABQQQj'(QUO'IzA
  142. Fz')(QUO'IIzFz')'EJ><@#z@#>'Mz'I:
  143. '(ivl,' @)'('Iz
  144. ((@,)j'j<'Iz@s">''Mz;"I>;
  145. j'j<'Iz@s>(@,;0;)@s">Mz;"I>0=;:)')'I:
  146. '(LAM,'ED @n'{('I@o@m';)~('Iz
  147. Z<@dBDJ><@b>'@~;@~)}'I:
  148. '(PWS)'ED 'x+Zqtj'I:
  149. '(PWS,'ED 'x+'Iz@E'TLZqtj'I:
  150. '(HLT)'ED 'RL'I:
  151. '(HLT,'ED 'x+'Iz@E'TLRL'I:
  152. '(NOP)'ED :
  153. '(NOP,'E ')'VD :
  154. '(PVR,'ED@v ')'ED"x_"I'v '@I:
  155. '()'ED:
  156. '('EAZ<@dJ>B<j'j<'Iz@s>'>Ez'I:
  157. A@$;;) B (j@Bz;)} b
  158. {
  159. (QD@q30%I#I'%'I30%I@qz;) Q
  160. (1b39%(ED)@qz;) E
  161. (Z<
  162. ('(DEC,'ED')'FD'%'Iz;
  163. '(HEX,'ED@q')'FD@q'H'Iz;
  164. '(QUO'EDABQD@qZ<jAFDJ><
  165. jA("''"%F@Q:;)JjA('""'%F@Q:;)Z@q30%I
  166. J("''"30%|FD:;)J(30%FD(30%FD'|'Iz:;);;)
  167. J(A;"''"I;)Zz>')'ED;
  168. '(^)'(E)'(^'ED')'U<j(ABQ\64-%fLz:;)
  169. Jq&L(1=QD#I'%'I;2=QD#I','I;LQD!@qI@q'H'I;)z>')'ED;
  170. 10044[<']'>'|ED'39%'Iz;
  171. 8764[<"] '>'|ED'34%'Iz;
  172. j@qz(@Wz:'(<)'ED '<'Iz:'(>)'ED'>'Iz:
  173. '<(>'ED'('Iz:'<)>'ED')'Iz:'<,>'ED','Iz:
  174. '!''~'(M);
  175. ('('E;')'E;39%E;34%E;','E;'>'E;'<'E;z)j;:)@E;)
  176. J><@K>;>)} #
  177. {(Z<@dBjJ><j@:zAJQD>;) 1
  178. (I<j(@rz','EDZQD;0;)J>;) k
  179. ((@n@a;'{('I@o';)~('I;);) ;
  180. ((@a;'@~'I;)'J'ImpGIn@:<@b>
  181. ','EDm&pGI&n;) .
  182. (@r;<z@X','IjJ>;) :
  183. (<j'JZD'Iz@S>;) ,
  184. ((@aL;'@~'I@m';)}'I;)LL;) f
  185. (''2b('z<'Ez;'j<'Ez;);3b('JZD'Ez;'JQD'Ez;);'z<'IzL'>';) F
  186. (ZQD'Ill skel'@=;) $
  187. (z
  188. @#'I'I:
  189. '<=>'ED27%I:
  190. '<'ED@v'>'ED'x['I:
  191. '(REC'ED ABQDFD')'ED:
  192. (('(IF,'E''pG;'(NF,'E')''(';)D@1;
  193. '(if,'ED''pG'(),';'(nf,'ED')''(''(),';)
  194. mmm@FnnnZ<@dBjJ>qLJ<Yj(@r;;)
  195. (qLJ<Y@c>','EDI@;'('I
  196. (@.(@r@,';'Iz;@,';Z;'Iz;)
  197. ','ED((@r;;)@,','ED;';'Iz):
  198. >')'Ez;)@fI;>')'EDLLLI;):
  199. (('(WHILE,'E''pG;
  200. '(UNTIL,'E')''(';)D@1;
  201. '(while,'ED''pG'(),';
  202. '(until,'ED')''(''(),';) 'z<'Iz
  203. Z<@dBjJ>qLJ<Yj@:qLJ<Y@c>','EDI@;
  204. ((@rj;@,)'('I@.@:qL<j'JZD'Iz@c>','ED'>'I
  205. (@r;;)qL&Y<Yj'z<'Iz@S>':;)'Iz','ED:
  206. >')'ED'Z>'Iz;)@f:
  207. '(%R,CTR:'(Ej)
  208. '(%R,STK:'(Ej)
  209. '(%R,ARR:'(Ej)
  210. (('(%r)'E;'(%R)'E;)3a','I4b;;)
  211. ('(%R,('E;('(%r'E;'(%R'E'",()" inserted''%R'@=;)D'(%R,()'I;)
  212. '(%R,'ED@F@1Z<@dBDJ>QD
  213. ("{(Jx|;)~(xRA;;)}x~"I''=L'(),'I@n;
  214. mmqL'}x~'n9aQDn@kqLpGJ<Y@cYj&I(0=L0'(),';&;)ZI@nm>0=FzLn;
  215. mFYnn&<"x|"FQDm@k<n
  216. (ALB@b>'xRA'F'BD'I'x~'FD;I>;)0=Z>;
  217. Z2b('x~'EQD;'';)&4bjqL&A@k<j'JZD'Iz@S>0=YjIZ>;
  218. &YjIL<j'JZD'Iz@S>Z>;)@o@mI:
  219. '(@' ED (')'ED3b'JZD'ED;@$) '@@'I:
  220. '()'ED:
  221. '('EDZ<@dBDJ><(j@rzA(@rzABD'<,>'I:;);;)J>
  222. (qLJ<Yj@F@rQD','ED@c>
  223. (''='JZD'I(''=;L'>'I;);I<@i@lI>;);
  224. ><@i@lI>;):
  225. A@$;;) C (j@C;)} c
  226. (@cJ('JZD'Ez27%ED1bD;;)
  227. (J'JZ'Ez('QI'Ez:;)27%ED'QI'I:;)
  228. (J'JZDz<'Ez27%EDJ'Dz'FD;;)
  229. (J'JZ'Ez('QI'Ez:;)'z<'Ez27%EDJ'z'FD'QI'I;;)
  230. (J'JZ'Ez('QI'Ez:;)'<'Ez('QI'Ez:;)27%ED'QI'I:;)
  231. J27%F'64'@IJj'JZ'ED'x'I39%I(27%FD'64x['I:;)Z'x'I34%Iz;Zz;) S
  232. ("~
  233. {(-1='Not Found'I;) v
  234. ((' 'FZD;Z;)0%IJ;) u
  235. (x+'Terminated'TLxE_) M
  236. ((B13%ED;;)J(10%FD:;)J(26%FBAZD;;)Z;) ~
  237. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  238. (512eqm29$rn|63K0(=)(a;L)LzZD(B26%ED:;)Y;DLL) y
  239. (J(2573FDZQmD;''m;)l30$SJ('L/'FDZ<(' 'FjJ;;)QD>
  240. ((B;;)' 'ED;;);'';)mZ
  241. "I
  242. (28$r'S '=;L"1024cmpw0%(f:;)wn'}'$S"I;)
  243. "188cmpw'M'$r(f:;)wnpG66-,127$Sx@
  244. 'vuM~|y'I<z(BQD@s:;)>0,31$S
  245. nI<(A1b':'(E)'\'(E);'CNVLIB.REC'I;;)0%IJQD>
  246. 30$ryGI<@ppGm(pL61K-1(=);LLL@o:lyG' Not Found'|T_)
  247. 29$SnLLLLJZD>
  248. '[!!]'m(32$r0=0''CLpLr32$S;;)LZz;) x
  249. (';'FDJ<((A);1b'\'E;'\'I;)JQD>lyG|;) o
  250. ('PATH='(F)JZD;(0%U;zZ;)QJZD(''=;';'=;I';'I;)J;) p
  251. (pG$r&\pG+127$r+S;) s
  252. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%EnL0pG29$pGmr62knS;
  253. J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  254. >J<'[!]'FDBQD\pG+127$r+mJq32$rC
  255. mpGlyG-'w'$r'x'$r-
  256. (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
  257. (@x<<@w>JZD>;)} %
  258. (@%@~xTxE;) }
  259. "I
  260. <'[!!]'FDIZ>;) u
  261. (@WD:'['EzZ<(@jJ;@yJ:'Unbal ['@z)>B;;) &
  262. (4(d(@y;;):;)Jj''pGmm
  263. (@&<5b'.CNV]'ED'.REC]'I2573Iz>@&<;J;)
  264. ('[Include 'EDZ1bDJnQ|mD>@&<:
  265. '[Exclude LIB]'ED'LB'n&nLmm>@&<:
  266. '['EZD>@&<:;)>
  267. @(j'{'Iz(@(@+@Q
  268. (@Z@WD:'['EzZ<(@j;@yJ:J>B)JZD>BD;
  269. 26%E;(AB)@yj:);AB@'z2573Iz@P:;)@{
  270. (28$r'S '=;L'::'@I;)
  271. J(26%FZD;Zz;)((B);'}'Ez;:)
  272. (nn'LB'='}
  273. ['II']'I;L@+'end'@"L@u;)@P;) w
  274. (32$r0=T;L;)" (32$r0=qt;L;)'
  275. (''('MEM:'F'm 'J;;)('CTR:'F'c 'J;;)
  276. ('STK:'F's 'J;;)('ARR:'F'a 'J;;)
  277. ('NUL:'F'n ';;)Zz(''=;@I:);) K
  278. (q|&nZI<(pGFL;ZI;)JZQDm>Y;) I
  279. (('&'(E)'#'(E);j'%'IZ'&'IjJ;)QZI<
  280. '%'(ED(A;'''Ill name'@='.'Iz;)B)D>;
  281. QD' 'I(pGABQD|@I:LL;)>J;) i
  282. (']'Ez;'['Ez@j:A:) j
  283. (@[@WD:@L:@U;'('E;ABQD'Expected (, [, {'@=:@A:) (
  284. ('['EDZ<(@jJD;@yJ:'Unbal ['@z)>:;) [
  285. (@[@WD:')'ED;ABQD'Expected ), ['@=;@A:) )
  286. (@yj;'Unexpected EOF'@z) A
  287. ('}'E@'z(127$pGrd&S;L'''Excess }'@=;):;) Z
  288. (@Z@WD:AB@'z2573Iz;@A:) N
  289. (zZ<(@d;@yJj:'Unbal ('@z)BjJ>;) k
  290. () U
  291. ('{'E@'z127$pGr^&S;) L
  292. (127$r0=;'''Unbal {'@=0,127$S;) {
  293. (' 'E;10%E;13%E;9%E;) W
  294. (512(e)'WS ovf'TLxM;
  295. <qm30$rn|63K0(=)(a;L)LLzZD(B26%ED:;)J>;DLL>) y
  296. (x+@"L': '@"L@"L;) =
  297. (@"L': '@"LJ(40a;LZ;)@'29$r(0=;0&62k;)xM) z
  298. (_) M
  299. (>Jqt<;) T
  300. (2573@"L;) +
  301. (30pGm$rm 29pGm$rm 28pGm$rm 0,127$S 0,29$S '  '28$S
  302. (@G((-1=nL;1=;)z<xT>;L{()y(;)P(;)"(;)'(@w;)};);@w@HJZD;)
  303. 3(dnn$S:;);)}
  304. [end]
  305.