'{$STAMP BS2} myword var word input 5 input 6 myloop: pulsin 5, 1, myword debug DEC myword, cr goto myloop