CPT=3 while CPT > 0 db CPT CPT=CPT-1 wend