Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/BCBDE-1.PRG

Text File | 1980-01-03 | 1.6 KB | 50 lines

*░δ│╔╞╖╢¿╢ε╝╞╦π╫╙│╠╨≥╓«╥╗:BCBDEú¡1.PRG
ms2="picture '9999999999'"
aa1='      '
bb1=.t.
do while bb1
clear
@ 1,30 say '╟δ╧╚╩Σ╚δ╧┬├µ╕≈▓·╞╖╡─╩²┴┐'
@ 2,30 say '========================'
@ 4,5 say xg(125-qbl2) get cl(1) &ms2
@ 5,5 say xg(126-qbl2) get cl(2) &ms2
@ 6,5 say xg(127-qbl2) get cl(3) &ms2
@ 7,5 say xg(128-qbl2) get cl(4) &ms2
@ 8,5 say xg(129-qbl2) get cl(5) &ms2
@ 9,5 say xg(130-qbl2) get cl(6) &ms2
@ 10,5 say xg(131-qbl2) get cl(7) &ms2
@ 11,5 say xg(132-qbl2) get cl(8) &ms2
@ 12,5 say xg(133-qbl2) get cl(9) &ms2
@ 13,5 say xg(134-qbl2) get cl(10) &ms2
@ 14,5 say xg(135-qbl2) get cl(11) &ms2
@ 15,5 say xg(136-qbl2) get cl(12) &ms2
@ 16,5 say xg(137-qbl2) get cl(13) &ms2
@ 17,5 say xg(138-qbl2) get cl(14) &ms2
@ 18,5 say xg(139-qbl2) get cl(15) &ms2
@ 19,5 say xg(140-qbl2) get cl(16) &ms2
@ 4,45 say xg(141-qbl2) get cl(17) &ms2
@ 5,45 say xg(142-qbl2) get cl(18) &ms2
@ 6,45 say xg(143-qbl2) get cl(19) &ms2
@ 7,45 say xg(144-qbl2) get cl(20) &ms2
@ 8,45 say xg(145-qbl2) get cl(21) &ms2
@ 9,45 say xg(146-qbl2) get cl(22) &ms2
@ 10,45 say xg(147-qbl2) get cl(23) &ms2
@ 11,45 say xg(148-qbl2) get cl(24) &ms2
@ 12,45 say xg(149-qbl2) get cl(25) &ms2
@ 13,45 say xg(150-qbl2) get cl(26) &ms2
@ 14,45 say xg(151-qbl2) get cl(27) &ms2
@ 15,45 say xg(152-qbl2) get cl(28) &ms2
@ 16,45 say xg(153-qbl2) get cl(29) &ms2
@ 17,45 say xg(154-qbl2) get cl(30) &ms2
@ 18,45 say xg(155-qbl2) get cl(31) &ms2
@ 19,45 say xg(156-qbl2) get cl(32) &ms2
     read
@ 21,20 say '╔╧├µ╩Σ╚δ╡─╩²╛▌╢╘┬≡(Y/N)?   ' get aa1
     read
if aa1='Y'.or.aa1='y'
   bb1=.f.
endif
enddo
return