home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mail Madness! 51
/
Mail_Madness_51_2003_Raiders_of_the_Lost_Empire_Side_B.d64
/
passwordmake_djr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
526b
|
18 lines
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