home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 August / 1994-08b.d64 / password (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  270b  |  13 lines
  1. 10 dima$(20)
  2. 20 printchr$(147)
  3. 30 print" type a password, then press return.
  4. 40 n[178]n[170]1
  5. 50 a$(n)[178]"":[161]a$(n):[139]a$(n)[178]""[167]50
  6. 60 [139]a$(n)[178][199](13)[167]100
  7. 70 [153]" *";
  8. 80 b$[178]b$[170]a$(n)
  9. 90 [137]40
  10. 100 [153]:[153]" the password is "b$
  11. 110 [153]" its first letter is "a$(1)
  12. 120 [153]" and its last is "a$(n[171]1)
  13.