home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / HFX5.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  938 b   |  54 lines
  1. clear
  2. set talk off
  3. set device to screen 
  4. use hfx2
  5. dele all for recno()<>1
  6. pack
  7. a1=.t.
  8. do while a1
  9. clear
  10. k1='      '
  11. k2='      '
  12. k3='      '
  13. k4='      '
  14. k5='      '
  15. k6='      '
  16. k7='      '
  17. k8='      '
  18. a2=.t.
  19. do while a2
  20. clear
  21. @ 1,1 say "╛¡╝├╨╘"  get k1 pict '###.##'
  22. @ 2,1 say "┐╔┐┐╨╘" get k2 pict '###.##'
  23. @ 3,1 say "╥╫╨▐╨╘" get k3 pict '###.##'
  24. @ 4,1 say "╜┌─▄╨╘" get k4 pict '###.##'
  25. @ 5,1 say "╗╖▒ú░▓╚½╨╘" get k5 pict '###.##'
  26. @ 6,1 say "═¿╙├╨╘" get k6 pict '###.##'
  27. @ 7,1 say "╩╩╙├╨╘" get k7 pict '###.##'
  28. @ 8,1 say "═Γ╣█╨╘" get k8 pict '###.##'
  29. read
  30. wait '╩Σ╚δ╡─╩²╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐' to w
  31. if w<>'y'
  32. loop
  33. endif
  34. k1=val(k1)
  35. k2=val(k2)
  36. k3=val(k3)
  37. k4=val(k4)
  38. k5=val(k5)
  39. k6=val(k6)
  40. k7=val(k7)
  41. k8=val(k8)
  42. appe blank
  43. repl h1 with k1,h2 with k2,h3 with k3,h4 with k4,h5 with k5,h6 ì
  44. with k6,h7 with k7,h8 with k8
  45. exit
  46. enddo 
  47. wait '╗╣╩Σ╚δ┬≡ú¿ú┘ú»ú╬ú⌐' to w
  48. if w<>'y'
  49. exit 
  50. endif
  51. enddo 
  52. retu
  53.  
  54.