File indexing completed on 2024-05-12 04:02:10
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>"224"<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 "LU" 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> "13" <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> " <span style="color:#27aeae"><--</span> TESTSELECT" 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"><</span> 25 <span style="color:#fdbc4b;font-weight:bold">THEN</span> 0038 STATUS <span style="color:#27aeae">=</span> "25<span style="color:#27aeae">%</span>" 0039 <span style="color:#fdbc4b;font-weight:bold">WHEN</span> NUM <span style="color:#27aeae"><</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"><</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"><</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>