From: WTLefercus@aol.com
Date: Tue, 29 Aug 1995 13:14:03 -0400
To: macgifts@mac.archive.umich.edu
Subject: WordPerfect Extended Counting Macro

WordPerfect Extended Counting Macro

The WordPerfect for Macintosh macro, "Extended Counting" saved in the
attached document demonstrates an algorithm which allows you to count beyond
WordPerfect's variable limit of 32,767.

My purpose in writing this was to allow a prompt displaying a counter
variable to continue working after 32,767 iterations.

The Extended Counting macro updates a prompt each time the counter is
incremented by 1.  Displaying the updated prompt takes much longer than
incrementing the variables needed to display the prompt.  Therefore, if you
choose to update the prompt every 100 increments, you will notice a marked
increase in speed.  In the macro code, I have commented out "If" statements
to update the prompt every 10, 100, or 1,000 passes.

(This file must be converted with BinHex 4.0)

:%89iG'9ZC'9N)%0[G@jdD@jR!&G34$0A8%-b!*!%'VN!N!4`02pA8%2D%J!!!5`
$!3#3"J%!N!-4c!!!%-`!N!2q"Q0KEQ0PE!,`%J!'!$)$C@jNm!F!!J%Jm"8!#!!
b"9B09e"I9&B`-M3c-cBd0J)!N!0A8&4@9e"$-J#3#&G39&CA8%-b!*!BV'L2N`#
3"K,+!!J!-J9@BA)b0[!)!!S!-!C6G(PXC8-#m")!"J!b!f9ZC2!(!!)")2!9!!J
!-J9@BA)b0r!)!!S!-!C6G(PXC83#m")!"J!b!f9ZC2!(!!)")2!9!!J!-J9@BA)
b12!)!!S!-!C6G(PXC88#m")!"J!b!f9ZC2!(!!)")2!9!!J!-J#3!a)!!`#3%`i
!!`#3#`%!!!60!!!"#!!)!*$r!*!a!jA$!!$$``%!`m-#!-2$!`$$``3!`m-&!-2
$"J$$``F!`m-)!-2$#3$$``S!`m-,!-2$$!$$``d!`m-1!-2$$`$$`a!!`m-4!-2
$%J$$d!!!$!#3#3`!d0!"!"3!N!P)!*!$5!#3!a3"d0!#!!`!N!8"!*!$$!,3d!-
!&!#3#6)!N!F8!p$3"!!4ri%!rlJ!!1B!*!!!r`!4"0$3"3!8!*!*5!#3!dJ!N!-
8"G$3"J!'!*!$"JE3d!F!#!#3"3J(d0!)!!B!N!-'#0$3#3!@!*!*!3#3#4B*d0!
+!!`!N!N-#Y$3$!!-!*!*$!c3d3!!%!#3$4!!dG%"!"F!N!N$!!%'4f9ZCACK!"F
"dG%#!!J!$!!-!!J#dG%$!!`!N!5!!*!%$!24d33!'J#3$6`!8!"i!*B!b!!D"0(
5!3!'!*!$"J(5dJ)!0!#3'"!5&"-d-b%M!*!40!,5dJ-!*!#3%4)!N!-5!!!$S!%
U!*!&*!25dJ3!*!#3%4)!N!-5!!!$!!%U!*!&*!65dJS!'J#3#rm!N!-2!%X!$`"
,!"S+dY)-!"X!N!d-!!-'4f9ZCACK!"X-dY)0!"X!N!d-!!-'4f9ZCACK!"X0dY-
!!"3!N!XZ!*!$,!!8!026!3!'!!%!"J(6d`8!&!#3#3%!0J#3!`%!&!A6da%!$!#
3#3`4dpm!!!J!N!8)!0rI!3!)!*!&#!(Ih`)!#!#3"3J#hpm$!!J!N!8)!prI"!!
)!*!&#!6Ih`8!#!#3"3J&hpm'!!J!N!8)"YrI"`!)!*!&#!IIh`J!#!#3"3J)hp%
"!"F!N!`'4f9ZCACK!"F"dG%#!!J!N!--!!J#dG)-!"X!N!3--$-J6(3!N!--!!!
'4f9ZCACK!"X-dY)0!"X!N!3--$-J6(3!N!--!!!'4f9ZCACK!"X0dJ#3!``,9fp
bC&"PFQCPBh3!!!N8!3S*&!!+!*!$!3#3r`$`"`!F'L"&H(4PEQ4PC#"$Eh9ZG'P
ZCb"5Eh9dD@jP1I!(!!`,)$JJ6@&j)$%j16A`"`!i0b"8D'8JFQpeG'PZC5"NCA0
MFQPLC@3JBQ9XEhFJB@aXEhGc)(P[G5"dEb"MEh9ZG#"LCAP[EQ6`"`"'4#"AEh*
N8'9bCQ9MG#Gc)'PZG'9RCA)JE'PYDA3JEfBJ-c)X0cBh,L!J35"cCA"KFQ&dC5"
MEh9ZG'9b)(CKFQPKBQaPE[!(!%*")'Pc)(9cC@3JCQpb)'9KBfJJF'aKBf8JEfB
JB5"LBA0P)(4PEL"ZG@eLCA)Z)#"8D'8JGQ&XG@9c)'pQ)'9KBfM`"`"%3b"`E'&
MC5"KFQ8JBfpZGQ9bG'9N)(4[)(0dFQPZCh-X)'&ZC#"dD'9cC5"cG(*TEQGc)'&
bC5"MEfjMBA4PEQ&dC@6`"`!N)L"dEb"NDA0`E'&j)'jeE@*PFR-JGA!JG'mJ1C!
$,$Q3!bjZm!F!5%FJ9'KP)(0KEA"XC5"bCA"PBA3JE'p[F#"LC@a[Gb"hD@aX)'0
[G@jd)(9`)(4[)$N`-#``N!-JBQ9QEh*P)(&eDA4dD@jR,[!(!%*")%9iG'9ZC'9
N)%0[G@jdD@jR)&*[GA4TEQ8JBfp`HA*TCfKd)$%j168JBRNJ4f9[FQGP)%eKFf0
SDf8Z)#""E'c`"`"#3#"bD@GSG(-JFQ9cCA*fC@3Z)#"8D'Pc)'eKBh*[)'eKH5"
LC5"QFQ9PE(NJC'PcG(*TBR9dC@3X)'*eG#"YBAPXm!F!'KJJEQpd)'*P)(0[E'3
JCQpb)("bEfCTG#jYm!F!!J%Ji!I`!3!13$A4!B!a!!E4!3!V!$(`"J!D'5"TEQ0
bC@ePER4TEQFJG'KP)'0[G@jdCA,`%`!-J$%!#0%"!$`!-3!`m!%!#N!ed3#!-3!
#d3(`(3!33$A4!)!a!!)!-)!a!!,4!2!"!!T!0G%,J$%!!Y%!i!6`%`!-J$%!#0%
"!$d!-3!`m!%!$N!ed3Z!-3!'!#)!-!!Lm!%!#N!ed3'!-3!#!$$`"J!5%5"bC5e
cCA4dD@jR)&CKFM!am!%!$N!ed3+!-3!'d3)!+`!am!B!-M%JBA-J9Q&b-$%JD'&
N)(*PB@0SC@3J-6!l)&CKFM!b)'GPG(-JD@jMFQ9YC@jdC@3Zm"-!$)!a!!M4!J!
m!$%!-2!"!!T!0G%!J$%!!Y%#m"d!%%!ed3#!-3!#!$#!-3!#d3$`!3!+3$A4$)!
a!!,4!1!%m"-!$)!a!!M4!J!p!$%!-2!"!!j!0G%-J$%!"J!L!$!!)[!"!!T!0G%
#J$%!!J!`m!%!$N!ed31!-3!'d3-!+`!am"-!$)!a!!M4!`!m!$%!-2!"!!T!0G%
!J$%!!Y%$m"d!%%!ed3#!-3!#!$#!-3!#d3$`!3!+3$A4$B!a!!,4!1!%m"-!$)!
a!!M4!`!p!$%!-2!"!!j!0G%0J$%!"J!L!$!!)[!"!!T!0G%$J$%!!J!`m!%!$N!
ed35!-3!'d33!+`!am"-!$)!a!!M4"!!m!$%!-2!"!!T!0G%!J$%!!Y%%m"d!%%!
ed3#!-3!#!$#!-3!#d3$`!3!+3$A4$S!a!!,4!1!%m"-!$)!a!!M4"!!p!$%!-2!
"!!j!0G%1J$%!"J!L!$!!)[!"!!T!0G%%J$%!!J!`m!%!$N!ed3@!-3!'d38!+`!
am"-!$)!a!!M4"3!m!$%!-2!"!!T!0G%!J$%!!Y%&m"d!%%!ed3#!-3!#!$#!-3!
#d3$`!3!+3$A4$i!a!!,4!1!%m"-!$)!a!!M4"3!p!$%!-2!"!!j!0G%2J$%!"J!
L!$!!)[!"!!T!0G%&J$%!!J!`m!%!$N!ed3D!-3!'d3B!+`!am"-!$)!a!!M4"J!
m!$%!-2!"!!T!0G%!J$%!!Y%'m"d!%%!ed3#!-3!#!$#!-3!#d3$`!3!+3$A4%)!
a!!,4!1!%i!6J"1!%i!6J"2!(!!)")2!(!$`l)#f31[!(!$Sj)&*PE@pfC5"dD'8
JFf9YD@0[E'pZ)'CbEfdJB@jj)'pZC5"[CL"dD'8JG'KbC@8JCQpXE'phD@jRm!F
!3$mJ)NPQ)L"KEQ3JG'KP)'C[E'a[GfPZCb!L4@jN)%PQ)L"cG'&dC@ePER3JG'm
JGA"NBA4P)(4SC5"`FQpYF(6`"`!5%5"XCA0c)'CbCA&eC@jdE(NZm!F!-#iJ5@B
J+&CKFM%a25)`)LNl)(9`C'&dCA-JCACPFRNJ-6!JDA4PFQ&dD@pZFbiJGI!(!$S
j)%PQ)#K@BA)a-6dL-#)Q9Q&b-6)p)M!L+6XJGA"NBA4PFb"PGQ9bH5!a-$!JDA4
PFQ&dD@pZFbiJm!F!4%-J5@BJ+&CKFM%a25)`)LC@BA)a-MdL-#)Q9Q&b-6-p)M!
L+6XJGA"NBA4PFb"PGQ9bH5!a-*!$)'PdCA*KG'P[ER-Zm"X!5S!a!!3!0`!bJ$%
!"!!h!$)!-!K3FQpRFQ9cF`#!-!!U!#)!3`"[!(8!EJ"d!$S!)!!L!#64%!!Nd3m
!*0%1!#64$3!Nd3`!*0%,m!F!#!FJ4@jN)%PQm!F!2$XJ,C!km#3!$S!a!!V4%!!
p!#)!13!L!!!"S!!!!3J!#!#3r`#3!`Cl9e"p-$%!N#B"!'IF%`!L'3")!!!##!#
3!dJ!!!)F!!!C*J#3!``!!`!3!!!Q!#)6h+V3!3!8!%J!N!0)!*!$5!#3!c3!N!-
8!G$3"!!FJ3$rZ!!!jJ!N!!$rJ3$rZ!!!jJ!N!!$r!"`%d+[-#UYS[!r-$!#3!bN
$%)!"!!!$-bia(M-Z-5`JU5!a16Jj,#!a16Nd)%j[GQ9XE#`J5@jM,J#3!bJ$%)!
"!!!$-bia(80bC@&dC@3JGfPdD#"AEh*N8'9bCQ9MG+SJ-bia!*!$,J!!!Bi!+!!
M!FS#I`!!V'L2NUaREE%!N!kUSeT)!*!*H!!)!*!$5!")!*!%!YX#32rRrqi#r`*
5(`-&+!2m!!%!!!%X!5`!N!3,j`PJ!5`!,3@JAZ`!*J)"N!-!'!!"*`m!!3!"!*!
0!3#3&`)!N!3%!J3&!*!'!3#3!a(-!!!3c!#3!ri!Ma#!-mJ!N!-F!0i!#&"6CA3
!N!0+8%T[BJ#3!eC6G(PX!*!$BRCPFR-!!3"Z8e45)!#3!iCAE@&M!*!$NP46G'`
!N!1H9d4KG!#3!kT3G&"d!*!$YJ!"rrm!N!@2"jJ!!Irr!*!$&J#2"d`!!3!!)!!
!+!#3"3(rrb!!$m8!M`K3!!,rrb!!$r)!M`G3[r6rrb!!"2N!N!4hN!!!"b!!"3N
!N!3Km`!C!!!1)3#3"3(rr`!!%"i!Ma0i!!(rr`!!%&!!N!3'HeG3I6!a%89iG'9
ZC'9N)%0[G@jdD@jR"RYA8(da-0`6!#SC!%J!!!)F!*!$5!!!!M!!!"ND!!8!N!-
&'LB!N!-2!!8!&!!!*J!U%pc1!!#N!!$1f`-!%UaSMj)!!!Cl9e"p-6!!!")$fp)
+!"Vr!*!$$`!m!!m!22m!N!-2!%X!$`",!"S+dY-!!"3!,[mZ!#cr,!!Z!#i!,!!
X!"3!dp!"!"3!5!#3!dJ!N!0)!*!$0!#3!a3"d0X!!!)!fkV3"J!'!!%!"JE3Up%
"!"QXD)q5!!-!!3!3!!%)8'&XBA4TEQm!'3(4d3)!#!!-!")!#!,4d3!!%!#3#[r
r!"!!d89iG'9ZC'9N)%0[G@jdD@jRd3)!#!!5!!`!#!,4h!)!(!-!N!S$*J#3!``
!"!!3!!!Q!"`#h-i!!''!!-l4!J!)!!`!$J!)!Y($!3($6@&MFQmJ8QpeG'PZC5"
QEh)J9fpbC&"PFQCPBh3JCQpb)%eKBfPZG'pcD--"J-24!!!3!*!%rrm!N!F3!0(
F!J!`!3!"!!%!!J#3!a3!N!-N!*!%!3-!N!-8!*!$&!!!!bB!N!-+!!3!$J!!*J!
`!Yc1!!$$J!$1d3)!#!!1!!`!#!,4`a)"`m$4"#,!9Q9bFfP[EL!a,M$0!J!#V'L
2NXdZc3-!!UaSMj,0-F$4"#,!`a+!`p`#!$!"!!)!!3!$!*!$*!#3!c)!N!3"!`#
3!b3!N!-N!!!$*J#3!`S!"!!1!!!Q!$!#h-i!!0B!!-l4!!!3!*!'lZi!N!83!0%
i)%eKH5!a16Ned3!!%1lZ!*!,%!$4h!)!'!%!!`!"!!3!N!-b!*!$3!#3"!%!'!,
FUY!'!!B"!!!'"Y#Vh!)!'!%!"!!"!!8!N!0!!*!$6J#3"!%!'!,F9'KP)'eKBh*
[,#$!dJ3H`%9iG'9ZC'9N)%0[G@jdD@jR`0-%(m!JFf&fC@3JD@iJG'KTFb"NEf0
eE@9ZG#"NC@e[ER0dFQ&dCA-JB@iJB@aREh*TG'KYh!!!!J$FGfKTBfJJB@aXEhG
c)(P[G5"dEb"MEh9ZG#"LCAP[EQ3J9fpbC&"PFQCPBh6!e33F`(-JGQ&bD@&LE'8
JE'PYDA3JEfBJ-c)X0cBh,Y`#!"J"!!8!!J!(!*!$6J#3!fS!N!3"!"J#h0`#!"J
"!!B!!3!)!*!$DJ#3!hJ!N!3"!"J#h%ej)("eFR"[Ff8JD@iJGh*TG'PZCb"dD'P
c)(GKFb"dEb"KE'a[Gb"K)("bEfe`G#"NDA0`E'&jD@jR)'%JBfpeER4PFL"fBA*
TB@*XC5"dEp`!!!)!h'0[ER4TER9P)(G[FQYTEQFJB@CdCA)J-c)X0cBh)'PdCA*
KG'P[ER-Zh!)!'!%!"`!#!!S!N!0i!*!$P!#3"!%!'!,Fh!)!'!%!#!!"!!X!N!1
8!*!$SJ#3"!%!'!,F9'KP)%9iG'9ZC'9N)%0[G@jdD@jR)'eKBh*[)(9`C'&dCA-
JB5"`FQpYF(3JC@&MD#"dD@eP)(4SC5"MEh9ZG'9b)'Pc)'PZBh*PE@9ZG'9Nh!!
!!J$FBRNJ-5iJ)%4TFh"XBAPTEQFJG'KP)(9`C'&dC@3JF(*[EA"d)(4KDf9c)'e
eBfJJE'pZCf9b)(4SB@iJD@jMFQ9YC@jdD@jR)(4SCG`!!!)!h(CKFQPKBQaPFb"
ZC@9NC@3JG'mJC'PcF'aKH5"dD'8JF(*[EA"d,L!J9'KPFQ9QEh*P,#"TCL"jEh8
JBfK[Eh0P)(4[)(9`C'&dC5"dD'8JF(*[EA"dh!!!!J$FCACPFRNJ-6!`)'PZBh*
PE@9ZG(-X)(P[G5"hD@aX)'j[G'PMC5"K)'eKFQYPC#"TEQ0bC@&cC5"TEL"cF'9
PC#iJ)%PZ)(4SC5"YB@0bEb"MEf4P,#"*h!!!!J$FD'&fC5"MEfeYC@jdC@3JEh9
d)-$5""l!5@E!d`3I`#"cG'&dC@ePER4c)(4[)(9`C'&dC5"dD'8JF(*[EA"d)'9
fCA*j)$%`,#!a-$!X)'pb)$%X-*!$)("KFh0PFbkrh!)!'!%!#3!&!"!!N!1L!*!
$k!#3"!%!'!,Fh!)!'!%!#J!"!"%!N!2S!*!$pJ#3"!%!'!,F9'KTFb"NEf0eE@9
ZG'&dD@pZ)'&ZC#"dD'8J4AKdC@jNC@3J3fpeER4TEQFJE@&MFQmJC@eLC@4NC@3
JD@iJG'KTFb"NEf0eE@9ZG#$!U33A`0`!!!)!h%0[F(PbD@GSG#!a16Ne)'*j)%G
PEh*RC5"0BA0MD'YP,L!J3@aX)(*TCfKdFb"bCA0PFRCPC#iJ)&4SDA-JE@&MFQm
JDA-JCR*PC5`JB@jN)'eKH5"LCG`!!!)!h'CbC@9XH5"NDA0dFQPLGA4PC#`JBR9
d)'j[G#"cEfaN)'C[FL"`FQpQDA3Z)#"CEh8JE@&j)'CbC@9XH5"KEQ3JGfPdD'p
eG#"MD'&bCfAF!!!#!0aTEQ0[FR"[FQ&dC5"YH5"KE'G[FQPdD'dJD@iJH@peFL"
[GfiJE@&MFQpc,#"TEQ0XG@4TEQFJB@jj)(P[G5"YBANJFf9XE#iJ)&0PEQ6F!!!
#!0abC@eKFQYc)(4[)0%!!"!!N!EZlJ#3"4!!dAGdE'9QCA*MGA0!B@pX,Q0[EG%
!!"$ZlJ#3#a!!d5k0Q`!!!: