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

Text File | 1980-01-01 | 1005 b | 41 lines

        *****╝≥└·▓Θ╤»(CH1)*****
CLEAR
STORE .T. TO CH1
DO WHILE CH1
   STORE "       " TO XH,MZ
   @ 2,18 SAY "╟δ╕°│÷╤º║┼: " GET XH
   @ 2,40 SAY "╗≥╕°│÷├√╫╓: " GET MZ
   READ
   IF XH<>" "
      USE B:AC2&Z INDEX B:IBAC2&Z
      FIND "&XH"
   ELSE
      USE B:AC2&Z INDEX B:IMAC2&Z
      FIND "&MZ"
   ENDIF
CLEAR
@ 1,8 SAY "─Ω╝╢:"+SUBSTR(BIN,1,2)+"  ╫¿╥╡:"+"&ZZ"+"  ì
╡╪╟°:"+DI+XI+"░α"+NIAN+"╓╞"
@ 2,8 SAY "╨╒├√:"+MING+"   ╨╘▒≡:"+B1+"  ─Ω┴Σ:"+STR(B2,2)+"  ╝«╣ß:"+B3
@ 3,8 SAY "╒■╓╬├µ─┐:"+B4+" ╬─╗»│╠╢╚:"+B5+" ├±╫σ:"+B6+"╡ú╚╬║╬╓╓╔τ╗ß╣ñ╫≈:"+B7
@ 4,8 SAY "╣ñ┴Σ:"+STR(B8,2)+"  ╧╓╚╬╓░╬±:"+B9
@ 5,8 SAY "╚╬╓░╡Ñ╬╗╡╪╓╖:"+B10
@ 6,8 SAY "╝╥═Ñ╡╪╓╖:"+B11
@ 7,8 SAY "╫ε║≤╤º└·╝░╦∙╘┌╡Ñ╬╗:"+B12
@ 8,8 SAY "▒╧╥╡╙δ╜ß╥╡:"+B13+" ╜ß╥╡╗≥▒╧╥╡║┼:"+B15+"▒╧╥╡╗≥╜ß╥╡╚╒╞┌:"
@ 8,62 SAY B14
@ 9,8 SAY B16
@ 9,18 SAY B17
@ 9,22 SAY B18
STORE " " TO YES1
@ 9,40 SAY "╩╟╖±╝╠╨°▓Θ╤» (Y/N) ?" GET YES1
READ
IF UPPER(YES1)="Y"
   CLEAR
   LOOP
ELSE
   STORE .F. TO CH1
ENDIF
ENDDO
RETURN