home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / XZC.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.1 KB  |  86 lines
  1.         *****╫¿╥╡╤í╘±(ZXC)*****
  2. SET TALK OFF
  3. CLEAR
  4. @ 1, 14 say  '    ╟δ░┤╧┬┴╨╧╡,╫¿╥╡╤í╘±╣ª─▄║┼ (1--20): '
  5. @ 2, 14 SAY '1--╓╨╬─           8--╩²╤º         15--╬ó╗· '
  6. @ 3, 14 SAY '2--╒■╓╬           9--╩²╗·         16--╓╨╬─├╪╩Θ '
  7. @ 4, 14 SAY '3--╛¡╝├╣▄└φ       10--╬∩└φ        17--╚╒╙∩  '
  8. @ 5, 14 SAY '4--╛¡╝├╖¿         11--╬∩╗·        18--╤º╨ú╜╠╙² '
  9. @ 6, 14 SAY '5--╢╘═Γ╛¡╝├├│╥╫   12--╗»╤º        19--╙ª╙├╗»╤º '
  10. @ 7, 14 SAY '6--╡╪└φ           13--╔·╬∩        20--╝╞╦π╗·╣▄└φ '
  11. @ 8, 14 SAY '7--└·╩╖           14--╠σ╙²    '
  12. STORE 0 TO LLO
  13. @ 9,0 SAY '╟δ╩Σ╚δ╣ª─▄▒α║┼: (1__20)'GET LLO RANGE 1,20 
  14. READ
  15.   DO CASE
  16.      CASE LLO=1 
  17.           Z='01'
  18.           ZZ='╓╨╬─'   
  19.      CASE LLO=2 
  20.           Z='02'
  21.           ZZ='╒■╓╬'
  22.      CASE LLO= 3
  23.           Z='03'
  24.           ZZ='╛¡╝├╣▄└φ'
  25.      CASE LLO= 4 
  26.           Z='04'
  27.           ZZ='╛¡╝├╖¿'
  28.       CASE LLO=5
  29.           Z='05'
  30.           ZZ='╢╘═Γ╛¡╝├├│╥╫'
  31.       CASE LLO= 6  
  32.           Z='06'
  33.           ZZ= '╡╪└φ'
  34.       CASE LLO=7
  35.           Z='07' 
  36.           ZZ= '└·╩╖'
  37.       CASE LLO=8
  38.           Z='08'
  39.           ZZ='╩²╤º'
  40.       CASE LLO=9
  41.           Z='09'
  42.           ZZ='╩²╗·'
  43.       CASE LLO=10
  44.           Z='10'
  45.           ZZ='╬∩└φ'
  46.       CASE LLO=11
  47.           Z='11' 
  48.           ZZ='╬∩╗·'
  49.       CASE LLO=12
  50.           Z='12'
  51.           ZZ='╗»╤º'
  52.       CASE LLO=13
  53.           Z='13'
  54.           ZZ='╔·╬∩'
  55.       CASE LLO=14
  56.           Z='14'è          ZZ='╠σ╙²'
  57.       CASE LLO= 15
  58.           Z='15'
  59.           ZZ='╬ó╗·'
  60.       CASE LLO=16
  61.           Z='16'
  62.           ZZ='╓╨╬─├╪╩Θ'
  63.       CASE LLO=17
  64.           Z='17'
  65.           ZZ='╚╒╙∩'
  66.       CASE LLO=18
  67.           Z='18'
  68.           ZZ='╤º╨ú╜╠╙²'
  69.       CASE LLO=19
  70.           Z='19'
  71.           ZZ='╙ª╙├╗»╤º'
  72.       CASE LLO=20
  73.           Z='20'
  74.           ZZ='╝╞╦π╗·╣▄└φ'
  75.     ENDCASE
  76. WAIT '╟δ░╤'+'&ZZ'+'╫¿╥╡╩²╛▌┼╠╖┼╓├ B╟²╢»╞≈╔╧╚╗║≤░┤╚╬╥╗╝ⁿ╝╠╨°'
  77. STORE .T. TO FI
  78.     DO WHILE FI
  79.        IF .NOT. FILE("B:AC2"+"&Z"+".DBF")
  80.        WAIT"╩²╛▌┼╠╖┼┤φ,╟δ╓╪╨┬░╤"+"&ZZ"+"╩²╛▌┼╠╖┼╓├B╟²╢»╞≈╔╧,╚╗║≤░┤╚╬╥╗╝ⁿ╝╠╨°"
  81.        ELSE
  82.        STORE .F.TO FI 
  83.        ENDIF
  84.     ENDDO
  85. RETURN         
  86.