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

(Source file text) 

---

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

---