File: DITEST.BI of Tape: Test/Tests/Blank-Tape-Unit1

(Source file text) 

---

$JO
.TE DITEST.FT
.KOM DITEST<DITEST
.LADE DITEST,TTY:<DITEST,DINODA
.EXEC DITEST
$EN

---