2 FORA=1TO8
3 A$=A$+CHR$(RND(TI)*26+65)
4 NEXTA
10 POKE53280,0:POKE53281,0:PRINT"[147][155]"
20 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
30 PRINT"[221]    THE WORLD FIRST - PASSWORDMAKER   [221]";
40 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
50 PRINT"BITTE GEBEN SIE DAS PROGRAMM EIN, FUER"
60 PRINT"DAS SIE EIN PASSWORT BENOETIGEN."
70 PRINT"DIESES PROGRAMM GIBT IHN DANN EIN"
80 PRINT"PASSENDEN PASSWORT AUS."
100 INPUT"PROGRAMMNAME[154]";PR$
110 PRINT"[155]DAS PASSWORT FUER[154] ";PR$;" [155]LAUTET:"
120 FORT=1TO1000:NEXT
130 PRINT"                ";A$
140 GETA$:IFA$=""THEN140
150 RUN