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

Text File | 1989-03-13 | 1.1 KB | 41 lines

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