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

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

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