Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/CBHS-22C.PRG

Text File | 1989-10-25 | 1.1 KB | 42 lines

*│╔▒╛║╦╦π╫╙│╠╨≥╓«╢■╢■C:CBHS-22C.PRG
aa12='      '
bb12=.t.
do while bb12
clear
@ 3,20 say '╟δ╩Σ╚δ╧┬├µ╕≈▓·╞╖╡─▓─┴╧▓ε╥∞╡Ñ╬╗'
@ 4,20 say '=============================='
@ 6,10 say xg(1) get y(1) &ms1
@ 7,10 say xg(2) get y(2) &ms1
@ 8,10 say xg(3) get y(3) &ms1
@ 9,10 say xg(4) get y(4) &ms1
@ 10,10 say xg(5) get y(5) &ms1
@ 11,10 say xg(6) get y(6) &ms1
@ 12,10 say xg(7) get y(7) &ms1
@ 13,10 say xg(8) get y(8) &ms1
@ 14,10 say xg(9) get y(9) &ms1
@ 15,10 say xg(10) get y(10) &ms1
@ 16,10 say xg(11) get y(11) &ms1
@ 17,10 say xg(12) get y(12) &ms1
@ 6,45 say xg(13) get y(13) &ms1
@ 7,45 say xg(14) get y(14) &ms1
@ 8,45 say xg(15) get y(15) &ms1
@ 9,45 say xg(16) get y(16) &ms1
@ 10,45 say xg(17) get y(17) &ms1
@ 11,45 say xg(18) get y(18) &ms1
@ 12,45 say xg(19) get y(19) &ms1
@ 13,45 say xg(20) get y(20) &ms1
@ 14,45 say xg(21) get y(21) &ms1
@ 15,45 say xg(22) get y(22) &ms1
@ 16,45 say xg(23) get y(23) &ms1
@ 17,45 say xg(24) get y(24) &ms1
     read
@ 19,20 say '╔╧├µ╩Σ╚δ╡─╩²╛▌╢╘┬≡(Y/N)?   ' get aa12
     read
if aa12='Y'.or.aa12='y'
   bb12=.f.
endif
enddo
return