d $! DO	NEWS {number}
È $!		Shows the current news, or the news from any news item.
,$!
$!	If a number is not entered, then the users last news file
ô$! is examined to determine what news is available, otherwise, the
X$! news from the item specified is shown.
¼$!
 $! -end.of.info-
„$
è$ PURFLG = 0
L$ USER := 'F$DIRECTORY()
°$ LEN = 'F$LENGTH(USER)-2
$ USER := 'F$EXTRACT(1,LEN,USER)
x$ LEN = 'F$LOCATE(".",USER)
Ü$ USER := 'F$EXTRACT(0,LEN,USER)
@$ LAS = 19 !!! LAST NEWS ITEM
¤$ IF( P1.EQS."" ) THEN GOTO NOTREQ
$  LAS = 'P1'-1
l$  GOTO NOLAS
Ð$
4$NOTREQ:
˜$
ü$ OPEN/READ/ERR=NOLAS LASFILE DRA0:[SCI.NEWS]'USER'.LAS
`	$  PURFLG = 1
Ä	$  READ LASFILE LAS
(
$  CLOSE LASFILE
Œ
$  LOC = 'F$LOCATE("::", LAS )
ð
$  LAS = 'F$EXTRACT( 0,LOC,LAS )
T$
¸$NOLAS:
$ OPEN/READ/ERR=NONEW NEWFILE DRA0:[SCI.NEWS]NEWS.
€$ READ/ERR=FINNEW NEWFILE LINE
ä$ LOC = 'F$LOCATE("::",LINE )
H$ NUM = 'F$EXTRACT( 0,LOC,LINE )
¬$ IF( NUM.LE.LAS ) THEN GOTO FINNEW
$
t$  OPEN/WRITE LASFILE DRA0:[SCI.NEWS]'USER'.LAS
Ø$  WRITE LASFILE LINE
<$  CLOSE LASFILE
 $  IF( PURFLG.EQ.1 ) THEN PURGE DRA0:[SCI.NEWS]'USER'.LAS
$  WRITE SYS$OUTPUT "	DRA0:[SCI.NEWS]NEWS."
h$
Ì$ONELINE:
0$ WRITE SYS$OUTPUT LINE
”$ READ/ERR=FINNEW NEWFILE LINE
ø$ LOC = 'F$LOCATE("::",LINE )
\$ IF( LOC.EQ.'F$LENGTH(LINE) ) THEN GOTO ONELINE
À$  NUM = 'F$EXTRACT( 0,LOC,LINE )
$$  IF( NUM.GT.LAS ) THEN GOTO ONELINE
ˆ$
ì$FINNEW:
P$ CLOSE NEWFILE
´$
$NONEW: