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