home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / HEL.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  850 b   |  84 lines
  1. @ 1,50 clear
  2. set talk off
  3. set device to screen 
  4. l=1
  5. loca for gzm1=a       
  6. a1=.t.
  7. do while a1           
  8. @ l,50 say " "+gzm2+" "+gzm3
  9. cont
  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,50 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,50 clear
  31. loop
  32. case w='r'
  33. @ 1,50 clear
  34. otherwise
  35. ? chr(7)
  36. skip -l  
  37. l=1
  38. clear
  39. @ 1,50 loop
  40. endcase
  41. endif
  42. else
  43. set console off
  44. wait '  ' to w
  45. set console on
  46. do case
  47. case w='.'
  48. ? chr(7)
  49. skip -l+1
  50. l=1
  51. @ 1,50 clear
  52. loop
  53. case w=','
  54. a=recno()
  55. if a>=9
  56. skip -l-7
  57. @ 1,50 clear
  58. l=1
  59. loop
  60. else
  61. goto top 
  62. ? chr(7)
  63. @ 1,50 clear
  64. l=1
  65. loop
  66. endif
  67. case w='r'
  68. @ 1,50 clear
  69. otherwise
  70. skip -l+1
  71. ? chr(7)
  72. l=1
  73. @ 1,50 clear
  74. loop
  75. endcase
  76. exit
  77. endif
  78. enddo a1
  79.  
  80.  
  81.  
  82.  
  83.  
  84.