Liren Large Software Subsidy 6/06.iso/b/b034/xy.img/S4/WHMK.PRG

Text File | 1980-01-01 | 503 b | 27 lines

        ****╧╡═│╬¼╗ñ(WHMK)****
DO WHILE .T.
PUBLIC Z,ZZ
SET TALK OFF
LLO=0
CLEAR
@ 1,26 SAY "*****╧╡═│╬¼╗ñ╤í╘±▓╦╡Ñ*****"
@ 3,26 SAY " 0. ═╦│÷ "
@ 4,26 SAY " 1. ╩²╛▌┐Γ┼╠│⌡╩╝╗»(╜¿╗∙▒╛┐Γ)"
@ 5,26 SAY " 2. │╔╝¿┐Γ╡─╜¿┴ó"
@ 6,26 SAY " 3. ▒╧╥╡╔·╫╩┴╧┤µ╡╡"
@ 8,20 SAY "╟δ╤í╘±╣ª─▄╝ⁿ╩Σ╚δ (0--3)" GET LLO RANGE 0,3
READ
DO CASE
   CASE LLO=0
   CLEAR
   @ 8,16 SAY "═╦│÷╧╡═│╬¼╗ñ"
   RETURN
   CASE LLO=1
   DO JKU
   CASE LLO=2
   DO CKU
   CASE LLO=3
   DO CUANDANG
ENDCASE
ENDDO