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

Text File | 1980-01-03 | 2.1 KB | 71 lines

*│╔▒╛║╦╦π╫╙│╠╨≥╓«╢■╢■A:CBHS-22A.PRG
aa9='      '
bb9=.t.
do while bb9
clear
@ 1,25 say '╟δ╩Σ╚δ╧┬├µ╕≈▓·╞╖╡─▓·┴┐'
@ 2,25 say '======================'
@ 4,0 say xg(1) get j(1) &ms2
@ 5,0 say xg(2) get j(2) &ms2
@ 6,0 say xg(3) get j(3) &ms2
@ 7,0 say xg(4) get j(4) &ms2
@ 8,0 say xg(5) get j(5) &ms2
@ 9,0 say xg(6) get j(6) &ms2
@ 10,0 say xg(7) get j(7) &ms2
@ 11,0 say xg(8) get j(8) &ms2
@ 12,0 say xg(9) get j(9) &ms2
@ 13,0 say xg(10) get j(10) &ms2
@ 14,0 say xg(11) get j(11) &ms2
@ 15,0 say xg(12) get j(12) &ms2
@ 16,0 say xg(13) get j(13) &ms2
@ 17,0 say xg(14) get j(14) &ms2
@ 18,0 say xg(15) get j(15) &ms2
@ 19,0 say xg(16) get j(16) &ms2
@ 20,0 say xg(17) get j(17) &ms2
@ 21,0 say xg(18) get j(18) &ms2
@ 4,27 say xg(19) get j(19) &ms2
@ 5,27 say xg(20) get j(20) &ms2
@ 6,27 say xg(21) get j(21) &ms2
@ 7,27 say xg(22) get j(22) &ms2
@ 8,27 say xg(23) get j(23) &ms2
@ 9,27 say xg(24) get j(24) &ms2
@ 10,27 say xg(25) get j(25) &ms2
@ 11,27 say xg(26) get j(26) &ms2
@ 12,27 say xg(27) get j(27) &ms2
@ 13,27 say xg(28) get j(28) &ms2
@ 14,27 say xg(29) get j(29) &ms2
@ 15,27 say xg(30) get j(30) &ms2
@ 16,27 say xg(31) get j(31) &ms2
@ 17,27 say xg(32) get j(32) &ms2
@ 18,27 say xg(33) get j(33) &ms2
@ 19,27 say xg(34) get j(34) &ms2
@ 20,27 say xg(35) get j(35) &ms2
@ 21,27 say xg(36) get j(36) &ms2
@ 4,54 say xg(37) get j(37) &ms2
@ 5,54 say xg(38) get j(38) &ms2
@ 6,54 say xg(39) get j(39) &ms2
@ 7,54 say xg(40) get j(40) &ms2
@ 8,54 say xg(41) get j(41) &ms2
@ 9,54 say xg(42) get j(42) &ms2
@ 10,54 say xg(43) get j(43) &ms2
@ 11,54 say xg(44) get j(44) &ms2
@ 12,54 say xg(45) get j(45) &ms2
@ 13,54 say xg(46) get j(46) &ms2
@ 14,54 say xg(47) get j(47) &ms2
@ 15,54 say xg(48) get j(48) &ms2
@ 16,54 say xg(49) get j(49) &ms2
@ 17,54 say xg(50) get j(50) &ms2
@ 18,54 say xg(51) get j(51) &ms2
@ 19,54 say xg(52) get j(52) &ms2
@ 20,54 say xg(53) get j(53) &ms2
@ 21,54 say xg(54) get j(54) &ms2
     read
@ 23,20 say '╔╧├µ╩Σ╚δ╡─╩²╛▌╢╘┬≡(Y/N)?   ' get aa9
     read
if aa9='Y'.or.aa9='y'
   bb9=.f.
endif
enddo
return