home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b032 / 6.img / 31 / GYC19.PRG < prev    next >
Encoding:
Text File  |  1987-09-10  |  1.6 KB  |  114 lines
  1. rest from "fwbl.mem" addi
  2. if ssfwh=3
  3.  @ 8,14 say "╥≥┤╦╩▒╓╕╢¿╡─╤º╧░╖╢╬º╩╟╢╠╙∩┤╩╗π, ì
  4. ╣╩▓╦╡Ñ╓╨╡─┤╦╧ε▓╗─▄╘╦╨╨."
  5.  @ 10,10 say "▒╪╨δ╓╪╨┬╓╕╢¿┴╦╡Ñ┤╩╖╢╬º╥╘║≤╖╜┐╔╜°╚δ."
  6.  wait " "
  7.  @ 2,0 clear
  8.  retu
  9. endif
  10. dime dm(51)
  11. sele 2
  12. use dmk
  13. idm=1
  14. do while idm<52
  15.  dm(idm)=ywdh
  16.  skip
  17.  idm=idm+1
  18. enddo
  19. bl191=5
  20. bl192=1
  21. @ 2,0 say repl("í╘",40)
  22. use yydc
  23. go bott
  24. bot=recn()
  25. go top
  26. qswz="a"
  27. @ 8,10 say "▒╛╧╡═│╧╘╩╛╡─╩╟╕▀│⌡íó╓╨┐╬▒╛─┌╬σ╕÷╡Ñ┤╩╥╘╔╧╡─═¼╕∙┤╩. "
  28. @ 10,14 say "─·┐╔╥╘╓╪╨┬╓╕╢¿╧▐╓╞═¼╕∙┤╩╡─╞≡╩╝╩²(2-13):" get bl191 ì
  29. pict "99"
  30. read
  31. @ 12,16 say "╟δ╩Σ╚δ─·╧δ╧╘╩╛═¼╕∙┤╩╡─╞≡╩╝╬╗╓├(a-z):" get qswz pict ì
  32. "A"
  33. read
  34. do case
  35.  case qswz="a"
  36.   qswz="a"
  37.  case qswz="i"
  38.   qswz="ic"
  39.  case qswz="k"
  40.   qswz="Ka"
  41.  case qswz="o"
  42.   qswz="ob"
  43.  case qswz="q"
  44.   qswz="qu"
  45.  case qswz="x"
  46.   qswz="y"
  47.  case qswz="z"
  48.   qswz="ze"
  49.  case qswz="u"
  50.   qswz="ug"
  51.  other
  52.   qswz=qswz+"a"
  53. endcase 
  54. if len(qswz)=1
  55.  loca for left(ywm,1)=qswz
  56. else
  57.  loca for left(ywm,2)=qswz
  58. endif
  59. ibt=recn()
  60. do while .t.
  61.  ixs=xs
  62.  ijs=1
  63.  if recn()=bot
  64.   exit
  65.  endif
  66.  do while .t.
  67.   skip
  68.   if xs=ixs
  69.    ijs=ijs+1
  70.    loop
  71.   else
  72.    if ijs>=bl191
  73.     @ 4,0 clear
  74.     go ibt
  75.     txs=xs
  76.     twz=4
  77.     do while .t.
  78.      @ twz,10 say ywm+"  "+dm(lx)+"  "+zw
  79.      skip
  80.      twz=twz+1
  81.      if xs=txs
  82.       loop
  83.      else
  84.       exit
  85.      endif
  86.     enddo
  87.     ibt=recn()
  88.     xszt=1
  89.     exit
  90.    else
  91.     ibt=recn()
  92.     xszt=0
  93.     exit
  94.    endif
  95.   endif
  96.  enddo
  97.  if xszt=0
  98.   loop
  99.  endif
  100.  yn=" " 
  101.  @ 18,22 say "        ╝╠╨°╧╘╩╛┬≡(y/n)?" get yn
  102.  read
  103.  if yn="y".or.yn="Y"
  104.   loop
  105.  else
  106.   exit
  107.  endif
  108. enddo
  109. @ 3,0 clear
  110. do tsh
  111. use
  112. sele 1
  113. retu
  114.