home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / HEL8.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  88 lines
  1. @ 1,50 clear
  2. set talk off
  3. set device to screen 
  4. l=1
  5. a1=.t.
  6. loca for jh1=k3 .and. jh2=k5  
  7. do while .not. eof()
  8. if l=1
  9. @ 0,50 say "╨▐└φ╘┬╖▌    ╝╞╗«╖╤╙├"
  10. endif
  11. @ l,50 say " "+str(jh3,2)+"      "+str(jh10,10,2)
  12. cont
  13. l=l+1
  14. if .not. eof()
  15. if l<9
  16. loop
  17. else
  18. set console off
  19. wait '   ' to w
  20. set console on
  21. do case
  22. case w='.'
  23. @ 1,50 clear
  24. l=1
  25. loop
  26. case w=','
  27. a=recno()
  28. skip -l-9
  29. l=1
  30. if a-l-9<=1
  31. ? chr(7)
  32. endif
  33. @ 1,50 clear
  34. loop
  35. case w='r'
  36. @ 1,50 clear
  37. retu
  38. otherwise
  39. ? chr(7)
  40. skip -l  
  41. l=1
  42. @ 1,50 clear
  43. loop
  44. endcase
  45. endif
  46. else
  47. set console off
  48. wait '  ' to w
  49. set console on
  50. do case
  51. case w='.'
  52. ? chr(7)
  53. skip -l+1
  54. l=1
  55. @ 1,50 clear
  56. loop
  57. case w=','
  58. a=recno()
  59. if a>=9
  60. skip -l-7
  61. @ 1,50 clear
  62. l=1
  63. loop
  64. else
  65. goto top 
  66. ? chr(7)
  67. @ 1,50 clear
  68. l=1
  69. loop
  70. endif
  71. case w='r'
  72. @ 1,50 clear
  73. retu
  74. otherwise
  75. skip -l+1
  76. ? chr(7)
  77. l=1
  78. @ 1,50 clear
  79. loop
  80. endcase
  81. endif
  82. enddo a1
  83.  
  84.  
  85.  
  86.  
  87.  
  88.