;
; COMMAND FILE TO TEST MATLIB ROUTINES
;
.ENABLE SUBSTITUTION
.SETS NULL ""
;
.ASK X DO YOU WANT SOURCE LISTINGS
ASN NL:=LS:
.IFT X ASN SY:=LS:
.22:.ASKS FILE ENTER NAME OF FORTRAN MODULE
.IF FILE EQ NULL .GOTO 25
F4P 'FILE',LS:'FILE'='FILE'
.25:
;
.ASK X DO YOU WANT A TASK MAP
ASN NL:=MP:
.IFT X ASN SY:=MP:
FTB 'FILE',MP:'FILE'='FILE',MATLIB/LB
RUN 'FILE'
