Conversation

Hey, since I'm sharing some silly code today, how about something in COBOL?
IDENTIFICATION DIVISION. PROGRAM-ID. RIDICULOUS-SENTENCE-GENERATOR. DATA DIVISION. WORKING-STORAGE SECTION. 01 NOUNS. 05 NOUN OCCURS 5 TIMES INDEXED BY I. 10 NOUN-WORD PIC X(10) VALUE ' '. 01 ADJECTIVES. 05 ADJECTIVE OCCURS 5 TIMES INDEXED BY J. 10 ADJECTIVE-WORD PIC X(10) VALUE ' '. 01 VERBS. 05 VERB OCCURS 5 TIMES INDEXED BY K. 10 VERB-WORD PIC X(10) VALUE ' '. 01 ADVERBS. 05 ADVERB OCCURS 5 TIMES INDEXED BY L. 10 ADVERB-WORD PIC X(10) VALUE ' '. 01 RIDICULOUS-SENTENCE PIC X(80). PROCEDURE DIVISION. PERFORM INITIALIZE-WORDS PERFORM GENERATE-SENTENCE DISPLAY RIDICULOUS-SENTENCE STOP RUN. INITIALIZE-WORDS. MOVE 'cat' TO NOUN-WORD(1) MOVE 'banana' TO NOUN-WORD(2) MOVE 'elephant' TO NOUN-WORD(3) MOVE 'spoon' TO NOUN-WORD(4) MOVE 'zombie' TO NOUN-WORD(5) MOVE 'green' TO ADJECTIVE-WORD(1) MOVE 'crazy' TO ADJECTIVE-WORD(2) MOVE 'giant' TO ADJECTIVE-WORD(3) MOVE 'silly' TO ADJECTIVE-WORD(4) MOVE 'sparkling' TO ADJECTIVE-WORD(5) MOVE 'jumps' TO VERB-WORD(1) MOVE 'eats' TO VERB-WORD(2) MOVE 'sleeps' TO VERB-WORD(3) MOVE 'laughs' TO VERB-WORD(4) MOVE 'dances' TO VERB-WORD(5) MOVE 'quickly' TO ADVERB-WORD(1) MOVE 'happily' TO ADVERB-WORD(2) MOVE 'slowly' TO ADVERB-WORD(3) MOVE 'loudly' TO ADVERB-WORD(4) MOVE 'strangely' TO ADVERB-WORD(5). GENERATE-SENTENCE. MOVE SPACE TO RIDICULOUS-SENTENCE PERFORM RANDOMIZE-WORDS MOVE NOUN-WORD(I) TO RIDICULOUS-SENTENCE ADD 10 TO I MOVE ADJECTIVE-WORD(J) TO RIDICULOUS-SENTENCE ADD 10 TO J MOVE VERB-WORD(K) TO RIDICULOUS-SENTENCE ADD 10 TO K MOVE ADVERB-WORD(L) TO RIDICULOUS-SENTENCE ADD 10 TO L. RANDOMIZE-WORDS. COMPUTE I = FUNCTION RANDOM(5) + 1 COMPUTE J = FUNCTION RANDOM(5) + 1 COMPUTE K = FUNCTION RANDOM(5) + 1 COMPUTE L = FUNCTION RANDOM(5) + 1.
Grace Hopper would be proud 😊

Public

Notices

Feeds