SEND MAP MAPPINGDEV

1 SEND MAP(name)  MAPPINGDEV(data-value)  SET(ptr-ref)
2? MAPSET(name)
3.0? FROM(data-area)
3.1? DATAONLY
3.2? LENGTH(data-value)
3 MAPONLY
4? CURSOR
4.1? ( data-value )
5? FORMFEED
6? 
6 ERASE
6 ERASEAUP
7? PRINT
8? FREEKB
9? ALARM
10? FRSET