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

Text File | 1990-01-03 | 4.1 KB | 132 lines

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