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 Light)"/> 0006 </head><body style="background-color:#ffffff;color:#1f1c1b"><pre> 0007 <span style="color:#898887">/* REXX */</span> 0008 ASCB_PTR <span style="color:#0057ae">=</span> <span style="color:#644a9b">C2X</span><span style="color:#0057ae">(</span><span style="color:#644a9b">STORAGE</span><span style="color:#0057ae">(</span><span style="color:#644a9b">D2X</span><span style="color:#0057ae">(</span><span style="color:#644a9b">X2D</span><span style="color:#0057ae">(</span>"224"<span style="color:#0057ae">)),</span>4<span style="color:#0057ae">))</span> 0009 <span style="font-weight:bold">SAY</span> <span style="color:#644a9b">X2B</span><span style="color:#0057ae">(</span>ASCB_PTR<span style="color:#0057ae">)</span> 0010 <span style="color:#898887">/* COMMENTS */</span> 0011 <span style="color:#898887">/******************************************************************</span> 0012 <span style="color:#898887"> </span><span style="color:#0057ae;background-color:#e0e9f8">END</span><span style="color:#898887"> OF COMMENTS */</span> 0013 <span style="font-weight:bold">SAY</span> <span style="color:#bf0303">'ENTER YOUR NAME'</span> 0014 <span style="font-weight:bold">PULL</span> NAME 0015 <span style="font-weight:bold">DO</span> <span style="font-weight:bold">WHILE</span> NAME \<span style="color:#0057ae">=</span> <span style="color:#bf0303">'QUIT'</span> 0016 <span style="font-weight:bold">SAY</span> <span style="color:#bf0303">'HELLO THERE'</span> NAME 0017 <span style="font-weight:bold">PULL</span> NAME 0018 <span style="font-weight:bold">END</span> 0019 X <span style="color:#0057ae">=</span> <span style="color:#644a9b">OUTTRAP</span><span style="color:#0057ae">(</span><span style="color:#bf0303">'LU.'</span><span style="color:#0057ae">)</span> 0020 "LU" 0021 X <span style="color:#0057ae">=</span> <span style="color:#644a9b">OUTTRAP</span><span style="color:#0057ae">(</span><span style="color:#bf0303">'OFF'</span><span style="color:#0057ae">)</span> 0022 <span style="font-weight:bold">SAY</span> <span style="color:#bf0303">'THE NUMBER OF LINES:'</span> LU<span style="color:#0057ae">.</span>0 0023 <span style="font-weight:bold">DO</span> I <span style="color:#0057ae">=</span> 1 <span style="font-weight:bold">TO</span> LU<span style="color:#0057ae">.</span>0 0024 <span style="font-weight:bold">SAY</span> LU<span style="color:#0057ae">.</span>I <span style="color:#898887">/* SAYS THE OUTPUT FROM LU */</span> 0025 <span style="font-weight:bold">END</span> 0026 <span style="font-weight:bold">SAY</span> <span style="color:#bf0303">'GOOD-BYE.'</span> 0027 <span style="font-weight:bold">IF</span> <span style="color:#644a9b">DATE</span><span style="color:#0057ae">(</span><span style="color:#bf0303">'D'</span><span style="color:#0057ae">)</span> \<span style="color:#0057ae">=</span> "13" <span style="font-weight:bold">THEN</span> <span style="font-weight:bold">DO</span> 0028 Y <span style="color:#0057ae">=</span> <span style="color:#644a9b">TESTSELECT</span><span style="color:#0057ae">(</span>15<span style="color:#0057ae">,</span><span style="color:#bf0303">'RAD'</span><span style="color:#0057ae">)</span> 0029 <span style="font-weight:bold">SAY</span> Y 0030 <span style="font-weight:bold">SAY</span> Y <span style="color:#0057ae">||</span> " <span style="color:#0057ae"><--</span> TESTSELECT" 0031 <span style="font-weight:bold">END</span> 0032 <span style="font-weight:bold">EXIT</span> 1 0033 <span style="color:#898887">/* FUNCTIONS */</span> 0034 <span style="color:#644a9b">TESTSELECT</span><span style="color:#0057ae">:</span> <span style="font-weight:bold">PROCEDURE</span> <span style="color:#898887">/* </span><span style="color:#81ca2d;background-color:#f7e6e6;font-weight:bold">TESTING</span><span style="color:#898887"> SELECT */</span> 0035 <span style="font-weight:bold">PARSE</span> <span style="font-weight:bold">ARG</span> NUM CAR <span style="color:#0057ae">.</span> 0036 <span style="font-weight:bold">SELECT</span> 0037 <span style="font-weight:bold">WHEN</span> NUM <span style="color:#0057ae"><</span> 25 <span style="font-weight:bold">THEN</span> 0038 STATUS <span style="color:#0057ae">=</span> "25<span style="color:#0057ae">%</span>" 0039 <span style="font-weight:bold">WHEN</span> NUM <span style="color:#0057ae"><</span> 50 <span style="font-weight:bold">THEN</span> 0040 <span style="font-weight:bold">DO</span> 0041 <span style="font-weight:bold">IF</span> CAR <span style="color:#0057ae">=</span> <span style="color:#bf0303">'RAD'</span> <span style="font-weight:bold">THEN</span> 0042 STATUS <span style="color:#0057ae">=</span> <span style="color:#bf0303">'DOPE'</span> 0043 <span style="font-weight:bold">ELSE</span> 0044 STATUS <span style="color:#0057ae">=</span> <span style="color:#bf0303">'SICK'</span> 0045 <span style="font-weight:bold">END</span> 0046 <span style="font-weight:bold">WHEN</span> NUM <span style="color:#0057ae"><</span> 200 <span style="font-weight:bold">THEN</span> <span style="font-weight:bold">DO</span> 0047 <span style="font-weight:bold">NOP</span> 0048 <span style="font-weight:bold">END</span> 0049 <span style="font-weight:bold">WHEN</span> NUM <span style="color:#0057ae"><</span> 75 <span style="font-weight:bold">THEN</span> 0050 STATUS <span style="color:#0057ae">=</span> <span style="color:#bf0303">'SEVENTY FIVE'</span> 0051 <span style="font-weight:bold">OTHERWISE</span> 0052 <span style="font-weight:bold">IF</span> CAR <span style="color:#0057ae">=</span> <span style="color:#bf0303">'RAD'</span> <span style="font-weight:bold">THEN</span> 0053 STATUS <span style="color:#0057ae">=</span> <span style="color:#bf0303">'COOL'</span> 0054 STATUS <span style="color:#0057ae">=</span> <span style="color:#bf0303">'COOL'</span> 0055 <span style="font-weight:bold">ELSE</span> 0056 STATUS <span style="color:#0057ae">=</span> <span style="color:#bf0303">'RADICAL'</span> 0057 <span style="font-weight:bold">END</span> 0058 <span style="font-weight:bold">RETURN</span> STATUS 0059 </pre></body></html>