PROCEDURE trackk
SET TALK OFF
DO WHILE .T.
   CLEAR
   STORE YEAR(DATE( )) TO ye
   @2,60 SAY ''+cday
   @2,3 SAY '(trackk)'
   @2,25 SAY 'Mansuh Data Tahunan Daftar Bil'
   @1,1 TO 4,77 DOUBLE
   @0,0 TO 23,78 DOUBLE COLOR N/BG
   CLOSE ALL
   pp=SPACE(1)
   @8,25 SAY  ' Teruskan Proses (y/n) ' GET pp PICTURE "Y";
      VALID pp $"YN" error" Taip Y Atau N Sahaja"
   READ
   ...
   ...
   return