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

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

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