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