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

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

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