source:
WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYHSF.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 300 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | LBRYHSF ;ISC2/DJM-NETWORK AUDIOVISUAL UPDATE ;[ 05/23/97 12:13 PM ] |
2 | ;;2.5;Library;**2**;Mar 11, 1996 | |
3 | SERV W @IOF,?5,"VA Library Service File View ",?60 S Y=DT X ^DD("DD") W Y,! | |
4 | S DIC="^DIC(49,",DIC(0)="AEMQ" D ^DIC Q:Y<0 S DA=+Y | |
5 | K DR D EN^DIQ | |
6 | R !!,"Press return to continue...",C:DTIME | |
7 | G SERV |
Note:
See TracBrowser
for help on using the repository browser.