10REM PASSWORD GENERATOR
20REM BY ANDREW MEDWORTH 1997
30REM VERSION 2.0 FOR 8 BIT SOFTWARE
40MODE7
50*LOAD PGENSCR
60PRINTTAB(0,19)CHR$133:INPUTTAB(1,20
)length%:IF length%>39 THEN length%=39
70DIM char$(length%)
80useless$=FNpass
90FOR loop2=1 TO length%
100PRINTTAB(0,19)CHR$132:PRINTTAB(0,21
)CHR$133:PRINTTAB(loop2,22);char$(loop2)
;
110NEXT loop2
120PRINTTAB(0,21)CHR$132:PRINTTAB(0,23
)CHR$133:G%=GET:IF G%=89 OR G%=121 THEN
RUN ELSE CLS:PRINT"END OF PROGRAM":END
130:
140DEFFNpass
150FOR loop=1 TO length%
160alphanum%=RND(2)
170IF alphanum%=1 THEN char$(loop)=CHR
$((RND(10)+47)) ELSE char$(loop)=CHR$((R
ND(26)+64))
180NEXT loop
190="DONE"