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

C	TESTMS.FT, PAGE 1 OF 1.	(5/19/72 - C.M.MOORE, RICE U., HOUSTON)
C
C	CREATES DATA FILE DUMMY.DA WHICH CAN THEN BE VIEWED BY
C	MAGSPY TO DEMONSTRATE THE POINT AND OCTAL NUMBER DISPLAY MODES.
C
C	USES SUBROUTINES CONTAINED IN LIBRARY FILE LIB12.RL
C	SEE WRITE-UP OF DECUS 12-48 FOR THEIR EXPLANATION.
C
	DIMENSION XFILE(2),IDAT(256)
C
	XFILE='DUMMY '
	XFILE(2)='DA'
C
	NB=MSYS(XFILE,LMAX)
	IF(NB)100,100,140
C	SYS NOT FOUND???
100	CALL EXIT
C	CHECK SPACE AVAILABLE ON SYS
140	IF(LMAX-2)160,200,200
C	NO ROOM ON SYS
160	CALL EXIT
C	CREATE 2 256-WORD DATA BLOCKS ON SYS
C	1ST BLOCK CONTAINS INTEGERS FROM 0017 TO 7777
200	DO 300 I=1,256
300	IDAT(I)=I*16-1
	CALL WSYS(2,NB,IDAT)
C	2ND BLOCK CONTAINS SINE WAVES
	DO 400 I=1,256
	X=I-1
	X=1600.0*SIN(X*6.2831853/255.0)+400.0*SIN(X*6.2831853/12.75)
400	IDAT(I)=X
	NB=NB+1
	CALL WSYS(2,NB,IDAT)
	CALL CSYS(2)
	END