2 ms·
Oh fun. Chuckled at the COBOL snippet. 001300 IF WANT-FIBER = 'Y' AND GOOD-FIT = 'Y' THEN 001400 MOVE 'FIBER' TO PORTLAND 001500 MOVE
by gregsq 13y ago
Oh fun. Chuckled at the COBOL snippet.
001300 IF WANT-FIBER = 'Y' AND GOOD-FIT = 'Y' THEN
001400 MOVE 'FIBER' TO PORTLAND
001500 MOVE 'GOODBYE' TO COMCAST
001600 ELSE
001700 MOVE 'SAD' TO PORTLAND
001800 MOVE 'PAYCHECK' TO COMCAST
001900 END-IF.
002000 STOP RUN.
- mindcrime 13y agoI'm tempted to see if I can remember enough RPG/400 to whip up the RPG version (but pro Triangle, NC, not Portland).