A Cookie

Funny pictures, stories, whatever - just light entertainment
  • Sponsored Links
Post Reply
User avatar
trike lady
Posts: 890
Joined: Thu Mar 24, 2011 5:58 pm
Location: Butler, PA
Motorcycle: 1993 GL1500 Aspencade with Voyager (Sold)
1983 GL650I SilverWing Interstate (Sold)

A Cookie

Post by trike lady » Sun Aug 16, 2015 12:19 am

I was in the local computer shop buying a pack of CDs and on the counter was a bowl of fortune cookies, I asked if I could have one. I opened the package and broken open the cookie to read the fortune and it made no sense as it read:
DO 11 I = 1,LGTH1
11 ARRAY(I) = 0.D0
DO 12 I = 1,LGTH2
12 IARRAY(I) = 0
I said to him, "this makes no sense, what does this mean?"
His reply was, "These are 'FORTRAN' cookies".

I.M.B.B.A. Technician II Certified

Posts: 950
Joined: Thu Nov 27, 2014 2:34 am
Location: Penrith Australia
Motorcycle: 2001 GL1500F6C Valkyrie
1982 CX500 Turbo (restoration project)
1981 GL1100 Interstate (sold)
1988 GL1500 (sold)

Re: A Cookie

Post by Aussie81Interstate » Sun Aug 16, 2015 3:57 am


a coded cookie - quite novel in a PC shop

can you decode it for us laymen ?

User avatar
Posts: 3072
Joined: Wed Sep 29, 2010 6:59 pm
Location: North Bay, Ontario, Canada
Motorcycle: 2009 GL1800 AD
1987 Harley Softail Custom
1974 Harley FLH (sold)
1965 Harley FLHE (sold)
1957 Harley Chopper (sold)

Re: A Cookie

Post by themainviking » Sun Aug 16, 2015 6:37 am

In this program 11 and 12 are flags(labels). labels specify the last line of the loop.

So the line

DO 11 I = 1,LGTH1

means :

Run the line that starts with the flag=11 for LGTH-I rep.

and DO 12 I = 1,LGTH2 means:

Run the line that starts with the flag=12 for LGTH-2 rep.

Values would need to be added in order to run the program.

I find it is an excellent way for a computer shop to give you a cookie. And they were indeed Fortran cookies, :lol:
It ain't about the destination - it's all about the journey


User avatar
Posts: 2043
Joined: Mon Jan 03, 2011 1:17 am
Location: Kapunda, SouthAustralia
Motorcycle: 1997 GL1500 Spectre Red Aspencade

Re: A Cookie

Post by redial » Fri Aug 21, 2015 11:31 am

Even though the last time I wrote any ForTrash was back in 1969, I could still work it out. But I was fairly adept at Assembly language, back in those days, when I worked at the Australian Customs.

Len in Kapunda

The world is not going to finish today, as it is already tomorrow in Australia and New Zealand, and other islands of foreign nations such as Guam and Samoa.

Post Reply