10 REM **************** 20 REM Laptime Program 30 REM By Ian Greenwood 40 REM **************** 50 REM NC100/200 Version 1.1 60 REM Downloaded from Tim's NC Users' Site 70 REM http://www.ncus.org.uk 80 CLS 90 LAP=1.84:REM Miles 100 VDU 17 110 PRINT TAB(6)"****** LAPTIME PROGRAM - PRESS T TO STOP TIMING AND Q TO QUIT ******" 120 VDU 18 130 INPUT '"DRIVER'S NAME/NO. ? "D$ 140 IF D$="Q" GOTO 340 150 PRINT "TIMING....."' 160 TIME=0 170 REPEAT 180 X=GET 190 UNTIL X=84 OR X=116 OR X=81 200 IF X=81 GOTO130 210 Y=TIME/100 220 A=Y/LAP 230 Z=3600/A 240 Z$=STR$(Z) 250 K$=LEFT$(Z$,6) 260 PRINT D$ Y " SECONDS "K$ " MPH " 270 Channel=OPENIN"TIMES" 280 CLOSE#Channel 290 IFChannel=0 Channel=OPENOUT"TIMES":PRINT#Channel,"Times from Laptime program"+CHR$13+CHR$13+">-----------------!---------------!-----------!----------------------R" ELSEChannel=OPENUP"TIMES" 300 PTR#Channel=EXT#Channel 310 PRINT #Channel,D$+CHR$9+STR$Y+" SECONDS"+CHR$9+K$+" MPH "+CHR$9+TIME$ 320 CLOSE#Channel 330 GOTO160 340 END