home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BH1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.5 KB  |  82 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='   '
  6. @ 4,10 say "╟δ╩Σ╚δ╫▄╝╟┬╝╩²" get a pict '999'
  7. read
  8. a=val(a)
  9. do while a<>0
  10. clear
  11. k1='            '
  12. k2='         '        
  13. k3='                '    
  14. k4='                '  
  15. k5='        '
  16. k6='        '
  17. k7='                '        
  18. k8='        '
  19. k9='        '
  20. k10='            '
  21. k11='            '
  22. k12='          '
  23. k13='          '
  24. k14='          '
  25. k15='        '
  26. a1=.t.
  27. do while a1
  28. clear
  29. @ 1,1 say "╢⌐╗⌡╡Ñ║┼" get k1
  30. @ 2,1 say "▒╕╝■▒α║┼" get k2
  31. @ 3,1 say "▒╕╝■├√│╞" get k3
  32. @ 4,1 say "╣µ╕±" get k4
  33. @ 5,1 say "╡Ñ╝█" get k5                 
  34. @ 6,1 say "╩²┴┐" get k6
  35. @ 7,1 say "│º╖╜" get k7
  36. @ 8,1 say "╢⌐╗⌡╚╒╞┌" get k8 pict '99.99.99'
  37. @ 9,1 say "╙ª╡╜╗⌡╞┌" get k9 pict '99.99.99'
  38. @ 1,50 say "╜╗╗⌡╡╪╡π" get k10
  39. @ 2,50 say "╘╦╩Σ╖╜╩╜" get k11
  40. @ 3,50 say "╡τ┤½"get k12
  41. @ 4,50 say "╡τ╗░"get k13
  42. @ 5,50 say "╡τ▒¿╣╥║┼" get k14
  43. @ 6,50 say "┴¬╧╡╚╦" get k15
  44. read
  45. wait '╫≈╖╧ú╞ú¼╓╪╨▐╕─ú╪ú¼╩²╛▌╒²╚╖ú┌ú¼╖╡╗╪ú╥ú║' to w
  46. do case  
  47. case w='x'
  48. loop 
  49. case w='f'
  50. a=a+1
  51. exit     
  52. case w='r'
  53. retu
  54. case w='z'
  55. j1=substr(k8,4,2)
  56. j2=substr(k8,7,2)
  57. j3=substr(k8,1,2)
  58. k8=j1+'/'+j2+'/'+j3
  59. k8=ctod(k8)
  60. j1=substr(k9,4,2)
  61. j2=substr(k9,7,2)
  62. j3=substr(k9,1,2)
  63. k9=j1+'/'+j2+'/'+j3
  64. k9=ctod(k9)
  65. k5=val(k5)
  66. k6=val(k6)
  67. use bh
  68. appe blank
  69. repl h1 with k1,h2 with k2,h3 with k7,h4 with k3,h5 with ì
  70. k4,h6 with k5,h7 with k6,h8 with k8,h9 with k9,h15 with ì
  71. k10,h16 with k11,h11 with k12,h12 with k13,h13 with k14
  72. repl h14 with k15
  73. exit
  74. endcase 
  75. enddo
  76. a=a-1
  77. enddo 
  78. retu
  79.  
  80.  
  81.  
  82.