File DIRK2.FT (FORTRAN source file)

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

	DIMENSION ISET(9),ICODE(180)
	DO 1 I=1,9
1	ISET(I)=I
	DO 2 I=1,180
2	ICODE(I)=I-1
	CALL SRAND
	DO 3 I=1,17
3	J=IRAND(0)
	DO 10 NS=1,4
	CALL SHUF1(ICODE,1,180,1)
	WRITE(1,99)
99	FORMAT(3H*20)
	DO 20 N=1,180
	CALL SHUF1(ISET,1,9,1)
	NN=ICODE(N)
	I1=NN/90
	NN=NN-90*I1
	I2=NN/45
	NN=NN-45*I2
	II3=NN/15
	I3=II3*2+1
	IF (I2)21,21,22
 22	NN=NN-15*II3
	I4 =NN/(15/I3)+1
21	WRITE(1,100)(ISET(I),I=1,I3)
 100	FORMAT(1H/,5I1)
	I1=I1+1
	GO TO (23,24),I1
23	II2=I2+1
	GO TO (25,26),II2
25	WRITE(1,101)I2
101	FORMAT(2H/-,I1)
	GO TO 20
26	WRITE(1,102)I2
102	FORMAT(2H/+,I1)
	GO TO 20
24	ITEST=ISET(I3+1)
	IF(I2-1)27,28,27
28	ITEST=ISET(I4)
27	WRITE(1,103)ITEST,I2
103	FORMAT(1H/,2I1)
20 	CONTINUE
10	CONTINUE
	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