53 lines
3.1 KiB
Plaintext
53 lines
3.1 KiB
Plaintext
<beginfold id='1'>/*</beginfold id='1'> REXX <endfold id='1'>*/</endfold id='1'>
|
|
ASCB_PTR = C2X(STORAGE(D2X(X2D("224")),4))
|
|
SAY X2B(ASCB_PTR)
|
|
<beginfold id='1'>/*</beginfold id='1'> COMMENTS <endfold id='1'>*/</endfold id='1'>
|
|
<beginfold id='1'>/*</beginfold id='1'>*****************************************************************
|
|
<endfold id='2'>END</endfold id='2'> OF COMMENTS <endfold id='1'>*/</endfold id='1'>
|
|
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 <beginfold id='1'>/*</beginfold id='1'> SAYS THE OUTPUT FROM LU <endfold id='1'>*/</endfold id='1'>
|
|
END
|
|
SAY 'GOOD-BYE.'
|
|
IF DATE('D') \= "13" THEN DO
|
|
Y = TESTSELECT(15,'RAD')
|
|
SAY Y
|
|
SAY Y || " <-- TESTSELECT"
|
|
END
|
|
EXIT 1
|
|
<beginfold id='1'>/*</beginfold id='1'> FUNCTIONS <endfold id='1'>*/</endfold id='1'>
|
|
TESTSELECT: PROCEDURE <beginfold id='1'>/*</beginfold id='1'> TESTING SELECT <endfold id='1'>*/</endfold id='1'>
|
|
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
|