Warning, /frameworks/syntax-highlighting/autotests/input/test.rexx is written in an unsupported language. File is not indexed.

 /* REXX */                                                         
 ASCB_PTR = C2X(STORAGE(D2X(X2D("224")),4))                         
 SAY X2B(ASCB_PTR)                                                  
 /* COMMENTS */                                                     
 /******************************************************************
    END OF COMMENTS */                                              
 SAY 'ENTER YOUR NAME'                                              
 PULL NAME                                                          
 DO WHILE NAME \= 'QUIT'                                            
    SAY 'HELLO THERE' NAME                                          
    PULL NAME                                                       
 END                                                                
 X = OUTTRAP('LU.')                                                 
 "LU"                                                               
 X = OUTTRAP('OFF')                                                 
 SAY 'THE NUMBER OF LINES:' LU.0                                    
 DO I = 1 TO LU.0                                                   
   SAY LU.I /* SAYS THE OUTPUT FROM LU */                           
 END                                                                
 SAY 'GOOD-BYE.'                                                    
 IF DATE('D') \= "13" THEN DO                                       
   Y = TESTSELECT(15,'RAD')                                         
   SAY Y                                                            
   SAY Y || " <-- TESTSELECT"               
 END                                        
 EXIT 1                                     
 /* FUNCTIONS */                            
 TESTSELECT: PROCEDURE /* TESTING SELECT */ 
  PARSE ARG NUM CAR .                       
  SELECT                                    
    WHEN NUM < 25 THEN                      
      STATUS = "25%"                        
    WHEN NUM < 50 THEN                      
      DO                                    
        IF CAR = 'RAD' THEN                 
           STATUS = 'DOPE'                  
        ELSE                                
           STATUS = 'SICK'                  
      END                                   
    WHEN NUM < 200 THEN DO                  
      NOP                                   
    END                                     
    WHEN NUM < 75 THEN                      
      STATUS = 'SEVENTY FIVE'               
    OTHERWISE                               
      IF CAR = 'RAD' THEN                   
        STATUS = 'COOL'
       STATUS = 'COOL'   
     ELSE                
       STATUS = 'RADICAL'
 END                     
 RETURN STATUS