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

Text File | 1980-01-01 | 512 b | 28 lines

STORE .T. TO CZT
DO WHILE CZT
DO XZC
CLEAR
STORE "        " TO XH,MZ
@ 2,18 SAY "╟δ╕°│÷╤º║┼:" GET XH
@ 2,40 SAY "╗≥╕°│÷├√╫╓:" GET MZ
READ
USE B:AC308
@ 4,20 SAY "╒²╘┌╤░╒╥╓╨,╟δ╡╚║≥ !"
LOCATE FOR BIN=XH.OR.MING=MZ
CLEAR
@ 2,20 SAY "╤º║┼:"+BIN
@ 2,40 SAY "╨╒├√:"+MING
@ 2,58 SAY "╨╘▒≡:"+C4
@ 3,20 SAY "└α▒≡:"+C1
@ 4,20 SAY C1+"╘¡╥≥:"+C2
@ 5,20 SAY "╞≡╞²╩▒╝Σ:"+C3
STORE " " TO YES1
@ 9,8 SAY "╩╟╖±╝╠╨°▓Θ╤» (Y/N) ?" GET YES1
READ
IF UPPER(YES1)="Y"
LOOP
ELSE
STORE .F. TO CZT
ENDDO
RETURN