File KAKO.FT (FORTRAN source file)

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

	SUBROUTINE KAKO(XA,XE,YA,YE)
C KARTHESISCHES KOORDINATEN-NETZ - ECKPUNKTE (0,0),(1000,700)
C ZEILEN 1,2 UND 3 BIS SPALTE 30 FREI FUER BESCHRIFTUNG
C FORTRAN II
C SR : ERASE.FT / FDIS.FT
	CALL ERASE
	WRITE(1,1100)XA,XE,YA,YE
1100	FORMAT(32X'XA = 'E12.4'  XE = 'E12.4/
	132X'YA = 'E12.4'  YE = 'E12.4)
	CALL FDIS(0,0,0)
	CALL FDIS(1,0,700)
	CALL FDIS(1,1000,700)
	CALL FDIS(1,1000,0)
	CALL FDIS(1,0,0)
	IX=0
	DO 1003 N=1,49
	IX=IX+20
	CALL FDIS(0,IX,0)
	IF(IREM(N/5))1002,1002,1001
1001	CALL FDIS(1,IX,7)
	CALL FDIS(0,IX,700)
	CALL FDIS(1,IX,693)
	GOTO 1003
1002	CALL FDIS(1,IX,15)
	CALL FDIS(0,IX,700)
	CALL FDIS(1,IX,685)
1003	CONTINUE
	IY=0
	DO 1006 N=1,49
	IY=IY+14
	CALL FDIS(0,0,IY)
	IF(IREM(N/5))1005,1005,1004
1004	CALL FDIS(1,7,IY)
	CALL FDIS(0,1000,IY)
	CALL FDIS(1,993,IY)
	GOTO 1006
1005	CALL FDIS(1,15,IY)
	CALL FDIS(0,1000,IY)
	CALL FDIS(1,985,IY)
1006	CONTINUE
	RETURN
	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