Name: 2009-08-18 10:35
Output a thousand Sussmen in an individualistic way.
IDENTIFICATION DIVISION.
PROGRAM-ID. Prog-Can-Go-To-Hell.
AUTHOR. UMH memesmith.
DATE-WRITTEN. AUG 2009.
* COMMENTS.
*****************************************************
* You're a bunch of assholes, you know that? You all
* deserve what's coming to you. I tried to be nice
* and give you a chance, but you had to keep using
* that fucking stupid meme. I won't have it. Enjoy
* your meta-sage, motherfuckers.
*****************************************************
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WORK-AREAS.
05 SUSSMANS-WRITTEN PIC 9999.
01 SUSSQUOTE.
05 SQ-KICKI PIC X(2).
05 FILLER PIC X(6).
05 SQ-IMMIG PIC X.
05 FILLER PIC X(7).
05 SQ-OFFIC PIC X.
05 FILLER PIC X(13).
01 SUSSQUOTE-B.
05 FILLER PIC X(3).
05 SQ-INTHE PIC X.
05 FILLER PIC X(21).
PROCEDURE DIVISION.
PROGRAM-BEGIN.
PERFORM 100-INITIALIZE.
PERFORM 200-RUNSUSSMAN.
STOP RUN.
100-INITIALIZE.
MOVE ZEROES TO SUSSMANS-WRITTEN
MOVE "AND CONJURE THE SPIRITS OF THE" TO SUSSQUOTE
MOVE " COMPUTER WITH OUR SPELLS" TO SUSSQUOTE-B.
200-RUNSUSSMAN.
PERFORM VARYING SUSSMANS-WRITTEN FROM 0 BY +1
UNTIL SUSSMANS-WRITTEN = 1000
DISPLAY SQ-OFFIC SQ-IMMIG SQ-OFFIC SQ-OFFIC
SQ-INTHE SQ-KICKI
END-PERFORM.