CLEAR
SET SAFETY OFF
CLOSE ALL
SET TALK OFF
DO WHILE .T.
   PUBLIC qk,qqk,port
   USE tlogin share
   CLEAR
   DO back
   @2,3 SAY '('+RTRIM(talib)+')'
   @20,60 SAY ''+cday
   @2,33 SAY '  Menu Utama   '
   SET CLOCK ON
   SET CLOCK TO 20,3
   @1,1 TO 4,78 DOUBLE
   @0,0 TO 23,80 DOUBLE
   @6,3 SAY '1. Daftar Pegawai Perolehan & Assset.  '
   @7,3 SAY '2. Daftar Pegawai Baucer.              '
   @8,3 SAY '3. Daftar Pegawai Pembayaran.          '
   @9,3 SAY '4. Inquiri Daftar Bil Kewangan.        '
   @10,3 SAY '5. Mansuh Rekod Tahunan.              '
   @11,3 SAY '6. Menu Senarai Daftar Bil.           '
   @12,3 SAY '7. Menu Daftar Pengguna.              '
   @13,3 SAY '8. Menu Daftar Kreditor.              '
   @14,3 SAY '9. Update Kiraan Hari.                       '
   @18,2 TO 22,78 DOUBLE
   DO slmenu
   qq=SPACE(2)
   @20,35 SAY 'Pilihan :'GET qq
   READ
   SET CLOCK OFF
   IF LEN(TRIM(qq))=0
      CLEAR
      RETURN
   ENDIF
   LOCATE FOR code=qk .AND. STATUS = VAL(qq)
   IF FOUND()
      STORE STATUS TO qqk
      IF qqk = 1
         DO trackm
      ENDIF
      ...
      ....
      .....