home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / HS.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.2 KB  |  78 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. k1='         '
  11. k2='        '
  12. k3='        '
  13. k4='            '
  14. k5='        '
  15. k6='   '
  16. k7='         '
  17. k8='            '
  18. k10='        '
  19. a1=.t.
  20. do while a1
  21. clear
  22. @ 1,1 say "▒╕╝■▒α║┼" get k1
  23. @ 2,1 say "╡Ñ╝█" get k2 pict '#####.##'
  24. @ 3,1 say "╩²┴┐" get k3 pict '#####.##'
  25. @ 4,1 say "╗╪╩╒╚╒╞┌" get k5 pict '99.99.99'
  26. read
  27. a2=.t.
  28. do while a2
  29. @ 6,1 clear
  30. @ 5,1 say "╣⌐╗⌡╡Ñ╬╗▒α║┼" get k6
  31. read
  32. if k6='h'
  33. use dw
  34. do hel1.prg
  35. loop
  36. endif
  37. exit 
  38. enddo a3
  39. @ 6,1 say "╔Φ▒╕▒α║┼" get k7
  40. @ 7,1 say "╣ñ╫≈┴ε║┼" get k8 pict '999999999999'
  41. @ 8,1 say "╛¡╩╓╚╦" get k10
  42. read
  43. @ 9,0 clear
  44. wait '╟δ╤í╘±ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╫≈╖╧ú¼╖╡╗╪ú╥ú║' to w
  45. do case 
  46. case w='r'
  47. retu
  48. case w='x'
  49. loop
  50. case w='f'
  51. a=a+1
  52. exit
  53. case w='z'
  54. k2=val(k2)
  55. k3=val(k3)
  56. k8=val(k8)
  57. j1=substr(k5,4,2)
  58. j2=substr(k5,7,2)
  59. j3=substr(k5,1,2)
  60. k5=j1+'/'+j2+'/'+j3
  61. k5=ctod(k5)
  62. use bj 
  63. set index to bj1,bj2
  64. seek k1         
  65. repl b5 with b5+k3
  66. use cr
  67. appe blank
  68. repl l1 with k1,l2 with k5,l3 with k3,l4 with k2,l6 ì
  69. with k6,l9 with k10,l5 with k7,l7 with k8,l10 with 'h'
  70. exit
  71. endcase 
  72. enddo 
  73. a=a-1
  74. enddo 
  75. retu
  76.  
  77.  
  78.