Safe cracker japh

[teamster_jr]

Simplish vt100 japh.

$a{$_}++for split//,$i="*rekcah lrep rehtona tsuj";print"\ec";@a=keys%
+a;
while($i){if($a[0]eq$w){$j.=$w;$w=0}$w=$w?$w:chop$i;$l=$x=$c=0;$y=3;fo
+r(
0..15){$l?$y:$x+=$_>8?-1:1;$c=$l=!$l if!(++$c%($l?5:$_>7?4:5));print
"\e[H$j$/|\e[$y;$x\H$a[$_]".$/x5}push@a,shift@a;select$q,$q,$q,.1}

a