0 ' ETIMER.BA author unknown 1 ' CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 ' Enter title (5 char.), contestant (10 char.) Tap to begin timing. 3 ' Tap again to stop. Now enter next contestant or END. 4 MAXFILES=1:DIMCI$(20),CE$(20),MI(20),ME(20),DO(20),SE(20),SC(20),SD(20):CLS 5 CLS:PRINT@13,"EVENT TIMER":PRINT@120,;:INPUT"ENTER EVENT TITLE (5 CHRS MAX)";ET$:CLS:IFLEN(ET$)>5THEN5ELSEIFET$="END"THENMAXFILES=0:MENU 6 PRINT@13,"* EVENT TIMER *" 7 PRINT:INPUT"ENTER CONTESTENT IDENTIFIER (10 CHRS MAX) ";CI$:CLS:PRINT@15,CI$:IFCI$="END"THEN22 8 PRINTTAB(4)"Tap space bar to start TIMER.":PRINTTAB(4)"Tap space bar again to stop TIMER.":PRINT:PRINT" or Tap key to check TIMER cali- bration. Wait 30 seconds.":' 9 ' 10 A$=TIME$:X$=INKEY$:IFX$=""THEN10 11 IFX$="T"THENNN=3000ELSENN=18000 12 FORN=1TONN:C$="########":D$="######":Y$=INKEY$:IFY$=""THENNEXT 13 B$=TIME$:' 14 IFX$="T"THEN15ELSE17 15 N=N-1:T1=VAL(RIGHT$(B$,2)):T2=VAL(RIGHT$(A$,2)):IFT1 TO RE-RUN TIMER.":END:' 17 IFN>18000THENCLS:PRINT@240,"ELAPSED TIME OUT OF RANGE OF TIMER.":FORD=0TO20:BEEP:NEXTD:RUN 18 ' 19 N=N-1:SE=N/100:SC=SE:IFSE>59THENMI=FIX(SE/60):SC=SE-(60*MI) 20 CLS:PRINT@120,"ELAPSED TIME ="MI"MINUTE,"SC"SECONDS.":FORD=0TO1000:NEXT:' 21 J=J+1:CI$(J)=CI$:MI(J)=MI:SC(J)=SC:SE(J)=SE:IFJ=NCTHEN22ELSECLS:GOTO7 22 ' 23 Q=1:FORSJ=1TOJ: FORIJ=1TOJ: IFSE(SJ)>SE(IJ)THENQ=Q+1 24 NEXTIJ:DO(Q)=Q:CE$(Q)=CI$(SJ):ME(Q)=MI(SJ):SD(Q)=SC(SJ):Q=1:NEXTSJ:' 25 CLS:FORNN=1TOJ:PRINTUSING" ## \ \ #, ##,.##";DO(NN),CE$(NN),ME(NN),SD(NN):CC=CC+1:IFCC=7THENINPUT"PRESS ENTER TO CONTINUE";CC$:CLS:CC=0 26 NEXTNN 27 PRINT@120,;:INPUT"RECORD TO RAM (Y/N)";OP$:IFOP$="Y"THEN28ELSEIFOP$="N"THENRUNELSE27 28 ' 29 OPEN"RAM:"+ET$+".DO"FOROUTPUTAS1:PRINT#1," ";ET$" EVENT":PRINT#1," ";DATE$;" ";TIME$:PRINT#1,USING"\ \\ \\ \\ \";" PLACE","CONTESTANT"," MIN"," SEC":FORSR=1TOJ 30 PRINT#1,USING" #, \ \ #, ##,.##";DO(SR),CE$(SR),ME(SR),SD(SR):NEXTSR:CLOSE:RUN