1 EXECUTE FUNCTION
2 admin
2 task
3 ( "ontape archive
4! file
4?
4 directory
4 tape
5? level
5.1! 0
5.1 1
5.1 2
6 " , "location"
7? ,"block_size"
8 ) ;