Warning, /frameworks/syntax-highlighting/autotests/reference/test.rexx.ref is written in an unsupported language. File is not indexed.
0001 <Comment>/* REXX */</Comment><Normal Text> </Normal Text><br/> 0002 <Normal Text>ASCB_PTR </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><Built In>C2X</Built In><Symbol>(</Symbol><Built In>STORAGE</Built In><Symbol>(</Symbol><Built In>D2X</Built In><Symbol>(</Symbol><Built In>X2D</Built In><Symbol>(</Symbol><Normal Text>"224"</Normal Text><Symbol>)),</Symbol><Normal Text>4</Normal Text><Symbol>))</Symbol><Normal Text> </Normal Text><br/> 0003 <Instructions>SAY</Instructions><Normal Text> </Normal Text><Built In>X2B</Built In><Symbol>(</Symbol><Normal Text>ASCB_PTR</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><br/> 0004 <Comment>/* COMMENTS */</Comment><Normal Text> </Normal Text><br/> 0005 <Comment>/******************************************************************</Comment><br/> 0006 <Comment> </Comment><Region Marker>END</Region Marker><Comment> OF COMMENTS */</Comment><Normal Text> </Normal Text><br/> 0007 <Instructions>SAY</Instructions><Normal Text> </Normal Text><String>'ENTER YOUR NAME'</String><Normal Text> </Normal Text><br/> 0008 <Instructions>PULL</Instructions><Normal Text> NAME </Normal Text><br/> 0009 <Control>DO</Control><Normal Text> </Normal Text><Control>WHILE</Control><Normal Text> NAME \</Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><String>'QUIT'</String><Normal Text> </Normal Text><br/> 0010 <Normal Text> </Normal Text><Instructions>SAY</Instructions><Normal Text> </Normal Text><String>'HELLO THERE'</String><Normal Text> NAME </Normal Text><br/> 0011 <Normal Text> </Normal Text><Instructions>PULL</Instructions><Normal Text> NAME </Normal Text><br/> 0012 <Control>END</Control><Normal Text> </Normal Text><br/> 0013 <Normal Text>X </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><Built In>OUTTRAP</Built In><Symbol>(</Symbol><String>'LU.'</String><Symbol>)</Symbol><Normal Text> </Normal Text><br/> 0014 <Normal Text>"LU" </Normal Text><br/> 0015 <Normal Text>X </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><Built In>OUTTRAP</Built In><Symbol>(</Symbol><String>'OFF'</String><Symbol>)</Symbol><Normal Text> </Normal Text><br/> 0016 <Instructions>SAY</Instructions><Normal Text> </Normal Text><String>'THE NUMBER OF LINES:'</String><Normal Text> LU</Normal Text><Symbol>.</Symbol><Normal Text>0 </Normal Text><br/> 0017 <Control>DO</Control><Normal Text> I </Normal Text><Symbol>=</Symbol><Normal Text> 1 </Normal Text><Control>TO</Control><Normal Text> LU</Normal Text><Symbol>.</Symbol><Normal Text>0 </Normal Text><br/> 0018 <Normal Text> </Normal Text><Instructions>SAY</Instructions><Normal Text> LU</Normal Text><Symbol>.</Symbol><Normal Text>I </Normal Text><Comment>/* SAYS THE OUTPUT FROM LU */</Comment><Normal Text> </Normal Text><br/> 0019 <Control>END</Control><Normal Text> </Normal Text><br/> 0020 <Instructions>SAY</Instructions><Normal Text> </Normal Text><String>'GOOD-BYE.'</String><Normal Text> </Normal Text><br/> 0021 <Control>IF</Control><Normal Text> </Normal Text><Built In>DATE</Built In><Symbol>(</Symbol><String>'D'</String><Symbol>)</Symbol><Normal Text> \</Normal Text><Symbol>=</Symbol><Normal Text> "13" </Normal Text><Control>THEN</Control><Normal Text> </Normal Text><Control>DO</Control><Normal Text> </Normal Text><br/> 0022 <Normal Text> Y </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><Function>TESTSELECT</Function><Symbol>(</Symbol><Normal Text>15</Normal Text><Symbol>,</Symbol><String>'RAD'</String><Symbol>)</Symbol><Normal Text> </Normal Text><br/> 0023 <Normal Text> </Normal Text><Instructions>SAY</Instructions><Normal Text> Y </Normal Text><br/> 0024 <Normal Text> </Normal Text><Instructions>SAY</Instructions><Normal Text> Y </Normal Text><Symbol>||</Symbol><Normal Text> " </Normal Text><Symbol><--</Symbol><Normal Text> TESTSELECT" </Normal Text><br/> 0025 <Control>END</Control><Normal Text> </Normal Text><br/> 0026 <Instructions>EXIT</Instructions><Normal Text> 1 </Normal Text><br/> 0027 <Comment>/* FUNCTIONS */</Comment><Normal Text> </Normal Text><br/> 0028 <Function>TESTSELECT</Function><Symbol>:</Symbol><Normal Text> </Normal Text><Instructions>PROCEDURE</Instructions><Normal Text> </Normal Text><Comment>/* </Comment><Alert Level 3>TESTING</Alert Level 3><Comment> SELECT */</Comment><Normal Text> </Normal Text><br/> 0029 <Normal Text> </Normal Text><Instructions>PARSE</Instructions><Normal Text> </Normal Text><Instructions>ARG</Instructions><Normal Text> NUM CAR </Normal Text><Symbol>.</Symbol><Normal Text> </Normal Text><br/> 0030 <Normal Text> </Normal Text><Control>SELECT</Control><Normal Text> </Normal Text><br/> 0031 <Normal Text> </Normal Text><Control>WHEN</Control><Normal Text> NUM </Normal Text><Symbol><</Symbol><Normal Text> 25 </Normal Text><Control>THEN</Control><Normal Text> </Normal Text><br/> 0032 <Normal Text> STATUS </Normal Text><Symbol>=</Symbol><Normal Text> "25</Normal Text><Symbol>%</Symbol><Normal Text>" </Normal Text><br/> 0033 <Normal Text> </Normal Text><Control>WHEN</Control><Normal Text> NUM </Normal Text><Symbol><</Symbol><Normal Text> 50 </Normal Text><Control>THEN</Control><Normal Text> </Normal Text><br/> 0034 <Normal Text> </Normal Text><Control>DO</Control><Normal Text> </Normal Text><br/> 0035 <Normal Text> </Normal Text><Control>IF</Control><Normal Text> CAR </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><String>'RAD'</String><Normal Text> </Normal Text><Control>THEN</Control><Normal Text> </Normal Text><br/> 0036 <Normal Text> STATUS </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><String>'DOPE'</String><Normal Text> </Normal Text><br/> 0037 <Normal Text> </Normal Text><Control>ELSE</Control><Normal Text> </Normal Text><br/> 0038 <Normal Text> STATUS </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><String>'SICK'</String><Normal Text> </Normal Text><br/> 0039 <Normal Text> </Normal Text><Control>END</Control><Normal Text> </Normal Text><br/> 0040 <Normal Text> </Normal Text><Control>WHEN</Control><Normal Text> NUM </Normal Text><Symbol><</Symbol><Normal Text> 200 </Normal Text><Control>THEN</Control><Normal Text> </Normal Text><Control>DO</Control><Normal Text> </Normal Text><br/> 0041 <Normal Text> </Normal Text><Instructions>NOP</Instructions><Normal Text> </Normal Text><br/> 0042 <Normal Text> </Normal Text><Control>END</Control><Normal Text> </Normal Text><br/> 0043 <Normal Text> </Normal Text><Control>WHEN</Control><Normal Text> NUM </Normal Text><Symbol><</Symbol><Normal Text> 75 </Normal Text><Control>THEN</Control><Normal Text> </Normal Text><br/> 0044 <Normal Text> STATUS </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><String>'SEVENTY FIVE'</String><Normal Text> </Normal Text><br/> 0045 <Normal Text> </Normal Text><Control>OTHERWISE</Control><Normal Text> </Normal Text><br/> 0046 <Normal Text> </Normal Text><Control>IF</Control><Normal Text> CAR </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><String>'RAD'</String><Normal Text> </Normal Text><Control>THEN</Control><Normal Text> </Normal Text><br/> 0047 <Normal Text> STATUS </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><String>'COOL'</String><br/> 0048 <Normal Text> STATUS </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><String>'COOL'</String><Normal Text> </Normal Text><br/> 0049 <Normal Text> </Normal Text><Control>ELSE</Control><Normal Text> </Normal Text><br/> 0050 <Normal Text> STATUS </Normal Text><Symbol>=</Symbol><Normal Text> </Normal Text><String>'RADICAL'</String><br/> 0051 <Control>END</Control><Normal Text> </Normal Text><br/> 0052 <Instructions>RETURN</Instructions><Normal Text> STATUS </Normal Text><br/>