home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / enter_password.amos / enter_password.amosSourceCode
Encoding:
AMOS Source Code  |  1993-03-07  |  2.0 KB  |  110 lines
  1. '
  2. '******************************
  3. '
  4. '          Enter 
  5. '   Password Procedure v1.1
  6. '
  7. '   By Malcolm Lavery 1993 
  8. '
  9. '******************************
  10. '
  11. '
  12. Screen Open 0,320,256,32,Lowres
  13. Curs Off 
  14. Cls 0
  15. Flash Off 
  16. Palette $0,$FFF,$F00
  17. '
  18. Pen 1 : Paper 0
  19. Ink 1,0
  20. Text 90,100,"Enter Password"
  21. '
  22. '
  23. PASSWORD
  24. '
  25. '
  26. Procedure PASSWORD
  27.    '
  28.    '**********************************
  29.    '         Reset Variables
  30.    '**********************************
  31.    '
  32.    PASSWORD$=""
  33.    LEV=0
  34.    Restore 
  35.    '
  36.    '********************************* 
  37.    '        Enter Password
  38.    '********************************* 
  39.    '
  40.    Locate 11,14
  41.    Line Input PASSWORD$;
  42.    '
  43.    '********************************* 
  44.    '      Search for password 
  45.    '   and find its level number
  46.    '********************************* 
  47.    '
  48.    '********************************* 
  49.    'Increase loop for more passwords
  50.    '********************************* 
  51.    '
  52.    For POS=1 To 5
  53.       '
  54.       Read SECRET$
  55.       If PASSWORD$=SECRET$
  56.          LEV=POS
  57.          Goto MISS
  58.       End If 
  59.    Next POS
  60.    '
  61.    '********************************
  62.    '     Invaled password entry 
  63.    '********************************
  64.    '
  65.    Locate 10,16
  66.    Print "Hacker at system"
  67.    '
  68.    DI=1
  69.    PITCH=50
  70.    Shift Up 5,1,2,1
  71.    '
  72.    For TIMES=1 To 100
  73.       '
  74.       If PITCH>55
  75.          DI=-1
  76.       End If 
  77.       If PITCH<50
  78.          DI=1
  79.       End If 
  80.       Add PITCH,DI
  81.       Play PITCH,1
  82.       
  83.    Next TIMES
  84.    '
  85.    Shift Off 
  86.    Locate 10,16
  87.    Print "                "
  88.    Pop Proc
  89.    '
  90.    '************************************* 
  91.    '       Display password level 
  92.    ' And return value back to main loop 
  93.    '************************************* 
  94.    '
  95.    MISS:
  96.    '
  97.    Locate 10,16
  98.    Print "Access to Level "+Str$(LEV);
  99.    '
  100.    Pop Proc
  101.    '
  102.    '************************************* 
  103.    '          Level passwords 
  104.    '       Add as many as you want
  105.    '  But adjust search 'For/Next loop' 
  106.    '************************************* 
  107.    '
  108.    Data "easy","simple","harder","hard","veryhard"
  109.    '
  110. End Proc