Liren Large Software Subsidy 6/06.iso/b/b032/6.img/31/YLXS.PRG

Text File | 1987-09-03 | 421 b | 32 lines

sele e
USE DMK
IDM=1
DO WHILE IDM<53
 DM(IDM)=YWDH
 SKIP
 IDM=IDM+1
ENDDO
USE
sele 3
lspg=recn()
sele 2
go bott
zs=recn()
go (lspg-1)*yzs+1
erase lsk3.dbf
if lspg*yzs<=zs
 copy next yzs to lsk3
else
 copy next zs-recn()+1 to lsk3
endif
sele 4
use lsk3
@ 13,0 say repl("í╘",40)
do tsh1
do cd00 with "trim(ywm)+'  '+trim(dm(lx))+trim(zw)",14,0,40,2,1,10
use
@ 14,0 clear
do tsh
sele 3
retu