0 ' *** TIMER.BA  ***
1 ' Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 ' Calibrate with "T" feature. If counts per second always < 100 decrease number of "#" in 210-220 until counts = 100.
3 ' If counts > 100 increase "#" in 210-220 until = 100. Loop is fine-tuned when counts per second always = 100.
4 CLS:PRINT@10,"* INTERVAL  TIMER *":PRINT:PRINTTAB(4)"Tap space bar to start TIMER.":PRINTTAB(4)"Tap space bar again to stop TIMER.":PRINT:PRINT" or Tap <T> key to check TIMER cali-         bration. Wait 30 seconds.":'
5 '
6 A$=TIME$:X$=INKEY$:IFX$=""THEN6
7 IFX$="T"THENNN=3000ELSENN=18000
8 FORN=1TONN:C$="############":D$="#########":Y$=INKEY$:IFY$=""THENNEXT
9 B$=TIME$:'
10 IFX$="T"THEN11ELSE13
11 N=N-1:T1=VAL(RIGHT$(B$,2)):T2=VAL(RIGHT$(A$,2)):IFT1<T2THENT1=T1+60
12 ET=T1-T2:CO=N/ET:CLS:PRINT@85,"COUNTS = "CO" PER SECOND.":PRINT:PRINT"THIS COUNT MUST BE 100. IF NOT, INTERNALPROGRAM ADJUSTMENT MAY BE REQUIRED. TRY":PRINT"IT AGAIN. PRESS <F4> TO RE-RUN TIMER.":END:'
13 IFN>18000THENCLS:PRINT@240,"ELAPSED TIME OUT OF RANGE OF TIMER.":BEEP:END
14 '
15 N=N-1:SE=N/100:IFSE>59THENMI=FIX(SE/60):SE=SE-(60*MI)
16 CLS:PRINT@120,"ELAPSED TIME ="MI"MINUTE,"SE"SECONDS.":PRINT:PRINT:PRINT"PRESS <F4> TO RE-RUN TIMER.":END