diff --git a/autotests/input/test.rexx b/autotests/input/test.rexx
--- a/autotests/input/test.rexx
+++ b/autotests/input/test.rexx
@@ -0,0 +1,52 @@
+/* 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