File STU2.FT (FORTRAN source file)

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

C	DRUCK EINES STUNDENPLANES
C
	DIMENSION STD(12),AMO1(12),AMO2(12),ADI1(12),ADI2(12)
	DIMENSION AMI1(12),AMI2(12),ADO1(12),ADO2(12),AFR1(12)
	DIMENSION AFR2(12),ASA1(12),ASA2(12)
	WRITE(1,1)
1	FORMAT('?')
	READ(1,852)KOD
852	FORMAT('.'I2)
	IF(KOD-27)223,8,223
8	READ(1,2)IJK
2	FORMAT('FUER WIEVIELE STUNDEN WOLLEN SIE EINGEBEN ?'I2)
7	IF(IJK-12)333,3,3
3	WRITE(1,5)
5	FORMAT('H E Y !!   BITTE NICHT SO HAPPIG !'/)
	READ(1,6)IJK
6	FORMAT('NA, WIEVIEL ?  'I2)
	GOTO 7
333	DO 10 K=1,IJK
	READ(1,21)STD(K)
21	FORMAT('STUNDE ?    'I2)
	READ(1,22)AMO1(K),AMO2(K)
22	FORMAT('MONTAG ?   'A6,A3)
	READ(1,23)ADI1(K),ADI2(K)
23	FORMAT('DIENSTAG ?   'A6,A3)
	READ(1,24)AMI1(K),AMI2(K)
24	FORMAT('MITTWOCH ?  'A6,A3)
	READ(1,25)ADO1(K),ADO2(K)
25	FORMAT('DONNERSTAG ?   'A6,A3)
	READ(1,26)AFR1(K),AFR2(K)
26	FORMAT('FREITAG ?   'A6,A3)
	READ(1,27)ASA1(K),ASA2(K)
27	FORMAT('SAMSTAG ?   'A6,A3)
10	CONTINUE
	READ(1,51)I
51	FORMAT('WIE OFT SOLL DER STUNDENPLAN GEDRUCKT WERDEN ?  'I1)
C
C	BEGINN DES STUNDENPLANDRUCKES
C
	DO 100 L=1,I
	WRITE(1,31)
31	FORMAT(///////28X,'STUNDENPLAN FUER  11.2'/27X,24('=')///80('*'))
	WRITE(1,32)
32	FORMAT('*',6X,'*',6(11X,'*')/'* STD  *  MONTAG   * DIENSTAG  *',
	1' MITTWOCH  * DONNERST. *  FREITAG  *  SAMSTAG  *'/'*',6X,'*',
	26(11X,'*')/,80('*')/,'*',6X,'*',6(11X,'*'))
	DO 1000 K=1,IJK
	WRITE(1,41)STD(K),AMO1(K),AMO2(K),ADI1(K),ADI2(K),AMI1(K),AMI2(K),
	WRITE(1,42)ADO1(K),ADO2(K),AFR1(K),AFR2(K),ASA1(K),ASA2(K)
41	FORMAT('*  'I2'  * ',A6,A3,' * ',A6,A3,' * ',A6,A3)
42	FORMAT(' * ',A6,A3,' * ',A6,A3,' * ',A6,A3,' *'/'*',6X,'*',
	16(11X,'*'))
1000	CONTINUE
	WRITE(1,43)
43	FORMAT(80('*')////////)
100	CONTINUE
	READ(1,123)IANT
123	FORMAT('NOCH EINMAL ?(J ODER N)'A1)
666	IF(IANT-672)222,8,222
222	IF(IANT-928)322,223,322
322	READ(1,555)IANT
555	FORMAT('BITTE ANTWORTEN SIE MIT "J" ODER "N"! 'A1)
	GOTO 666
223	STOP
	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