Warning, file /frameworks/syntax-highlighting/autotests/html/test.rexx.html was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).
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>