home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / HT5.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  764 b   |  52 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. a1=.t.
  15. do while a1
  16. clear
  17. @ 2,7 say "╢⌐╗⌡╡Ñ║┼" get k1
  18. @ 3,7 say "╡╜╗⌡╩²┴┐" get k2
  19. @ 4,7 say "╡╜╗⌡╚╒╞┌" get k3 pict '99.99.99'
  20. @ 5,7 say "┤µ╖┼╡╪╡π" get k4
  21. read
  22. wait '      ╩²╛▌╒²╚╖┬≡(Y/N)' to w
  23. if w<>'y'
  24. loop
  25. endif
  26. exit
  27. enddo a1
  28. k2=val(k2)
  29. use ht
  30. loca for ht1=k1
  31. repl ht12 with ht12+k2
  32. x1=k1
  33. x2=ht2
  34. x3=ht3
  35. x4=ht4
  36. x5=ht5
  37. x6=k2
  38. if ht6=ht12 .and. .not. eof()
  39. q=recno()
  40. dele reco q
  41. pack
  42. endif
  43. use zc
  44. appe blank
  45. repl zc1 with x1,zc2 with x2,zc3 with x3,zc4 with x4,zc5 with ì
  46. x5,zc6 with x6,zc7 with k4,zc8 with k3
  47. a=a-1
  48. enddo 
  49. retu
  50.  
  51.  
  52.