View previous topic :: View next topic
|
Author |
Message |
chenxuehua
New User
Joined: 28 Nov 2005 Posts: 14 Location: Shanghai China
|
|
|
|
IDENTIFICATION DIVISION.
PROGRAM-ID.chenxuehua.
DATA-WRITEN.31/12/05.
DATA-COMPILED.31/12/05.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUTFILE ASSIGN TO OUTFILE ORGANIZAION IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD GIRLFILE.
FD COMPUTERFILE.
WORKING-STORAGE SECTION.
01 ROL PIC X(????).
01 PROBLEM.
04 ANSEWER PIC X(?).
01 DOING.
04 YOURWORD PIC X(?).
04 YOURWORK PIC X(?).
01 mood.
04 yourmood pic x(?).
04 girlmood pic x(?).
PROCEDURE DIVISION.
love-BEGIN.
IF ROL = 'GIRL' THEN
YOURMOOD = 'HAPPY'
IF ROL = 'COMPUTER' THEN
YOUMOOD = 'DULL'
END-IF .
love-WORK.
IF YOURWORD = '好听' THEN
GIRLMOOD = 'HAPPY'
IF YOURWORD = 'DULL' THEN
GIRLMOOD = 'UNHAPPY'
IF YOURWORD AND YOURWORK = 'WRONG'
THEN
GO TO END
//love will be ended,you never have the second chance.
IF ROL = 'COMPUTER'
IF YOURWORD = 'TRUE' THEN
COMPUTER WILL RUN
IF YOURWORD = 'WRONG' THEN
SYSTEM OUT (' ERROR COMMAND')
GOTO BEGIN.
//the system will tell you where is wrong, and you can try again
END-IF.
love-END.
just a joke happy newer everyone! from Shanghai China |
|
Back to top |
|
|
chenxuehua
New User
Joined: 28 Nov 2005 Posts: 14 Location: Shanghai China
|
|
|
|
oh i forgot that:
girl will give you son or daughter ,but computer will help you make money.
which is better? |
|
Back to top |
|
|
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005 Posts: 1448 Location: Chicago, IL
|
|
|
|
chen...
Wonderful attemp to synchronize two biggest mysteries on the earth.
Priyesh. |
|
Back to top |
|
|
chenxuehua
New User
Joined: 28 Nov 2005 Posts: 14 Location: Shanghai China
|
|
|
|
i really don't know what's the girl thinking for?
especially Chinese girl. |
|
Back to top |
|
|
khamarutheen
Active Member
Joined: 23 Aug 2005 Posts: 677 Location: NJ
|
|
|
|
Hi chen,
Quote: |
i really don't know what's the girl thinking for?
especially Chinese girl. |
Not only the Chinese gal,,,, All the gals are difficult to judge... Any way a good try |
|
Back to top |
|
|
chenxuehua
New User
Joined: 28 Nov 2005 Posts: 14 Location: Shanghai China
|
|
|
|
Yes,every girl gives you only on chance.
If you do something wrong...... |
|
Back to top |
|
|
|