home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / GETP.CTL < prev    next >
Encoding:
Text File  |  1992-12-25  |  356 b   |  20 lines
  1. ansigoto (20,17)
  2. say(&10&Please enter your password (Dots echo)&7&*)
  3.  
  4. setequal(Z=─)
  5. setequal(Y=0)
  6. setequal(X=)
  7. setequal(g= )
  8. setequal(h=)
  9.  
  10. ansigoto (20,19)
  11. say(┌────────────────────┐*)
  12. ansigoto (20,20)
  13. say(│                    │*)
  14. ansigoto (20,21)
  15. say(└────────────────────┘*)
  16. ansigoto (21,20)
  17. say(&14&*)
  18. cgetpass(%MIN1%%LEN20%.)
  19. return
  20.