A Cookie


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

A Cookie

Postby 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".
:lol:


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

User avatar
Aussie81Interstate
Posts: 682
Joined: Thu Nov 27, 2014 2:34 am
Location: Penrith Australia
Motorcycle: 1982 CX500 Turbo (restoration project)
1981 GL1100 Interstate (sold)
1988 GL1500

Re: A Cookie

Postby Aussie81Interstate » Sun Aug 16, 2015 3:57 am

hmmmm,

a coded cookie - quite novel in a PC shop

can you decode it for us laymen ?

User avatar
themainviking
Posts: 2578
Joined: Wed Sep 29, 2010 6:59 pm
Location: North Bay, Ontario, Canada
Motorcycle: 2009 GL1800 AD

Re: A Cookie

Postby 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

ImageImage

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

Re: A Cookie

Postby 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.


Return to “Just for Fun”




Who is online

Users browsing this forum: No registered users and 1 guest