%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1066
File Name:KEYBLEAR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 4,1,"KEYB LEARNER"
\Locate 1,7,"PUSH EXE TO CONTINUE"
\Locate 9,3,"BY"
\Locate 3,4,"THE MADWEB TEAM"
\Locate 2,5,"WWW.MADWEB.4T.COM"
\Do
\LpWhile \Getkey\<>31
\ClrText
100\->L
\Lbl A
\ClrText
\Locate 1,2,"LOWEST"
\Locate 8,2,L
\Int (\Ran#*26)+1\->A
A=1\=>\Locate 1,1,"A"
A=2\=>\Locate 1,1,"B"
A=3\=>\Locate 1,1,"C"
A=4\=>\Locate 1,1,"D"
A=5\=>\Locate 1,1,"E"
A=6\=>\Locate 1,1,"F"
A=7\=>\Locate 1,1,"G"
A=8\=>\Locate 1,1,"H"
A=9\=>\Locate 1,1,"I"
A=10\=>\Locate 1,1,"J"
A=11\=>\Locate 1,1,"K"
A=12\=>\Locate 1,1,"L"
A=13\=>\Locate 1,1,"M"
A=14\=>\Locate 1,1,"N"
A=15\=>\Locate 1,1,"O"
A=16\=>\Locate 1,1,"P"
A=17\=>\Locate 1,1,"Q"
A=18\=>\Locate 1,1,"R"
A=19\=>\Locate 1,1,"S"
A=20\=>\Locate 1,1,"T"
A=21\=>\Locate 1,1,"U"
A=22\=>\Locate 1,1,"V"
A=23\=>\Locate 1,1,"W"
A=24\=>\Locate 1,1,"X"
A=25\=>\Locate 1,1,"Y"
A=26\=>\Locate 1,1,"Z"
0\->D
\ClrText
\Lbl B
\Getkey\->B
0\->C
B=76\ And A=1\=>1\->C
B=66\ And A=2\=>1\->C
B=56\ And A=3\=>1\->C
B=46\ And A=4\=>1\->C
B=36\ And A=5\=>1\->C
B=26\ And A=6\=>1\->C
B=75\ And A=7\=>1\->C
B=65\ And A=8\=>1\->C
B=55\ And A=9\=>1\->C
B=45\ And A=10\=>1\->C
B=35\ And A=11\=>1\->C
B=25\ And A=12\=>1\->C
B=74\ And A=13\=>1\->C
B=64\ And A=14\=>1\->C
B=54\ And A=15\=>1\->C
B=73\ And A=16\=>1\->C
B=63\ And A=17\=>1\->C
B=53\ And A=18\=>1\->C
B=43\ And A=19\=>1\->C
B=33\ And A=20\=>1\->C
B=72\ And A=21\=>1\->C
B=62\ And A=22\=>1\->C
B=52\ And A=23\=>1\->C
B=42\ And A=24\=>1\->C
B=32\ And A=25\=>1\->C
B=71\ And A=26\=>1\->C
\Isz D
C=0\=>\GotoB
D<L\=>\Locate 1,5,"NEW LOWEST"
D<L\=>D\->L
\Locate 10,2,D
\Locate 1,2,"GOES REQ"
\Locate 1,3,"PUSH EXE TO RETRY"
\Do
\LpWhile \Getkey\<>31
\GotoA

%End