0 '*** STIMER.BA Speedo Test PCM 05-86 1 'Club 100 Library 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 ' Speedometer timer. Tap to start timer, again to stop. Records MPH in RAM and resets for another run. 3 MAXFILES=1:NT=1 4 CLS:PRINT@4,"* SPEEDOMETER CHECK TIMER *":PRINT: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.":' 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 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 ' 17 SC=N/100:MPH=1/(SC/3600):OPEN"RAM:MPH"+STR$(NT)+".DO"FOROUTPUTAS1:PRINT#1," TIME = "MI" MINUTES,";SE "SECONDS":A$=" MILES PER HOUR =":PRINT#1,USING"\ \ ####.##";A$,MPH:CLOSE:NT=NT+1:GOTO4