Warning, /frameworks/syntax-highlighting/autotests/input/test.rexx is written in an unsupported language. File is not indexed.
0001 /* REXX */ 0002 ASCB_PTR = C2X(STORAGE(D2X(X2D("224")),4)) 0003 SAY X2B(ASCB_PTR) 0004 /* COMMENTS */ 0005 /****************************************************************** 0006 END OF COMMENTS */ 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 /* SAYS THE OUTPUT FROM LU */ 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 /* FUNCTIONS */ 0028 TESTSELECT: PROCEDURE /* TESTING SELECT */ 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