File: DITEST.BI of Tape: Sources/Multi8/m8-mprog-f

(Source file text) 

---

$JO
.TE DITEST.FT
.R FCOMP
*DITEST<DITEST
.R LOAD
*DITEST,TTY:<DITEST,DINODA
*DSK0:FORLIB/L$
.R FRUN
*DITEST$
$EN

---