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