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 >
Commodore BASIC  |  2023-02-26  |  526b  |  18 lines
  1. 2 fora=1to8
  2. 3 a$=a$+chr$(rnd(ti)*26+65)
  3. 4 nexta
  4. 10 poke53280,0:poke53281,0:print"[147][155]"
  5. 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]";
  6. 30 print"[221]    the world first - passwordmaker   [221]";
  7. 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]";
  8. 50 print"bitte geben sie das programm ein, fuer"
  9. 60 print"das sie ein passwort benoetigen."
  10. 70 print"dieses programm gibt ihn dann ein"
  11. 80 print"passenden passwort aus."
  12. 100 input"programmname[154]";pr$
  13. 110 print"[155]das passwort fuer[154] ";pr$;" [155]lautet:"
  14. 120 fort=1to1000:next
  15. 130 print"                ";a$
  16. 140 geta$:ifa$=""then140
  17. 150 run
  18.