CLEAR
@ 12,0 SAY '*****************************************'
SAVE SCREEN TO CLOCK1

CLEAR
@ 12,40 SAY '*'
@ 11,37 SAY '*'
@ 10,34 SAY '*'
@ 9,31 SAY '*'
@ 8,28 SAY '*'
@ 7,25 SAY '*'
@ 6,22 SAY '*'
@ 5,19 SAY '*'
@ 4,16 SAY '*'
@ 3,13 SAY '*'
@ 2,10 SAY '*'
@ 1,7 SAY '*'
@ 0,4 SAY '*'
SAVE SCREEN TO CLOCK2

CLEAR
@ 12,40 SAY '*'
@ 11,40 SAY '*'
@ 10,40 SAY '*'
@ 9,40 SAY '*'
@ 8,40 SAY '*'
@ 7,40 SAY '*'
@ 6,40 SAY '*'
@ 5,40 SAY '*'
@ 4,40 SAY '*'
@ 3,40 SAY '*'
@ 2,40 SAY '*'
@ 1,40 SAY '*'
@ 0,40 SAY '*'
SAVE SCREEN TO CLOCK3

CLEAR
@ 12,40 SAY '*'
@ 11,43 SAY '*'
@ 10,46 SAY '*'
@ 9,49 SAY '*'
@ 8,52 SAY '*'
@ 7,55 SAY '*'
@ 6,58 SAY '*'
@ 5,61 SAY '*'
@ 4,64 SAY '*'
@ 3,67 SAY '*'
@ 2,70 SAY '*'
@ 1,73 SAY '*'
@ 0,76 SAY '*'
SAVE SCREEN TO CLOCK4
CLEAR
@ 12,40 SAY '****************************************'
SAVE SCREEN TO CLOCK5

CLEAR
@ 12,40 SAY '*'
@ 13,43 SAY '*'
@ 14,46 SAY '*'
@ 15,49 SAY '*'
@ 16,52 SAY '*'
@ 17,55 SAY '*'
@ 18,58 SAY '*'
@ 19,61 SAY '*'
@ 20,64 SAY '*'
@ 21,67 SAY '*'
@ 22,70 SAY '*'
@ 23,73 SAY '*'
@ 24,76 SAY '*'
SAVE SCREEN TO CLOCK6

CLEAR
@ 12,40 SAY '*'
@ 13,40 SAY '*'
@ 14,40 SAY '*'
@ 15,40 SAY '*'
@ 16,40 SAY '*'
@ 17,40 SAY '*'
@ 18,40 SAY '*'
@ 19,40 SAY '*'
@ 20,40 SAY '*'
@ 21,40 SAY '*'
@ 22,40 SAY '*'
@ 23,40 SAY '*'
@ 24,40 SAY '*'
SAVE SCREEN TO CLOCK7

CLEAR
@ 12,40 SAY '*'
@ 13,37 SAY '*'
@ 14,34 SAY '*'
@ 15,31 SAY '*'
@ 16,28 SAY '*'
@ 17,25 SAY '*'
@ 18,22 SAY '*'
@ 19,19 SAY '*'
@ 20,16 SAY '*'
@ 21,13 SAY '*'
@ 22,10 SAY '*'
@ 23,7 SAY '*'
@ 24,4 SAY '*'
SAVE SCREEN TO CLOCK8

DO WHILE .T.
RESTORE SCREEN FROM CLOCK1
CLEAR
DO CDELAY
RESTORE SCREEN FROM CLOCK2
CLEAR
DO CDELAY
RESTORE SCREEN FROM CLOCK3
PRESSED = LASTKEY()
PRESSED1 = INKEY()
IF PRESSED = 27 .OR. PRESSED1 = 27
 EXIT
ENDIF
CLEAR
DO CDELAY
RESTORE SCREEN FROM CLOCK4
PRESSED = LASTKEY()
PRESSED1 = INKEY()
IF PRESSED = 27 .OR. PRESSED1 = 27
 EXIT
ENDIF
CLEAR
DO CDELAY
RESTORE SCREEN FROM CLOCK5
PRESSED = LASTKEY()
PRESSED1 = INKEY()
IF PRESSED = 27 .OR. PRESSED1 = 27
 EXIT
ENDIF
CLEAR
DO CDELAY
RESTORE SCREEN FROM CLOCK6
PRESSED = LASTKEY()
PRESSED1 = INKEY()
IF PRESSED = 27 .OR. PRESSED1 = 27
 EXIT
ENDIF
CLEAR
DO CDELAY
RESTORE SCREEN FROM CLOCK7
PRESSED = LASTKEY()
PRESSED1 = INKEY()
IF PRESSED = 27 .OR. PRESSED1 = 27
 EXIT
ENDIF
CLEAR
DO CDELAY
RESTORE SCREEN FROM CLOCK8
PRESSED = LASTKEY()
PRESSED1 = INKEY()
IF PRESSED = 27 .OR. PRESSED1 = 27
 EXIT
ENDIF
CLEAR
DO CDELAY
ENDDO
Y()
PRESSED1 = INKEY()
IF PRESSED = 27 .OR. PRESSED1 = 27
 EXIT
ENDIF
CLEAR
DO CDELAY
RESTORE SCREEN FROM CLOCK6
PRESSED = LASTKEY()
PRESSED1 = INKEY()
IF PRESSED = 27 .OR. PRESSED1 = 27
 EXIT
ENDIF
CLEAR
DO CDELAY
RESTORE SCREEN FROM CLOCK7
PRESSED = LASTKEY()
PRESSED1 = INKEY()
IF PRESSED = 27 .OR. PRESSED1 = 27
 EXIT
ENDIF
CLEAR
DO CDELAY
RESTORE SCREEN FROM CLOCK8
PRESSED = LASTKEY()
PRESSED1 = INKEY()
IF PRESSED = 27 .OR. PRESSED1 = 27
 EXIT