home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BFS6.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  654 b   |  40 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. use sb index sb1
  5. loca for sb32='y'
  6. if eof()
  7. clear
  8. @ 4,20 say a+"─Ω╬▐▒¿╖╧╔Φ▒╕"
  9. wait '░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'  
  10. clos data
  11. dd='w'
  12. retu
  13. endif
  14. j1=substr(b,4,2)
  15. j2=substr(b,7,2)
  16. j3=substr(b,1,2)
  17. b=j1+'/'+j2+'/'+j3
  18. b=ctod(b)
  19. a1=.t.
  20. do while a1
  21. clear
  22. @ 1,1 say "╔Φ▒╕▒α║┼ ╔Φ▒╕├√│╞          ╨═║┼                ╘¡╓╡     ╛╗╓╡   ì
  23.    ╥╤╩╣╙├─Ω╧▐"
  24. l=2
  25. do while .not. eof()
  26. bb=(b-sb12)/365
  27. @ l,1 say sb1+sb3+sb4+str(sb15,10,2)+'  '+str(sb17,10,2)+'        '+str(bb,2)
  28. l=l+1
  29. cont
  30. if l>=9 .and. .not. eof()
  31. wait '░┤╚╬╥Γ╝ⁿ╝╠╨°'
  32. exit
  33. endif
  34. enddo
  35. if eof()
  36. exit
  37. enddo  
  38. wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to w
  39. retu
  40.