IBCAPR ;ALB/BI - PRINT EOB/MRA ;20-SEP-2010
Source file <IBCAPR.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 9 | ($$CMS1500,$$UB4PRT)^IBCAPR1 $$PTRESPI^IBCECOB1 GETEOB^IBCECSA6 ($$COBN,$$FT)^IBCEF (MRA,PROC)^IBCEMRAA $$ALLOWED^IBCEMU2 $$WNRBILL^IBEFUNC $$DAT1^IBOUTL $$EXPAND^IBTRE |
| Kernel | 5 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT DISP^XQORM1 |
| List Manager | 3 | EN^VALM (FULL,PAUSE)^VALM1 EN^VALM2 |
| VA FileMan | 2 | $$EXTERNAL^DILFD $$GET1^DIQ |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 9 | IBCAPP IBCAPR IBCAPR PRINT MAR IBCAPR PRINT MAR DEFAULT IBCAPR PRINTF IBCAPR PRINTFD IBCAPR1 IBCAPR2 IBCB1 |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(IBIFN) | ; -- main entry point for IBCAPR
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| EOB(IBIFN) | ; Obtain the EOB Information from Dictionary 361.1, EXPLANATION OF BENEFITS.
|
|
| REGION1(IBI,IBSPL,IBEOBCT,IBCTOF) | ; Claim Header Information
|
|
| REGION2 | ; MEDICARE RA Information
|
|
| REGION3 | ; CLAIM and LINE level Information
|
|
| REGION4 | ; Display information about any 361.1 message storage or filing errors
|
|
| SETLN(S,V,X,L) | ; -- insert text(S) into variable(V)
; S := string to insert ; V := destination string ; X := insert @ col X ; L := clear # of chars (length) |
|
| SET(STR,LN) | ; set up TMP array with EOB Data
|
|
| PRTOPT1 | ; LIST MANAGER FORM entry point to print EOB, asking for print device.
|
|
| PRTOPT2 | ; LIST MANAGER FORM entry point to print to default print device.
|
|
| PRTOPT3 | ; LIST MANAGER FORM entry point to print EOB and MRA, asking for print devices.
|
|
| PRTOPT4 | ; LIST MANAGER FORM entry point to print EOB and MRA to default print devices.
|
|
| PRTOPT5(IBIFN) | ; External entry point to print EOB information, asking for print device.
|
|
| PRTOPT6(IBIFN) | ; External entry point to print EOB information to default print device.
|
|
| PRTOPT7(IBIFN) | ; External entry point to print EOB and MRA information, asking for print devices.
|
|
| PRTOPT8(IBIFN) | ; External entry point to print EOB and MRA information to default print devices.
|
|
| PRINT8Q(IBIFN) | ; External entry point to QUEUE the EOB and MRA print jobs
; Queue to Print EOB portion to the default EOB printer. |
|
| PRINT8Q1 | ; Background re-entry point.
|
|
| EOBPRT() | ; Get EOB Printer Name
|
|
| MRAPRT() | ; Get MRA Printer Name
|
|
| PRTCHK(ERROR) | ; ; Validate ALL printer parameters.
; USAGE EXAMPLES: W $$PRTCHK^IBCAPR(.ERRMSG)," ",ERRMSG,! ; I '$$PRTCHK^IBCAPR Q |
|
| PRTCHK14(PRTNM,ERROR) | ; Validate the CMS-1500 printer parameter.
; USAGE EXAMPLES: I $$PRTCHK14^IBCAPR(.NAME,.ERRMSG) S IOP=NAME ; I '$$PRTCHK14^IBCAPR Q |
|
| PRTCHK15(PRTNM,ERROR) | ; Validate the UB-04 printer parameter.
; USAGE EXAMPLE: I $$PRTCHK15^IBCAPR(.NAME,.ERRMSG) S IOP=NAME ; I '$$PRTCHK15^IBCAPR Q |
|
| PRTCHK16(PRTNM,ERROR) | ; Validate the EOB printer parameter.
; USAGE EXAMPLE: I $$PRTCHK16^IBCAPR(.NAME,.ERRMSG) S IOP=NAME ; I '$$PRTCHK16^IBCAPR Q |
|
| PRTCHK19(PRTNM,ERROR) | ; Validate the MRA printer parameter.
; USAGE EXAMPLE: I $$PRTCHK19^IBCAPR(.NAME,.ERRMSG) S IOP=NAME ; I '$$PRTCHK19^IBCAPR Q |
|
| GETIBIFN() | ; Get Internal Claim Pointer
|
|
| GETMRACL(IBIFN) | ; Get MRA claim #
; Find if there was MEDICARE WNR on the bill being passed in and then get the claim associated with it. |
|
| GETEOBCL(IBIFN,IBALL) | ; Get all Claims associated with this one.
; If it's secondary, get primary ; If it's a tertiary, get secondary and primary ; Input: IBIFN - IEN to 399 for cliam being printed ; IBALL by reference ; Output: IBALL - Array of claim numbers which have EOBS for this claim. |
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | PRTOPT1+3, PRTOPT2+10, PRTOPT3+4, PRTOPT4+10, PRTOPT4+20, PRTOPT5+3, PRTOPT6+6, PRTOPT7+4, PRTOPT8+6, PRTOPT8+14 , PRINT8Q+8, PRINT8Q+23, PRTCHK14+8, PRTCHK15+8, PRTCHK16+8, PRTCHK19+8 |
| HOME^%ZIS | PRINT8Q+14, PRINT8Q+29 |
| ^%ZISC | PRTOPT1+6, PRTOPT2+13, PRTOPT3+7, PRTOPT4+13, PRTOPT4+23, PRTOPT5+6, PRTOPT6+9, PRTOPT7+7, PRTOPT8+9, PRTOPT8+17 , PRINT8Q1+4 |
| ^%ZTLOAD | PRINT8Q+13, PRINT8Q+28 |
| $$EXTERNAL^DILFD | REGION1+15 |
| $$GET1^DIQ | HDR+2, HDR+5, REGION1+33, REGION2+9, EOBPRT+1, MRAPRT+1 |
| $$CMS1500^IBCAPR1 | PRTCHK14+5 |
| $$UB4PRT^IBCAPR1 | PRTCHK15+5 |
| $$PTRESPI^IBCECOB1 | REGION1+27 |
| GETEOB^IBCECSA6 | REGION3+3 |
| $$COBN^IBCEF | GETEOBCL+9 |
| $$FT^IBCEF | REGION1+27 |
| MRA^IBCEMRAA | PRTOPT3+11, PRTOPT7+10 |
| PROC^IBCEMRAA | PRTOPT4+22, PRTOPT8+16 |
| $$ALLOWED^IBCEMU2 | REGION1+36 |
| $$WNRBILL^IBEFUNC | GETMRACL+3 |
| $$DAT1^IBOUTL | REGION1+51, REGION1+53, REGION2+7 |
| $$EXPAND^IBTRE | REGION1+59 |
| EN^VALM | EN+4 |
| FULL^VALM1 | EXIT+2, PRTOPT1+2, PRTOPT2+2, PRTOPT3+2, PRTOPT4+2, GETIBIFN+2 |
| PAUSE^VALM1 | PRTOPT1+7, PRTOPT2+7, PRTOPT3+8, PRTOPT3+12, PRTOPT4+7, PRTOPT4+17 |
| EN^VALM2 | GETIBIFN+3 |
| $$FMTE^XLFDT | REGION1+44 |
| DISP^XQORM1 | HELP+1 |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBM(361.1 - [#361.1] | EXTERNAL^DILFD |
| ^DGCR(399 - [#399] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | GETMRACL+5, GETEOBCL+8 |
| ^IBM(361.1 - [#361.1] | EOB+12, EOB+14, REGION1+12, REGION1+23, REGION1+25, REGION1+34, REGION2+2, REGION2+5, REGION2+12, REGION4+2 , REGION4+4 |
| ^TMP("IBCAPR" | INIT+1!, EXIT+1!, SET+1*, PRTOPT1+4, PRTOPT1+5, PRTOPT2+11, PRTOPT2+12, PRTOPT3+5, PRTOPT3+6, PRTOPT4+11 , PRTOPT4+12, PRTOPT5+4, PRTOPT5+5, PRTOPT5+7!, PRTOPT6+7, PRTOPT6+8, PRTOPT6+10!, PRTOPT7+5, PRTOPT7+6, PRTOPT7+8! , PRTOPT8+7, PRTOPT8+8, PRTOPT8+10!, PRINT8Q1+2, PRINT8Q1+3 |
| ^TMP("IBCECOB" | GETIBIFN+5 |
| ^TMP("PRCA_EOB" | REGION3+2!, REGION3+4, REGION3+5! |
| Name | Line Occurrences |
|---|---|
| $$EOB | INIT+2 |
| $$EOBPRT | PRTOPT2+4, PRTOPT4+4, PRTOPT6+3, PRTOPT8+3, PRINT8Q+5, PRTCHK16+5 |
| $$GETIBIFN | EN+2 |
| $$GETMRACL | PRINT8Q+20 |
| $$MRAPRT | PRTOPT4+14, PRTOPT8+12, PRINT8Q+18, PRTCHK19+5 |
| $$PRTCHK14 | PRTOPT8+11, PRINT8Q+17, PRTCHK+5 |
| $$PRTCHK15 | PRTCHK+6 |
| $$PRTCHK16 | PRTOPT6+2, PRTOPT8+2, PRINT8Q+4, PRTCHK+7 |
| $$PRTCHK19 | PRTCHK+8 |
| $$SET | REGION1+6, REGION1+17, REGION1+30, REGION1+40, REGION1+48, REGION1+55, REGION1+64, REGION2+4, REGION2+11, REGION2+12 , REGION2+15, REGION3+4, REGION4+3, REGION4+4 |
| $$SETLN | REGION1+6, REGION1+16, REGION1+22, REGION1+29, REGION1+37, REGION1+39, REGION1+45, REGION1+47, REGION1+52, REGION1+54 , REGION1+61, REGION1+63, REGION2+4, REGION2+8, REGION2+10, REGION2+12, REGION2+14, REGION3+4, REGION4+3, REGION4+4 |
| EOB | PRTOPT5+2, PRTOPT6+5, PRTOPT7+2, PRTOPT8+5, PRINT8Q1+1 |
| GETEOBCL | EOB+6 |
| REGION1 | EOB+20 |
| REGION2 | EOB+21 |
| REGION3 | EOB+21 |
| REGION4 | EOB+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | PRINT8Q+2~, PRINT8Q+7*, PRINT8Q+16!, PRINT8Q+22*, PRTCHK14+7*, PRTCHK15+7*, PRTCHK16+7*, PRTCHK19+7* |
| CLONED | HDR+1~, HDR+5*, HDR+6 |
| DIR | GETIBIFN+1~ |
| ERR14 | PRTCHK+3~, PRTCHK+5, PRTCHK+10 |
| ERR15 | PRTCHK+3~, PRTCHK+6, PRTCHK+11 |
| ERR16 | PRTCHK+3~, PRTCHK+7, PRTCHK+12 |
| ERR19 | PRTCHK+3~, PRTCHK+8, PRTCHK+13 |
| ERROR | PRTCHK~, PRTCHK+4*, PRTCHK+10*, PRTCHK+11*, PRTCHK+12*, PRTCHK+13*, PRTCHK14~, PRTCHK14+4*, PRTCHK14+6*, PRTCHK14+8* , PRTCHK15~, PRTCHK15+4*, PRTCHK15+6*, PRTCHK15+8*, PRTCHK16~, PRTCHK16+4*, PRTCHK16+6*, PRTCHK16+8*, PRTCHK19~, PRTCHK19+4* , PRTCHK19+6*, PRTCHK19+8* |
| IBALL | EOB+2~, EOB+6, GETEOBCL~ |
| IBALL( | EOB+11, GETEOBCL+7*, GETEOBCL+11* |
| IBCA | EOB+3~, REGION1+58*, REGION1+62 |
| IBCN | EOB+3~, REGION1+20*, REGION1+22, REGION2+5*, REGION2+12 |
| IBCOBN | GETEOBCL+6~, GETEOBCL+9*, GETEOBCL+10, GETEOBCL+11 |
| IBCT | EOB+3~, EOB+14* |
| IBCTOF | REGION1~, REGION1+4*, REGION1+5 |
| IBD | REGION1+1~, REGION1+5*, REGION1+6, REGION1+16*, REGION1+22*, REGION1+28*, REGION1+29, REGION1+37*, REGION1+38*, REGION1+39 , REGION1+45*, REGION1+46*, REGION1+47, REGION1+51*, REGION1+52, REGION1+53*, REGION1+54, REGION1+61*, REGION1+62*, REGION1+63 , REGION2+3*, REGION2+4, REGION2+7*, REGION2+8, REGION2+9*, REGION2+10, REGION2+12* |
| IBDA | GETIBIFN+1~, GETIBIFN+4*, GETIBIFN+5 |
| IBEOBCT | REGION1~, REGION1+4*, REGION1+5 |
| IBFT | EOB+3~ |
| IBI | EOB+2~, EOB+12*, EOB+14*, EOB+18*, EOB+19*, EOB+20, REGION1~, REGION1+12, REGION1+23, REGION1+25 , REGION1+27, REGION1+34, REGION1+36, REGION2+2, REGION2+5, REGION2+12, REGION3+3, REGION3+4, REGION4+2, REGION4+4 |
| IBIFN | EN~, EN+2*, EN+3, HDR+2, HDR+5, INIT+2, EOB~, EOB+6, EOB+10*, EOB+11* , EOB+12, EOB+14, PRTOPT3+11, PRTOPT5~, PRTOPT5+2, PRTOPT6~, PRTOPT6+5, PRTOPT7~, PRTOPT7+2, PRTOPT7+10 , PRTOPT8~, PRTOPT8+5, PRINT8Q~, PRINT8Q+3, PRINT8Q+20*, PRINT8Q+21, PRINT8Q1+1, GETIBIFN+1~*, GETIBIFN+5*, GETIBIFN+6 , GETMRACL~, GETMRACL+3, GETMRACL+5, GETEOBCL~, GETEOBCL+7, GETEOBCL+8, GETEOBCL+9 |
| IBILLCNT | EOB+2~, EOB+8*, EOB+12*, EOB+20 |
| IBLN | EOB+2~, EOB+8*, EOB+23, REGION1+6*, REGION1+17*, REGION1+30*, REGION1+40*, REGION1+48*, REGION1+55*, REGION1+64* , REGION2+4*, REGION2+11*, REGION2+12*, REGION2+15*, REGION3+4*, REGION4+3*, REGION4+4* |
| IBM | REGION1+1~, REGION1+12*, REGION1+13, REGION1+15, REGION1+20, REGION1+25, REGION1+27, REGION1+33, REGION1+44, REGION1+59 |
| IBM1 | REGION1+1~, REGION1+23*, REGION1+24, REGION1+51, REGION1+53, REGION1+58, GETMRACL+2~, GETMRACL+5*, GETMRACL+6, GETMRACL+11 , GETEOBCL+6~, GETEOBCL+8*, GETEOBCL+11 |
| IBM2 | REGION1+1~, REGION1+34*, REGION1+43 |
| IBMRACL | GETMRACL+2~, GETMRACL+6*, GETMRACL+7, GETMRACL+11*, GETMRACL+13 |
| IBMRASEQ | GETMRACL+2~, GETMRACL+3*, GETMRACL+6, GETMRACL+11 |
| IBMSG | EOB+3~ |
| IBPR | EOB+3~, REGION1+44*, REGION1+45 |
| IBPRVCL | GETEOBCL+6~, GETEOBCL+11* |
| IBPT | EOB+3~, REGION1+24*, REGION1+25*, REGION1+27*, REGION1+28 |
| IBPY | EOB+3~, REGION1+33*, REGION1+37 |
| IBQUIT | EOB+3~ |
| IBREC1 | EOB+3~ |
| IBSCAN | PRTOPT1+1~, PRTOPT1+4*, PRTOPT1+5, PRTOPT2+1~, PRTOPT2+11*, PRTOPT2+12, PRTOPT3+1~, PRTOPT3+5*, PRTOPT3+6, PRTOPT4+1~ , PRTOPT4+11*, PRTOPT4+12, PRTOPT5+1~, PRTOPT5+4*, PRTOPT5+5, PRTOPT6+1~, PRTOPT6+7*, PRTOPT6+8, PRTOPT7+1~, PRTOPT7+5* , PRTOPT7+6, PRTOPT8+1~, PRTOPT8+7*, PRTOPT8+8, PRINT8Q1+2*, PRINT8Q1+3 |
| IBSHEOB | EOB+2~, EOB+16 |
| IBSHEOB( | EOB+12*, EOB+14*, EOB+19, EOB+20 |
| IBSPL | REGION1~, REGION1+14, REGION1+62 |
| IBST | EOB+3~, REGION1+59*, REGION1+61, REGION2+5*, REGION2+6*, REGION2+12*, REGION2+13 |
| IBSTR | EOB+4~, REGION1+1~, REGION1+6*, REGION1+16*, REGION1+17, REGION1+22*, REGION1+29*, REGION1+30, REGION1+37*, REGION1+39* , REGION1+40, REGION1+45*, REGION1+47*, REGION1+48, REGION1+52*, REGION1+54*, REGION1+55, REGION1+60*, REGION1+61*, REGION1+63* , REGION1+64, REGION2+4*, REGION2+8*, REGION2+10*, REGION2+11, REGION2+12*, REGION2+14*, REGION2+15, REGION3+4*, REGION4+3* , REGION4+4* |
| IBTA | EOB+4~, REGION1+34*, REGION1+36*, REGION1+38 |
| IBTS | EOB+4~, REGION1+43*, REGION1+46 |
| IBTSK1 | PRINT8Q+2~, PRINT8Q+13*, PRINT8Q+30 |
| IBTSK2 | PRINT8Q+2~, PRINT8Q+28*, PRINT8Q+30 |
| IBTY | EOB+4~, REGION1+13*, REGION1+14*, REGION1+15*, REGION1+16, REGION1+61, REGION2+2 |
| IBWNRFL | GETMRACL+2~, GETMRACL+3*, GETMRACL+4 |
| IBX | EOB+4~, REGION1+1~, REGION1+21*, REGION1+28, REGION1+38, REGION1+46, REGION1+62 |
| IBXARRAY | EOB+4~ |
| IBXARRY | EOB+4~ |
| IBXDATA | EOB+4~ |
| IBXERR | EOB+4~ |
| IBXSAVE | EOB+4~ |
| IBZ | EOB+4~, EOB+19*, EOB+20 |
| IO | PRTOPT1+5, PRTOPT2+12, PRTOPT3+6, PRTOPT4+12, PRTOPT4+21, PRTOPT5+5, PRTOPT6+8, PRTOPT7+6, PRTOPT8+8, PRTOPT8+15 |
| IO("Q" | PRINT8Q+14!, PRINT8Q+29! |
| IOF | EOB+19 |
| IOP | PRTOPT2+1~, PRTOPT2+4*, PRTOPT2+5, PRTOPT4+1~, PRTOPT4+4*, PRTOPT4+5, PRTOPT4+14*, PRTOPT4+15, PRTOPT6+1~, PRTOPT6+3* , PRTOPT6+4, PRTOPT8+1~, PRTOPT8+3*, PRTOPT8+4, PRTOPT8+12*, PRTOPT8+13, PRINT8Q+2~, PRINT8Q+5*, PRINT8Q+6, PRINT8Q+18* , PRINT8Q+19, PRTCHK14+5*, PRTCHK14+6, PRTCHK15+5*, PRTCHK15+6, PRTCHK16+5*, PRTCHK16+6, PRTCHK19+5*, PRTCHK19+6 |
| L | SETLN~, SETLN+5 |
| LN | SET~, SET+1, SET+2 |
| LOOP | GETEOBCL+6~, GETEOBCL+11* |
| POP | PRTOPT1+3, PRTOPT2+10, PRTOPT3+4, PRTOPT5+3, PRTOPT6+6, PRTOPT7+4, PRTOPT8+6, PRTOPT8+14, PRINT8Q+2~, PRINT8Q+8 , PRINT8Q+16!, PRINT8Q+23, PRTCHK14+3~, PRTCHK14+8, PRTCHK15+3~, PRTCHK15+8, PRTCHK16+3~, PRTCHK16+8, PRTCHK19+3~, PRTCHK19+8 |
| PRTNM | PRTCHK14~, PRTCHK14+5*, PRTCHK15~, PRTCHK15+5*, PRTCHK16~, PRTCHK16+5*, PRTCHK19~, PRTCHK19+5* |
| PTNAME | HDR+1~, HDR+2*, HDR+3 |
| S | SETLN~, SETLN+5 |
| STATUS | PRTCHK+3~, PRTCHK+4*, PRTCHK+5*, PRTCHK+6*, PRTCHK+7*, PRTCHK+8*, PRTCHK+9 |
| STR | SET~, SET+1 |
| U | REGION1+13, REGION1+15, REGION1+20, REGION1+24, REGION1+25, REGION1+27, REGION1+33, REGION1+34, REGION1+43, REGION1+44 , REGION1+51, REGION1+53, REGION1+58, REGION1+59, REGION2+7, REGION2+9, GETIBIFN+5, GETMRACL+6, GETMRACL+11, GETEOBCL+11 |
| V | SETLN~, SETLN+5 |
| >> VALMBCK | EN+1*, PRTOPT1+8*, PRTOPT1+9*, PRTOPT2+3*, PRTOPT3+9*, PRTOPT3+13*, PRTOPT3+14*, PRTOPT4+3* |
| >> VALMBG | EN+2 |
| >> VALMCNT | INIT+2* |
| >> VALMHDR(1 | HDR+3* |
| >> VALMHDR(2 | HDR+6* |
| >> VALMLST | EN+2 |
| >> VALMY(0 | GETIBIFN+4 |
| X | HELP+1*, REGION2+5*, REGION2+7, REGION2+9, SETLN~, SETLN+5, PRTOPT1+8, PRTOPT2+1~, PRTOPT2+8*, PRTOPT2+9 , PRTOPT3+9, PRTOPT3+13, PRTOPT4+1~, PRTOPT4+8*, PRTOPT4+9, PRTOPT4+18*, PRTOPT4+19, PRTCHK+3~, PRTCHK+5, PRTCHK+6 , PRTCHK+7, PRTCHK+8 |
| >> XQORNOD(0 | GETIBIFN+3 |
| Z | EOB+4~, EOB+12*, EOB+18*, REGION3+1~, REGION3+4*, REGION4+1~, REGION4+4* |
| ZTDESC | PRINT8Q+2~, PRINT8Q+10*, PRINT8Q+16!, PRINT8Q+25* |
| ZTDTH | PRINT8Q+2~, PRINT8Q+12*, PRINT8Q+27* |
| ZTRTN | PRINT8Q+2~, PRINT8Q+9*, PRINT8Q+16!, PRINT8Q+24* |
| ZTSAVE | PRINT8Q+2~, PRINT8Q+16! |
| ZTSAVE("IB*" | PRINT8Q+11*, PRINT8Q+26* |
| ZTSK | PRINT8Q+13, PRINT8Q+14!, PRINT8Q+28, PRINT8Q+29! |