home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / GETASK.CTL < prev    next >
Encoding:
Text File  |  1992-10-20  |  740 b   |  54 lines
  1. ansigoto (20,17)
  2. say(%VAR%X*)
  3.  
  4. setequal(Z=─)
  5. setequal(Y=0)
  6. setequal(X=)
  7. setequal(g= )
  8. setequal(h=)
  9.  
  10. do
  11. inc(Y)
  12. setequal(X=%VAR%X%VAR%Z)
  13. setequal(H=%VAR%H%VAR%G)
  14. notif (&Y)=(&B) then loop
  15.  
  16. ansigoto (20,19)
  17. say(┌%VAR%X┐*)
  18. ansigoto (20,20)
  19. say(│%VAR%H│*)
  20. ansigoto (20,21)
  21. say(└%VAR%X┘*)
  22. ansigoto (21,20)
  23. jump (lntxt)
  24. return
  25.  
  26. *lntxt
  27. setequal(h=)
  28. setequal(Z=0)
  29. say(&14&*) ;make user's text YELLOW
  30.  
  31. do
  32. onekey
  33. ascii
  34. if (%ARESP%)=(13) then goto (cr)
  35. if (%ARESP%)=(8) then goto (backsp)
  36.  
  37. if (&Z)=(&B) then loop
  38. inc(Z)
  39. setequal(H=%VAR%H%RESP%)
  40. say(%RESP%*)
  41. loop
  42.  
  43. *backsp
  44. if (&Z)=(0) then loop
  45. addvar(%VAR%Z+-1=Z)
  46. get (&H,1,%VAR%Z)
  47. setequal(H=%ARESP%)
  48. backsp(1)
  49. loop
  50.  
  51. *cr
  52. setequal(/RESP=%VAR%H)
  53. ret
  54.