home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / gz.img / NBZZ.PRG < prev    next >
Encoding:
Text File  |  1990-01-22  |  1.1 KB  |  59 lines
  1. *─┌▓┐╫¿╒╦│╠╨≥:NBZZ.PRG
  2. set talk off
  3. clear
  4. public mo1,mo2,mo3,mo11,mo22,mo33
  5. dm='      '
  6. az=.t.
  7. do while az
  8. az=.f.
  9. mo1=year(date())
  10. mo11=str(mo1,4,0)
  11. mo2=month(date())
  12. mo22=str(mo2,2,0)
  13. mo3=day(date())
  14. mo33=str(mo3,2,0)
  15. @ 8,25 say '╜±╠∞╩╟:'
  16. @ 9,32 say mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒'
  17. @ 12,25 say '╔╧├µ╡─╚╒╞┌╢╘┬≡(Y/N)?  ' get dm
  18.      read
  19. if dm='N'.or.dm='n'
  20.    az=.t.
  21.    run date
  22.    clear
  23. endif
  24. enddo
  25. cp=0
  26. answer=.t.
  27. do while answer
  28. clear
  29. @ 4,22 say '─┌▓┐╫¿╒╩╫╙│╠╨≥╟σ╡Ñ╬¬─·╠ß╣⌐╥╘╧┬╖■╬±'
  30. @ 5,22 say '=================================='
  31. @ 07,22 say '│⌡╩╝╗»╝░╓╞╫≈└·╩╖╫╩┴╧ ----------- 1'
  32. @ 09,22 say '╩Σ╚δ╩²╛▌╝░╝╞╦π ----------------- 2'
  33. @ 11,22 say '┤≥╙í▒¿▒φ------------------------ 3'
  34. @ 13,22 say '═╦│÷---------------------------- 4'
  35. @ 15,15 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼' get cp
  36.     read
  37.    do case
  38.       case cp=1
  39.        do c:nbzz-2
  40.       case cp=2
  41.        do c:nbzz-1
  42.       case cp=3
  43.        do c:nbzzjfb1
  44.        do c:nbzzjfb2
  45.        do c:nbzzjfb3
  46.        do c:nbzzdfb1
  47.        do c:nbzzdfb2
  48.        do c:nbzzdfb3
  49.        do c:nbzzdfb4
  50.       case cp=4
  51.        answer=.f.
  52.     endcase
  53. enddo
  54. set talk on
  55. release all
  56. return
  57.  
  58.  
  59.