23 lines
652 B
Mathematica
23 lines
652 B
Mathematica
%ZISS2 ;AC/SFISC - Collect screen parameters(Graphic set) ;11/04/97 16:28
|
|
;;8.0;KERNEL;**69**;JUL 10, 1995
|
|
Q
|
|
SETZ D KILL F %ZISI=1:1 S %ZISZ=$T(Z+%ZISI) Q:%ZISZ="" D SETDR^%ZISS
|
|
D SET2^%ZISS1 G KV^%ZISS
|
|
Q
|
|
KILL K IOG1,IOG0,IOTLC,IOBLC,IOTRC,IOBRC,IOMT,IOTT,IOBT,IOLT,IORT,IOVL,IOHL
|
|
Q
|
|
Z ;;Variable name;Element number;Global subscript;Piece position;1=input key
|
|
IOG1 ;;IOG1;68;G1;E
|
|
IOG0 ;;IOG0;69;G0;E
|
|
IOTLC ;;IOTLC;69.11;G;1
|
|
IOBLC ;;IOBLC;69.12;G;2
|
|
IOTRC ;;IOTRC;69.13;G;3
|
|
IOBRC ;;IOBRC;69.14;G;4
|
|
IOMT ;;IOMT;69.2;G;5
|
|
IOTT ;;IOTT;69.3;G;6
|
|
IOBT ;;IOBT;69.4;G;7
|
|
IOLT ;;IOLT;69.5;G;8
|
|
IORT ;;IORT;69.6;G;9
|
|
IOVL ;;IOVL;69.7;G;10
|
|
IOHL ;;IOHL;69.8;G;11
|