tiger
PRESENTED BY
80 SLIDES
1K VUES
800 LIKES

string pin

DESCRIPTION

string pin. string pin2. string test. string test2. integer i. integer maxtries. let maxtries=3. getuser. if (strip(u_ver,&quot; &quot;)=&quot;&quot;) then. dispfile &quot;pcbpin<br>ewuser&quot;,graph. goto newuser. else. goto verify. endif. :newuser. newline.

1 / 80

Télécharger la présentation

string pin

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. string pin

  2. string pin2

  3. string test

  4. string test2

  5. integer i

  6. integer maxtries

  7. let maxtries=3

  8. getuser

  9. if (strip(u_ver," ")="") then

  10. dispfile "\pcb\pin\newuser",graph

  11. goto newuser

  12. else

  13. goto verify

  14. endif

  15. :newuser

  16. newline

  17. inputstr "Please enter a 4 digit Personal Identification Number (PIN): ",pin,@X0E,4,"0123456789",echodots

  18. if (len(pin)<4) then

  19. goto nice_try

  20. else

  21. goto check

  22. endif

  23. :check

  24. newline

  25. newline

  26. newline

  27. inputstr "Please re-enter your number to verify: ",pin2,@X0E,4,"0123456789",echodots

  28. println "@CLS@@X0E"

  29. if (pin=pin2) then

  30. goto finish

  31. else

  32. goto wrong

  33. endif

  34. :nice_try

  35. newline

  36. println "@X00@X0CYou must enter a 4 digit number!@XFF"

  37. newline

  38. goto newuser

  39. :wrong

  40. newline

  41. println "@CLS@@X00@X0CThe PIN numbers entered do not match!@XFF"

  42. goto newuser

  43. :finish

  44. dispfile "\pcb\pin\pinwarn",graph

  45. println "@MORE@"

  46. let u_ver=pin

  47. putuser

  48. dispfile "\pcb\gen\newuser",graph

  49. goto end

  50. :verify

More Related