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

Text File | 1991-03-04 | 1.1 KB | 42 lines

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