home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / XL3.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  642 b   |  43 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. @ 4,1 say "╡Ñ╬╗┤·║┼" get k1
  18. read
  19. if k1='h'
  20. use dw
  21. do hel1.prg
  22. loop
  23. endif
  24. @ 5,1 say "╣▄╡└╛▓├▄╖Γ╡π╩²" get k2  
  25. @ 6,1 say "╧▐╓╞╡─╛▓╨╣┬⌐┬╩" get k3               
  26. @ 7,1 say "╧▐╓╞╡─╢»╨╣┬⌐┬╩" get k4              
  27. read
  28. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
  29. if w<>'y'
  30. loop
  31. endif
  32. exit
  33. enddo a1
  34. k2=val(k2)
  35. k3=val(k3)
  36. k4=val(k4)
  37. use dgm
  38. appe blank
  39. repl dgm1 with k1,dgm2 with k2,dgm3 with k3,dgm4 with k4
  40. a=a-1
  41. enddo
  42. retu 
  43.