home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / YB1.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  876 b   |  59 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='   '
  6. @ 4,10 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get a
  7. read
  8. a=val(a)
  9. do while a<>0         
  10. k1='            '
  11. k2='                '
  12. k3='         '
  13. k4='    '
  14. k5='    '
  15. k6='         '
  16. k7='  '
  17. k9='    '
  18. a1=.t.
  19. do while a1
  20. clear
  21. @ 1,1 say "╥╟▒φ▒α║┼" get k9
  22. @ 2,1 say "╥╟▒φ├√│╞" get k1
  23. @ 3,1 say "╥╟▒φ╨═║┼" get k2
  24. @ 4,1 say "│÷│º║┼" get k3
  25. @ 5,1 say "╛½╢╚╡╚╝╢" get k4
  26. @ 6,1 say "╨ú▒φ╓▄╞┌" get k5
  27. @ 7,1 say "╩╣╙├┤╦▒φ╡─╔Φ▒╕▒α║┼" get k6
  28. read
  29. a3=.t.
  30. do while a3
  31. @ 8,1 say "╩╣╙├╡Ñ╬╗▒α║┼" get k7
  32. read
  33. if k7='h'
  34. use dw
  35. do hel1.prg
  36. loop
  37. endif
  38. exit
  39. enddo a3
  40. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
  41. if w<>'y'
  42. a1=.t.
  43. else 
  44. exit
  45. endif
  46. enddo a1
  47. k5=val(k5)
  48. use yb
  49. appe blank
  50. repl yb1 with k1,yb2 with k2,yb3 with k3,yb4 with k4,yb5 with ì
  51. k5,yb8 with k6,yb10 with k7,yb11 with k9
  52. a=a-1
  53. enddo
  54. retu
  55.  
  56.  
  57.  
  58.  
  59.