home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GZL1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.6 KB  |  107 lines
  1. clear
  2. set talk off
  3. set device to screen 
  4. a1=.t.
  5. do while a1
  6. clear
  7. k1='         '
  8. k2=' '
  9. k3=' '
  10. k5='        '
  11. k6='        '
  12. k7='  '
  13. k8='  '
  14. k9='                              '
  15. a2=.t.
  16. do while a2
  17. clear
  18. @ 1,1 say "╔Φ▒╕▒α║┼" get k1
  19. do while a2
  20. @ 2,0 clear
  21. @ 2,1 say "╜⌠╝▒│╠╢╚" get k2
  22. read
  23. if k2='h'
  24. use dm
  25. a='y'
  26. do ts  
  27. loop
  28. endif
  29. exit
  30. enddo 
  31. do while a2
  32. @ 3,0 clear
  33. @ 3,1 say "╣ñ╫≈└α╨═" get k3
  34. read
  35. if k3='h'
  36. use dm
  37. a='x'
  38. do ts 
  39. loop
  40. endif
  41. exit
  42. enddo 
  43. @ 4,1 say "╝╞╗«┐¬╣ñ╚╒" get k5 pict '99.99.99'
  44. @ 5,1 say "╝╞╗«═Ω╣ñ╚╒" get k6 pict '99.99.99'
  45. @ 6,1 say "│╨╨▐╡Ñ╬╗║┼" get k7
  46. @ 7,1 say "╣ñ╚╦╩²" get k8 pict '99'
  47. @ 8,1 say "╨▐└φ─┌╚▌╝≥╩÷" get k9
  48. read
  49. wait "╩Σ╚δ╡─╩²╛▌ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥úí" to w
  50. do case 
  51. case w='r'
  52. retu
  53. case w='z'
  54. use gzl1
  55. goto bott
  56. j1=substr(p100,1,2)
  57. j2=substr(p100,4,2)
  58. j3=substr(p100,7,2)
  59. qq=j1+j2+j3
  60. pp=str(gzl11,10)
  61. pp=substr(pp,1,6)
  62. if qq=pp
  63. k0=gzl11+1
  64. else
  65. k0=qq+'0001'
  66. k0=val(k0)
  67. endif
  68. j1=substr(k5,4,2)
  69. j2=substr(k5,7,2)
  70. j3=substr(k5,1,2)
  71. k5=j1+'/'+j2+'/'+j3
  72. k5=ctod(k5)
  73. j1=substr(k6,4,2)
  74. j2=substr(k6,7,2)
  75. j3=substr(k6,1,2)
  76. k6=j1+'/'+j2+'/'+j3
  77. k6=ctod(k6)
  78. k8=val(k8)
  79. use gzl1 
  80. set index to gzl11
  81. appe blank
  82. repl gzl11 with k0
  83. repl gzl12 with k1,gzl13 with k2,gzl14 with k3,gzl16 with ì
  84. k5,gzl17 with k6,gzl18 with k7,gzl19 with k8,gzl10 with k9
  85. a=recno()
  86. use pg
  87. appe blank
  88. repl pg1 with k7,pg2 with k8,pg3 with k5,pg4 with k6,pg5 with k0
  89. exit
  90. endcase
  91. enddo a2
  92. wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to w
  93. if w='y'
  94. w='q'
  95. use gzl1 
  96. set index to gzl11
  97. goto a
  98. do gzl2
  99. endif
  100. wait '╗╣╧┬┤∩┬≡ú¿ú┘ú»ú╬ú⌐' to w
  101. if w<>'y'
  102. use 
  103. retu
  104. endif
  105. enddo a1
  106.  
  107.