PQ)CSRETADRADRSTEMPQBLNLINECUTDOTSTAMPTOPDLLSSTARFINSCCC  THE ENVELOPE MAKERBY TODD R. THEDELL(c)1987, ANTIC PUBLISHINGd SETUPnrr;@,;@$$@,;@$$@,;@$$@,;@%,;@$$@,;@%,x11;@,;@,;@,;@,!6.>:A%,!CLEAR SCREEN1 6. "67@$$@,.167@,. 6.6. . . . . 6..6. ------ 6.| |ﬠ ApSETBG A'MAIN PROGRAM SETBG-*0@+H:,$@,-$ CAPS"-*A+F:A,",$@d-$, CURSOR6-*AR+F:AR,",$@-$@ WELCOMEJ(T'-@@'@@^ A->CURSOR OFFh( .r( . .|( . .!!( . .""(""(||""(||""(||""(|Š|""(|ԠР|""(|Š|""(|Ҡ|""(|젠|""(||""(||""(||""(-@A @@$& CONVERT0-@B:,:!!67<,.>:@:7<,,%A(,D N$X SENDERb-@l"v A`67$@$%@,. 6-B:,67%@,. ( ApSETBG 6-B:,$$-P:'@$,&@-@%@,,(7$@$%@<$@$%@$,  A->CURSOR ON'-@@ Ap'SETBG9,(#? Y9@4Y)4y$ ( ApSETBG.-@@.(ҠΠ 6-* ALOWERCASE4)-@%@)(%@->>@HB:,"A R67$@$%@,.\ 6-B:,f67%@,.p6-%@z!@A  A  ACURSOR OFF AUPPERCASE"6. A SENT2(-@@ ApSETBG(ҠŠ6- ALOWERCASE@-@@%@(7$@$%@<$@$%@$,)-@@%)(%@->@B:,"A67$@$%@,.$ 6-B:,.67%@,.86-%@B!@AL AV AUPPERCASE`"6.j(t ACURSOR OFF~ 6-B:,$$-P:'@$,&@-@@%,,(7$@$%@<$@$%@$, -@@ ACURSOR ON2%(? Y2@!4N)4n6.! A `$ CHECK( Ap A 3-@@'@@3L. MARGIN (  (ԠҠϠŠР( (ŠΠŠҠ2 (< (ӠξF (P AERROR CHECKZ!@@!L. MARGINd@i.@.@@P:n(x$$-P:'@$,&@-@@%,,(7$@$%@<$@$%@$, $$-P:'@$,&@-@@%,,(7$@$%@<$@$%@$,  APPOSTAGE-@@++(#ǠӠŠ-@@ ++(#Ӡ˾ϠРǠ$ POSTAGE-@0@(-@0@(| |"-@0@(| |,-@0@(6$@,,(" ˠҠҡJ3()( ΠΠҠҠ3 AT SPACES^-@h(@ r |(@$ SIDES$6-@ A $->SPACES$6-@d A $->SPACES(@$ FOLD-@@!(@  $ BEGIN6-$@$%@6-$@$%@$6-%@$& BEGIN0 A:(((@7@<@4,7<,D$NPRINT ITX (BEGIN)b SETBGl Apv$6-@9 A $(@'6-@(6-@'6-@)-@@@(@  6- A  6- A SP=C3:GOSUB 1620(@(@6-&@6-%@6-&@  A (@ (@ . .*& A@&(@ . . . .4>##(@7@<@d,HV"(@7@<@,.6-8 AK(@7<,V6.7<,R22(@7@<@d&+@%B:,,,\f#6-@ A # Ap(@ 7<,z88(@7@<@d&+@%B:,,, J"(@7@<@,, A?(@7<,J6.7<,22(@7@<@d&+@%B:,,,! A!7,47,A"0(@7,6.7,;1(@7@<@d&+@%B:,,,; A"@""(@7@<@d,(@ A(@# A(@#(@  A 6-$ A@. (@8 T6-@ A # AI(@7@<@4,7<,T6.7<,B .((@7@6%B:,<@t,.#36L (@V A@` Aj A@t # A(@#(@~ # A(@#(@ A  (@  A@ (@ (@(@  -@Q@x@  A(@   A  ACURSOR ON $ MORE??? ( Ap( -@@2 4'(ϠՠԠϠϠҿ N4@< 4N)4nA&F 'P <(/(#ϠՠԠŠŠӿ N<@Z 4N)4nA'd  A'0? IT AGAINn  A%SAY WHAT?x ( $GOODBY. MAIN PROGRAM  A0-->WELCOME  A-->SENDER  A `-->SENT2  A`->CHECK  A->PRINTIT  A%->MORE? D1:ENVELOPE.BAS