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