* Hack - Try various combinations of password until key is pressed
* A through ZZZZZZZZZZ including 0 through 9999999999

parameter lASCII

if parameters() =0
    * All characters
else
    * Printable characters & digits only
endif

on escape return

cCharacters ='ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
* abcdefghijklmnopqrstuvwxyz
nLength =len(cCharacters)
nX =0
nY =0
cChar1 =''
cChar2 =''
cChar3 =''
cChar4 =''
for n3 =1 to nLength
    for n2 =1 to nLength
        for n1 =1 to nLength
            ? cChar3 +cChar2 +cChar1 +substr(cCharacters,n1,1)
        endfor
        cChar2 =substr(cCharacters,n2,1)
    endfor
    cChar3 =substr(cCharacters,n3,1)
endfor
? 'Done'