TASK\WRITE I$
TASK\WRITE A$
TASK\WRITE CHAIN$
SIC\IF (A$.LT.0.OR.A$.GT.1) THEN
SIC\MESSAGE E EXAMPLE "Parameter A$ out of bounds"
SIC\RETURN
SIC\ENDIF
TASK\WRITE ARRAY$
TASK\WRITE FILE$
TASK\WRITE OLD$
TASK\GO
