File ACCMEN.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

C	PROGRAM ACCMEN		1/84
C
C
	WRITE (1,10)
	WRITE (1,200)
	WRITE (1,20)
	WRITE (1,30)
	WRITE (1,40)
	WRITE (1,50)
	WRITE (1,60)
	WRITE (1,100)
	WRITE (1,200)
900	READ  (1,300)K
1000	IF(K-1)1010,2000,1010
1010	IF(K-2)1020,2010,1020
1020	IF(K-3)1030,2020,1030
1030	IF(K-4)1040,2030,1040
1040	IF(K-5)1050,2040,1050
1050	IF(K-9)900,2045,900
C	CHAIN UPDATE MONTHLY ROUTINE
2000	CALL CHAIN('UPDATE')
C	CHAIN DISPLAY MONTHLY RECORD ROUTINE
2010	CALL CHAIN('DISPMO')
C	CHAIN DISPLAY & AVERAGE YEARLY RECORD ROUTINE
2020	CALL CHAIN('DISPYR')
C	CHAIN PRINT MONTHLY RECORD ROUTINE
2030	CALL CHAIN('PRTMON')
C	CHAIN PRINT YEARLY RECORD
2040	CALL CHAIN('PRTYR')
C	FINISH UP AND CLEAN UP
2045	STOP
C
10	FORMAT ('MONTHLY ACCOUNTING  V1.0  1/84')
20	FORMAT ('1: UPDATE MONTHLY RECORD')
30	FORMAT ('2: DISPLAY MONTHLY RECORD')
40	FORMAT ('3: DISPLAY YEARLY RECORD')
50	FORMAT ('4: PRINT MONTHLY RECORD')
60	FORMAT ('5: PRINT YEARLY RECORD')
100	FORMAT ('9: EXIT')
200	FORMAT (' ')
300	FORMAT (10HCOMMAND = ,I1)
	END

Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search