53 lines
2.7 KiB
Rexx
53 lines
2.7 KiB
Rexx
/* 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
|