-> I program in QuickBasic 4.5 and would do it this way:
-> RANDOMIZE TIMER
-> CLS
-> PRINT "Please Wait - Generating a Password of 6 letters": PRINT :
-> PRINT
-> C = 0
-> D1 = 0: D2 = 0: D3 = 0: D4 = 0: D5 = 0: D6 = 0
-> A$ = "": B$ = "": C$ = "": D$ = "": E$ = "": F$ = ""
-> Phold$ = ""
->
-> DO UNTIL C = 1
-> D1 = INT(RND * 90)
-> IF D1 > 64 THEN
-> A$ = CHR$(D1)
-> D2 = INT(RND * 90)
-> ELSEIF D2 > 64 THEN
->      B$ = CHR$(D2)
->      D3 = INT(RND * 90)
-> ELSEIF D3 > 64 THEN
->      C$ = CHR$(D3)
->      D4 = INT(RND * 90)
-> ELSEIF D4 > 64 THEN
->      D$ = CHR$(D4)
->      D5 = INT(RND * 90)
-> ELSEIF D5 > 64 THEN
->      E$ = CHR$(D5)
->      D6 = INT(RND * 90)
-> ELSEIF D6 > 64 THEN
->      F$ = CHR$(D6)
->      C = C + 1
-> END IF
-> LOOP
->
-> Phold$ = A$ + B$ + C$ + D$ + E$ + F$
-> PRINT "The Password is "; Phold$
-> END
Gulp!
RANDOMIZE TIMER
PW$ = ""
FOR Count% = 1 TO 6
  PW$ = PW$ + CHR$(65 + INT(26 * RND))
NEXT
PRINT "The password is "; PW$
Easier, no? Faster, too!
                          dow
--- PCBoard (R) v15.3 (OS/2) 5
---------------