10 REM ************************
   20 REM Keystroke dynamics
   30 REM PROCkeystroke_dynamics
   40 REM Developed by Tim Surtell
   50 REM ************************
   60 REM NC100/200 Version 2
   70 REM Downloaded from Tim's NC Users' Site
   80 REM http://www.ncus.org.uk
   90 DIM kd(20):thres=70
  100 DEF PROCkeystroke_dynamics
  110 PRINT "Type in your password : ";
  120 FORI=1 TO 20:kd(I)=0:NEXT
  130 kdpos=1
  140 G=INKEY(1)
  150 IF G=-1 GOTO140
  160 IF G=13 GOTO200
  170 PRINTCHR$G;
  180 IF kdpos=1 kd(kdpos)=0:kd(kdpos+1)=G:kdpos=kdpos+2:TIME=0:GOTO140
  190 kd(kdpos)=TIME:kd(kdpos+1)=G:kdpos=kdpos+2:TIME=0:GOTO140
  200 K=OPENIN("PASSWORD.TXT")
  210 match=0
  220 FORI=1 TO kdpos-2 STEP 2
  230 INPUT#K,time,key
  240   IF kd(0,I)=time OR kd(0,I)-1=time OR kd(0,I)+1=time match=match+1
  250   IF kd(0,I+1)<>key match=-1:I=kdpos-2
  260 NEXT
  270 IF match=-1 percent=0 ELSE percent=INT((match/((kdpos-1)/2))*100)
  280 PRINT"Access ";:IF percent<thres PRINT;"denied.":GOTO110 ELSE PRINT;"granted."
  290 CLOSE#K
  300 ENDPROC