2. Dracula hates stakes. Evil hates mirrors. I HATE COBOL!
I didn't even have to look that one up! :scared:
I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!! I HATE IT!!
9. I started with an 800XL, even had a floppy drive
Great machine! Good OS (DOS 2.5), worked more like a real operating system, none of those cryptic C64 commands. It's still in a box in my garage. Cartridge slot too, a great game machine for its time.
IDENTIFICATION DIVISION. PROGRAM-ID. COBOLFLASHBACK. DATE-WRITTEN. 05/24/04. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. SAPPHO-COBOL. OBJECT-COMPUTER. DU-COBOL. INPUT-OUTPUT SECTION. FILE-CONTROL. ....SELECT FIRST-FILE ASSIGN TO DISK 'BART.TXT' ......ORGANIZATION IS LINE SEQUENTIAL. ....SELECT SECOND-FILE ASSIGN TO DISK 'LISA.TXT' ......ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. 01 INPUT-REC. ....03 A-MEANINGLESS-VARIABLE. ....03 ANOTHER-MEANINGLESS-VARIABLE PIC X(10). ....05 PORTRZEBIE PIC X(10). ....07 MOXIE PIC X(5). ....09 WHAT-ME-WORRY PIC X(5). FD SECOND-FILE RECORD CONTATINS 30 CHARACTERS. 01 OUTPUT-REC PIC X(30). PROCEDURE DIVISION. BEGIN. DISPLAY " " LINE 1 POSITION 1 ERASE EOS. OPEN INPUT F1 OUTPUT SECOND-FILE. DISPLAY "I USED TO CODE LIKE THIS FOR A LIVING." LINE 10 POSITION 5. ....READ INPUT-FILE AT END DISPLAY 'I ran out of meaningless records to display.'. ....MOVE INPUT-RECORD TO OUTPUT-RECORD. ....WRITE OUTPUT-RECORD. ....CLOSE FIRST-FILE SECOND-FILE. STOP RUN. EXIT.
(I think it's functional -- I haven't touched COBOL since 1987.)
Powered by DCForum+ Version 1.1 Copyright 1997-2002 DCScripts.com
Software has been extensively modified by the DU administrators
Important Notices: By participating on this discussion
board, visitors agree to abide by the rules outlined on our Rules
page. Messages posted on the Democratic Underground Discussion Forums are the
opinions of the individuals who post them, and do not necessarily represent
the opinions of Democratic Underground, LLC.