Julius - very generous of you to look at the code. I appreciate it. Unfortunately, I pasted many of the control characters directly from the SPECIAL CHARACTERS menu of FP so that don't show on the code. If you can make any sense of this,great. If not, that's ok.
IF PETFILE.SPECIES = 'D' OR PETFILE.SPECIES = 'F'
? ' Pets Name: ' + PETFILE.pet_name
?? ' Owners Name: ' + TRIM(clntfile->last_name) + ', '+ ALLT(CLNTFILE.FIRST_NAME)
?
? ' Breed: ' + PETFILE.breed + ' Address: '+clntfile->street
? ' '+ spac(42) + TRIM(clntfile->city)+', '+clntfile->state + ' '+ STR(clntfile->zip,5,0)
?
? ' D.O.B.: ' + DTOC(PETFILE.dob)+SPAC(13)
?? 'Office Phone: '
?? clntfile->mrwrkphone FUNC "@R (999) 999-9999 ET. 9999"
? ' '
? ' Sex: '+PETFILE.sex+SPAC(24)
??'Name: '
?? clntfile.spouse_nam + iif(len(allt(clntfile.spouse_las)) # 0, ' '+ Allt(clntfile.spouse_las),'')
? ' '
? ' Color: '+PETFILE.COLOR+SPAC(9)
?? 'Office Phone: '
?? clntfile.MRSwkphone FUNC "@R (999) 999-9999 ET. 9999"
?
? spac(34) + 'Home Phone: '
?? CLNTFILE.AREACODE FUNC "@R (999)"
?? ' '
?? CLNTFILE.HOME_PHONE PICT '999-9999'
?
? ' Date No. Problem Date No. Problem'
? 'Ú' + REPL(CHR(196),8)+'Â' + REPL(CHR(196),3) + 'Â'+REPL(CHR(196),24) +'Â' + REPL(CHR(196),8)+'Â' + REPL(CHR(196),3) + 'Â'+REPL(CHR(196),25)+ '¿'
FOR N = 1 TO 16
? '³ ³ ³ ³ ³ ³ ³'
?'Ã'+REPL(CHR(196),8)+'Å'+REPL(CHR(196),3)+'Å'+REPL(CHR(196),24)+'Å'+REPL(CHR(196),8)+'Å'+REPL(CHR(196),3)+'Å'+REPL(CHR(196),25)+ '´'
ENDFOR
? '³ ³ ³ ³ ³ ³ ³'
? 'À' + REPL(CHR(196),8)+ 'Á' + REPL(CHR(196),3) + 'Á' + REPL(CHR(196),24) + 'Á' + REPL(CHR(196),8) + 'Á' + REPL(CHR(196),3) + 'Á' + REPL(CHR(196),25) + +'Ù'
? 'Ú' + REPL(CHR(196),10) + 'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+REPL(CHR(196),5)+'¿'

? '³D-H-L-P-P ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Rabies ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'

? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Intra Trac³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Lymes ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'

? '³Stool ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Heartworm ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Weight ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'À'+ REPL(CHR(196),10)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5) + 'Ù'
ELSE
? ' Pets Name: ' + PETFILE.pet_name
?? ' Owners Name: ' + TRIM(clntfile->last_name) + ', '+ ALLT(CLNTFILE.FIRST_NAME)
?
? ' Breed: ' + PETFILE.breed + ' Address: '+clntfile->street
? ' '+ spac(42) + TRIM(clntfile->city)+', '+clntfile->state + ' '+ STR(clntfile->zip,5,0)
?
? ' D.O.B.: ' + DTOC(PETFILE.dob)+SPAC(13)
?? 'Office Phone: '
?? clntfile->mrwrkphone FUNC "@R (999) 999-9999 ET. 9999"
? ' '
? ' Sex: '+PETFILE.sex+SPAC(24)
??'Name: '
?? clntfile.spouse_nam + iif(len(allt(clntfile.spouse_las)) # 0, ' '+ Allt(clntfile.spouse_las),'')
? ' '
? ' Color: '+PETFILE.COLOR+SPAC(9)
?? 'Office Phone: '
?? clntfile.Mrswkphone FUNC "@R (999) 999-9999 ET. 9999"
?
? spac(34) + 'Home Phone: '
?? CLNTFILE.AREACODE FUNC "@R (999)"
?? ' '
?? CLNTFILE.HOME_PHONE PICT '999-9999'
?
? ' Date No. Problem Date No. Problem'
? 'Ú' + REPL(CHR(196),8)+'Â' + REPL(CHR(196),3) + 'Â'+REPL(CHR(196),24) +'Â' + REPL(CHR(196),8)+'Â' + REPL(CHR(196),3) + 'Â'+REPL(CHR(196),25)+ '¿'
FOR N = 1 TO 19
? '³ ³ ³ ³ ³ ³ ³'
?'Ã'+REPL(CHR(196),8)+'Å'+REPL(CHR(196),3)+'Å'+REPL(CHR(196),24)+'Å'+REPL(CHR(196),8)+'Å'+REPL(CHR(196),3)+'Å'+REPL(CHR(196),25)+ '´'
ENDFOR
? '³ ³ ³ ³ ³ ³ ³'
? 'À' + REPL(CHR(196),8)+ 'Á' + REPL(CHR(196),3) + 'Á' + REPL(CHR(196),24) + 'Á' + REPL(CHR(196),8) + 'Á' + REPL(CHR(196),3) + 'Á' + REPL(CHR(196),25) + +'Ù'
? 'Ú' + REPL(CHR(196),10) + 'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+ REPL(CHR(196),5)+'Â'+REPL(CHR(196),5)+'¿'
? '³FVRC-P ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Rabies ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'

? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Leukemia ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'Ã' + REPL(CHR(196),10)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+ 'Å'+ REPL(CHR(196),5)+'´'
? '³Weight ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³'
? 'À'+ REPL(CHR(196),10)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5)+'Á'+REPL(CHR(196),5) + 'Ù'
ENDIF