home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / YB2.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  609 b   |  42 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,1 say "╥╟▒φ▒α║┼" get k1
  18. @ 3,1 say "╨ú▒φ╚╒╞┌" get k2 pict 'xx.xx.xx'
  19. @ 4,1 say "═Ω║├╖±(Y/N)" get k3
  20. @ 5,1 say "╩╣╙├╖±(Y/N)" get k4
  21. read
  22. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
  23. if w<>'y'
  24. loop
  25. endif
  26. exit
  27. enddo a1
  28. j1=substr(k2,4,2)
  29. j2=substr(k2,7,2)
  30. j3=substr(k2,1,2)
  31. k2=j1+'/'+j2+'/'+j3
  32. k2=ctod(k2)
  33. use yb
  34. loca for yb11=k1
  35. repl yb6 with k2,yb7 with k3,yb9 with k4
  36. a=a-1
  37. enddo
  38. retu
  39.  
  40.  
  41.  
  42.