In the course of processing input data and metadata from a hypercard stack, a function uses 20 - 25 variables (either string or integers) So I have things like

If [StringQ [someVariable], Null, showXCardVariables ]
If [IntegerQ [someOtherVariable], Null, showXCardVariables [ ] ]

showXCardVariables [ ] currently looks like this 

 showXCardVariables [ ] := (  
  Print [ "NumCardsS = " ] Print [ numCardsS ]
   Print [ "NumCardsI = " ] Print [ numCardsI ]
    Print [ "gln =  "] Print [gln ]
      Print [ "cardEntryGln = "] Print [ cardEntryGln ]
        Print [ "lcln = "] Print [ lcln ]
         Print [ "line1 = " ] Print [ line1]
   Print [ "cardName = " ] Print [ cardName ] 
   Print [  "line2 = " ] Print [ line2 ]
   Print [  "cardID = " ] Print [ cardID ]
    Print  [ "xRefTile = " ] Print [ xRefTitle ]
      Print [ "numButtonsS = " ] Print [ numButtonsS ] 
     Print [ " numButtonsI = " ] Print [ numButtonsI ] 
   Print [ " buttonDataPointer = " ] Print [ buttonDataPointer ]
     Print [ "numTopicsS = " ]  Print [ numTopicsS ]
     Print [ "numTopicsI = " ] Print [ numTopicsI ]
    Print [ " topicDataPointer = " ] Print [ topicDataPointer ]
     Print [ " numlinesS = " ] Print [ numLinesS ]
       Print [ " numLinesI = " ] Print [ numLinesI ]
       Print [ " textDataPointer = " ] Print [ textDataPointer ]
         Print [ " lastLine = " ]  Print [ lastLine ]
   )

My problem is getting showXCardVariables to stop when it has been called, and not return, until I tell it to, so I can look at what went wrong. I can't find a way to do this.