Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/GZGL.PRG

Text File | 1989-01-06 | 1.3 KB | 71 lines

*╣ñ╫╩╓≈│╠╨≥:GZGL.PRG
set talk off
clear
public mo1,mo2,mo3,mo11,mo22,mo33
dm='      '
az=.t.
do while az
az=.f.
mo1=year(date())
mo11=str(mo1,4,0)
mo2=month(date())
mo22=str(mo2,2,0)
mo3=day(date())
mo33=str(mo3,2,0)
@ 8,25 say '╜±╠∞╩╟:'
@ 9,32 say mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒'
@ 12,25 say '╔╧├µ╡─╚╒╞┌╢╘┬≡(Y/N)?  ' get dm
     read
if dm='N'.or.dm='n'
   az=.t.
   run date
   clear
endif
enddo
a=0
answer=.t.
do while answer
clear
@ 2,20 say '╣π╓▌╫╘╨╨│╡╢■│º╣ñ╫╩│╠╨≥╟σ╡Ñ╬¬─·╠ß╣⌐╥╘╧┬╖■╬±'
@ 3,19 say '==========================================='
@ 06,15 say '╠φ╝╙╣ñ╫╩╝╞┬╝------ 1'
@ 06,45 say '╨▐╕─╣ñ╫╩╝╞┬╝------ 2'
@ 09,15 say '╝∞╦≈╓░╣ñ╝╞┬╝------ 3'
@ 09,45 say '╔╛│²╣ñ╫╩╝╞┬╝------ 4'
@ 12,15 say '┤≥╙í╣ñ╫╩▒φ-------- 5'
@ 12,45 say '╕≈▓┐├┼║╧╝╞-------- 6'
@ 15,15 say '╩²╛▌╕┤╓╞---------- 7'
@ 15,45 say '╝╞╦π╞▒╢ε╩²-------- 8'
@ 18,15 say '╫█║╧╞╜║Γ╝╞╦π------ 9'
@ 18,45 say '═╦│÷-------------- 10'
@ 20,10 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼' get a
    read
   do case
      case a=1
       do c:╠φ╝╙
      case a=2
       do c:╨▐╕─
      case a=3
       do c:╝∞╦≈
      case a=4
       do c:╔╛│²
      case a=5
       do c:┤≥╙í
      case a=6
       do c:║╧╝╞
      case a=7
       do c:╕┤╓╞
      case a=8
       do c:╞▒╢ε
      case a=9
       do c:╫█║╧
      case a=10
       answer=.f.
    endcase
enddo
set talk on
release all
return