File: DATEST.FT of Tape: Test/Tests/Blank-Tape-Unit1
(Source file text)
10 READ(0,200) MASK,IDATA IDUMMY=DAC(1,MASK,IERR,IDATA) WRITE(0,100) MASK,IERR,IDATA,IDUMMY GOTO 10 100 FORMAT(4I8) 200 FORMAT(2I4) C15 DO 20 J=1,512 C A=511.*SIN((J-1)*3.14159/512.) C DUMMY=DAC(1,4095,IERR,A) C20 CONTINUE C GOTO 15 END