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

Text File | 1989-12-02 | 4.1 KB | 132 lines

*│╔▒╛║╦╦π╫╙│╠╨≥╓«╢■╥╗B:CBHS-21B.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
@ 22,0 say xg(19) get q(19) &ms1
@ 23,0 say xg(20) get q(20) &ms1
@ 4,27 say xg(21) get q(21) &ms1
@ 5,27 say xg(22) get q(22) &ms1
@ 6,27 say xg(23) get q(23) &ms1
@ 7,27 say xg(24) get q(24) &ms1
@ 8,27 say xg(25) get q(25) &ms1
@ 9,27 say xg(26) get q(26) &ms1
@ 10,27 say xg(27) get q(27) &ms1
@ 11,27 say xg(28) get q(28) &ms1
@ 12,27 say xg(29) get q(29) &ms1
@ 13,27 say xg(30) get q(30) &ms1
@ 14,27 say xg(31) get q(31) &ms1
@ 15,27 say xg(32) get q(32) &ms1
@ 16,27 say xg(33) get q(33) &ms1
@ 17,27 say xg(34) get q(34) &ms1
@ 18,27 say xg(35) get q(35) &ms1
@ 19,27 say xg(36) get q(36) &ms1
@ 20,27 say xg(37) get q(37) &ms1
@ 21,27 say xg(38) get q(38) &ms1
@ 22,27 say xg(39) get q(39) &ms1
@ 23,27 say xg(40) get q(40) &ms1
@ 4,54 say xg(41) get q(41) &ms1
@ 5,54 say xg(42) get q(42) &ms1
@ 6,54 say xg(43) get q(43) &ms1
@ 7,54 say xg(44) get q(44) &ms1
@ 8,54 say xg(45) get q(45) &ms1
@ 9,54 say xg(46) get q(46) &ms1
@ 10,54 say xg(47) get q(47) &ms1
@ 11,54 say xg(48) get q(48) &ms1
@ 12,54 say xg(49) get q(49) &ms1
@ 13,54 say xg(50) get q(50) &ms1
@ 14,54 say xg(51) get q(51) &ms1
@ 15,54 say xg(52) get q(52) &ms1
@ 16,54 say xg(53) get q(53) &ms1
@ 17,54 say xg(54) get q(54) &ms1
@ 18,54 say xg(55) get q(55) &ms1
@ 19,54 say xg(56) get q(56) &ms1
@ 20,54 say xg(57) get q(57) &ms1
@ 21,54 say xg(58) get q(58) &ms1
@ 22,54 say xg(59) get q(59) &ms1
@ 23,54 say xg(60) get q(60) &ms1
     read
@ 4,0 clear
@ 4,0 say xg(61) get q(61) &ms1
@ 5,0 say xg(62) get q(62) &ms1
@ 6,0 say xg(63) get q(63) &ms1
@ 7,0 say xg(64) get q(64) &ms1
@ 8,0 say xg(65) get q(65) &ms1
@ 9,0 say xg(66) get q(66) &ms1
@ 10,0 say xg(67) get q(67) &ms1
@ 11,0 say xg(68) get q(68) &ms1
@ 12,0 say xg(69) get q(69) &ms1
@ 13,0 say xg(70) get q(70) &ms1
@ 14,0 say xg(71) get q(71) &ms1
@ 15,0 say xg(72) get q(72) &ms1
@ 16,0 say xg(73) get q(73) &ms1
@ 17,0 say xg(74) get q(74) &ms1
@ 18,0 say xg(75) get q(75) &ms1
@ 19,0 say xg(76) get q(76) &ms1
@ 20,0 say xg(77) get q(77) &ms1
@ 21,0 say xg(78) get q(78) &ms1
@ 4,27 say xg(79) get q(79) &ms1
@ 5,27 say xg(80) get q(80) &ms1
@ 6,27 say xg(81) get q(81) &ms1
@ 7,27 say xg(82) get q(82) &ms1
@ 8,27 say xg(83) get q(83) &ms1
@ 9,27 say xg(84) get q(84) &ms1
@ 10,27 say xg(85) get q(85) &ms1
@ 11,27 say xg(86) get q(86) &ms1
@ 12,27 say xg(87) get q(87) &ms1
@ 13,27 say xg(88) get q(88) &ms1
@ 14,27 say xg(89) get q(89) &ms1
@ 15,27 say xg(90) get q(90) &ms1
@ 16,27 say xg(91) get q(91) &ms1
@ 17,27 say xg(92) get q(92) &ms1
@ 18,27 say xg(93) get q(93) &ms1
@ 19,27 say xg(94) get q(94) &ms1
@ 20,27 say xg(95) get q(95) &ms1
@ 21,27 say xg(96) get q(96) &ms1
@ 4,54 say xg(97) get q(97) &ms1
@ 5,54 say xg(98) get q(98) &ms1
@ 6,54 say xg(99) get q(99) &ms1
@ 7,54 say xg(100) get q(100) &ms1
@ 8,54 say xg(101) get q(101) &ms1
@ 9,54 say xg(102) get q(102) &ms1
@ 10,54 say xg(103) get q(103) &ms1
@ 11,54 say xg(104) get q(104) &ms1
@ 12,54 say xg(105) get q(105) &ms1
@ 13,54 say xg(106) get q(106) &ms1
@ 14,54 say xg(107) get q(107) &ms1
@ 15,54 say xg(108) get q(108) &ms1
@ 16,54 say xg(109) get q(109) &ms1
@ 17,54 say xg(110) get q(110) &ms1
@ 18,54 say xg(111) get q(111) &ms1
@ 19,54 say xg(112) get q(112) &ms1
@ 20,54 say xg(113) get q(113) &ms1
@ 21,54 say xg(114) get q(114) &ms1
@ 23,20 say '╔╧├µ╩Σ╚δ╡─╩²╛▌╢╘┬≡(Y/N)?   ' get aa12
     read
if aa12='Y'.or.aa12='y'
   bb12=.f.
endif
enddo
return