home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SBTJ.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  509 b   |  28 lines
  1. clear
  2. set talk off
  3. set devi to screen
  4. tt='        '
  5. pp='        '
  6. @ 4,20 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌" get tt pict '99/99/99'
  7. @ 5,26 say "╓╒╓╣╚╒╞┌" get pp pict '99/99/99'
  8. read
  9. tt1=tt
  10. pp1=pp
  11. tt=ctod(tt)
  12. pp=ctod(pp)
  13. clea
  14. @ 4,20 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí"
  15. set cons off
  16. sele 1
  17. if m='1'
  18. coun to x for tt<=sb10 .and. sb10<=pp
  19. else
  20. coun to x for &dd=sb .and. tt<=sb10 .and. sb10<=pp
  21. endif
  22. set cons on
  23. @ 4,20 say "│÷│º╚╒╞┌╘┌"+tt1+'---'+pp1+"╡─"+bt+"╔Φ▒╕╙╨"+str(x,5)+"╠¿"
  24. wait '░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  25. retu
  26.  
  27.  
  28.