home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / CL.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  555 b   |  39 lines
  1. clear 
  2. set talk off 
  3. set devi to scree
  4. use bfb 
  5. a1=.t.
  6. do while a1
  7. clear 
  8. a='         '
  9. k1='        '
  10. a2=.t.
  11. do while a2
  12. clear
  13. @ 4,20 say "▒╕╝■▒α║┼" get a
  14. @ 5,20 say "▒╕╝■╩²┴┐" get k1 pict "#####.##"
  15. read
  16. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐' to w
  17. if w<>'y' 
  18. loop
  19. endif
  20. exit
  21. enddo
  22. loca for bfb1=a
  23. if eof()
  24. @ 4,0 clear 
  25. wait "╬▐┤╦▒╕╝■ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
  26. retu 
  27. endif 
  28. repl bfb5 with bfb5-val(k1),bfb9 with bfb9-bfb4*val(k1)
  29. if bfb5=0
  30. dele 
  31. pack
  32. endif
  33. wait '╗╣╙╨┬≡ú¿ú┘ú»ú╬ú⌐' to w 
  34. if w<>'y' 
  35. clos data 
  36. retu 
  37. endif
  38. enddo a1
  39.