home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / mag_discs / volume_9 / issue_04 / whitworth / !KeyUtils / Lock (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-01-08  |  307b  |  14 lines
  1.  >Lock
  2.  "Password needed to unlock? "pw$
  3.  pw$="" 
  4.  pw$="ANGEL"
  5. (1280),
  6. (1024)
  7. -T>100 
  8.  "Password? ";
  9.  ;""p$
  10.  p$<>pw$ 
  11.  BUGGER THIS 
  12.  A LARK!
  13.  "Wimp_CommandWindow",-1
  14.