home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 7 / 007.d81 / read (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  349b  |  24 lines
  1. 10 open15,8,15
  2. 20 open2,8,2,"#"
  3. 30 print:print:print
  4. 35 p$="":a$=""
  5. 40 print"what is the pass-word?"
  6. 50 input a$
  7. 55 print:print:print
  8. 60 :
  9. 70 tr=10 : se=15
  10. 80 :
  11. 90 print#15,"u1:"2;0;tr;se
  12. 100 :
  13. 110 forx=1to50:get#2,c$
  14. 120 ifc$=chr$(13)thenx=51:goto140
  15. 130 p$=p$+c$
  16. 140 next
  17. 150 :
  18. 180 ifp$=a$thenprint"you are allowed access!!":goto200
  19. 185 :
  20. 190 print"invalid password....try again.":goto30
  21. 200 :
  22. 210 close2:close15
  23. 220 end
  24.