home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / YH5.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  993 b   |  53 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='   '
  6. @ 4,10 say "╟δ╩Σ╚δ╫▄╝╟┬╝╩²" get a pict '999'
  7. read
  8. a=val(a)
  9. do while a<>0
  10. clear
  11. k1='         '
  12. k2='   ' 
  13. k3='                       '
  14. k4='                '
  15. k5='          '
  16. k6='          '
  17. k7='          '
  18. k8='          '
  19. k9='   '
  20. k10='   '
  21. a1=.t.
  22. set carr on
  23. do while a1
  24. clear
  25. @ 2,4 say "╔Φ▒╕╨═║┼" get k1
  26. @ 3,4 say "╚≤╗¼╡π▒α║┼" get k2
  27. @ 4,4 say "╚≤╗¼╡π▓┐╬╗" get k3
  28. @ 5,4 say "╚≤╗¼╖╜╩╜" get k4
  29. @ 6,4 say "╣µ╢¿╙├╙═(╧─)" get k5
  30. @ 2,40 say "╣µ╢¿╙├╙═(╢¼)" get k6
  31. @ 3,40 say "╣µ╢¿┤·╙├╙═(╧─)" get k7
  32. @ 4,40 say "╣µ╢¿┤·╙├╙═(╢¼)" get k8
  33. @ 5,40 say "╗╗╙═╓▄╞┌" get k9
  34. @ 6,40 say "╗╗╙═┴┐" get k10
  35. read
  36. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
  37. if w<>'y'
  38. loop
  39. endif
  40. exit
  41. enddo a1
  42. k9=val(k9)
  43. k10=val(k10)
  44. use yh 
  45. set index to yh2
  46. set carry on
  47. appe blank
  48. repl yh1 with k1,yh2 with k2,yh3 with k3,yh4 with k4,yh5 with ì
  49. k5,yh6 with k6,yh7 with k7,yh8 with k8,yh12 with k9,yh13 with k10
  50. a=a-1
  51. enddo 
  52. retu
  53.