Cobol for Spot

Pheasy · Post by **Pheasy** » 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

YZGI · Post by **YZGI** » Wed Feb 06, 2008 9:11 am

Is this in code? Um Spot, I think Pheasy has learned some Alpha Centauri code. Have fun kids..

Post by **spot** » Wed Feb 06, 2008 9:13 am

That's so disgusting. I've spent years and years trying to forget that existed!

Some of us pretended to be modular. That syntax, though.

PERFORM B120-LOCATE-PYJAMAS THRU B240-CLEAN-TEETH.

and not a hint in the B-PROCESSES area where the call might start or terminate.

"Hey what happened to my indenting!"? You used indenting?? Space on that coding pad's at a premium, you can only go to column 72.

Pheasy · Post by **Pheasy** » Wed Feb 06, 2008 9:16 am

:wah: hey I had to dig deep amongst the cobwebs in my brain for that - you could of at least assigned some files and carried out a test run

Chezzie · Post by **Chezzie** » Wed Feb 06, 2008 9:21 am

pheasy I followed your instruction and the website that popped up would be banned in soho, thailand and all knocking shops...dirty bird!!!:wah:

Pheasy · Post by **Pheasy** » Wed Feb 06, 2008 9:37 am

Chezzie;772112 wrote: pheasy I followed your instruction and the website that popped up would be banned in soho, thailand and all knocking shops...dirty bird!!!:wah:

:o Oh! if only I had known ..... my bad

sunny104 · Post by **sunny104** » Wed Feb 06, 2008 9:39 am

:yh_hypno :-3