Cobol for Spot
Posted: Wed Feb 06, 2008 9:07 am
TALK-DIRTY SECTION.
A100-FIND-OUT-WHAT-SPOT-LIKES.
IF SPOT = KINKY-LOVER
GO TO A200-DRESS-UP
ELSE
IF SPOT = FIVE-MINUTE-WONDER
GO TO A400-ABANDON-LOVER
ELSE
GO TO A300-GET-DOWN-TO-IT.
A200-DRESS-UP.
MOVE CAPTAIN-JACK-OUTFIT TO SPOT.
COMPUTE SPOT = SPOT + ALCOHOL.
A300-GET-DOWN-TO-IT.
COMPUTE BED = SPOT + PHEASY.
PERFORM WAY-HAY PROCESS.
A400-ABANDON-LOVER.
MOVE ZERO TO SPOT.
A999-EXIT.
EXIT.
:D I'm a little rusty
A100-FIND-OUT-WHAT-SPOT-LIKES.
IF SPOT = KINKY-LOVER
GO TO A200-DRESS-UP
ELSE
IF SPOT = FIVE-MINUTE-WONDER
GO TO A400-ABANDON-LOVER
ELSE
GO TO A300-GET-DOWN-TO-IT.
A200-DRESS-UP.
MOVE CAPTAIN-JACK-OUTFIT TO SPOT.
COMPUTE SPOT = SPOT + ALCOHOL.
A300-GET-DOWN-TO-IT.
COMPUTE BED = SPOT + PHEASY.
PERFORM WAY-HAY PROCESS.
A400-ABANDON-LOVER.
MOVE ZERO TO SPOT.
A999-EXIT.
EXIT.
:D I'm a little rusty