home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / JLUT475.ZIP / QST.LZH / QUEST004.@JL < prev    next >
Text File  |  1990-12-15  |  391b  |  24 lines

  1. @@DE=|
  2. :PSW
  3. PSW=    |Enter your Password|30|3|1|1|1|1
  4. IF PSW = JuLo THEN GOTO :JULO
  5. GOTO :WRONGPSW
  6. :JULO
  7. @@CO=Hi, JuLo.
  8. @@CO=
  9. :GET_NUMBER
  10. NR= |Enter a number greater 10 |3|3|1|3|1|1
  11. IF NR <= 10 THEN GOTO :GET_NUMBER
  12. @@CO=You've got it. Bye, Bye.
  13. @@CO=
  14. GOTO :ENDE
  15. :WRONGPSW
  16. SETFBCOLOR 12,11
  17. @@CO=>>> WRONG PASSWORD <<<
  18. @@CO=
  19. SETFBCOLOR 14,0
  20. DELAY 3000
  21. GOTO :PSW
  22. :ENDE
  23.  
  24.