^_O""FILECSRETADRADRSTEMPQBLNLINEDOTSTAMPTOPDLFLACOUNLSSTARFINSCCCPASxxxxxwxx! ) * 2 A @@A  THE ENVELOPE MAKERBY TODD R. THEDELL(c)1987, ANTIC PUBLISHING(DISKFILE ENHANCEMENT-BY S.L. HARRISON.(c)1988, ANTIC PUBLISHING2"A@";@,d 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 #A6-l"v A`67$@$%@,. 6-B:,67%@,.% A6-%@% A # B( Ap#SETBG 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#A@d# AE(ҠŠ6-6. ALOWERCASE@-@@%@(7$@$%@<$@$%@$,)-@@%)(%@->@B:,"A AP-&@@ A'`@3"*B:, @6'@ AE67$@$%@,.$ 6-B:,.67%@,.1( A3 5 A 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# 6-@ A&( -@@2 4'(ϠՠԠϠϠҿ N4@< 4N)4nA&F 'P <(/(#ϠՠԠŠŠӿ N<@Z 4N)4nA&d  A'0? IT AGAINn  A%SAY WHAT?x ( $GOODBY. MAIN PROGRAM  * A'   A0-->WELCOME  A-->SENDER  A0->KEYBD OR DISK  A `-->SENT2  A`->CHECK  A->PRINTIT  A%->MORE?  KEYBOARD OR DISK  ApSETBG !A@d!UPPERCASE Q(-@@D(%ENTER NAMES FROM EYBOARD OR ISK? DQ@ 4K)4k6- $ 0D*0d A0  6-@ GET NAME FROM DISK ' Ap A'SETBG, CURSOR ^(-@@:(INSERT DISK WITH LABEL FILES^( PRESS Π WHEN READY Q@.@@K:;)@GAUQ A0 A A@;@@D:*.*A(}& ( A1 @(( A10 =@(9(#ENTER NAME OF FILE CONTAINING NAMES=: X 6.D:<7@<@,0:*7@<@,0:K67@,.Q6.X6.D 7@+@@76-N @X B:, @ A2b 6-%@l $!@@$ A2 v A1P " A1P @ A2p ;(-@@;([DO NOT INCLUDE BLANK LINES!] H-@@;( HOW MANY LINES IN EACH RECORD 3H@ @ @(6(YOU MUST HAVE AT LEAST ONE LINE@ A2` 7!@(7( YOU CAN'T HAVE MORE THAN 4 LINES ; @)!@--@AP1 ; A0  +@+@@ $D1:ENVELOPE.TST