10 DIM rec(6):CLS:INK 0,0:MODE 1:INK 1,26:BORDER 0:FOR j=0 TO 6:rec(j)=15:NEXT j
20 LOCATE 15,7:PRINT "TYPING TEST":LOCATE 8,11:PRINT "WRITTEN BY GILLIAN FREEMAN":LOCATE 16,15:PRINT "MARCH '89":LOCATE 10,24:PRINT "PRESS ANY KEY TO GO ON":CALL &BB18:CLS:LOCATE 5,9:PRINT "TYPE EACH SENTENCE AS ACCURATELY":LOCATE 8,10:PRINT "AND AS" 30 LOCATE 15,10:PRINT "QUICKLY AS POSSIBLE":LOCATE 14,24:PRINT "PRESS ANY KEY":LOCATE 6,16:PRINT "EACH ERROR COSTS YOU ONE SECOND":CALL &BB18 40 CLS:d=INT(RND*5):RESTORE 90:FOR i=0 TO d:READ a$:NEXT i:LOCATE 3,1:PRINT a$:s=i:t=TIME:INPUT b$:tt=TIME:mistake=0:FOR i=0 TO LEN (b$)-1:IF MID$(a$,i+1,1)<>MID$(b$,i+1,1) THEN mistake=mistake+1 50 NEXT i:IF LEN(b$)<LEN(a$) THEN mistake=mistake+(LEN(a$)-LEN(b$)) 60 IF LEN(b$)>LEN(a$) THEN mistake=mistake+(LEN(b$)-LEN(a$)) 70 timer=INT(((tt-t)/300)*100)/100+mistake:IF timer<rec(s) THEN rec(s)=timer:PRINT:PRINT"Congratulations! You have broken the record." 80 PRINT"It took you";timer;"seconds and you made";mistake;"errors." 90 DATA "Amstrad Computer User is great!","Many Hands Make Light Work","Too Many Cooks Spoil The Broth","Two Heads Are Better Than One","Every Cloud Has A Silver Lining","A Stitch In Time Saves Nine","A Rolling Stone Gathers No Moss" 100 PRINT"Press any key to play again":CALL &BB18:GOTO 40 |