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

Text File | 1990-02-28 | 4.2 KB | 133 lines

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