here is a simple program that I have made that helps you to learn how to type faster. You can modify the code if you want and if you make any changes or improvements post them here so others can copy it and learn how to program faster.
Any way heres the program I hope it helps you
hide mouse
print "select level of difficulty"
print "1-practice (timer=1000)"
print "2-easy (timer=50)"
print "3-medium (timer=25)"
print "4-hard (timer=10)"
print "5-very hard (timer=5)"
print "6-impossible (timer=2)"
print "7-custom (timer=x)"
input choice$
if choice$="1" then ctime=1000
if choice$="2" then ctime=50
if choice$="3" then ctime=25
if choice$="4" then ctime=10
if choice$="5" then ctime=5
if choice$="6" then ctime=2
if choice$="7" then print "enter amount of time":input ctime
randomize rnd(99999)
timer=ctime
do
sync on:sync rate 0
cls:set cursor 0,0:ink rgb(250,250,250),1
if start=0 then print "(press any key to start)":suspend for key:start=1
if new=0 then randomize rnd(99999):letter=rnd(46):new=1
inc ti,1
if ti=20 then dec timer,1:ti=0
if letter=0 then l$="`"
if letter=1 then l$="a"
if letter=2 then l$="b"
if letter=3 then l$="c"
if letter=4 then l$="d"
if letter=5 then l$="e"
if letter=6 then l$="f"
if letter=7 then l$="g"
if letter=8 then l$="h"
if letter=9 then l$="i"
if letter=10 then l$="j"
if letter=11 then l$="k"
if letter=12 then l$="l"
if letter=13 then l$="m"
if letter=14 then l$="n"
if letter=15 then l$="o"
if letter=16 then l$="p"
if letter=17 then l$="q"
if letter=18 then l$="r"
if letter=19 then l$="s"
if letter=20 then l$="t"
if letter=21 then l$="u"
if letter=22 then l$="v"
if letter=23 then l$="w"
if letter=24 then l$="x"
if letter=25 then l$="y"
if letter=26 then l$="z"
if letter=27 then l$="1"
if letter=28 then l$="2"
if letter=29 then l$="3"
if letter=30 then l$="4"
if letter=31 then l$="5"
if letter=32 then l$="6"
if letter=33 then l$="7"
if letter=34 then l$="8"
if letter=35 then l$="9"
if letter=36 then l$="0"
if letter=37 then l$="-"
if letter=38 then l$="="
if letter=39 then l$="["
if letter=40 then l$="]"
if letter=41 then l$=";"
if letter=42 then l$="'"
if letter=43 then l$=","
if letter=44 then l$="."
if letter=45 then l$="/"
if letter=46 then l$="\"
if inkey$()=l$ then inc amount,1:new=0:timer=ctime:ti=0
set cursor 300,150:ink rgb(255,255,255),1:print l$:set cursor 280,170:ink rgb(0,255,0),1:print "score=",amount:set cursor 280,190:ink rgb(255,0,0),1:print "timer=",timer
if timer=0 then set cursor 280,210:ink rgb(0,0,255),1:print "Times Up":wait (5000):end
loop
There are two types of people in this world: people who are extremly cool and are good at everything and people who are me.
