home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 600.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  723 b   |  24 lines
  1. 604 ' password code entry
  2. 608 ' get string (echo random Xes)
  3. 612 '1.5    #
  4. 616 PWDSTRING$="!1QAZ@2WSX#3EDC$$RFV%5TGB^6YHN&7UJ"
  5. 620 PWDSTRING$=PWDSTRING$+"M*8IK,<(9OL.>)0P:;?/_-[=']+~`|\}{"
  6. 624 GOSUB 1600
  7. 628 RANDOMIZE(VAL(RIGHT$(TIME$,1)))
  8. 632 MAX%=13
  9. 636 ANSWER$=""
  10. 640 KEY$="*"
  11. 644 NKEY%=0
  12. 648 WHILE NKEY% <= MAX%
  13. 652    KEY$=INPUT$(1)
  14. 656    PRINT STRING$(INT(RND(2) * 30 / 10)+1,88);
  15. 660    KEY%=ASC(KEY$)                    ' make into a number
  16. 664    IF KEY%=13 THEN RETURN                '
  17. 668    NKEY%=NKEY%+1                    '
  18. 672    IF KEY% >= 97 AND KEY% <=122 THEN KEY%=KEY%-32    'convert lower to upper
  19. 676    IF KEY% >=0 AND KEY% <=31 THEN KEY%=KEY%+64    'convert control to chr
  20. 680    KEY%=INSTR(PWDSTRING$,CHR$(KEY%))+&H20        '
  21. 684    ANSWER$=ANSWER$+CHR$(KEY%)
  22. 688 WEND
  23. 692 RETURN
  24.