1 print"{clr}" 4 gosub1000 5 f=1 6 ti$="000000" 10 print"{clr}" 20 print"{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{left}{left}{left}{left}{down}{CBM-M}{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{rght}{left}{CBM-T}{CBM-T}{CBM-T}{up}{CBM-G}{up}{left}{CBM-G}{up}{left}{CBM-G}" 25 gosub200 30 print"{home}"; 35 ti$="000000" 36 f=f+1 40 a$=chr$(int(rnd(f)*26)+65) 50 print"{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$ 60 getb$:ifb$=""then60 70 ifb$=a$thengosub200:goto30 75 z=z+1 76 gosub200 80 goto60 200 a=a+(ti/60) 210 b=a/f 215 b=int(b*100)/100 216 print"{home} " 220 print"{home} time = "b;tab(18);" - mistakes = "z 225 iff=50then238 230 return 238 print"{clr}":fora=1to100:geta$:next 240 print"{clr}{down}{down}{down} average time = "b"seconds" 250 print" {down}mistakes = "z 260 print"{down}{down} w.p.m = "int(12.5/(a/60)*100)/100 270 print"{down}{down}{down} typing factor = ";int(271/((z+1)*((a+1)/100))) 280 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}press 1 to go again" 290 geta$:ifa$=""then290 300 ifa$<>"1"thenprint"{clr}":end 310 print"{clr}" 320 run 1000 poke59468,14 1010 print" Typing practice " 1020 print"{down}{down}" 1030 print" I WILL{$a0}DISPLAY{$a0}A{$a0}LETTER{$a0}AND{$a0}YOU{$a0}MUST" 1040 print" PRESS{$a0}THE{$a0}CORRECT{$a0}KEY" 1050 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}YOUR{$a0}AVERAGE{$a0}TIME{$a0}AND{$a0}NUMBER{$a0}OF{$a0}" 1060 print"MISTAKES WILL{$a0}BE{$a0}DISPLAYED" 1070 print" {down}{down}{down}AFTER{$a0}50 LETTERS{$a0}YOUR{$a0}AVERAGE{$a0}TIME," 1080 print"NO.OF{$a0}MISTAKES,TYPING{$a0}FACTOR{$a0}AND{$a0}w.p.m." 1090 print" (WORDS{$a0}PER{$a0}MINUTE) RATINGS{$a0}WILL{$a0}BE{$a0}" 1100 print"SHOWN." 1110 print"{down} PRESS{$a0}A{$a0}KEY{$a0}TO{$a0}BEGIN:-" 1120 geta$:ifa$=""then1120 1125 poke59468,12 1130 return