close databases
close all<\/p>\n\n\n\n
use kdxx
zap<\/p>\n\n\n\n
use ppx<\/p>\n\n\n\n
store srise to rise
store dow(date()) to vno
store cdow(date()) to vr<\/p>\n\n\n\n
store recno() to reno<\/p>\n\n\n\n
use vara<\/p>\n\n\n\n
locate for no = vno<\/p>\n\n\n\n
store lord to pl<\/p>\n\n\n\n
use hd \n\nlocate for lord = pl\nstore lord to ld2\nstore recno() to re \n\nuse kdxx\n\nappend blank\nrepl lord with ld2 \nrepl no with 1 \nrepl start with rise\nrepl day with vr\n\nuse hd\ngo re+1\nstore lord to ld3\n\n\n\nuse kdxx \nappend blank\nrepl lord with ld3 \nrepl no with 2 \nrepl start with rise+100\nrepl day with vr<\/code><\/pre>\n\n\n\nuse hd
go re+2
store lord to ld4<\/p>\n\n\n\n
use kdxx \nappend blank\nrepl lord with ld4 \nrepl no with 3 \n repl start with rise+200\nrepl day with vr\n\n\nuse hd\ngo re+3\nstore lord to ld5\n\nuse kdxx \nappend blank\nrepl lord with ld5 \nrepl no with 4 \n\nrepl start with rise+300\nuse hd\ngo re+4\nstore lord to ld6\n\n\n\nuse kdxx \nappend blank\nrepl lord with ld6 \n repl no with 5 \nrepl start with rise+400\nuse hd\ngo re+5\nstore lord to ld7\n\n\n\n\nuse kdxx \nappend blank\nrepl lord with ld7 \n repl no with 6 \nrepl start with rise+500\nrepl day with vr\n\nuse hd<\/code><\/pre>\n\n\n\ngo re+6
store lord to ld<\/p>\n\n\n\n
use kdxx \nappend blank\nrepl lord with ld \n repl no with 7 \nrepl start with rise+600\nuse hd\ngo re+7\nstore lord to ld\n\nuse kdxx \nappend blank\nrepl lord with ld \n\nrepl start with rise+700\nuse hd\ngo re+8\n\nstore lord to ld\n\n use kdxx \nappend blank\nrepl lord with ld \n\nrepl start with rise+800\n\nuse hd\ngo re+9\n\nstore lord to ld\n\n\nuse kdxx \nappend blank\nrepl lord with ld \n\nrepl start with rise+900<\/code><\/pre>\n\n\n\nuse kdxx<\/p>\n\n\n\n
go top<\/p>\n\n\n\n
store lord to lord1
store start to s1
store day to da1<\/p>\n\n\n\n
skip<\/p>\n\n\n\n
store lord to lord2
store start to s2
store day to da2<\/p>\n\n\n\n
skip<\/p>\n\n\n\n
store lord to lord3
store start to s3
store day to da3<\/p>\n\n\n\n
skip
store lord to lord4
store start to s4
store day to da4<\/p>\n\n\n\n
skip
store lord to lord5
store start to s5
store day to da6<\/p>\n\n\n\n
skip<\/p>\n\n\n\n
store lord to lord6
store start to s6
store day to da7<\/p>\n\n\n\n
skip
store lord to lord7
store start to s7
store day to da5<\/p>\n\n\n\n
skip<\/p>\n\n\n\n
store lord to lord8
store start to s8
store day to da8<\/p>\n","protected":false},"excerpt":{"rendered":"
close databasesclose all use kdxxzap use ppx store srise to risestore dow(date()) to vnostore cdow(date()) to vr store recno() to reno use vara locate for no = vno store lord to pl use hdgo re+2store lord to ld4 go re+6store lord to ld use kdxx go top store lord to lord1store start to s1store day … <\/p>\n