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