'
' Simple PassWord demo program. Use and enjoy !
'
  DEFINT a-z
  Colomn=1
  Row=1
  KeyWord$="HELLO"
  PassLen=LEN(KeyWord$)
  COLOR 7,0
  CLS
  LOCATE Row,Colomn
  PRINT "Password, please = ";
'
  PassWord$=""
  COLOR 14,0
  FOR i=1 to PassLen
     c$=""
     LOCATE ,,1
     WHILE c$="" OR LEN(c$)=2 OR ASC(c$)=8 OR ASC(c$)=9
        c$=INKEY$
     WEND
     LOCATE ,,1: PRINT "*";
     PassWord$=PassWord$+c$
  NEXT i
'
  COLOR 7,0
  IF PassWord$ = KeyWord$ THEN
     PRINT " Excellent PassWord !"
  ELSE
     PRINT " Bad, bad, bad !"
  END IF
'
  END
'
'

 Best wishes,
 Alexander.

 AP> Try this:
Just a small tip...

 AP>   KeyWord$="HELLO"
Compile it, and search in the .EXE file for "HELLO".
See, what's there, the password!!!
Try something like:
KeyWord$ = CHR$(1) + CHR$(2) + CHR$(3)
But then with the asciicodes representing the letters HELLO...

Mazzel               /----------------------------------------------\

                     |    * FidoNet : 2:281/607.11 + 2:500/155.6209 |
                     \----------------------------------------------/

... Brain: apparatus used to think we think.
SEEN-BY: 100/0 100 250 400 402 450 200/100
--
| Standard disclaimer: The views of this user are strictly his own.