BGP7DNE ; IHS/CMI/LAB - NATL COMP EXPORT 17 Jul 2008 9:28 AM ;
Source file <BGP7DNE.m>
Package | Total | Call Graph |
---|---|---|
IHS GPRA Information System | 5 | ($$ACTUP,PROCCY)^BGP7D1 ($$STATE,$$UID)^BGP7DCHW (PRINT,PROC)^BGP7DNE ($$D,$$EDT,$$LZERO,JRNL)^BGP7UTL TAXCHK^BGP7XTCN |
Kernel | 5 | ^%ZIS ^%ZISC $$OPEN^%ZISH ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT |
IHS VA Utilities | 3 | ^XBFMK ^XBGSAVE EN^XBVK |
VA Fileman | 3 | ^DIC ^DIK ^DIR |
IHS Patient | 1 | ($$COMMRES,KILL)^AUPNPAT |
Name | Comments | DBIA/ICR reference |
---|---|---|
BEN | ;
|
|
SUM | ;
|
|
LOCALF | ;
|
|
STOP | ;
|
|
USR() | ;EP -
|
|
EOP | ;EP - End of page.
|
|
EXPORT | ;export to area or not?
|
|
CNTSF1 | ;EP
|
|
TSKMN | ;EP ENTRY POINT FROM TASKMAN
|
|
PROCYRS | ;
|
|
;EP - CALLED FROM XBDBQUE
|
||
HOME | ;
|
|
LOC() | ;EP - .
|
|
COM1 | ;
|
|
CTR(X,Y) | ;EP - Center X in a field Y wide.
|
|
COUNTY(P) | ;EP
|
|
TP | ;
|
|
CNTSF | ;EP
|
|
MFIC | ||
HEADER1 | ;
|
|
PROCIND | ;
|
|
ZIS | ;call to XBDBQUE
|
|
ONEF | ;
|
|
DRIVER | ;
|
|
HEADER | ;EP
|
|
XIT | ;
|
|
PROC1 | ;process each patient
|
|
INTRO | ;
|
|
COMM | ;
|
|
PROC | ;EP
|
Name | Field # of Occurrence |
---|---|
^%ZIS | ONEF+2 |
^%ZISC | DRIVER+4, XIT+1, CNTSF+27 |
$$OPEN^%ZISH | CNTSF+16 |
^%ZTLOAD | TSKMN+5 |
$$COMMRES^AUPNPAT | COUNTY+1 |
KILL^AUPNPAT | XIT+5, XIT+10 |
$$ACTUP^BGP7D1 | PROC1+9 |
PROCCY^BGP7D1 | PROCYRS+8 |
$$STATE^BGP7DCHW | PROCIND+9 |
$$UID^BGP7DCHW | PROCIND+6 |
PRINT^BGP7DNE | DRIVER+3 |
PROC^BGP7DNE | DRIVER+1 |
$$D^BGP7UTL | EXPORT+10, ZIS+2, CNTSF+13, CNTSF1+2 |
$$EDT^BGP7UTL | PROCIND+3, PROCIND+4, PROCIND+5, PROCIND+7 |
$$LZERO^BGP7UTL | CNTSF+13 |
JRNL^BGP7UTL | PROC+2 |
TAXCHK^BGP7XTCN | INTRO+6 |
^DIC | COMM+7, MFIC+12, ZIS+4 |
^DIK | ONEF+3 |
^DIR | COM1+16, EXPORT+2, LOCALF+2, EOP+6, HEADER+2 |
^XBFMK | COMM+4, MFIC+9, XIT+11 |
^XBGSAVE | CNTSF1+19 |
EN^XBVK | XIT+2 |
$$FMADD^XLFDT | PROC1+9, PROCYRS+7 |
$$FMTE^XLFDT | TP+3, SUM+3, HEADER1+3, HEADER1+6, HEADER1+9 |
$$NOW^XLFDT | EXPORT+6 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^ATXAX - [#9002226] | Classic Fileman Calls |
^BGPXPA - [#90530.11] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("OS" | EXPORT+8 |
^ATXAX - [#9002226] | COMM+6, COM1+2, COM1+3, COM1+7, COM1+8, MFIC+11, SUM+4, SUM+5, ZIS+3, ZIS+10 , PRINT+4, PRINT+12, PRINT+14 |
^AUTTCOM("B" | COM1+9 |
^AUTTCTY - [#9999999.23] | COUNTY+6 |
^AUTTCTY("C" | COUNTY+4 |
^AUTTLOC - [#9999999.06] | EXPORT+10, CNTSF+13, CNTSF1+2, PROCIND+2 |
^AUTTSITE(1 | EXPORT+8, EXPORT+9 |
^BGPCTRL - [#90241.01] | INTRO+3, INTRO+5, PROCIND+12, PROCIND+13, PROCIND+22, PROCIND+23, PROCIND+26, PROCIND+28 |
^BGPCTRL("B" | INTRO+2 |
^BGPDATA | CNTSF1+5, CNTSF1+6!, CNTSF1+20, CNTSF1+21!, CNTSF1+11*, CNTSF1+15* |
^BGPINDA - [#90530.01] | PROCIND+20 |
^BGPSITE - [#90241.02] | COMM+6, MFIC+2, MFIC+11, HOME+1, PROC+5 |
^BGPXPA - [#90530.11] | ZIS+6!, ZIS+7*, ZIS+8*, ZIS+9!, ZIS+10*, ZIS+11*, CNTSF+5, CNTSF+11*, CNTSF+14*, CNTSF+23 , CNTSF+24, STOP+1!, CNTSF1+3*, CNTSF1+13, CNTSF1+15, PROC1+15*, PROC1+17*, PRINT+22, PRINT+24 |
^DIC(4 - [#4] | ZIS+10, LOC+1, PROCIND+1, PRINT+14, HEADER1+7 |
^DPT - [#2] | PROC1+1, PROC1+3, PROC1+4, PROCIND+7, PROCIND+8 |
^TMP($J | CNTSF1+21!, PROCIND+19!, PROCIND+32! |
^VA(200 - [#200] | ZIS+2, USR+1, CNTSF1+18, HEADER1+3 |
Name | Line Occurrences |
---|---|
$$COUNTY | PROCIND+10 |
$$CTR | SUM+2, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9 |
$$USR | HEADER1+8 |
CNTSF | PROC1+19 |
CNTSF1 | CNTSF+2 |
COMM | COM1+5, MFIC+2, EXPORT+3 |
EOP | INTRO+4 |
EXPORT | LOCALF+3 |
HEADER | PRINT+3, PRINT+8, PRINT+16, PRINT+20, PRINT+23 |
HEADER1 | HEADER+1 |
PROCIND | PROCYRS+9 |
PROCYRS | PROC1+12 |
STOP | CNTSF+3, CNTSF+7 |
TSKMN | ONEF+4 |
XIT | INTRO+1, COM1+11, LOCALF+5, ZIS+4, ONEF+3, TSKMN+5 |
Name | Field # of Occurrence |
---|---|
^(0 | USR+1, LOC+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | ONEF+2!* |
A | XIT+7!, PROCIND+14!, PROCIND+31! |
B | COMM+6*, MFIC+11*, XIT+7!, PROCIND+14!, PROCIND+31! |
BD | XIT+9! |
>> BGP3YE | PROCYRS+7* |
BGPALLED | PROCIND+14!, PROCIND+31! |
>> BGPALLPT | PRINT+5 |
>> BGPBD | PROCYRS+6* |
>> BGPBEN | BEN+1* |
>> BGPBT | PROC+1* |
BGPC | CNTSF+22*, CNTSF+23, CNTSF+25*, CNTSF1+7*, CNTSF1+10*, CNTSF1+11, CNTSF1+14*, CNTSF1+15, PROCIND+14!, PROCIND+31! |
>> BGPCHSO | PROC+5* |
BGPD1 | PROCIND+16! |
BGPD10 | PROCIND+16! |
BGPD11 | PROCIND+16! |
BGPD12 | PROCIND+16! |
BGPD13 | PROCIND+16! |
BGPD2 | PROCIND+16! |
BGPD3 | PROCIND+16! |
BGPD4 | PROCIND+16! |
BGPD5 | PROCIND+16! |
BGPD6 | PROCIND+16! |
BGPD7 | PROCIND+16! |
BGPD8 | PROCIND+16! |
BGPD9 | PROCIND+16! |
>> BGPED | PROCYRS+6*, PROCYRS+7 |
>> BGPERR | ZIS+4* |
>> BGPET | PROC1+18* |
>> BGPEXPT | EXPORT+1*, EXPORT+4*, LOCALF+5, SUM+8, CNTSF+2, CNTSF+7 |
>> BGPFN | EXPORT+10*, SUM+9, CNTSF+13*, CNTSF+14, CNTSF+15, CNTSF+16, CNTSF1+2*, CNTSF1+3, CNTSF1+4, CNTSF1+18 |
BGPG | PROCIND+14!, PROCIND+31! |
>> BGPGPG | PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+3 |
>> BGPGUI | PRINT+2, HEADER1+2 |
>> BGPH | PROC+4* |
>> BGPHOME | HOME+1* |
>> BGPIOSL | PRINT+2*, PRINT+8, PRINT+16 |
>> BGPJ | PROC+4* |
>> BGPLOCAL | LOCALF+1*, LOCALF+4*, LOCALF+5, SUM+13, CNTSF+3 |
>> BGPLX | CNTSF+10*, CNTSF+22, CNTSF+26* |
BGPMFIT | MFIC+7! |
>> BGPMFITI | MFIC+1*, MFIC+2, MFIC+3*, MFIC+8*, MFIC+14*, SUM+5, ZIS+3, ZIS+10, PRINT+12, PRINT+13 , PRINT+14 |
>> BGPN | PRINT+6*, PRINT+7, PRINT+14*, PRINT+15 |
BGPN1 | PROCIND+15! |
BGPN10 | PROCIND+15! |
BGPN11 | PROCIND+15! |
BGPN12 | PROCIND+15! |
BGPN13 | PROCIND+15! |
BGPN14 | PROCIND+15! |
BGPN15 | PROCIND+15! |
BGPN16 | PROCIND+15! |
BGPN17 | PROCIND+15! |
BGPN18 | PROCIND+15! |
BGPN19 | PROCIND+15! |
BGPN2 | PROCIND+15! |
BGPN20 | PROCIND+15! |
BGPN21 | PROCIND+15! |
BGPN22 | PROCIND+15! |
BGPN23 | PROCIND+15! |
BGPN24 | PROCIND+15! |
BGPN25 | PROCIND+15! |
BGPN26 | PROCIND+15! |
BGPN27 | PROCIND+15! |
BGPN28 | PROCIND+15! |
BGPN29 | PROCIND+15! |
BGPN3 | PROCIND+15! |
BGPN30 | PROCIND+15! |
BGPN4 | PROCIND+15! |
BGPN5 | PROCIND+15! |
BGPN6 | PROCIND+15! |
BGPN7 | PROCIND+15! |
BGPN8 | PROCIND+15! |
BGPN9 | PROCIND+15! |
>> BGPNF | CNTSF+8*, CNTSF+9*, CNTSF+11, CNTSF+12, CNTSF+13 |
>> BGPNF1 | CNTSF+6*, CNTSF+7, CNTSF+8 |
>> BGPNOW | EXPORT+6*, EXPORT+10, ZIS+2, CNTSF+13, CNTSF1+2 |
BGPNUMV | PROCIND+17! |
>> BGPONEF | ONEF+1* |
BGPQUIT | COM1+11, COM1+15*, COM1+17*, COM1+18*, MFIC!, PRINT+1*, PRINT+6, PRINT+7, PRINT+8, PRINT+11 , PRINT+15, PRINT+16, PRINT+19, PRINT+20, PRINT+22, PRINT+23, PRINT+25!, HEADER+2* |
>> BGPRTYPE | TP+1* |
>> BGPSEAT | PRINT+5 |
BGPSTOP | PROCIND+14! |
BGPTAX | COMM+2!, COM1+5 |
BGPTAX( | COM1+3*, ZIS+7, PRINT+6 |
>> BGPTAXI | COMM+3*, COMM+9*, COM1+2, COM1+3, COM1+7, COM1+8, SUM+4, ZIS+3, PROC1+9, PRINT+4 |
>> BGPTOT | CNTSF+5*, CNTSF+6 |
>> BGPUF | EXPORT+7*, EXPORT+8*, EXPORT+9*, SUM+10, CNTSF+14, CNTSF+16, CNTSF1+3 |
BGPV | PROCIND+14!, PROCIND+31! |
BGPVAL | PROCIND+14!, PROCIND+31! |
BGPVALUE | PROCIND+14! |
BGPX | CNTSF+5*, CNTSF+10*, CNTSF+22*, CNTSF+23*, CNTSF+24, CNTSF+26, CNTSF1+12*, CNTSF1+13*, CNTSF1+15, PRINT+22* , PRINT+24, PRINT+25! |
>> BGPXPA | PROCIND+22*, PROCIND+23, PROCIND+26, PROCIND+28 |
>> BGPXPBD | TP+2*, TP+3, EXPORT+10, SUM+3, ZIS+3, CNTSF+13, CNTSF1+2, PROCIND+4, HEADER1+9 |
>> BGPXPCY | PROC1+6*, PROC1+8, PROCYRS+4*, PROCYRS+6 |
BGPXPDAT | PROCYRS+3! |
BGPXPDAT( | PROC1+13, PROC1+15, PROCIND+24*, PROCIND+25*, PROCIND+26*, PROCIND+29* |
>> BGPXPDR | EXPORT+5* |
>> BGPXPEDT | TP+2*, TP+3, EXPORT+10, SUM+3, ZIS+3, CNTSF+13, CNTSF1+2, PROCIND+5, HEADER1+9 |
>> BGPXPFYC | INTRO+2*, INTRO+3, INTRO+5, PROCIND+12, PROCIND+13, PROCIND+22, PROCIND+23, PROCIND+26, PROCIND+28 |
>> BGPXPFYI | TP+1*, PROC1+6, PROCYRS+4 |
>> BGPXPFYY | TP+1*, CNTSF+20, CNTSF1+9 |
>> BGPXPMI | PROCIND+12*, PROCIND+13, PROCIND+22, PROCIND+23, PROCIND+26, PROCIND+28 |
>> BGPXPMID | PROCIND+23*, PROCIND+24, PROCIND+25, PROCIND+26, PROCIND+29 |
>> BGPXPNV | PROCIND+18* |
>> BGPXPPD | PROCIND+1*, PROCIND+2*, PROCIND+3*, PROCIND+4*, PROCIND+5*, PROCIND+6*, PROCIND+7*, PROCIND+8*, PROCIND+9*, PROCIND+10* , PROCIND+24 |
>> BGPXPPIE | PROCYRS+2*, PROCYRS+6*, PROCIND+29 |
>> BGPXPRP | TP+1* |
>> BGPXPRPT | ZIS+5*, ZIS+6, ZIS+7, ZIS+8, ZIS+9, ZIS+10, ZIS+11, ONEF+3, CNTSF+5, CNTSF+11 , CNTSF+14, CNTSF+23, CNTSF+24, STOP+1, CNTSF1+3, CNTSF1+13, CNTSF1+15, PROC1+15, PROC1+17, PRINT+22 , PRINT+24 |
>> BGPXPTOT | PROC+6*, PROC1+14*, PROC1+15, PROC1+17 |
>> BGPXPUP | PROC1+5*, PROC1+10*, PROC1+11 |
>> BGPXPX | PROCIND+13*, PROCIND+20 |
>> BGPXPXPX | PROC+3* |
>> BGPXXX | PROC1+8*, PROC1+9 |
>> BGPY | PRINT+6*, PRINT+9, PRINT+14*, PRINT+17 |
>> BGPZ | CNTSF+12*, CNTSF+13, CNTSF+14, CNTSF1+2*, CNTSF1+3 |
>> BGPZZ | PRINT+6*, PRINT+7*, PRINT+9, PRINT+14*, PRINT+15*, PRINT+17 |
C | COM1+8*, COM1+9, ZIS+7*, ZIS+8, ZIS+10*, ZIS+11, XIT+7!, PROCIND+14!, PROCIND+31!, COUNTY+1* , COUNTY+2, COUNTY+3, PRINT+7*, PRINT+15* |
D | XIT+7!, PROCIND+14!, PROCIND+31! |
DA | COM1+16!, EXPORT+2!, LOCALF+2!, ZIS+4!, ONEF+3* |
>> DFN | PROC1+1*, PROC1+3, PROC1+4, PROC1+9, PROCIND+6, PROCIND+7, PROCIND+8, PROCIND+9, PROCIND+10 |
DFOUT | EOP+5! |
DIADD | ZIS+2*, ZIS+4!, XIT+4! |
DIC | COMM+5*, COMM+7!, MFIC+10*, ZIS+2!*, ZIS+4! |
DIC("A" | COMM+5*, MFIC+10* |
DIC("B" | COMM+6*, MFIC+11* |
DIC("DR" | ZIS+3* |
DIC("S" | COMM+5*, MFIC+10* |
DIC(0 | COMM+5*, MFIC+10*, ZIS+2* |
DIK | ONEF+3*! |
DIR | COM1+16!, EXPORT+2!, LOCALF+2!, XIT+3!, EOP+4~, EOP+5!, EOP+6!, HEADER+2! |
DIR("A" | COM1+16*, EXPORT+2*, LOCALF+2*, EOP+6* |
DIR("B" | LOCALF+2* |
DIR(0 | COM1+16*, EXPORT+2*, LOCALF+2*, EOP+6*, HEADER+2* |
DIRUT | COM1+17, EXPORT+3, LOCALF+3, XIT+3!, EOP+5! |
DLAYGO | ZIS+2*, ZIS+4!, XIT+4! |
DLOUT | EOP+5! |
DOD | XIT+3! |
DR | ZIS+4! |
DT | EXPORT+5, PROCIND+3, HEADER1+3, HEADER1+6 |
DTOUT | EOP+5!, HEADER+2 |
DUOUT | XIT+3!, EOP+5! |
DUZ | ZIS+2, USR+1, CNTSF1+18, HEADER1+3 |
DUZ(2 | COMM+6, MFIC+2, MFIC+11, HOME+1, EXPORT+10, LOC+1, CNTSF+13, CNTSF1+2, PROC+5, PROCIND+1 , PROCIND+2, HEADER1+7 |
E | XIT+7!, PROCIND+14!, PROCIND+31! |
ED | XIT+9! |
F | XIT+7!, PROCIND+14!, PROCIND+31! |
G | COM1+6*, COM1+9*, COM1+11, XIT+7!, PROCIND+14!, PROCIND+31! |
H | XIT+7!, PROCIND+14!, PROCIND+31! |
I | XIT+7!, PROCIND+14!, PROCIND+31! |
IO | DRIVER+2, TSKMN+1, CNTSF+15, CNTSF+18, CNTSF1+4, HEADER+2 |
IO("DOC" | TSKMN+2 |
IO("Q" | ONEF+4 |
IO("S" | EOP+2 |
IO(0 | HEADER+2 |
>> IOCPU | TSKMN+5 |
IOF | BGP7DNE+4, INTRO+4, SUM+1, HEADER1+1 |
IOM | TSKMN+3, CTR+1 |
ION | TSKMN+1 |
IOP | ONEF+2! |
IOSL | INTRO+4, TSKMN+3, PRINT+2, PRINT+20, PRINT+23 |
IOST | TSKMN+1, EOP+1, HEADER+2 |
J | XIT+7!, PROCIND+14!, PROCIND+31! |
K | XIT+7!, PROCIND+14!, PROCIND+31! |
L | XIT+7! |
M | XIT+7!, PROCIND+14!, PROCIND+31! |
N | XIT+7!, XIT+8!, PROCIND+14!, PROCIND+31! |
N1 | XIT+8! |
N2 | XIT+8! |
N3 | XIT+8! |
N4 | XIT+8! |
N5 | XIT+8! |
N6 | XIT+8! |
O | XIT+7!, PROCIND+14!, PROCIND+31! |
P | XIT+7!, CNTSF+20*, CNTSF1+9*, PROCIND+14!, PROCIND+31!, COUNTY~, COUNTY+1 |
>> POP | ONEF+3 |
Q | XIT+7!, PROCIND+14!, PROCIND+31! |
R | XIT+7!, PROCIND+14!, PROCIND+31! |
S | XIT+7!, PROCIND+14!, PROCIND+31!, COUNTY+3*, COUNTY+4*, COUNTY+5, COUNTY+6 |
T | XIT+7!, PROCIND+14!, PROCIND+31! |
U | COMM+6, COM1+3, COM1+8, MFIC+2, MFIC+11, HOME+1, EXPORT+8, EXPORT+9, EXPORT+10, SUM+4 , SUM+5, ZIS+2, ZIS+3, ZIS+10, USR+1, LOC+1, CNTSF+13, CNTSF+20, CNTSF1+2, CNTSF1+9 , CNTSF1+18, PROC+5, PROC1+4, PROCIND+1, PROCIND+2, PROCIND+3, PROCIND+4, PROCIND+5, PROCIND+6, PROCIND+7 , PROCIND+8, PROCIND+9, PROCIND+10, PROCIND+13, PROCIND+23, PROCIND+25, PROCIND+26, PROCIND+29, COUNTY+6, PRINT+4 , PRINT+12, PRINT+14, PRINT+24, HEADER1+3, HEADER1+7 |
V | XIT+7!, PROCIND+14!, PROCIND+31! |
W | XIT+7!, PROCIND+14!, PROCIND+31! |
X | INTRO+3*, INTRO+5, COM1+1*, COM1+2*, COM1+3, COM1+6*, COM1+7*, COM1+8, ZIS+2*, ZIS+7* , ZIS+10*, XIT+6!, XIT+7!, CTR~, CTR+1, EOP+4~, CNTSF+20*, CNTSF1+9*, PROC1+13*, PROC1+15 , PROCIND+14!, PROCIND+27*, PROCIND+29, PROCIND+31!, HEADER1+9* |
X1 | XIT+6! |
X2 | XIT+6! |
X3 | XIT+6! |
X4 | XIT+6! |
X5 | XIT+6! |
X6 | XIT+6! |
>> XBF | CNTSF1+18* |
>> XBFLT | CNTSF1+18* |
>> XBFN | CNTSF1+18* |
>> XBGL | CNTSF1+17* |
>> XBMED | CNTSF1+18* |
>> XBTLE | CNTSF1+18* |
Y | COMM+8, COMM+9, COM1+18, MFIC+13, MFIC+14, EXPORT+4, LOCALF+4, ZIS+4, ZIS+5, ZIS+10* , XIT+7!, CTR~, CTR+1, CNTSF+16*, CNTSF+17, CNTSF+19*, CNTSF+20*, CNTSF+21, CNTSF1+8*, CNTSF1+9* , CNTSF1+11, PROCIND+14!, PROCIND+31!, HEADER+2 |
Z | XIT+7!, PROCIND+14!, PROCIND+31! |
>> ZTCPU | TSKMN+5* |
>> ZTDESC | TSKMN+5* |
>> ZTDTH | TSKMN+5* |
>> ZTIO | TSKMN+1*, TSKMN+2*, TSKMN+3* |
>> ZTQUEUED | EOP+2, CNTSF+1, CNTSF+15, CNTSF+17, CNTSF1+4, CNTSF1+5, HEADER+2 |
>> ZTRTN | TSKMN+5* |
ZTSAVE | TSKMN+4! |
ZTSAVE("BGP*" | TSKMN+4* |