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