home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / HT1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.7 KB  |  86 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. k11a='            '
  23. k12='          '
  24. k13='          '
  25. k14='          '
  26. k15='        '
  27. k17='                    '
  28. a1=.t.
  29. do while a1
  30. clear
  31. @ 0,3 say "║╧═¼▒α║┼" get k1
  32. @ 1,3 say "╔Φ▒╕├√│╞" get k2
  33. @ 2,3 say "╔Φ▒╕╨═║┼" get k3
  34. @ 3,3 say "╣µ    ╕±" get k4
  35. @ 4,3 say "╡Ñ    ╝█" get k5                 
  36. @ 5,3 say "╩²    ┴┐" get k6
  37. @ 6,3 say "╣⌐╗⌡╡Ñ╬╗" get k7
  38. @ 7,3 say "╢⌐╗⌡╚╒╞┌" get k8 pict '99.99.99'
  39. @ 8,3 say "╙ª╡╜╗⌡╞┌" get k9 pict '99.99.99'
  40. @ 0,40 say "╜╗╗⌡╡╪╡π" get k10
  41. @ 1,40 say "╘╦╩Σ╖╜╩╜" get k11
  42. @ 2,40 say "╜ß╦π╖╜╩╜" get k11a
  43. @ 3,40 say "╒╩    ║┼"get k12
  44. @ 4,40 say "╡τ    ╗░"get k13
  45. @ 5,40 say "╡τ▒¿╣╥║┼" get k14
  46. @ 6,40 say "┤· ▒φ ╚╦" get k15
  47. @ 7,40 say "║╧═¼╕╜╫ó" get k17
  48. read
  49. wait '╫≈╖╧ú╞ú¼╨▐╕─ú╪ú¼┤µ┼╠ú┌ú¼╖╡╗╪ú╥ú║' to w
  50. do case  
  51. case w='x'
  52. loop 
  53. case w='f'
  54. a=a+1
  55. exit     
  56. case w='r'
  57. retu
  58. case w='z'
  59. j1=substr(k8,4,2)
  60. j2=substr(k8,7,2)
  61. j3=substr(k8,1,2)
  62. k8=j1+'/'+j2+'/'+j3
  63. k8=ctod(k8)
  64. j1=substr(k9,4,2)
  65. j2=substr(k9,7,2)
  66. j3=substr(k9,1,2)
  67. k9=j1+'/'+j2+'/'+j3
  68. k9=ctod(k9)
  69. k5=val(k5)
  70. k6=val(k6)
  71. use ht
  72. appe blank
  73. repl ht1 with k1,ht2 with k2,ht3 with k3,ht4 with k4,ht5 with ì
  74. k5,ht6 with k6,ht7 with k7,ht8 with k8,ht9 with k9,ht10 with ì
  75. k10,ht11 with k11,ht13 with k12,ht14 with k13,ht15 with k14
  76. repl ht16 with k15,ht17 with k17,ht11a with k11a
  77. exit
  78. endcase 
  79. enddo
  80. a=a-1
  81. enddo 
  82. retu
  83.  
  84.  
  85.  
  86.