$ SET NOON $ OPEN/READ/WRITE/ERROR=EXIT/SHARE=WRITE MAP_NETTELL 'P1'"198=" $ WRITE/ERROR=EXIT MAP_NETTELL P2," ",P3," ",P4," ",P5," ",P6," ",P7," ",P8 $ LOOP: $ READ/ERR=EXIT/END=EXIT MAP_NETTELL XYZZY $ WRITE SYS$OUTPUT XYZZY $ GOTO LOOP $ EXIT: $ CLOSE MAP_NETTELL $ EXIT