home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / YESNO.CTL < prev    next >
Encoding:
Text File  |  1992-10-20  |  1.3 KB  |  76 lines
  1. setequal(c=Y)
  2. ansigoto (20,17)
  3. say(&10&%VAR%A*)
  4. *gk
  5. if (&C)=(Y) then jump (selY)
  6. notif (&C)=(Y) then jump (selN)
  7. menukey%CRON%
  8. if (%RESP%)=(Y) then goto (yesout)
  9. if (%RESP%)=(N) then goto (noout)
  10. if (%RESP%)=(<CR>) then goto (crout)
  11. if (%RESP%)=(4) then jump (flip)
  12. if (%RESP%)=(6) then jump (flip)
  13. ascii
  14. if (%ARESP%)=(27) then jump (flip)
  15. if (%ARESP%)=(9) then jump (flip)
  16. if (%ARESP%)=(32) then jump (flip)
  17. goto (gk)
  18.  
  19. *flip
  20. flushout
  21. if (&C)=(Y) then goto (fn)
  22. setequal(C=Y)
  23. ret
  24.  
  25. *fn
  26. setequal(C=N)
  27. ret
  28.  
  29. *crout
  30. jump (cly)
  31. if (&C)=(Y) then setequal(/Resp=Yes)
  32. notif (&C)=(Y) then setequal(/Resp=No)
  33. return
  34.  
  35. *yesout
  36. jump (cly)
  37. setequal (/Resp=Yes)
  38. return
  39.  
  40. *noOut
  41. jump (cly)
  42. setequal(/Resp=No)
  43. return
  44.  
  45.  
  46. *cly
  47. say(&7&$0$*)
  48. ansigoto (1,17)
  49. eline (1)
  50. ansigoto (1,21)
  51. eline (1)
  52. ansigoto (1,19)
  53. eline(1)
  54. ansigoto (1,20)
  55. eline(1)
  56. ret
  57.  
  58.  
  59. *selN
  60. ansigoto (20,19)
  61. say(&7&$0$┌──────────┐    $7$&0&┌──────────┐*)
  62. ansigoto (20,20)
  63. say($0$&7&│   Yes    │    &0&$7$│    No    │*)
  64. ansigoto (20,21)
  65. say($0$&7&└──────────┘    &0&$7$└──────────┘*)
  66. ret
  67.  
  68. *selY
  69. ansigoto (20,19)
  70. say(&0&$7$┌──────────┐&7&$0$    ┌──────────┐*)
  71. ansigoto (20,20)
  72. say($7$&0&│   Yes    │&7&$0$    │    No    │*)
  73. ansigoto (20,21)
  74. say($7$&0&└──────────┘&7&$0$    └──────────┘*)
  75. ret
  76.