'SET TIMER HERE H=0 M=0 S=3 'INIT T0=((H*60+M)*60+S)*60 T$="" TIME0=TIMER+T0 DO T=INT((TIMER-TIME0)/60) IF T<0 THEN CALL DISP_STR(-T,T$) PLAY 0,82 SOUND 6 ELSE TIME0=TIMER+T0 CALL DISP_STR(T0\60,T$) PLAY 0,68 SOUND 0 END IF TEXT 0,7," " CALL CENTER(10,7,T$) CALL LOOPTIMER LOOP SUB CENTER(C,Y,T$) X=INT(C-LEN(T$)*0.5) TEXT X,Y,T$ 'NUMBER 0,Y,X,1 'NUMBER 18,Y,20-(X+LEN(T$)),2 'NUMBER 18,Y,20-(X+LEN(T$))-X,2 END SUB SUB DISP_STR(T,T$) H$="" M$="" S$="" H=(T\3600) MOD 60 M=(T\60) MOD 60 S= T MOD 60 CALL STR_2DIG(H,H$) CALL STR_2DIG(M,M$) CALL STR_2DIG(S,S$) N=ABS(H=0)+ABS(H=0 AND M=0) T$=RIGHT$(H$+":"+M$+":"+S$,8-N*3) END SUB SUB STR_DIG(T,T$,N) Z$="" FOR I=0 TO N Z$=Z$+"0" NEXT I T$=RIGHT$(Z$+STR$(T),N) END SUB SUB STR_2DIG(T,T$) T$=RIGHT$("0"+STR$(T),2) END SUB SUB LOOPTIMER 'SELF-ADJUSTING WAIT 1 SECOND FUNCTION A=90-(TIMER+30) MOD 60 IF A>0 THEN WAIT A 'TRACE TIMER MOD 60 'IT'LL CANCEL OUT THE DELAY FLUCTUATIONS END SUB #1:MAIN PALETTES 002F0F0500383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #15:MAIN SOUND 1500720015EB0F001500720017EB0F00 2B00F200178F7F000B00727B1FFF0000 5801F00F14FF00005801F00F15FF0000 5801F00F140000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 00404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 260F0000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000