%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\Locate 1,5,"NEW LOWEST" DD\->L \Locate 10,2,D \Locate 1,2,"GOES REQ" \Locate 1,3,"PUSH EXE TO RETRY" \Do \LpWhile \Getkey\<>31 \GotoA %End