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