Routine: ABPAAGEL

Information

ABPAAGEL ;PRINT MAILING LABELS FOR OUTSTANDING BILLS; [ 07/25/91 11:10 AM ]

Name	Comments	DBIA/ICR reference
HEAD	;PROCEDURE TO DRAW SCREEN HEADING
TASK
PRINT
ZTLEND	;PROCEDURE TO KILL ALL LOCALLY USED TEMPORARY VARIABLES
DEVICE
CLOSE
MAIN	;ENTRY POINT - THE STARTING POINT FOR ENTERING THIS PROGRAM

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"<<< SORRY, ACCESS DENIED!!! >>>",!! Line Location: ABPAAGEL+2
Function Call: WRITE	Prompt: !! Line Location: TASK+0
Function Call: WRITE	Prompt: *7,!?5,"<<< TASK NOT FOUND >>>" Line Location: TASK+5
Function Call: WRITE	Prompt: ! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !!,"Please make sure labels have been put into the printer." Line Location: DEVICE+4
Function Call: WRITE	Prompt: !,"Press [RETURN] when you are ready... " Line Location: DEVICE+5
Function Call: WRITE	Prompt: !! Line Location: DEVICE+6
Function Call: WRITE	Prompt: NAME,!,ADDR,!,CITY,", ",STATE," ",ZIP,!!!! Line Location: PRINT+11
Function Call: WRITE	Prompt: !!,"ARE YOUR LABELS LINED UP" Line Location: PRINT+13
Function Call: WRITE	Prompt: !! Line Location: PRINT+14
Function Call: WRITE	Prompt: "Please adjust...press [RETURN] when ready" Line Location: PRINT+16
Function Call: READ	Timeout: DTIME Variable: X Line Location: PRINT+17
Function Call: WRITE	Prompt: !! Line Location: PRINT+17
Function Call: WRITE	Prompt: NAME,!,ADDR,!,CITY,", ",STATE," ",ZIP,!!!! Line Location: PRINT+20
Function Call: WRITE	Prompt: !! Line Location: CLOSE+1
Routine Call	DIR Line Location: TASK
Routine Call	%ZIS Line Location: DEVICE

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	CLOSE+1
^%ZIS(2 - [#3.2]	DEVICE+3, PRINT+10, PRINT+12, PRINT+19, CLOSE
^%ZTSK - [#14.4]	TASK+5, TASK+6, TASK+8, TASK+10, PRINT+1, PRINT+3
^AUTNINS - [#9999999.18]	PRINT+5
^DIC(5 - [#5]	PRINT+7

Name	Field # of Occurrence
%	PRINT+13*, PRINT+15, PRINT+18, ZTLEND+2!
%DT	ZTLEND+1!
%IS	DEVICE*, DEVICE+6!, ZTLEND+1!
%ZIS	ZTLEND+1!
%ZIS("A"	DEVICE*, DEVICE+6!
ABPA	ZTLEND+1!
ABPA("HD"	HEAD+1!, HEAD+2
ABPA("IO"	DEVICE+6*, MAIN+2
>> ABPADFN	PRINT+2, PRINT+3, PRINT+5
>> ABPAI	PRINT*
>> ABPAJ	PRINT+2*
ABPAMESS	TASK+3!*
ABPAMESS(2	TASK+4*
>> ABPATLE	HEAD+1
ADDR	PRINT+4!, PRINT+6*, PRINT+11, PRINT+20
BDT	ZTLEND+1!
CITY	PRINT+4!, PRINT+6*, PRINT+11, PRINT+20
DATA	PRINT+4!, PRINT+5*, PRINT+6, PRINT+8
DIC	ZTLEND+2!
DIR	TASK!, ZTLEND+2!
DIR("A"	TASK*
DIR(0	TASK*
DTIME	DEVICE+5, PRINT+17
EDT	ZTLEND+1!
FAC	ZTLEND+1!
FLBL	PRINT*, PRINT+8, PRINT+9, PRINT+19!
I	ZTLEND+2!
IO	DEVICE+6, PRINT+11, PRINT+20
IO("S"	DEVICE+3, PRINT+10, PRINT+12, PRINT+19, CLOSE, CLOSE+1!
IO(0	DEVICE+4, DEVICE+5, DEVICE+6, PRINT+13, PRINT+14, PRINT+16, PRINT+17, PRINT+18, CLOSE+1
IOP	CLOSE+1!, ZTLEND+2!
IOST	DEVICE+1
>> J	PRINT+9, PRINT+20
>> K	PRINT+11*
>> NAME	PRINT, PRINT+1, PRINT+3, PRINT+11, PRINT+20
>> POP	DEVICE+1
>> PTR	PRINT+6*, PRINT+7
>> R	PRINT+5*
STATE	PRINT+4!, PRINT+6, PRINT+7, PRINT+11, PRINT+20
X	DEVICE+5, PRINT+17, ZTLEND+1!
Y	TASK+1, ZTLEND+1!
ZIP	PRINT+4!, PRINT+8*, PRINT+11, PRINT+20
ZTDESC	ZTLEND+1!
ZTIO	ZTLEND+1!
ZTRTN	TASK+6*, ZTLEND+1!
ZTSAVE	ZTLEND+1!
ZTSK	TASK+1!, TASK+5, TASK+6, TASK+8, TASK+10, PRINT+1, PRINT+3, ZTLEND+1!, MAIN+1