PXRMUTIL ;SLC/PKR/PJH - Utility routines for use by PXRM. ;02/25/2021
Source file <PXRMUTIL.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 10 | EN^DDIOL ($$FIND1,FIND)^DIC ($$GET1,FIELD)^DID (,FILE,UPDATE)^DIE ^DIK ($$CREF,$$OREF)^DILF EN1^DIP $$GET1^DIQ ^DIR EN^DIWE |
Kernel | 7 | (,HOME)^%ZIS ^%ZISC ($$DEL,$$FTG,$$PWD)^%ZISH ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT OUT^XPDMENU (BMES,MES)^XPDUTL |
Clinical Reminders | 3 | $$CTFMD^PXRMDATE MKWSDEV^PXRMHOST (APRINT,AWRITE,OPTION,PROTOCOL)^PXRMUTIL |
List Manager | 1 | FULL^VALM1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ACOPY(REF,OUTPUT) | ;Copy all the descendants of the array reference into a linear
|
|
APRINT(REF) | ;Write all the descendants of the array reference.
|
|
ATTVALUE(STRING,ATTR,SEP,AVSEP) | ;STRING contains a list of attribute value
|
|
AWRITE(REF) | ;Write all the descendants of the array reference, including the
|
|
BORP(DEFAULT) | ;Ask the user if they want to browse or print.
|
|
DEFURLAD(DEF,NEWURL) | ;Add a new URL to a reminder definition.
|
|
DEFURLUP(DEF,OLDURL,NEWURL) | ;Update a URL in a reminder definition.
|
|
DELTLFE(FILENUM,NAME) | ;Delete top level entries from a file.
|
|
DIP(VAR,IEN,PXRMROOT,FLDS) | ;Do general inquiry for IEN return formatted
|
|
FNFR(ROOT) | ;Given the root of a file return the file number.
|
|
GPRINT(REF) | ;General printing.
|
|
GPRINTQ | ;Queued general printing.
|
|
NTOAN(NUMBER) | ;Given an integer N return an alphabetic string that can be
|
|
OPTION(OPTLU,ACTION,OOM,OOMTEXT) | ;Out of order loop over options in list.
|
|
OPTIONS(ACTION,OOMTEXT) | ;Disable/enable options.
|
|
PROTOCOL(PROTLU,ACTION,DISABLE,DISTEXT) | ;Disable/enable protocols.
|
|
PROTCOLS(ACTION,DISTEXT) | ;Disable/enable protocols.
|
|
RENAME(FILENUM,OLDNAME,NEWNAME) | ;Rename entry OLDNAME to NEWNAME in
|
|
RMEHIST(FILENUM,IEN) | ;Remove the edit history for a reminder file.
|
|
SEHIST(FILENUM,ROOT,IEN) | ;Set the edit date and edit by and prompt the
|
|
SETPVER(VERSION) | ;Set the package version
|
|
SFRES(SDIR,NRES,FIEVAL) | ;Save the finding result.
|
|
SSPAR(FIND0,NOCC,BDT,EDT) | ;Set the finding search parameters.
|
|
STRREP(STRING,TS,RS) | ;Replace every occurrence of the target string (TS)
|
|
UPEHIST(FILENUM,IEN,TEXT,MSG) | ;Update the edit history.
|
|
VEDIT(ROOT,IEN) | ;This is used as a DIC("S") screen to select which entries
|
Name | Field # of Occurrence |
---|---|
^%ZIS | GPRINT+3 |
HOME^%ZIS | GPRINT+16 |
^%ZISC | GPRINT+25, GPRINTQ+3 |
$$DEL^%ZISH | DIP+46 |
$$FTG^%ZISH | DIP+27 |
$$PWD^%ZISH | DIP+12 |
^%ZTLOAD | GPRINT+14 |
EN^DDIOL | APRINT+21, AWRITE+21 |
$$FIND1^DIC | DELTLFE+2, PROTOCOL+2, RENAME+3, RENAME+6 |
FIND^DIC | OPTION+2 |
$$GET1^DID | RMEHIST+3, UPEHIST+5 |
FIELD^DID | SEHIST+4, UPEHIST+2 |
^DIE | SETPVER+3 |
FILE^DIE | DEFURLUP+12, DELTLFE+6, PROTOCOL+9, RENAME+8 |
UPDATE^DIE | DEFURLAD+11, SEHIST+27, UPEHIST+15 |
^DIK | RMEHIST+9 |
$$CREF^DILF | GPRINT+9 |
$$OREF^DILF | GPRINT+11 |
EN1^DIP | DIP+22 |
$$GET1^DIQ | OPTION+5, PROTOCOL+4, SEHIST+13 |
^DIR | BORP+5, GPRINT+26, SEHIST+22 |
EN^DIWE | SEHIST+24 |
$$CTFMD^PXRMDATE | SSPAR+4, SSPAR+9, SSPAR+10 |
MKWSDEV^PXRMHOST | DIP+10 |
APRINT^PXRMUTIL | GPRINT+22, GPRINTQ+2 |
AWRITE^PXRMUTIL | SEHIST+28 |
OPTION^PXRMUTIL | OPTIONS+4, OPTIONS+5, OPTIONS+6, OPTIONS+7, OPTIONS+8 |
PROTOCOL^PXRMUTIL | PROTCOLS+5, PROTCOLS+6, PROTCOLS+7 |
FULL^VALM1 | GPRINT+20 |
$$FMTE^XLFDT | SEHIST+12 |
$$NOW^XLFDT | DIP+13, SEHIST+12, UPEHIST+12 |
OUT^XPDMENU | OPTION+9 |
BMES^XPDUTL | OPTIONS+3, PROTCOLS+3 |
MES^XPDUTL | APRINT+20, AWRITE+20 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^ORD(101 - [#101] | FIND1^DIC, GET1^DIQ |
^DIC(19 - [#19] | FIND^DIC, GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
^PXRM(800 - [#800] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PXD(811.9 - [#811.9] | DEFURLAD+2, DEFURLAD+4, DEFURLUP+2, DEFURLUP+4 |
^TMP("PXRMDDOC" | SSPAR+14* |
^TMP("PXRMUTIL" | DIP+26!, DIP+35, DIP+36, DIP+37, DIP+40, DIP+41, DIP+43! |
^TMP("PXRMWP" | SEHIST+3!, SEHIST+25!, SEHIST+26, SEHIST+29! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | DIP+6~, GPRINT+2* |
%ZIS("HFSMODE" | DIP+19* |
%ZIS("HFSNAME" | DIP+20* |
ACTION | OPTION~, OPTION+6, OPTION+7, OPTIONS~, OPTIONS+2, OPTIONS+3, OPTIONS+4, OPTIONS+5, OPTIONS+6, OPTIONS+7 , OPTIONS+8, PROTOCOL~, PROTOCOL+5, PROTOCOL+6, PROTCOLS~, PROTCOLS+2, PROTCOLS+3, PROTCOLS+5, PROTCOLS+6, PROTCOLS+7 |
ALPH | NTOAN+3~ |
ALPH( | NTOAN+18 |
ALPH(0 | NTOAN+4* |
ALPH(1 | NTOAN+4* |
ALPH(10 | NTOAN+6* |
ALPH(11 | NTOAN+6* |
ALPH(12 | NTOAN+6* |
ALPH(13 | NTOAN+6* |
ALPH(14 | NTOAN+6* |
ALPH(15 | NTOAN+7* |
ALPH(16 | NTOAN+7* |
ALPH(17 | NTOAN+7* |
ALPH(18 | NTOAN+7* |
ALPH(19 | NTOAN+7* |
ALPH(2 | NTOAN+4* |
ALPH(20 | NTOAN+8* |
ALPH(21 | NTOAN+8* |
ALPH(22 | NTOAN+8* |
ALPH(23 | NTOAN+8* |
ALPH(24 | NTOAN+8* |
ALPH(25 | NTOAN+9* |
ALPH(3 | NTOAN+4* |
ALPH(4 | NTOAN+4* |
ALPH(5 | NTOAN+5* |
ALPH(6 | NTOAN+5* |
ALPH(7 | NTOAN+5* |
ALPH(8 | NTOAN+5* |
ALPH(9 | NTOAN+5* |
ANUM | NTOAN+11~, NTOAN+12*, NTOAN+18*, NTOAN+20 |
APTEXT | APRINT+3~, APRINT+20, APRINT+21 |
APTEXT( | APRINT+17* |
ARRAY | DIP+6~ |
ARRAY( | DIP+42! |
ATTR | ATTVALUE~, ATTVALUE+8 |
AVPAIR | ATTVALUE+3~, ATTVALUE+7*, ATTVALUE+8 |
AVSEP | ATTVALUE~, ATTVALUE+8 |
AWTEXT | AWRITE+3~, AWRITE+20, AWRITE+21 |
AWTEXT( | AWRITE+17* |
BDT | SSPAR~, SSPAR+1*, SSPAR+4*, SSPAR+14 |
BY | DIP+6~, DIP+8* |
CLASS | VEDIT+2~, VEDIT+4*, VEDIT+5 |
DA | RMEHIST+2~, RMEHIST+8*, RMEHIST+9*, SETPVER+1~, SETPVER+2* |
DA(1 | RMEHIST+5* |
DATE | SFRES+2~, SFRES+6*, SFRES+8, SFRES+9 |
DC | DIP+6~ |
DEF | DEFURLAD~, DEFURLAD+2, DEFURLUP~, DEFURLUP+2 |
DEFAULT | BORP~, BORP+4 |
DHD | DIP+6~, DIP+8* |
DIC | DIP+6~, DIP+21*, SEHIST+2~, SEHIST+15* |
DIE | SETPVER+1~, SETPVER+2* |
DIGIT | NTOAN+11~, NTOAN+17*, NTOAN+18, NTOAN+19 |
DIK | RMEHIST+2~, RMEHIST+6* |
DIR | BORP+1~, GPRINT+1~, SEHIST+2~ |
DIR("A" | BORP+3*, GPRINT+26*, SEHIST+20* |
DIR("B" | BORP+4*, SEHIST+21* |
DIR(0 | BORP+2*, GPRINT+26*, SEHIST+19* |
>> DIROUT | BORP+6 |
DISABLE | PROTOCOL~, PROTOCOL+8, PROTCOLS+1~, PROTCOLS+2*, PROTCOLS+5, PROTCOLS+6, PROTCOLS+7 |
DISTEXT | PROTOCOL~, PROTOCOL+6, PROTCOLS~, PROTCOLS+2, PROTCOLS+5, PROTCOLS+6, PROTCOLS+7 |
DONE | ACOPY+5~, ACOPY+15*, ACOPY+16, ACOPY+24*, APRINT+3~, APRINT+12*, APRINT+13, APRINT+19*, AWRITE+3~, AWRITE+12* , AWRITE+13, AWRITE+19*, DIP+6~, DIP+34*, DIP+35, DIP+36*, DIP+39*, DIP+40, DIP+42* |
DR | SETPVER+1~, SETPVER+2* |
>> DTOUT | BORP+6*, BORP+7 |
>> DUOUT | BORP+7 |
DUZ | SEHIST+13, UPEHIST+13 |
DUZ(0 | VEDIT+6 |
DWLW | SEHIST+2~, SEHIST+16* |
DWPK | SEHIST+2~, SEHIST+17* |
EDT | SSPAR~, SSPAR+1*, SSPAR+5*, SSPAR+9*, SSPAR+10*, SSPAR+12*, SSPAR+14 |
ENTRY | SEHIST+2~, SEHIST+7*, SEHIST+8, VEDIT+2~, VEDIT+3*, VEDIT+4 |
EXISTDIS | PROTOCOL+1~, PROTOCOL+4*, PROTOCOL+5, PROTOCOL+6 |
EXISTOOM | OPTION+1~, OPTION+5*, OPTION+6, OPTION+7 |
FDA | DEFURLAD+1~, DEFURLUP+1~, DELTLFE+1~, PROTOCOL+1~, SEHIST+2~, UPEHIST+1~ |
FDA( | DEFURLAD+6*, DEFURLAD+7*, DEFURLAD+10*, DEFURLUP+7*, DEFURLUP+8*, DEFURLUP+11*, DELTLFE+5*, RENAME+7*, SEHIST+12*, SEHIST+13* , SEHIST+26*, UPEHIST+12*, UPEHIST+13*, UPEHIST+14* |
FDA(101 | PROTOCOL+8* |
FDAIEN | SEHIST+2~ |
FDAIEN( | SEHIST+11* |
FF | DIP+6~, DIP+29*, DIP+36, DIP+42 |
FIEVAL | SFRES~, SFRES+1*, SFRES+10* |
FIEVAL( | SFRES+3, SFRES+12* |
FILENAME | DIP+6~, DIP+16*, DIP+17, DIP+27, DIP+45 |
FILENUM | DELTLFE~, DELTLFE+2, DELTLFE+5, RENAME~, RENAME+3, RENAME+6, RENAME+7, RMEHIST~, RMEHIST+1, RMEHIST+3 , SEHIST~, SEHIST+4, UPEHIST~, UPEHIST+2, UPEHIST+5 |
FILESPEC | DIP+6~, DIP+46 |
FILESPEC( | DIP+45* |
FIND0 | SSPAR~, SSPAR+1, SSPAR+14 |
FLDS | DIP~ |
FR | DIP+6~, DIP+8* |
GBL | DIP+6~, DIP+24*, DIP+25*, DIP+27, UPEHIST+1~, UPEHIST+5*, UPEHIST+6 |
GLOBAL | RMEHIST+2~, RMEHIST+3*, RMEHIST+6, RMEHIST+7 |
HFNAME | DIP+6~, DIP+17*, DIP+20 |
IEN | DEFURLAD+1~, DEFURLAD+2*, DEFURLAD+3, DEFURLAD+4, DEFURLAD+5, DEFURLUP+1~, DEFURLUP+2*, DEFURLUP+3, DEFURLUP+4, DEFURLUP+6 , DIP~, DIP+8, OPTION+1~, OPTION+4*, OPTION+5, PROTOCOL+1~, PROTOCOL+2*, PROTOCOL+3, PROTOCOL+4, PROTOCOL+7 , RENAME+2~, RENAME+3*, RENAME+4, RENAME+7, RMEHIST~, RMEHIST+5, RMEHIST+6, RMEHIST+7, SEHIST~, SEHIST+7 , SEHIST+10, SEHIST+11, UPEHIST~, UPEHIST+5, UPEHIST+11, VEDIT~, VEDIT+3 |
IENS | DEFURLAD+1~, DEFURLAD+5*, DEFURLAD+6, DEFURLAD+7, DEFURLAD+10, DEFURLUP+1~, DEFURLUP+6*, DEFURLUP+7, DEFURLUP+8, DEFURLUP+11 , DELTLFE+1~, DELTLFE+2*, DELTLFE+3, DELTLFE+4*, DELTLFE+5, PROTOCOL+1~, PROTOCOL+7*, PROTOCOL+8, SEHIST+2~, SEHIST+10* , SEHIST+12, SEHIST+13, SEHIST+26, UPEHIST+1~, UPEHIST+11*, UPEHIST+12, UPEHIST+13, UPEHIST+14 |
IND | ACOPY+5~, ACOPY+19*, ACOPY+22, APRINT+3~, APRINT+16*, ATTVALUE+3~, ATTVALUE+6*, ATTVALUE+7, AWRITE+3~, AWRITE+16* , AWRITE+17, DEFURLUP+1~, DEFURLUP+4*, DEFURLUP+5, DEFURLUP+6, DIP+7~, DIP+34*, DIP+35*, DIP+36, DIP+37 , DIP+39*, DIP+40*, DIP+41, DIP+42, OPTION+1~, OPTION+3*, OPTION+4, OPTION+8, SEHIST+2~, SEHIST+8* , SEHIST+9*, SEHIST+10, SFRES+2~, SFRES+3*, SFRES+9*, SFRES+12, STRREP+7~, STRREP+13*, UPEHIST+1~, UPEHIST+7* , UPEHIST+8*, UPEHIST+10 |
IO | GPRINT+21, GPRINTQ+1 |
IO("Q" | GPRINT+5, GPRINT+17! |
IOP | DIP+7~, DIP+18* |
>> IOT | GPRINT+24 |
L | DIP+7~, DIP+21* |
LEN | ACOPY+5~, ACOPY+18*, ACOPY+19, APRINT+3~, APRINT+15*, APRINT+16, AWRITE+3~, AWRITE+15*, AWRITE+16 |
LIST | OPTION+1~ |
LIST("DILIST" | OPTION+3, OPTION+4, OPTION+8 |
LN | APRINT+3~, APRINT+5*, APRINT+17*, AWRITE+3~, AWRITE+5*, AWRITE+17*, UPEHIST+1~, UPEHIST+7*, UPEHIST+9*, UPEHIST+10 |
MSG | DEFURLAD+1~, DEFURLUP+1~, DELTLFE+1~, PROTOCOL+1~, RENAME+2~, SEHIST+2~, SEHIST+28, UPEHIST~ |
NAME | DELTLFE~, DELTLFE+2 |
NEWNAME | RENAME~, RENAME+6, RENAME+7 |
NEWURL | DEFURLAD~, DEFURLAD+4, DEFURLAD+6, DEFURLUP~, DEFURLUP+7 |
NEWURL("DESC" | DEFURLAD+8, DEFURLAD+9, DEFURLUP+9, DEFURLUP+10 |
NEWURL("TITLE" | DEFURLAD+7, DEFURLUP+8 |
NEXT | UPEHIST+1~, UPEHIST+6*, UPEHIST+11 |
NIEN | RENAME+2~, RENAME+6* |
NL | ACOPY+5~, ACOPY+7*, ACOPY+20*, ACOPY+21 |
NOCC | SSPAR~, SSPAR+1*, SSPAR+2* |
NOW | DIP+7~, DIP+13*, DIP+14*, DIP+15 |
NPCS | STRREP+7~, STRREP+10*, STRREP+13, STRREP+14 |
NRES | SFRES~, SFRES+1, SFRES+3 |
NUM | NTOAN+11~, NTOAN+12*, NTOAN+17, NTOAN+19* |
NUMAVP | ATTVALUE+3~, ATTVALUE+4*, ATTVALUE+6 |
NUMBER | NTOAN~, NTOAN+12, NTOAN+14 |
OA | SFRES+2~ |
OA( | SFRES+3*, SFRES+8, SFRES+9 |
OA("" | SFRES+6 |
OLDNAME | RENAME~, RENAME+3 |
OLDURL | DEFURLUP~, DEFURLUP+4 |
OOM | OPTION~, OPTION+9, OPTIONS+1~, OPTIONS+2*, OPTIONS+4, OPTIONS+5, OPTIONS+6, OPTIONS+7, OPTIONS+8 |
OOMTEXT | OPTION~, OPTION+7, OPTIONS~, OPTIONS+2, OPTIONS+4, OPTIONS+5, OPTIONS+6, OPTIONS+7, OPTIONS+8 |
OPT | OPTION+1~, OPTION+8*, OPTION+9 |
OPTLU | OPTION~, OPTION+2 |
OROOT | ACOPY+5~, ACOPY+8*, ACOPY+21 |
OUT | ACOPY+5~, ACOPY+21*, ACOPY+22 |
OUTPUT | ACOPY~, ACOPY+8 |
P26 | NTOAN+11~ |
P26( | NTOAN+13*, NTOAN+14*, NTOAN+17, NTOAN+19 |
PATH | DIP+7~, DIP+12*, DIP+17, DIP+27, DIP+46 |
PC | NTOAN+11~, NTOAN+16*, NTOAN+17, NTOAN+19 |
POP | BORP+1~, GPRINT+1~, GPRINT+4 |
PROOT | ACOPY+5~, ACOPY+9*, ACOPY+22, APRINT+3~, APRINT+6*, AWRITE+3~, AWRITE+6*, AWRITE+17 |
PROT | PROTCOLS+1~ |
PROTLU | PROTOCOL~, PROTOCOL+2 |
PWR | NTOAN+11~, NTOAN+12*, NTOAN+13, NTOAN+14*, NTOAN+15*, NTOAN+16 |
>> PXRMDATE | SSPAR+7, SSPAR+9 |
>> PXRMDDOC | SSPAR+13 |
>> PXRMDEBG | SSPAR+6 |
PXRMINST | RENAME+2~, RENAME+5*, VEDIT+6 |
PXRMROOT | DIP~, DIP+21 |
REF | ACOPY~, ACOPY+6, ACOPY+9, ACOPY+11, ACOPY+13*, ACOPY+14, ACOPY+16, ACOPY+17, ACOPY+18, ACOPY+19 , ACOPY+22, ACOPY+23*, ACOPY+24, APRINT~, APRINT+4, APRINT+6, APRINT+8, APRINT+10*, APRINT+11, APRINT+13 , APRINT+14, APRINT+15, APRINT+16, APRINT+17, APRINT+18*, APRINT+19, AWRITE~, AWRITE+4, AWRITE+6, AWRITE+8 , AWRITE+10*, AWRITE+11, AWRITE+13, AWRITE+14, AWRITE+15, AWRITE+16, AWRITE+17, AWRITE+18*, AWRITE+19, GPRINT~ , GPRINT+9, GPRINT+22, GPRINTQ+2 |
RESULT | PROTCOLS+1~ |
ROOT | ACOPY+5~, ACOPY+12*, ACOPY+14, ACOPY+17, ACOPY+24, APRINT+3~, APRINT+9*, APRINT+11, APRINT+14, APRINT+19 , AWRITE+3~, AWRITE+9*, AWRITE+11, AWRITE+14, AWRITE+19, FNFR~, FNFR+1, RMEHIST+2~, RMEHIST+7*, RMEHIST+9 , SEHIST~, SEHIST+7, VEDIT~, VEDIT+3 |
RS | STRREP~, STRREP+13 |
SAVEIOT | GPRINT+1~, GPRINT+24*, GPRINT+26 |
SDIR | SFRES~, SFRES+6 |
SEP | ATTVALUE~, ATTVALUE+4, ATTVALUE+7 |
SFN | SEHIST+2~, SEHIST+5*, SEHIST+6, SEHIST+12, SEHIST+13, SEHIST+26 |
START | ACOPY+5~, ACOPY+17*, ACOPY+19, APRINT+3~, APRINT+14*, APRINT+16, AWRITE+3~, AWRITE+14*, AWRITE+16 |
STR | STRREP+7~, STRREP+12*, STRREP+13*, STRREP+14*, STRREP+15 |
STRING | ATTVALUE~, ATTVALUE+4, ATTVALUE+7, STRREP~, STRREP+8, STRREP+10, STRREP+13, STRREP+14 |
SUB | SFRES+2~, SFRES+11*, SFRES+12* |
SUBFN | UPEHIST+1~, UPEHIST+3*, UPEHIST+4, UPEHIST+12, UPEHIST+13, UPEHIST+14 |
SUCCESS | DIP+7~, DIP+27*, DIP+46* |
TARGET | SEHIST+2~, UPEHIST+1~ |
TARGET("SPECIFIER" | SEHIST+5, UPEHIST+3 |
TEMP | ACOPY+5~, ACOPY+11*, ACOPY+12, APRINT+3~, APRINT+8*, APRINT+9, AWRITE+3~, AWRITE+8*, AWRITE+9 |
TEXT | UPEHIST~ |
TEXT( | UPEHIST+8, UPEHIST+10 |
TF | SFRES+2~, SFRES+8*, SFRES+9, SFRES+10 |
TIME | SSPAR+7~*, SSPAR+8*, SSPAR+9 |
TO | DIP+7~, DIP+8* |
TS | STRREP~, STRREP+8, STRREP+10, STRREP+13, STRREP+14 |
U | BORP+2, DIP+8, FNFR+1, SEHIST+19, SSPAR+1, SSPAR+14, VEDIT+4 |
UNIQN | DIP+7~, DIP+15*, DIP+16 |
VALID | VEDIT+2~, VEDIT+6*, VEDIT+7*, VEDIT+8*, VEDIT+9 |
>> VALMBCK | GPRINT+27* |
>> VALMDDF | GPRINT+20, GPRINT+27 |
VALUE | ATTVALUE+3~, ATTVALUE+5*, ATTVALUE+6, ATTVALUE+8*, ATTVALUE+9 |
VAR | DIP~, DIP+30, DIP+31*, DIP+32*, DIP+33*, DIP+37 |
VAR( | DIP+41*, DIP+42 |
VERSION | SETPVER~, SETPVER+2 |
WPTMP | DEFURLAD+1~, DEFURLAD+9*, DEFURLUP+1~, DEFURLUP+10*, UPEHIST+1~ |
WPTMP(1 | UPEHIST+10* |
X | BORP+1~, SEHIST+2~ |
>> XPDNM | APRINT+20, AWRITE+20 |
Y | BORP+1~, BORP+8, SEHIST+2~, SEHIST+23 |
ZTDESC | GPRINT+6~, GPRINT+13* |
>> ZTREQ | GPRINTQ+4* |
ZTRTN | GPRINT+6~, GPRINT+12* |
ZTSAVE | GPRINT+6~ |
ZTSAVE( | GPRINT+11* |
ZTSAVE("IO" | GPRINT+7* |
ZTSAVE("REF" | GPRINT+9*, GPRINT+11 |
>> ZTSK | GPRINT+15 |