home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JJ.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  974 b   |  74 lines
  1. CLEAR
  2. SET DEVICE TO SCREEN
  3. SET TALK OFF
  4. CLOS DATA
  5. USE SB INDEX SB1
  6. a1=.t.
  7. do while a1
  8. clear
  9. A='  '
  10. DO CASE
  11. CASE P=2
  12. CLEAR
  13. @ 4,20 SAY "╟δ╩Σ╚δ╡Ñ╬╗║┼" get a
  14. read
  15. if a='h'
  16. use dw index dw1
  17. do hel1
  18. loop
  19. exit
  20. endif
  21. use sb index sb1
  22. loca for sb28=a
  23. exit
  24. case p=3
  25. clear
  26. @ 4,20 SAY "╟δ╩Σ╚δ╔Φ▒╕└α▒≡║┼" get a
  27. read
  28. if a='h'
  29. use ls index lssy
  30. do helb
  31. loop
  32. exit
  33. endif
  34. use sb index sb1
  35. loca for sb24=a
  36. exit
  37. case p=1
  38. loca all
  39. exit
  40. endcase
  41. enddo
  42. L=1
  43. A1=.T.
  44. DO WHILE A1
  45. CLEAR
  46. @ L,1 SAY "╔Φ▒╕▒α║┼      ╔Φ▒╕├√│╞            ╘¡╓╡      ╛╗╓╡       ì
  47. ╥╤╠ß╒█╛╔    ╡▒─Ω╥╤╠ß╒█╛╔"
  48. L=L+1
  49. DO WHILE .NOT. EOF()
  50. @ L,0 SAY sb1+'   '+sb3+'   '+STR(SB15,10,2)+'   ì
  51. '+STR(SB17,10,2)+'   '+STR(SB18,10,2)+'   '+STR(SB49,8,2)
  52. L=L+1
  53. if p=1
  54. skip
  55. ELSE
  56. CONT
  57. ENDIF
  58. IF L>=9 .AND. .NOT. EOF()
  59. WAIT '░┤ú╥╝ⁿ╖╡╗╪ú¼╞Σ╦ⁿ╝ⁿ╝╠╨°úí' to w
  60. if w='r'
  61. clos data
  62. retu
  63. endif
  64. L=1
  65. EXIT
  66. ENDIF
  67. ENDDO
  68. IF EOF()
  69. EXIT
  70. ENDIF
  71. ENDDO A1
  72. WAIT '╧╘╩╛═Ω▒╧ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  73. RETU
  74.