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