Fortran question for Unix System-5 r3.
When executing fortran programs requiring "input" the screen will
show a blank screen. After entering input anyway the program
completes under Unix System V *r3*.
When the same program is compiled under Unix System V *r1* it
works as expected. The user sees the prompt.
Sounds like on Unix System V *r3* the output buffer is not being flushed.
I tried re-compiling F77. No help. Is it possible to check the runtime
libraries to see if fflush is missing?
Fortran program follows:
PROGRAM EASTER
INTEGER YEAR,METCYC,CENTRY,ERROR1,ERROR2,DAY
INTEGER EPACT,LUNA
C A PROGRAM TO CALCULATE THE DATE OF EASTER
PRINT '(A)',' INPUT THE YEAR FOR WHICH EASTER'
PRINT '(A)',' IS TO BE CALCULATED'
PRINT '(A)',' ENTER THE WHOLE YEAR, E.G. 1978 '
READ '(A)',YEAR
C CALCULATING THE YEAR IN THE 19 YEAR METONIC CYCLE-METCYC
METCYC = MOD(YEAR,19)+1
IF(YEAR.LE.1582)THEN
DAY = (5*YEAR)/4
EPACT = MOD(11*METCYC-4,30)+1
ELSE
C CALCULATING THE CENTURY-CENTRY
CENTRY = (YEAR/100)+1
C ACCOUNTING FOR ARITHMETIC INACCURACIES
C IGNORES LEAP YEARS ETC.
ERROR1 = (3*CENTRY/4)-12
ERROR2 = ((8*CENTRY+5)/25)-5
C LOCATING SUNDAY
DAY = (5*YEAR/4)-ERROR1-10
C LOCATING THE EPACT(FULL MOON)
EPACT = MOD(11*METCYC+20+ERROR2-ERROR1,30)
IF(EPACT.LT.0)EPACT=30+EPACT
IF((EPACT.EQ.25.AND.METCYC.GT.11).OR.EPACT.EQ.24)THEN
EPACT=EPACT+1
ENDIF
ENDIF
C FINDING THE FULL MOON
LUNA=44-EPACT
IF(LUNA.LT.21)THEN
LUNA=LUNA+30
ENDIF
C LOCATING EASTER SUNDAY
LUNA=LUNA+7-(MOD(DAY+LUNA,7))
C LOCATING THE CORRECT MONTH
IF(LUNA.GT.31)THEN
LUNA = LUNA - 31
PRINT '(A)',' FOR THE YEAR ',YEAR
PRINT '(A)',' EASTER FALLS ON APRIL ',LUNA
ELSE
PRINT '(A)',' FOR THE YEAR ',YEAR
PRINT '(A)',' EASTER FALLS ON MARCH ',LUNA
ENDIF
END
Any help would be appreciated,
Ken
--
WWL 📚
Legendary discoverer of Moore's Law Gordon Moore passed away. Whether it
truly is a 'law' is debatable but its effect on microprocessor development
is hard to deny. Our industry/hobby or interest was built on a technology
G. Moore helped to develop.
Happy computing!
Murray 🙂
Another recent acquisition is for all your handheld calculator enthusiasts.
From 1975 here is “How To Entertain With Your Pocket Calculator”
Click to:
https://archive.org/details/htewypc
Michael.
--
*Blog: RetroRetrospective – Fun today with yesterday's gear……..
<http://www.jongleur.co.uk/blogs/>*
*Podcast*: *Retro Computing Roundtable <http://rcrpodcast.com/>* (Co-Host)
If anybody is interested in Systron-Donner Corporation, this booklet on “Block
Programming For Physical Systems” was in a recent acquisition.
Available at: https://archive.org/details/bpfps
Michael.
--
*Blog: RetroRetrospective – Fun today with yesterday's gear……..
<http://www.jongleur.co.uk/blogs/>*
*Podcast*: *Retro Computing Roundtable <http://rcrpodcast.com/>* (Co-Host)
Hi. I came across an article about the "Sun/Tronic House" in the July/August 1981 issue of Computers and Programming magazine.
The article references the Apple 2 as the computer that controls everything in the house that also relies on solar energy.
The house, per the article, is (or was) in Greenwich, Connecticut. I also found a photo of the house at https://www.1000bit.it/storia/apple/suntronic_house.asp
I am curious to know if the house and the Apple IIs are still there. Anyone has a clue?
(A copy of the magazine is at https://archive.org/details/sim_computers-and-programming_july-august-1981_… page 38).
--
Regards,
Tarek Hoteit
Hi everyone!
Does anyone have documentation for a Vermont Research K2 Solid State
Storage device? Looks like it emulates a CDC Lark. But it may also be
configurable for other devices?
Thanks!
--
-Jon
+44 7792 149029
G'day all,
Just followed the sale of the 11/05 on eBay (#175655196586) that ended a short time ago.
It's a remarkably clean and complete machine and am not surprised at the hammer price.
I was curious what the quad-height card with two ribbon cables coming out the sides was?
It appears to have a couple leads as well, presumably going to the single-height board.
Some sort of TTY interface? I presume non-DEC from the nylon handles.
Steve
Hello everyone,
First time posting here...
I am wondering if anyone knows of someone looking to get rid of a working
(preferably) IBM AS/400e 9401-150? For local pickup it would need to be
around the Atlanta, GA area in the US.
Thanks!
-Peter
