source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZISEDIT.m@ 1093

Last change on this file since 1093 was 623, checked in by George Lilly, 15 years ago

revised back to 6/30/08 version

File size: 719 bytes
Line 
1ZISEDIT ;SFISC/AC - DEVICE EDIT ;11/9/92 17:00
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4MT S ZISTYPE="MT",DIC("A")="Select Magtape Device: " D EDIT K ZISTYPE
5 Q
6 ;
7SDP S ZISTYPE="SDP",DIC("A")="Select SDP Device: " D EDIT K ZISTYPE
8 Q
9 ;
10SPL S ZISTYPE="SPL",DIC("A")="Select Spool Device: " D EDIT K ZISTYPE
11 Q
12 ;
13HFS S ZISTYPE="HFS",DIC("A")="Select Host File Device: " D EDIT K ZISTYPE
14 Q
15 ;
16CHAN S ZISTYPE="CHAN",DIC("A")="Select Network Channel: " D EDIT K ZISTYPE
17 Q
18 ;;7.1P0;Kernel;;
19EDIT S DIC=3.5,DIC(0)="AEMQZL",DIC("S")="I $G(^(""TYPE""))="_""""_ZISTYPE_"""" D ^DIC
20 I Y'>0 K DIC Q
21 S DA=+Y I $P(Y,"^",3) S DIE=DIC,DR="2///"_ZISTYPE D ^DIE K DIE,DR
22 S DR="[XUDEVICE "_ZISTYPE_"]",DDSFILE=3.5 D ^DDS
23 K DA,DR,DDSFILE Q
Note: See TracBrowser for help on using the repository browser.