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