autotests/html/test.rexx.dark.html

0001 <!DOCTYPE html>
0002 <html><head>
0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
0004 <title>test.rexx</title>
0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (REXX) - Theme (Breeze Dark)"/>
0006 </head><body style="background-color:#232629;color:#cfcfc2"><pre>
0007 <span style="color:#7a7c7d;">/* REXX */</span>
0008 ASCB_PTR <span style="color:#27aeae;">=</span> <span style="color:#8e44ad;">C2X</span><span style="color:#27aeae;">(</span><span style="color:#8e44ad;">STORAGE</span><span style="color:#27aeae;">(</span><span style="color:#8e44ad;">D2X</span><span style="color:#27aeae;">(</span><span style="color:#8e44ad;">X2D</span><span style="color:#27aeae;">(</span>&quot;224&quot;<span style="color:#27aeae;">)),</span>4<span style="color:#27aeae;">))</span>
0009 <span style="font-weight:bold;">SAY</span> <span style="color:#8e44ad;">X2B</span><span style="color:#27aeae;">(</span>ASCB_PTR<span style="color:#27aeae;">)</span>
0010 <span style="color:#7a7c7d;">/* COMMENTS */</span>
0011 <span style="color:#7a7c7d;">/******************************************************************</span>
0012 <span style="color:#7a7c7d;">   </span><span style="color:#2980b9;background-color:#153042;">END</span><span style="color:#7a7c7d;"> OF COMMENTS */</span>
0013 <span style="font-weight:bold;">SAY</span> <span style="color:#f44f4f;">'ENTER YOUR NAME'</span>
0014 <span style="font-weight:bold;">PULL</span> NAME
0015 <span style="color:#fdbc4b;font-weight:bold;">DO</span> <span style="color:#fdbc4b;font-weight:bold;">WHILE</span> NAME \<span style="color:#27aeae;">=</span> <span style="color:#f44f4f;">'QUIT'</span>
0016    <span style="font-weight:bold;">SAY</span> <span style="color:#f44f4f;">'HELLO THERE'</span> NAME
0017    <span style="font-weight:bold;">PULL</span> NAME
0018 <span style="color:#fdbc4b;font-weight:bold;">END</span>
0019 X <span style="color:#27aeae;">=</span> <span style="color:#8e44ad;">OUTTRAP</span><span style="color:#27aeae;">(</span><span style="color:#f44f4f;">'LU.'</span><span style="color:#27aeae;">)</span>
0020 &quot;LU&quot;
0021 X <span style="color:#27aeae;">=</span> <span style="color:#8e44ad;">OUTTRAP</span><span style="color:#27aeae;">(</span><span style="color:#f44f4f;">'OFF'</span><span style="color:#27aeae;">)</span>
0022 <span style="font-weight:bold;">SAY</span> <span style="color:#f44f4f;">'THE NUMBER OF LINES:'</span> LU<span style="color:#27aeae;">.</span>0
0023 <span style="color:#fdbc4b;font-weight:bold;">DO</span> I <span style="color:#27aeae;">=</span> 1 <span style="color:#fdbc4b;font-weight:bold;">TO</span> LU<span style="color:#27aeae;">.</span>0
0024   <span style="font-weight:bold;">SAY</span> LU<span style="color:#27aeae;">.</span>I <span style="color:#7a7c7d;">/* SAYS THE OUTPUT FROM LU */</span>
0025 <span style="color:#fdbc4b;font-weight:bold;">END</span>
0026 <span style="font-weight:bold;">SAY</span> <span style="color:#f44f4f;">'GOOD-BYE.'</span>
0027 <span style="color:#fdbc4b;font-weight:bold;">IF</span> <span style="color:#8e44ad;">DATE</span><span style="color:#27aeae;">(</span><span style="color:#f44f4f;">'D'</span><span style="color:#27aeae;">)</span> \<span style="color:#27aeae;">=</span> &quot;13&quot; <span style="color:#fdbc4b;font-weight:bold;">THEN</span> <span style="color:#fdbc4b;font-weight:bold;">DO</span>
0028   Y <span style="color:#27aeae;">=</span> <span style="color:#8e44ad;">TESTSELECT</span><span style="color:#27aeae;">(</span>15<span style="color:#27aeae;">,</span><span style="color:#f44f4f;">'RAD'</span><span style="color:#27aeae;">)</span>
0029   <span style="font-weight:bold;">SAY</span> Y
0030   <span style="font-weight:bold;">SAY</span> Y <span style="color:#27aeae;">||</span> &quot; <span style="color:#27aeae;">&lt;--</span> TESTSELECT&quot;
0031 <span style="color:#fdbc4b;font-weight:bold;">END</span>
0032 <span style="font-weight:bold;">EXIT</span> 1
0033 <span style="color:#7a7c7d;">/* FUNCTIONS */</span>
0034 <span style="color:#8e44ad;">TESTSELECT</span><span style="color:#27aeae;">:</span> <span style="font-weight:bold;">PROCEDURE</span> <span style="color:#7a7c7d;">/* </span><span style="color:#81ca2d;background-color:#4d1f24;font-weight:bold;">TESTING</span><span style="color:#7a7c7d;"> SELECT */</span>
0035  <span style="font-weight:bold;">PARSE</span> <span style="font-weight:bold;">ARG</span> NUM CAR <span style="color:#27aeae;">.</span>
0036  <span style="color:#fdbc4b;font-weight:bold;">SELECT</span>
0037    <span style="color:#fdbc4b;font-weight:bold;">WHEN</span> NUM <span style="color:#27aeae;">&lt;</span> 25 <span style="color:#fdbc4b;font-weight:bold;">THEN</span>
0038      STATUS <span style="color:#27aeae;">=</span> &quot;25<span style="color:#27aeae;">%</span>&quot;
0039    <span style="color:#fdbc4b;font-weight:bold;">WHEN</span> NUM <span style="color:#27aeae;">&lt;</span> 50 <span style="color:#fdbc4b;font-weight:bold;">THEN</span>
0040      <span style="color:#fdbc4b;font-weight:bold;">DO</span>
0041        <span style="color:#fdbc4b;font-weight:bold;">IF</span> CAR <span style="color:#27aeae;">=</span> <span style="color:#f44f4f;">'RAD'</span> <span style="color:#fdbc4b;font-weight:bold;">THEN</span>
0042           STATUS <span style="color:#27aeae;">=</span> <span style="color:#f44f4f;">'DOPE'</span>
0043        <span style="color:#fdbc4b;font-weight:bold;">ELSE</span>
0044           STATUS <span style="color:#27aeae;">=</span> <span style="color:#f44f4f;">'SICK'</span>
0045      <span style="color:#fdbc4b;font-weight:bold;">END</span>
0046    <span style="color:#fdbc4b;font-weight:bold;">WHEN</span> NUM <span style="color:#27aeae;">&lt;</span> 200 <span style="color:#fdbc4b;font-weight:bold;">THEN</span> <span style="color:#fdbc4b;font-weight:bold;">DO</span>
0047      <span style="font-weight:bold;">NOP</span>
0048    <span style="color:#fdbc4b;font-weight:bold;">END</span>
0049    <span style="color:#fdbc4b;font-weight:bold;">WHEN</span> NUM <span style="color:#27aeae;">&lt;</span> 75 <span style="color:#fdbc4b;font-weight:bold;">THEN</span>
0050      STATUS <span style="color:#27aeae;">=</span> <span style="color:#f44f4f;">'SEVENTY FIVE'</span>
0051    <span style="color:#fdbc4b;font-weight:bold;">OTHERWISE</span>
0052      <span style="color:#fdbc4b;font-weight:bold;">IF</span> CAR <span style="color:#27aeae;">=</span> <span style="color:#f44f4f;">'RAD'</span> <span style="color:#fdbc4b;font-weight:bold;">THEN</span>
0053        STATUS <span style="color:#27aeae;">=</span> <span style="color:#f44f4f;">'COOL'</span>
0054       STATUS <span style="color:#27aeae;">=</span> <span style="color:#f44f4f;">'COOL'</span>
0055     <span style="color:#fdbc4b;font-weight:bold;">ELSE</span>
0056       STATUS <span style="color:#27aeae;">=</span> <span style="color:#f44f4f;">'RADICAL'</span>
0057 <span style="color:#fdbc4b;font-weight:bold;">END</span>
0058 <span style="font-weight:bold;">RETURN</span> STATUS
0059 </pre></body></html>