PRINT (LP) (SUBJECT = MESS$);(TR)
Print (LP) (Text = '')
CLOSE (TEMPLATE)
IF ZZ1DIV$ EQ 'CA' THEN
OPEN (TEMPLATE) 'EMLTEMCA.HTM'
ELSE
OPEN (TEMPLATE) 'EMLTEMUS.HTM'
ENDIF
5994 !
READ (TEMPLATE,0004),EXCP=5998
IF SUB(TXTLN$,1,3) EQ BYTEORDER$ GOTO 5994
IF SUB(TXTLN$,1,5) EQ SKIPHTML5$ GOTO 5994
IF STRIP(TXTLN$) EQ '' GOTO 5994
IF POS('Body Message Placeholder',txtln$) NE 0 THEN
FOR J = 1 TO 10
! ALL TESTS GO HERE TO DETERMINE IF ANYTHING
! NEEDS TO BE DETECTED FOR REPLACING DATES, SHIP WEEKS,
! DOLLAR AMOUNT, DATES, ETC.
TXTLN$ = MSGARY$(J)
IF POS('XXXXXXXXXXXX',TXTLN$) NE 0 THEN
FOR K = 1 TO 6
IF STRIP(TRACKNOS$(K)) NE '' THEN
TXTLN$ = 'Tracking #: '
TXTLN$ = TXTLN$ + '' + STRIP(TRACKNOS$(K)) + '
'
PRINT (LP) (Text = TXTLN$)
ENDIF
NEXT K
ELSE
PRINT (LP) (Text = TXTLN$)
ENDIF
NEXT J
ELSE
PRINT (LP) (Text = TXTLN$)
ENDIF
GOTO 5994