1$!
2$! @(#)startviewer.com	6.13 04/01/14
3$!
4$! Image viewer startup procedure.  See the INSTALL.VMS file for details.
5$! OpenVMS versions: 6.0 and later, tested with 7.2 and 7.3 on VAX(tm) machines
6$!                   and 7.2-1 as well as 7.3-1 on Alpha(tm) machines
7$!
8$!    xmcd  - Motif(R) CD Audio Player/Ripper
9$!    cda   - Command-line CD Audio Player/Ripper
10$!    libdi - CD Audio Device Interface Library
11$!
12$!    Copyright (C) 1993-2004  Ti Kan
13$!    E-mail: xmcd@amb.org
14$!    Contributing author: Michael Monscheuer
15$!    E-mail: M.Monscheuer@t-online.de
16$!
17$!    This program is free software; you can redistribute it and/or modify
18$!    it under the terms of the GNU General Public License as published by
19$!    the Free Software Foundation; either version 2 of the License, or
20$!    (at your option) any later version.
21$!
22$!    This program is distributed in the hope that it will be useful,
23$!    but WITHOUT ANY WARRANTY; without even the implied warranty of
24$!    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
25$!    GNU General Public License for more details.
26$!
27$!    You should have received a copy of the GNU General Public License
28$!    along with this program; if not, write to the Free Software
29$!    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
30$!
31$!
32$	IF F$MODE() .NES. "OTHER"
33$	 THEN
34$	  DEFINE SYS$OUTPUT NLA0:
35$	  SHOW DISPLAY/SYMBOL
36$	  DEASSIGN SYS$OUTPUT
37$	  OPEN/WRITE 0 SYS$LOGIN:XMCD_VIEWER.PAR
38$	  WRITE 0 "''P1'"
39$	  WRITE 0 "''DECW$DISPLAY_NODE'"
40$	  WRITE 0 "''DECW$DISPLAY_TRANSPORT'"
41$	  CLOSE 0
42$	  SET MESSAGE/NOTEXT/NOFACILITY/NOIDENTIFICATION/NOSEVERITY
43$	  RUN/DETACHED SYS$SYSTEM:LOGINOUT-
44             /INPUT='F$ENVI("PROCEDURE")'/AUTHORIZE-
45             /OUTPUT=NLA0:/ERROR=NLA0:/PRIO=4
46$!
47$! Report success to xmcd
48$!
49$         IF $SEVERITY .EQ. 1 THEN EXIT %X10000000
50$	  EXIT
51$	ENDIF
52$!
53$	SET DEFAULT SYS$LOGIN
54$	OPEN/READ 0 XMCD_VIEWER.PAR
55$	READ 0 PIXFIL
56$	READ 0 NODE
57$	READ 0 TRANS
58$	CLOSE 0
59$	DELETE/NOCONFIRM  XMCD_VIEWER.PAR;*
60$	SET DISPLAY/CREATE/NODE='NODE'/TRANSPORT='TRANS'/EXECUTIVE
61$!
62$! Replace the directory in the next line with the directory your copy
63$! of XV is resident in.
64$!
65$	XV :== $KIDDY$DKA0:[XV-3_10A]XV
66$	XV 'PIXFIL'COVER.GIF -fixed -ge 300x300+24-590
67$
68