Liren Large Software Subsidy 5/05.iso/a/a038/2.ddi/SYSTEM.DT_/WBSEDIT.DAT

Text File | 1994-02-17 | 352.2 KB | 13,995 lines

%%
9,1:1
%%
.1
WinBase ▓╬┐╝╩╓▓ß
    ╩╣╙├    @700[▒α╝¡╞≈]        @699[WinBase╜Γ╩═╞≈├ⁿ┴ε╝»]

    ⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
    ⌐ª        ⌐ª@10[┤░┐┌║»╩²]            ⌐ª @18[╩²╫Θ║»╩²]               ⌐ª
    ⌐ª WinBase⌐ª@13[╗ß╗░║»╩²]            ⌐ª @19[╚╒╞┌║»╩²]               ⌐ª
    ⌐ª   ║»   ⌐ª@14[▓╦╡Ñ║»╩²]            ⌐ª @20[╩²╤º║»╩²]               ⌐ª
    ⌐ª   ╩²   ⌐ª@15[╩≤▒Ω╝ⁿ┼╠║»╩²]        ⌐ª @21[╫¬╗╗║»╩²]               ⌐ª
    ⌐ª   ╖╓   ⌐ª@16[═╝╨╬═╝╧≤║»╩²]        ⌐ª @22[╫╓╖√┤«║»╩²]             ⌐ª
    ⌐ª   └α   ⌐ª@17[╧╡═│║»╩²]            ⌐ª @23[╡═╝╢╬─╝■║»╩²]           ⌐ª
    ⌐ª        ⌐ª@11[╩²╛▌┐Γ╬¼╗ñ║»╩²]      ⌐ª @24[╩²╛▌┐Γ▓┘╫≈║»╩²]         ⌐ª
    ⌐ª        ⌐ª@12[▒¿▒φ╔Φ╝╞║»╩²]        ⌐ª @25[├ⁿ┴ε║»╩²]               ⌐ª
    ⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
    ⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
    ⌐ª                    WinBase├ⁿ┴ε╖╓└α                     ⌐ª
    ⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚
    ⌐ª     @30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]         @34[╝ⁿ┼╠╗║│σ╟°├ⁿ┴ε]            ⌐ª
    ⌐ª     @31[╩²╛▌┐Γ├ⁿ┴ε]               @35[╡═╝╢╬─╝■├ⁿ┴ε]              ⌐ª
    ⌐ª     @32[╩²╤º╔Φ╓├├ⁿ┴ε]             @36[─┌┤µ▒Σ┴┐├ⁿ┴ε]              ⌐ª
    ⌐ª     @33[╚╒╞┌╔Φ╓├├ⁿ┴ε]             @37[╧╡═│├ⁿ┴ε]                  ⌐ª
    ⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝


.10
┤░┐┌║»╩²
@1001 [gotowindow]        ▓╗▒ú┤µ╡▒╟░┤░┐┌, ╫¬╡╜╓╕╢¿╡─┤░┐┌
@1002 [makebotton]        ╘┌┤░┐┌╓╨┤┤╜¿░┤┼Ñ
@1003 [makewindow]        ┤┤╜¿┤░┐┌
@1004 [redrawwin]        ╓╪╗¡╦∙╙╨┤░┐┌
@1005 [removewindow]    ╣╪▒╒╡▒╟░┤░┐┌
@1006 [shiftwindow]        ▒ú┤µ╡▒╟░┤░┐┌, ╫¬╡╜╓╕╢¿╡─┤░┐┌
@1007 [wbedit]            ╡»│÷┐╔╜°╨╨╬─▒╛▒α╝¡╡─┤░┐┌
@1008 [winclear]        ╦ó╨┬┤░┐┌
@1009 [window]            ╖╡╗╪╡▒╟░┤░┐┌╛Σ▒·
@1010 [windowexit]        ═╦│÷Winbase ╧╡═│
@1011 [windowget]        ╗∙╙┌┤░┐┌╡─GET ▓┘╫≈
@1012 [windowsay]        ╗∙╙┌┤░┐┌╡─SAY ▓┘╫≈
@1013 [windowstart]        │⌡╩╝╗»Winbase ╧╡═│
@1014 [winoutput]        ╘┌┤░┐┌╓╨╡─╡▒╟░╨╨╩Σ│÷┤«
@1015 [winscroll]        ╣÷╢»┤░┐┌╓╨╡──┌╚▌
@1016 [wintitle]        ╕─▒Σ╡▒╟░┤░┐┌╡─▒Ω╠Γ║═▒│╛░╔½

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.11
 ╩²╛▌┐Γ╬¼╗ñ║»╩²
@1101 [winbrows]        ╢╘╩²╛▌┐Γ╜°╨╨╬¼╗ñ▓┘╫≈▓ó┐╔╔Φ╝╞íó┤≥╙í▒¿▒φ

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.12
▒¿▒φ╔Φ╝╞║»╩²
@1201 [ave_cond]        ╢╘╥╗╓╕╢¿╡─╫╓╢╬╟≤╞╜╛∙
@1202 [ave_all]            ╢╘╥╗╓╕╢¿╡─"▒φ┤∩╩╜" ╟≤╞╜╛∙
@1203 [c]                ╚í╡▒╟░╨╨─│┴╨╡─╓╡ú¿╩²╓╡ú⌐
@1204 [countfor]        ═│╝╞╡▒╟░╩²╛▌┐Γ╓╨┬·╫π╠⌡╝■╡─╦∙╙╨╝╟┬╝╕÷╩²
@1205 [ctack]            ╚í┬·╫π╠⌡╝■╡─╝╟┬╝╡──┌╚▌
@1206 [cv]            ╜½┤·┬δ╫¬╗╗╬¬╩╡╝╩─┌╚▌╩Σ│÷
@1207 [dage]            ╜½╚╒╞┌╫¬╗╗╬¬─Ω┴Σ
@1208 [dates]            ╜½╩²╓╡╫¬╗╗╬¬╚╒╞┌╫╓╖√┤«
@1209 [design]            ╙├╙┌╔Φ╝╞╢α╓╓╢α╤∙╡─╩²╛▌▒¿▒φ
@1210 [in]                ╙├╙┌╘┌┤≥╙í╣²│╠╓╨╩╡╩▒╩Σ╚δ╫╓╖√┤«
@1211 [itack]            ░┤╣╪╝ⁿ╫╓▓Θ╒╥╫╓╢╬─┌╚▌
@1212 [nage]            ╜½╩²╓╡╫¬╗╗╬¬─Ω┴Σ
@1213 [out]                ╩Σ│÷╫╓╢╬─┌╚▌
@1214 [page]            ╖╡╗╪┤≥╙í╡─╡▒╟░╥│║┼
@1215 [pages]            ╖╡╗╪▒¿▒φ╡─╫▄╥│╩²
@1216 [r]                ╚í╡▒╟░┴╨─│╨╨╡─╓╡
@1217 [rtack]            ╚í│÷╓╕╢¿╝╟┬╝╫╓╢╬╡──┌╚▌
@1218 [sum_all]         ╢╘╥╗╓╕╢¿╡─"▒φ┤∩╩╜" ╟≤║═íú
@1219 [sum_cond]        ╢╘╥╗╓╕╢¿╡─╫╓╢╬╟≤║═íú
@1220 [sumc]            ┴╨╟≤║═
@1221 [sumr]            ╨╨╟≤║═
@1222 [tack]            ╡▒╟░╝╟┬╝─│╫╓╢╬╡──┌╚▌
@1223 [usec]            ╚í╡▒╟░╧ε╡─╓╡
@1224 [usenum]            ╩╣╙├╨≥║┼

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.13
 ╗ß╗░║»╩²
@1301 [deldlg]        ╔╛│²─│└α╢╘╗░┐≥
@1302 [drawdlg]        ╗¡│÷─│└α╢╘╗░┐≥
@1303 [getcond]        ╠⌡╝■╫Θ║╧╢╘╗░┐≥
@1304 [getdlg]         ╗±╡├─│└α╢╘╗░┐≥╖╡╗╪╓╡
@1305 [getfile]        ╬─╝■╤í╘±╢╘╗░┐≥
@1306 [inputbox]    ╘┌▓╗═¼╨╨╧╘╩╛╨┼╧ó, ▓ó╜╙╩▄╩Σ╚δ
@1307 [makedlg]        ╝ñ╗ε╢╘╗░┐≥
@1308 [modifydlg]    ╨▐╕──│└α╢╘╗░┐≥─┌╚▌
@1309 [msgbox]        ╘┌▓╗═¼╨╨╧╘╩╛╨┼╧ó
@1310 [msgshow]        ╡»│÷╢α╨╨╨┼╧ó╝░╢α╕÷░┤┼Ñ╡─╨┼╧ó╢╘╗░┐≥
@1311 [removedlg]    ╔╛│²╢╘╗░┐≥
@1312 [setdlg]        ╔Φ╓├─│└α╢╘╗░┐≥

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.14
▓╦╡Ñ║»╩²
@1401 [achoice]        ░┤╩²╫Θ╡──┌╚▌╔·│╔▓╦╡Ñ
@1402 [makemenu]    ┤┤╜¿▓ó╝ñ╗ε╧┬└¡╩╜▓╦╡Ñ
@1403 [menudel]        ╔╛│²▓╦╡Ñ╧ε
@1404 [menuget]        ┤╙▓╦╡Ñ╩²╫Θ╓╨╚í▓╦╡Ñ─┌╚▌
@1405 [menugetc]    ╗±╚í▓╦╡Ñ╤╒╔½
@1406 [menuins]        ╘┌╓╕╢¿╬╗╓├▓σ╚δ▓╦╡Ñ╧ε
@1407 [menuset]        ╔Φ╓├▓╦╡Ñ╩²╫Θ
@1408 [menusetc]    ╔Φ╓├▓╦╡Ñ╤╒╔½
@1409 [popgetc]        ╚í╡»│÷╩╜▓╦╡Ñ╤╒╔½
@1410 [poplist]        ┤┤╜¿▓ó╝ñ╗ε╡»│÷╩╜▓╦╡Ñ
@1411 [popsetc]        ╔Φ╓├╡»│÷╩╜▓╦╡Ñ╡─╤╒╔½
@1412 [popup]        ┤┤╜¿▓ó╝ñ╗ε╡»│÷╩╜▓╦╡Ñ

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.15
 ╝ⁿ┼╠╩≤▒Ω║»╩²
@1501 [capslock]        ┤≥┐¬Capslock ╝ⁿ
@1502 [capsloff]        ╣╪▒╒Capslock ╝ⁿ
@1503 [fullkey]            ╚╖╢¿╚╬║╬░┤╝ⁿ╡─ASCII ┬δ╓╡║═╔¿├Φ┬δ
@1504 [inkey]            ╢┴╝ⁿ┼╠╔╧▒╗╝ⁿ╚δ╡─╫╓╖√
@1505 [keybd]            ╚í╝ⁿ┼╠╡─╫┤╠¼
@1506 [keybdbuf]        ╟σ╝ⁿ┼╠╗║│σ╟°
@1507 [lastkey]            ╚╖╢¿╝ⁿ┼╠╗║│σ╟°╫ε║≤╥╗╕÷╩Σ╚δ╝ⁿ╡─ASCII ┬δ╓╡
@1508 [m_hide]            ╥■▓╪╩≤▒Ω
@1509 [m_inbox]            ┼╨╢╧─│╧≤╦╪╡π╩╟╖±╘┌╓╕╢¿╟°╙≥╓╨
@1510 [m_init]            │⌡╩╝╗»╩≤▒Ω
@1511 [m_move]            ╥╞╢»╩≤▒Ω╡╜╓╕╢¿╧≤╦╪╡π
@1512 [m_press]            ▓Γ╩╘╩≤▒Ω░┤┼Ñ╩╟╖±░┤╧┬
@1513 [m_rele]            ▓Γ╩╘╩≤▒Ω░┤┼Ñ╩╟╖±╩═╖┼
@1514 [m_reset]            ╓╪╓├╩≤▒Ω
@1515 [m_show]            ╧╘╩╛╩≤▒Ω
@1516 [m_where]            ╖╡╗╪╩≤▒Ω╡▒╟░╬╗╓├
@1517 [mouse]            ╧╘╩╛╗≥╒▀╣╪▒╒╩≤▒Ω
@1518 [mousebox]        ┼╨╢╧╩≤▒Ω╩╟╖±╘┌─│╥╗╧≤╦╪╖╢╬º─┌
@1519 [mousecol]        ╚í╩≤▒Ω╬╗╓├╡─╫°▒Ω┴╨
@1520 [mousein]            ┼╨╢╧╩≤▒Ω╩╟╖±╘┌─│╥╗╫°▒Ω╖╢╬º─┌
@1521 [mousekey]        ═¼╩▒▓Γ╩╘╝ⁿ┼╠░┤╝ⁿ║═╩≤▒Ω░┤┼Ñ
@1522 [mouseread]        ┐╔╩╣╙├╩≤▒Ω╡─READ
@1523 [mouserow]        ╖╡╗╪╩≤▒Ω╬╗╓├╡─╫°▒Ω╨╨
@1524 [mskeyb]            ╦═╝ⁿ╓╡╡╜mousekey ╩╣╙├╡─╗║│σ╟°
@1525 [newmskeyb]        ╟σ│²mousekey ╩╣╙├╡─╗║│σ╟°
@1526 [nextkey]            ╢┴╚í╝ⁿ┼╠╗║│σ╟°╓╨╡╚┤²┤ª└φ╡─╩Σ╚δ╝ⁿ╓╨╡─╡┌╥╗╕÷
@1527 [numlock]            ┤≥┐¬Num lock ╝ⁿ
@1528 [numloff]            ╣╪▒╒Num lock ╝ⁿ
@1529 [readkey]            ╚╖╢¿╓╒╓╣╫ε║≤READ ├ⁿ┴ε╡─╗≈╝ⁿ
@1530 [scankey]            ╚╖╢¿╚╬║╬░┤╝ⁿ╡─ASCII ┬δ╓╡
@1531 [scrollock]        ┤≥┐¬Scroll Lock ╝ⁿ
@1532 [scrolloff]        ╣╪▒╒Scroll Lock ╝ⁿ
@1533 [sethotkey]        ╔Φ╓├╚╚╝ⁿ╣ª─▄
@1534 [setkey]            ╙├╚╚╝ⁿ╝ñ╗ε╥╗╕÷┤·┬δ┐Θ

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.16
═╝╨╬═╝╧≤║»╩²
@1601 [att]                ╕─▒Σ╞┴─╗╔╧╓╕╢¿╟°╙≥╡─╩⌠╨╘, ▓ó╠ε│Σ╫╓╖√
@1602 [box3d]            ╗¡┴ó╠σ╖╜┐≥
@1603 [c_botton]        ╗¡│÷╙δmakebotton ╢¿╥σ╡─░┤┼Ñ═Ω╚½═¼╤∙╡─░┤┼Ñ
@1604 [c_window]        ╗¡│÷╙δmakewindow ╢¿╥σ╡─┤░┐┌═Ω╚½═¼╤∙╡─┤░┐┌
@1605 [dispform]        ╡≈╚δ▓ó╧╘╩╛BSV ═╝╧±
@1606 [drawbox]            ╘┌╓╕╢¿╟°╙≥╗¡╥╗╓╕╢¿╤╒╔½╡─▒▀┐≥
@1607 [drawline]        ┤╙╥╗╧≤╦╪╬╗╓├╗¡╥╗╓╕╢¿╤╒╔½╡─╓▒╧▀╡╜┴φ╥╗
                ╧≤╦╪╬╗╓├
@1608 [drawtext]        ╨┤16í┴16 ╡π╒≤╡─╫╓╖√┤«
@1609 [drawvcf]            ╨┤╩╕┴┐╫╓╖√┤«
@1610 [fontinit]        │⌡╩╝╗»(┤≥┐¬) 16í┴16 ╡π╒≤║║╫╓┐Γ
@1611 [fontexit]        ╣╪▒╒║║╫╓┐Γ
@1612 [g_close]            ╣╪▒╒╥╤│⌡╩╝╗»╡─╧╘╩╛─ú╩╜
@1613 [g_color]            ╔Φ╓├╫≈═╝╡▒╟░╤╒╔½
@1614 [g_ellips]        ╗¡═╓╘▓
@1615 [g_get]            ╜½╓╕╢¿╟°╙≥╡─╞┴─╗═╝╧≤╚í╧┬
@1616 [g_getpixel]         ╚í╞┴─╗╔╧─│╡π╡─╤╒╔½
@1617 [g_gettmp]        ╜½═╝╧±╖┼╚δ┴┘╩▒╟°
@1618 [g_init]            │⌡╩╝╗»╧╘╩╛─ú╩╜
@1619 [g_lineto]        ┤╙╡▒╟░╧≤╦╪╬╗╓├╗¡╧▀╡╜─│╥╗╡π
@1620 [g_mappal]        ╔Φ╓├╓╕╢¿╤╒╔½╓╡╡─╔½▓╩
@1621 [g_mapall]        ╙╔╤╒╔½╩²╫Θ╥╗┤╬╔Φ╓├╡≈╔½░σ
@1622 [g_mode]            ╔Φ╓├╗¡╧▀íó╗¡┐≥╡╚╡─╖╜╩╜
@1623 [g_moveto]        ╜½╧≤╦╪╓╕╒δ╥╞╡╜─│╥╗╡π
@1624 [g_port]            ╔Φ╓├═╝╨╬╧╘╩╛╟°╙≥
@1625 [g_put]            ╜½═╝╧±╒╗╢Ñ─┌╚▌╡»│÷▓ó╧╘╩╛
@1626 [g_puti]            ╧╘╩╛═╝╧±╒╗╓╨╓╕╢¿╛Σ▒·╡─═╝╧±
@1627 [g_puttmp]        ╧╘╩╛┴┘╩▒╟°╡─═╝╧±
@1628 [g_rect]            ╗¡╖╜┐≥╗≥╠ε│Σ
@1629 [g_rgb]            ╟≤╙╔R, G, B ╣╣│╔╡─│ñ╒√╩²╤╒╔½╓╡
@1630 [g_setpixel]         ╘┌╞┴─╗╔╧╗¡╡π
@1631 [g_style]            ╔Φ╓├╗¡╧▀─ú╩╜
@1632 [getrname]        ┤╙╬─╝■╓╨╗╓╕┤═╝╧≤╡╜╞┴─╗
@1633 [getwname]        ╜½╓╕╢¿╡─╞┴─╗╟°╙≥┤µ╓ⁿ╡╜╬─╝■╓╨
@1634 [loadform]        ┤╙╬─╝■╓╨╗╓╕┤╞┴─╗
@1635 [loadpcx]            ╧╘╩╛pcx ═╝╧≤
@1636 [mappal16]        ╔Φ╓├╡≈╔½░σ╬¬▒Ω╫╝16 ╔½╡≈╔½░σ
@1637 [pcx]                ╜½PCX ╬─╝■╧╘╩╛╘┌─│╥╗╟°╙≥╓╨
@1638 [pcx16]            ░┤╡▒╟░╡≈╔½░σ╧╘╩╛pcx ═╝╧±≤
@1639 [pcx256]            ╧╘╩╛256 ╔½pcx ═╝╧±
@1640 [pcxtype]            ╗±╡├pcx ╬─╝■└α╨═
@1641 [putform]            ╡≈╚δ▓ó╧╘╩╛BSV ═╝╧±
@1642 [saveform]        ╜½╓╕╢¿╡─╞┴─╗╟°╙≥┤µ╓ⁿ╡╜╬─╝■╓╨
@1643 [swapcolor]        ╡▀╡╣╤╒╔½┤«╓╨▒Ω╫╝║═╘÷╟┐╡─╤╒╔½
@1644 [vgaclose]        ╣╪▒╒╞┴─╗╧╘╩╛
@1645 [vgaopen]            ┤≥┐¬╞┴─╗╧╘╩╛

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.17
╧╡═│║»╩²
@1701 [__pcheck]        ╙├╙┌╝∞▓Γ║»╩²┤½╡▌╡─▓╬╩²╝░╞Σ└α╨═╡─║╧╖¿╨╘
@1702 [__ptypes]        ╚í╩²╫Θ╓╨├┐╥╗╕÷╘¬╦╪╡─└α╨═
@1703 [c_clip]            ╖╡╗╪╤╒╔½╓╡╢╘╙ª╡─╟░╛░╗≥▒│╛░╤╒╔½╫╓╖√┤«
@1704 [calculator]        ╡»│÷╝╞╦π╞≈╣ª─▄┤░┐┌
@1705 [clock]            ╡»│÷╩▒╓╙┤░┐┌
@1706 [col]                ╖╡╗╪╞┴─╗╣Γ▒Ω╡─╡▒╟░╬╗╓├╡─┴╨╫°▒Ω╓╡
@1707 [curdrive]        ╚í╡▒╟░╟²╢»╞≈║┼
@1708 [curoff]            ╣╪▒╒╣Γ▒Ω
@1709 [curon]            ┤≥┐¬╣Γ▒Ω
@1710 [delay]            ╤╙│┘╓╕╢¿╡─╩▒╝Σ
@1711 [devout]            ╜½╥╗╕÷▒φ┤∩╩╜╖ó╦═╡╜╡▒╟░╩Σ│÷╔Φ▒╕╔╧
@1712 [devpos]            ╓╪╓├╣Γ▒Ω╗≥╓╪╓├┤≥╙í═╖
@1713 [dial]            ▓ª╡τ╗░║┼┬δ
@1714 [dialclr]            ┤╙═¿╤╢╢╦┐┌▓≡│²╡≈╓╞╜Γ╡≈╞≈
@1715 [dispbox]            ╘┌╞┴─╗╔╧╓╕╢¿╬╗╓├╗¡╥╗╖╜┐≥
@1716 [doserror]        ╚╖╢¿╩╟╖±╥²╖ó┴╦╥╗╕÷DOS ┤φ╬≤
@1717 [donebeep]        ▓·╔·╥╗░π╙├╙┌╓╕╩╛▓┘╫≈╜ß╩°╡─┴╜╓╓╥⌠╡≈╡─╔∙╥⌠
@1718 [errorbeep]        ▓·╔·╔╘▓╗╩µ╖■╡─╢╠┤┘╔∙
@1719 [errorlevel]        ╢┴╚í╗≥╔Φ╓├DOS │÷┤φ╝╢▒≡
@1720 [findtsr]            ▓Θ╒╥─┌┤µ╫ñ┴⌠│╠╨≥
@1721 [fklabel]            ╚í╙δ╣ª─▄╝ⁿ╧α╣╪┴¼╡─▒Ω║┼
@1722 [fkmax]            ╚í┐╔▒α│╠╣ª─▄╝ⁿ╡─╫ε┤≤╨≥║┼
@1723 [getenv]            ╚íDOS ╗╖╛│▒Σ┴┐╡──┌╚▌
@1724 [initline]        ╔Φ╓├├┐╥╗╬─▒╛╨╨╡─╧≤╦╪┐φ╢╚
@1725 [iscolor]            ╚╖╢¿╝╞╦π╗·╩╟╖±╛▀╙╨▓╩╔½╧╘╩╛─▄┴ª
@1726 [isprint]            ╝∞▓ΘLPT1 ┤≥╙í┐┌, ▓ó╚╖╢¿╩╟╖±╫≈║├┴╦╩²╛▌╜╙╩╒╫╝▒╕
@1727 [iswbsdos]        ▓Γ╩╘╩╟╖±╩╟WBSDOS ║║╫╓╧╡═│
@1728 [maxcol]            ╚╖╢¿╝╞╦π╗·╡─╝α╩╙╞≈─▄╧╘╩╛╡─╫ε┤≤╫╓╖√┴╨╩²
@1729 [maxrow]            ╚╖╢¿╝╞╦π╗·╡─╝α╩╙╞≈─▄╧╘╩╛╡─╫ε┤≤╫╓╖√╨╨╩²
@1730 [memvarblock]        ╜¿┴ó╥╗╕÷" ╔Φ╓├- ╤í╚í" ┤·┬δ┐Θ
@1731 [nop]             ╓┤╨╨╥╗┤╬┐╒▓┘╫≈╡─║»╩²
@1732 [os]                ╚í▓┘╫≈╧╡═│╡─├√│╞║═░µ▒╛║┼
@1733 [outerr]            ╜½╩Σ│÷╢¿╧≥╡╜DOS ╡─▒Ω╫╝┤φ╬≤╩Σ│÷(stderr) ╔╧
@1734 [outstd]            ╜½┐╔▒╗DOS ╓╪╢¿╧≥╡─╩Σ│÷╢¿╧≥╡╜DOS
                ╡─▒Ω╫╝╩Σ│÷╔Φ▒╕╔╧
@1735 [pause]            ╬▐╠⌡╝■╡╪╘▌═ú╓╕╢¿╩▒╝Σ
@1736 [pcol]            ╕·╫┘┤≥╙í═╖╡─╦«╞╜╥╞╢»
@1737 [printcode]        ╦═┐╪╓╞┬δ╡╜┤≥╙í╗·╡½▓ó▓╗╕─▒Σ┤≥╙í╬╗╓├
@1738 [prow]            ╕·╫┘┤≥╙í═╖╡─╩·╓▒╥╞╢»
@1739 [putstr]            ╘┌╓╕╢¿╬╗╓├╩Σ│÷╫╓╖√┤«
@1740 [restscreen]        ╗╓╕┤╥╘╟░╙├SAVESCREEN () ║»╩²┤µ╓ⁿ╡─╞┴─╗╟°╙≥
@1741 [row]                ╚í╞┴─╗╣Γ▒Ω╡─╡▒╟░╬╗╓├╡─╨╨╫°▒Ω╓╡
@1742 [runmacro]        ╜½╫╓╖√┤«╡──┌╚▌╫¬╗╗╬¬║»╩²╘╦╨╨
@1743 [savescreen]        ╜½╞┴─╗╔╧╡─╥╗╕÷╛╪╨╬╟°╙≥┤µ╚δ─┌┤µ╥╘▒π╘┌║≤├µ╗╓╕┤
@1744 [scroll]            ╕∙╛▌╓╕╢¿╨╨╩²╣÷╢»┤░┐┌─┌╡──┌╚▌
@1745 [sernum]            ╖╡╗╪╨≥┴╨║┼
@1746 [set]            ╚╖╢¿║═╕─▒ΣWINBASE ╡─SET├ⁿ┴ε╗≥║»╩²╡─╫┤╠¼íú
@1747 [setblink]        ┐¬╣╪SETCOLOR () ║»╩²▒φ┤∩╩╜╓╨╦∙╙├╡─╨╟║┼"*"
@1748 [setcancel]        ╘╩╨φ╗≥╜√╓╣╩╣╙├ALT-C ╫≈╬¬╙ª╙├│╠╨≥╡─═╦│÷╝ⁿ
@1749 [setcolor]        ╬¬╧┬╥╗╕÷╞┴─╗╩Σ│÷╔Φ╓├╤╒╔½
@1750 [setcursor]        ╕─▒Σ╣Γ▒Ω╡─╨╬╫┤
@1751 [sethelp]            ╔Φ╓├░∩╓·║»╩²
@1752 [setmode]            ╖├╬╩╖╟╚▒╩í╡─╬─▒╛╧╘╩╛─ú╩╜
@1753 [setpos]            ╜½╣Γ▒Ω╥╞╡╜╓╕╢¿╡─╞┴─╗╬╗╓├╔╧
@1754 [setprc]            ╜½┤≥╙í═╖╔Φ╓├╡╜╓╕╢¿╡─╓╡
@1755 [settrace]        ╘┌┤φ╬≤┤ª└φ╢╘╗░┐≥╓╨╔Φ╓├╡≈╙├╣∞╝ú
@1756 [stacknew]        ╗±╡├╥╗╕÷╨┬╡─╒╗
@1757 [stackpop]        ┤╙╒╗╓╨╡»│÷╩²╛▌
@1758 [stackpush]        ╧≥╒╗╓╨╤╣╚δ╩²╛▌
@1759 [stackisempty]    ┼╨╢╧╒╗╩╟╖±╬¬┐╒
@1760 [stacktop]        ╗±╡├(╡½▓╗╡»│÷) ╒╗╢Ñ╘¬╦╪
@1761 [swprun]            ╓┤╨╨═Γ▓┐┐╔╓┤╨╨╬─╝■╗≥DOS ├ⁿ┴ε
@1762 [tone]            ╙├╓╕╢¿╞╡┬╩║═│╓╨°╩▒╝Σ╖ó╔∙
@1763 [updated]            ╚╖╢¿╘┌╢┴▓┘╫≈╟°╝Σ─│╕÷╫╓╢╬╗≥─│╕÷▒Σ┴┐╩╟╖±▒╗╨▐╕─
@1764 [version]            ╚╖╢¿╦∙╙├╡─WINBASE ░µ▒╛
@1765 [wbhelp]            ┤╙░∩╓·╬─╝■╓╨╠ß╚í▓ó╧╘╩╛╨┼╧ó
@1766 [wbs_off]            ╘┌WBSDOS ║║╫╓╧╡═│╧┬, ╣╪▒╒═╝╨╬╣Γ▒Ω
@1767 [wbs_on]            ╘┌WBSDOS ║║╫╓╧╡═│╧┬, ┤≥┐¬═╝╨╬╣Γ▒Ω

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.18
╩²╫Θ║»╩²
@1801 [aadd]        └⌐│Σ╩²╫Θ, ╩╣╞Σ╘÷╝╙╘¬╦╪
@1802 [aclone]        ╔·│╔╓╕╢¿╩²╫Θ╡─╥╗╕÷┐╜▒┤╩²╫Θ
@1803 [acomp]        ╢╘╩²╫Θ╓╨╡─╧α┴┌╘¬╦╪╕∙╛▌▒╚╜╧┤·┬δ┐Θ╟≤╓╡
@1804 [acopy]        ┐╜▒┤╩²╫Θ
@1805 [adel]        ┤╙╩²╫Θ╓╨╔╛╚Ñ╓╕╢¿╨≥║┼╡─╘¬╦╪
@1806 [aeval]        ▒Θ└·╥╗╩²╫Θ▓ó╘┌╞Σ├┐╕÷╘¬╦╪╔╧╢╘┤·┬δ┐Θ╟≤╓╡
@1807 [afill]        ╠ε│Σ╩²╫Θ
@1808 [ains]        ╘┌╩²╫Θ╓╨╓╕╢¿┤ª▓σ╚δ╥╗╓╕╢¿╓╡╡─╘¬╦╪
@1809 [amax]        ╟≤╩²╫Θ╓╨╫ε┤≤╘¬╦╪╦∙╘┌╡─╬╗╓├
@1810 [amin]        ╟≤╩²╫Θ╓╨╫ε╨í╘¬╦╪╦∙╘┌╡─╬╗╓├
@1811 [array]        ╜¿┴ó╩²╫Θ
@1812 [ascan]        ┤╙╩²╫Θ╓╨╦╤╦≈╡┌╥╗╕÷╙δ╓╕╢¿╓╡╞Ñ┼Σ╡─╘¬╦╪
@1813 [asize]        ╕─▒Σ╩²╫Θ╡─╘¬╦╪╩²─┐
@1814 [asort]        ╢╘╩²╫Θ╓╨╘¬╦╪┼┼╨≥
@1815 [atail]        ╚í╩²╫Θ╡─╫ε╕▀╨≥║┼╡─╘¬╦╪╓╡
@1816 [atodbf]        ╙├╩²╫Θ╓╨╡─╩²╛▌╠µ╗╗╡▒╟░╩²╛▌┐Γ
@1817 [atorec]        ╙├╩²╫Θ╓╨╡─╩²╛▌╠µ╗╗╡▒╟░╝╟┬╝
@1818 [rectoa]        ╜½╡▒╟░╝╟┬╝╩²╛▌┤µ╓ⁿ╙┌╩²╫Θ╓╨
@1819 [dbftoa]        ╙├╡▒╟░╩²╛▌┐Γ─┌╚▌╣╣│╔╢■╬¼╩²╫Θ

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.19
╚╒╞┌╙δ╩▒╝Σ║»╩²
@1901 [addmonth]        ╟≤╘┌╓╕╢¿╚╒╞┌╩²╘┬║≤╡─╚╒╞┌
@1902 [ampm]            ╗±╡├┤°╙╨am ╗≥pm ╡─╩▒╝Σ╫╓╖√┤«
@1903 [atodate]            ╜½╙╔{─Ωíó╘┬íó╚╒} ╣╣│╔╡─╩²╫Θ╫¬╗»│╔╚╒╞┌╓╡
@1904 [cdow]            ┤╙╚╒╞┌╓╡╖╡╗╪─│╥╗╠∞╘┌╥╗╓▄╓╨╡─╨≥║┼
@1905 [chinesedate]        ╜½╚╒╞┌╫¬╗╗╬¬╓╨╣·╧░╣▀╡─╙├─Ωíó╘┬íó╚╒
                ▒φ╩╛╡─╫╓╖√┤«
@1906 [cmonth]            ┤╙╚╒╞┌╓╡╓╨╖╡╗╪╘┬╖▌├√│╞
@1907 [ctod]            ╜½╫╓╖√┤«╨╬╩╜╡─╚╒╞┌╫¬╗╗│╔╚╒╞┌┤«
@1908 [date]            ╚í╧╡═│╡─╚╒╞┌
@1909 [dateisleap]        ╚╖╢¿╓╕╢¿╚╒╞┌╩╟╖±╩╟╚≥─Ω
@1910 [datetoa]            ╜½╚╒╞┌╫¬╗╗│╔╡─╩²╓╡╩²╫Θ, ╩²╫Θ╕±╩╜╬¬{─Ωíó╘┬íó╚╒}
@1911 [datetoage]        ╜½╚╒╞┌╫¬╗╗╬¬─Ω┴Σ╩²╓╡
@1912 [day]                ╢╘╥╗╕÷╚╒╞┌╟≤╓╡▓ó┤╙╓╨│Θ╚í│÷╘┬╓╨╡─╚╒╨≥║┼
@1913 [daynum]            ╟≤╥╗─Ω╓╨╥╤╣²╚Ñ╡─╠∞╩²
@1914 [dow]                ╖╡╗╪╚╒╞┌╓╨╨╟╞┌╝╕╡─╩²╫╓▒φ╩╜
@1915 [dtoc]            ╜½╚╒╞┌╫¬╗╗│╔╥╗╕÷╫╓╖√┤«
@1916 [dtof]            ╚í╥╗╕÷╘┬╡─╡┌╥╗╠∞╡─╚╒╞┌
@1917 [dtol]            ╚í╥╗╕÷╘┬╡─╫ε║≤╥╗╠∞╡─╚╒╞┌
@1918 [dtos]            ╜½╚╒╞┌╫¬╗╗│╔╥╗╕÷╫╓╖√┤«
@1919 [hsecond]            ╟≤▒╛╠∞╥╤┴≈╩┼╡─├δ╩²
@1920 [islastday]        ╚╖╢¿╚╒╞┌╩╟╖±╩╟╥╗╕÷╘┬╡─╫ε║≤╥╗╠∞
@1921 [istime]            ┼╨╢╧╩▒╝Σ┤«╩╟╖±║╧╖¿
@1922 [lastday]            ╚╖╢¿╥╗╕÷╘┬╡─╫ε║≤╥╗╠∞
@1923 [lupdate]            ╝∞▓Θ╩²╛▌┐Γ╬─╝■═╖▓ó╢┴╚í╫ε╜ⁿ╥╗┤╬╕ⁿ╨┬╡─╚╒╞┌
@1924 [month]            ╢╘╥╗╕÷╚╒╞┌╟≤╓╡▓ó┤╙╓╨│Θ╚í│÷╩²╫╓╨╬╩╜╡─╘┬╨≥║┼
@1925 [ntod]            ╗±╡├╚╒╞┌╓╡
@1926 [seconds]            ╖╡╗╪╫╘╬τ╥╣┐¬╩╝╡╜╧╓╘┌╬¬╓╣╡─╩▒╝Σ╝Σ╕⌠
@1927 [sectoday]        ╜½├δ╩²╫¬╗╗╬¬╠∞╩²
@1928 [sectotime]        ╜½├δ╩²╫¬╗╗╬¬╩▒╝Σ
@1929 [time]            ╚í╧╡═│╩▒╝Σ
@1930 [timediff]        ╟≤┴╜╕÷╩▒╝Σ╡─▓ε
@1931 [timetosec]        ╜½╩▒╝Σ╫╓╖√┤«╫¬╗╗╬¬├δ╩²
@1932 [year]            ╢╘╥╗╕÷╚╒╞┌╟≤╓╡▓ó┤╙╓╨│Θ╚í│÷─Ω┤·▓┐╖▌

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.20
╩²╤º║»╩²
@2001 [abs]            ╢╘╩²╤º▒φ┤∩╩╜╟≤╓╡▓ó╚í╛°╢╘╓╡
@2002 [binand]        ╢╘┴╜╕÷╩²░┤╬╗╟≤╙δ
@2003 [binnot]        ╢╘╩²╓╡░┤╬╗╟≤╖┤
@2004 [binor]        ╢╘┴╜╕÷╩²░┤╬╗╟≤╗≥
@2005 [binshl]        ╢╘╩²╓╡░┤╬╗╫≤╥╞
@2006 [binshr]        ╢╘╩²╓╡░┤╬╗╙╥╥╞
@2007 [binxor]        ╢╘┴╜╕÷╩²░┤╬╗╟≤╥∞╗≥
@2008 [btob]        ╜°╨╨╜°╓╞╫¬╗╗
@2009 [ceiling]        ╟≤┤≤╙┌╗≥╡╚╙┌─│╩²╡─╫ε╨í╒√╩²
@2010 [dtor]        ╜½╜╟╢╚╫¬╗╗╬¬╗í╢╚
@2011 [exp]            ╝╞╦π╩²╤º▒φ┤∩╩╜╡─╫╘╚╗╓╕╩²
@2012 [floor]        ╟≤╨í╙┌╗≥╡╚╙┌─│╩²╡─╫ε┤≤╒√╩²
@2013 [int]            ╖╡╗╪╩²╤º▒φ┤∩╩╜╡─╒√╩²▓┐╖▌
@2014 [lennum]        ╟≤╩²╓╡│ñ╢╚
@2015 [log]            ╝╞╦π╩²╤º▒φ┤∩╩╜╡─╫╘╚╗╢╘╩²
@2016 [log10]        ╟≤╥╘10 ╬¬╡╫╡─╢╘╩²╓╡
@2017 [max]            ╢╘┴╜╩²╤º▒φ┤∩╩╜╟≤╓╡▓ó╚í╜╧┤≤╒▀
@2018 [min]            ╢╘┴╜╩²╤º▒φ┤∩╩╜╟≤╓╡▓ó╚í╜╧╨í╒▀
@2019 [mod]            ╟≤╙α╩²
@2020 [round]        ╢╘╩²╤º▒φ┤∩╩╜╦─╔ß╬σ╚δ
@2021 [rtod]        ╗í╢╚╫¬╗╗╬¬╜╟╢╚
@2022 [sign]        ╟≤╩²╡─╖√║┼
@2023 [sqrt]        ╝╞╦π╩²╤º▒φ┤∩╩╜╡─╞╜╖╜╕∙

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.21
╫¬╗╗║»╩²
@2101 [bin2i]        ╜½╥╗╕÷2 ╫╓╜┌╖√║┼╒√╩²╕±╩╜╡─╫╓╖√┤«╫¬╗╗│╔╥╗╕÷╒√╩²
@2102 [bin2l]        ╜½╥╗╕÷4 ╫╓╜┌╖√║┼╒√╩²╕±╩╜╡─╫╓╖√┤«╫¬╗╗│╔╥╗╕÷╩²╫╓╓╡
@2103 [bin2w]        ╜½╥╗╕÷2 ╫╓╜┌│ñ╒√╩²╕±╩╜╡─╫╓╖√┤«╫¬╗╗│╔╥╗╕÷╒√╩²
@2104 [i2bin]        ╜½╩²╫╓╓╡╫¬╗╗│╔2 ╫╓╜┌╖√║┼╒√╩²╕±╩╜╡─╫╓╖√┤«
@2105 [l2bin]        ╜½╩²╫╓╓╡╫¬╗╗│╔4 ╫╓╜┌╖√║┼╒√╩²╕±╩╜╡─╫╓╖√┤«
@2106 [numtostr]    ╜½╩²╓╡(┐╔║¼╨í╩²╬╗) ╫¬╗╗╬¬╫╓╖√┤«
@2107 [soundex]        ╜½╥╗╕÷╫╓╖√┤«╫¬╗╗│╔╥╗╕÷╙∩╥⌠┤«
@2108 [val]            ░╤╫╓╖√┤«╫¬╗╗╬¬╩²╫╓╓╡

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.22
╫╓╖√┤«║»╩²
@2201 [alltrim]        ┤╙╫╓╖√┤«╓╨╔╛│²╟░╡╝┐╒╕±║═╬▓▓┐┐╒╕±
@2202 [asc]            ╚╖╢¿╫╓╖√┤«╓╨╡┌╥╗╕÷╫╓╖√╡─ASCII ┬δ╓╡
@2203 [at]            ╚╖╢¿╥╗╕÷╓╕╢¿╡─╫╙┤«╘┌░ⁿ║¼╕├╫╙┤«╡─╫╓╖√┤«╓╨╡─╬╗╓├
@2204 [atnbr]        ▓Θ╒╥─│╫╓╖√╘┌╫╓╖√┤«╓╨│÷╧╓╡─╬╗╓├
@2205 [chr]            ╜½╥╗╕÷╩«╜°╓╞╩²╫¬╗╗│╔╢╘╙ª╡─ASCII ╫╓╖√
@2206 [countchr]    ╝╞╦π╫╓╖√╘┌╫╓╖√┤«╓╨│÷╧╓╡─┤╬╩²
@2207 [empty]        ╚╖╢¿▒φ┤∩╩╜╩╟╖±╬¬╖╟┐╒╓╡, ╗≥╒▀╩╟╖±╬¬╒µ╓╡╗≥╖╟0╓╡
@2208 [hardcr]        ╜½╫╓╖√┤«╗≥▒╕╫ó╬─╝■╓╨╦∙╙╨╚φ╗╪│╡╗╗│╔╙▓╗╪│╡
@2209 [isalpha]        ╚╖╢¿╫╓╖√┤«╓╨╡┌╥╗╕÷╫╓╖√╩╟╖±╬¬╫╓─╕
@2210 [isdigit]        ╚╖╢¿╫╓╖√┤«╓╨╡┌╥╗╕÷╫╓╖√╩╟╖±╬¬╩²╫╓
@2211 [islower]        ╚╖╢¿╫╓╖√┤«╓╨╡┌╥╗╕÷╫╓╖√╩╟╖±╬¬╨í╨┤╫╓─╕
@2212 [isnumber]    ┼╨╢╧╫╓╖√┤«╩╟╖±╩╟╓╗╙╔╩²╫╓íó.íó+íó- ╫Θ│╔
@2213 [isupper]        ╚╖╢¿╫╓╖√┤«╓╨╡┌╥╗╕÷╫╓╖√╩╟╖±╬¬┤≤╨┤╫╓─╕
@2214 [left]        ┤╙╫╓╖√┤«╡─╫≤╢╦┐¬╩╝╠ß╚í╫╙┤«
@2215 [len]            ╚í╫╓╖√┤«╡─┤«│ñ
@2216 [listtoa]        ╜½║¼╙╨╖╓╕⌠╖√╡─╫╓╖√┤«╫¬╗╗│╔╫╓╖√╩²╫Θ
@2217 [lower]        ░╤╫╓╖√┤«╓╨╡─╫╓─╕╫¬╗╗╬¬╨í╨┤╫╓─╕
@2218 [ltrim]        ╚Ñ╡⌠╫╓╖√┤«╓╨╡─╟░╡╝┐╒╕±
@2219 [memoat]        ▓Θ╒╥╫╓╖√┤«
@2220 [memocount]    ═│╝╞╫╓╖√┤«
@2221 [memodel]        ╔╛│²╫╓╖√┤«─┌╚▌
@2222 [memoedit]    ╢╘╫╓╖√┤«╗≥╒▀▒╕╫ó╫╓╢╬╜°╨╨╡»│÷╩╜▒α╝¡
@2223 [memoins]        ╘┌╫╓╖√┤«▓σ╚δ╨┬╫╓╖√┤«
@2224 [memoline]    ╠ß╚í╗≥╕±╩╜╗»▒╕╫ó╬─╝■╓╨╡─╬─▒╛╨╨╗≥╫╓╖√┤«
@2225 [memorat]        ▓Θ╒╥╫╓╖√┤«
@2226 [memoread]    ┤╙┤┼┼╠╓╨╢┴╚í╬─╝■
@2227 [memorepl]    ╠µ╗╗╫╓╖√┤«
@2228 [memory]        ╚╖╢¿WINBASE ╔Φ╓├" ┐╒╧╨─┌┤µ│╪" ╦∙╙├╡──┌┤µ╫▄┴┐
@2229 [memotake]    ╚í│÷╫╓╖√┤«
@2230 [memotran]    ╜½╗╪│╡/ ╗╗╨╨╫¬╗╗│╔╞Σ╦ⁿ╕±╩╜╡─╫╓╖√
@2231 [memowrite]    ╜½╫╓╖√┤«╡──┌╚▌╨┤╚δ┤┼┼╠╬─╝■╓╨
@2232 [mlctopos]    ╘┌╕±╩╜╗»╫╓╖√┤«╓╨╖╡╗╪─│╨╨┴╨╓╡╧α╢╘╫╓┤«═╖╡─
            ╞½╥╞╬╗╓├
@2233 [mlcount]        ═│╝╞╫╓╖√▒Σ┴┐╗≥▒╕╫ó╫╓╢╬╓╨╕±╩╜╗»╨╨╡─╩²─┐
@2234 [mlpos]        ╘┌MEMOREAD() ║»╩²╡─╖╡╗╪┤«╓╨╤░╒╥╕±
                ╩╜╗»╨╨╡─╧α╢╘╬╗╓├
@2235 [mpostolc]    ╘┌╕±╩╜╗»╫╓╖√┤«╓╨╖╡╗╪╞½╥╞╬╗╓├╡─╨╨┴╨╓╡
@2236 [occurs]        ╚í╫╓╖√┤«╘┌┴φ╥╗╫╓╖√┤«╓╨│÷╧╓╡─┤╬╩²
@2237 [parse]        ┤╙╫╓╖√┤«╓╨│Θ╚í╙╔┐╒╕±╖╓╕⌠╡─╫╙┤«
@2238 [proper]        ╜½╫╓╖√╓╨╡─├┐╥╗╕÷╡Ñ┤╩╡─═╖╥╗╕÷╫╓╖√╫¬╗╗╬¬┤≤╨┤
@2239 [pad└α]        ░╤╫╓╖√╫¬╗╗╬¬╢╘╞δ─ú╩╜
@2240 [rat]            ╘┌╥╗╕÷╫╓╖√┤«╓╨╦╤╦≈┴φ╥╗╕÷╫╓╖√┤«╡─╫ε║≤╥╗┤╬│÷╧╓╬╗╓├
@2241 [replicate]    ░▓▓σ╥╗╕÷╫╓╖√┤«▓ó╢╘╦ⁿ╜°╨╨╕┤╓╞
@2242 [right]        ┤╙╫╓╖√┤«╡─╬▓▓┐┐¬╩╝╠ß╚í╫╙┤«
@2243 [rtrim]        ╚Ñ╡⌠╫╓╖√┤«╓╨╡─╬▓▓┐┐╒╕±
@2244 [space]        ╙├╓╕╢¿╩²─┐╡─┐╒╕±╠ε│Σ╥╗╕÷┤«
@2245 [str]            ╜½╥╗╕÷╩²╫╓▒φ┤∩╩╜╫¬╗╗│╔╫╓╖√┤«
@2246 [strexpand]    ╜½╫╓╖√┤«╡─├┐╥╗╕÷╫╓─╕(╗≥║║╫╓) ║≤▓σ╚δ╥╗╕÷┐╒╕±
@2247 [strtran]        ╘┌╘┤┤«╓╨╦╤╦≈─┐▒Ω┤«, ▓ó╙├┴φ╥╗┤«╠µ╗╗─┐▒Ω┤«
@2248 [stuff]        ═¿╣²╔╛│², ▓σ╚δ, ╥╘╝░╠µ╗╗└┤╨▐╕─┤«
@2249 [substr]        ┤╙╘┤╫╓╖√┤«╓╨│Θ╚í│÷╫╙┤«
@2250 [takeout]        ╚í│÷╙╔╧▐╢¿╖√╖╓╕⌠╡─╫╓╖√┤«╓╨╡─╡┌n ╕÷▓┐╖╓
@2251 [trim]        ┤╙╫╓╖√┤«╓╨╔╛│²╦∙╙╨╡─╬▓▓┐┐╒╕±
@2252 [type]        ╚╖╢¿╦∙╓╕╢¿╫╓╖√▒φ┤∩╩╜<cExp> ─┌╚▌╡─╩²╛▌└α╨═
@2253 [upper]        ░╤╫╓╖√┤«╓╨╡─╫╓─╕╫¬╗╗╬¬┤≤╨┤╫╓─╕
@2254 [valtype]        ╢╘╥╗╕÷▒φ┤∩╩╜<exp> ╡─╖╡╗╪╓╡╚╖╢¿╩²╛▌└α╨═

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.23
┤┼┼╠╝░╬─╝■║»╩²
@2301 [adir]            ░╤╒╥╡╜╡─╬─╝■╨┼╧ó┤µ╚δ╥╗╕÷╩²╫Θ
@2302 [appext]            ╕°╬─╝■├√╫╓╖√┤«╝╙╔╧(╗≥╗╗╔╧) ║≤╫║
@2303 [curdir]            ╚╖╢¿╡▒╟░╣ñ╫≈─┐┬╝╓╨╡─DOS ─┐┬╝
@2304 [d_chdir]            ╕─▒Σ┬╖╛╢
@2305 [d_chdrv]            ╕─▒Σ╟²╢»╞≈
@2306 [d_drive]            ╖╡╗╪╡▒╟░╟²╢»╞≈║┼
@2307 [d_mkdir]            ╜¿┴ó╫╙─┐┬╝
@2308 [d_path]            ╖╡╗╪╚½┬╖╛╢├√
@2309 [d_rmdir]            ╔╛│²╓╕╢¿─┐┬╝
@2310 [defdrive]        ╚╖╢¿╚▒╩í╡─DOS ┤┼┼╠╟²╢»╞≈
@2311 [delfiles]        ╔╛│²╓╕╢¿╡─╦∙╙╨╬─╝■
@2312 [dirdirs]            ╘┌╓╕╢¿╡─┬╖╛╢╓╨▓Θ╒╥┬╖╛╢├√
@2313 [directory]        ╚í╓╕╢¿─┐┬╝╓╨╡─╬─╝■╨┼╧ó
@2314 [direval]            ╢╘┬·╫π╠⌡╝■╡─╬─╝■├√╓┤╨╨┤·┬δ┐Θ
@2315 [dirfiles]        ╘┌╓╕╢¿╡─┬╖╛╢╓╨▓Θ╒╥╬─╝■├√
@2316 [dirtolist]        ╚í╓╕╢¿┬╖╛╢╧┬┤°╙╨┬╖╛╢├√╡─╦∙╙╨╬─╝■
@2317 [disksize]        ╚í┤┼┼╠╡─╕±╩╜╗»║≤╡─╚▌┴┐
@2318 [diskspace]        ╚╖╢¿┤┼┼╠╡─╩ú╙α┐╒╝Σ
@2319 [disktest]        ▓Γ╩╘┤┼┼╠╟²╢»╞≈
@2320 [f_comp]            ▒╚╜╧┴╜╕÷╬─╝■╡─╚╒╞┌╝░╩▒╝Σ
@2321 [f_gettm]            ╙╔╬─╝■╛Σ▒·╗±╡├╬─╝■╡─╚╒╞┌╝░╩▒╝Σ
@2322 [f_settm]            ╔Φ╓├╬─╝■╡─╚╒╞┌╝░╩▒╝Σ
@2323 [fclose]            ╣╪▒╒╬─╝■
@2324 [fcreate]            ╜¿┴ó╥╗╕÷╬─╝■╗≥╜½╥╗╕÷╬─╝■╡─│ñ╢╚╜╪╬¬0
@2325 [fearse]            ┤╙┤┼┼╠╔╛│²╬─╝■
@2326 [feof]            ╚╖╢¿╬─╝■╩╟╖±╜ß╩°
@2327 [ferror]            ╚╖╢¿┤φ╬≤└α╨═
@2328 [fgets]            ┤╙╬─╝■╓╨╢┴╥╗╨╨╗≥╢α╨╨
@2329 [file]            ▓Γ╩╘╬─╝■╩╟╖±┤µ╘┌
@2330 [filebase]        ╚í╬─╝■├√╓╨╡─╗∙▒╛╬─╝■├√(▓╗║¼║≤╫║)
@2331 [filebottom]        ╜½╬─╝■╓╕╒δ╫¬╡╜╬─╝■╬▓
@2332 [filedate]        ╗±╚í╗≥╔Φ╓├DOS ╬─╝■╡─╚╒╞┌
@2333 [filedrive]        ╚í╬─╝■├√╓╨╡─╟²╢»╞≈├√
@2334 [fileeval]        ░╤╬─╝■╓╨╡─├┐╥╗╨╨╢╘┤·┬δ┐ΘBlock ╟≤╓╡
@2335 [fileext]            ╚í╬─╝■├√╓╨╡─└⌐╒╣├√
@2336 [filelen]            ╚í╬─╝■│ñ╢╚
@2337 [filepath]        ╕∙╛▌SET PATH ╡─╔Φ╓├╦╤╦≈╬─╝■├√
@2338 [filepos]            ╚í╬─╝■╡▒╟░╓╕╒δ╬╗╓├
@2339 [filesize]            ╚╖╢¿╬─╝■╡─┤≤╨í
@2340 [filetop]            ╜½╬─╝■╓╕╒δ╫¬╡╜╬─╝■═╖
@2341 [filetime]        ╗±╚í╗≥╔Φ╓├DOS ╬─╝■╔╧╡─╩▒╝Σ
@2342 [filetouch]        ░╤╬─╝■╡─╚╒╞┌/ ╩▒╝Σ▒Ω╝╟╕ⁿ╨┬╬¬╧╡═│╚╒╞┌║═╩▒╝Σ
@2343 [findfirst]        ╘┌╡▒╟░┬╖╛╢╓╨▓Θ╒╥╡┌╥╗╕÷╬─╝■├√
@2344 [findnext]         ╘┌╡▒╟░┬╖╛╢╓╨▓Θ╒╥╧┬╥╗╕÷╬─╝■├√
@2345 [fopen]            ╬¬╞Σ╦ⁿ╡═╝╢╬─╝■▓┘╫≈║»╩²┤≥┐¬╥╗╕÷╬─╝■
@2346 [fputs]            ╧≥╬─╝■╓╨╨┤╚δ╫╓╖√┤«
@2347 [fread]            ╜½╥╗╕÷dos ╬─╝■╓╨╡─╥╗▓┐╖▌─┌╚▌╢┴╚δ╥╗╕÷─┌┤µ▒Σ┴┐╓╨
@2348 [freadln]            ┤╙╬─╝■╓╨╢┴╥╗╨╨╗≥╢α╨╨
@2349 [freadstr]        ╢┴╚í╬─╝■╓╨╡─▓┐╖▌─┌╚▌
@2350 [frename]            ╕°╬─╝■╗╗├√
@2351 [fseek]            ╢¿╬╗╥╗╕÷┤≥┐¬╡─╬─╝■╓╨╡─dos ╬─╝■╓╕╒δ
@2352 [fwrite]            ╜½─┌┤µ▒Σ┴┐╡──┌╚▌╨┤╚δ╬─╝■╓╨
@2353 [fwriteln]        ╧≥╬─╝■╓╨╨┤╚δ╫╓╖√┤«
@2354 [fullpath]        ╚í╬─╝■╡─┬╖╛╢╡─╚½├√
@2355 [getattr]            ╗±╡├╬─╝■╡─╩⌠╨╘
@2356 [getfilepath]        ╚í╬─╝■├√╡─┬╖╛╢
@2357 [getint24]        ╗±╚íINT 24 ┤ª└φ╡─│÷┤φ┤·┬δ
@2358 [getpath]            ╘┌╓╕╢¿╡─┬╖╛╢╓╨╚╖╢¿╬─╝■╩╟╖±┤µ╘┌
@2359 [hard_chdir]        ░╤╡▒╟░─┐┬╝╫¬╡╜╓╕╢¿╡─╟²╢»╞≈║═┬╖╛╢╓╨
@2360 [isdir]            ┼╨╢╧╫╓┤«╩╟╖±╬¬┬╖╛╢
@2361 [ismemo]            ╚╖╢¿╥╗╕÷╩²╛▌┐Γ╩╟╖±░ⁿ║¼▒╕╫ó╫╓╢╬
@2362 [lastdrive]        ╚í║╧╖¿╡─DOS ┤┼┼╠╟²╢»╞≈╡─╫ε╕▀╟²╢»╞≈╖√
@2363 [pathparse]        ░╤╬─╝■├√╖╓╜Γ╬¬┼╠║┼íó┬╖╛╢íó╗∙▒╛╬─╝■├√╝░└⌐╒╣├√
@2364 [setattr]            ╔Φ╓├╬─╝■╩⌠╨╘
@2365 [setint24]        ╔Φ╓├╗≥╗╓╕┤╤╧╓╪┤φ╬≤┤ª└φ╓╨╢╧INT24
@2366 [tempfile]        ╘┌╓╕╢¿╡─┤┼┼╠╔╧╜¿┴ó╥╗╕÷╬─╝■├√╬¿╥╗╡─┴┘╩▒╬─╝■
@2367 [wbsbackup]        ▒╕╖▌╗≥╗╓╕┤╬─╝■

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.24
 ╩²╛▌┐Γ▓┘╫≈║»╩²
@2401 [afields]            ╜½╡▒╟░╩²╛▌┐Γ╡─╕≈╫╓╢╬─┌╚▌╠ε╚δ╩²╫Θ╓╨
@2402 [alias]            ╚╖╢¿╥╤┤≥┐¬╩²╛▌┐Γ╡─▒≡├√
@2403 [bof]                ╚╖╢¿╝╟┬╝╓╕╒δ╩╟╖±▒╗╢¿╬╗╡╜╡┌╥╗╕÷╝╟┬╝╓«╟░
@2404 [closealias]        ╣╪▒╒▒≡├√╓╕╢¿╡─╩²╛▌┐Γ
@2405 [clrvars]            ╟σ│²╙╔initvars() ║»╩²┤┤╜¿╡─╫╓╢╬▒Σ┴┐╝»
@2406 [dbappend]        ╕°╡▒╟░╣ñ╫≈╟°╓╨╡─╩²╛▌┐Γ╘÷╝╙╥╗╠⌡┐╒░╫╨┬╝╟┬╝
@2407 [dbclearall]        ╩═╖┼╦∙╙╨▒╗╒╝╙├╡─╣ñ╫≈╟°
@2408 [dbclearfil]        ╟σ│²╡▒╟░╣ñ╫≈╟°╓╨╣²┬╦╞≈╡─┬▀╝¡╣²┬╦╠⌡╝■
@2409 [dbclearind]        ╘┌╡▒╟░╣ñ╫≈╟°╓╨╣╪▒╒╦∙╙╨╗ε╢»╦≈╥²
@2410 [dbclearral]        ╘┌╡▒╟░╣ñ╫≈╟°╓╨╣╪▒╒╦∙╙╨╗ε╢»╣╪╧╡
@2411 [dbclosearea]        ╩═╖┼╡▒╟░╣ñ╫≈╟°
@2412 [dbcommit]        ╩╣╡▒╟░╣ñ╫≈╟°╓╨╚╬║╬╬─╝■▒╕╖▌▒╗╨┤╚δ┤┼┼╠╓╨
@2413 [dbcommitall]        ╩╣╦∙╙╨╣ñ╫≈╟°╓╨╡─╬─╝■▒╕╖▌▒╗╨┤╚δ┤┼┼╠╓╨
@2414 [dbcreate]        ╜¿┴ó╥╗╕÷╨┬╡─╩²╛▌┐Γ
@2415 [dbcreateind]        ╕°╡▒╟░╣ñ╫≈╟°╓╨╡─╬─╝■╜°╨╨╦≈╥²
@2416 [dbdelete]        ╕°╩²╛▌┐Γ╡─╡▒╟░╝╟┬╝┤≥╔╧╔╛│²▒Ω╝╟
@2417 [dbeval]            ╗∙╙┌┐Γ╓╨╠⌠╤í│÷╡─├┐╕÷╝╟┬╝╢╘╥╗╕÷┤·┬δ┐Θ╟≤╓╡
@2418 [dbf]                ╚╖╢¿╡▒╟░╣ñ╫≈╟°╡─▒≡├√
@2419 [dbfilter]        ░┤╫╓╖√┤«╨╬╩╜╖╡╗╪╡▒╟░╣²┬╦╞≈▒φ┤∩╩╜
@2420 [dbgobottom]        ╥╞╢»╬─╝■╓╕╒δ╡╜╫ε║≤╥╗╕÷┬▀╝¡╝╟┬╝╔╧
@2421 [dbgoto]            ╜½╝╟┬╝╬─╝■╓╕╒δ╢¿╬╗╡╜╓╕╢¿╡─╝╟┬╝╔╧
@2422 [dbgotop]            ╥╞╢»╬─╝■╓╕╒δ╡┌╥╗╕÷┬▀╝¡╝╟┬╝╔╧
@2423 [dbrecall]        ╗╓╕┤▒╗┤≥╔╧╔╛│²▒Ω╝╟╡─╝╟┬╝
@2424 [dbreindex]        ╓╪╨┬╜¿┴ó╡▒╟░╣ñ╫≈╟°╓╨╡─╦∙╙╨╗ε╢»╦≈╥²╬─╝■
@2425 [dbrelation]        ╚╖╢¿set relation ├ⁿ┴ε╦∙╜¿┴ó╣╪╧╡╡─┴¼╜╙▒φ┤∩╩╜
@2426 [dbrselect]        ╚╖╢¿╡▒╟░╣ñ╫≈╟°╓╨╓╕╢¿╡─╣╪╧╡╣ñ╫≈╟°
@2427 [dbseek]            ╘┌╡▒╟░╣ñ╫≈╟°╓╨╦╤╦≈┬·╫π╠⌡╝■╡─╡┌╥╗╕÷┬▀╝¡╝╟┬╝
@2428 [dbselectar]        ╩╣╤í╢¿╡─╣ñ╫≈╟°│╔╬¬╡▒╟░╣ñ╫≈╟°
@2429 [dbsetdriver]        ╓╕╢¿╚▒╩í╡─╩²╛▌┐Γ╟²╢»╞≈
@2430 [dbsetfilter]        ╕°╡▒╟░╣ñ╫≈╟°╔Φ╓├╥╗╕÷╣²┬╦╞≈
@2431 [dbsetindex]        ╘┌╡▒╟░╣ñ╫≈╟°╓╨┤≥┐¬╥╗╕÷╦≈╥²╬─╝■
@2432 [dbsetorder]        ╘┌╡▒╟░╣ñ╫≈╟°╡─╗ε╢»╦≈╥²╓╨╓╕╢¿╥╗╓≈╦≈╥²
@2433 [dbsetrelat]        ╘┌╡▒╟░╣ñ╫≈╟°╙δ╓╕╢¿╣ñ╫≈╟°╓«╝Σ╜¿┴ó╕╕/ ╫╙╣╪╧╡
@2434 [dbskip]            ╧α╢╘╙┌╡▒╟░╝╟┬╝╥╞╢»╝╟┬╝╓╕╒δ
@2435 [dbstruct]        ╜¿┴ó░ⁿ└¿╡▒╟░┤≥┐¬╩²╛▌┐Γ╨┼╧ó╡─╩²╫Θ
@2436 [dbunlock]        ╩═╖┼╡▒╟░╣ñ╫≈╟°╓╨▒╗╙ª╙├│╠╨≥╦°╢¿╡─╬─╝■╗≥╝╟┬╝
@2437 [dbunlockall]        ╩═╖┼╦∙╙╨╣ñ╫≈╟°╓╨▒╗╙ª╙├│╠╨≥╦°╢¿╡─╬─╝■╗≥╝╟┬╝
@2438 [dbusearea]        ╘┌╣ñ╫≈╟°╓╨┤≥┐¬╩²╛▌┐Γ╬─╝■
@2439 [deleted]            ▓Γ╩╘╡▒╟░╝╟┬╝╩╟╖±╥╤▒╗╫÷╔╧╔╛│²▒Ω╓╛
@2440 [descend]            ╜¿┴ó╥╗╕÷╜╡╨≥╦≈╥²▓ó╘╩╨φ▓┘╫≈╒▀╢╘╦≈╥²╦╤╦≈
@2441 [eof]                ▓Γ╩╘╡▒╟░╝╟┬╝╓╕╒δ╩╟╖±╥╤╥╞╡╜╫ε║≤╕÷╝╟┬╝╓«║≤
@2442 [equvars]            ┤╙╡▒╟░╩²╛▌┐Γ╝╟┬╝╝╙╘╪─┌┤µ▒Σ┴┐
@2443 [fcount]            ╚╖╢¿╥╗╕÷╩²╛▌┐Γ╓╨║¼╙╨╫╓╢╬╡─╩²─┐
@2444 [field]            ╖╡╗╪╢╘╙ª╙┌╩²╛▌┐Γ╓╨─│╕÷╫╓╢╬╨≥║┼╡─╫╓╢╬├√│╞
@2445 [fieldblock]        ╜¿┴ó╥╗╕÷╤í╚í╗≥╔Φ╓├╫╓╢╬╓╡╡─┤·┬δ┐Θ
@2446 [fieldget]        ╘┌╡▒╟░╤í╘±╡─╩²╛▌┐Γ╓╨╝∞╦≈─│╕÷╫╓╢╬╡─╡▒╟░╓╡
@2447 [fieldput]        ╢╘╡▒╟░╤í╘±╡─╩²╛▌┐Γ╓╨╓╕╢¿╡─╫╓╢╬╜°╨╨╕│╓╡▓┘╫≈
@2448 [fieldwblock]        ╜¿┴ó╥╗╕÷╤í╚í╗≥╔Φ╓├╫╓╢╬╓╡╡─┤·┬δ┐Θ
@2449 [flock]            ╦°╢¿╡▒╟░╩²╛▌┐Γ
@2450 [found]            ╚╖╢¿find ╡╚├ⁿ┴ε╩╟╖±╓┤╨╨│╔╣ª
@2451 [freevars]        ╩═╖┼╣½╣▓╫╓╢╬▒Σ┴┐
@2452 [header]            ╝╞╦π╡▒╟░╩²╛▌┐Γ╬─╝■═╖╡─╫╓╜┌╩²
@2453 [indexext]        ╖╡╗╪╚▒╩í╡─╦≈╥²╬─╝■╡─└⌐╒╣├√
@2454 [indextext]        ╚╖╢¿╩╟╖±╙╨╥╗╕÷▒╕╙├╡─╩²╛▌┐Γ╟²╢»│╠╨≥▒╗┴¼╜╙╜°
@2455 [indexkey]        ╚╖╢¿╥╗╕÷╦≈╥²╬─╝■╡─╝ⁿ╜ß╣╣
@2456 [indexord]        ╚╖╢¿╡▒╟░╦≈╥²╬─╝■▒φ╓╨╡─╓≈╦≈╥²╬─╝■
@2457 [initvars]        ┤┤╜¿╥╗╠╫╢╘╙ª╙┌╡▒╟░╩²╛▌┐Γ╓╨╡─╫╓╢╬╡─╣½╣▓─┌
                ┤µ▒Σ┴┐
@2458 [isalias]            ┼╨╢╧▒≡├√
@2459 [lastrec|reccount]     ╚╖╢¿╩²╛▌┐Γ╓╨╝╟┬╝╡─╫▄╩²─┐
@2460 [lockfile]        ╦°╫í╡▒╟░╩²╛▌┐Γ
@2461 [lockrec]            ╦°╫í╡▒╟░╝╟┬╝
@2462 [memopack]        ┤╙DBT ╬─╝■╔╛│²╬┤╩╣╙├╡─▒╕╫ó╩²╛▌
@2463 [ndxcount]        ╝╞╦π╙δ╡▒╟░╩²╛▌┐Γ╧α╣╪╡─╗ε╢»╦≈╥²╬─╝■
@2464 [ndxkey]            ╢┴╚í╦≈╥²╬─╝■╡─╣╪╝ⁿ╫╓▒φ┤∩╩╜
@2465 [netappend]        ╘÷╝╙╨┬╝╟┬╝, ╙├╙┌░┤╣▓╧φ╖╜╩╜┤≥┐¬╡─╩²╛▌┐Γ
@2466 [netdelete]        ╘┌═°┬τ╔╧╔╛│²╡▒╟░╝╟┬╝
@2467 [neterr]            ╚╖╢¿═°┬τ╔╧╡─USE ├ⁿ┴ε╗≥APPEND ├ⁿ┴ε╩╟╖±╓┤╨╨╩º░▄
@2468 [netfldput]         ╘┌═°┬τ╔╧╢╘╡▒╟░╤í╘±╡─╩²╛▌┐Γ╓╨╓╕╢¿╡─╫╓╢╬╜°
                ╨╨╕│╓╡▓┘╫≈íú
@2469 [netname]            ╚í═°┬τ╣ñ╫≈╒╛ID
@2470 [netrecall]        ╘┌═°┬τ╔╧╗╓╕┤▒╗┤≥╔╧╔╛│²▒Ω╝╟╡─╝╟┬╝
@2471 [netreplfld]        ╘┌═°┬τ╔╧╢╘╫╓╢╬╕│╙Φ╓╡
@2472 [netuse]            ╘┌═°┬τ╔╧┤≥┐¬╩²╛▌┐Γ
@2473 [recno]            ╚╖╢¿╝╟┬╝╓╕╒δ╦∙╓╕╧≥╝╟┬╝╡─╬∩└φ╝╟┬╝║┼
@2474 [recsize]             ╚╖╢¿╩²╛▌┐Γ╓╨├┐╕÷╝╟┬╝╦∙╒╝╛▌┤┼┼╠┐╒╝Σ╡─╫╓╜┌
                │ñ╢╚
@2475 [replfld]            ╢╘╫╓╢╬╕│╓╡
@2476 [replvars]        ╙├└┤╫╘╣½╣▓╫╓╢╬▒Σ┴┐╡─╓╡┤·╠µ╡▒╟░╩²╛▌┐Γ╓╨╡─
                ╫╓╢╬
@2477 [rlock|lock]        ╙├╘┌═°┬τ╗╖╛│╓╨╦÷╢¿╥╗╠╪╩Γ╝╟┬╝
@2478 [select]            ╚╖╢¿╡▒╟░╣ñ╫≈╟°
@2479 [setindex]        ╔Φ╓├╨┬╡─╦≈╥²╗≥┤≥┐¬╥╗╕÷╦≈╥²╬─╝■
@2480 [used]            ╚╖╢¿╘┌╡▒╟░╣ñ╫≈╟°╓╨╩╟╖±╙╨╩²╛▌┐Γ▒╗┤≥┐¬

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.25
├ⁿ┴ε║»╩²
@2501 [eval]            ╢╘╥╗╕÷┤·┬δ┐Θ╟≤╓╡
@2502 [for]                ░╤╥╗╕÷║»╩²╤¡╗╖╓┤╨╨╢α┤╬
@2503 [if|iif]            ╠ß╣⌐╥╗╓╓╖╜╖¿╥╘╤í╘±╩╣╙├┴╜╓╓┐╔─▄▒φ┤∩╩╜╡─╥╗╓╓
@2504 [loop]            ░╤╥╗╕÷║»╩²╓┤╨╨╢α┤╬
@2505 [pcount]            ╚╖╢¿┤½╡▌╕°╡▒╟░╣²│╠╗≥╙├╗º╫╘╢¿╥σ║»╩²╡─▓╬╩²╩²─┐
@2506 [procline]        ╚╖╢¿╡▒╟░╓┤╨╨╣²│╠╗≥╗ε╢»╒╗╓╨╣²│╠╡─╨╨║┼
@2507 [procname]        ╚╖╢¿╡▒╟░╓┤╨╨╣²│╠╗≥╗ε╢»╒╗╓╨╣²│╠╡─╣²│╠├√
@2508 [qout|qqout]        ╧╘╩╛╗≥┤≥╙í▒φ┤∩╩╜
@2509 [readexit]        ╘╩╨φ╗≥╜√╓╣╙├╣Γ▒Ω╔╧╥╞╝ⁿ╗≥╣Γ▒Ω╧┬╥╞╝ⁿ└┤╓╒╓╣
                ╥╗╕÷╢┴▓┘╫≈
@2510 [readinsert]        ╘┌╥╗╕÷╢┴▓┘╫≈╞┌╝Σ╘╩╨φ╗≥╜√╓╣▓σ╚δ─ú╩╜
@2511 [readmodal]        ╢╘╡▒╟░┐╔╝√╡─GetList ╩²╫Θ╓┤╨╨╥╗╕÷╚½╞┴─╗▒α╝¡
@2512 [readvar]            ╚╖╢¿GET ╗≥MENU ├ⁿ┴ε╥└╛▌╡─╡▒╟░▒Σ┴┐├√
@2513 [while]            ┬·╫π╠⌡╝■╩▒╓┤╨╨║»╩²

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]



.30
╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε
@3001 [? |??]                ╜½▒φ┤∩╩╜╡─╓╡╩Σ│÷╡╜╞┴─╗╗≥┤≥╙í╗·
@3002 [ú└...box]            ╘┌╞┴─╗╔╧╧╘╩╛╥╗╕÷╖╜┐≥
@3003 [ú└...clear]            ╘┌╞┴─╗╔╧╟σ│■╥╗┐Θ╛╪╨╬╟°╙≥
@3004[ú└... prompt]        ╘┌╞┴─╗╔╧╧╘╩╛╠ß╩╛
@3005[ú└... say... get]     ╘┌╞┴─╗╗≥┤≥╙í╗·╔╧╢¿╬╗╧╘╩╛╗≥┤≥╙í╩²╛▌║═╧√╧ó
@3006[ú└... to]            ╙├╙┌╗¡╥╗╕÷╡Ñ╧▀╗≥╦½╧▀╖╜┐≥╗≥╓▒╧▀
@3007[accept... to]        ╜½╓▒╜╙╝ⁿ╚δ╡─┤«┤µ╚δ╥╗─┌┤µ▒Σ┴┐╓╨
@3008[clear]                ╙├╡▒╟░▒│╛░╢╘╒√╕÷╞┴─╗╟σ╞┴
@3009[clear gets]            ╙├╙┌╟σ│²╡▒╟░╡─GETLIST ╩²╫Θ, ╚í╧√╢╘GET ╡─╩Σ╚δ
@3010[cls]                    ╟σ│²╒√╕÷╞┴─╗
@3011[eject]                ╧≥┤≥╙í╗·╖ó╦═╥╗╕÷╗╗╥│├ⁿ┴ε
@3012[menu to]                ╢╘╡▒╟░ú└... pormpt ├ⁿ┴ε╠ß╣⌐╥╗╕÷┴┴╠⌡▓╦╡Ñ╤í╘±
@3013[read]                ╜╙╩╒▓┘╫≈╒▀╡─╩Σ╚δ
@3014[restore screen]        ╗╓╕┤╞┴─╗ú¿╙├╙┌╬─▒╛ú⌐
@3015[save screen]            ▒ú┤µ╞┴─╗ú¿╙├╙┌╬─▒╛ú⌐
@3016[set alternate]        ╓╕╢¿╥╗╕÷╬─╝■┤µ╖┼╫≈╙├╞┌╝Σ╙├╗º╖ó│÷╡─├ⁿ┴ε╡─
                    ╩Σ│÷
@3017[set color]            ╙├╙┌╓╕╢¿╥╗╕÷╨┬╡─╡▒╟░╤╒╔½╔Φ╓├
@3018[set confirm]            ╘╩╨φ╗≥╜√╓╣╡▒╙≥╥╤╠ε│Σ┬·╫╓╖√╩▒╣Γ▒Ω╥╞╡╜╧┬╥╗
                    ╕÷GET
@3019[set console]            ╙├└┤┤≥┐¬╗≥╣╪▒╒├ⁿ┴ε╡─╞┴─╗╩Σ│÷
@3020[set cursor]            ╙├└┤╧╘╩╛╗≥╥■▓╪╣Γ▒Ω
@3021[set delimiters]        ╙├╙┌╘╩╨φ╗≥╜√╓╣╩╣╙├╢¿╜τ╫╓╖√└┤╧▐╢¿GET ╖╜┐≥╡─▒▀
                    ╜τ
@3022[set device]            ╙├╙┌╓╕├≈ú└... SAY ├ⁿ┴ε╩Σ│÷╡──┐╡─╡╪
@3023[set escape]            ╙├╙┌┤≥┐¬╗≥╣╪▒╒╙├ESC ╝ⁿ╓╒╓╣READ ├ⁿ┴ε╡─╣ª─▄
@3024[set format]            ╙├╙┌╬¬╧┬╠⌡READ ├ⁿ┴ε╓╕╢¿╥╗╕÷╞┴─╗╕±╩╜
@3025[set intensity]        ╙├╙┌╘╩╨φ╗≥╜√╓╣╙├╕▀┴┴╢╚╤╒╔½╗≥╖┤╩╙╖╜╩╜╧╘╩╛GET
@3026[set margin]            ╙├╙┌╓╕╢¿┤≥╙í╩Σ│÷╩▒╡─╫≤╢╦┐╒╕±╩²─┐
@3027[set message]            ╙├╙┌╔Φ╓├ú└... PROMPT ├ⁿ┴ε╓╨MESSAGE
                    ▓┐╖▌╡─╩Σ│÷╬╗╓├
@3028[set printer to]         ╙├└┤╜½╦∙╙╨┤≥╙í╩Σ│÷╢¿╧≥╡╜╥╗╕÷╓╕╢¿╡─┤≥╙í┐┌
@3029[set scoreboard]         ╙├╙┌╜½READ ║═MEMOEDIT()
                    ▓┘╫≈╓╨╡─╧√╧ó╧╘╩╛╘┌╞┴─╗╢Ñ╨╨
@3030[set wrap]            ╙├╙┌═¿╣²╥╗┤╬╗≈╝ⁿ╩╣▓╦╡Ñ╓╨╡─╤í╘±┴┴╠⌡╠°╫¬
@3031[text]                ╙├╙┌╧╘╩╛, ┤≥╙í╥╗╨╨╗≥╢α╨╨╒²╬─
@3032[type]                ┤≥╙í╥╗╕÷ASCII ┬δ╬─▒╛╬─╝■╡──┌╚▌
@3033[wait]                ╙├╙┌╘▌═ú╙ª╙├│╠╨≥╡─╓┤╨╨╓▒╡╜▓┘╫≈╒▀╙├╗≈╝ⁿ╧∞╙ª

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.31
╩²╛▌┐Γ├ⁿ┴ε
@3101[append blank]        ╙├╙┌╘┌╩²╛▌┐Γ╡──⌐╬▓╠φ╝╙╥╗╕÷┐╒╝╟┬╝
@3102[append from]        ╜½─│╕÷╩²╛▌┐Γ╝╟┬╝╢┴│÷▓ó╠φ╝╙╡╜┴φ╥╗╕÷╩²╛▌┐Γ
                ╬─╝■╓╨
@3103[average]            ╙├╙┌╝╞╦π╩²╛▌┐Γ╓╨╩²╛▌└α╨═╡─╞╜╛∙╓╡
@3104[clear all]        ╙├╙┌╣╪▒╒▒╕╫ó╬─╝■║═╩²╛▌┐Γ╥╘╝░╧α╙ª╡─╦≈╥²╬─╝■
@3105[close]            ╙├╙┌╣╪▒╒╬─╝■║═╩═╖┼╕±╩╜╬─╝■, ╣²┬╦╞≈╥╘╝░╣╪╧╡
@3106[commit]            ╨┤═Ω╩²╛▌╓«║≤╟σ│²╦∙╙╨WINBASE ╗║│σ╟°
@3107[continue]        ╙├╙┌╓╪╨┬╝ñ╗ε╡▒╟░╤í╘±╣ñ╫≈╟°╓╨╡─locate ├ⁿ┴ε
@3108[copy structure]    ╔·│╔╥╗╕÷╙δ╡▒╟░╩²╛▌┐Γ═Ω╚½╧α═¼╡─DBF ╬─╝■
@3109[copy structure extended]    ╔·│╔░ⁿ║¼╡▒╟░╩╣╙├╬─╝■╡─╜ß╣╣╨┼╧ó╡─╩²╛▌┐Γ
@3110[copy to]            ╜½╩²╛▌┐Γ╡─╚╬║╬╥╗▓┐╖▌┐╜▒┤╡╜┴φ╥╗╕÷┐Γ╬─╝■
@3111[count]            ╚╖╢¿╩²╛▌┐Γ╓╨, ┬·╫π─│╕÷┬▀╝¡╠⌡╝■╡─╝╟┬╝╡─╩²─┐
@3112[create]            ╔·│╔╥╗╕÷▓╗║¼╨┬╝╟┬╝╡─╨┬structure extended ╬─╝■
@3113[create from]        ╜¿┴ó╥╗╕÷╨┬╡─┐Γ╬─╝■
@3114[delete]            ▒Ω╝╟╔╛│²╡─╝╟┬╝
@3115[display]            ╙├╙┌╧╘╩╛║═┤≥╙í╩²╛▌┐Γ╓╨╦∙╤í╝╟┬╝╡─╫╓╢╬║═╫╓
                ╢╬╦π╩╜╡─╓╡
@3116[find]            ╜½╝╟┬╝╓╕╒δ╢¿╬╗╡╜╡┌╥╗╕÷╞Ñ┼Σ│╔╣ª╡─╝╟┬╝
@3117[go/goto]            ╙├└┤╜½╝╟┬╝╓╕╒δ╢¿╬╗╡╜╩²╛▌┐Γ╡─╓╕╢¿╬╗╓├
@3118[index]            ╢╘╥╗╕÷╩²╛▌┐Γ╓╨╡─╝╟┬╝╜°╨╨┬▀╝¡┼┼╨≥
@3119[join]            ┴¼╜╙┴╜╕÷╩²╛▌┐Γ╓╨┬·╫π╠⌡╝■╡─╝╟┬╝
@3120[label from]        ╩╣╙├▒Ω╟⌐╬─╝■┤≥╙í╗≥╧╘╩╛▒Ω║┼
@3121[list]            ╧╘╩╛║═┤≥╙í╩²╛▌┐Γ╓╨╦∙╤í╝╟┬╝╡─╫╓╢╬║═╫╓╢╬╦π
                ╩╜╡─╓╡
@3122[locate]            ░┤╠⌡╝■╘┌╩²╛▌┐Γ╓╨╤í╘±╝╟┬╝
@3123[netappend blank]    ╙├╙┌╘┌═°┬τ╔╧╡─╩²╛▌┐Γ╡──⌐╬▓╠φ╝╙╥╗╕÷┐╒╝╟┬╝
@3124[netappend from]    ╜½─│╕÷═°┬τ╔╧╡─╩²╛▌┐Γ╝╟┬╝╢┴│÷▓ó╠φ╝╙╡╜┴φ╥╗
                ╕÷ ═°┬τ╔╧╡─╩²╛▌┐Γ╬─╝■╓╨
@3125[netdelete]        ╘┌═°┬τ╔╧╔╛│²╝╟┬╝
@3126[netrecall]        ╘┌═°┬τ╔╧╗╓╕┤╥╤▒╗┬▀╝¡╔╛│²╡─╝╟┬╝
@3127[netreplace]        ╘┌═°┬τ╔╧╠µ╗╗╗ε╢»╩²╛▌┐Γ╡─╫╓╢╬─┌╚▌
@3128[netupdate]        ╘┌═°┬τ╔╧╙├╘┤╩²╛▌┐Γ╡──┌╚▌╕ⁿ╨┬╡▒╟░╩²╛▌┐Γ
@3129[pack]            ╢╘╩²╛▌┐Γ╓╨╫≈╔╧┬▀╝¡╔╛│²▒Ω╝╟╡─╝╟┬╝╜°╨╨╬∩└φ
                ╔╛│²
@3130[recall]            ╗╓╕┤╥╤▒╗┬▀╝¡╔╛│²╡─╝╟┬╝
@3131[reindex]            ╓╪╜¿╡▒╟░╣ñ╫≈╟°╓╨╦∙╙╨┤≥┐¬╡─╦≈╥²╬─╝■
@3132[replace]            ╠µ╗╗╗ε╢»╩²╛▌┐Γ╡─╫╓╢╬─┌╚▌
@3133[report from]        ╔·│╔╙╔╕±╩╜╬─╝■┐╪╓╞╡─╩Σ│÷
@3134[seek]            ╥└╛▌╓≈╦≈╥²└┤╢¿╬╗╩²╛▌┐Γ╓╨╡─╝╟┬╝
@3135[select]            ╤í╘±╗ε╢»╣ñ╫≈╟°
@3136[set deleted]        ╩╣┤≤▓┐╖▌WINBASE ├ⁿ┴ε║÷┬╘▒╗┬▀╝¡╔╛│²╡─╝╟┬╝
@3137[set exclusive]    ╜√╓╣╗≥╘╩╨φ═°┬τ╓╨╢α╕÷╙├╗º┤≥┐¬═¼╥╗╕÷╩²╛▌┐Γ
@3138[set filter]        ╘┌┬▀╝¡╔╧╣²┬╦▓╗╞Ñ┼Σ╠⌡╝■╡─╦∙╙╨╝╟┬╝íú
@3139[set index]        ╘┌╡▒╟░╣ñ╫≈╟°╓╨╢└┴ó╡╪┤≥┐¬╡─╦≈╥²╬─╝■
@3140[set order]        ╜½╥╗╕÷┤≥┐¬╡─╦≈╥²╬─╝■╓╕╢¿╬¬╓≈╦≈╥²╬─╝■
@3141[set relation]    ╘┌┤≥┐¬╡─╩²╛▌┐Γ╓«╝Σ╢¿╥σ╣╪┴¬
@3142[set softseek]    ╚╖╢¿SEEK ╤░╒╥╝╟┬╝╩º░▄║≤, ╝╟┬╝╓╕╒δ╡─╬╗╓├╔Φ╓├
@3143[set unique]        ╜√╓╣╗≥╘╩╨φ╛▀╙╨╓╪╕┤╝ⁿ╓╡╡─╝╟┬╝
@3144[skip]            ╜½╝╟┬╝╓╕╒δ╥╞╢»╡╜┴φ╥╗╕÷╝╟┬╝╔╧
@3145[sort]            ╘┌╬∩└φ╔╧╢╘╝╟┬╝╓╪╨┬┼┼╨≥
@3146[sum]                ╚╖╢¿╩²╛▌┐Γ╓╨╩²╓╡╨═╫╓╢╬╡─╫▄║═
@3147[total]            ═│╝╞╓╕╢¿╡─╩²╫╓╫╓╢╬
@3148[unlock]            ╩═╖┼▒╗╡▒╟░╙ª╙├│╠╨≥╦°╢¿╡─╬─╝■╗≥╝╟┬╝
@3149[update]            ╙├╘┤╩²╛▌┐Γ╡──┌╚▌╕ⁿ╨┬╡▒╟░╩²╛▌┐Γ
@3150[use]                ╘┌╡▒╟░╣ñ╫≈╟°╓╨┤≥┐¬╩²╛▌┐Γ║═╚╬║╬╓╕╢¿╡─╦≈╥²
                    ╬─╝■
@3151[zap]                ╘┌╩²╛▌┐Γ╓╨┐∞╦┘╔╛│²║═╤╣╦⌡╦∙╙╨╝╟┬╝

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.32
╩²╤º╔Φ╓├├ⁿ┴ε
@3201[set decimals]    ╬¬╩²╫╓╝╞╦π╜ß╣√╜¿┴ó╥╗╕÷╚▒╩í╡─╨í╩²╛½╢╚ú¿╓╗╙├╙┌
                ╧╘╩╛ú⌐
@3202[set exact]        ╓╕╢¿▒╚╜╧┴╜╕÷╫╓╖√┤«╡─╖╜╖¿
@3203[set fixed]        ┐╪╓╞╩Σ│÷╩▒╡─╨í╩²╛½╢╚

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.33
╚╒╞┌╔Φ╓├├ⁿ┴ε
@3301[set century]        ┐╪╓╞╩└╝═▒φ╩╛╖╜╩╜
@3302[set date]        ╙├╙┌╕─▒Σ╚╒╞┌╕±╩╜
@3303[set epoch]        ┐╪╓╞╚τ║╬╜Γ╩═─Ω┤·╝≥┬╘▒φ╩╛

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.34
╝ⁿ┼╠├ⁿ┴ε
@3401[clear typeahead]        ╟σ│²│¼╟░╝ⁿ╚δ╗║│σ╟°╡──┌╚▌
@3402[input]                ╜½╙├╗º╩Σ╚δ╓▒╜╙▓σ╚δ╥╗╕÷─┌┤µ▒Σ┴┐╓╨
@3403[keyboard]            ╟σ│²│¼╟░╝ⁿ╚δ╗║│σ╟°▓ó╟╥╜½╥╗╕÷┤«╓├╚δ╗║│σ╟°╓╨
@3404[set function]        ╙├└┤╢╘╣ª─▄╝ⁿ╕│╙Φ╫╓╖√┤«╓╡
@3405[set key]                ╔Φ╓├╚╚╝ⁿ
@3406[set typeahead]        ╓╕╢¿│¼╟░╝ⁿ╚δ╗║│σ╟°╡─┤≤╨í

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.35
╡═╝╢╬─╝■├ⁿ┴ε
@3501[copy file]            ╢╘╚╬║╬└α╨═╡─╬─╝■╜°╨╨DOS ╖τ╕±╡─┐╜▒┤
@3502[delete file/erase]     ┤╙┤┼┼╠╔╧╔╛│²╥╗╕÷╬─╝■
@3503[dir]                    ╖╡╗╪╬─╝■┴╨▒φ
@3504[rename]                ╕─▒Σ┤┼┼╠╔╧╬─╝■╡─├√│╞
@3505[run]                    ╘┌WINBASE ╙ª╙├│╠╨≥╓╨╓┤╨╨DOS ├ⁿ┴ε╗≥═Γ▓┐╬─╝■
@3506[set default]            ╬¬╢┴╨┤╬─╝■▓┘╫≈╓╕╢¿╥╗╕÷╚▒╩í╡─╟²╢»╞≈
@3507[set path]            ╓╕╢¿╥╗╨⌐╫╙─┐┬╝

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.36
─┌┤µ▒Σ┴┐├ⁿ┴ε
@3601[clear memory]    ╟σ│²╦∙╙╨╡─PUBLIC ╨═║═PRIVATE ╨═─┌┤µ▒Σ┴┐
@3602[default with]    ╬¬─┌┤µ▒Σ┴┐╔Φ╢¿╚▒╩í╓╡
@3603[release]            ┤╙─┌┤µ╓╨╔╛│²╦∙╤í╘±╡─▒Σ┴┐║═╩²╫Θ
@3604[restore]            ╘┌─┌┤µ╓╨╓╪╨┬╗╓╕┤─┌┤µ▒Σ┴┐
@3605[save]            ╜½╓╕╢¿╡──┌┤µ▒Σ┴┐╨┤╚δ╥╗╕÷╬─╝■╓╨
@3606[store]            ╜¿┴ó─┌┤µ▒Σ┴┐║═╩²╫Θ╗≥╒▀╕°─┌┤µ▒Σ┴┐║═╩²╫Θ╕│╓╡

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.37
╧╡═│├ⁿ┴ε
@3701[cancel|quit]        ╙├╙┌╬▐╠⌡╝■╡╪╓╒╓╣│╠╨≥
@3702[note]            ╙├╙┌╜½╖╟╓┤╨╨╙∩╛Σ╖┼╚δ┤·┬δ╓╨
@3703[on error do]        │÷┤φ╬≤┤ª└φ╙∩╛Σ
@3704[set bell]        ╙├╙┌┐╪╓╞┤≥┐¬╗≥╣╪▒╒╝╞╦π╗·╤∩╔∙╞≈╖ó│÷╡─├∙╜╨
@3705[set procedure]    ╓╕╢¿╥╗╕÷░ⁿ║¼╣²│╠║═╙├╗º╫╘╢¿╥σ║»╩²╡─╬─╝■

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

.701
           @1[WinBase ▓╬┐╝╩╓▓ß]

@1701 [__pcheck ]                @1702 [__ptypes]


@1801 [aadd     ]                @1902 [ampm     ]
@2001 [abs      ]                @2302 [appext   ]
@1401 [achoice  ]                @1811 [array    ]
@1802 [aclone   ]                @2202 [asc      ]
@1803 [acomp    ]                   @1812 [ascan    ]
@1804 [acopy    ]                  @1813 [asize    ]
@1901 [addmonth ]                @1814 [asort    ]
@1805 [adel     ]                @2203 [at       ]
@2301 [adir     ]                  @1815 [atail    ]
@1806 [aeval    ]                @2204 [atnbr    ]
@2401 [afields  ]                  @1903 [atodate  ]
@1807 [afill    ]                @1816 [atodbf   ]
@1808 [ains     ]               @1817 [atorec   ]
@2402 [alias    ]                  @1601 [att      ]
@2201 [alltrim  ]               @1201 [ave_cond ]
@1809 [amax     ]                  @1202 [ave_all  ]
@1810 [amin     ]

           @1[WinBase ▓╬┐╝╩╓▓ß]

@2101 [bin2i    ]                @2005 [binshl   ]
@2102 [bin2l    ]                  @2006 [binshr   ]
@2103 [bin2w    ]                  @2007 [binxor   ]
@2002 [binand   ]                   @2403 [bof      ]
@2003 [binnot   ]                @1602 [box3d    ]
@2004 [binor    ]                  @2008 [btob     ]

@1203 [c        ]                @2404 [closealias]
@1603 [c_botton ]                @2405 [clrvars  ]
@1703 [c_clip   ]               @1906 [cmonth   ]
@1604 [c_window ]                @1706 [col      ]
@1704 [calculator]                @2206 [countchr ]
@1501 [capslock ]                @1204 [countfor ]
@1502 [capsloff ]                @1205 [ctack    ]
@1904 [cdow     ]                @1907 [ctod     ]
@2009 [ceiling  ]                @2303 [curdir   ]
@1905 [chinesedate]                @1707 [curdrive ]
@2205 [chr      ]                @1708 [curoff   ]
@1705 [clock    ]                @1709 [curon    ]
                        @1206 [cv       ]

@2304 [d_chdir  ]                @2432 [dbsetorder]
@2305 [d_chdrv  ]                @2433 [dbsetrelat]
@2306 [d_drive  ]                @2434 [dbskip   ]
@2307 [d_mkdir  ]                @2435 [dbstruct ]
@2308 [d_path   ]                @2436 [dbunlock ]
@2309 [d_rmdir  ]                @2437 [dbunlockall]
@1207 [dage     ]                @2438 [dbusearea]
@1908 [date     ]                @2310 [defdrive ]
@1909 [dateisleap]                @1710 [delay    ]
@1208 [dates    ]                @1301 [deldlg   ]
@1910 [datetoa  ]               @2439 [deleted  ]
@1911 [datetoage]                @2311 [delfiles ]
@1912 [day      ]                @2440 [descend  ]
@1913 [daynum   ]                @1711 [devout   ]
@2406 [dbappend ]                @1712 [devpos   ]
@2407 [dbclearall]                @1713 [dial     ]
@2408 [dbclearfil]                @1714 [dialclr  ]
@2409 [dbclearind]                @1715 [dispbox  ]
@2410 [dbclearral]                @1716 [doserror ]
@2411 [dbclosearea]                @1717 [donebeep ]
@2412 [dbcommit ]                @1914 [dow      ]
@2413 [dbcommitall]                @1209 [design   ]
@2414 [dbcreate ]                @2312 [dirdirs  ]
@2415 [dbcreateind]                @2313 [directory]
@2416 [dbdelete ]                @2314 [direval  ]
@2417 [dbeval   ]                @2315 [dirfiles ]
@2418 [dbf      ]                @2316 [dirtolist]
@2419 [dbfilter ]                @2317 [disksize ]
@1819 [dbftoa   ]                @2318 [diskspace]
@2420 [dbgobottom]                @2319 [disktest ]
@2421 [dbgoto   ]                @1605 [dispform ]
@2422 [dbgotop  ]                @1606 [drawbox  ]
@2423 [dbrecall ]                @1607 [drawline ]
@2424 [dbreindex]                @1608 [drawtext ]
@2425 [dbrelation]                @1609 [drawvcf  ]
@2426 [dbrselect]                @1302 [drawdlg  ]
@2427 [dbseek   ]                @1915 [dtoc     ]
@2428 [dbselectar]                @1916 [dtof     ]
@2429 [dbsetdriver]                @1917 [dtol     ]
@2430 [dbsetfilter]                @2010 [dtor     ]
@2431 [dbsetindex]                @1918 [dtos     ]

           @1[WinBase ▓╬┐╝╩╓▓ß]

@2207 [empty     ]                @1719 [errorlevel]
@2441 [eof       ]                @2501 [eval      ]
@2442 [equvars   ]                @2011 [exp       ]
@1718 [errorbeep ]

@2320 [f_comp    ]                @2340 [filetop   ]
@2321 [f_gettm   ]                @2341 [filetime  ]
@2322 [f_settm   ]                @2342 [filetouch ]
@2323 [fclose    ]                @2449 [flock     ]
@2443 [fcount    ]                @2343 [findfirst ]
@2324 [fcreate   ]                @2344 [findnext  ]
@2325 [fearse    ]                @1720 [findtsr   ]
@2326 [feof      ]                @1721 [fklabel   ]
@2327 [ferror    ]                @1722 [fkmax     ]
@2328 [fgets     ]                @2012 [floor     ]
@2444 [field     ]                @1610 [fontinit  ]
@2445 [fieldblock]                @1611 [fontexit  ]
@2446 [fieldget  ]                @2345 [fopen     ]
@2447 [fieldput  ]                @2502 [for       ]
@2448 [fieldwblock]                @2450 [found     ]
@2329 [file      ]                @2346 [fputs     ]
@2330 [filebase  ]                @2347 [fread     ]
@2331 [filebottom]                @2348 [freadln   ]
@2332 [filedate  ]                @2349 [freadstr  ]
@2333 [filedrive ]                @2451 [freevars  ]
@2334 [fileeval  ]                @2350 [frename   ]
@2335 [fileext   ]                @2351 [fseek     ]
@2336 [filelen   ]                @2352 [fwrite    ]
@2337 [filepath  ]                @2353 [fwriteln  ]
@2338 [filepos   ]                @1503 [fullkey   ]
@2339 [filesize  ]                @2354 [fullpath  ]

@1612 [g_close   ]                @1627 [g_puttmp  ]
@1613 [g_color   ]                @1628 [g_rect    ]
@1614 [g_ellips  ]                @1629 [g_rgb     ]
@1615 [g_get     ]                @1630 [g_setpixel]
@1616 [g_getpixel]                 @1631 [g_style   ]
@1617 [g_gettmp  ]                @2355 [getattr   ]
@1618 [g_init    ]                @1303 [getcond   ]
@1619 [g_lineto  ]                @1304 [getdlg    ]
@1620 [g_mappal  ]                @1723 [getenv    ]
@1621 [g_mapall  ]                @2357 [getint24  ]
@1622 [g_mode    ]                @1305 [getfile   ]
@1623 [g_moveto  ]                @2356 [getfilepath]
@1624 [g_port    ]                @2358 [getpath   ]
@1625 [g_put     ]                @1632 [getrname  ]
@1626 [g_puti    ]                @1633 [getwname  ]
                         @1001 [gotowindow]

           @1[WinBase ▓╬┐╝╩╓▓ß]

@2359 [hard_chdir]                @2452 [header    ]
@2208 [hardcr    ]                @1919 [hsecond   ]

@2104 [i2bin     ]                @2209 [isalpha   ]
@2503 [if|iif    ]                @1725 [iscolor   ]
@1210 [in        ]              @2210 [isdigit   ]
@2453 [indexext  ]                @2360 [isdir     ]
@2454 [indextext ]                @1920 [islastday ]
@2455 [indexkey  ]                @2211 [islower   ]
@2456 [indexord  ]                @2361 [ismemo    ]
@2457 [initvars  ]                @2212 [isnumber  ]
@1724 [initline  ]                @1726 [isprint   ]
@1504 [inkey     ]              @1921 [istime    ]
@1306 [inputbox  ]              @2213 [isupper   ]
@2013 [int       ]                @1727 [iswbsdos  ]
@2458 [isalias   ]              @1211 [itack     ]

@1505 [keybd]                    @1506 [keybdbuf]

@2105 [l2bin     ]                @1634 [loadform  ]
@1922 [lastday   ]                @1635 [loadpcx   ]
@2362 [lastdrive ]                @2460 [lockfile  ]
@1507 [lastkey   ]                @2461 [lockrec   ]
@2459 [lastrec|reccount]         @2015 [log       ]
@2214 [left      ]                @2016 [log10     ]
@2215 [len       ]                @2504 [loop      ]
@2014 [lennum    ]                @2217 [lower     ]
@2216 [listtoa   ]                @1923 [lupdate   ]
                          @2218 [ltrim     ]

@1508 [m_hide    ]                @2229 [memotake  ]
@1509 [m_inbox   ]                @2230 [memotran  ]
@1510 [m_init    ]                @2231 [memowrite ]
@1511 [m_move    ]                @1730 [memvarblock]
@1512 [m_press   ]                @1403 [menudel   ]
@1513 [m_rele    ]                @1404 [menuget   ]
@1514 [m_reset   ]                @1405 [menugetc  ]
@1515 [m_show    ]                @1406 [menuins   ]
@1516 [m_where   ]                @1407 [menuset   ]
@1002 [makebotton]              @1408 [menusetc  ]
@1307 [makedlg   ]                @2018 [min       ]
@1402 [makemenu  ]                @2233 [mlcount   ]
@1003 [makewindow]              @2232 [mlctopos  ]
@1636 [mappal16  ]                @2234 [mlpos     ]
@2017 [max       ]                @2235 [mpostolc  ]
@1728 [maxcol    ]              @2019 [mod       ]
@1729 [maxrow    ]              @1308 [modifydlg ]
@2219 [memoat    ]                @1924 [month     ]
@2220 [memocount ]                @1517 [mouse     ]
@2221 [memodel   ]                @1518 [mousebox  ]
@2222 [memoedit  ]                @1519 [mousecol  ]
@2223 [memoins   ]                @1520 [mousein   ]
@2224 [memoline  ]                @1521 [mousekey  ]
@2462 [memopack  ]              @1522 [mouseread ]
@2225 [memorat   ]                @1523 [mouserow  ]
@2226 [memoread  ]                @1309 [msgbox    ]
@2227 [memorepl  ]                @1310 [msgshow   ]
@2228 [memory    ]              @1524 [mskeyb    ]

           @1[WinBase ▓╬┐╝╩╓▓ß]

@1212 [nage      ]                @2471 [netreplfld]
@2463 [ndxcount  ]                @2472 [netuse    ]
@2464 [ndxkey    ]                @1525 [newmskeyb ]
@2465 [netappend ]                @1526 [nextkey   ]
@2466 [netdelete ]                @1731 [nop       ]
@2467 [neterr    ]              @1925 [ntod      ]
@2468 [netfldput ]                 @1527 [numlock   ]
@2469 [netname   ]                @1528 [numloff   ]
@2470 [netrecall ]                @2106 [numtostr  ]

@2236 [occurs    ]                @1734 [outstd    ]
@1732 [os        ]                @1213 [out       ]
@1733 [outerr    ]

@2239 [pad└α     ]                @1637 [pcx       ]
@1214 [page      ]              @1638 [pcx16     ]
@1215 [pages     ]              @1639 [pcx256    ]
@2237 [parse     ]                @1640 [pcxtype   ]
@2363 [pathparse ]                @1409 [popgetc   ]
@1735 [pause     ]                @1410 [poplist   ]
@1736 [pcol      ]                @1411 [popsetc   ]
@1737 [printcode ]                @1412 [popup     ]
@1738 [prow      ]                @2506 [procline  ]
@1739 [putstr    ]                @2507 [procname  ]
@2505 [pcount    ]              @2238 [proper    ]
                          @1641 [putform   ]

           @1[WinBase ▓╬┐╝╩╓▓ß]

@2508 [qout|qqout]

@1216 [r         ]                @1311 [removedlg ]
@2240 [rat       ]                @1005 [removewindow]
@2241 [replicate ]                @2475 [replfld   ]
@2509 [readexit  ]              @2476 [replvars  ]
@2510 [readinsert]              @1740 [restscreen]
@1529 [readkey   ]              @2242 [right     ]
@2511 [readmodal ]              @2243 [rtrim     ]
@2512 [readvar   ]              @2477 [rlock|lock]
@2473 [recno     ]              @2020 [round     ]
@2474 [recsize   ]              @1741 [row       ]
@1818 [rectoa    ]              @2021 [rtod      ]
@1004 [redrawwin ]              @1217 [rtack     ]
                          @1742 [runmacro  ]

@1642 [saveform  ]                @1753 [setpos    ]
@1530 [scankey   ]                @1754 [setprc    ]
@1531 [scrollock ]                @1755 [settrace  ]
@1532 [scrolloff ]                @1006 [shiftwindow]
@1743 [savescreen]              @2022 [sign      ]
@1744 [scroll    ]                @2107 [soundex   ]
@1926 [seconds   ]                @2244 [space     ]
@1927 [sectoday  ]                @2023 [sqrt      ]
@1928 [sectotime ]                @1756 [stacknew  ]
@2478 [select    ]                @1757 [stackpop  ]
@1745 [sernum    ]                @1758 [stackpush ]
@1746 [set       ]              @1759 [stackisempty]
@2364 [setattr   ]                @1760 [stacktop  ]
@1747 [setblink  ]                @2245 [str       ]
@1748 [setcancel ]                @2246 [strexpand ]
@1749 [setcolor  ]                @2247 [strtran   ]
@1750 [setcursor ]                @2248 [stuff     ]
@1312 [setdlg    ]                @2249 [substr    ]
@1751 [sethelp   ]                @1643 [swapcolor ]
@1533 [sethotkey ]                @1761 [swprun    ]
@2479 [setindex  ]                @1218 [sum_all   ]
@2365 [setint24  ]                @1219 [sum_cond  ]
@1534 [setkey    ]                @1220 [sumc      ]
@1752 [setmode   ]                @1221 [sumr      ]


@1222 [tack      ]                @1931 [timetosec ]
@2250 [takeout   ]                @1762 [tone      ]
@2366 [tempfile  ]                @2251 [trim      ]
@1929 [time      ]                @2252 [type      ]
@1930 [timediff  ]

           @1[WinBase ▓╬┐╝╩╓▓ß]

@1007 [wbedit    ]                @1009 [window    ]
@1765 [wbhelp    ]                @1010 [windowexit]
@1766 [wbs_off   ]                @1011 [windowget ]
@1767 [wbs_on    ]                @1012 [windowsay ]
@2367 [wbsbackup ]                @1013 [windowstart]
@2513 [while     ]                @1014 [winoutput ]
@1101 [winbrows  ]              @1015 [winscroll ]
@1008 [winclear  ]              @1016 [wintitle  ]

@1763 [updated   ]                @2480 [used      ]
@2253 [upper     ]                @1224 [usenum    ]
@1223 [usec      ]

@2108 [val       ]                @1644 [vgaclose  ]
@2254 [valtype   ]                @1645 [vgaopen   ]
@1764 [version   ]

@1932 [year      ]

           @1[WinBase ▓╬┐╝╩╓▓ß]


.1701
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

__pcheck()
╙∩╖¿: __pcheck (<cFuncname>, <nRcount>, <nPcount>, <cPtypes>, <cRtypes>)
╙├═╛: ╙├╙┌╝∞▓Γ║»╩²┤½╡▌╡─▓╬╩²╝░╞Σ└α╨═╡─║╧╖¿╨╘íú
▓╬╩²:
    <cFuncname>     ║»╩²├√╫╓╖√┤«
    <nPcount>     ╨Φ╥¬╡─▓╬╩²╕÷╩²
    <nRcount>     ╩╡╝╩╡─▓╬╩²╕÷╩²
    <cPtypes>     ╨Φ╥¬╡─▓╬╩²└α╨═┤«
    <cRtypes>     ╩╡╝╩╡─▓╬╩²└α╨═┤«
    ╩²╛▌└α╨═╢¿╥σ╚τ╧┬:
    A: ╩²╫Θ    a: ╩²╫Θ╗≥┐╒
    C: ╫╓╖√    c: ╫╓╖√╗≥┐╒
    N: ╩²╓╡    n: ╩²╓╡╗≥┐╒
    D: ╚╒╞┌    d: ╚╒╞┌╗≥┐╒
    M: ▒╕╫ó    m: ▒╕╫ó╗≥┐╒
    L: ┬▀╝¡    l: ┬▀╝¡╗≥┐╒
    X: ╚╬╥Γ└α╨═x: ╚╬╥Γ└α╨═
╖╡╗╪╓╡:     ╬▐ú¼╚τ╣√╝∞▓Γ╡──┌╚▌▓╗║╧╖¿ú¼╜½╡»│÷┤φ╬≤╨┼╧ó┤░
┐┌íú
└²╫╙:? __pcheck ("STR() ", 2, 3, "CNN", "CN")
▓╬╝√ú║@1702 [__ptypes]( )

.1702
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

__ptypes()
╙∩╖¿: __ptypes (<aParaarray>)
╙├═╛: ╚í<par_array> ╩²╫Θ╓╨├┐╥╗╕÷╘¬╦╪╡─└α╨═íú
▓╬╩²:
    <aPararray>    ┤²▓Θ╩²╫Θíú
╖╡╗╪╓╡: <par_array> ╩²╫Θ╓╨├┐╥╗╕÷╘¬╦╪╡─└α╨═╣╣│╔╡─╫╓╖√┤«
    ╩²╛▌└α╨═╢¿╥σ╚τ╧┬:
    A: ╩²╫Θ    a: ╩²╫Θ╗≥┐╒
    C: ╫╓╖√    c: ╫╓╖√╗≥┐╒
    N: ╩²╓╡    n: ╩²╓╡╗≥┐╒
    D: ╚╒╞┌    d: ╚╒╞┌╗≥┐╒
    M: ▒╕╫ó    m: ▒╕╫ó╗≥┐╒
    L: ┬▀╝¡    l: ┬▀╝¡╗≥┐╒
    X: ╚╬╥Γ└α╨═x: ╚╬╥Γ└α╨═
└²╫╙:? __ptypes ( {"WINBASE", 1,.T.})    //╖╡╗╪"CNL"
▓╬╝√ú║@1701 [__pcheck]( )

.1801
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

aadd()
╙∩╖¿: aadd (<aTarget>, <exp>)
╙├═╛: └⌐│Σ╩²╫Θ, ╩╣╞Σ╘÷╝╙╘¬╦╪íú
▓╬╩²:
    <aTarget>    ╥¬└⌐│Σ╡─╩²╫Θ├√íú
    <exp>        ╘÷╝╙╡─╘¬╦╪íú
╖╡╗╪╓╡: <exp> ╚τ├╗╙╨╓╕╢¿<exp> ▓╬╩², ╘≥╖╡╗╪NILíú
└²╫╙:    local my_array: = {1, 2, 3}
    aadd (my_array, 4) //my_array ╧╓╘┌╩╟{1, 2, 3, 4}

▓╬╝√: @1805 [adel](), @1808 [ains](), @1813 [asize]()

.2001
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

abs()
╙∩╖¿: abs (<nExp>)
╙├═╛: ╖╡╗╪╩²╤º▒φ┤∩╩╜╡─╟≤╓╡╜ß╣√╡─╛°╢╘╓╡íú
▓╬╩²:
    <nExp>         ▒╗╟≤╓╡╡─╩²╤º▒φ┤∩╩╜íú
╖╡╗╪╓╡: ╩²╫╓└α╨═íú
└²╫╙:    ? abs (4-6) // ╖╡╗╪2
    ? abs (4. 3-6. 4) // ╖╡╗╪2. 1

.1401
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

achoice()
╙∩╖¿: achoice (<nTop>, <nLeft>, <nBottom>, <nRight>, <acMenuitems>,;
     [<alselecttableitems>], [<cUDFcontral>],;
     [nHiliteItem>], [<nWindowrow>]
╙├═╛:     ░┤╩²╫Θ<acMenuitems> ╡──┌╚▌╔·│╔▓╦╡Ñ, ╖╡╗╪╥╗╕÷╩²╫╓╓╡, ╕├╩²╫╓╢╘
╙ª╦∙╤í╩²╫Θ╘¬╦╪╡─╬╗╓├╨≥║┼íú
▓╬╩²:
    <nTop,nLeft>        ▓╦╡Ñ╫≤╔╧╜╟╨╨┴╨╫°▒Ωíú
    <nBottom,nRight>    ▓╦╡Ñ╙╥╧┬╜╟╨╨┴╨╫°▒Ωíú
    <acMenuitems>     ╣╣│╔▓╦╡Ñ╤í╘±╧ε╡─╩²╫Θíú
<alselecttableitems>    ╥╗╕÷┐╔╤í╩²╫Θ, ╞Σ╘¬╦╪╓╡╬¬.T. ╗≥.F., ╚⌠─│╘¬╦╪╓╡╬¬.F.,▒φ╩╛╞Σ╢╘╙ª╧ε
▓╗┐╔╤ííú╚⌠╕├▓╬╩²╓╕╢¿╬¬.T. ╢°▓╗╩╟╥╗    ╩²╫Θ, ╘≥▒φ╩╛╦∙╙╨▓╦
╡Ñ╧ε╢╝┐╔╤í; ╚⌠╕├▓╬╩²╓╕╢¿╬¬.F. ╢°▓╗╩╟╩²╫Θ╘≥╦∙╙╨▓╦╡Ñ
╧ε╢╝▓╗┐╔╤ííú╚▒╩í╬¬.T.íú
<cUDFcontral>         ┐╪╓╞achoice() ║»╩²╢»╫≈╡─╙├╗º╫╘╢¿╥σ║»╩²íú
<nHiliteItem>     ╓╕╢¿╡▒achoice() ╞≡╢»╩▒, ╙δ▓╦╡Ñ┴┴╠⌡╡─│⌡╩╝╬╗╓├╢╘╙ª╡─╘¬╦╪
╬╗╓├íú
<nWindowrow>     ╓╕╢¿╡▒achoice() ╞≡╢»╩▒, ╡┌╥╗╕÷╤í╘≥╧ε╙ª╖┼╓├╘┌┤░┐┌╓╨╡─╨╨
╬╗╓├íú
╖╡╗╪╓╡: ╡▒ESC ╝ⁿ░┤╧┬╩▒ú¼╖╡╗╪0ú¼╖±╘≥╖╡╗╪▓╦╡Ñ╧ε─┐╨≥║┼íú
└²╫╙:// ─ú─Γ╥╗╕÷╡»│÷╩╜▓╦╡Ñ▓┘╫≈
 #include "winbase.inc"
procedure main()
local myarray: = {"one", "two", "three"}, choice
windowstart()
makewindow (9, 9, 13, 21, "First", 1, 1, 1)
choice: =achoice (10, 10, 12, 20, myarray) // ╔·│╔▓╦╡Ñ, ╖╡╗╪╥╗╕÷╩²╫╓╓╡
do case
    case choice=0 //ESC ╝ⁿ▒╗░┤╧┬
        quit
    case choice=1
            ? myarray [choice]
    case choice=2
    ? myarray [choice]
        case choice=3
        ? myarray [choice]
    endcase
inkey (0)
windowexit()
return

▓╬╝√: @1412 [popup](), @1410 [poplist]()

.1802
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

aclone()
╙∩╖¿: aclone (<aSourceArray>)
╙├═╛:     ╔·│╔╓╕╢¿╩²╫Θ╡─╥╗╕÷┐╜▒┤╩²╫Θ, ╘┤╩²╫Θ╡─╘¬╦╪┐╔
╥╘╩╟╥╗╕÷╫╙╩²╫Θíú
▓╬╩²:
    <aSourceArray>     ╘┤╩²╫Θíú
╖╡╗╪╓╡: ╩²╫Θ└α╨═
└²╫╙:    array1: = {12, {"as", 2}, 2}
    array2: =aclone (array1) //array2 ╧╓╘┌╩╟{12, {"as", 2}, 2}

▓╬╝√: @1804 [acopy]()

.1803
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

acomp()
╙∩╖¿: acomp (<aArray>, <bCompblock>, <nStart>, <nStop>)
╙├═╛: ╢╘╩²╫Θ╓╨╡─╧α┴┌╘¬╦╪╕∙╛▌▒╚╜╧┤·┬δ┐ΘbCompblock ╟≤╓╡
    ╥╘╧┬┤·┬δ┐Θ╥╤╘┌Winbase. inc ╓╨╢¿╥σ:
    AC_MAX     ╟≤╩²╓╡╫ε┤≤╓╡┤·┬δ┐Θ
    AC_MIN     ╟≤╩²╓╡╫ε╨í╓╡┤·┬δ┐Θ
    AC-MAXLEN     ╟≤╩²╫Θ╓╨╘¬╦╪│ñ╢╚╫ε┤≤╓╡┤·┬δ┐Θ
    AC_MINLEN     ╟≤╩²╫Θ╓╨╘¬╦╪│ñ╢╚╫ε╨í╓╡┤·┬δ┐Θ
▓╬╩²:
    <aArray>        ┤²▒╚╜╧╩²╫Θíú
    <bCompblock>     ▒╚╜╧┤·┬δ┐Θíú
    <nStart>        ┐¬╩╝▒╚╜╧╡─╘¬╦╪╡─╨≥║┼íú
    <nStop>         ╜ß╩°▒╚╜╧╡─╘¬╦╪╡─╨≥║┼íú
╖╡╗╪╓╡: compblock ╡─╓┤╨╨╜ß╣√
└²╫╙:    arr: = {8, 9, 3, 6, 1, 4, 10}
    ? acomp (arr, AC_MAX, 1, 5)
    inkey (0)

.1804
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

acopy()
╙∩╖¿: acopy (<aSource>, <aTarget>, [<nStart>], [<nCount>], [<nTargetpos>])
╙├═╛: ╜½╥╗╕÷╩²╫Θ╓╨╡─╘¬╦╪┐╜▒┤╡╜┴φ╥╗╕÷╩²╫Θ╓╨╚Ñíú
▓╬╩²:
<aSource>    ╘┤╩²╫Θíú
<aTarget>     ─┐▒Ω╩²╫Θíú
<nStart>     ╘┤╩²╫Θ┐╜▒┤┐¬╩╝╡─╘¬╦╪╞≡╩╝╬╗╓├, ╚▒╩í╓╡╬¬1íú
<nCount>     ┐╜▒┤╡─╘¬╦╪╕÷╩², ╚▒╩í╘≥╘┤╩²╫Θ╦∙╙╨╘¬╦╪╢╝╜½▒╗┐╜▒┤íú

<nTargetpos>     ─┐▒Ω╩²╫Θ╓╨╘¬╦╪┤µ╖┼╡─╞≡╩╝╬╗╓├íú
╖╡╗╪╓╡: ╩²╫Θ└α╨═ú╗╨┬╨╬│╔╡─╩²╫Θíú
└²╫╙:     ar1: = {1, 3, 2, 45, 2}
    ar2: = {7, 8}
    acopy (ar1, ar2, 2, 3, 1) //ar2 ╧╓╘┌╩╟{3, 2, 45}
▓╬╝√: @1802 [aclone]()

.1901
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

addmonth()
╙∩╖¿: addmonth (<dDate>, <nMonths>)
╙├═╛: ╟≤╓╕╢¿╚╒╞┌╡─nMonths ╕÷╘┬║≤╡─╚╒╞┌
▓╬╩²:
    <dDate>         ╓╕╢¿╡─╚╒╞┌íú
    <nMonths>         ╘÷╝╙╡─╘┬╩²íú
╖╡╗╪╓╡: nMonths ╕÷╘┬║≤╡─╚╒╞┌
└²╫╙:? addmonth ("date() ", 10)

▓╬╝√: @1924 [month]( )

.1805
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

adel()
╙∩╖¿: adel (<aTarget>, <nPos>)
╙├═╛: ┤╙╩²╫Θ╓╨╔╛╚Ñ╓╕╢¿╨≥║┼╡─╘¬╦╪íú
▓╬╩²:
    <aTarget>     ╥¬╔╛╚Ñ╘¬╦╪╡─╩²╫Θ├√íú
    <nPos>     ╔╛╚Ñ╘¬╦╪╘┌╩²╫Θ╓╨╡─╨≥║┼íú
╖╡╗╪╓╡: ╩²╫Θ└α╨═
└²╫╙:     ar: = {1, 3, 2, 45, 2}
    adel (ar, 3) //ar ╧╓╘┌╩╟{1, 3, 45, 2}

▓╬╝√: @1807 [afill](), @2215 [len](), @1808 [ains]( ), @1813 [asize]( )

.2301
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■║═┤┼┼╠║»╩²╦≈╥²]

adir()
╙∩╖¿: adir ( [<cFileSpec>], [<aFileNames>], [<aSizes>];
     [<aDates>], [<aTimes>], [<aAttributes>])
╙├═╛:     ╖╡╗╪╓╕╢¿─┐┬╝╓╨╡─╬─╝■╩²─┐▓ó░╤╒╥╡╜╡─╬─╝■
├√║═╬─╝■╩⌠╨╘┤µ╚δ╥╗╕÷╩²╫Θíú
▓╬╩²:
<cFileSpec>    ╘┌╡▒╟░─┐┬╝╓╨▓Θ╒╥╡──┐┬╝║═╬─╝■╦╡├≈íú╚▒╩í╡─╦╡
├≈╬¬*. *íú
<aFileNames>    ╙├└┤┤µ╖┼╒╥╡╜╡─╬─╝■├√╡─╥╗╕÷╩²╫Θíú
<aSizes>      ╥╗╕÷╩²╫Θ, ╙├└┤┤µ╖┼╙δ<cFileSpec> ▓╬╩²╦∙╓╕╢¿─ú╩╜╧α╞Ñ┼Σ╡─╬─
╝■╡─╫╓╜┌│ñ╢╚íú
<aDates>         ╥╗╕÷╩²╫Θ, ╙├└┤┤µ╖┼╙δ<cFileSpec> ▓╬╩²╦∙╓╕╢¿─ú╩╜╧α╞Ñ┼Σ╡─╬─
╝■╡─╫ε║≤╨▐╕─╚╒╞┌íú├┐╕÷╘¬╦╪╢╝╩╟╚╒╞┌└α╨═íú
[<aTimes>]     ╥╗╕÷╩²╫Θ, ╙├└┤┤µ╖┼╙δ<cFileSpec> ▓╬╩²╦∙╓╕╢¿─ú╩╜╧α╞Ñ┼Σ╡─╬─
╝■╡─╫ε║≤╨▐╕─╩▒╝Σíú├┐╕÷╘¬╦╪╢╝╩╟╫╓╖√└α╨═íú
[<aAttributes>]    ╥╗╕÷╩²╫Θ, ╙├└┤┤µ╖┼╙δ<cFileSpec> ▓╬╩²╦∙╓╕╢¿─ú╩╜╧α╞Ñ┼Σ╡─╬─
╝■╡─DOS ╩⌠╨╘(A- ╡╡░╕, D- ─┐┬╝, H- ╥■▓╪, R- ╓╗╢┴,S-╧╡═│)íú
╖╡╗╪╓╡: ╩²╫╓└α╨═, ╖╡╗╪╓╕╢¿─┐┬╝╓╨╡─╬─╝■╩²─┐
╦╡├≈: ╘┌╜½╬─╝■╠ε╚δ╩²╫Θ╓«╟░, ▒╪╨Φ╧╚╜¿┴ó╒Γ╨⌐╩²╫Θíú
// ╜½╕∙─┐┬╝╧┬╡─prg ╬─╝■╨┼╧ó┤µ╚δ╩²╫Θ▓ó╧╘╩╛
└²╫╙: procedure fileshow()
private arn: =arl: =ard: =art: =ara: = {}
    ar_len: =adir ("c: \*. prg", arn, arl, ard, art, ara)
    for i=1 to ar_len
    ú└ 10, 10 say arn [i] // ╧╘╩╛╬─╝■├√
    ú└ 11, 10 say arl [i] // ╧╘╩╛╬─╝■╡─╫╓╜┌│ñ╢╚
    ú└ 12, 10 say ard [i] // ╧╘╩╛╬─╝■╡─╫ε║≤╨▐╕─╚╒╞┌
    ú└ 13, 10 say art [i] // ╧╘╩╛╬─╝■╡─╫ε║≤╨▐╕─╩▒╝Σ
    ú└ 14, 10 say ara [i] // ╧╘╩╛╬─╝■╡─DOS ╩⌠╨╘
    inkey (0)
    next i
    return

▓╬╝√: @2313 [directory](), @2401 [afields](), @2315 [dirfiles]( ), @2316 [dirtolist]( )

.1806
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

aeval()
╙∩╖¿: aeval (<aArray>, <bBlock>, [<nStart>], [<cCount>])
╙├═╛: ▒Θ└·╩²╫Θ, ▓ó╘┌╕├╩²╫Θ╡─├┐╕÷╘¬╦╪╔╧╢╘┤·┬δ┐Θ╟≤
╓╡íú
▓╬╩²:
    <aArray>     ▒╗▒Θ└·╡─╩²╫Θ├√íú
    <bBlock>     ╢╘╩²╫Θ╡─├┐╕÷╘¬╦╪╔╧╟≤╓╡╡─┤·┬δ┐Θíú
    <nStart>     ╩²╫Θ╓╨╞≡╩╝╡─╟≤╓╡╘¬╦╪╨≥║┼íú╚▒╩í╬¬1íú
<cCount>     ╟≤╓╡╡─╘¬╦╪╕÷╩²íú╚▒╩í╬¬╩²╫Θ╓╨┤╙<nStart> ┐¬╩╝╡─╦∙╙╨╘¬
╦╪íú
╖╡╗╪╓╡: ╩²╫Θ└α╨═
╦╡├≈:     aeval() ║»╩²▓╗╣╪╨─╩²╫Θ╓╨╘¬╦╪╡─╩²╛▌└α╨═, ╦∙╥╘╩╣╙├╓╨
┤·┬δ┐Θ<bBlock> ╙ª─▄┤ª└φ╩²╫Θ╓╨│÷╧╓╡─╦∙╙╨╩²╛▌└α╨═íú
└²╫╙:    // ╘┌╧┬├µ└²╫╙╓╨, ╧╚╦╤╦≈╡┌╥╗╕÷╩²╫Θ, ╜½╞Σ╓╨╓╡┤≤╙┌8 ╡─
╘¬╦╪┐╜▒┤╡╜    //╡┌╢■╕÷╩²╫Θ
     cls
    aray: = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
    bray: = {}
    aeval (aray, {|no|if (no>8, aadd (bary, no), nil)})
    ? len (bray) // ╜ß╣√╩╟2
    aeval (bray, {|var|qout (var)}) //bray ╧╓╘┌╩╟{9, 10}

▓╬╝√: @2417 [dbeval](), @2501 [eval]()

.2401
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

afields()
╙∩╖¿: afields ( [<aFieldNames>], [<aTypes>], [<aWidths>], [aDecimals>])
╙├═╛: ╜½╡▒╟░╩²╛▌┐Γ╬─╝■╡─╫╓╢╬─┌╚▌╠ε╚δ╩²╫Θíú
▓╬╩²:
    [<aFieldNames>]    ┤µ╖┼╫╓╢╬├√╡─╩²╫Θíú
     [<aTypes>]         ┤µ╖┼╫╓╢╬└α╨═╡─╩²╫Θíú
     [<aWidths>]         ┤µ╖┼╫╓╢╬┐φ╢╚╡─╩²╫Θíú
[aDecimals>]         ┤µ╖┼╩²╫╓╫╓╢╬╓╨╨í╩²╬╗╩²╡─╩²╫Θ, ╢╘╖╟╩²╫╓╫╓╢╬╖┼
╚δ0íú
╖╡╗╪╓╡: ╩²╫╓└α╨═, afields() ║»╩²╖╡╗╪╫╓╢╬╩²─┐íú
╦╡├≈: ╘┌└⌐╒╣╜ß╣╣╨┼╧ó╠ε╚δ╩²╫Θ╟░, ▒╪╨δ╧╚╜¿┴ó╒Γ╨⌐╩²
╫Θíú
└²╫╙:// ╜½╩²╛▌┐Γmy ╓╨╫╓╢╬╨┼╧ó╠ε╚δ╩²╫Θ╓╨▓ó╧╘╩╛
    use my
    afield (aF, aT, aW, aD)
    for i=1 to afield()
        ? aF [i], aT [i], aW [i], aD [i]
    next i

▓╬╝√: @2313 [directory](), @2443 [fcount]()

.1807
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

afill()
╙∩╖¿: afill (<aTarget>, <exp>, [<nStart>], [<nCount>])
╙├═╛: ╜½╓╕╢¿╡─╓╡╕│╕°╘┌╩²╫Θ╓╨╤í╘±╡─╘¬╦╪íú
▓╬╩²:
    <aTarget>     ▒╗╕│╓╡╡─╩²╫Θ├√íú
    <exp>         ╕│╕°╘¬╦╪╡─╓╡íú
    <nStart>     ╞≡╩╝╘¬╦╪╨≥║┼íú
    <nCount>     ╥¬╕│╓╡╡─╘¬╦╪╩²─┐íú
        ╚⌠║≤┴╜▓╬╩²╚▒╩í, ╘≥╩²╫Θ<aTarget> ╦∙╙╨╘¬╦╪╢╝▒╗╕│╓╡<exp>íú
╖╡╗╪╓╡: ╩²╫Θ└α╨═
└²╫╙: local myarray [3]
afill (myarray, "good") //myarray ╧╓╘┌╩╟{"good", "good", "good"}

▓╬╝√: @1801 [aadd](), @1806 [aeval](), @1808 [ains]( ), @1805 [adel]( )

.1808
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

ains()
╙∩╖¿: ains (<aTarget>, <nPos>)
╙├═╛: ╘┌╩²╫Θ╓╨▓σ╚δ╥╗╓╡╬¬nil ╡─╘¬╦╪íú
▓╬╩²:
    <aTarget>     ▒╗▓σ╚δ╘¬╦╪╡─╩²╫Θ├√íú
    <nPos>     ▓σ╚δ╘¬╦╪╡─╨≥║┼íú
╫ó: ains ▓ó▓╗╘÷╝╙╩²╫Θ╘¬╦╪╩²─┐íú
╖╡╗╪╓╡: ╩²╫Θ└α╨═íú
└²╫╙: myarray: = {1, 3, 2, 45, 2}
    ains (myarray, 2) //myarray ╧╓╘┌╩╟{1, nil, 3, 2, 45}

▓╬╝√: @1801 [aadd](), @1805 [adel](), @2215 [len]()    ,@1813 [asize]( )

.2402
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

alias()
╙∩╖¿: alias (<nWorkArea>)
╙├═╛: ╚╖╢¿╥╤┤≥┐¬╩²╛▌┐Γ╡─▒≡├√íú
▓╬╩²:
<nWorkArea>     ╥¬╝∞▓Θ╡─╣ñ╫≈╟°║┼íú▓╗┤°▓╬╩²╡─alias() ║»╩²╜½╖╡╗╪╡▒╟░
╗ε╢»╣ñ╫≈╟°╡─▒≡├√íú
╖╡╗╪╓╡: ╫╓╖√└α╨═íú
╦╡├≈:     ╚τ┤≥┐¬╥╗╕÷╩²╛▌┐Γ╩▒├╗╙╨╓╕╢¿▒≡├√, ╘≥alias() ║»╩²╜½╖╡
╗╪┤≥┐¬╩²╛▌┐Γ╡─├√│╞íú╚τ╘┌╓╕╢¿╡─╣ñ╫≈╟°╓╨├╗╙╨
╬─╝■▒╗┤≥┐¬, ╘≥alias() ║»╩²╜½╖╡╗╪╥╗╕÷┐╒┤«íú
└²╫╙:     select 1
    use my
    select 2
    use key alias said
    select 3
    ? alias (2) // ╖╡╗╪said
    ? alias (1) // ╖╡╗╪my
    ? alias() // ╖╡╗╪╥╗┐╒┤«

▓╬╝√: @2438 [dbusearea](), @3135[select], @3150[use], @2418 [dbf]( )

.2201
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

alltrim()
╙∩╖¿: alltrim (<cString>)
╙├═╛: ╔╛│²╫╓╖√┤«╓╨╡─╟░╡╝┐╒╕±║═╬▓▓┐┐╒╕±íú
▓╬╩²:
    <cString>     ╥¬╔╛│²╟░╡╝┐╒╕±║═╬▓▓┐┐╒╕±╡─╫╓╖√┤«íú
╖╡╗╪╓╡: ╫╓╖√└α╨═íú
└²╫╙:     temp: =" my program "
     temp: =alltrim (temp)     // ╩╣temp = " my program"

▓╬╝√: @2243 [rtrim](), @2218 [ltrim]()

.1809
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

amax()
╙∩╖¿: amax (<aArray>)
╙├═╛: ╟≤╩²╫Θ╓╨╫ε┤≤╘¬╦╪╦∙╘┌╡─╬╗╓├íú
▓╬╩²:
    <aArray>     ╩²╓╡╩²╫Θíú
╖╡╗╪╓╡: ╩²╓╡íú
└²╫╙:? amax ( {3, 9, 4, 1, 8})    //╖╡╗╪2

.1810
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

amin()
╙∩╖¿: amin (<aArray>)
╙├═╛: ╟≤╩²╫Θ╓╨╫ε╨í╘¬╦╪╦∙╘┌╡─╬╗╓├íú
▓╬╩²:
    <aArray>    ╩²╓╡╩²╫Θíú
╖╡╗╪╓╡: ╩²╓╡íú
└²╫╙:? amin ( {3, 9, 4, 1, 8})    //╖╡╗╪4

.1902
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

ampm()
╙∩╖¿: ampm (<cTime>)
╙├═╛: ╗±╡├┤°╙╨am ╗≥pm ╡─╩▒╝Σ╫╓╖√┤«, ╥╘▒Ω╩╢╩╟╘τ╔╧╗╣╩╟╧┬
╬τíú
▓╬╩²:
    <cTime>    ╩▒╝Σ┤«íú
╖╡╗╪╓╡: ╩▒╝Σ╫╓╖√┤«íú
└²╫╙:? ampm (time())

.2302
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

appext()
╙∩╖¿: appext (<cName>, <cExt>)
╙├═╛: ╕─▒Σ╬─╝■├√╡─║≤╫║íú
▓╬╩²:
    <cName>     ╥¬╕─▒Σ║≤╫║╡─╬─╝■├√íú
    <cExt>     ╨┬║≤╫║íú
╖╡╗╪╓╡: ╫╓╖√└α╨═, ╖╡╗╪╛▀╙╨╨┬║≤╫║╡─╬─╝■├√
└²╫╙:? appext ("my1. txt", "prg") // ╞┴─╗╩Σ│÷my1. prg

.1811
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

array()
╙∩╖¿: array (<nlength> [, <nlength>...])
╙├═╛: ╜¿┴ó╩²╫Θíú
▓╬╩²:
    <nlength>    ╩²╫Θ╓╨╧α╙ª╬¼╡─╘¬╦╪╕÷╩²(nlength< = 4096)íú
╖╡╗╪╓╡: ╩²╫Θ└α╨═íú
└²╫╙: ar1: =array (30, 100) // ╜¿┴ó╥╗╕÷┴╜╬¼╩²╫Θar1 [30] [100]

▓╬╝√: @1801 [aadd](), @1805 [adel](), @1807 [afill](), @1808 [ains]()

.2202
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

asc()
╙∩╖¿: asc (<cExp>)
╙├═╛: ╚╖╢¿╫╓╖√┤«╓╨╡┌╥╗╕÷╫╓╖√╡─ASCII ┬δ╓╡íú
▓╬╩²:
<cExp>         ╥¬╚╖╢¿╡┌╥╗╕÷╫╓╖√╡─ASCII ┬δ╓╡╡─╫╓╖√┤«íú
╖╡╗╪╓╡: ╩²╫╓└α╨═íú
└²╫╙:? asc ("") // ╖╡╗╪0
? asc ("b") // ╖╡╗╪98
? asc ("edc") // ╖╡╗╪101

▓╬╝√: @2205 [chr](), @1504 [inkey]()

.1812
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

ascan()
╙∩╖¿: ascan (<aTarget>, <exp>, [<nStart>], [<nCount>])
╙├═╛:     ╘┌┤╙╩²╫Θ╓╨╔¿├Φ╘¬╦╪, ╦╤╦≈╡┌╥╗╕÷╙δ╓╕╢¿╓╡╞Ñ┼Σ
╡─╘¬╦╪íú╚⌠║≤┴╜╕÷▓╬╩²├╗╓╕╢¿, ╘≥╒√╕÷╩²╫Θ▒╗╔¿├Φíú
▓╬╩²:
    <artget>     ▒╗╔¿├Φ╡─╩²╫Θ├√íú
    <exp>         ╔¿├Φ╡─╓╡íú
    <nStart>     ╞≡╩╝╘¬╦╪╨≥║┼íúíú
    <nCount>     ╥¬╔¿├Φ╡─╘¬╦╪╩²─┐
╖╡╗╪╓╡: ╩²╫╓└α╨═, ╚⌠▓╗┤µ╘┌╞Ñ┼Σ╡─╘¬╦╪, ╘≥╖╡╗╪0íú
└²╫╙:     myarray: = {1, 3, 2, 45, 2}
    sign: =ascan (myarray, 2)
    ? sign // ╜ß╣√╩╟3
▓╬╝√: @3122[locate], @3202[set exact]

.1813
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

asize()
╙∩╖¿: asize (<aTarget>, <nLength>)
╙├═╛: ╕─▒Σ╩²╫Θ╡─╘¬╦╪╩²─┐íú
▓╬╩²:
    <aTarget>     ▒╗╕─▒Σ╘¬╦╪╩²─┐╡─╩²╫Θ├√íú
    <nLength>     ╨┬╡─╘¬╦╪╩²─┐íú
╖╡╗╪╓╡: ╩²╫Θ└α╨═íú
└²╫╙:     myarray: = {1, 3, 2, 45, 2}
    asize (myarray, 2) //myarray ╧╓╘┌╩╟{1, 3}

▓╬╝√: @1801 [aadd](), @1805 [adel](), @1808 [ains]()

.1814
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

asort()
╙∩╖¿: asort (<aTarget>, [<nStart>], [<nCount>], [bOrder])
╙├═╛: ╢╘╩²╫Θ╓╨╡─╘¬╦╪┼┼╨≥íú
▓╬╩²:
    <aTarget>     ╥¬┼┼╨≥╡─╩²╫Θ├√íú
    <nStart>     ╞≡╩╝╘¬╦╪╨≥║┼íú
    <nCount>     ╥¬┼┼╨≥╡─╘¬╦╪╩²─┐íú
    <bOrder>     ╠ß╣⌐┼┼╨≥╦π╖¿╡─┤·┬δ┐Θ, ╚▒╩í╬¬╔²╨≥íú
╖╡╗╪╓╡: ╩²╫Θ└α╨═íú
└²╫╙: myarray: = {1, 3, 2, 45, 2}
    asort (myarray, 2, 3) //myarray ╧╓╘┌╩╟{1, 2, 3, 45, 2}

▓╬╝√: @3145[sort to], @1812 [ascan](), @1806 [aeval]()

.2203
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

at()
╙∩╖¿: at (<cString>, <cTarget>)
╙├═╛: ╚╖╢¿╥╗╕÷╓╕╢¿╡─╫╙┤«╘┌░ⁿ║¼╕├╫╙┤«╡─╫╓╖√┤«
(─╕┤«) ╓╨╡─╬╗╓├íú
▓╬╩²:
    <cString>     ─╕┤«íú
    <cTarget>     ╓╕╢¿╡─╫╙┤«íú
╖╡╗╪╓╡: ╩²╫╓└α╨═íú
└²╫╙:     t1: ="as"
    st: ="do as this? "
    ? at (t1, st) // ╖╡╗╪4

▓╬╝√: @2240 [rat](), @2249 [substr]()

.1815
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

atail()
╙∩╖¿: atail (<aTarget>)
╙├═╛: ╖╡╗╪╩²╫Θ╡─╫ε╕▀╨≥║┼╡─╘¬╦╪╓╡íú
▓╬╩²:
    <aTarget>     ╥¬╖╡╗╪╫ε╕▀╨≥║┼╡─╘¬╦╪╓╡╡─╩²╫Θ├√íú
╖╡╗╪╓╡: ╘¬╦╪╓╡ú¼╡▒╫ε╕▀╨≥║┼╩╟╩²╫Θ╩▒╖╡╗╪┐╒íú
└²╫╙:     myarray: = {1, 3, 2, 45, 2}
    temp: =atail (myarray) // ╖╡╗╪2

▓╬╝√: @1801 [aadd]()

.2204
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

atnbr()
╙∩╖¿: atnbr (<cOldstr>, <cChar>, <n>)
╙├═╛: ▓Θ╒╥─│╫╓╖√╘┌╫╓╖√┤«╓╨╡┌n ┤╬│÷╧╓╡─╬╗╓├íú
▓╬╩²:
    <cOldstr>     ╫╓╖√┤«íú
    <cChar>     ▓Θ╒╥╡─╫╓╖√íú
    <n>        ╡┌n ┤╬íú
╖╡╗╪╓╡: │╔╣ª╖╡╗╪│÷╧╓╬╗╓├, ╩º░▄╖╡╗╪0
└²╫╙:? atnbr ("winbase WinBase", "i", 2)    //╖╡╗╪10

.1903
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

atodate()
╙∩╖¿: atoDate (<darr>)
╙├═╛: ╜½╙╔{─Ωíó╘┬íó╚╒} ╣╣│╔╡─╩²╫Θ╫¬╗»│╔╡─╚╒╞┌╓╡íú
▓╬╩²:
    <darr>         ╜ß╣╣╬¬{─Ωíó╘┬íó╚╒} ╩²╫Θíú
╖╡╗╪╓╡: ╚╒╞┌╓╡íú
└²╫╙:? atodate ( {94, 10, 1})        // ╖╡╗╪94─Ω╘┬10╘┬1

.1816
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

atodbf()
╙∩╖¿: atodbf (<aArray>)
╙├═╛: ╙├╢■╬¼╩²╫Θ╓╨╡─├┐╥╗╕÷╩²╛▌╠µ╗╗╡▒╟░╩²╛▌┐Γú¼╙├
╙┌┼Σ║╧dbftoa║»╩²íú
▓╬╩²:
    <aArray>     ╩²╛▌╩²╫Θíú
╖╡╗╪╓╡: ╬▐íú
└²╫╙:     use datafile
    arr:=dbftoa()
    ... ...
    atodbf (arr)
▓╬╝√ú║dbftoa()

.1817
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

atorec()
╙∩╖¿: atorec (<array>)
╙├═╛: ╜½╩²╫Θ╓╨╡─╘¬╦╪╠µ╗╗╡▒╟░╝╟┬╝╡─╫╓╢╬ú¼╙├╙┌┼Σ║╧
 rectoa() ║»╩²íú
▓╬╩²:
    <aArray>     ╩²╛▌╩²╫Θíú
╖╡╗╪╓╡: ╬▐íú
└²╫╙:     use datafile
    arr := rectoa()
    ... ...
    atorec (arr)
    display

.1601
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

att()
╙∩╖¿: att (<nRow1>, <nCol1>, <nRow2>, <nCol2>, <nAttr>, <cFillchar>)
╙├═╛: ╘┌╬─▒╛╖╜╩╜╧┬, ╕─▒Σ╓╕╢¿╞┴─╗╟°╙≥╡─╩⌠╨╘, ▓ó╠ε│Σ╫╓
╖√íú
▓╬╩²:
<nRow1,nCol1>         ╞┴─╗╟°╙≥╡─╫≤╔╧╜╟╨╨┴╨╫°▒Ωíú
<nRow2, nCol2>     ╞┴─╗╟°╙≥╡─╙╥╧┬╜╟╨╨┴╨╫°▒Ωíú
<nAttr>         ╞┴─╗╟°╙≥╡─╤╒╔½╩⌠╨╘íú
<cFillchar>         ╠ε│Σ╫╓╖√íú
╖╡╗╪╓╡: ╬▐íú
└²╫╙: att (10, 10, 20, 60, 1, 'W')

.1201
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

ave_cond
╙∩╖¿:    ave_cond (<ncField>, <cCond>)
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╢╘╥╗╓╕╢¿╡─╫╓╢╬╟≤╞╜╛∙íú
▓╬╩²:
    <ncField>    ╫╓╢╬├√╗≥╫╓╢╬╨≥║┼íú
<cCond>    ╨Φ╥¬╢╘──╨⌐╩²╛▌┐Γ╝╟┬╝╜°╨╨╟≤╞╜╛∙╡─╠⌡╝■íú
╖╡╗╪╓╡:╞╜╛∙╓╡íú
└²╫╙:
AVE_COND("SALARY", "SHENGSHI =='└Ñ├≈' ")
▓╬╝√ú║@1202 [ave_all]()

.1202
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

ave_all
╙∩╖¿:    ave_all (<cExp> ,<cCond>)
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╢╘╥╗╓╕╢¿╡─▒φ┤∩╩╜╟≤╞╜╛∙
▓╬╩²:
    <cExp>    ▒╗╟≤╓╡╡─╩²╓╡▒φ┤∩╩╜íú
    <cCond>    ╟≤╞╜╛∙╥¬┬·╫π╡─╠⌡╝■ú¼╚▒╩í╬¬╚½▓┐íú
╖╡╗╪╓╡:╞╜╛∙╓╡
└²╫╙:
ave_all ( "SALARY+JIANGJIN","SHENGSHI == '└Ñ├≈' " )
▓╬╝√ú║@1201 [ave_cond]()


.2002
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

binand()
╙∩╖¿: binand (<nNum1>, <nNum2>)
╙├═╛: ╢╘┴╜╕÷╩²░┤╬╗╟≤╙δíú
▓╬╩²:
    <nNum1>, <nNum2>    ╩²╓╡íú
╖╡╗╪╓╡: nNum1 ░┤╬╗╙δnNum2 ╡─╜ß╣√
└²╫╙:? binand (7, 5)    //╖╡╗╪5
▓╬╝√ú║@2004 [binor](), @2006 [binshr](),@2005 [binshl]( ),@2007 [binxor]()

.2003
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

binnot()
╙∩╖¿: binnot (<nNum>)
╙├═╛: ╢╘╩²╓╡░┤╬╗╟≤╖┤íú
▓╬╩²:
    <nNum>     ╩²╓╡íú
╖╡╗╪╓╡: <nNum> ░┤╬╗╖┤╡─╜ß╣√
└²╫╙:? binnot (3)    //╖╡╗╪í¬4
▓╬╝√ú║@2002 [binand](), @2004 [binor](), @2006 [binshr](),
@2005 [binshl]( ),@2007 [binxor]()

.2004
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

binor()
╙∩╖¿: binor (<nNum1>, <nNum2>)
╙├═╛: ╢╘┴╜╕÷╩²░┤╬╗╟≤╗≥íú
▓╬╩²:
    <nNum1>, <nNum2>     ╩²╓╡íú
╖╡╗╪╓╡: <nNum1> ░┤╬╗╗≥<nNum2> ╡─╜ß╣√íú
└²╫╙:? binor (5, 3)    //╖╡╗╪7
▓╬╝√ú║@2002 [binand](), @2006 [binshr](),binshl( ),@2007 [binxor]()

.2005
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

binshl()
╙∩╖¿: binshl (<nNum1>, <nNum2>)
╙├═╛: ╢╘╩²╓╡░┤╬╗╫≤╥╞íú
▓╬╩²:
    <nNum1>     ╥¬╥╞╬╗╡─╩²╓╡íú
    <nNum2>     ╥╞╢»╡─╬╗╩²íú
╖╡╗╪╓╡: <nNum1> ╫≤╥╞<nNum2> ╬╗╡─╜ß╣√íú
└²╫╙:? binshl (8, 2)    //╖╡╗╪32
▓╬╝√ú║@2002 [binand](), @2004 [binor](), binshr(),@2007 [binxor]()

.2006
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

binshr()
╙∩╖¿: binshr (<nNum1>, <nNum2>)
╙├═╛: ╢╘╩²╓╡░┤╬╗╙╥╥╞íú
▓╬╩²:
    <nNum1>     ╥¬╥╞╬╗╡─╩²╓╡íú
    <nNum2>     ╥╞╢»╡─╬╗╩²íú
╖╡╗╪╓╡: <nNum1> ╙╥╥╞<nNum2> ╬╗╡─╜ß╣√íú
└²╫╙:? binshr (8, 2)    //╖╡╗╪2
▓╬╝√ú║@2002 [binand](), @2004 [binor](), @2005 [binshl]( ),@2007 [binxor]()

.2007
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

binxor()
╙∩╖¿: binxor (<nNum1>, <nNum2>)
╙├═╛: ╢╘┴╜╕÷╩²░┤╬╗╟≤╥∞╗≥íú
▓╬╩²:
    <nNum1>, <nNum2>     ╩²╓╡íú
╖╡╗╪╓╡: <nNum1> ░┤╬╗╥∞╗≥<nNum2> ╡─╜ß╣√íú
└²╫╙:? binxor (5, 3)    //╖╡╗╪6
▓╬╝√ú║@2002 [binand](), @2004 [binor](), @2006 [binshr](),@2005 [binshl]( )

.2101
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@21[╫¬╗╗║»╩²╦≈╥²]

bin2i()
╙∩╖¿: bin2i (<cSignedint>)
╙├═╛: ╜½╥╗╕÷16 ▒╚╠╪(2 ╫╓╜┌) ╖√║┼╒√╩²╕±╩╜╡─╫╓╖√┤«╫¬╗╗│╔
╥╗╕÷╒√╩²íú
▓╬╩²:
<cSignedint>        ╥╗╕÷▒φ╩╛╩²╫╓╓╡╡─2 ╫╓╜┌│ñ╡─╫╓╖√┤«íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:     hand: =fopen ("my. prg")
    resoult: =bin2i (freadstr (hand, 2))
        //╚τ╬─╝■╡─═╖┴╜╕÷╫╓╖√╬¬00 F2 ╘≥╖╡╗╪242

▓╬╝√: @2102 [bin2l](), @2103 [bin2w](), @2104 [i2bin](),
 @2105 [l2bin](), @2347 [fread]()

.2102
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@21[╫¬╗╗║»╩²╦≈╥²]

bin2l()
╙∩╖¿: bin2l (<cSignedint>)
╙├═╛: ╜½╥╗╕÷4 ╫╓╜┌╖√║┼╒√╩²╕±╩╜╡─╫╓╖√┤«╫¬╗╗│╔╥╗
╕÷╩²╫╓╓╡íú
▓╬╩²:
<cSignedint>         ╥╗╕÷▒φ╩╛╩²╫╓╓╡╡─4 ╫╓╜┌│ñ╡─╫╓╖√┤«íú
╖╡╗╪╓╡: ╩²╫╓└α╨═íú
└²╫╙:     hand: =fopen ("my. prg")
    resoult: =bin2l (freadstr (hand, 4))
    //╚τ╬─╝■╡─═╖╦─╕÷╫╓╖√╬¬1A 2B 3C 4D ╘≥╖╡╗╪439, 041, 10

▓╬╝√: @2101 [bin2i](), bin2w(), @2104 [i2bin](), @2105 [l2bin](), @2347 [fread]()

.2103
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@21[╫¬╗╗║»╩²╦≈╥²]

bin2w()
╙∩╖¿: bin2w (<expC>)
╙├═╛: ╜½╥╗╕÷2 ╫╓╜┌│ñ╒√╩²╕±╩╜╡─╫╓╖√┤«╫¬╗╗│╔╥╗╕÷
╒√╩²íú
▓╬╩²:
    <expC>     ╥╗╕÷▒φ╩╛╩²╫╓╓╡╡─2 ╫╓╜┌│ñ╡─╫╓╖√┤«íú
╖╡╗╪╓╡: ╩²╫╓└α╨═íú
└²╫╙: hand: =fopen ("my. prg")
    resoult: =bin2i (freadstr (hand, 2))
    // ╚τ╬─╝■╡─═╖┴╜╕÷╫╓╖√╬¬FF FF ╘≥╖╡╗╪65535

▓╬╝√: @2102 [bin2l](), @2101 [bin2i](), @2104 [i2bin](), @2105 [l2bin](), @2347 [fread]()

.2403
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

bof()
╙∩╖¿: bof()
╙├═╛:     ╚╖╢¿╡▒╟░╩²╛▌┐Γ╓╨╡─╝╟┬╝╓╕╒δ╩╟╖±▒╗╢¿╬╗╡╜
╡┌╥╗╕÷╝╟┬╝╓«╟░íú
▓╬╩²:    ╬▐íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═ú¼╝╟┬╝╓╕╒δ╘┌╡┌╥╗╕÷╝╟┬╝╓«╟░╖╡╗╪.T.ú¼
╖±╘≥╖╡╗╪.F.
╦╡├≈:     ╬¿╥╗┐╔─▄░╤╩²╛▌┐Γ╓╨╡─╝╟┬╝╓╕╒δ╥╞╡╜╡┌╥╗╕÷
╝╟┬╝╓«╟░╡─├ⁿ┴ε╩╟skip, ╡▒recno() =1 ╩▒, ╓┤╨╨skip -n ├ⁿ┴ε╜½╩╣bof() ╖╡╗╪╓╡╬¬.T.íú
└²╫╙: use my
    ? recno() // ╖╡╗╪1
    ? bof() // ╖╡╗╪.F.
    skip -1
    ? bof() // ╜½╖╡╗╪.T.
▓╬╝√: @3144[skip], @2441 [eof](), @2473 [recno]()

.1602
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

box3d()
╙∩╖¿: box3d (<nX1>, <nY1>, <nX2>, <nY2>, <nBoxflag>, <nColor>, <nThick>)
╙├═╛: ╗¡┴ó╠σ╖╜┐≥íú
▓╬╩²:
    <nX1, nY1>     ╖╜┐≥╡─╫≤╔╧╜╟╧≤╦╪╫°▒Ωíú
    <nX2, nY2>     ╖╜┐≥╡─╙╥╧┬╜╟╧≤╦╪╫°▒Ωíú
    <nColor>    ▒│╛░╔½íú
    <nBoxflag>    ╬¬1╩▒╗¡═╣╨╬╖╜┐≥ú¼╬¬2╩▒╗¡░╝╨╬╖╜┐≥íú
    <nThick>    ╬¬1╩▒╒²│ú┴ó╠σ╨╬ú¼╬¬2╩▒╖╜┐≥▒╗╝╙╓╪íú
╖╡╗╪╓╡: ╬▐
└²╫╙: box3d (5, 5, 100, 100, 1, 7, 2)
▓╬╝√ú║@1606 [drawbox]( ),@1628 [g_rect]()

.2008
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

btob()
╙∩╖¿: btob (<cDstr>, <nSourcebase>, <nTargetbase>)
╙├═╛: ╜°╨╨╜°╓╞╫¬╗╗, ╜°╓╞╖╢╬º2-32
▓╬╩²:
    <cDstr>         ╩²╓╡╫╓╖√┤«íú
    <nSourcebase>     ╘¡╜°╓╞(╩²╫╓╓╡)íú
    <nTargetbase>        ╨┬╜°╓╞(╩²╫╓╓╡)íú
╖╡╗╪╓╡: ╖╡╗╪╜°╓╞╫¬╗╗║≤╡─╫╓╖√┤«
└²╫╙:    ? btob ("ff", 16, 2)    //╖╡╗╪11111111
    ?btob ("128", 10, 16)    //╖╡╗╪80

.1203
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]
c
╙∩╖¿:    c ( <nCol> )
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╚í╡▒╟░╨╨─│┴╨╡─╓╡
▓╬╩²:
    <nCol>        ▒¿▒φ┴╨
╖╡╗╪╓╡:▒¿▒φ┴╨╓╡
└²╫╙:C( 5)

.1603
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

c_botton()
╙∩╖¿: c_botton (<nRow>, <nCol>, <cTitle>, <nColor>, <nType>)
╙├═╛:    ╗¡│÷╙δmakebotton ╢¿╥σ╡─░┤┼Ñ═Ω╚½═¼╤∙╡─░┤┼Ñ, ╡½<row, col> ╩╟╞┴─╗╫°
▒Ωíú
▓╬╩²:
    <nRow, nCol>        ░┤┼Ñ╬╗╓├(╞┴─╗╫°▒Ω)
    <cTitle>        ░┤┼Ñ▒Ω╠Γ, ╫╓╖√┤«
    <nColor>        ░┤┼Ñ╤╒╔½, ┐╔╬¬0--15
    <nType>        ░┤┼Ñ└α╨═, ┐╔╬¬1--4
╖╡╗╪╓╡: NIL

╙├╖¿▓╬╝√: @1604 [c_window](),  @1002 [makebotton]()

.1703
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

c_clip()
╙∩╖¿: c_clip (<nColor>, <idFlag>)
╙├═╛: ╖╡╗╪╙δ╤╒╔½╓╡╢╘╙ª╡─╟░╛░╗≥▒│╛░╤╒╔½╫╓╖√┤«
▓╬╩²:
<nColor>     ╤╒╔½╓╡(0-15)
<idFlag>     ╬¬0╩▒, <nColor> ╩╟╟░╛░╔½; ╬¬1╩▒, <nColor> ╩╟▒│╛░╔½
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:
    ? c_clip (1, 0) // ╖╡╗╪B
    ? c_clip (2, 0) // ╖╡╗╪G
    ? c_clip (3, 1) // ╖╡╗╪BG

▓╬╝√: @1749 [setcolor]()

.1604
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

c_window()
╙∩╖¿: c_window (<nRow1>, <nCol1>, <nRow2>, <nCol2>, <cTitle>, <nAttr1>, <nAttr2>, <nType>)
╙├═╛: ╗¡│÷╙δmakewindow ╢¿╥σ╡─┤░┐┌═Ω╚½═¼╤∙╡─┤░┐┌
▓╬╩²:
<nRow1, nCol1>        ╬¬┤░┐┌╫≤╔╧╜╟╨╨, ┴╨╫°▒Ω;
<nRow2, nCol2>     ╬¬┤░┐┌╙╥╧┬╜╟╨╨, ┴╨╫°▒Ω;
<cTitle>        ┤░┐┌▒Ω╠Γ, ╥╗╫╓╖√┤«
<nAttr1>        ▒Ω╠Γ╤╒╔½┐╔╬¬1-15;
<nAttr2>        ┤░┐┌▒│╛░╔½, ┐╔╬¬1-15, ╬¬╢╘╙ª╡─╤╒╔½▒Ω║┼
<nType>        ┤░┐┌└α╨═, ┐╔╬¬1-4
╖╡╗╪╓╡: ╬▐
└²╫╙: #include "winbase.inc"    // ▒╪╨δ░ⁿ└¿╕├╬─╝■
PROCEDURE MAIN (arv1, arv2)
local i, j
public frow, fcol, erow, ecol, fname: =' '
    testmouse() // ▓╬╝√: @1508 [m_hide]()
    windowstart()    //WinBase │⌡╩╝╗»
    frow: =fcol: =erow: =ecol: =0
    c_window (2, 5, 23, 70, " ┤µ╖┼╞┴─╗╬─╝■╩╛└²", 1, 2, 1)
    c_botton (4, 7, " ┤µ╚δ╬─╝■", 7, 1)
    c_botton (4, 20, " ╗╓╕┤╬─╝■", 7, 1)
    c_botton (4, 33, "pcx ╬─╝■╧╘╩╛", 7, 1)
    c_botton (4, 50, " ═╦│÷", 7, 1)
    mybox() // ▓╬╝√: @1606 [drawbox]()
    do while.T.
        if mousein (4, 7, 5, 15)
            if m_press (0) ==1. or. m_press (1) ==1
                c_botton (4, 7, " ┤µ╚δ╬─╝■", 7, 2)
                save() // ▓╬╝√: @1642 [saveform]()
                c_botton (4, 7, " ┤µ╚δ╬─╝■", 7, 1)
            endif
        endif
        if mousein (4, 20, 5, 28)
            if m_press (0) ==1. or. m_press (1) ==1
                c_botton (4, 20, " ╗╓╕┤╬─╝■", 7, 2)
                show() // ▓╬╝√: dispform()
                c_botton (4, 20, " ╗╓╕┤╬─╝■", 7, 1)
            endif
        endif
        if mousein (4, 33, 5, 41)
            if m_press (0) ==1. or. m_press (1) ==1
                c_botton (4, 33, "pcx ╬─╝■╧╘╩╛", 7, 2)
                pcx_show() // ▓╬╝√: @1637 [pcx]()
                c_botton (4, 33, "pcx ╬─╝■╧╘╩╛", 7, 1)
            endif
        endif
        if mousein (4, 50, 5, 54). and. (m_press (0) ==1;
            .or. m_press (1) ==1)
            quit
        endif
    enddo
    windowexit()
RETURN

▓╬╝√: @1003 [makewindow](), @1603 [c_botton](), @1512 [m_press]()

.1704
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

calculator()
╙∩╖¿: calculator()
╙├═╛: ╡»│÷╥╗╝╞╦π╞≈
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.1501
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

capslock()
╙∩╖¿: capslock()
╙├═╛: ┤≥┐¬Capslock ╝ⁿ
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.1502
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

capsloff()
╙∩╖¿: capsloff()
╙├═╛: ╣╪▒╒Capslock ╝ⁿ
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.1904
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

cdow()
╙∩╖¿: cdow (<dExp>)
╙├═╛: ┤╙╚╒╞┌╓╡╓╨╖╡╗╪╫╓╖√┤«╨╬╩╜╡──│╥╗╠∞╘┌╥╗╓▄
╓╨╡─╨≥║┼(╨╟╞┌╝╕)íú
▓╬╩²:
    <dExp>     ║╧╖¿╡─╚╒╞┌
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:? cdow (date()) // ╜ß╣√└α╦╞Monday

▓╬╝√: @1912 [day](), @1914 [dow]()

.2009
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

ceiling()
╙∩╖¿: ceiling (<nNum>)
╙├═╛: ╟≤┤≤╙┌╗≥╡╚╙┌nNum ╡─╫ε╨í╒√╩²
▓╬╩²:
    <nNum>     ╩²╓╡▒Σ┴┐
╖╡╗╪╓╡: ╩²╓╡
└²╫╙:? ceiling (5. 8)    //╖╡╗╪5
▓╬╝√ú║@2012 [floor]()

.1905
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

chinesedate()
╙∩╖¿: chinesedate (<dDate>)
╙├═╛: ╜½╚╒╞┌╫¬╗╗╬¬╓╨╣·╧░╣▀╡─╙├─Ωíó╘┬íó╚╒▒φ╩╛╡─╫╓
╖√┤«
▓╬╩²:
    <dDate>    ╚╒╞┌╓╡
╖╡╗╪╓╡: ▒φ╩╛╚╒╞┌╡─╫╓╖√┤«
└²╫╙: chinese (date() )

.2201
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

chr()
╙∩╖¿: chr (<nExp>)
╙├═╛:     ╜½╥╗╕÷╩«╜°╓╞╫¬╗╗│╔╢╘╙ª╡─ASCII ╫╓╖√íúchr() ╥▓┐╔╧≥═Γ▓┐
╔Φ▒╕╖ó╦═┐╪╓╞╫╓╖√║═╗╗┬δ╨≥┴╨íú
▓╬╩²:
    <nExp>    ╥¬╫¬╗╗╗≥╖ó╦═╡─╩«╜°╓╞╩²╫╓╓╡
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:
    ? chr (7) // ╧∞┴σ
    ? chr (100) // ╖╡╗╪d

▓╬╝√: @2202 [asc](), @1504 [inkey]()

.1705
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

clock()
╙∩╖¿: clock()
╙├═╛: ╡»│÷╥╗╩▒╓╙┤░┐┌
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.2404
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

closealias()
╙∩╖¿: closealias (<aliasname>)
╙├═╛: ╣╪▒╒╥╘▒≡├√╓╕╢¿╡─╩²╛▌┐Γ
▓╬╩²:
    <aliasname>        ╩²╛▌┐Γ▒≡├√╡─╫╓╖√┤«
╖╡╗╪╓╡: NIL
└²╫╙: use datafile alias tt
    list
    closealias ("tt")
    list

.2405
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

clrvars()
╙∩╖¿: clrvars()
╙├═╛: ╟σ│²╙╔initvars() ║»╩²┤┤╜¿╡─╫╓╢╬▒Σ┴┐╝»
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐
└²╫╙: ▓╬╝√initvars()

.1906
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

cmonth()
╙∩╖¿: cmonth (<dExp>)
╙├═╛: ┤╙╚╒╞┌╓╡╓╨╖╡╗╪╫╓╖√┤«╨╬╩╜╡─╘┬╖▌├√│╞íú
▓╬╩²:
    <dExp>     ║╧╖¿╡─╚╒╞┌
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:? cmonth (date()) // ╜ß╣√└α╦╞July
▓╬╝√: @1904 [cdow]()

.1706
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

col()
╙∩╖¿: col()
╙├═╛: ╖╡╗╪╞┴─╗╣Γ▒Ω╡─╡▒╟░╬╗╓├╡─┴╨╫°▒Ω╓╡íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═(0-79)
╦╡├≈:     ╘┌╞┴─╗╔╧╡─╚╬║╬╩Σ│÷, COL(), ROW() ║»╩²╢╝╗ß╫╘╢»╕ⁿ╨┬╥╘╖┤╙│
╡▒╟░╣Γ▒Ω╬╗╓├íú╓┤╨╨CLEAR, CLEAR ALL, CLS ╜½░╤COL(), ROW() ╓╪╔Φ╬¬0íú
└²╫╙:// ╘┌╞┴─╗╡╫╨╨╩Σ│÷╡▒╟░╨╨╫°▒Ω╓╡╙δ╡▒╟░┴╨╫°▒Ω
╓╡
 ú└ 24, 10 say " ╡▒╟░╨╨"+str (row(), 2) +space (10) +" ╡▒╟░┴╨"+str (col(), 2)

▓╬╝√: @1741 [row](), @1753 [setpos](), @1738 [prow](), @1736 [pcol]()

.2206
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

countchr()
╙∩╖¿: countchr (<cStr>, <cChar>)
╙├═╛: ╝╞╦π╫╓╖√╘┌╫╓╖√┤«╓╨│÷╧╓╡─┤╬╩²
▓╬╩²:
    <cStr>         ╫╓╖√┤«
    <cChar>     ╫╓╖√
╖╡╗╪╓╡: │÷╧╓╡─┤╬╩²
└²╫╙:? countchr ("Winbase, WinBase, WINBASE, "B")    //╖╡╗╪2

.1204
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

countfor
╙∩╖¿:    countfor( <cExp>)
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨═│╝╞╡▒╟░╩²╛▌┐Γ╓╨┬·╫π╠⌡╝■╡─
╦∙╙╨╝╟┬╝╕÷╩²
▓╬╩²:
    <cExp>    ╠⌡╝■▒φ┤∩╩╜
╖╡╗╪╓╡: ╝╟┬╝╕÷╩²
└²╫╙:COUNTFORú¿í░'╘╞─╧' $ shengshií▒ú⌐íú

.1205
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

ctack
╙∩╖¿:    ctack (<cCond>, <cDbfname> , <cnField>, <nLen>)
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╚í┬·╫π╠⌡╝■╡─╝╟┬╝╡─╓╕╢¿╡──┌
╚▌
▓╬╩²:
    <cCond>    ╠⌡╝■▒φ┤∩╩╜
    <cDbfname>    ╩²╛▌┐Γ├√
    <cnField>    ╫╓╢╬├√╗≥╫╓╢╬╨≥║┼
    <nLen>    ╖╡╗╪╫╓╖√┤«╡─│ñ╢╚
╖╡╗╪╓╡: ╫╓╖√┤«╨╬╩╜╡─╫╓╢╬─┌╚▌
└²╚τ: CTACK  ú¿" '╘╞─╧╩í' $ NAME"ú¼"COUNTRY. DBF"ú¼2ú¼10ú⌐

.1907
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

ctod()
╙∩╖¿: ctod (<cDate>)
╙├═╛: ╜½╫╓╖√┤«╨╬╩╜╡─╚╒╞┌╫¬╗╗│╔╚╒╞┌╓╡íú
▓╬╩²:
<cDate>     ╥╗╕÷▒φ╩╛╚╒╞┌╡─╫╓╖√▒φ┤∩╩╜, ╥╗╕÷┐╒┤«┐╔╙├space (8) ╗≥╒▀"" ╗≥
╒▀"/ /"▒φ╩╛
╖╡╗╪╓╡: ╚╒╞┌└α╨═
└²╫╙: // ╧┬├µ╡─┤·┬δ┐╔╥╘╖└╓╣▓┘╫≈╒▀╝ⁿ╚δ▓╗║╧╖¿╡─╚╒
╞┌
    my_day: =ctod ("")
    clear
    10, 10 say " ╩Σ╚δ─π╡─╔·╚╒" get my_day
    read

▓╬╝√: @3302[set date], @1915 [dtoc](), @1918 [dtos](), @1908 [date]()

.2303
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

curdir()
╙∩╖¿:     curdir ( [<cDriveSpec>])
╙├═╛:     ╚╖╢¿╡▒╟░╣ñ╫≈─┐┬╝╓╨╡─DOS ─┐┬╝íú
▓╬╩²:
[<cDriveSpec>]    ▓Θ╤»╡─┤┼┼╠╟²╢»╞≈íú╚▒╩í╘≥╩╣╙├╡▒╟░╣ñ╫≈╝╟┬╝╓╨
╡─╟²╢»╞≈íú
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:    ? curdir ("C: ") // ╖╡╗╪└α╦╞WinBase\BIN

▓╬╝√: @2308 [d_path]()

.1707
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

curdrive()
╙∩╖¿: curdrive()
╙├═╛: ╖╡╗╪╡▒╟░╟²╢»╞≈╫╓╖√┤«(╚τA: \, C: \ ╡╚)
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙: ú└ 24, 10 say padc (" ╡▒╟░╟²╢»╞≈╩╟"+curdrive(), 70) // ╧╘╩╛C: \ ╡╚

▓╬╝√: @2306 [d_drive]()

.1708
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

curoff()
╙∩╖¿: curoff()
╙├═╛: ╣╪▒╒╣Γ▒Ω, ╙├╙┌UCDOS 2.0íóNCDOS
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL

└²╫╙▓╬╝√: @1709 [curon]()

.1709
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

curon()
╙∩╖¿: curon()
╙├═╛: ┤≥┐¬╣Γ▒Ω, ╙├╙┌UCDOS 2.0íóNCDOS
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
└²╫╙:    // ╘┌╩Σ╚δ╟░╣╪▒╒╣Γ▒Ω, ╩Σ╚δ╜ß╩°╩▒┤≥┐¬╣Γ▒Ω
    curoff() // ╣╪▒╒╣Γ▒Ω
    10, 20 say " ╩Σ╚δ╨╒├√: " get name // ╜╙╩╒╩Σ╚δ
    read
    curon() // ┤≥┐¬╣Γ▒Ω

▓╬╝√: @1708 [curoff]()

.1206
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

cv
╙∩╖¿:    cv( <cFielf>, <cDbfname> ,<nLen> )
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╜½┤·┬δ╫¬╗╗╬¬╩╡╝╩─┌╚▌╩Σ│÷
▓╬╩²:
    cField        ╫╓╢╬├√
    cDbfname    ░∩╓·╬─╝■┐Γ
nLen        ╧▐╓╞╩╡╝╩─┌╚▌╩Σ│÷╡─│ñ╢╚ú¼╚⌠│ñ╢╚╩í┬╘ú¼╘≥░┤╡▒╟░
╧ε╡─│ñ╢╚╝╞╦πíú
╖╡╗╪╓╡:┤·┬δ─┌╚▌
└²╚τú║ CV  ú¿COUNTRYú¼"COUNTRY"ú¼20ú⌐

.2304
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

d_chdir()
╙∩╖¿:     d_chdir (<cPath>)
╙├═╛:     ╕─▒Σ┬╖╛╢
▓╬╩²:
    <cPath>     ╫╓╖√┤«, ╥¬╫¬╡╜╡──┐┬╝├√
╖╡╗╪╓╡: ╩²╫╓└α╨═, 0 ╗≥-1. │╔╣ª╖╡╗╪0, ╖±╘≥╖╡╗╪-1
└²╫╙: // ▒╛└²╩Σ│÷╡▒╟░╫╙─┐┬╝├√, ▓ó╘┌╕├┬╖╛╢╧┬╜¿┴ó├√╬¬
MYTEMP ╫╙─┐┬╝, //▓ó╫¬╡╜MYTEMP ╫╙─┐┬╝╧┬╜°╨╨▓┘╫≈íú

cur_path: =d_path() // ╗±╡├╡▒╟░╚½┬╖╛╢├√
putstr (24, 10, " ╡▒╟░┬╖╛╢: "+cur_path+" "+curdir(), 7) // ╩Σ│÷└α╦╞C: \BCM
if isdir ("MYTEMP") // ╚τMYTEMP ╫╙─┐┬╝▓╗┤µ╘┌, ╘≥╜¿┴ó╦ⁿ
    d_chdir ("MYTEMP") // ╫¬╡╜MYTEMP ╫╙─┐┬╝╧┬
    copy file c: \winbase\readme. txt to my_read. txt // ┐╜▒┤╥╗╬─╝■╡╜
                    //MYTEMP ╫╙─┐┬╝╧┬
    dir *. * // ▓Θ┐┤MYTEMP ╫╙─┐┬╝╧┬╡─╬─╝■
    inkey (0)
    d_chdir (cur_path) // ╫¬╡╜╜¿┴óMYTEMP ╟░╡──┐┬╝╧┬
endif

▓╬╝√: @2360 [isdir](), @2307 [d_mkdir]()

.2305
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

d_chdrv()
╙∩╖¿: d_chdrv (<nDrive>)
╙├═╛: ╕─▒Σ╡▒╟░╟²╢»╞≈
▓╬╩²:
<nDrive>     ╥¬╫¬╡╜╡─╟²╢»╞≈├√, 1 ╬¬A ╟², 2 ╬¬B ╟², 3 ╬¬C ╟², ╥╘┤╦└α═╞
╖╡╗╪╓╡: ╩²╫╓└α╨═, 0 ╗≥-1. │╔╣ª╖╡╗╪0, ╖±╘≥╖╡╗╪-1

└²╫╙▓╬╝√: @2306 [d_drive]()

.2306
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

d_drive()
╙∩╖¿:     d_drive()
╙├═╛:     ╖╡╗╪╡▒╟░╟²╢»╞≈║┼(1=A, 2=B ╡╚)
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╡▒╟░╟²╢»╞≈╓╡1, 2... (1=A, 2=B)
└²╫╙: /* ╚τ╡▒╟░╟²╢»╞≈▓╗╩╟C ╟², ╘≥╫¬╡╜C ╟², ╚τ│╔╣ª, ╘≥╥╘░╫╔½╫≈╬¬
▒│╛░╔½╩Σ│÷╨┼╧ó" ╡▒╟░╟²╢»╞≈C: "*/
my_drive: =d_drive() // ╗±╡├╟░╟²╢»╞≈╓╡
if my_drive<>3 // ╚τ╡▒╟░╟²╢»╞≈▓╗╩╟C ╟²
    if d_chdrv (3) ==0 // ╫¬╡╜C ╟², ╚τ│╔╣ª
        putstr (24, 10, " ╡▒╟░╟²╢»╞≈C: ", 7)
            // ╥╘░╫╔½╫≈╬¬▒│╛░╔½╩Σ│÷╨┼╧ó
    endif
endif

▓╬╝√: @1707 [curdrive](), @2305 [d_chdrv](),@2310 [defdrive]( ),lastdrv()

.2307
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

d_mkdir()
╙∩╖¿: d_mkdir (<cDir>)
╙├═╛: ╜¿┴ó╫╙─┐┬╝
▓╬╩²:
     <cDir>     ╫╓╖√┤«, ╜½╥¬╜¿┴ó╡─╫╙─┐┬╝├√
╖╡╗╪╓╡: ╩²╫╓└α╨═, 0 ╗≥-1. │╔╣ª╖╡╗╪0, ╖±╘≥╖╡╗╪-1
└²╫╙:// ╘┌╡▒╟░┬╖╛╢╧┬╜¿┴ó╫╙─┐┬╝my, ╚╗║≤╔╛│²╦ⁿ
    if d_mkdir ("my") ==0 //my │╔╣ª╜¿┴ó
        10, 20 say" ╫╙─┐┬╝my ╥╤╜¿┴ó"
        11, 20 say" ░┤╚╬╥╗╝ⁿ╜½╔╛│²╫╙─┐┬╝my"
        inkey (0)
        if d_rmdir ("my") ==0 //my │╔╣ª╔╛│²
        ¬└12, 20 say " ╫╙─┐┬╝my ╥╤╔╛│²"
        endif
    else
        ? " ╫╙─┐┬╝my ╜¿┴ó╩º░▄"
    endif

▓╬╝√: @2360 [isdir]()

.2308
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

d_path()
╙∩╖¿:     d_path()
╙├═╛:     ╖╡╗╪┬╖╛╢╚½├√
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╫╓╖√└α╨═
▓╬╝√: @2304 [d_chdir](), @2303 [curdir](), @2337 [filepath]( )

.2309
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

d_rmdir()
╙∩╖¿: d_rmdir (<cDir>)
╙├═╛: ╔╛│²╓╕╢¿─┐┬╝
▓╬╩²:
     <cDir>     ╥¬╔╛│²╡──┐┬╝├√
╖╡╗╪╓╡: ╩²╫╓└α╨═, 0 ╗≥-1. │╔╣ª╖╡╗╪0, ╖±╘≥╖╡╗╪-1

└²╫╙▓╬╝√: @2307 [d_mkdir]()

.1207
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

dage
╙∩╖¿:dage( <dField>)
╙├═╛:╜½╚╒╞┌╫¬╗╗╬¬─Ω┴Σ
▓╬╩²:
    <dField>    ╚╒╞┌╨═╫╓╢╬íú
╖╡╗╪╓╡:╩²╓╡
└²╚τú║ DAGE( birthday )

.1908
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

date()
╙∩╖¿: date()
╙├═╛: ╚í╧╡═│╚╒╞┌
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╚╒╞┌└α╨═
└²╫╙:? date() // ╜ß╣√└α╦╞94─Ω2╘┬18╚╒

▓╬╝√: @3301[set century], @3302[set date], @1912 [day](), @1924 [month](), @1932 [year]()

.1208
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

dates
╙∩╖¿:    dates (<nYear>, <nMonth>, <nDay> ,<nLen>)
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╜½╩²╓╡╫¬╗╗╬¬╖√║╧╓╨╣·╧░╣▀╡─
╚╒╞┌╫╓╖√┤«
▓╬╩²:
    <nYear>    ╩²╓╡ú¼─Ω
    <nMonth>    ╩²╓╡ú¼╘┬
    <nDay>    ╩²╓╡ú¼╚╒
    <nLen>    ╫╓┤«│ñ
╖╡╗╪╓╡:╚╒╞┌╫╓╖√┤«
└²╫╙:DATES ( 63ú¼12ú¼29ú¼12)    //╖╡╗╪: 63─Ω12╘┬29╚╒
▓╬╝√ú║@1905 [chinesedate]( )

.1909
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

dateisleap()
╙∩╖¿: dateisleap (<dDate>)
╙├═╛: ╚╖╢¿╓╕╢¿╚╒╞┌╩╟╖±╩╟╚≥─Ω
▓╬╩²:
    <dDate>    ╚╒╞┌╓╡
╖╡╗╪╓╡: ╩╟╚≥─Ω╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
└²╫╙:? dateisleap (date())

.1910
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

date ()
╙∩╖¿:datetoa (dDate)
╙├═╛: ╜½╚╒╞┌╫¬╗╗│╔╡─╩²╓╡╩²╫Θ,╩²╫Θ╕±╩╜╬¬{─Ωíó╘┬íó╚╒}
▓╬╩²:dDate:╚╒╞┌▒Σ┴┐
╖╡╗╪╓╡:╚╒╞┌╫¬╗╗│╔╡─╩²╓╡╩²╫Θ
└²╫╙:
    arr:=datetoa(date())
    ?arr[1]

.1911
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

datetoage()
╙∩╖¿: Datetoage (<dDate>)
╙├═╛: ╜½╚╒╞┌╫¬╗╗╬¬─Ω┴Σ╩²╓╡
▓╬╩²:
     <dDate>    ╚╒╞┌▒Σ┴┐
╖╡╗╪╓╡: ╧╡═│╚╒╞┌╡──Ω╙δdate ╡──Ω╡─▓ε
└²╫╙:? datetoage (ctod ("68/7/30"))

.1912
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

day()
╙∩╖¿:     day (<dExp>)
╙├═╛:     ╢╘╥╗╕÷╚╒╞┌╟≤╓╡▓ó┤╙╓╨│Θ╚í│÷╘┬╓╨╡─╚╒╨≥║┼, ╕├
╚╒╨≥║┼╥╘╩²╫╓╨╬╩╜▒φ╩╛╥╗╕÷╘┬╓╨╡─╡┌╝╕║┼íú
▓╬╩²:
    <dExp>     ║╧╖¿╡─╚╒╞┌
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:? day (date()) // ╜ß╣√└α╦╞18

▓╬╝√: @1908 [date](), @1924 [month](), @1932 [year]()

.1913
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

daynum
╙∩╖¿: daynum (<dDate>)
╙├═╛: ╚╖╢¿╥╗─Ω╓╨╥╤╣²╚Ñ╠∞╩²(1 ╘┬1 ╚╒╩╟╡┌1 ╠∞)
▓╬╩²:
    <dDate>    ╚╒╞┌╓╡
╖╡╗╪╓╡: ╒√╩²
└²╫╙:? daynum (date())

.2406
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbappend()
╙∩╖¿:     dbappend()
╙├═╛:     ╕°╡▒╟░╣ñ╫≈╟°╓╨╡─╩²╛▌┐Γ╘÷╝╙╥╗╠⌡┐╒░╫╨┬╝╟
┬╝, ╬─╝■╓╕╒δ╓╕╧≥╒Γ╠⌡╨┬╘÷╝╟┬╝íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: NIL
└²╫╙:     use my
    dbappend()
    skip
    ? eof() // ╖╡╗╪.T.

▓╬╝√: @3101[append blank], @3150[use], @2472 [netuse]()

.2408
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbclearfil()
╙∩╖¿: dbclearfil()
╙├═╛: ╟σ│²╡▒╟░╣ñ╫≈╟°╓╨╣²┬╦╞≈╡─┬▀╝¡╣²┬╦╠⌡╝■íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
└²╫╙:
/*╧┬├µ╡─└²╫╙╧╚╜¿┴ó╥╗╕÷╣²┬╦╞≈ú¼┴╨│÷╣²┬╦║≤╡─╩²
╛▌, ╚╗║≤╟σ│²╒Γ╕÷╣²┬╦╞≈íú*/
 use Emp new
dbsetfilter ( {||age<20}, "age<20")
list Emp->name
dbclearfil()

▓╬╝√: @2430 [dbsetfilter](), @3138[set filter]

.2409
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbclearind()
╙∩╖¿: dbclearind()
╙├═╛: ╘┌╡▒╟░╣ñ╫≈╟°╓╨╣╪▒╒╦∙╙╨╗ε╢»╦≈╥²ú¼╦∙╙╨╦≈╥²╬─
╝■╢╝▒╗╣╪▒╒íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
└²╫╙: dbclearind() // ╣╪▒╒╦∙╙╨╗ε╢»╦≈╥²

▓╬╝√: @2431 [dbsetindex](), @2432 [dbsetorder]()

dbclearrel()
╙∩╖¿: dbclearrel()
╙├═╛: ╘┌╡▒╟░╣ñ╫≈╟°╓╨╣╪▒╒╦∙╙╨╗ε╢»╣╪╧╡íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
└²╫╙: dbclearral() // ╣╪▒╒╦∙╙╨╗ε╢»╣╪╧╡

▓╬╝√: @2433 [dbsetrelat](), @3141[set relation]

dbcloseall()
╙∩╖¿:     dbcloseall()
╙├═╛:     ╩═╖┼╦∙╙╨▒╗╒╝╙├╡─╣ñ╫≈╟°, ╥▓╝┤╣╪▒╒╦∙╙╨╣ñ╫≈╟°
╓╨╡─╦∙╙╨╩²╛▌╬─╝■╥╘╝░╦∙╙╨╗ε╢»╡─╦≈╥²╬─╝■íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: NIL
└²╫╙:     dbcloseall() // ╩═╖┼╦∙╙╨▒╗╒╝╙├╡─╣ñ╫≈╟°

▓╬╝√: @2411 [dbclosearea](), @3104[clear all], @3105[close]

.2411
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbclosearea()
╙∩╖¿:     dbclosearea()
╙├═╛:    ╩═╖┼╡▒╟░╣ñ╫≈╟°, ╥▓╝┤╣╪▒╒╡▒╟░╣ñ╫≈╟°╓╨╦∙╙╨╩²
╛▌┐Γ╥╘╝░╦∙╙╨╗ε╢»╡─╦≈╥²╬─╝■íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: NIL
└²╫╙:     select (1)
    dbclosearea() // ╣╪▒╒╡▒╟░╣ñ╫≈╟°1
    select (2)

▓╬╝√: dbcloseall(), @3104[clear all], @3105[close]

.2412
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbcommit()
╙∩╖¿: dbcommit()
╙├═╛: ╩╣╡▒╟░╣ñ╫≈╟°╓╨╚╬║╬╬─╝■▒╕╖▌▒╗╨┤╚δ┤┼┼╠╓╨íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
└²╫╙:     select (2)
    dbcommit() // ╬─╝■▒╕╖▌▒╗╨┤╚δ┤┼┼╠

▓╬╝√: @3106[commit], @2413 [dbcommitall]()

.2413
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbcommitall()
╙∩╖¿: dbcommitall()
╙├═╛: ╩╣╦∙╙╨╣ñ╫≈╟°╓╨╡─╬─╝■▒╕╖▌▒╗╨┤╚δ┤┼┼╠╓╨íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
└²╫╙: dbcommitall() // ╦∙╙╨╣ñ╫≈╟°╓╨╡─╬─╝■▒╕╖▌▒╗╨┤╚δ┤┼┼╠

▓╬╝√: @3106[commit], @2412 [dbcommit]()

.2414
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbcreate()
╙∩╖¿:    dbcreate (<cDatebase>, <aStruct>)
╙├═╛:     ╕∙╛▌╩²╫Θ╓╨┤µ╖┼╡─╨┼╧ó╜¿┴ó╥╗╕÷╨┬╡─╩²╛▌┐Γíú
▓╬╩²:
    <cDatebase>         ╥¬╜¿┴ó╡─╩²╛▌┐Γ├√
     <aStruct>         ┤µ╖┼╩²╛▌┐Γ╜ß╣╣╨┼╧ó╡─╩²╫Θ
╖╡╗╪╓╡: NIL
╦╡├≈:     ╜¿┴ó╩²╛▌┐Γ╬─╝■╡─<aStruct> ▓╬╩²╙ª╕├╩╟╥╗╕÷╙δ║»╩²╜¿
┴ó╡─╩²╫Θ╙╨╧α═¼╜ß╣╣╡─╩²╫Θ▓╬╩²íúSTRCTURE EXTENDED └α╨═╡─╩²╫Θ╘¬╦╪
▒╪╨δ╙╨╟í╡▒╡─└α╨═íú╝┤╩╣╢╘╖╟╩²╫╓╫╓╢╬╥▓▒╪╨δ╓╕│÷
╨í╩²│ñ╢╚íú└α╨═├Φ╩÷╚τ╧┬ú║
    C ╫╓╖√╨═    N ╩²╓╡╨═    D ╚╒╞┌╨═
    M ▒╕╫ó╨═    L ┬▀╝¡╨═

└²╫╙:     use gz
    aray: =dbstruct()
    aadd ( {"name", "c", 10, 0}) // ╠φ╝╙╥╗╕÷╫╓╢╬
    dbcreate ("mydbf", aray)

▓╬╝√: @3109[copy structure extended], @2435 [dbstruct]()

dbcreateind()
╙∩╖¿: dbcreateind (<cIndexname>, <cKeyexp>, [<bKeyexp>], [lUnique])
╙├═╛: ╕°╡▒╟░╣ñ╫≈╟°╓╨╡─╬─╝■╜°╨╨╦≈╥²íú
▓╬╩²:
<cIndexname>        ╜½▒╗┤┤╜¿╡─╦≈╥²╬─╝■╡─╬─╝■├√íú
<cKeyexp>    ╜½▒╗╖┼╚δ╦≈╥²╬─╝■╡─╫╓╖√┤«╨╬╩╜╡─╦≈╥²╣╪╝ⁿ╫╓íú
 [<bKeyexp>]         ╥╗╕÷╙├└┤├Φ╩÷╦≈╥²╣╪╝ⁿ╫╓╡─┐╔╤í┤·┬δ┐Θíú
 [lUnique]     ╓╕╢¿╕├╣╪╝ⁿ╫╓╜½╩╣╡├╦≈╥²╬─╝■╓╨├┐╕÷╦≈╥²╝ⁿ╓╡
╢╝╩╟╬¿╥╗╡─, ╢╘╩²╛▌┐Γ╓╨╛▀╙╨╧α═¼╝ⁿ╓╡╡─╝╟┬╝╜÷╢╘
╫ε╟░├µ╡──╟╕÷╝╟┬╝╦≈╥²íú
╖╡╗╪╓╡: NIL
└²╫╙: select (2)
    dbcreateind ("new",, "name") // ╥╘name ╫╓╢╬╬¬╦≈╥²╣╪╝ⁿ╫╓, ┤┤╜¿╦≈╥²╬─╝■new

▓╬╝√: breindex(), @3150[use], @2438 [dbusearea]()

.2416
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbdelete()
╙∩╖¿: dbdelete()
╙├═╛: ╕°╡▒╟░╣ñ╫≈╟°╓╨┤≥┐¬╡─╩²╛▌┐Γ╡─╡▒╟░╝╟┬╝┤≥
╔╧╔╛│²▒Ω╝╟íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
╦╡├≈:     ╙├dbdelte() ║»╩²┤≥╔╧╔╛│²▒Ω╝╟╡─╝╟┬╝, ╙├SET DELETED ├ⁿ┴ε─▄╣²┬╦╡⌠íú╥▓┐╔
╙├PACK ├ⁿ┴ε╜½╕├╝╟┬╝┤╙╩²╛▌┐Γ╓╨╔╛│²íú
└²╫╙: use my
    dbdelete() // ╕°╩²╛▌┐Γmy ╡─╡┌╥╗╠⌡╝╟┬╝┤≥╔╧╔╛│²▒Ω╝╟

▓╬╝√: @3114[delete], @3136[set deleted]

.2417
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbeval()
╙∩╖¿:     dbeval (<bBlock>, [<bForcondition>], [<bWhilecondition>], [<nNext>];
     [<nRecord>], [<lRest>])
╙├═╛:     ╗∙╙┌╩²╛▌┐Γ╓╨╠⌠╤í│÷╡─├┐╕÷╝╟┬╝╢╘╥╗╕÷┤·┬δ
┐Θ╟≤╓╡íú╝╟┬╝═¿╣²╙δ╧┬┴╨╫╙╛Σ╢╘╙ª╡─▓╬╩²└┤╤í╘±, ╒Γ╨⌐
╫╙╛Σ╬¬WinBase ├ⁿ┴ε╖╢╬º─┌╡─for, while, next ║═record, rest ╫╙╛Σíú
▓╬╩²:
    <bBlock>         ╙├╙┌╟≤╓╡╡─┤·┬δ┐Θíú
<bForcondition>    ╖╡╗╪┬▀╝¡╓╡╡─┤·┬δ┐Θ, ╚⌠╡─┤·┬δ┐Θ╖╡╗╪╓╡╬¬.T., ╘≥┤·┬δ┐Θ
▒╗╟≤╓╡íú
<bWhilecondition>    ╖╡╗╪┬▀╝¡╓╡╡─┤·┬δ┐Θ, ╚⌠┤·┬δ┐Θ╖╡╗╪╓╡╬¬.T., ╘≥┤·┬δ┐Θ▒╗
╟≤╓╡íú╖±╘≥dbeval( ) ║»╩²▒╗╓╒╓╣íú
[<nNext>]     ╥╗╕÷╩²╫╓╓╡, ╢╘╙ª├ⁿ┴ε╓╨next ╫╙╛Σ╧α═¼╡─╖╜╩╜╠ß╣⌐╥╗╤í╘±
╖╢╬ºíú
[<nRecord>]     ╥╗╕÷╩²╫╓╓╡, ╙├╙┌╓╕╢¿▒╗╟≤╓╡╡─╡Ñ╕÷╝╟┬╝║┼íú
[<lRest>]     ╥╗╕÷┬▀╝¡▒φ┤∩╩╜, ╡▒▒φ┤∩╩╜╬¬.T., ╖╢╬º╬¬╩ú╧┬╡─╝╟┬╝; ╖±╘≥╫≈
╙├╫╓╢╬╬¬╚½╛╓íú
╖╡╗╪╓╡: ╫╓╖√┤«ú¼╣ñ╫≈╟°╡─▒≡├√íú
└²╫╙:// ╧┬└²╩Σ│÷┬·╫πage>20 ╠⌡╝■╡─╦∙╙╨╝╟┬╝╡─no, name, age
    use my
    dbeval ( {||if (age>20, qout (no, name, age), nil})

▓╬╝√: @1806 [aeval](), avel()

.2418
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbf()
╙∩╖¿: dbf()
╙├═╛: ╚╖╢¿╡▒╟░╣ñ╫≈╟°╡─▒≡├√íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
╦╡├≈: ╚⌠╡▒╟░╣ñ╫≈╟°╓╨├╗╙╨╬─╝■▒╗┤≥┐¬, ╘≥╖╡╗╪╓╡╬¬┐╒
┤«íú
└²╫╙:     use my
    ? dbf() // ╖╡╗╪"my"

▓╬╝√: @2402 [alias]()

.2419
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbfilter()
╙∩╖¿: dbfilter()
╙├═╛: ░┤╫╓╖√┤«╨╬╩╜╖╡╗╪╡▒╟░╣²┬╦╞≈▒φ┤∩╩╜íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈: ╚⌠╡▒╟░╣ñ╫≈╟°╓╨├╗╙╨╩╣╙├╣²┬╦╞≈, ╕├║»╩²╖╡╗╪╓╡
╬¬┐╒┤«íú
└²╫╙:     use my
    temp: =dbfilter()
    ? temp // ╖╡╗╪╡▒╟░╣²┬╦╞≈▒φ┤∩╩╜

▓╬╝√: @3138[set filter], @2425 [dbrelation](), @2426 [dbrselect]()

.1819
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

dbftoa()
╙∩╖¿: dbftoa()
╙├═╛:     ╖╡╗╪╙╔╡▒╟░╩²╛▌┐Γ─┌╚▌╣╣│╔╡─╢■╬¼╩²╫Θ, ╫ó╥Γ╩²
╛▌┐Γ╠½┤≤╜½║─╛í─┌┤µ
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╙δ╩²╛▌┐Γ─┌╚▌╧α╢╘╙ª╡─╩²╫Θ
└²╫╙:
arr: = { }
use datafile
arr: =dbftoa()
? arr [1, 1 ]

▓╬╝√:@1816 [atodbf]( )

.2420
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbgobottom()
╙∩╖¿:     dbgobottom()
╙├═╛:     ╕°╡▒╟░╣ñ╫≈╟°╓╨┤≥┐¬╡─╩²╛▌┐Γ╡─╬─╝■╓╕╒δ╥╞
╡╜╫ε║≤╡─┬▀╝¡╝╟┬╝╔╧íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: NIL
╦╡├≈:     ╚τ╣√╡▒╟░╣ñ╫≈╟°╓╨┤µ╘┌╥╗╕÷╗ε╢»╡─╦≈╥², ╘≥╬─╝■
╓╕╒δ▒╗dbgobottom() ║»╩²╥╞╡╜╦≈╥²║≤╡─╫ε║≤╥╗╕÷╝╟┬╝╔╧íú╚τ╣√╡▒
╟░╣ñ╫≈╟°╓╨┤µ╘┌╥╗╕÷╗ε╢»╡─╣²┬╦╞≈, ╘≥╓╗╙╨╖√║╧╣²
 ┬╦╠⌡╝■╡─╝╟┬╝▓┼▒╗dbgobottom() ║»╩²┐╝▓Θíú
└²╫╙:     use my
    dbgobottom()
    skip
    ? eof() // ╖╡╗╪.T.

▓╬╝√: @2421 [dbgoto](), @3117[go/goto], @2422 [dbgotop]()

.2421
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbgoto()
╙∩╖¿:     dbgoto (<nRecordnumber>)
╙├═╛:     ╕∙╛▌╓╕╢¿╡─╝╟┬╝║┼╜½╬─╝■╓╕╒δ╢¿╬╗╡╜╧α╙ª╡─
╝╟┬╝╔╧íú
▓╬╩²:
    <nRecordnumber>     ╩²╫╓╓╡, ╝╟┬╝║┼
╖╡╗╪╓╡: NIL
╦╡├≈:     ╚τ╣√╧α╙ª╡─╝╟┬╝▓╗┤µ╘┌, ╘≥╬─╝■╓╕╒δ▒╗╢¿╬╗╡╜╫ε
║≤╥╗╕÷╝╟┬╝╓«║≤╡─┬▀╝¡╝╟┬╝╔╧íú▓ó╟╥EOF() ║»╩²╖╡╗╪.T.íú
└²╫╙:     use my
    dbgoto (4)

▓╬╝√: @3117[go/goto], @2422 [dbgotop]()

.2422
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbgotop()
╙∩╖¿:     dbgotop()
╙├═╛:     ╜½╡▒╟░╣ñ╫≈╟°╓╨┤≥┐¬╡─╩²╛▌┐Γ╡─╬─╝■╓╕╒δ╥╞
╡╜╡┌╥╗╕÷┬▀╝¡╝╟┬╝╔╧íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: NIL
╦╡├≈:     ╚τ╣√╡▒╟░╣ñ╫≈╟°╓╨┤µ╘┌╥╗╕÷╗ε╢»╡─╦≈╥², ╘≥╬─╝■
╓╕╒δ▒╗dbgobottom( ) ║»╩²╥╞╡╜╦≈╥²║≤╡─╡┌╥╗╕÷╝╟┬╝╔╧íú╚τ╣√╡▒╟░
╣ñ╫≈╟°╓╨┤µ╘┌╥╗╕÷╗ε╢»╡─╣²┬╦╞≈, ╘≥╓╗╙╨╖√║╧╣²┬╦
╠⌡╝■╡─╝╟┬╝▓┼▒╗dbgobottom() ║»╩²┐╝▓Θíú
└²╫╙:     use my
    dbgotop()
    skip -1
    ? bof() // ╖╡╗╪.T.

▓╬╝√: @3117[go/goto], @2421 [dbgoto]()

.2423
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbrecall()
╙∩╖¿: dbrecall()
╙├═╛: ╚⌠╡▒╟░╝╟┬╝▒╗┤≥╔╧╔╛│²▒Ω╝╟, ╘≥dbrecall() ║»╩²╜½╗╓╕┤╦ⁿíú
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
└²╫╙://╗╓╕┤my ╓╨▒╗┤≥╔╧╔╛│²▒Ω╝╟╡─╦∙╙╨╝╟┬╝
    use my
    do while. not. eof()
        dbrecall()
        skip
    enddo

▓╬╝√: @3130[recall]

.2424
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbreindex()
╙∩╖¿:     dbreindex()
╙├═╛:     ╓╪╨┬╜¿┴ó╡▒╟░╣ñ╫≈╟°╓╨╡─╦∙╙╨╗ε╢»╦≈╥²╬─╝■íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: NIL
╦╡├≈:     ╩╣╙├dbreindex() ║»╩²║≤, ╬─╝■╓╕╒δ▒╗╢¿╬╗╡╜╓≈╦≈╥²╬─╝■╡─╡┌
╥╗╕÷┬▀╝¡╝╟┬╝╔╧íú
└²╫╙:     use my
    dbreindex()
    skip -1
    ? bof() // ╖╡╗╪.T.

▓╬╝√: @3131[reindex]

.2425
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbrelation()
╙∩╖¿: dbrelation (<nExp>)
╙├═╛: ╚╖╢¿set relation ├ⁿ┴ε╦∙╜¿┴ó╡─╣╪┴¬▒φ┤∩╩╜íú
▓╬╩²:
<nExp>     ╘┌set relation ├ⁿ┴ε╨╨░ⁿ║¼╡─╣╪╧╡▒φ╓╨╓╕╢¿╥╗╬╗╓├íú
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈: dbrelation() ║»╩²┤µ╓ⁿ╥╗╕÷▒φ╩╛╫╓╢╬├√╡─╫╓╖√┤«, ╞Σ╓╨╫╓╢╬├√
╦∙╓╕╢¿╡─╫╓╢╬╬¬set relation ├ⁿ┴ε╠ß╣⌐╥╗╕÷╝ⁿíú╚⌠╡▒╟░╣ñ╫≈╟°╓╨
├╗╙╨╗ε╢»╡─╣╪╧╡, ╕├║»╩²╖╡╗╪╓╡╬¬┐╒┤«íú
└²╫╙://my1, my2, my3 ╕∙╛▌╝╟┬╝║┼╜°╨╨╦≈╥², ╘┘╜¿┴ó╣╪╧╡
    use my1 index act_one
    select 2
    use my2 index act_two
    select 3
    use my3 index act_three
    select 1
    set relation to kill into my2, to said into my3
    ? dbrelation (2) // ╖╡╗╪kill
    ? dbrelation (3) // ╖╡╗╪said
    ? dbrelation (4) // ╖╡╗╪╥╗┐╒┤«

▓╬╝√: @3141[set relation], @2419 [dbfilter](), @2426 [dbrselect]()

.2426
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbrselect()
╙∩╖¿: dbrselect (<nExp>)
╙├═╛: ╚╖╢¿╡▒╟░╣ñ╫≈╟°╓╨╓╕╢¿╡─╣╪╧╡╣ñ╫≈╟°íú
▓╬╩²:
 <nExp>     ╘┌set relation ├ⁿ┴ε╨╨░ⁿ║¼╡─╣╪╧╡▒φ╓╨╓╕╢¿╥╗╬╗╓├íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙://my1, my2, my3 ╕∙╛▌╝╟┬╝║┼╜°╨╨╦≈╥², ╘┘╜¿┴ó╣╪╧╡
    use my1 index act_one
    select 2
    use my2 index act_two
    select 3
    use my3 index act_three
    select 1
    set relation to kill into my2, to said into my3
    ? dbrelation (2) // ╖╡╗╪kill
    ? dbrselect (2) // ╖╡╗╪3
    ? alias (dbrselect (2)) // ╖╡╗╪my3

▓╬╝√: @3141[set relation], @2419 [dbfilter](), @2426 [dbrselect]()

.2427
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbseek()
╙∩╖¿:     dbseek (<expKey>, [<lSoftkey>])
╙├═╛:     ╘┌╡▒╟░╣ñ╫≈╟°╓╨╦╤╦≈╥╗╕÷╞Σ╣╪╝ⁿ╫╓╓╡╙δ╓╕╢¿
╡─╣╪╝ⁿ╫╓╓╡╧α═¼╗≥░ⁿ║¼╡─╡┌╥╗╕÷┬▀╝¡╝╟┬╝, ╚τ╣√┤µ
╘┌╒Γ╤∙╥╗╕÷╝╟┬╝, dbseek() ║»╩²╖╡╗╪┬▀╝¡╒µ╓╡.T., ╟╥┤╦╝╟┬╝│╔╬¬╡▒
╟░╝╟┬╝,╖±╘≥dbseek() ║»╩²╖╡╗╪.F.íú
▓╬╩²:
<expKey>     ╥╗╕÷╙δ╥¬▓Θ╒╥╡─╝╟┬╝╧α╣╪╡─╚╬║╬└α╨═╡─╣╪╝ⁿ╫╓
╓╡íú
<lSoftkey>     ╥╗╕÷╛÷╢¿╩╟╖±╓┤╨╨╥╗╕÷╚φ╦╤╦≈╡─┬▀╝¡╓╡íú┤╦▓╬╩²
╘┌╖√║╧╠⌡╝■╡─╝╟┬╝├╗╙╨╒╥╡╜╩▒, ╕∙╛▌╞Σ╓╡╛÷╢¿╬─╝■╓╕
╒δ╡─╬╗╓├íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═ú¼╒╥╡╜╖╡╗╪.T.ú¼╖±╘≥╖╡╗╪.F.
└²╫╙:     use my index age
    dbseek (20)
    ? age // ╖╡╗╪20

▓╬╝√: @3134[seek], @3116[find]

.2428
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbselectar()
╙∩╖¿:     dbselectar (<nArea>|<cAlias>)
╙├═╛:     ╩╣╤í╢¿╡─╣ñ╫≈╟°│╔╬¬╡▒╟░╣ñ╫≈╟°
▓╬╩²:
<nArea>     ╥╗╕÷╩²╫╓╓╡(0-250), ╞Σ╓╡░ⁿ║¼╜½╥¬╤í╘±╡─╣ñ╫≈╟°║┼íú
<cAlias>     ╥╗╕÷╫╓╖√┤«, ╞Σ╓╡╩╟╜½╥¬╤í╘±╡─╣ñ╫≈╟°╡─▒≡├√íú
╖╡╗╪╓╡: NIL
╦╡├≈:     ╩╣╙├dbselectar() ║»╩²║≤, ╥╘║≤╡─╩²╛▌┐Γ▓┘╫≈╢╝╜½╓╗╢╘┤╦╣ñ╫≈
╟°, │² ╖╟├≈╚╖╓╕╢¿╘┌┴φ╥╗╣ñ╫≈╟°╓╨╜°╨╨─│╥╗╩²╛▌┐Γ
▓┘╫≈íú╡▒<nArea> ╤í0 ╩▒, ╜½╘┌╬┤▒╗╒╝╙├╡─╣ñ╫≈╟°╓╨╓╕╢¿╥╗╨≥║┼╫ε
╡═╒▀╫≈╬¬╡▒╟░╣ñ╫≈╟°íú
└²╫╙: dbselectar (2)

▓╬╝√: @3135[select]

.2429
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbsetdriver()
╙∩╖¿:     dbsetdriver (<cDriver>)
╙├═╛:     ╓╕╢¿╚▒╩í╡─╩²╛▌┐Γ╟²╢»╞≈íú
▓╬╩²:
<cDriver>     ╥╗╕÷╫╓╖√┤«, ╞Σ╓╡╩╟╬¬╙ª╙├│╠╨≥╓╨╡─╩²╛▌┐Γ▓┘╫≈╓╕
╢¿╥╗╚▒╩í╡─╟²╢»íú
╖╡╗╪╓╡: ╫╓╖√└α╨═, ╖╡╗╪╡▒╟░╚▒╩í╡─╩²╛▌┐Γ╟²╢»╞≈├√
└²╫╙: dbsetdrive ("DBFNTX")
    ...
    if (dbsetdrive() <>"DBFNTX")
        ? " ╩²╛▌┐Γ╟²╢»▓╗╢╘! "
    endif

.2430
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbsetfilter()
╙∩╖¿:     dbsetfilter (<bCondtion>, [<cCondtion>])
╙├═╛:     ╬¬╡▒╟░╣ñ╫≈╟°╔Φ╓├╥╗╕÷╣²┬╦╞≈
▓╬╩²:
    <bCondtion>         ┤·┬δ┐Θ╨╬╩╜╡─╣²┬╦╠⌡╝■íú
    [<cCondtion>]         ╫╓╖√┤«╨╬╩╜╡─╣²┬╦╠⌡╝■íú
╖╡╗╪╓╡: NIL
╦╡├≈: ╚⌠┴╜╕÷▓╬╩²╢╝▒╗╔Φ╓├, ╘≥╦ⁿ├╟▒╪╨δ▒φ╩╛═¼╥╗╕÷╣²
┬╦╠⌡╝■íú
    ╚⌠[<cCondtion>] ▓╬╩²╚▒╩í, ╕├║»╩²╖╡╗╪╥╗┐╒┤«, ╖±╘≥╖╡╗╪nilíú
└²╫╙:     use my
    dbsetfilter ( {||age<20}, "age<20")
            // ╔Φ╓├╥╗╕÷╣²┬╦╞≈, ╣²┬╦╠⌡╝■╬¬age<20
    ? dbfilter() // ╖╡╗╪age<20

▓╬╝√: @2419 [dbfilter](), @3138[set filter]

.2431
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbsetindex()
╙∩╖¿:     dbsetindex (<cIndexname>)
╙├═╛:     ╘┌╡▒╟░╣ñ╫≈╟°╓╨┤≥┐¬╥╗╕÷╦≈╥²╬─╝■íú
▓╬╩²:
    <cIndexname>     ╜½▒╗┤≥┐¬╡─╦≈╥²╬─╝■├√íú
╖╡╗╪╓╡: NIL
╦╡├≈:     ╨┬╦≈╥²╬─╝■▒╗┤≥┐¬║≤, ╝╟┬╝╓╕╒δ╓╕╘┌╥╘╓≈╦≈╥²╬─
╝■╬¬╨≥╡─╡┌╥╗╕÷┬▀╝¡╝╟┬╝╔╧íú╕├╣ñ╫≈╟°╓╨╘¡└┤┤≥┐¬
╡─╦≈╥²╬─╝■╚╘╚╗╩╟╗ε╡─íú╚⌠╨┬┤≥┐¬╡─╦≈╥²╬─╝■╩╟
╕├╣ñ╫≈╟°╓╨╬¿╥╗╡─╦≈╥²╬─╝■, ╘≥╕├╦≈╥²╬─╝■│╔╬¬╓≈
╦≈╥²╬─╝■, ╖±╘≥╘¡└┤╡─╓≈╦≈╥²╬─╝■▓╗▒Σíú
└²╫╙: dbsetindex ("my1. ntx")
    skip -1
    ? bof() // ╖╡╗╪.T.

▓╬╝√: @3139[set index]

.2432
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbsetorder()
╙∩╖¿: dbsetorder (<nOrdernum>)
╙├═╛: ╘┌╡▒╟░╣ñ╫≈╟°╡─╗ε╢»╦≈╥²╓╨╓╕╢¿╥╗╓≈╦≈╥²íú
▓╬╩²:
    <nOrdernum>         ╓╕╢¿╡─╓≈╦≈╥²╡─╦≈╥²╨≥║┼íú
╖╡╗╪╓╡: NIL
╦╡├≈: ╦≈╥²╨≥║┼┤╙1 ┐¬╩╝╕∙╛▌┤≥┐¬╡─╦│╨≥╝╞╩²íú
    ╚⌠<nOrdernum> ▓╬╩²╚í╬¬0, ╘≥╫ε╧╚┤≥┐¬╡─╦≈╥²╬¬╓≈╦≈╥²íú
└²╫╙:     use my index no, name, age
    dbsetorder (2) // ╓≈╦≈╥²╬¬name ╫╓╢╬

▓╬╝√: @2431 [dbsetindex]()

.2433
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbsetrelat()
╙∩╖¿:     dbsetrelat (<nArea>|<cAlias>, <bExp>, [<cExp>])
╙├═╛:     ╘┌╡▒╟░╣ñ╫≈╟°(╕╕╣ñ╫≈╟°) ╙δ╓╕╢¿╣ñ╫≈╟°(╫╙╣ñ╫≈╟°) ╓«
╝Σ╜¿┴ó╕╕/ ╫╙╣╪╧╡( ╣╪┴¬)íú
▓╬╩²ú║
<cAlias>     ╥╗╕÷╫╓╖√┤«, ╞Σ╓╡╩╟╜½╥¬│╔╬¬╫╙╣ñ╫≈╟°╡─╣ñ╫≈╟°╡─
▒≡├√íú
    <bExp>     ┤·┬δ┐Θ╨╬╩╜╡─╣╪╧╡▒φ┤∩╩╜íú
    [<cExp>]     ╬─▒╛╨╬╩╜╡─╣╪╧╡▒φ┤∩╩╜íú
╖╡╗╪╓╡: NIL
╦╡├≈:     ┴╜╣ñ╫≈╟°╜¿┴ó╕╕/ ╫╙╣╪╧╡, ╜½╩╣╫╙╣ñ╫≈╟°╙δ╕╕╣ñ╫≈
╟°═¼▓╜íú
    ╚τ╣√╫╙╣ñ╫≈╟°╓╨╙╨╥╗╗ε╢»╦≈╥², ╘≥╥╞╢»╕╕╣ñ╫≈╟°╝╟
┬╝╓╕╒δ╜½╘┌╫╙╣ñ╫≈╟°╓╨╥²╞≡╥╗SEEK ▓┘╫≈, SEEK ▓┘╫≈╡─╣╪╝ⁿ╫╓╩╟
╕∙╛▌<bExp>, [<cExp>] ▓╬╩²╓╕╢¿╡─▒φ┤∩╩╜íú╚τ╣√╫╙╣ñ╫≈╟°╓╨├╗╙╨╗ε╢»╦≈
╥², ╘≥╥╞╢»╕╕╣ñ╫≈╟°╝╟┬╝╓╕╒δ╜½╘┌╫╙╣ñ╫≈╟°╓╨╥²╞≡
╥╗GOTO ▓┘╫≈, GOTO ▓┘╫≈╡─╣╪╝ⁿ╫╓╩╟╕∙╛▌<bExp>, [<cExp>] ▓╬╩²╓╕╢¿╡─▒φ┤∩╩╜íú
└²╫╙:// ╘┌my ╙δcust ╓«╝Σ╜¿┴ó╕╕/ ╫╙╣╪╧╡, ╣╪╧╡▒φ┤∩╩╜"cust->name"
    use my NEW
    use cust New index name
    select my
    dbsetrelat ("cust", {|| cust->name}, "cust->name")

▓╬╝√: @3141[set relation]

.2434
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbskip()
╙∩╖¿:     dbskip (<nRecord>)
╙├═╛:     ╧α╢╘╙┌╡▒╟░╝╟┬╝╥╞╢»╝╟┬╝╓╕╒δíú
▓╬╩²:
<nRecord>     ╧α╢╘╙┌╡▒╟░╝╟┬╝╥╞╢»╡─╝╟┬╝╩², <nRecord> ╬¬╒², ╘≥╧≥╟░╥╞╢»;    <nRecord> ╬¬╕║, ╘≥╧≥
║≤╥╞╢»íú╚▒╩í╓╡╬¬1íú
╖╡╗╪╓╡: NIL
└²╫╙:  use my
    dbskip (-1)
    ? bof() // ╖╡╗╪.T.

▓╬╝√: @2421 [dbgoto](), @3117[go/goto]

.2435
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbstruct()
╙∩╖¿:     dbstruct()
╙├═╛:     ╜¿┴ó╥╗╕÷╩²╫Θ, ╦ⁿ░ⁿ└¿╡▒╟░┤≥┐¬╩²╛▌┐Γ╡─STRUCTURE EXTENDED ╨┼╧óíú
▓╬╩²:     ╬▐
╦╡├≈:     dbstruct() ║»╩²╜¿┴ó╥╗╕÷╢α╬¼╩²╫Θ, ╩²╫Θ╓╨╘¬╦╪╡─╩²─┐╬¬╩²
╛▌┐Γ╫╓╢╬╡─╩²─┐íúDBS_NAME, DBS_TYPE, DBS_LEN, DBS_DEC ╩╟4 ╕÷╫╙╩²╫Θ, ╒Γ4 ╕÷╫╙╩²╫Θ░┤╦ⁿ├╟╡─
├√╫╓(╔╧╨╨┴╨│÷) └┤╥²╙├íú╚⌠╬─╝■╩╟╘┌┴φ╥╗╕÷╣ñ╫≈╟°╓╨┤≥
┐¬╡─, ╘≥╢╘dbstruct() ║»╩²╡─╡≈╙├┐╔╥╘╩╣╙├▒≡├√▒φ┤∩╩╜íú
╖╡╗╪╓╡: ╩²╫Θ└α╨═
└²╫╙: use gz
    aray: =dbstruct()
    aadd ( {"name", "c", 10, 0)}) // ╠φ╝╙╥╗╕÷╫╓╢╬
    dbcreate ("mydbf", aray)

▓╬╝√: @3109[copy structure extended], @2414 [dbcreate]()

.2436
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbunlock()
╙∩╖¿:     dbunlock()
╙├═╛:     ╩═╖┼╡▒╟░╣ñ╫≈╟°╓╨▒╗╙ª╙├│╠╨≥╦°╢¿╡─╩⌠╙┌╡▒
╟░╜°│╠╡─╬─╝■╗≥╝╟┬╝íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: NIL
╦╡├≈:     ╕├║»╩²╓╗╘┌╣▓╧φ╩²╛▌┐Γ, ═°┬τ╗╖╛│╓╨╙╨╨ºíú
└²╫╙:     dbunlock()

▓╬╝√:     @3148[unlock], @2437 [dbunlockall]()

.2437
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbunlockall()
╙∩╖¿:     dbunlockall()
╙├═╛:     ╩═╖┼╦∙╙╨╣ñ╫≈╟°╓╨▒╗╙ª╙├│╠╨≥╦°╢¿╡─╩⌠╙┌╡▒
╟░╜°│╠╡─╬─╝■╗≥╝╟┬╝íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: NIL
╦╡├≈:     ╕├║»╩²╓╗╘┌╣▓╧φ╩²╛▌┐Γ, ═°┬τ╗╖╛│╓╨╙╨╨ºíú
└²╫╙: dbunlockall()

▓╬╝√: @3148[unlock], @2436 [dbunlock]()

.2438
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

dbusearea()
╙∩╖¿: dbusearea ( [<lNewName>], [<cDriver>], <cName>,;
     [<cAlias>], [<lShared>], [<lReadOnly>])
╙├═╛:     ╘┌╣ñ╫≈╟°╓╨┤≥┐¬╩²╛▌┐Γ╬─╝■íú
▓╬╩²:
[<lNewName>]     ╥╗╕÷┬▀╝¡╓╡, <lNewName> ╚í╬¬.T. ╩▒, ╘┌╡▒╟░╬┤▒╗╒╝╙├╡─╣ñ╫≈╟°╓╨╚í╥╗╨≥║┼
╫ε╨í╒▀╫≈╬¬╡▒╟░╣ñ╫≈╟°; <lNewName> ╚í╬¬.F. ╗≥╚▒╩í╩▒, ╛═╩╣╙├╡▒╟░╣ñ╫≈
╟°íú
[<cDriver>]    ╓╕╢¿╬¬╡▒╟░╣ñ╫≈╟°╖■╬±╡─╩²╛▌┐Γ╟²╢»╞≈├√│╞(╫╓
╖√┤«), ╚▒╩í╘≥╩╣╙├╚▒╩í╡─╩²╛▌┐Γ╟²╢»╞≈íú
<cName>     ╜½╥¬┤≥┐¬╡─╩²╛▌┐Γ╬─╝■├√íú
[<cAlias>]     ╓╕╢¿╕·╡▒╟░╣ñ╫≈╟°╧α┴¼╧╡╡─╩²╛▌┐Γ╡─▒≡├√ú¼╚▒╩í╩▒
▒≡├√╕∙╛▌<cName> ▓╬╩²╔Φ╢¿íú
[<lShared>]     ╥╗╕÷┬▀╝¡╓╡, ╡▒<lShared> ╚í.T. ╩▒, ╘╩╨φ═°┬τ╓╨╞Σ╦ⁿ╜°│╠┤µ╚í╡▒╟░╜°│╠╡─
╩²╛▌┐Γ; ╡▒<lShared> ╚í.F. ╩▒, ▓╗╘╩╨φ═°┬τ╓╨╞Σ╦ⁿ╜°│╠┤µ╚í╡▒╟░╜°│╠╡─╩²
╛▌┐Γ; ╚▒╩í╘≥░┤_SET_EXCLUSIVE ╡─╔Φ╓├╜ß╢¿╩╟╖±╘╩╨φ╞Σ╦ⁿ╜°│╠┤µ╚í
íú
[<lReadOnly>]    ╥╗╕÷┬▀╝¡╓╡, ╡▒╚í.T. ╓╡╩▒, ╜√╓╣╢╘╡▒╟░╣ñ╫≈╟°╜°╨╨╩²╛▌┐Γ▒╕
╖▌, ╟╥┤≥┐¬╡─╩²╛▌┐Γ╬─╝■<cName> ▒╗╔Φ╓├╬¬╓╗╢┴╬─╝■; ╡▒╚í.F. ╓╡╩▒, ╘╩╨φ
▒╕╖▌íú╚▒╩í╬¬.F.íú
╖╡╗╪╓╡: NIL
└²╫╙:     dbusearea (.T., "dbfndx", "my")
        // ╘┌╡▒╟░╬┤▒╗╒╝╙├╡─╣ñ╫≈╟°╓╨╚í╥╗╨≥║┼╫ε
        // ╨í╒▀╫≈╬¬╡▒╟░╣ñ╫≈╟°, ┤≥┐¬╩²╛▌┐Γ╬─╝■my

▓╬╝√: @3150[use]

.2310
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

defdrive()
╙∩╖¿: defdrive()
╙├═╛: ╚╖╢¿╚▒╩í╡─DOS ┤┼┼╠╟²╢»╞≈
▓╬╩²: ╬▐
╖╡╗╪╓╡: ┤·▒φ╟²╢»╞≈╡─╡Ñ╕÷┤≤╨┤╫╓╖√
└²╫╙:     def_drive: =defdrive() +": "
    ? def_drive

.1710
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

delay()
╙∩╖¿: delay (<nTime>)
╙├═╛: ╤╙│┘╓╕╢¿╡─╩▒╝Σ
▓╬╩²:
    <nTime>     ╤╙│┘╡─├δ╩²
╖╡╗╪╓╡: NIL
└²╫╙: delay (1) // ╤╙│┘╥╗├δ╓╙

▓╬╝√: @1504 [inkey]()

.1301
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

deldlg()
╙∩╖¿: deldlg (<nHandle>, <idType>, <cTitle>)
╙├═╛: ╜½╛Σ▒·╬¬nHandle, └α╨═╬¬type, ▒Ω╠Γ╬¬title ╡─╢╘╗░┐≥╔╛│²
▓╬╩²:
    <nHandle>    ╢╘╗░┐≥╛Σ▒·
    <idType>    ╢╘╗░┐≥└α╨═
    <cTitle>    ╢╘╗░┐≥▒Ω╠Γ
╖╡╗╪╓╡:│╔╣ª╘≥╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
└²╫╙:     #include "winbase.inc"
    memvar dlg_succ, check_ret, edit_ret, radio_ret, list_ret, mul_ret

    procedure main()
    local init_pos: =1
    private setdlg_ret, dlg_succ
    private check_ret, edit_ret, radio_ret, list_ret, mul_ret

    windowstart()
    msgbox (" ╔╛│²─│└α╢╘╗░┐≥", " ╙ª╙├║»╩²DELDLG() ", 1)
    setdlg_ret=del_demo (init_pos)
    if. not. dlg_succ
        msgbox (" ╔Φ╓├╫Θ║╧╢╘╗░┐≥╩º░▄", "", 1)
    endif
    windowexit()
    return

    function del_demo (init_pos)

    dlg_succ=setdlg (19687, "check", " ╢α╧ε┐≥",;
     { {"CHECK1", 0}, {"CHECK2", 0}, {"CHECK3", 1}}, 1, 8, 20, init_pos)
    dlg_succ=setdlg (19687, "radio", " ╡Ñ╧ε┐≥", {"RADIO1", "RADIO2"},;
        1, 8, 42, init_pos)
    dlg_succ=setdlg (19687, "botton", " ═Ω│╔", "OK", 15, 35)

    makedlg (19687, " ╫Θ║╧╢╘╗░┐≥")
    msgbox (" ╧╓╘┌╔╛│²╢α╧ε┐≥", "", 1)
    deldlg(19687,"check"," ╢α╧ε┐≥")
    makedlg (19687, " ╫Θ║╧╢╘╗░┐≥")
    msgbox (" ╒²╚τ╦∙┐┤╡╜╡─", " ╢α╧ε┐≥╥╤▒╗╔╛│²", 1)
    removedlg (19687)
return nil

.2439
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

deleted()
╙∩╖¿: deleted()
╙├═╛: ▓Γ╩╘╡▒╟░╝╟┬╝╩╟╖±╥╤▒╗╫÷╔╧╔╛│²▒Ω╓╛íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ┬▀╝¡└α╨═ú¼╚τ╣√╝╟┬╝╫÷╔╧╔╛│²▒Ω╓╛╖╡╗╪.T.ú¼╖±╘≥╖╡
╗╪.F.
└²╫╙:
use my
? deleted() // ╖╡╗╪.F.
dbdelete()
? deleted() // ╖╡╗╪.T.

▓╬╝√: @2416 [dbdelete](), @3114[delete], @3136[set deleted], @3129[pack], @3130[recall]

.2311
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

delfiles()
╙∩╖¿: delfiles (<cFilespec>)
╙├═╛: ╔╛│²╓╕╢¿╡─╦∙╙╨╬─╝■
▓╬╩²:
    <cFilespec>         ╬─╝■├√,cFilespec ╓╨┐╔║¼╙╨═¿┼Σ╖√? ╙δ*
╖╡╗╪╓╡: ╬▐
└²╫╙: delfiles ("*. TMP")

.2440
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

descend()
╙∩╖¿: descend (<exp>)
╙├═╛: ╜¿┴ó╥╗╕÷╜╡╨≥╦≈╥²▓ó╘╩╨φ▓┘╫≈╒▀╢╘╦≈╥²╦╤╦≈íú
▓╬╩²:
    <exp>        ╦≈╥²╝ⁿ
╖╡╗╪╓╡: ╖╡╗╪╓╡╙δ<exp> ╛▀╙╨╧α═¼└α╨═íú
└²╫╙:     use my
    index on descend (age) to temp // ╜¿┴ó╜╡╨≥╦≈╥²

▓╬╝√: @3116[find], @3118[index], @3122[locate], @2427 [dbseek]()

.1209
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

design()
╙∩╖¿:     design (<cPrtname>, <cDbfalias>, <cFomalias>, <nPrtflag>)
╙├═╛:     ╙├╙┌╔Φ╝╞╢α╓╓╢α╤∙╡─╩²╛▌▒¿▒φ╩Σ│÷╕±╩╜, ┐╔░╤╔Φ
╝╞íó╘ñ╧╘╩╛íó┤≥╙í╚┌╬¬╥╗╠σ, ┐╔╫╘╢»╔·│╔┐╒▒φ╗≥═¿╣²┴Θ
╗ε╤í╘±╩²╛▌┐Γ╓╨╡─╫╓╢╬╔·│╔╦∙╨Φ╥¬╡─▒¿▒φ╡╚íú
▓╬╩²:
    <cPrtname>     ▒¿▒φ╬─╝■├√(. PRT), ╚⌠╬¬┐╒, ╘≥╜¿┴ó╨┬▒φ
    <cDbfalias>     ╩²╛▌┐Γ▒≡├√
    <cFomalias>     ╕±╩╜╬─╝■▒≡├√
    <nPrtflag>     ┤≥╙í▒Ω╝╟, ╝┤
            0== ╔Φ╝╞┤≥╙í
            1== ╓╗╫╝┤≥╙í
            2== ▓╗╫╝▓┘╫≈
            3== ╥╗░π▓┘╫≈
            4== ▓╗─▄┤µ┼╠
└²╫╙ú║
    use user alias a_user        // ┤≥┐¬╩²╛▌┐Γ
    use user_fom alias a_fom    // ┤≥┐¬user ╩²╛▌┐Γ╡─form ╬─╝■
    design ("", "a_user", "a_form", 0)    // ╜°╚δ▒¿▒φ╔Φ╝╞╗╖╛│

.1711
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

devout()
╙∩╖¿: devout (<exp>)
╙├═╛: ╜½╥╗╕÷▒φ┤∩╩╜╖ó╦═╡╜╡▒╟░╩Σ│÷╔Φ▒╕╔╧íú
▓╬╩²:
    <exp>        ╩Σ│÷╡─▒φ┤∩╩╜
╖╡╗╪╓╡: NIL
╦╡├≈: devout() ║»╩²┤≥╙í▒φ┤∩╩╜╡─╬╗╓├╙╔DEVPOS() ║»╩²┐╪╓╞íú
└²╫╙:
    /* ╧┬├µ└²╫╙╗≥╘┌┤≥╙í╗·╔╧┤≥╙í"Winbase ═╝╬─╧╡═│", ╗≥╒▀╘┌╞┴
─╗╔╧╧╘╩╛"printer not on"*/
 local stuffin: ="Winbase ═╝╬─╧╡═│"
eval ( {||if (set (_set_printer), devout (stuffin),;
devout ("printer not on"))})

▓╬╝√: @1712 [devpos]()

.1712
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

devpos()
╙∩╖¿:     devpos (<nRow>, <nCol>)
╙├═╛:     ╓╪╓├╣Γ▒Ω╗≥╓╪╓├┤≥╙í═╖, ╛▀╠σ╟Θ┐÷╥└└╡╙┌SET DEVICE ╡─╫┤╠¼íú
▓╬╩²:
    <nRow>     ROW() ╗≥PROW() ╡─╨┬╓╡
    <nCol>     COL() ╗≥PCOL() ╡─╨┬╓╡
╖╡╗╪╓╡: NIL
╦╡├≈:     ╚τ╣√╦∙╔Φ╓├╡─┤≥╙í═╖╨╨╫°▒Ω╨í╙┌PROW() ╡─╓╡, ╘≥╫╘╢»╧≥
┤≥╙í╗·╖ó╦═╥╗╕÷╗╗╥│┐╪╓╞╖√íú
└²╫╙:
/* ╧┬├µ└²╫╙╙δú└12, 20 say " ╗╢╙¡╩╣╙├Winbase ═╝╬─╧╡═│" ╫≈╙├╧α═¼*/
    devpos (12, 20)
    qout (" ╗╢╙¡╩╣╙├Winbase ═╝╬─╧╡═│")

▓╬╝√: @1711 [devout](), @1753 [setpos]()

.1713
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

dial()
╙∩╖¿: DIAL (<cTelephoneNum>, [<nCommPort>], [ITone]
╙├═╛: ▓ª╡τ╗░║┼┬δ
▓╬╩²:
<cTelephoneNum>     ╥¬▓ª╡─╡τ╗░║┼┬δ, ┐╔╥╘░ⁿ║¼╟╢╚δ╡─╕±╩╜╗»╗≥╡≈╓╞╜Γ
╡≈╞≈┐╪╓╞╫╓╖√íú
<nCommPort>    ┐╔╤í╡─═¿╤╕╢╦┐┌║┼, (COM1 ╓┴COM4=1 ╓┴4, ▓╬╝√╧┬├µ╡─╠╓┬█)íú
<ITone>     ┐╔╤í╡─▓ª║┼╖╜╖¿▒Ω╓╛íú╒µ╬¬╥⌠╞╡▓ª║┼, ╝┘╬¬┬÷│σ▓ª║┼íú
╖╡╗╪╓╡: ┬▀╝¡╓╡
└²╫╙:? DIAL ("5146096", 1,.T.)
▓╬╝√:@1714 [dialclr]()

.1714
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

dialclr()
╙∩╖¿: DIALCLR()
╙├═╛: ┤╙═¿╤╢╢╦┐┌▓≡│²╡≈╓╞╜Γ╡≈╞≈
▓╬╩²: ╬▐
╖╡╗╪╓╡: ┬▀╝¡╓╡
▓╬╝√:@1713 [dial]()

.3503
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@35[╡═╝╢╬─╝■├ⁿ┴ε]

dir
╙∩╖¿: dir <xcFileSpec>
╙├═╛:     ▓╗┤°▓╬╩²╩▒, DIR ├ⁿ┴ε╖╡╗╪╥╗╕÷╜÷║¼╙╨. DBF ║≤╫║╡─╬─╝■╡─┴╨
▒φ, ╧╘╩╛╬─╝■├√│╞, ╫ε╜ⁿ╨▐╕─╚╒╞┌, ╬─╝■╓╨╡─╝╟┬╝╩²íú╚τ╣√DIR ├ⁿ┴ε
╓╨║¼╙╨╟²╢»╞≈, ┬╖╛╢╗≥╒▀─ú╩╜(* ╗≥? ═¿┼Σ╖√), ╘≥╖╡╗╪╥╗╕÷└α╦╞
DOS ╧╘╩╛╕±╩╜╡─╬─╝■┴╨▒φ, ▒φ╓╨┴╨│÷╬─╝■╗∙▒╛├√│╞íó╬─╝■
└⌐╒╣├√íó╫╓╜┌│ñ╢╚íó╫ε╜ⁿ╨▐╕─╚╒╞┌íú
▓╬╩²:
<xcFileSpec>         ╟²╢»╞≈íó─┐┬╝║═╥¬╧╘╩╛╬─╝■╡─╦╡├≈, ┐╔╥╘╩╟╥╗╕÷└¿╘┌
╘░└¿║┼╓╨╡─▒φ┤∩╩╜íú
└²╫╙: dir ( *. prg )

▓╬╝√: @2301 [adir](), @2313 [directory](), @2315 [dirfiles](),
@2312 [dirdirs]( ), @2314 [direval]()

.2312
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

dirdirs()
╙∩╖¿: dirdirs (<cDirPath>)
╙├═╛: ╘┌╓╕╢¿╡─┬╖╛╢╓╨▓Θ╒╥┬╖╛╢├√
▓╬╩²:
<cDirPath>         ┬╖╛╢├√╫╓╖√┤«ú¼╚⌠╬¬┐╒╘≥╘┌╡▒╟░┬╖╛╢╓╨▓Θ╒╥
╖╡╗╪╓╡: ┤µ╓ⁿ╫╙─┐┬╝├√╡─╩²╫Θ
└²╫╙:    arr: =dirdirs ("*. *", "c: \winbase")
    ? arr [1]

.2313
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

directory()
╙∩╖¿:     directory ( [<cDirSpec>], [<cAttributes>])
╙├═╛:     ╚í╓╕╢¿─┐┬╝╓╨╡─╬─╝■╨┼╧óíú
▓╬╩²:
[<cDirSpec>]     ╟²╢»╞≈, ╫╙─┐┬╝║═╬─╝■╡─╖╢╬º╨┼╧óíú╕├▓╬╩²▒╪╨δ╩╟╥╗
╫╓╖√▒φ┤∩╩╜íú▒φ┤∩╩╜╓╨┐╔╥╘╩╣╙├═¿┼Σ╖√íú╚▒╩í╬¬╡▒
╟░╫╙─┐┬╝╧┬╡─╦∙╙╨╬─╝■íú
 [<cAttributes>]    ╥╗╕÷╓╕╢¿╠╪╩Γ╬─╝■╩⌠╨╘╡─╫╓╖√┤«, ║»╩²╖╡╗╪╡─╩²╫Θ
╓╨╜½░ⁿ║¼╒Γ╕÷╫╓╖√┤«╦∙╓╕╢¿└α╨═╡─╬─╝■íú╠╪╩Γ└α
╨═░ⁿ└¿: H= ╥■▓╪╬─╝■, S= ╧╡═│╬─╝■, D= ─┐┬╝╬─╝■, V= ╛φ▒Ω(▓╗░ⁿ└¿╞Σ╦ⁿ╧ε)íú│²
╖╟╩╣╙├V ▓╬╩², ╖±╘≥╫▄╩╟░ⁿ└¿▓╗╩⌠╙┌╥╘╔╧╠╪╩Γ└α╨═╡─╞╒
═¿╬─╝■íú
╖╡╗╪╓╡: ╩²╫Θ└α╨═
╦╡├≈: ┤╦║»╩²╖╡╗╪╥╗║¼5 ╕÷╫╙╩²╫Θ╫≈╬¬╘¬╦╪╡─╢α╬¼╩²
╫Θíú
    ╫╙╩²╫Θ    ╩²╛▌└α╨═    ╔∙├≈│ú╩²
    1         char         F_NAME (╬─╝■├√)
    2         num         F_SIZE (╬─╝■│ñ╢╚)
    3         date         F_DATE (╬─╝■╫ε║≤╨▐╕─╚╒╞┌)
    4         char         F_TIME (╬─╝■╫ε║≤╨▐╕─╩▒╝Σ)
    5         char         F_ATTR (╬─╝■╩⌠╨╘)
└²╫╙: // ╜½╕∙─┐┬╝╧┬╬─╝■╡──┐┬╝╨┼╧ó┤µ╚δ╩²╫Θ╓╨ú¼
    // ▓ó╧╘╩╛╡┌╥╗╕÷╬─╝■╡─╨┼╧óíú
public resoult: = { }
resoult: =directory ("c: \")
for i=1 to 5
    ? resoult [1] [i]
next i

▓╬╝√: @2301 [adir]()

.2314
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

direval()
╙∩╖¿: direval (<cFilespes>, <bAction>)
╙├═╛: ╢╘┬·╫π╠⌡╝■╡─╬─╝■├√╓┤╨╨┤·┬δ┐Θ
▓╬╩²:
    <cFilespes>    ┐╔╥╘░ⁿ└¿═¿┼Σ╖√╡─╬─╝■├√
    <bAction>     ╓┤╨╨┤·┬δ┐Θ
╖╡╗╪╓╡: ╬▐
└²╫╙:
    bb: = {|x|qout (x [1])}
    direval ("*. prg", bb)

.2315
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

dirfiles()
╙∩╖¿: dirfiles (<cFileSpec>, <cDirPath>)
╙├═╛: ╘┌╓╕╢¿╡─┬╖╛╢╓╨╗±╚í╬─╝■├√
▓╬╩²:
    <cFileSpec>         ╬─╝■├√╫╓╖√┤«ú¼┐╔║¼═¿┼Σ╖√(*,?)
    <cDirPath>        ┬╖╛╢├√╫╓╖√┤«ú¼
╖╡╗╪╓╡: ┤µ╓ⁿ╬─╝■├√╡─╩²╫Θ
└²╫╙:    arr: =dirfiles ("*. *", "c: \winbase")
    ? arr [1]

.2316
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

dirtolist()
╙∩╖¿: dirtolist (<cDirSpec>)
╙├═╛: ╚í╓╕╢¿┬╖╛╢╧┬┤°╙╨┬╖╛╢╡─╦∙╙╨╬─╝■
▓╬╩²:
    <cDirSpec>     ╓╕╢¿╡─┬╖╛╢├√║═╬─╝■├√ú¼┐╔║¼═¿┼Σ╖√
╖╡╗╪╓╡: ╬─╝■├√╩²╫Θ
└²╫╙:     arr: =dirtolist ()
    ? arr [1]

.2317
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

disksize()
╙∩╖¿: DISKSIZE (<nDriveSpec>)
╙├═╛: ╚╖╢¿╓╕╢¿┤┼┼╠╡─╕±╩╜╗»║≤╡─╚▌┴┐
▓╬╩²:
    <nDriveSpec>        ▒Ω╩╢┤┼┼╠╟²╢»╞≈╡─╒√╩²
                ╡Σ╨═╓╡╬¬:
                0 = ╚▒╩í╟²╢»╞≈
                1 = ╟²╢»╞≈A
                2 = ╟²╢»╞≈B
                3 = ╟²╢»╞≈C, ╡╚
╖╡╗╪╓╡: ╒√╩²
└²╫╙:? DISKSIZE (1)

.2319
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

disktest()
╙∩╖¿: disktest (< cDriveLetter>)
╙├═╛: ▓Γ╩╘┤┼┼╠╟²╢»╞≈
▓╬╩²:
    <cDriveLetter>        ╡Ñ╫╓╖√╟²╢»╞≈╖√
╖╡╗╪╓╡: ╒²╚╖╖╡╗╪0, ╖±╘≥╖╡╗╪┤φ╬≤┤·┬δ, ┤φ╬≤┤·┬δ▓╬╝√GETINT24()
└²╫╙:? disktest ("A")

.2318
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

diskspace()
╙∩╖¿:     diskspace (<nExp>)
╙├═╛:     ╘┌╓┤╨╨╙╨┐╔─▄╥²╞≡┤┼┼╠╥τ│÷┤φ╬≤╡─┤┼┼╠▓┘╫≈
╓«╟░, ┐╔╙├┤╦║»╩²╚╖╢¿┤┼┼╠╡─╩ú╙α┐╒╝Σ┴┐íú
▓╬╩²:
<nExp>     ╢╘╙ª╙┌╙√╝╞╦π╡─╟²╢»╞≈╨≥║┼, 1=A, 2=B, 3=C ╡╚íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈: ┤╦║»╩²╖╡╗╪╥╗╕÷╒√╩²╥╘╕µ╦▀╙├╗º┤┼┼╠╔╧╫╘╙╔
┐╒╝Σ╡─╫╓╜┌│ñ╢╚íú
└²╫╙:
/* ╧┬└²╝∞▓ΘA ┼╠╡─╩ú╙α┐╒╝Σ┴┐, ╚τ╨í╙┌─┐▒Ω╬─╝■│ñ╢╚, ╘≥▓╗
┐╜▒┤*/
 if diskspace (1) < (recsize() *lastrec() +header() +1)
    cls
    ú└10, 10 "A ┼╠╡─╫╘╙╔┐╒╝Σ▓╗╣╗, ▓╗─▄┐╜▒┤"
else
    copy file klgz. dbf to A:
endif

▓╬╝√: @2474 [recsize](), @2452 [header]()

.1715
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

dispbox()
╙∩╖¿: dispbox (<nRowtop>, <nColtop>, <nRowbot>,;
     <nColbot>, <ncBoxstring> [, <cColorstring>])
╣ª─▄: ╘┌╞┴─╗╔╧╓╕╢¿╬╗╓├╗¡╥╗╖╜┐≥íú
▓╬╩²:
<nRowtop,nColtop>    ╓╕╢¿╖╜┐≥╫≤╔╧╜╟╡─╨╨┴╨╫°▒Ω
<nRowbot,nColbot>    ╓╕╢¿╖╜┐≥╙╥╧┬╜╟╡─╨╨┴╨╫°▒Ωíú
 [<ncBoxstring>]    ╚τ╩╟╩²╫╓▒φ┤∩╩╜, ╟╥▒φ┤∩╩╜╓╡╬¬1, ╗¡╥╗╡Ñ╧▀╖╜┐≥; ▒φ┤∩╩╜
╓╡╬¬2, ╗¡╥╗╦½╧▀╖╜┐≥íú
╚τ╩╟╫╓╖√▒φ┤∩╩╜, ╘≥╙ª╩╟8 ╕÷╖╜┐≥▒▀╜τ╫╓╖√║═╥╗╕÷╠ε
│Σ╫╓╖√íú╚▒╩í╘≥╗¡╥╗╡Ñ╧▀╖╜┐≥íú
 [<cColorstring>]    ╖╜┐≥╧╘╩╛╤╒╔½╡─╫╓╖√▒φ┤∩╩╜íú╚▒╩í╘≥▓╔╙├╥╘╟░╢¿
╥σ╣²╡─╤╒╔½íú
╖╡╗╪╓╡: NIL
└²╫╙: dispbox (1, 10, 24, 60, 2, "W") // ╘┌╞┴─╗╔╧╗¡╥╗░╫▒▀╦½╧▀╖╜┐≥

▓╬╝√: @3002 [ú└...box]

.1605
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

dispform( )
╙∩╖¿: dispform(<cFilename>,<idMode>, <nOffset>, <nRow>, <nCol> )
╙├═╛: ┤╙╬─╝■╓╨╓╕╢¿╡─╞½╥╞┤ª╗╓╕┤╞┴─╗
▓╬╩²:
    <cFilename>        ╬─╝■├√, ┐╔┤°┬╖╛╢
<idMode>    ╬¬0╩▒    ╞½╥╞╧α╢╘╬─╝■┐¬╩╝╬╗╓├ú¼╬¬1╩▒╞½╥╞╧α╢╘╬─
╝■╜ß╩°╬╗╓├
<nOffset>        ╞½╥╞┴┐
<nRow, nCol>        ═╝╧≤╗╓╕┤╬╗╓├╡─╨╨┴╨╫°▒Ω
╖╡╗╪╓╡: ╬▐
└²╫╙:function show()
         local myfile
         myfile:=getfile("╤í╘±╧╘╩╛╬─╝■","c:\work\*.scr",'')
         getrname(0,0,fname)
        /*┤╙╗╖╛│▒Σ┴┐BASETEMP╦∙╓╕┬╖╛╢╡─╬─╝■fname╓╨╗╓╕┤╞┴─╗*/
         inkey(0)
         dispform(fname,0,100)
        /*┤╙fname ╓╨╓╕╢¿╡─╞½╥╞100 ( ╧α╢╘╬─╝■┐¬╩╝╬╗╓├)    ┤ª╗╓╕┤╞┴─╗*/
         return nil

▓╬╝√: @1632 [getrname]( )ú¼@1637 [pcx]( )

.1717
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

donebeep()
╙∩╖¿: DONEBEEP ( [<nNumberBeeps>])
╙├═╛: ▓·╔·╥╗░π╙├╙┌╓╕╩╛▓┘╫≈╜ß╩°╡─┴╜╓╓╥⌠╡≈╡─╔∙
╥⌠
▓╬╩²:
    <nNumberBeeps>    ╔∙╧∞╡─┤╬╩²
╖╡╗╪╓╡: ╬▐
└²╫╙: DONEBEEP (8)

.1716
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

doserror()
╙∩╖¿:     doserror()
╙├═╛:     ╚╖╢¿╩╟╖±╥²╖ó┴╦╥╗╕÷DOS ┤φ╬≤íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═(┤φ╬≤║┼), 0 ▒φ╩╛▓┘╫≈│╔╣ª
└²╫╙:     if doserror() <>0
        ? " ╥╤╥²╖ó╥╗╕÷DOS ┤φ╬≤íú"
        quit
    endif

▓╬╝√:     @2327 [ferror]()

.1916
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

dtof()
╙∩╖¿: DTOF (<dDate>)
╙├═╛: ╚╖╢¿╥╗╕÷╘┬╡─╡┌╥╗╠∞╡─╚╒╞┌
▓╬╩²:
    <dDate>     ╥¬▒╗╫¬╗╗╡─╚╒╞┌
╖╡╗╪╓╡: ╚╒╞┌╓╡
└²╫╙:
? DTOF (date())

.1917
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

dtol()
╙∩╖¿: DTOL (<dDate>)
╙├═╛: ╗±╚í╥╗╕÷╘┬╡─╫ε║≤╥╗╠∞╡─╚╒╞┌╓╡
▓╬╩²:
    <dDate>     ╥¬▒╗╫¬╗╗╡─╚╒╞┌
╖╡╗╪╓╡: ╚╒╞┌╓╡
└²╫╙:    DTOL (date())

.1606
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

drawbox()
╙∩╖¿:     drawbox (<nRow1>, <nCol1>, <nRow2>, <nCol2>, <nAttr1>, <nAttr2>, <idType>)
╙├═╛:     ╗¡╥╗╓╕╢¿╤╒╔½╡─▒▀┐≥
▓╬╩²:
    <nRow1, nCol1>     ╓╕╢¿╡─╞┴─╗╟°╙≥╫≤╔╧╜╟╫°▒Ω;
    <nRow2, nCol2>     ╓╕╢¿╡─╞┴─╗╟°╙≥╙╥╧┬╜╟╫°▒Ω;
    <nAttr1>        ▒▀┐≥╤╒╔½;
    <nAttr2>         ╠ε│Σ╤╒╔½
    <idType>         ╬¬1 ╡Ñ╧▀, ╬¬2 ╦½╧▀
╖╡╗╪╓╡: NIL
└²╫╙:
function mybox()
local i, j
for i=10 to 62 step 4
    for j=6 to 22 step 2
        drawbox (j, i, j+1, i+3, 1, 7, 1)
    next
next
return nil

▓╬╝√: @1628 [g_rect](), @1602 [box3d]()

.1302
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

drawdlg()
╙∩╖¿: drawdlg (<nHandle>, <nPos>, <idFlag>)
╙├═╛: ╓╪╗¡─│└α╢╘╗░┐≥, ╛¡│ú╙δmodifydlg( ) ╥╗╞≡╩╣╙├
▓╬╩²:
    <nHandle>    ╢╘╗░┐≥╛Σ▒·
    <nPos>        ╥¬╗¡╡─╢╘╗░┐≥╘┌╒√╕÷╢╘╗░┐≥┤░┐┌╡─╨≥║┼
    <idFlag>    ╬¬┐╒╩▒, ╗¡│÷╢╘╗░┐≥▒▀┐≥, ╖±╘≥▓╗╗¡
╖╡╗╪╓╡:│╔╣ª╘≥╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
└²╫╙:
▓╬╝√: @1308 [modifydlg] └α

.1607
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

drawline()
╙∩╖¿: drawline (<nX1>, <nY1>, <nX2>, <nY2>, <nColor>)
╙├═╛: ┤╙╡▒╟░╧≤╦╪╬╗╓├╗¡╥╗╓╕╢¿╤╒╔½╡─╓▒╧▀╡╜┴φ╥╗
╧≤╦╪╬╗╓├
▓╬╩²:
    <nX1, nY1>    ╞≡╡π╧≤╦╪╫°▒Ω
    <nX2,nY2>     ╓╒╡π╧≤╦╪╫°▒Ω;
    <nColor>    ╓╕╢¿╤╒╔½
╖╡╗╪╓╡: NIL

▓╬╝√: g_port(), @1631 [g_style](), @1619 [g_lineto]()

.1608
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

drawtext()
╙∩╖¿: drawtext (<nX>, <nX>, <nFc>, <nBc>, <cStr>)
╙├═╛: ╗¡│÷16í┴16 ╡π╒≤╫╓╖√┤«
▓╬╩²:
    <nX, nY>     ╗¡╡π╒≤╫╓╖√┤«╡─╧≤╦╪╫°▒Ω
    <nFc, nBc>     ╟░╛░╔½, ▒│╛░╔½, ╚⌠nBc=255, ╘≥▓╗╩╣╙├▒│╛░╔½
    <cStr>         ╫╓╖√┤«
╖╡╗╪╓╡: ╬▐
└²╫╙:     fontinit ("\wbsdos\wbszks")
    drawtext (100, 100, 9, 7, " ╘╞┤≤╚φ╝■╣½╦╛")
    fontexit()

.1609
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

drawvcf()
╙∩╖¿: drawvcf (<nX>, <nY>, <nFc>, <nBc>, <nW>, <nH>, <nFont>, <nDir>, <cStr>)
╙├═╛: ╗¡│÷╩╕┴┐╫╓╖√┤«, ╘┌╩╣╙├╟░╥¬╘╦╨╨loadfont ║═idx ╥╘╟²╢»╩╕┴┐
╫╓╠σíú
▓╬╩²:
    <nX, nY>     ╗¡╡π╒≤╫╓╖√┤«╡─╧≤╦╪╫°▒Ω
    <nW, nH>     ╫╓╖√┐φ, ╕▀
    <nFont>    ╫╓╠σ
            ╫╓╠σ▒α║┼╚τ╧┬:
            1: ╦╬╠σ   2: ╖┬╦╬   3: ║┌╠σ   4: ┐¼╠σ     5: ▒Ω╦╬
            6: ┤≤║┌   7: ╬║▒«   8: ╨╨┐¼   9: ┴Ñ╩Θ   28:╖▒╠στ·τΩ
    <nDir>        ╫╓╖╜╧≥ú¼╬¬1
<nFc, nBc>     ╫╓╠σ╟░╛░╔½, ▒│╛░╔½; ╚⌠nBc=255, ╘≥▓╗╩╣╙├▒│╛░╔½
    <cStr>        ╫╓╖√┤«
╖╡╗╪╓╡: ╬▐
└²╫╙: drawtext (40, 40, 9, 7, 48, 60, 0, 1, " ╘╞┤≤╚φ╝■╣½╦╛")

.1914
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

dow()
╙∩╖¿: dow (<dExp>)
╙├═╛: ╖╡╗╪╚╒╞┌<dExp> ╓╨╨╟╞┌╝╕╡─╩²╫╓▒φ╩╜íú
▓╬╩²:
    <dExp>     ║╧╖¿╡─╚╒╞┌
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:    ? dow (ctod ("02/01/94"))     // ╜ß╣√╩╟3

▓╬╝√:     @1904 [cdow](), @1906 [cmonth](), @1912 [day](), @1924 [month]()

.1915
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

dtoc()
╙∩╖¿:     dtoc (<dExp>)
╙├═╛:     ╜½╚╒╞┌<dExp> ╫¬╗╗│╔╥╗╕÷╫╓╖√┤«íú
▓╬╩²:
    <dExp>     ║╧╖¿╡─╚╒╞┌
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:     temp: =dtoc (date())
    ? temp // ╖╡╗╪└α╦╞94 ─Ω2 ╘┬1 ╚╒

▓╬╝√:     @1907 [ctod](), @1918 [dtos]()

.2010
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

dtor()
╙∩╖¿: dtor (<degree>)
╙├═╛: ╜½╜╟╢╚╫¬╗╗╬¬╗í╢╚
▓╬╩²:
    <degree>     ╜╟╢╚
╖╡╗╪╓╡: ╗í╢╚
└²╫╙:? dtor (180)    //╖╡╗╪ú║3.141592654

.1918
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

dtos()
╙∩╖¿:     dtos (<dExp>)
╙├═╛:     ╜½╚╒╞┌<dExp> ╫¬╗╗│╔╥╗╕÷╫╓╖√┤«íú╕├┤«┐╔╫≈╬¬╕┤║╧╦≈
╥²╡─╥╗▓┐╖▌íú
▓╬╩²:
    <dExp>    ║╧╖¿╡─╚╒╞┌
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:     temp: =dtoc (date())
    ? temp // ╖╡╗╪└α╦╞19940201

▓╬╝√:     @1907 [ctod](), @1915 [dtoc]()

.2207
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

empty()
╙∩╖¿:     empty (<exp>)
╙├═╛:     ╚╖╢¿╥╗╕÷▒φ┤∩╩╜╩╟╖±╬¬╖╟┐╒╓╡, ╗≥╒▀╩╟╖±╬¬╒µ╓╡
╗≥╖╟0 ╓╡íú
▓╬╩²:
    <exp>        ║╧╖¿▒φ┤∩╩╜
╖╡╗╪╓╡: ┬▀╝¡└α╨═
╦╡├≈: ▒φ┤∩╩╜<exp> ┐╔╥╘╩╟╚╬║╬└α╨═íú╡▒╥╘╧┬╠⌡╝■╬¬╒µ╩▒, ╕├║»
╩²╖╡╗╪.T.
1. ╫╓╖√▒φ┤∩╩╜╗≥▒╕╫ó▒φ┤∩╩╜╬¬╥╗┐╒┤«╗≥╬¬╥╗┐╒╕±
┤«íú
2. ╩²╫╓▒φ┤∩╩╜╬¬0íú
3. ╚╒╞┌▒φ┤∩╩╜╬¬┐╒íú
4. ┬▀╝¡▒φ┤∩╩╜╬¬.F.íú
5.╩²╫Θ╬¬┐╒
6.NIL
└²╫╙:
temp: =space (2)
? empty (temp) // ╩Σ│÷.T.

.2441
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

eof()
╙∩╖¿:     eof()
╙├═╛:     ▓Γ╩╘╡▒╟░╝╟┬╝╓╕╒δ╩╟╖±╥╤╥╞╡╜╫ε║≤╥╗╕÷╝╟┬╝
╓«║≤íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ┬▀╝¡└α╨═
╦╡├≈:     ╘┌╓┤╨╨find, seek ╗≥locate ├ⁿ┴ε╩▒, ╚τ╣√╢╘╝╟┬╝║═╦╤╦≈╠⌡╝■╡─├┐┤╬
╞Ñ┼Σ╛∙╩º░▄, ╘≥╝╟┬╝╓╕╒δ▒╗╢¿╬╗╡╜eof()íúSET SOFTSEEK ON ├ⁿ┴ε╗ß╕─▒Σ╔╧╩÷
├ⁿ┴ε╡─╨╨╬¬íú
└²╫╙: // ┤≥╙í╡▒╟░╩²╛▌┐Γ╓╨┬·╫πage>20 ╡─╦∙╙╨╝╟┬╝╡─name ╫╓╢╬
    use my
    locate for age>20
    do while. not. eof()
    ? name
    continue
    enddo

▓╬╝√:    @2403 [bof](), @2473 [recno](), @3122[locate], @3116[find], @2427 [dbseek]

.2442
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

equvars()
╙∩╖¿: equvars()
╙├═╛: ░╤╩²╛▌┐Γ╡▒╟░╝╟┬╝╡──┌╚▌╕│╓╡╡╜╙╔initvars() ┤┤╜¿╡──┌
┤µ▒Σ┴┐
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
└²╫╙: ▓╬╝√initvars()

.1718
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

errorbeep()
╙∩╖¿: errorbeep ( [<nNumberBeep>])
╙├═╛: ▓·╔·╔╘▓╗╩µ╖■╡─╢╠┤┘╔∙σ
▓╬╩²:
    <nNumberBeep>      ┐╔╤í╡─╖ó╔∙┤╬╩²
╖╡╗╪╓╡: ╬▐
└²╫╙: errorbeep (8)

.1719
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

errorlevel()
╙∩╖¿:     errorlevel (<nExp>)
╙├═╛:     ╢┴╚í╗≥╔Φ╓├DOS │÷┤φ╝╢▒≡íú
▓╬╩²:
<nExp>     ╔Φ╓├DOS │÷┤φ╝╢▒≡, ╚τ╚▒╩í╘≥▓╗╫÷╨┬╔Φ╓├(0<nExp<255 )íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     ╡▒WINBASE ╙ª╙├│╠╨≥╒²│ú╓╒╓╣╩▒, DOS │÷┤φ╝╢▒≡▒╗╔Φ╓├╡╜╒²│ú
╗╖╛│╡─╓╡(╬¬0),╚τ╙ª╙├│╠╨≥╙╔╙┌╘╦╨╨╩▒┐╠┤φ╬≤╢°╖╟
╒²│ú╓╒╓╣, ╘≥│÷┤φ╝╢▒≡╬¬1, ╗≥╒▀╬¬╙ª╙├│╠╨≥╫ε║≤═¿╣²
errorlevel() ║»╩²╔Φ╓├╡─╓╡íú╚τ╩╣╙├errorlevel() ║»╩²╔Φ╓├│÷┤φ╝╢▒≡, ╘≥║»╩²╖╡╗╪
WINBASE ╡▒╟░ERRORLEVEL ╔Φ╓├íú╖±╘≥, ERRORLEVEL ▒╗╔Φ╓├╬¬0íú
└²╫╙: if │÷┤φ
        errorlevel (2)     //╔Φ╓├ERRORLEVEL ╡╚╙┌2
    else
        errorlevel (0)     //╔Φ╓├ERRORLEVEL ╡╚╙┌0
    endif

▓╬╝√:     @2327 [ferror]()

.2501
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

eval()
╙∩╖¿:     eval (<bBlock>, [<Explist>])
╙├═╛:     ╢╘╥╗╕÷┤·┬δ┐Θ╟≤╓╡íú
▓╬╩²:
<bBlock>     ╙├╙┌╟≤╓╡╡─┤·┬δ┐Θ
[<Explist>]     ╚╬║╬└α╨═╡─▒φ┤∩╩╜, ╕├▒φ┤∩╩╜╫≈╬¬▓╬╩²┤½╦═╕°eval() ║»╩²íú<bBlock> ╓╕
╢¿╡─┤·┬δ┐Θ▒╪╨δ─▄╣╗┤ª└φ<Explist> ╓╕╢¿╡─╩²╛▌└α╨═, ╖±╘≥╘┌
╘╦╨╨╩▒╗ß╥²╖ó╥╗╕÷▓╬╩²┤φ╬≤íú
╖╡╗╪╓╡: ▒φ┤∩╩╜▒φ╓╨╫ε║≤╥╗╕÷▒φ┤∩╩╜╡─╟≤╓╡╜ß╣√▒╗
╖╡╗╪, ╕├╖╡╗╪╓╡┐╔╥╘╩╟╚╬║╬└α╨═íú
└²╫╙:     time_pi: = {|x|x*3. 14}
    ? eval (time_pi, 4} // ╖╡╗╪12. 56

▓╬╝√:     @1806 [aeval](), @2417 [dbeval](), @2445 [fieldblock](), @1730 [memvarblock]()

.2011
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

exp()
╙∩╖¿:     exp (<nExp>)
╙├═╛:     ╝╞╦π╩²╤º▒φ┤∩╩╜╡─╫╘╚╗╓╕╩²íú
▓╬╩²:
    <nExp>     ▒╗╟≤╓╡╡─╩²╤º▒φ┤∩╩╜
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:
? exp (4. 7) // ╖╡╗╪109. 95
set decimals to 6 // ╔Φ╓├╨í╩²╬╗╬¬6 ╬╗
? exp (4. 7) // ╖╡╗╪109. 947172

▓╬╝√:    @3201[set decimals], @3203[set fixed], @2015 [log]()

.2320
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

f_comp()
╙∩╖¿: f_comp (<cFile1>, <cFile2>)
╙├═╛: ▒╚╜╧┴╜╕÷╬─╝■╡─╚╒╞┌╝░╩▒╝Σ
▓╬╩²:
    <cFile1>    ╬─╝■├√
    <cFile2>     ╬─╝■├√
╖╡╗╪╓╡: ╚⌠cFile1 ╡─╩▒╝Σ║≤╙┌cFile2 ╡─╩▒╝Σ╘≥╖╡╗╪1ú¼╖±╘≥╖╡╗╪0íú

.2321
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

f_gettm()
╙∩╖¿: f_gettm (<nHandle>, ú└<dFdate>, ú└<cFtime>)
╙├═╛:     ╙╔╬─╝■╛Σ▒·╗±╡├╬─╝■╡─╚╒╞┌╝░╩▒╝Σ, ▓ó╜½╚╒╞┌╖╡
╗╪╡╜cFdateú¼╩▒╝Σ╖╡╗╪╡╜cFtimeíú
▓╬╩²:
    <nHandle>     ╬─╝■╛Σ▒·
    <dFdate>     ╬─╝■╚╒╞┌
    <cFtime>     ╬─╝■╩▒╝Σ
╖╡╗╪╓╡: │╔╣ª╖╡╗╪0ú¼╖±╘≥╬¬DOS ┤φ╬≤║┼
└²╫╙:    fh: =fopen ("\wbsex\fattr. prg", 2)
    f_gettm (fh, ú└ftime, ú└fdate)
    ? ftime
    ? fdate

.2322
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

f_settm()
╙∩╖¿: f_settm (<nHadle>, <dFdate>, <cFtime>)
╙├═╛: ╔Φ╓├╬─╝■╡─╚╒╞┌╝░╩▒╝Σ, ╞Σ╓╨╬─╝■╚╒╞┌╝░╬─╝■╩▒
╝Σf_gettm ╗±╡├
▓╬╩²:
    <nHandle>    ╬─╝■╛Σ▒·
    <dFdate>     ╬─╝■╚╒╞┌
    <cFtiem>     ╬─╝■╩▒╝Σ
╖╡╗╪╓╡: │╔╣ª╖╡╗╪0ú¼╖±╘≥╬¬DOS ┤φ╬≤║┼

.2323
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fclose()
╙∩╖¿:     fclose (<nExp>)
╙├═╛:     ╦ó╨┬╗║│σ╟°▓ó╜½╞Σ─┌╚▌╨┤╡╜╥╗╕÷╙╔║»╩²fcreate() ╗≥║»
╩²fread( ) ┤≥┐¬╡─┤┼┼╠╬─╝■╓╨íú
▓╬╩²:
    <nExp>     ╥¬╣╪▒╒╬─╝■╡─╛Σ▒·
╖╡╗╪╓╡:┬▀╝¡└α╨═
└²╫╙: // ╚τA ┼╠┐╒╝Σ╫π╣╗┤≤, ╘≥╜½╗║│σ╟°─┌╚▌╨┤╚δA ┼╠▓ó╣╪▒╒
╬─╝■
    if len (buff) <diskspace (1)
    fwrire (hand, buff)
    fclose (hand)
    endif

▓╬╝√:     @2324 [fcreate](), @2352 [fwrite]()

.2443
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

fcount()
╙∩╖¿:     fcount()
╙├═╛:     ╚╖╢¿╥╗╕÷╩²╛▌┐Γ╓╨╫╓╢╬╡─╩²─┐íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     ╚τ╣√╡▒╟░├╗╙╨╩╣╙├╬─╝■, ╘≥╖╡╗╪0íú
└²╫╙:     use my     // ╬─╝■╓╨╙╨10 ╕÷╫╓╢╬
    ú└ 24, 20 say " ╫╓╢╬╡─╩²─┐╬¬"+fcount() // ╖╡╗╪10

▓╬╝√:     @2401 [afields](), @2444 [field]()

.2324
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fcreate()
╙∩╖¿:     fcreate (<cFile>, (<nExp>])
╙├═╛:     ╩╣╙├dos ╡─╡═╝╢╩Σ╚δ/ ╩Σ│÷└┤╜¿┴ó╥╗╕÷╬─╝■╗≥╜½╥╗
╕÷╬─╝■╡─│ñ╢╚╓├╬¬0íú
▓╬╩²:
    <cFile>         ╥¬╜¿┴ó╬─╝■╡─├√│╞íú
    <nExp>     ╬─╝■╩⌠╨╘├Φ╩÷╫╓(0_4), ╚τ╧┬
            0     ╞╒═¿╬─╝■
            1     ╓╗╢┴╬─╝■
            2     ╥■▓╪╬─╝■
            3     ╓╗╢┴╝╙╥■▓╪╬─╝■
            4     ╧╡═│╬─╝■
            ╚▒╩í╬─╝■╩⌠╨╘├Φ╩÷╫╓╬¬0íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     ╚τ╣√╘┌┤≥┐¬╬─╝■╡─▓┘╫≈╓╨│÷╧╓┴╦┤φ╬≤, ╘≥╖╡╗╪╬─
╝■╛Σ▒·╫╓-1íú╚τ╣√fcreate() ║»╩²╓╨╡─<cFile> ▓╬╩²╓╕╢¿┴╦╥╗╕÷╥╤┤µ╘┌
╡─╬─╝■├√, ╘≥╘¡└┤╡─╬─╝■─┌╚▌╜½▒╗╔╛│²íú┤≥┐¬╥╗╕÷╥╤┤µ
╘┌╡─╬─╝■╙ª╩╣╙├fopen() ║»╩²íú
└²╫╙:     hand: =fcreat ("myfile. txt", 2)
         // ╜¿┴ó╬─╝■myfile. txt, ╬─╝■╩⌠╨╘╬¬╥■▓╪

▓╬╝√:    @2323 [fclose]()

.2326
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

feof()
╙∩╖¿: feof (<nHandle>)
╙├═╛: ╚╖╢¿╬─╝■╩╟╖±╜ß╩°
▓╬╩²:
    <nHandle>     ╬─╝■╛Σ▒·
╖╡╗╪╓╡: ╡╜╬─╝■╬▓╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
└²╫╙: h: =fopen ("file. dat", 2)
    ? feof (h)

.2325
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fearse()
╙∩╖¿:     fearse (<cFilename>)
╙├═╛:     ┤╙┤┼┼╠╔╛│²╬─╝■íú
▓╬╩²:
    <cFilename>         ╥¬╔╛│²╡─╬─╝■├√
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     ╚τ╣√╘┌╔╛│²╬─╝■╡─▓┘╫≈╓╨│÷╧╓┴╦┤φ╬≤, ╘≥╖╡╗╪-1, ╚τ
╣√╔╛│²│╔╣ª, ╘≥╖╡╗╪0íúferase() ║»╩²▓╗╫±╤¡SET DEFAULT ╫┤╠¼╗≥SET PATH ╫┤╠¼, ╔╛│²▓┘╫≈
╓«╟░▒╪╨δ╣╪▒╒╬─╝■íú
└²╫╙: // ╚τ╬─╝■myfile. bak ┤µ╘┌, ╘≥╔╛│²╦ⁿ, ╚τ╔╛│²│╔╣ª, ╘≥╕°│÷╨┼╧ó
    if file ("myfile. bak")
        if ferase ("myfile. bak") ==0
            ? " ╬─╝■myfile. bak ╥╤▒╗╔╛│²"
        endif
    endif

▓╬╝√:     @2329 [file](), @2345 [fopen](), @2323 [fclose]()

.2327
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

ferror()
╙∩╖¿:     ferror()
╙├═╛:     ╫≈╬¬╬─╝■▓┘╫≈║»╩²╡─╖╡╗╪╜ß╣√, ╚τ╣√╖ó╔·┤φ╬≤, ferror() ║»╩²
╚╖╢¿┤φ╬≤└α╨═íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═ú¼┤φ╬≤║┼
└²╫╙:    // ╚τ┤≥┐¬╬─╝■myfile. txt ╖ó╔·┤φ╬≤, ╘≥╩Σ│÷┤φ╬≤║┼
    hand: =fopen ("myfile. txt")
    if ferror() <>0
        clear
        ú└ 10, 10 say " ┤≥┐¬╬─╝■╖ó╔·"+str (ferror(), 2, 0) ;
            +" ║┼┤φ╬≤"
        quit
    endif

▓╬╝√: @2345 [fopen](), @2324 [fcreate](), @2325 [fearse](), @2347 [fread](),
@2352 [fwrite](), @2323 [fclose](), @2349 [freadstr]()

.2328
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fgets()
╙∩╖¿: fgets (<nHandle>, [<nLines>], [<nLength>], [<cDelim>]
╙├═╛: ┤╙╬─╝■╓╨╢┴╥╗╨╨╗≥╢α╨╨
▓╬╩²:
    <nHandle>     ╬─╝■╛Σ▒·
    <nLines>     ╬─╝■╨╨╩²(╚▒╩í╬¬1)
    <nLength>     ├┐╨╨│ñ╢╚(╚▒╩í╬¬80)
    <cDelim>    ╜ß╩°╖√(╚▒╩í╬¬CRLFú¼╝┤╗╪│╡╗╗╨╨)
╖╡╗╪╓╡: ╢┴╚í╡─╫╓╖√┤«
└²╫╙: h: =fopen ("file. dat", 2)
    str: =fgets (h, 8)
    ? str

.2444
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

field()
╙∩╖¿:     field (<nExp>) |fieldname (<nExp>)
╙├═╛:     ╖╡╗╪╢╘╙ª╙┌╩²╛▌┐Γ╓╨─│╕÷╫╓╢╬╨≥║┼╡─╫╓╢╬├√
│╞íú
▓╬╩²:
    <nExp>     ╫╓╢╬╨≥║┼
╖╡╗╪╓╡: ╫╓╖√└α╨═ú¼╫╓╢╬├√│╞
╦╡├≈:     ╚τ╣√╕├▓╬╩²╓╕╢¿╡─╓╡╬¬╥╗╖╟╖¿╫╓╢╬╨≥║┼, ╘≥╖╡╗╪
╥╗╕÷┐╒┤«íú
└²╫╙:// ╩Σ│÷╩²╛▌┐Γ╦∙╙╨╫╓╢╬╡─├√│╞
     use my
    temp: =fcount()
    for i=1 to temp
        ? field (i)
    next

▓╬╝√:     @2401 [afields](), @2435 [dbstruct](), @2443 [fcount](), @2252 [type()]

.2445
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

fieldblock()
╙∩╖¿:     fieldblock (<cFieldname>)
╙├═╛:     ╜¿┴ó╥╗╕÷╤í╚í╗≥╔Φ╓├╫╓╢╬╓╡╡─┤·┬δ┐Θíú
▓╬╩²:
    <cFieldname>     ┤·┬δ┐Θ╓┤╨╨╤í╚í╗≥╔Φ╓├▓┘╫≈╦∙╨Φ╡─╫╓╢╬├√íú
╖╡╗╪╓╡: ┤·┬δ┐Θ└α╨═
╦╡├≈:     fieldblock() ║»╩²╜¿┴ó╥╗╕÷┤·┬δ┐Θ, ┤·┬δ┐Θ╕∙╛▌╩╟╖±┤½╡▌▓╬╩²
╗≥╒▀╤í╚í╥╗╕÷╫╓╢╬╓╡╗≥╒▀╔Φ╓├╥╗╕÷╫╓╢╬╓╡íú╡▒┤½
╡▌▓╬╩²╩▒, ╫╓╢╬╓╡▒╗┤½╡▌╡─▓╬╩²╓╡╕ⁿ╨┬íú
└²╫╙:     use my
    now: =fieldblock ("name")
    ? eval (now) // ├╗╙╨┤½╡▌▓╬╩², ╖╡╗╪╡▒╟░╫╓╢╬╓╡
    ? name // ╖╡╗╪╡▒╟░╫╓╢╬╓╡
    inkey (0)
    ? eval (now, "linping") // ┤½╡▌▓╬╩²"linping", ╘≥╖╡╗╪"linping"
    ? name // ╖╡╗╪"linping"

▓╬╝√:     @2448 [fieldwblock](), @1730 [memvarblock]()

.2446
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

fieldget()
╙∩╖¿:     fieldget (<nField>)
╙├═╛:     ╘┌╡▒╟░╤í╘±╡─╩²╛▌┐Γ╓╨╝∞╦≈─│╕÷╫╓╢╬╡─╡▒╟░
╓╡íú
▓╬╩²:
    <nField>     ╩²╛▌┐Γ╓╨╫╓╢╬╡─╬╗╓├╨≥║┼íú
╖╡╗╪╓╡: ╖╡╗╪╓╡╡─└α╨═╙δ╢╘╙ª╡─╫╓╢╬└α╨═╧α═¼, ╚τ╣√<nField> ▓╬
╩²╡─╓╡┤≤╙┌╩²╛▌┐Γ╓╨╫╓╢╬╡─╩²─┐, ╘≥╖╡╗╪nilíú
└²╫╙:     use my
    value: =fieldget (5)
    ? value // ╖╡╗╪╩²╛▌┐Γ╓╨╡┌╥╗╕÷╝╟┬╝╡─╡┌5 ╕÷╫╓╢╬╡─╡▒╟░╓╡

▓╬╝√: @2447 [fieldput]()

.2447
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

fieldput()
╙∩╖¿:     fieldput (<nField>, <Exp>)
╙├═╛:     ╢╘╡▒╟░╤í╘±╡─╩²╛▌┐Γ╓╨╓╕╢¿╡─╫╓╢╬╜°╨╨╕│╓╡
▓┘╫≈íú
▓╬╩²:
    <nField>     ╩²╛▌┐Γ╓╨╫╓╢╬╡─╬╗╓├╨≥║┼
    <Exp>         ╕│╕°╓╕╢¿╫╓╢╬╡─╨┬╓╡
╖╡╗╪╓╡: ╖╡╗╪<Exp> ▓╬╩²╡─╓╡, ╚τ╣√<nField> ▓╬╩²╡─╓╡┤≤╙┌╩²╛▌┐Γ╓╨╫╓
╢╬╡─╩²─┐, ╘≥╖╡╗╪nilíú
└²╫╙:  new: =100
? fieldget (1) // ╖╡╗╪20
? fieldput (1, new) // ╖╡╗╪100
? fieldget (1) // ╖╡╗╪100
▓╬╝√:     @2446 [fieldget]()ú¼@2468 [netfldput]()

.2448
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

fieldwblock()
╙∩╖¿:     fieldwblock (<cFieldname>, <nWorkarea>)
╙├═╛:     ┤╦║»╩²╙δfieldblock() ║»╩²╓┤╨╨╧α═¼╡─▓┘╫≈, ╡½╕├║»╩²╢α╜╙╩╒
╥╗╕÷▓╬╩²╙├╫≈╓╕╢¿╣ñ╫≈╟°, ║»╩²╜½╘┌╓╕╢¿╣ñ╫≈╟°╓╨
╜°╨╨▓┘╫≈íú
▓╬╩²:
<cFieldname>         ┤·┬δ┐Θ╓┤╨╨╤í╚í╗≥╔Φ╓├▓┘╫≈╦∙╨Φ╡─╫╓╢╬├√íú
<nWorkarea>     ║»╩²╓╕╢¿╡─╣ñ╫≈╟°║┼, ╩²╛▌┐Γ╘┌╕├╣ñ╫≈╟°╓╨▒╗┤≥┐¬íú
╖╡╗╪╓╡: ╖╡╗╪╔Φ╓├╗≥╤í╚í╫╓╢╬╓╡╡─┤·┬δ┐Θ, ╚τ╣√╫╓╢╬├√
▓╗┤µ╘┌, ╘≥╖╡╗╪nilíú
└²╫╙:     now: =fieldblock ("name", 2) // ╩²╛▌┐Γ╘┌╡┌╢■╕÷╣ñ╫≈╟°╓╨▒╗┤≥┐¬
    ? eval (now) // ├╗╙╨┤½╡▌▓╬╩², ╖╡╗╪╡▒╟░╫╓╢╬╓╡
    ? name // ╖╡╗╪╡▒╟░╫╓╢╬╓╡
    inkey (0)
    ? eval (now, "linping") // ┤½╡▌▓╬╩²"linping", ╘≥╖╡╗╪"linping"
    ? name // ╖╡╗╪"linping"

▓╬╝√:     @2445 [fieldblock](), @1730 [memvarblock]()

.2329
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

file()
╙∩╖¿:     file (<cFilename>)
╙├═╛:     ▓Γ╩╘╬─╝■╩╟╖±┤µ╘┌íú
▓╬╩²:
    <cFilename>     ╥¬▓Γ╩╘╩╟╖±┤µ╘┌╡─╬─╝■├√
╖╡╗╪╓╡: ┬▀╝¡└α╨═
╦╡├≈:     ╚τ╣√▓Γ╩╘╬─╝■┤µ╘┌╙┌╡▒╟░┬╖╛╢╓╨, ╘≥file() ║»╩²╖╡╗╪
╥╗╕÷┬▀╝¡╒µ╓╡íú│²╖╟╙├╗º╘┌║»╩²╡─▓╬╩²<cFilename> ╓╨╓╕╢¿╟²╢»
╞≈║═┬╖╛╢, ╖±╘≥file() ║»╩²╜½╫±╤¡SET DEFAULT ├ⁿ┴ε╗≥SET PATH ├ⁿ┴ε╡─╔Φ╓├íú
└²╫╙: // ╚τ╬─╝■myfile. bak ┤µ╘┌, ╘≥╔╛│²╦ⁿ, ╚τ╔╛│²│╔╣ª, ╘≥╕°│÷╨┼╧ó

if file ("myfile. bak")
    if ferase ("myfile. bak") ==0
        ? " ╬─╝■myfile. bak ╥╤▒╗╔╛│²"
    endif
endif

▓╬╝√: @2324 [fcreate](), @2345 [fopen](), @2323 [fclose]()

.2330
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

filebase()
╙∩╖¿: filebase (<cFilename>)
╙├═╛: ╚í╬─╝■<nFilename> ╓╨╡─╗∙▒╛╬─╝■├√(▓╗║¼║≤╫║)
▓╬╩²:
    <nFilename>         ╬─╝■├√╫╓╖√┤«
╖╡╗╪╓╡: ╬─╝■╡─╗∙▒╛╬─╝■├√
└²╫╙:? filebase ("user. dbf")
▓╬╝√:@2335 [fileext](), @2337 [filepath](), @2333 [filedrive]()

.2331
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

filebottom()
╙∩╖¿: filebottom (<nHandle>)
╙├═╛: ╜½╬─╝■╓╕╒δ╫¬╡╜╬─╝■╬▓
▓╬╩²:
    <nHandle>     ╬─╝■╛Σ▒·
╖╡╗╪╓╡: ╬▐
└²╫╙: h: =fopen ("file. dat", 2)
    filebottom (h)
▓╬╝√:@2340 [filetop]( )

.2332
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

filedate( )
╙∩╖¿: filedate (<cFileName>, [<dDateToSet>]
╙├═╛: ╗±╚í╗≥╔Φ╓├DOS ╬─╝■╡─╚╒╞┌
▓╬╩²:
<cFileName>         ╥¬╗±╚í╔Φ╓├╚╒╞┌╡─╬─╝■├√, ╓º│╓DOS ╡─╚½┬╖╛╢├√íú
<dDateToSet>         ╨┬╡─╚╒╞┌ú¼╚▒╩í╩▒filedate ╜½╗±╚í╬─╝■╚╒╞┌
╖╡╗╪╓╡: ╨┬╡─╚╒╞┌╓╡
└²╫╙:
? filedate ('user. def', date())
? filedate ('user. def')
▓╬╝√: @2321 [f_gettm]( ), @2322 [f_settm](), @2341 [filetime]()

.2333
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

filedrive()
╙∩╖¿: filedrive (<cFilename>)
╙├═╛: ╚í╬─╝■<cFilename> ╓╨╡─╟²╢»╞≈├√
▓╬╩²:
    <cFilename>         ╬─╝■├√╫╓╖√┤«
╖╡╗╪╓╡: ╬─╝■<cFilename> ╓╨╡─╟²╢»╞≈├√
└²╫╙:? filedrive ("C: \COMMAND. COM")
▓╬╝√:@2335 [fileext](), @2337 [filepath](), @2330 [filebase]()

.2334
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fileeval()
╙∩╖¿: fileeval (<nHandle>, <nLength>, <cDelim>, <bBlock>, <bFor>, ;            <bWhile>, <nNextlines>, <nLine>, <nPos>)
╙├═╛: ░╤╬─╝■╓╨╡─├┐╥╗╨╨╢╘┤·┬δ┐Θblock ╟≤╓╡
▓╬╩²:
    <nHandle>        ╬─╝■╛Σ▒·
    <nLength>         ├┐╨╨│ñ╢╚
    <cDelim>         ╨╨╜ß╩°╖√(╚▒╩í╬¬GRLF)
    <bFor>, <bWhile>    ╖╡╗╪┬▀╝¡╓╡╡─┤·┬δ┐Θ, ╚⌠╬¬.T., ╘≥block ▒╗╟≤╓╡.
<nNextlines>        ╢╘╬─╝■╡▒╟░╨╨┐¬╩╝╡─╥╘╧┬╩²╨╨╟≤╓╡(╩²╫╓╓╡)
    <nLline>         ╙├╙┌╓╕╢¿▒╗╟≤╓╡╡─╨╨(╩²╫╓╓╡)
<nPos >     ┬▀╝¡▒φ┤∩╩╜, ╚⌠╬¬.T., ╘≥╢╘╡▒╟░╨╨┐¬╩╝╡─╨╨╜°╨╨╟≤╓╡, ╖±╘≥
╢╘╦∙╙╨╨╨╟≤╓╡íú
╖╡╗╪╓╡: ╬▐
└²╫╙:    bb: = {|x|msgbox (x, "", 1)}
    fh: =fopen ("memo. prg", 2)
    fileeval (fh, 8,, bb)

.2335
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fileext()
╙∩╖¿: fileext (<cFilename>)
╙├═╛: ╚í╬─╝■├√╓╨╡─└⌐╒╣├√
▓╬╩²:
    <cFilename>         ╬─╝■├√╫╓╖√┤«
╖╡╗╪╓╡: ╬─╝■╡─└⌐╒╣├√
└²╫╙:? fileext ("user. dbf")
▓╬╝√:@2330 [filebase](), @2337 [filepath](), @2333 [filedrive]()

.2336
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

filelen()
╙∩╖¿: filelen (<nHandle>)
╙├═╛: ╚í╬─╝■│ñ╢╚
▓╬╩²:
    <nHandle>         ╬─╝■╛Σ▒·
╖╡╗╪╓╡: ╬─╝■╡─│ñ╢╚
└²╫╙: h: =fopen ("file. dat", 2)
    ? filelen (h)
▓╬╝√:@2339 [filesize]()

.2337
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

filepath()
╙∩╖¿: filepath (<cFilename>)
╙├═╛: ╕∙╛▌SET PATH ╡─╔Φ╓├╦╤╦≈╬─╝■├√
▓╬╩²:
    <cFilename>        ╬─╝■├√
╖╡╗╪╓╡: ╚τ╣√╒╥╡╜╘≥╖╡╗╪┤°┬╖╛╢╡─╬─╝■├√, ╖±╘≥╖╡╗╪┐╒
└²╫╙:? filepath ("wbsedit. dat")

.2338
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

filepos()
╙∩╖¿: filepos (<nHandle>)
╙├═╛: ╚í╬─╝■╡▒╟░╓╕╒δ╬╗╓├
▓╬╩²:
    <nHandle>         ╬─╝■╛Σ▒·
╖╡╗╪╓╡: ╡▒╟░╓╕╒δ╩²╓╡
└²╫╙: h: =fopen ("file. dat", 2)
    ? filepos (h)

.2339
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

filesize()
╙∩╖¿: filesize (<cFileName>)
╙├═╛: ╚╖╢¿╬─╝■╡─┤≤╨í(╡Ñ╬╗╬¬╫╓╜┌)
▓╬╩²:
    <cFileName>         ╬─╝■├√
╖╡╗╪╓╡: ╬─╝■┤≤╨í╡─╫╓╜┌╩², ╚τ╣√╙╨┤φ╘≥╖╡╗╪-1
└²╫╙:? filesize ('use. dbf')
▓╬╝√:@2336 [filelen]()

.2341
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

filetime()
╙∩╖¿: filetime (<cFileName>, [<cTimeToSet>])
╙├═╛: ╗±╚í╗≥╔Φ╓├DOS ╬─╝■╔╧╡─╩▒╝Σ
▓╬╩²:
    <cFileName>         ╬─╝■├√, ╓º│╓DOS ╚½┬╖╛╢├√íú
    <cTimeToSet>         ╨┬╡─╩▒╝Σ
╖╡╗╪╓╡: ╕±╩╜╬¬hh: mm: ss ╩▒╝Σ╫╓╖√┤«
└²╫╙: filetime ('user. dbf', TIME())
▓╬╝√:@2332 [filedate](), @2321 [f_gettm](), @2322 [f_settm]()

.2340
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

filetop()
╙∩╖¿: filetop (<nHandle>)
╙├═╛: ╜½╬─╝■╓╕╒δ╫¬╡╜╬─╝■═╖
▓╬╩²:
    <nHandle>        ╬─╝■╛Σ▒·
╖╡╗╪╓╡: ╬▐
└²╫╙: h: =fopen ("file. dat", 2)
    filetop (h)
▓╬╝√:@2331 [filebottom]()

.2342
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

filetouch()
╙∩╖¿: filetouch (<cFileName>)
╙├═╛: ░╤╬─╝■╡─╚╒╞┌/ ╩▒╝Σ▒Ω╝╟╕ⁿ╨┬╬¬╧╡═│╚╒╞┌║═╩▒
╝Σ
▓╬╩²:
    <cFileName>        ╥¬▒╗╕ⁿ╨┬╡─╬─╝■├√
╖╡╗╪╓╡: ╚τ╣√▓┘╫≈│╔╣ª╘≥╖╡╗╪.T.; ╖±╘≥╖╡╗╪.F.
└²╫╙:? filetouch ("user. dbf")
    ? filetime ("user. dbf")
▓╬╝√:@2332 [filedate](), @2341 [filetime](), @2321 [f_gettm](), @2322 [f_settm]()

.2343
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

findfirst()
╙∩╖¿: findfirst (<cFileSpec>, <idAttrib >)
╙├═╛: ╘┌╡▒╟░┬╖╛╢╓╨▓Θ╒╥╬─╝■├√
▓╬╩²:
    <cFileSpec>        ╥¬▓Θ╒╥╡─╬─╝■├√ú¼┐╔║¼═¿┼Σ╖√
    < Attrib >        ╥¬▓Θ╒╥╡─╬─╝■╡─╩⌠╨╘
                ╩⌠╨╘╙╔╥╘╧┬│ú┴┐╣╣│╔( ╝√Winbase.inc )
                _A_ARCH    ┤µ╡╡╬─╝■
                _A_HIDDEN    ╥■║¼╬─╝■
                _A_NORMAL    ╒²│ú
                _A_RONLY    ╓╗╢┴╬─╝■
                _A_SUBDIR    ─┐┬╝╩⌠╨╘
                _A_SYSTEM    ╧╡═│╬─╝■
                _A_VOLID    ╛φ▒Ω
╖╡╗╪╓╡: │╔╣ª╖╡╗╪╬─╝■├√╫╓╖√┤«ú¼╖±╘≥╖╡╗╪┐╒
└²╫╙:    ? findfirst ("*. prg", _A_ARCH)
▓╬╝√:@2344 [findnext]()

.2344
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

findnext()
╙∩╖¿: findnext()
╙├═╛: ╚τ╧╚╟░╥╤╡≈╙├╣²╥╗╗╪findfirst(), ╘≥╘┌╡▒╟░┬╖╛╢╓╨▓Θ╒╥╧┬
╥╗╕÷╬─╝■├√íú
▓╬╩²:    ╬▐
╖╡╗╪╓╡: │╔╣ª╖╡╗╪╬─╝■├√╫╓╖√┤«ú¼╖±╘≥╖╡╗╪┐╒
└²╫╙:    ? findnext ()
▓╬╝√:@2343 [findfirst]()

.1720
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

findtsr()
╙∩╖¿: findtsr (<cTsrname>)
╙├═╛: ▓Θ╒╥─┌┤µ╫ñ┴⌠│╠╨≥
▓╬╩²:
    <cTsrname>         ─┌┤µ╫ñ┴⌠│╠╨≥├√(╥¬╚Ñ╡⌠╬─╝■└⌐╒╣├√)
╖╡╗╪╓╡: │╔╣ª╖╡╗╪1, ╖±╘≥╖╡╗╪0
└²╫╙:? findtsr ("wbsvga")

.1721
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

fklabel()
╙∩╖¿:     fklabel (<nFuncKey>)
╙├═╛:     ╖╡╗╪╙δ╣ª─▄╝ⁿ╧α╣╪┴¬╡─▒Ω║┼íú
▓╬╩²:
    <nFuncKey>         ╖ó╔·╫≈╙├╡─╣ª─▄╝ⁿ║┼íú╚τ1="F1"
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈:     ╖╡╗╪╓╡╬¬╫╓╖√└α╨═íú
└²╫╙:    ? fklabel (7) ╖╡╗╪"F7"

▓╬╝√: @1722 [fkmax]()

.1722
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

fkmax()
╙∩╖¿:     fkmax()
╙├═╛:     ╖╡╗╪┐╔▒α│╠╣ª─▄╝ⁿ╡─╫ε┤≤╨≥║┼íú(WINBASE ╖╡╗╪40)
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:    ? fkmax() ╖╡╗╪40

▓╬╝√:     @1721[fklable()]

.2449
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

flock()
╙∩╖¿:     flock()
╙├═╛:     ╦°╢¿╡▒╟░╩²╛▌┐Γ, ╩╣╡├╞Σ╦ⁿ╙├╗º▓╗─▄╢╘╕├╬─╝■╓┤
╨╨╨┤▓┘╫≈íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ┬▀╝¡└α╨═
╦╡├≈:     ╚τ╣√flock() ║»╩²╦°╢¿╬─╝■│╔╣ª, ╘≥╖╡╗╪┬▀╝¡╒µ╓╡íú│²╖╟╙├╗º
╣╪▒╒▒╗╦°╢¿╬─╝■╗≥╒▀╓┤╨╨┴φ╥╗╕÷rlock() ║»╩²╡≈╙├, ╖±╘≥▒╪
╨δ╙├unlock ╘┌╬∩└φ╔╧╜Γ│²flock() ║»╩²╢╘╬─╝■╡─╖Γ╦°íú
└²╫╙:     if fclock()
        ? " ╦°╢¿╬─╝■│╔╣ª"
    else
        ? " ▓┘╫≈╩º░▄! "
    endif

▓╬╝√: @2472 [netuse](), @2460 [lockfile](), @2461 [lockrec](), @2477 [rlock](),  @3137[set exclusive], @3148[unlock]

.2012
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

floor()
╙∩╖¿: floor (<nNum>)
╙├═╛: ╟≤╨í╙┌╗≥╡╚╙┌<nNum> ╡─╫ε┤≤╒√╩²
▓╬╩²:
    <nNum>    ╩²╓╡▒Σ┴┐
╖╡╗╪╓╡: ╩²╓╡
└²╫╙:? floor (5. 1)
▓╬╝√:@2009 [ceiling]( )

.1611
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

fontexit()
╙∩╖¿: fontexit()
╙├═╛: ╣╪▒╒║║╫╓┐Γ
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐
└²╫╙▓╬╝√drawtext()
▓╬╝√:@1610 [fontinit]()

.1610
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

fontinit()
╙∩╖¿: fontinit (<cFontfile>)
╙├═╛: │⌡╩╝╗»(┤≥┐¬) 16 ╡π╒≤║║╫╓┐Γ
▓╬╩²:
    <cFontfile>        16 ╡π╒≤║║╫╓┐Γ╬─╝■├√
╖╡╗╪╓╡: ╬▐
└²╫╙▓╬╝√drawtext()
▓╬╝√:@1611 [fontexit]()

.2345
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fopen()
╙∩╖¿:     fopen (<cFile>, [<nExp>])
╙├═╛:     ╬¬╞Σ╦ⁿ╡═╝╢╬─╝■▓┘╫≈║»╩²┤≥┐¬╥╗╕÷╬─╝■íú
▓╬╩²:
    <cFile>        ╥¬┤≥┐¬╬─╝■╡─├√│╞íú
    <nExp>    DOS ╬─╝■╡─┤≥┐¬─ú╩╜(0-2)íú
            0 ╓╗╢┴─ú╩╜
            1 ╓╗╨┤─ú╩╜
            2 ╢┴║═╨┤─ú╩╜
╖╡╗╪╓╡: ╩²╫╓└α╨═ú¼╬─╝■╛Σ▒·
╦╡├≈:     ╚τ╣√├╗╙╨╓╕╢¿dos ┤≥┐¬─ú╩╜, ╩╣╙├╚▒╩í╓╡0íú
    ╚τ╣√┤≥┐¬╬─╝■╩▒╖ó╔·┤φ╬≤, ╘≥╖╡╗╪╬─╝■├Φ╩÷╫╓-1íú
└²╫╙:// ╚τ┤≥┐¬╬─╝■myfile. txt ╖ó╔·┤φ╬≤, ╘≥╩Σ│÷┤φ╬≤║┼
     hand: =fopen ("myfile. txt")
    if ferror() <>0
        clear
    ú└ 10, 10 say " ┤≥┐¬╬─╝■╖ó╔·"+str (ferror(), 2, 0) ;
    +" ║┼┤φ╬≤"
        quit
    endif

▓╬╝√:     @2327 [ferror](), @2324 [fcreate](), @2325 [fearse](), @2347 [fread](),
 @2352 [fwrite](), @2323 [fclose](), @2349 [freadstr]()

.2502
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

for()
╙∩╖¿: for (<nStart>, <nEnd>, <nStep>, <cFunc>)
╙├═╛: ░╤╥╗╕÷║»╩²╤¡╗╖╓┤╨╨╢α┤╬
▓╬╩²:
    <nStart>    ╤¡╗╖▒Σ┴┐│⌡╓╡
    <nEnd>    ╤¡╗╖▒Σ┴┐╜ß╩°╓╡
    <nStep>    ╘÷╓╡▒Σ┴┐
    <cFunc>    ║»╩²├√, ╘┌cFunc ╓╨╙├~ ┤·▒φ╤¡╗╖▒Σ┴┐
╖╡╗╪╓╡: ╬▐
└²╫╙: for (660, 880, 10, "tone (~, 2) ")
▓╬╝√:@2504 [loop]( ), @2513 [while]()

.2450
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

found()
╙∩╖¿:     found()
╙├═╛:     ╚╖╢¿╥╗╕÷find, seek, @3122[locate], set relation ╗≥continue ├ⁿ┴ε╩╟╖±╓┤╨╨│╔╣ªíú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ┬▀╝¡└α╨═
╦╡├≈:     ├┐╕÷╣ñ╫≈╟°╢╝╙╨╕≈╫╘╡─found ╫┤╠¼íú
    ▓╗─▄═¿╣²╩╣╙├found() ║»╩²└┤╚╖╢¿skip ├ⁿ┴ε╩╟╖±╓┤╨╨│╔╣ªíú
└²╫╙:    use my index name
    seek "└ε╤╟├╖"
    if found()
        ? no, age
    else
        ? " ▓Θ╬▐┤╦╚╦! "
    endif

▓╬╝√:     @3116[find], @2427 [dbseek](), @3122[locate], @3142[set softseek], @3107[continue]

.2346
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fputs()
╙∩╖¿: fputs (<handle>, <cStr>, <nLength>, <nDelim>)
╙├═╛: ╧≥╬─╝■╓╨╨┤╚δ╫╓╖√┤«
▓╬╩²:
    <nHandle>    ╬─╝■╛Σ▒·
    <cStr>        ╥¬╨┤╚δ╡─╫╓╖√┤«
<nLength>    ╫╓╖√┤«│ñ╢╚íó╚▒╩í╬¬str ╡─│ñ╢╚╝╙nDelim ╡─│ñ╢╚
    <nDelim>     ╜ß╩°╖√(╚▒╩í╬¬CRLF)
╖╡╗╪╓╡: ╬▐
└²╫╙:     h: =fopen ("file. dat", 2)
    fputs (h, "no news is good news")
▓╬╝√:@2347 [fread]() , freadsrt()

.2347
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fread()
╙∩╖¿:     fread (<nHandle>, ú└<cVariable>, <nByte>)
╙├═╛:     ╜½╥╗╕÷dos ╬─╝■╓╨╡─╥╗▓┐╖▌─┌╚▌╢┴╚δ╥╗╕÷─┌┤µ▒Σ
┴┐╓╨íú
▓╬╩²:
    <nHandle>         ╦∙╢┴╬─╝■╡─╬─╝■╛Σ▒·
<cVariable>     ─┌┤µ▒Σ┴┐íú╖√║┼ú└▒φ╩╛░╤║≤├µ╡─▒Σ┴┐╡▒╫≈╥╗╕÷╗║│σ
╟°▓ó╟╥═¿╣²╥²╙├╖╜╩╜┤½╡▌íú╗║│σ╟°│ñ╢╚▒╪╨δ┤≤╙┌
╗≥╡╚╙┌<nByte> ▓╬╩²╓╕╢¿╡─╓╡íú
<nByte>     ┤╙╬─╝■╓╨╢┴╚í╡─╫╓╜┌╩²íú╢┴▓┘╫≈╡─╞≡╩╝╬╗╓├╙╔dos ╬─
╝■╓╕╒δ╛÷╢¿íú(<nByte> <= 64K)
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     fread() ║»╩²╖╡╗╪┤╙╬─╝■╓╨│╔╣ª╢┴╚í╡─╫╓╜┌╩²íúdos ╬─╝■╓╕╒δ
╜½▒╗╢¿╬╗╡╜fread() ║»╩²╢┴╚í╡─╫ε║≤╥╗╕÷╫╓╜┌╓«║≤╡─╡┌
╥╗╕÷╫╓╜┌╔╧íúfread() ║»╩²─▄╢┴╚í╬─╝■╓╨╡─╚╬║╬╫╓╖√, ░ⁿ└¿┐╪╓╞
╫╓╖√, ┐╒╫╓╖√║═ASCII ┬δ╓╡╘┌127 (╩«╜°╓╞) ╥╘╔╧╡─═╝╨╬╫╓╖√íú
└²╫╙: // ╧╘╩╛╢┴╚í╨┼╧ó
    buff: =space (remain)
    strg: =fread (hand, ¬└buff, remain)
    if strg<>remain
        ? " ╖ó╔·┤φ╬≤! "
    else
        ? " │╔╣ª╢┴│÷"
    endif

▓╬╝√:     @2349 [freadstr]()

.2348
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

freadln()
╙∩╖¿: freadln (<nHandle>], [<nLines>], [<nLength>], [<nDelim>]
╙├═╛: ┤╙╬─╝■╓╨╢┴╥╗╨╨╗≥╢α╨╨
▓╬╩²:
    <nHandle>     ╬─╝■╛Σ▒·
    <nLines>     ╬─╝■╨╨╩²(╚▒╩í╬¬1)
    <nLength>     ├┐╨╨│ñ╢╚(╚▒╩í╬¬80)
    <nDelim>     ╜ß╩°╖√(╚▒╩í╬¬CRLF)
╖╡╗╪╓╡: ╢┴╚í╡─╫╓╖√┤«
└²╫╙: ▓╬╝√fgets()

.2349
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

freadstr()
╙∩╖¿:     freadstr (<nHandle>, <nByte>)
╙├═╛:     ╢┴╚í╥╗╕÷┤≥┐¬╬─╝■╓╨╡─▓┐╖▌─┌╚▌íú
▓╬╩²:
    <nHandle>     ╬─╝■╛Σ▒·
<nByte>     ╢┴╚í╡─╫╓╜┌╩²íú╚τ╣√<nByte> ╩╟╒²╩², ╘≥╢┴╚í╩▒╬─╝■╓╕╒δ╧≥╬─
╝■╬▓╖╜╧≥╥╞╢»íú╚τ╣√<nByte> ╩╟╕║╩², ╘≥╢┴╚í╩▒╬─╝■╓╕╒δ╧≥╬─
╝■═╖╖╜╧≥╥╞╢»íú(<nByte> <= 64K)
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈:     ╚τ╣√freadstr() ║»╩²╖╡╗╪╓╡╬¬┐╒, ╘≥╦╡├≈┤µ╘┌╥╗╕÷┤φ╬≤, ╗≥╒▀╩╟
<nByte> ╦∙╓╕╢¿╡─╡┌╥╗╕÷╫╓╖√╩╟┐╒╫╓╖√, ╗≥╒▀╙÷╡╜┴╦╬─╝■╜ß
╬▓íú╚τ╣√freadstr() ║»╩²╙÷╡╜┴╦╥╗╕÷┐╒╫╓╖√, ╘≥╗ß╫╘╢»╓╒╓╣, │²┤╦╓«═Γ
╡─╚╬║╬╫╓╖√╢╝─▄╢┴╚ííú
└²╫╙:// ╧╘╩╛╢┴╚í╨┼╧ó
     buff: =space (remain)
    strg: =freadstr (hand, remain)
    if empty (strg)
        ? " ╖ó╔·┤φ╬≤"
    else
        ? " │╔╣ª╢┴│÷"
    endif

▓╬╝√: @2347 [fread]()

.2451
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

freevars()
╙∩╖¿: freevars()
╙├═╛: ╩═╖┼╙╔initvars() ┤┤╜¿╡─╣½╣▓╫╓╢╬▒Σ┴┐
▓╬╩²: ╬▐
╖╡╗╪╓╡: nil
└²╫╙: ▓╬╝√initvars()

.2350
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

frename()
╙∩╖¿:     frename (<cOldfilename>, <cNewfilename>)
╙├═╛:     ╕°╬─╝■╗╗├√íú
▓╬╩²:
    <cOldfilename>         ╘¡╬─╝■├√
    <cNewfilename>        ╨┬╬─╝■├√
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     ╚⌠frname() ║»╩²╡≈╙├│╔╣ª, ╘≥╖╡╗╪╓╡0, ╖±╘≥╖╡╗╪╓╡-1 ╥╘▒φ╩╛│÷
╧╓┤φ╬≤íú┤φ╬≤╨╘╓╩┐╔╙├ferror() ║»╩²╚╖╢¿íú
└²╫╙:
/* ╚τ╬─╝■old. dbf ┤µ╘┌╟╥╬─╝■new. dbf ▓╗┤µ╘┌, ╘≥╜½╬─╝■old. dbf ╗╗├√╬¬new. dbf*/
 if (file ("old. dbf")). and. (! file ("new. dbf") )
frename ("old. dbf", "new. dbf")
endif

▓╬╝√:     @2327 [ferror]()

.2351
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fseek()
╙∩╖¿:     fseek (<nHandle>, <nOffest> [, <nStart>])
╙├═╛:     ╢¿╬╗╥╗╕÷╙╔fopen() ║»╩²╗≥fcreate() ║»╩²┤≥┐¬╡─╬─╝■╓╨╡─dos ╬─╝■
╓╕╒δíú
▓╬╩²:
<nHandle>            ╬─╝■╛Σ▒·
<nOffest>     ╬─╝■╓╕╒δ┤╙╡▒╟░╬╗╓├┐¬╩╝╗≥┤╙<nStart> ▓╬╩²╓╕╢¿╡─╨┬╞≡
╩╝╬╗╓├┐¬╩╝╨Φ╥¬╥╞╢»╡─╫╓╜┌╩²─┐
<nStart>     ╓╕╢¿fseek() ║»╩²╘┌╥╞╢»╬─╝■╓╕╒δ╩▒╡─╞≡╩╝▓╬╒╒╬╗╓├(0_2)íú
                0 ╬─╝■═╖
                1 ╬─╝■╓╕╒δ╡─╡▒╟░╬╗╓├
                2 ╬─╝■╬▓
                ╚▒╩í╥╘╬─╝■═╖╬¬╞≡╩╝▓╬╒╒╬╗╓├íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     fseek() ║»╩²╖╡╗╪╬─╝■╓╕╒δ╙δ╬─╝■═╖╝Σ╡─╞½╥╞╫╓╜┌╩²
─┐íú
└²╫╙:// ╧┬└²╕°│÷╝╞╦π╬─╝■│ñ╢╚╡─╥╗╓╓╖╜╖¿
     flie_len: =fseek (hand, 1, 2) -1

▓╬╝√:     @2352 [fwrite](), fopen()

.1503
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

fullkey()
╙∩╖¿: fullkey()
╙├═╛: ╚╖╢¿╚╬║╬░┤╝ⁿ╡─ASCII ┬δ╓╡║═╔¿├Φ┬δ
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╖╢╬º-32, 768 ╡╜+32, 767 ╓«╝Σ╡─╩²╓╡
└²╫╙:? fullkey()
▓╬╝√:@1530 [scankey]( )

.2354
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fullpath()
╙∩╖¿: fullpath (<cFilename>, <idDospath>)
╙├═╛: ╚ícFilename ╡─┬╖╛╢╡─╚½├√
▓╬╩²:
    <cFilename>         ╬─╝■├√╫╓╖√┤«
<idDospath>        ╬¬┐╒╩▒╘≥╙╔winbase ╓╨set path ╔Φ╢¿╡─┬╖╛╢╚╖╢¿,  ╘≥╙╔DOS ╗╖╛│╓╨╡─path ┬╖╛╢╚╖
╢¿íú
╖╡╗╪╓╡: ╖╡╗╪cFilename ╡─┬╖╛╢╡─╚½├√
└²╫╙:? fullpath ("user. dbf", 1)
▓╬╝√:@2337 [filepath]( )

.2352
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fwrite()
╙∩╖¿:     fwrite (<nHandle>, <cVariable>, <nByte>)
╙├═╛:     ╜½─┌┤µ▒Σ┴┐╡──┌╚▌╨┤╚δ╥╗╕÷╬─╝■╓╨
▓╬╩²:
    <nHandle>     ╥¬╨┤╚δ─┌┤µ▒Σ┴┐─┌╚▌╡─╬─╝■╛Σ▒·
    <cVariable>     ─┌┤µ▒Σ┴┐├√
<nByte>     ╨┤╚δ╬─╝■╓╨╡─╗║│σ╟°╡─╫╓╜┌│ñ╢╚, ╚τ╚▒╩í, ╘≥╗║│σ╟°╓╨
╦∙╙╨╡─╫╓╜┌╢╝╨┤╚δ╬─╝■╓╨íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     fwrite() ║»╩²╖╡╗╪╩╡╝╩╨┤╚δ╬─╝■╓╨╡─╫╓╜┌╩²─┐íú╚τ╣√╨┤
│╔╣ª, ╘≥╖╡╗╪╓╡╜½╡╚╙┌<nByte> ▓╬╩²╓╕╢¿╡─╓╡, ╚τ╣√<nByte> ▓╬╩²├╗╓╕╢¿, ╘≥
╡╚╙┌<cVariable> ▓╬╩²╡─│ñ╢╚len (<cVariable>)íú╞Σ╦ⁿ╖╡╗╪╓╡╢╝╦╡├≈╨┤▓┘╫≈╓╨
│÷╧╓┴╦┤φ╬≤íú
└²╫╙:// ╚τA ┼╠┐╒╝Σ╫π╣╗┤≤, ╘≥╜½╗║│σ╟°─┌╚▌╨┤╚δA ┼╠▓ó╣╪▒╒
╬─╝■
     if len (buff) <diskspace (1)
        fwrire (hand, buff)
        fclose (hand)
    endif

▓╬╝√: @2324 [fcreate](), @2345 [fopen]()

.2353
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

fwriteln()
╙∩╖¿: fwriteln (<nHandle>, <cStr>, <nLength>, <nDelim>)
╙├═╛: ╧≥╬─╝■╓╨╨┤╚δ╫╓╖√┤«
▓╬╩²:
    <nHandle>         ╬─╝■╛Σ▒·
    <cStr>             ╥¬╨┤╚δ╡─╫╓╖√┤«
<nLength>        ╫╓╖√┤«│ñ╢╚íó╚▒╩í╬¬str ╡─│ñ╢╚╝╙nDelim ╡─│ñ╢╚
    <nDelim>        ╜ß╩°╖√(╚▒╩í╬¬CRLF)
╖╡╗╪╓╡: ╬▐
└²╫╙: ▓╬╝√fputs()

.1612
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_close()
╙∩╖¿:     g_close()
╙├═╛:     ╣╪▒╒╥╤│⌡╩╝╗»╡─╧╘╩╛─ú╩╜
▓╬╩²:     ╬▐
╖╡╗╪╓╡: NIL

▓╬╝√:     @1618 [g_init]()

.1613
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_color()
╙∩╖¿:     g_color (<nColor>)
╙├═╛:     ╔Φ╓├╤╒╔½╓╡╬¬<nColor> (0--15)
▓╬╩²:
    <nColor>        ╤╒╔½╓╡(0--15)
╦╡├≈:     ╤╒╔½╓╡╦∙╢╘╙ª╡─╤╒╔½▓╬╝√setcolor()
╖╡╗╪╓╡: ╔Φ╓├╡─╤╒╔½╓╡

╙├╖¿▓╬╝√: @1623 [g_moveto]()

.1614
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_ellips()
╙∩╖¿: g_ellips (<idType>, <nX1>, <nY1>, <nX2>, <nY2>)
╙├═╛: ╗¡╙╔╛╪╨╬<nX1, nY1, nX2, nY2> ╢¿╥σ╡─╘▓╗≥═╓╘▓íú
▓╬╩²:
<idType>     ╠ε│Σ▓╬╩²,  idType=2 ╩▒╗¡╥╗╡Ñ╕÷╘▓, idType=3 ╘≥╗¡═¼╨─╘▓
    <nX1,nY1>     ╛╪╨╬╡─╫≤╔╧╜╟╧≤╦╪╫°▒Ω
    <nX2,nY2>     ╛╪╨╬╡─╙╥╧┬╜╟╧≤╦╪╫°▒Ω
╖╡╗╪╓╡: ╬▐
└²╫╙: g_ellips (2, 10, 10, 200, 300)

.1615
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_get()
╙∩╖¿: g_get (<nX1>, <nY1>, <nX2>, <nY2>)
╙├═╛: ╜½╓╕╢¿╟°╙≥╡─╞┴─╗═╝╧≤╚í╧┬, ▓ó╤╣╚δ═╝╧±╒╗(╫ε╢α
20 ╕÷)
▓╬╩²:
    <nX1,nY1>    ╚í═╝╧±╡─╫≤╔╧╜╟╧≤╦╪╫°▒Ω
    <nX2,nY2>     ╚í═╝╧±╡─╙╥╧┬╜╟╧≤╦╪╫°▒Ω
╖╡╗╪╓╡: │╔╣ª╖╡╗╪═╝╧±╛Σ▒·, ╩º░▄╖╡╗╪0
└²╫╙:
pcx ("file. pcx", 10, 10, 100, 100)
g_get (10, 10, 100, 100)
▓╬╝√:@1625 [g_put](), @1626 [g_puti]()

.1616
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_getpixel()
╙∩╖¿: g_getpixel (<nX>, <nY>)
╙├═╛: ╚í╞┴─╗╔╧─│╡π╡─╤╒╔½
▓╬╩²:
    <nX, nY>    ╥¬╚í╤╒╔½╡─╡π╡─╧≤╦╪╫°▒Ω
╖╡╗╪╓╡: │╔╣ª╖╡╗╪╡▒╟░╡π╡─╤╒╔½ú¼╩º░▄╘≥╖╡╗╪-1
▓╬╝√:@1630 [g_setpixel]()

.1617
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_gettmp()
╙∩╖¿: g_gettmp (<nX1>, <nY1>, <nX2>, <nY2>)
╙├═╛:  ╜½═╝╧±╖┼╚δ┴┘╩▒╟°, ╢°▓╗╩╟╤╣╚δ╒╗
▓╬╩²:
    <nX1,nY1>         ╚í═╝╧±╡─╫≤╔╧╜╟╧≤╦╪╫°▒Ω
    <nX2,nY2>         ╚í═╝╧±╡─╙╥╧┬╜╟╧≤╦╪╫°▒Ω
╖╡╗╪╓╡: ╬▐
▓╬╝√:@1627 [g_puttmp]()

.1618
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_init()
╙∩╖¿:     g_init (<nMode>)
╙├═╛:     │⌡╩╝╗»╧╘╩╛─ú╩╜
▓╬╩²:
    <nMode>         ╧╘╩╛─ú╩╜, ╩²╓╡╨═
╖╡╗╪╓╡: 1
└²╫╙:
#include "winbase.inc"    // ▒╪╨δ░ⁿ└¿╕├╬─╝■
PROCEDURE MAIN (arv1, arv2)
    windowstart()    //WinBase │⌡╩╝╗»
    g_init (18) // │⌡╩╝╗»╬¬═╝╨╬╖╜╩╜
    g_mode (4) // ╗¡╧▀╡─╖╜╩╜╬¬XOR
    g_color (7) // ╔Φ╓├╤╒╔½╬¬░╫╔½
    drawrect() // ▓╬╝√: @1628 [g_rect]()
    inkey (0)
    cls
    linepic() // ▓╬╝√: @1623 [g_moveto]()
    inkey (0)
    cls
    tarpic() // ▓╬╝√: @1631 [g_style]()
    inkey (0)
    g_close() // ╣╪▒╒╥╤│⌡╩╝╗»╡─╧╘╩╛─ú╩╜
    windowexit()
return

▓╬╝√: @1612 [g_close]()

.1619
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_lineto()
╙∩╖¿: g_lineto (<nX>, <nY>)
╙├═╛: ┤╙╡▒╟░╧≤╦╪╡π╬╗╓├╗¡╧▀╡╜<nX, nY>
▓╬╩²:
     <nX>, <nY>     ╧≤╦╪╡π╫°▒Ω
╖╡╗╪╓╡: NIL

╙├╖¿▓╬╝√: @1623 [g_moveto](),  @1607 [drawline]()

.1621
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_mapall()
╙∩╖¿: g_mapall (<colorarr>)
╙├═╛: ╙╔╤╒╔½╩²╫Θ╥╗┤╬╔Φ╓├╡≈╔½░σ
▓╬╩²:
     <colorarr>     ╤╒╔½╩²╫Θ╡─╕±╩╜╬¬{ {R, G, B},..., {R, G, B}}
╖╡╗╪╓╡: ╬▐
└²╫╙: ▓╬╝√ @1620 [g_mappal]()


.1620
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_mappal()
╙∩╖¿: g_mappal (<index>, <nColor>)
╙├═╛: ╔Φ╓├─│╤╒╔½╡─╨┬╔½▓╩
▓╬╩²:
    <index>     ╓╕╢¿╡─╡≈╔½░σ╤╒╔½
    <nColor>     ╨┬╤╒╔½╓╡, ┐╔╙╔g_rgb ║»╩²╗±╡├
╖╡╗╪╓╡: ╬▐
└²╫╙: #include "winbase. ch"
PROCEDURE MAIN (arv1, arv2)
private i, red, green, blue, x, y, color
declare pal [256]

    mappal16()
    setcancel (.T.)
    i: =0
    for x: =0 to 639 step 160
        for y=0 to 479 step 120
            g_color (i)
            i++
            g_rect(3, x, y, x+150, y+110)
        next
    next
    inkey (0)
    i: =1
    for blue=0 to 63 step 16
        for green=0 to 63 step 16
            for red=0 to 63 step 16
                pal [i]: =g_rgb (red, green, blue)
                i++
            next
        next
    next
    g_mapall (pal)
    inkey (0)
    mappal16()
    i: =0
    for green=0 to 63 step 16
        for red=0 to 63 step 16
            for blue=0 to 63 step 16
                color=g_rgb (red, green, blue)
                g_mappal (i, color)
                i++
                inkey (1)
            next
        next
    next
    mappal16()
    inkey (0)
RETURN
▓╬╝√:@1621 [g_mapall]()

.1622
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_mode()
╙∩╖¿: g_mode (<action>)
╙├═╛: ╔Φ╓├╡▒╟░╨┤─ú╩╜
▓╬╩²:
    <action>     ╨┤─ú╩╜, ┐╔╥╘╩╟╥╘╧┬▓╬╩²
    C_GAND:     ╨┤╨┬═╝╧±╩▒╙δ╥╤┤µ╘┌╡─═╝╧±╫≈░┤╬╗╙δ
    C_GOR:     ╨┤╨┬═╝╧±╩▒╙δ╥╤┤µ╘┌╡─═╝╧±╫≈░┤╬╗╗≥
    C_GXOR:     ╨┤╨┬═╝╧±╩▒╙δ╥╤┤µ╘┌╡─═╝╧±╫≈░┤╬╗╥∞╗≥
    C_GPRESET:     ╨┤╨┬═╝╧±╩▒╟≤░┤╬╗╖┤
    C_GPSET:     ╓▒╜╙╨┤╨┬═╝╧±
╖╡╗╪╓╡: ╘¡╙╨╡─╨┤─ú╩╜

.1623
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_moveto()
╙∩╖¿:     g_moveto (<nX>, <nY>)
╙├═╛:     ╜½╧≤╦╪╓╕╒δ╥╞╡╜<nX, nY>
▓╬╩²:
    <nX, nY>     ╧≤╦╪╡π╫°▒Ω
╖╡╗╪╓╡: NIL
└²╫╙:// ▒╛└²├Φ╩÷┴╦╥╗╕÷╕≈╔½╓▒╧▀╫Θ│╔╡─═╝░╕
    function linepic()
    local i, j
    g_moveto (300, 200) // ╧≤╦╪╓╕╒δ╥╞╡╜(300, 200)
    for i=1 to 5
        for j=1 to 5
            g_color (i+j) // ╔Φ╓├╤╒╔½╓╡╬¬i+j
            g_lineto (j*100, i*50)
                // ┤╙╡▒╟░╧≤╦╪╬╗╓├╗¡╧▀╡╜(j*100, i*50)
        next j
    next i
    return nil

▓╬╝√:     @1607 [drawline](), @1613 [g_color](), @1619 [g_lineto]()

.1624
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_port()
╙∩╖¿:     g_port (<nX1>, <nY1>, <nX2>, <nY2>)
╙├═╛:     ╔Φ╓├═╝╨╬╧╘╩╛╟°╙≥
▓╬╩²:
    <nX1,nY1>    ╦∙╕°═╝╨╬╧╘╩╛╟°╙≥╫≤╔╧╜╟╧≤╦╪╡π╫°▒Ω;
    <nX2,nY2>     ╦∙╕°═╝╨╬╧╘╩╛╟°╙≥╙╥╧┬╜╟╧≤╦╪╡π╫°▒Ω.
╖╡╗╪╓╡: NIL
// ▒╛└²├Φ╩÷┴╦╥╗╕÷╘┌═╝╨╬╧╘╩╛╟°╙≥─┌╘╦╢»╡─═╝╨╬
└²╫╙:
    #include "winbase.inc"
    procedure main()
    local i
    windowstart()
    g_init (18) // │⌡╩╝╗»╧╘╩╛─ú╩╜╬¬═╝╨╬╖╜╩╜
    g_rect (2, 80, 80, 560, 400) // ╗¡╥╗╛╪╨═
    g_mode (4) // ╗¡╧▀╡─╖╜╩╜╬¬XOR
    g_port (81, 81, 559, 399) // ╔Φ╓├═╝╨╬╧╘╩╛╟°╙≥
    for i=60 to 600 step 5
        drawcore (i, 150, 100, 50)
        drawcore (640-i, 250, 100, 50)
        tone (i) // ╖ó╔∙
        inkey (0. 05)
    next i
    g_close (18)
    windowexit()
RETURN
function drawcore (topcol, toprow, hight, width) // ╗¡╥╗╚²╜╟╨╬
drawline (topcol, toprow, topcol-int (width/2), toprow+hight, 7)
drawline (topcol, toprow, topcol+int (width/2), toprow+hight, 7)
drawline (topcol+int (width/2), toprow+hight, topcol-int (width/2),;
toprow+hight, 7)
return nil

▓╬╝√:     @1628 [g_rect](), @1622 [g_mode](), @1762 [tone](), @1607 [drawline]()


.1625
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_put()
╙∩╖¿: g_put (<nX1>, <nY1>)
╙├═╛: ╜½═╝╧±╒╗╢Ñ─┌╚▌╡»│÷▓ó╧╘╩╛
▓╬╩²:
    <nX1,nY1>     ╧╘╩╛═╝╧±╡─╫≤╔╧╜╟╧≤╦╪╫°▒Ω
╖╡╗╪╓╡: │╔╣ª╖╡╗╪╡»│÷╡─═╝╧±╛Σ▒·, ╩º░▄╖╡╗╪0
└²╫╙:    pcx ("file. pcx", 10, 10, 100, 100)
    g_get (10, 10, 100, 100)
    clear
    g_put (10, 10)

.1626
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_puti()
╙∩╖¿: g_puti (<nX>, <nY>, <nPh>)
╙├═╛: ╧╘╩╛═╝╧±╒╗╓╨╓╕╢¿╛Σ▒·╡─═╝╧±
▓╬╩²:
    <nX, nY>    ╧╘╩╛═╝╧±╡─╫≤╔╧╜╟╧≤╦╪╫°▒Ω
    <nPh>        ═╝╧≤╛Σ▒·
╖╡╗╪╓╡: │╔╣ª╖╡╗╪═╝╧≤╛Σ▒·, ╩º░▄╖╡╗╪0.
└²╫╙:    h: =g_get (10, 10, 100, 100)
    clear
    g_puti (10, 10, h)

.1627
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_puttmp()
╙∩╖¿: g_puttmp (nX, nY)
╙├═╛: ╧╘╩╛┴┘╩▒╟°╡─═╝╧±, ▓ó╩═╖┼╕├┐╒╝Σíú
▓╬╩²:
    <nX, nY>    ╧╘╩╛═╝╧±╡─╫≤╔╧╜╟╧≤╦╪╫°▒Ω
╖╡╗╪╓╡: ╬▐

.1628
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_rect()
╙∩╖¿:     g_rect (<nMode>, <nX1>, <nY1>, <nX2>, <nY2>)
╙├═╛:     ╗¡╖╜┐≥╗≥╠ε│Σ
▓╬╩²:
    <nMode>    ╬¬2╩▒╗¡╖╜┐≥ú¼╬¬3╩▒╠ε│Σ╖╜┐≥
    <nX1,nY1>    ╖╜┐≥╫≤╔╧╜╟╧≤╦╪╨╨┴╨╫°▒Ω
    <nX2,nY2>    ╖╜┐≥╙╥╧┬╜╟╧≤╦╪╨╨┴╨╫°▒Ω
╖╡╗╪╓╡: NIL
└²╫╙:// ╕├└²╗¡╥╗╧╡┴╨╜╗▓µ╡─╖╜┐≥
 function deawrect()
local i
    for i=1 to 10
        g_rect (2, 30+60*i, 20+40*i, 640-60*i, 480-40*i)
    next
    inkey (0)
    cls
return nil

▓╬╝√: @1606 [drawbox](), @1602 [box3d]()

g_rectc()
╙∩╖¿: g_rectc (<nColor>, <nX1>, <nY1>, <nX2>, <nY2>)
╙├═╛: ╗¡╘▓╜╟╖╜┐≥
▓╬╩²:
    <nColor>    ╖╜┐≥╤╒╔½
    <nX1,nY1>     ╖╜┐≥╡─╫≤╔╧╜╟╧≤╦╪╫°▒Ω
    <nX2,nY2>     ╖╜┐≥╡─╙╥╧┬╜╟╧≤╦╪╫°▒Ω
╖╡╗╪╓╡: ╬▐
└²╫╙: g_rectc (1, 5, 5, 100, 100)
▓╬╝√:g_rectc()

.1629
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_rgb()
╙∩╖¿: g_rgb (<R>, <G>, <B>)
╙├═╛: ╟≤╙╔R, G, B ╗±╡├╡─│ñ╒√╩²╤╒╔½╓╡
▓╬╩²:
    <R>        ║∞╔½▒╚└²
    <G>        ┬╠╔½▒╚└²
    <B>        └╝╔½▒╚└²
╖╡╗╪╓╡: ╙╔R. G. B ╗±╡├╡─│ñ╒√╩²╤╒╔½╓╡
└²╫╙: ▓╬╝√g_mappal()

.1630
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_setpixel()
╙∩╖¿: g_setpixel (<nX>, <nY>, [<nColor>])
╙├═╛: ╘┌╞┴─╗╔╧╗¡╡π, ╚τ╬┤╔Φ╓├╤╒╔½▓╬╩²╘≥╥╘╡▒╟░╔½╗¡
╡π
▓╬╩²:
    <nX, nY>        ╥¬╗¡╡π╡─╧≤╦╪╫°▒Ω
    [<nColor>]        ╦∙╗¡╡π╡─╤╒╔½
╖╡╗╪╓╡: │╔╣ª╖╡╗╪╧╚╟░╡π╡─╤╒╔½ú¼╩º░▄╘≥╖╡╗╪-1
▓╬╝√:@1616 [g_getpixel]()

.1631
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

g_style()
╙∩╖¿:    g_style (<nMode>, <nLinestyle>)
╙├═╛: ╔Φ╓├╗¡╧▀─ú╩╜
▓╬╩²:     ╚⌠nLinestyle ╬¬┐╒ú¼╘≥nMode=0 ╩▒╬¬╨Θ╧▀ú¼nMode=1 ╩▒╬¬╩╡╧▀,
    ╖±╘≥╗¡╧▀╜½░┤linestyle ╓╕╢¿╡──ú╩╜╜°╨╨.
    nLinestyle=65536 ╩▒╬¬╩╡╧▀
    nLinestyle=3084 ╩▒╬¬╨Θ╧▀
    ╞Σ╙α╬¬╝Σ╢╬╧▀
╖╡╗╪╓╡: ╡▒╟░╗¡╧▀─ú╩╜
└²╫╙ú║
#include "winbase.inc"

PROCEDURE MAIN(arv1,arv2)
private i,x,y,s
    windowstart( )
    x:=5
    y:=5
    s:=1
    for i=1 to 60
        g_style(,s)        //╓├╗¡╧▀─ú╩╜
        drawline(x,y,300,240,1+mod(i,16))
        x:=x+10
        s++
    next
return

.2355
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

getattr()
╙∩╖¿: getattr (<cFilename>)
╙├═╛: ╗±╡├╬─╝■╡─╩⌠╨╘
▓╬╩²:
    <cFilename>         ╬─╝■├√
╖╡╗╪╓╡: ╬─╝■╩⌠╨╘, ╩⌠╨╘╓╡▓╬╝√setattr
▓╬╝√:@2364 [setattr]()

.1303
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

getcond()
╙∩╖¿:     getcond (<cTitle>, <dbfali>, <cInitval>, <cHelpfunc>)
╙├═╛:     ╡»│÷╠⌡╝■╫Θ║╧╢╘╗░┐≥, ┐╔╙├TAB ╝ⁿ╠°╫¬
▓╬╩²:
    <cTitle>     ╠ß╩╛
    <dbfali>     ╩²╛▌┐Γ▒≡├√
    <cInitval>     │⌡╩╝╠⌡╝■┤«
    <cHelpfunc>     ░∩╓·║»╩²├√
╖╡╗╪╓╡: ╫╓╖√┤«(╫Θ║╧╠⌡╝■)

└²╫╙:
#include "winbase.inc"
procedure example4()
local temp, mycon
    windowstart()
    select 1 // ╤í╘±╣ñ╫≈╟°1
    use dd // ┤≥┐¬╩²╛▌┐Γdd
    temp: =alias (1) // ╡├╡╜dd ╡─▒≡├√
    mycon: =getcond (" ╤í╘±╠⌡╝■╫Θ║╧", temp," '', "myfun")
            // ╡├╡╜╠⌡╝■╫Θ║╧(mycon)
    ... // │⌡╓╡╬¬┐╒, ░∩╓·║»╩²myfun
    windowexit()
return

function myfun() // ░∩╓·║»╩²
    msgbox( "Please wait! ", " ╙├╩≤▒Ω╤í╘±╠⌡╝■",1)
return nil

▓╬╝√:     @3116[find], @3122[locate]

.1304
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

getdlg()
╙∩╖¿:    getdlg (<nHandle>, <idType>, <cTitle>, [<nSpecpos>])
╙├═╛:    ╚í└α╨═╬¬CHECK, RADIO, EDIT, LISTBOX, MULEDIT
    ╢╘╗░┐≥╡─╖╡╗╪╓╡
▓╬╩²:
    <nHandle>         ╢╘╗░┐≥╛Σ▒·
    <idType>        ╢╘╗░┐≥└α╨═
    <cTitle>        ╢╘╗░┐≥▒Ω╠Γ
<nSpecpos>         ╓╕╢¿╥¬╗±╚í╡─╧ε─┐╘┌╢╘╗░┐≥╓╨╡─╬╗╓├(╢╘CHECKíóEDITíóLISTBOX └α╨═)
╖╡╗╪╓╡:▓╗═¼└α╨═╡─╢╘╗░┐≥╜½╖╡╗╪▓╗═¼╡─╓╡, ╛▀╠σ╚τ╧┬:
 (1) CHECK └α: ╚⌠nSpecpos╓╕╢¿╡─╧ε─┐▒╗╤í╘±╛═╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
 (2) RADIO └α: ╖╡╗╪▒╗╤í╓╨╧ε─┐╡─╨≥║┼
 (3) LISTBOX └α: ╖╡╗╪▒╗╤í╓╨╧ε─┐╡──┌╚▌(╫╓╖√┤«)
 (4) EDIT └α: ╖╡╗╪nSpecpos ╓╕╢¿╧ε─┐╡──┌╚▌(╩²╛▌└α╨═╧ε─┐╢°╢¿)
 (5) MULEDIT └α: ╖╡╗╪▒╗▒α╝¡╡─╬─▒╛
└²╫╙:
#include "winbase.inc"
memvar dlg_succ, check_ret, edit_ret, radio_ret, list_ret, mul_ret

procedure main()
local init_pos: =1
private setdlg_ret, dlg_succ
private check_ret, edit_ret, radio_ret, list_ret, mul_ret

    windowstart()
    msgbox (" ╚í╢╘╗░┐≥╖╡╗╪╓╡", " ╙ª╙├║»╩²GETDLG() └α", 1)
    setdlg_ret=muti_demo (init_pos)
    if. not. dlg_succ
        msgbox (" ╔Φ╓├╫Θ║╧╢╘╗░┐≥╩º░▄", "", 1)
    else
        if check_ret
            msgbox (" ╢α╧ε╢╘╗░┐≥╖╡╗╪╓╡:.T. ",;
            "CHECK"+str (init_pos, 1) +" ▒╗╤í╓╨", 1)
        else
            msgbox (" ╢α╧ε╢╘╗░┐≥╖╡╗╪╓╡:.F. ",;
            "CHECK"+str (init_pos, 1) +" ╬┤╤í╓╨", 1)
        endif
        msgbox (" ╡Ñ╧ε╢╘╗░┐≥╖╡╗╪╓╡: ", str (radio_ret, 1), 1)
        msgbox (" ╩²╛▌▒α╝¡╢╘╗░┐≥╖╡╗╪╓╡: ", edit_ret, 1)
        msgbox (" ╬─▒╛▒α╝¡╢╘╗░┐≥╖╡╗╪╓╡: ", mul_ret, 1)
        msgbox (" ┴╨▒φ╢╘╗░┐≥╖╡╗╪╓╡: ", list_ret, 1)
    endif
    windowexit()
return

function muti_demo (init_pos)

    dlg_succ=setdlg (19687, "check", " ╢α╧ε┐≥",;
     { {"CHECK1", 0}, {"CHECK2", 0}, {"CHECK3", 1}}, 1, 8, 20, init_pos)
    dlg_succ=setdlg (19687, "radio", " ╡Ñ╧ε┐≥",;
         {"RADIO1", "RADIO2"}, 1, 8, 42, init_pos)
    dlg_succ=setdlg (19687, "edit", " ▒α╝¡┐≥",;
     { {"EDIT1", "WINBASE"}, {"EDIT2", 8}}, 1, 10, 13, 26)
    dlg_succ=setdlg (19687, "listbox", " ┴╨▒φ┐≥",;
     {"list1", "list2", "list3"}, 18, 26, 22, 42, init_pos)
    dlg_succ=setdlg (19687, "muledit", " ╬─▒╛▒α╝¡┐≥",;
        " ╘╞┤≤╚φ╝■╣½╦╛", 18, 45, 22, 66)
    if    makedlg (19687, " ╫Θ║╧╢╘╗░┐≥")
        check_ret=getdlg (19687, "check", " ╢α╧ε┐≥", init_pos)
        radio_ret=getdlg (19687, "radio", " ╡Ñ╧ε┐≥")
        edit_ret=getdlg (19687, "edit", " ▒α╝¡┐≥", init_pos)
        list_ret=getdlg (19687, "listbox", " ┴╨▒φ┐≥")
        mul_ret=getdlg (19687, "muledit", " ╬─▒╛▒α╝¡┐≥")
    endif
    removedlg (19687)

return nil
▓╬╝√:@1312 [setdlg]()

.1723
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

getenv()
╙∩╖¿:     getenv (<cExp>)
╙├═╛:     ╚íDOS ╗╖╛│▒Σ┴┐╡──┌╚▌íú
▓╬╩²:
    <cExp>    ╫╓╖√┤«, DOS ╗╖╛│▒Σ┴┐╡─├√│╞íú
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:     temp: =getenv ("path")
    ? temp // ╜½╖╡╗╪DOS ╗╖╛│▒Σ┴┐PATH ╡─╔Φ╓├

▓╬╝√: @1719 [errorlevel]()

.1305
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

getfile()
╙∩╖¿:     getfile (<cTitle>, <cFilespec>, <idFlag>)
╙├═╛:     ╡»│÷╬─╝■╢╘╗░┐≥, ┐╔╙├TAB ╝ⁿ╠°╫¬, ╙├ALT+ í²╤í╘±┬╖╛╢
▓╬╩²:
    <cTitle>         ╠ß╩╛, ╫╓╖√┤«
    <cFilespec>         ╓╕╢¿╬─╝■└α╨═, ┐╔╙├? ╝░*
<idFlag>         ▓╗╬¬┐╒╩▒, ╖╡╗╪┤°┬╖╛╢╡─╬─╝■├√, ╖±╘≥╓╗╖╡╗╪╬─╝■├√
╖╡╗╪╓╡: ╫╓╖√┤«
└²╫╙:
#include "winbase.inc"
procedure example3()
local temp: =' '
    windowstart()
    temp: =getfile (" ╟δ╤í╘±╬─╝■", "c: \winbase\system\*. *,;
        c: \winbase\system\*. dbf", 'n')
        // ╤í╘±╬─╝■, ╖╡╗╪┤°┬╖╛╢╡─╬─╝■├√
    ú└ 24, 20 say padc (" ─π╤í╘±╬─╝■╩╟"+temp, 50)
             // ┤≥╙í│÷─π╤í╘±╡─┤°┬╖╛╢╬─╝■├√
    inkey (0) // ╚╬░┤╥╗╝ⁿ╝╠╨°
    windowexit()
return
▓╬╝√:     @2313 [directory]()

.2356
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

getfilepath()
╙∩╖¿: getfilepath (<cFilename>)
╙├═╛: ╚í╬─╝■├√╓╨╡─┬╖╛╢
▓╬╩²:
    <cFilename>         ╬─╝■├√╫╓╖√┤«
╖╡╗╪╓╡: ╖╡╗╪╬─╝■<cFilename> ╓╨╡─┬╖╛╢
└²╫╙:? getfilepath ("C: \DOS\COMANND. COM")    //╖╡╗╪ú║C:\DOS\

.2357
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

getint24()
╙∩╖¿: getint24()
╙├═╛: ╗±╚íINT 24 ┤ª└φ╡─│÷┤φ┤·┬δ
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╓╡, ╛▀╠σ║¼╥σ╚τ╧┬▒φ╦∙╩╛
        ┤·┬δ            ║¼╥σ
        1            ┤┼┼╠╨┤▒ú╗ñ
        2            ╬┤╓¬╡─▓┐╝■
        3            ╟²╢»╞≈╬┤╫╝▒╕║├
        4            ╬┤╓¬╡─├ⁿ┴ε
        5            CRC │÷┤φ
        6            ╟δ╟≤│÷┤φ
        7            ╦╤╦≈│÷┤φ
        8            ╜Θ╓╩└α╨═┤φ
        9            ╔╚╟°╬┤╒╥╡╜
        10            ┤≥╙í╗·╚▒╓╜
        11            ┤┼┼╠╨┤│÷┤φ
        12            ┤┼┼╠╢┴│÷┤φ
        13            ╥╗░π╨╘┤φ╬≤

└²╫╙:    ▓╬╝√setint24()

.1632
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

getrname()
╙∩╖¿:     getrname (<nRow>, <nCol>, <cFilename>)
╙├═╛:     ╜½┤╙╗╖╛│▒Σ┴┐BASETEMP ╦∙╓╕┬╖╛╢╡─╬─╝■<cFilename> ╓╨╗╓╕┤╡╜╞┴─╗, ▓ó
╖╡╗╪╧α╙ª╡─╬─╝■├√íú
▓╬╩²:
<nRow,nCol>    ╓╕╢¿╡─╞┴─╗╟°╙≥╫≤╔╧╜╟╫°▒Ω;╘┌WINBASE╨┬░µ╓╨ú¼╕├▓╬╩²╥╤╬▐
╫≈╙├ú¼╓╗╩╟╬¬┴╦▒ú│╓╙δ╛╔░µ╝µ╚▌íú
    <cFilename>        ╬─╝■├√, ┐╔┤°┬╖╛╢íú
╖╡╗╪╓╡: ╧α╙ª╡─╬─╝■├√

└²╫╙▓╬╝√: @1634 [loadform](), @1637 [pcx](),
 @1641 [putform](), @1605 [dispform]()

.2358
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

getpath()
╙∩╖¿: getpath (<cFilename>, <cPathspec>)
╙├═╛: ╘┌╓╕╢¿╡─┬╖╛╢╓╨╚╖╢¿╬─╝■╩╟╖±┤µ╘┌
▓╬╩²:
    <cFilename>         ╬─╝■├√
    <cPathspec>         ┬╖╛╢├√
╖╡╗╪╓╡: ╘┌cPathspec ╓╕╢¿╡─┬╖╛╢╓╨┤µ╘┌cFilename ╘≥╖╡╗╪┤°┬╖╛╢cFilename , ╖±╘≥╖╡
╗╪NIL
└²╫╙:? getpath ("user. dbf", "mydir")
▓╬╝√:@2354 [fullpath]()

.1633
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

getwname()
╙∩╖¿:     getwname (<nRow1>, <nCol1>, <nRow2>, <nCol2>, <cFilename>)
╙├═╛:     ╜½╓╕╢¿╡─╞┴─╗╟°╙≥┤µ╓ⁿ╡╜╙╔╗╖╛│▒Σ┴┐BASETEMP ╦∙╓╕┬╖
╛╢╡─╬─╝■<cFilename> ╓╨, ▓ó╖╡╗╪╧α╙ª╡─╬─╝■├√íú
▓╬╩²:
    <nRow1, nCol1>     ╓╕╢¿╡─╞┴─╗╟°╙≥╫≤╔╧╜╟╫°▒Ω;
    <nRow2, nCol2>     ╓╕╢¿╡─╞┴─╗╟°╙≥╙╥╧┬╜╟╫°▒Ω;
    <cFilename>         ╬─╝■├√, ┐╔┤°┬╖╛╢
╖╡╗╪╓╡: ╧α╙ª╡─╬─╝■├√

╙├╖¿▓╬╝√: @1642 [saveform](), @1634 [loadform](), @1637 [pcx](), @1632 [getrname]()

.1001
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

gotowindow()
╙∩╖¿:     gotowindow (<nHandle>)
╙├═╛:     ▓╗▒ú┤µ╡▒╟░┤░┐┌, ╫¬╡╜<nHandle> ╓╕╢¿╡─┤░┐┌
▓╬╩²:
    <nHandle>    ╓╕╢¿╡─┤░┐┌╛Σ▒·, ╙╔makewindow(), window() ╡╚╗±╡├
╖╡╗╪╓╡: NIL

└²╫╙▓╬╝√: @1006 [shiftwindow]()

.2359
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

hard_chdir()
╙∩╖¿: hard_chdir (<cDirPath>)
╙├═╛: ░╤╡▒╟░─┐┬╝╫¬╡╜╓╕╢¿╡─╟²╢»╞≈║═┬╖╛╢╓╨
▓╬╩²:
    <cDirPath>         ┬╖╛╢├√╫╓╖√┤«
╖╡╗╪╓╡: │╔╣ª╖╡╗╪. T., ╖±╘≥╖╡╗╪. F.
└²╫╙:    ? hard_chdir ("c: \winbase")

.2208
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

hardcr()
╙∩╖¿:     hardcr (<cExp>)
╙├═╛:     ╜½╫╓╖√┤«╗≥▒╕╫ó╬─╝■╓╨╦∙╙╨╚φ╗╪│╡(chr (141) ╗╗│╔╙▓╗╪
│╡chr (13)íú
▓╬╩²:
    <cExp>    ┤«▒Σ┴┐╡─├√│╞╗≥▒╕╫ó╫╓╢╬╡─├√│╞
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:    // ┤≥╙ímymem ╡──┌╚▌
     set printer on
    hardcr (mymem)

▓╬╝√:     @2222 [memoedit](), @2230 [memotran]()

.2452
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

header()
╙∩╖¿:     header()
╙├═╛:     ╝╞╦π╡▒╟░╩²╛▌┐Γ╬─╝■═╖╡─╫╓╜┌╩²íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:
/* ╧┬└²╝∞▓ΘA ┼╠╡─╩ú╙α┐╒╝Σ┴┐, ╚τ╨í╙┌─┐▒Ω╬─╝■│ñ╢╚, ╘≥▓╗
┐╜▒┤íú*/
 if diskspace (1) < (recsize() *lastrec() +header() +1)
    cls
    ú└ 10, 10 "A ┼╠╡─╫╘╙╔┐╒╝Σ▓╗╣╗, ▓╗─▄┐╜▒┤"
else
    copy file klgz. dbf to A:
endif

▓╬╝√:     @2474 [recsize](), @2318 [diskspace](), @2459 [lastrec]()

.1919
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

hsecond()
╙∩╖¿: hsecond()
╙├═╛: ╟≤▒╛╠∞╥╤┴≈╩┼╡─├δ╩²
▓╬╩²: ╬▐
╖╡╗╪╓╡: ├δ╩²
└²╫╙:? hsecond()

.2104
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@21[╫¬╗╗║»╩²╦≈╥²]

i2bin()
╙∩╖¿:     i2bin (<nExp>)
╙├═╛:     ╜½╩²╫╓╓╡╫¬╗╗│╔16 ▒╚╠╪(2 ╫╓╜┌) ╖√║┼╒√╩²╕±╩╜╡─╫╓╖√
┤«íú
▓╬╩²:
    <nExp>     ╩²╫╓╓╡, ▒φ┤∩╩╜╓╨╡─╨í╩²▓┐╖╓╢╝╜½▒╗╔ß╞·
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:     hand: =fopen ("my. prg")
    fwrite (hand, i2bin (26), 1) // ╧┬╥╗╕÷╨┤╡╜┤┼┼╠╡─╫╓╜┌╩╟1A

▓╬╝√:     @2102 [bin2l](), @2101 [bin2i](), @2103 [bin2w](), @2105 [l2bin](), @2347 [fread]()

.2503
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

if|iif()
╙∩╖¿:     if|iif (<lCondition>, <exp1>, <exp2>)
╙├═╛:     ╠ß╣⌐╥╗╓╓╖╜╖¿╥╘╤í╘±╩╣╙├┴╜╓╓┐╔─▄▒φ┤∩╩╜╡─
╥╗╓╓
▓╬╩²:
<lCondition>    ▒╗╟≤╓╡╡─╠⌡╝■
<exp1>        ╚τ<lCondition> ╡─┬▀╝¡╓╡╬¬╒µ, ╘≥╩╣╙├<exp1> ▒φ┤∩╩╜
<exp2>        ╚τ<lCondition> ╡─┬▀╝¡╓╡╬¬╝┘, ╘≥╩╣╙├<exp2> ▒φ┤∩╩╜
╖╡╗╪╓╡: <exp1> ╓╡╗≥<exp2> ╓╡
└²╫╙:
temp: =-1
? if (temp>0, temp, 0-temp) // ╖╡╗╪1

.1210
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

in
╙∩╖¿:in( <cDesp> , [<nLen> ,<xInit>] )
╙├═╛:╙├╙┌╘┌┤≥╙í╣²│╠╓╨╩╡╩▒╩Σ╚δ╫╓╖√┤«ú¿ ╙├╙┌▒¿▒φ
╔Φ╝╞ú⌐
▓╬╩²:
    <cDesp>    ╓╨╬─╠ß╩╛
    <nLen>    ╧▐╓╞╩Σ╚δ╡─╫╓╖√┤«│ñ╢╚
    <xInit>        ╩Σ╚δ╓╡╡─│⌡╓╡
╖╡╗╪╓╡:
└²╫╙:
IN( "╟δ╩Σ╚δ▓┐├┼ú║"ú¼20ú¼SPACE(20) )

.2453
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

indexext()
╙∩╖¿:     indexext()
╙├═╛:     ═¿╣²┼╨╢╧╡▒╟░┴¼╜╙╜°╡─╩²╛▌┐Γ╟²╢»╞≈╥╘╖╡╗╪
╚▒╩í╡─╦≈╥²╬─╝■╡─└⌐╒╣├√íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈:     │²╖╟─π┴¼╜╙╜°▒≡╡─╩²╛▌┐Γ╟²╢»╞≈, ╖±╘≥╖╡╗╪WINBASE ╚▒╩í
╓╡"   .NTX"íú
└²╫╙:     if lower (indexext()) <>. "ntx"
        ? " ╥╤┴¼╜╙╜°▒≡╡─╩²╛▌┐Γ╟²╢»╞≈"
    else
        ? " ├╗┴¼╜╙╜°▒≡╡─╩²╛▌┐Γ╟²╢»╞≈"
    endif

▓╬╝√:     @2429 [dbsetdriver]()

.2455
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

indexkey()
╙∩╖¿:     indexkey (<nExp>)
╙├═╛:     ╚╖╢¿╥╗╕÷╦≈╥²╬─╝■╡─╣╪╝ⁿ╫╓╜ß╣╣íú
▓╬╩²:
<nExp>     ╓╕╢¿╦≈╥²╬─╝■▒φ╓╨╦≈╥²╬─╝■╦│╨≥║┼, ╞Σ╓╨╦≈╥²╬─╝■
▒φ╙╔╫ε╜ⁿ╥╗┤╬╓┤╨╨use ├ⁿ┴ε╗≥set index ├ⁿ┴ε╛÷╢¿íú
╖╡╗╪╓╡: ╫╓╖√└α╨═, ╣╪╝ⁿ╫╓▒φ┤∩╩╜
╦╡├≈:     indexkey() ╫▄╩╟╖╡╗╪╡▒╟░┐╪╓╞▒φ┤∩╩╜╡─╫╓╢╬íú
└²╫╙: use my index no, name, age
    ? indexkey (0) // ╖╡╗╪no
    ? indexkey (1) // ╖╡╗╪no
    ? indexkey (2) // ╖╡╗╪name
    ? indexkey (5) // ╖╡╗╪╥╗┐╒┤«

▓╬╝√:     indextent(), @2456 [indexord](), @3139[set index], @3140[set order]

.2456
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

indexord()
╙∩╖¿:     indexord()
╙├═╛:     ╚╖╢¿╡▒╟░╦≈╥²╬─╝■▒φ╓╨╡─╓≈╦≈╥²╬─╝■íú╓≈╦≈╥²
╬─╝■╩▄╫ε╜ⁿ╥╗┤╬╡─use ├ⁿ┴ε╗≥set index ├ⁿ┴ε┐╪╓╞íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     indexord() ╫▄╩╟╖╡╗╪╡▒╟░╦≈╥²╬─╝■▒φ╡─╦≈╥²╬─╝■╡─╬╗╓├
╨≥║┼íú╚τ╣√╖╡╗╪0, ╘≥▒φ├≈╡▒╟░├╗╙╨┤≥┐¬╦≈╥²╬─╝■íú
└²╫╙:     use my index no, name, age
    ? indexord() // ╖╡╗╪1
    set order to 3
    ? indexord() // ╖╡╗╪3

▓╬╝√:     indextent(), @2455 [indexkey](), @3139[set index], @3140[set order]

.2454
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

indextext()
╙∩╖¿:     indextext()
╙├═╛:     ╚╖╢¿╩╟╖±╙╨╥╗╕÷▒╕╙├╡─╩²╛▌┐Γ╟²╢»│╠╨≥▒╗┴¼
╜╙╜°╙ª╙├│╠╨≥╓╨íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈:     winbase ╘╩╨φ░╤╥╗╕÷▒╕╙├╡─╩²╛▌┐Γ╟²╢»│╠╨≥┴¼╜╙╜°╙ª
╙├│╠╨≥╓╨, ╒Γ╩╣╡├╙ª╙├│╠╨≥┐╔╥╘═╕├≈╡╪╩╣╙├▒╕╙├╬─
╝■╕±╩╜íú
└²╫╙: if indextext() =". ndx"
        ? "dBASE ╟²╢»│╠╨≥┴¼╜╙╜°╙ª╙├│╠╨≥"
    else
        ? "dBASE ╟²╢»│╠╨≥├╗▒╗┴¼╜╙╜°╙ª╙├│╠╨≥"
    endif

▓╬╝√: @2455 [indexkey](), @2456 [indexord]()

.1724
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

initline()
╙∩╖¿:     initline (<nNum>)
╙├═╛:     ╔Φ╓├├┐╥╗╬─▒╛╨╨╡─╧≤╦╪╕▀╢╚
▓╬╩²:
    <nNum>     ╩²╫╓╓╡, ▒φ╩╛╧≤╦╪╕▀╢╚
╖╡╗╪╓╡: NIl
└²╫╙:     initline (16) // ╔Φ╓├╬─▒╛╨╨╡─╧≤╦╪┐φ╢╚╬¬16

.2457
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

initvars()
╙∩╖¿: initvars()
╙├═╛:     ┤┤╜¿╥╗╠╫╢╘╙ª╙┌╡▒╟░╩²╛▌┐Γ╓╨╡─╫╓╢╬╡─╣½╣▓
─┌┤µ▒Σ┴┐, ▒Σ┴┐├√╬¬╫╓╢╬├√╟░╝╙╫╓╖√"M".
▓╬╩²: ╬▐
╖╡╗╪╓╡: nil
└²╫╙:     use test new        // ╝┘╔Φtest. dbf ║¼╫╓╢╬T1, T2
    initvars()
    equvars()
    ? mt1            // ╣█▓∞▒Σ┴┐
    mt1: ="aaaaaa"
    replvars()        // ┤·╠µ╡▒╟░╩²╛▌┐Γ╓╨╡─╫╓╢╬
    display
    freevars()

.1504
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

inkey()
╙∩╖¿:     inkey (<nExp>)
╙├═╛:     ╚╖╢¿╝ⁿ┼╠╔╧▒╗╝ⁿ╚δ╡─╫╓╖√, ▓ó╜½╝ⁿ╚δ╡─╫╓╖√┤╙│¼
╟░╝ⁿ╚δ╗║│σ╟°╓╨╔╛│²íúinkey() ║»╩²╥▓┐╔╜½│╠╨≥╡─╓┤╨╨╣╥
╞≡╥╗╢╬╠╪╢¿╡─╩▒╝Σíú
▓╬╩²:
<nExp>    │╠╨≥╗╓╕┤╘╦╨╨╓«╟░╘▌═ú╡─├δ╩²íú╚⌠╬¬0, ▒φ╩╛│╠╨≥╜½
▒ú│╓╘▌═ú╓▒╡╜╙╨╗≈╝ⁿ╖ó╔·╬¬╓╣íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     inkey() ║»╩²╖╡╗╪╥╗╩²╫╓íú┤╦╩²╫╓╩╟╝ⁿ╚δ╡─╫╓╖√╡─inkey( )╓╡╗≥
ASCII ┬δ╓╡íú
└²╫╙:    ? inkey (0) // ╚τ░┤╧┬ESC ╝ⁿ, ╖╡╗╪27
    inkey (5) // ╤╙╩▒5 ├δ, ░┤╧┬╞Σ╦ⁿ╝ⁿ╜½┴ó╝┤╖╡╗╪

▓╬╝√:     @1507 [lastkey](), @1526 [nextkey](), @3405[set key],
 @2205 [chr](), @1710 [delay](), @1521 [mousekey]()

.1306
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

inputbox()
╙∩╖¿:     inputbox (<nMsg1>, <nMsg2>, <idType>, <xInitval>)
╙├═╛:     ╘┌▓╗═¼╨╨╧╘╩╛╨┼╧ó▓ó╜╙╩▄╩Σ╚δ
▓╬╩²:
    <nMsg1>,<nMsg2>    ╧╘╩╛╨┼╧ó, ╫╓╖√┤«
    <xInitval>         ╬¬╩Σ╚δ│⌡╩╝╓╡
<idType>         ╬¬1 ╩▒╧╘╩╛╩Σ╚δ─┌╚▌, ╬¬2 ▓╗╧╘╩╛
╖╡╗╪╓╡: ╩Σ╚δ╓╡

└²╫╙╝√ msgbox()

.2013
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

int()
╙∩╖¿:     int (<nExp>)
╙├═╛:     ╔ß╞·╩²╤º▒φ┤∩╩╜╡─╨í╩²▓┐╖▌, ╖╡╗╪╥╗╒√╩²íú
▓╬╩²:
    <nExp>     ▒╗╟≤╓╡╡─╩²╤º▒φ┤∩╩╜
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:    ? int (8/3) // ╖╡╗╪2
    ? int (-8/3) // ╖╡╗╪-2

▓╬╝√:     @2245 [str]()

.2458
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

isalias()
╙∩╖¿: isalias (<aliasname>)
╙├═╛: ┼╨╢╧aliasname ╩╟╖±╩╟▒≡├√
▓╬╩²:
    <aliasname>         ╩²╛▌┐Γ▒≡├√╡─╫╓╖√┤«
╖╡╗╪╓╡: │╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
└²╫╙:    use datafile alias tt
    ? closealias ("tt")
    ? closealias ("cc")

.2209
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

isalpha()
╙∩╖¿:     isalpha (<cExp>)
╙├═╛:     ╚╖╢¿╫╓╖√┤«╓╨╡┌╥╗╕÷╫╓╖√╩╟╖±╬¬╫╓─╕íú
▓╬╩²:
    <cExp>    ╟≤╓╡╡─┤«
╖╡╗╪╓╡: ┬▀╝¡└α╨═
└²╫╙:
? isalpha ("t123") // ╜ß╣√╬¬.T.
? isalpha ("123a") // ╜ß╣√╬¬.F.

▓╬╝√:     @2210 [isdigit](), @2211 [islower](), @2213 [isupper]()

.1725
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

iscolor()
╙∩╖¿:     iscolor()
╙├═╛:     ╚╖╢¿╝╞╦π╗·╩╟╖±┼Σ╙╨▓╩╔½╧╘╩╛╞≈
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ┬▀╝¡└α╨═, ┼Σ╙╨▓╩╔½╧╘╩╛╞≈╘≥╖╡╗╪.T. ,╖±╘≥╖╡╗╪.F.

└²╫╙: // ╧┬└²╧╘╩╛╥╗╨⌐╧╡═│╨┼╧ó
function sysform (topr, topc, endr, myendc)
local curscreen, curcolor
    curoff()
    curscreen: =savescreen (topr, topc, endr, myendc)
    curcolor: =setcolor ("gr+/b", "w")
    ú└ topr, topc clear to endr, myendc
    ú└ topr+2, topc+3 say padc (" ╧╡═│╨┼╧ó", 34)
    ú└ topr+3, topc+3 say "DOS ░µ▒╛║┼: "+os()
    ú└ topr+4, topc+3 say "WINBASE ░µ▒╛║┼: "+version()
    ú└ topr+5, topc+3 say " ╧╘╩╛╞≈: "+iif (iscolor(), " ▓╩╧╘", " ╡Ñ╧╘")
    ú└ topr+6, topc+3 say " ╣ª─▄╝ⁿ╫ε┤≤╨≥║┼: "+str (fkmax())
    ú└ topr+7, topc+3 say " ╡▒╟░DOS ╣ñ╫≈╟°: "+d_path()
    ú└ topr+8, topc+3 say " ╧╘╩╛╞≈╫ε┤≤╨╨╩²: "+str (maxrow() +1)
    ú└ topr+9, topc+3 say " ╧╘╩╛╞≈╫ε┤≤┴╨╩²: "+str (maxcol() +1)
    inkey (0)
    setcolor (curcolor)
    ú└ topr, topc clear to endr, myendc
    restscreen (topr, topc, endr, myendc, curscreen)
    curon()
return nil

▓╬╝√:     @1749 [setcolor](), @3017[set color]

.2210
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

isdigit()
╙∩╖¿:    isdigit (<cExp>)
╙├═╛:     ╚╖╢¿╫╓╖√┤«╓╨╡┌╥╗╕÷╫╓╖√╩╟╖±╬¬╩²╫╓íú
▓╬╩²:
    <cExp>    ╟≤╓╡╡─┤«
╖╡╗╪╓╡: ┬▀╝¡└α╨═ú¼╩╟╩²╫╓╖╡╗╪.T. , ╖±╘≥╖╡╗╪.F.
└²╫╙:
? isdigit ("t123") // ╜ß╣√╬¬.F.
? isalpha ("123a") // ╜ß╣√╬¬.T.

▓╬╝√:     @2209 [isalpha](), @2211 [islower](), @2213 [isupper]()

.2360
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

isdir()
╙∩╖¿: isdir (<cPathname>, <xCreatflag>)
╙├═╛: ┼╨╢╧pathname ╩╟╖±╬¬┬╖╛╢íú
▓╬╩²:
    <cPathname>         ┬╖╛╢├√
    <xCreatflag>         ╬¬┐╒╩▒, ╘≥╩╘═╝┤┤╜¿┬╖╛╢cPathname
╖╡╗╪╓╡: ╚⌠cPathname ╬¬┬╖╛╢╖╡╗╪.T., ┤┤╜¿┬╖╛╢│╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
└²╫╙:? isdir ("mydir", 1)

.1920
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

islastday()
╙∩╖¿: islastday (<dDate>)
╙├═╛: ╚╖╢¿┤½╡▌╣²└┤╡─╩²╛▌╩╟╖±╩╟╥╗╕÷╘┬╡─╫ε║≤╥╗
╠∞
▓╬╩²:
    <dDate>    ╚╒╞┌╓╡
╖╡╗╪╓╡: ╚τ╣√┤½╡▌╣²└┤╡─╚╒╞┌╩╟╥╗╕÷╘┬╡─╫ε║≤╥╗╠∞ú¼
╘≥╖╡╗╪.T.ú╗╖±╘≥╖╡╗╪.F.
└²╫╙:? islastday()

.2361
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

ismemo()
╙∩╖¿: ismemo (<cFileName>)
╙├═╛: ╚╖╢¿╥╗╕÷╩²╛▌┐Γ╩╟╖±░ⁿ║¼▒╕╫ó╫╓╢╬íú
▓╬╩²:
    <cFilenmae>        ┤°╙╨┐╔╤í└⌐╒╣├√╡─╩²╛▌┐Γ╬─╝■├√íú
╖╡╗╪╓╡: ╩²╓╡, ║¼╥σ╚τ╧┬:
        0 -- ╬▐▒╕╫ó╫╓╢╬
        1 --╓┴╔┘╙╨╥╗╕÷▒╕╫ó╫╓╢╬▒╗╢¿╥σ
               -1 -- ▓╗╩╟DBF ╩²╛▌┐Γ╬─╝■, ╗≥╒▀╙÷╡╜╬─╝■┤φ╬≤
└²╫╙:? ismemo ("user. dbf")

.2211
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

islower()
╙∩╖¿:     islower (<cExp>)
╙├═╛:     ╚╖╢¿╫╓╖√┤«╓╨╡┌╥╗╕÷╫╓╖√╩╟╖±╬¬╨í╨┤╫╓─╕íú
▓╬╩²:
    <cExp>     ╟≤╓╡╡─┤«íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═íú
└²╫╙:
? islower ("t123") // ╜ß╣√╬¬.T.
? isalpha ("A123a") // ╜ß╣√╬¬.F.

▓╬╝√:     @2209 [isalpha](), @2210 [isdigit](), @2213 [isupper]()

.2212
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

isnumber()
╙∩╖¿: isnumber (<cNumstr>)
╙├═╛: ┼╨╢╧cNumstr ╫╓╖√┤«╩╟╖±╩╟╓╗╙╔╩²╫╓íó.íó+íó-, ╫Θ│╔íú
▓╬╩²:
    <cNumstr>    ┤²┼╨▒≡╫╓┤«íú
╖╡╗╪╓╡: ╩╟╩²╫╓╫╓┤«╘≥╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.íú
└²╫╙:? isnumber ("-1234. 123")
    ? isnnumber ("abc")

isprinter()
╙∩╖¿:     isprinter()
╙├═╛:     ╝∞▓ΘLPT1 ┤≥╙í┐┌, ▓ó╚╖╢¿LPT1 ╩╟╖±╥╤╬¬╦═╡╜┤≥╙í╗·╡─╩Σ│÷
╫≈║├┴╦╩²╛▌╜╙╩╒╫╝▒╕íú
▓╬╩²:     ╬▐íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═íú
╦╡├≈:     ╚τ┤≥╙í╗·╥╤╛¡┤≥┐¬▓ó╫≈║├┴╦┤≥╙í╫╝▒╕, ╘≥isprinter() ║»╩²╖╡
╗╪.T.íú
└²╫╙:     if !isprinter() // ┤≥╙í╗·├╗╫╝▒╕║├
        ? " ╟δ┤≥┐¬┤≥╙í╗·▓ó╫≈║├┤≥╙í╫╝▒╕! "
        inkey (0)
    endif

▓╬╝√:     @3022[set device], set print

.1921
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

istime()
╙∩╖¿: istime (<cTime>)
╙├═╛: ┼╨╢╧cTime ╩╟╖±╬¬╒²│ú╡─╩▒╝Σ┤«íú
▓╬╩²:
    <cTime>    ╩▒╝Σ╫╓╖√┤«íú
╖╡╗╪╓╡: ╩╟╒²│ú╡─╩▒╝Σ╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.íú
└²╫╙:? istime ("10: 00: 00")        //╖╡╗╪.T.

.2213
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

isupper()
╙∩╖¿:     isupper (<cExp>)
╙├═╛:     ╚╖╢¿╫╓╖√┤«╓╨╡┌╥╗╕÷╫╓╖√╩╟╖±╬¬┤≤╨┤╫╓─╕íú
▓╬╩²:
    <cExp>    ╟≤╓╡╡─┤«íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═,╩╟╫╓─╕╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.íú
└²╫╙:
? isupper ("t123") // ╜ß╣√╬¬.F.
? isupper ("A123a") // ╜ß╣√╬¬.T.

▓╬╝√:     @2209 [isalpha](), @2210 [isdigit](), @2211 [islower]()

.1727
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

iswbsdos( )
╙∩╖¿: iswbsdos()
╙├═╛: ▓Γ╩╘╩╟╖±╩╟WBSDOS ║║╫╓╧╡═│íú
▓╬╩²: ╬▐íú
╖╡╗╪╓╡: ╩╟╘≥╖╡╗╪1, ╖±╘≥╖╡╗╪0

.1211
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

itack
╙∩╖¿: itack ( <Key>, <cDbfname>, <cNtcname> , <ncField> ,<nLen>)
╙├═╛: ╘┌▒¿▒φ╔Φ╝╞╓╨░┤╣╪╝ⁿ╫╓▓Θ╒╥╝╟┬╝▓ó╖╡╗╪╓╕╢¿
╫╓╢╬╡──┌╚▌íú
▓╬╩²:
    <Key>        ╣╪╝ⁿ╫╓íú
    <cDbfname>    ╩²╛▌┐Γ╬─╝■├√íú
    <cNtcname>    ╦≈╥²╦≈╥²╬─╝■├√íú
    <ncField>    ╫╓╢╬├√╗≥╫╓╢╬╨≥║┼íú
    <nLen>    ╖╡╗╪╓╡│ñ╢╚íú
╖╡╗╪╓╡: ╫╓╢╬─┌╚▌íú
└²╫╙: ITACK  ú¿"12345"ú¼"COUNTRY .DBF"ú¼"COUNTRY.NTX"ú¼3ú⌐
▓╬╝√:@1205 [ctack](), @1222 [tack]()

.1505
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

keybd()
╙∩╖¿: keybd (<nKey>)
╙├═╛: ╚í╝ⁿ┼╠╡─╫┤╠¼íú
▓╬╩²:
    <nKey>     ╩²╓╡, ╥¬╚í╡─╝ⁿ┼╠╫┤╠¼ú¼╛▀╠σ║¼╥σ╚τ╧┬
    1: Ins          2: CapsLock
    3: NumLock     4: Scroll Lock
╖╡╗╪╓╡: ░┤╧┬╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
▓╬╝√:@1501 [capslock](), @1502 [capsloff](), @1527 [numlock](), @1528 [numloff](), @1531 [scrollock]( ), @1532 [scrolloff]()

.1506
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

keybdbuf()
╙∩╖¿: keybdbuf()
╙├═╛: ╟σ╝ⁿ┼╠╗║│σ╟°íú
▓╬╩²: ╬▐íú
╖╡╗╪╓╡: ╝ⁿ┼╠╗║│σ╟°╓╨╡─╘¡╙╨─┌╚▌íú
▓╬╝√:@3401[clear typeahead]

.2105
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@21[╫¬╗╗║»╩²╦≈╥²]

l2bin()
╙∩╖¿:     l2bin (<nExp>)
╙├═╛:     ╩²╫╓╓╡<nExp> ╫¬╗╗│╔32 ▒╚╠╪(4 ╫╓╜┌) ╖√║┼╒√╩²╕±╩╜╡─╫╓╖√┤«íú
▓╬╩²:
<nExp>     ╩²╫╓╓╡, ▒φ┤∩╩╜╓╨╡─╨í╩²▓┐╖╓╢╝╜½▒╗╔ß╞·íú
╖╡╗╪╓╡: ╫╓╖√└α╨═íú
└²╫╙:     hand: =fopen ("my. prg")
    fwrite (hand, i2bin (28772997619310), 6)
    // ╜╙╫┼╨┤╡╜┤┼┼╠╡─6 ╕÷╫╓╜┌╩╟1A 2B 3C 4D 5E 6F

▓╬╝√:     @2102 [bin2l](), @2101 [bin2i](), @2103 [bin2w](),
@2104 [i2bin](), @2347 [fread]()

.1507
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

.1922
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

lastday()
╙∩╖¿: lastday (<dDate>)
╙├═╛: ╗±╚í╥╗╕÷╘┬╡─╫ε║≤╥╗╠∞╡─╩²╓╡
▓╬╩²:
    <dDate>     ┐╔╤í╡─╚╒╞┌╓╡íú
╖╡╗╪╓╡: ╒√╩²
└²╫╙:? lastday (date())

.2362
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

lastdrive()
╙∩╖¿: lastdrive()
╙├═╛: ╚í║╧╖¿╡─DOS ┤┼┼╠╟²╢»╞≈╡─╫ε╕▀╟²╢»╞≈╖√íú
▓╬╩²: ╬▐íú
╖╡╗╪╓╡: ╡Ñ╕÷┤≤╨┤╫╓╖√íú
└²╫╙:     diskdrive: ="F"
    if lastdrive() >diskdrive
        ? " ╟²╢»╞≈║┼╬▐╨º"
    endif

lastkey()
╙∩╖¿:     lastkey()
╙├═╛:     ╖╡╗╪╡╚┤²╞┌╝Σ╫ε║≤╥╗╕÷╩Σ╚δ╝ⁿ╡─ASCII┬δ╓╡íú
▓╬╩²:     ╬▐íú
╖╡╗╪╓╡: ╩²╫╓└α╨═íú
╦╡├≈:     winbase.inc═╖╬─╝■╬╗╙┌INCLUDE ╫╙─┐┬╝╧┬, ╞Σ╓╨╙╨╥╗╨⌐╙├#define ╢¿╥σ╡─│ú╩², ╒Γ
╤∙╙├╗º─▄░┤╥²╙├╝ⁿ├√ú¼╢°▓╗▒╪╝╟╥Σ╝ⁿ╡─ASCII ┬δ╓╡íú
    └²╚τ, IF LASTKEY() =K_ESC
└²╫╙:     if lastkey() = K_ESC // ╡╚┤²╞┌╝Σ╫ε║≤╥╗╕÷╩Σ╚δ╝ⁿ╬¬ESC ╘≥│╠╨≥═╦│÷
        ? " ╘┘╝√"
        quit
    endif

▓╬╝√:     @1504 [inkey](), @1526 [nextkey](), @3405[set key], @2205 [chr](), @1710 [delay]()

.2459
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

lastrec() |reccount()
╙∩╖¿:     lastrec() |reccount()
╙├═╛:     ╚╖╢¿╩²╛▌┐Γ╓╨╝╟┬╝╡─╫▄╩²─┐íú
▓╬╩²:     ╬▐íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     ╡▒╟░╣ñ╫≈╟°╓╨├╗╙╨┤≥┐¬╩²╛▌┐Γ, ╘≥lastrec() |reccount() ║»╩²╖╡╗╪0íúset filter ├ⁿ┴ε
║═set deleted ├ⁿ┴ε╢╘lastrec() |reccount() ║»╩²▓╗╞≡╫≈╙├íú
└²╫╙:
/* ╧┬└²╝∞▓ΘA ┼╠╡─╩ú╙α┐╒╝Σ┴┐, ╚τ╨í╙┌─┐▒Ω╬─╝■│ñ╢╚, ╘≥▓╗
┐╜▒┤*/
 if diskspace (1) < (recsize() *lastrec() +header() +1)
    cls
    ú└ 10, 10 "A ┼╠╡─╫╘╙╔┐╒╝Σ▓╗╣╗, ▓╗─▄┐╜▒┤"
else
    copy file klgz. dbf to A:
endif

▓╬╝√:  @2474 [recsize]()

.2214
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

left()
╙∩╖¿:     left (<cExp>, <nExp>)
╙├═╛:  ┤╙╫╓╖√┤«(╘┤┤«) ╡─╫≤╢╦┐¬╩╝, ╠ß╚í╓╕╢¿│ñ╢╚╡─╥╗╫╙┤«íú
▓╬╩²:
    <cExp>    ╘┤┤«íú
    <nExp>    ╠ß╚í╡─╫╙┤«│ñ╢╚íú
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:    ? temp: =left ("123abc", 2) // ╜ß╣√╬¬"12"
    ? temp: =left ("123abc", 10) // ╜ß╣√╬¬"123abc"

▓╬╝√:     @2242 [right](), @2249 [substr]()

.2215
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

len()
╙∩╖¿:     len (<cExp>|<aTarget>)
╙├═╛:     ╚╖╢¿╫╓╖√┤«╡─┤«│ñú¼╗≥╚╖╢¿╩²╫Θ╡─╘¬╦╪╕÷╩²íú
▓╬╩²:
    <cExp>    ╟≤╓╡╡─┤«íú
    <aTarget>    ╥¬╚╖╢¿╘¬╦╪╕÷╩²╡─╩²╫Θíú
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:
temp: ="1234"
? len (temp) // ╜ß╣√╬¬4
my_arr1: = {1, 2, 3, 4, 5, 6}
my_arr2: = {1, {1, 2}}
? len (my_arr1) // ╜ß╣√╬¬6
? len (my_arr2) // ╜ß╣√╬¬2

▓╬╝√:     @2218 [ltrim](), @2243 [rtrim]()

.2014
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

lennum()
╙∩╖¿: lennum (<nNum>)
╙├═╛: ╟≤╩²╓╡│ñ╢╚
▓╬╩²:
    <nNum>    ╩²╓╡▒Σ┴┐
╖╡╗╪╓╡: ╖╡╗╪╩²╓╡nNum ╡─│ñ╢╚
└²╫╙:? lennum (3. 1415926)

.2216
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

listtoa()
╙∩╖¿: Listtoa (<cList>, <cDelim>)
╙├═╛: ╜½║¼╙╨╖╓╕⌠╖√╡─╫╓╖√┤«╫¬╗╗│╔╫╓╖√╩²╫Θ
▓╬╩²:
    <cList>        ╫╓╖√┤«íú
    <Delim>    ╖╓╕⌠╖√íú
╖╡╗╪╓╡: ╫¬╗╗│╔╡─╫╓╖√╩²╫Θ
└²╫╙:
arr: =listtoa ("abc, def, gf", ", ")    //arr=={"abc", "def", "gf"}
? arr [1]    //╖╡╗╪ú║abc

.1634
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

loadform()
╙∩╖¿:     loadform (<cFilename>)
╙├═╛:     ┤╙╬─╝■╓╨╗╓╕┤╞┴─╗
▓╬╩²:
    <cFilename>        ┤µ╞┴╬─╝■├√, ┐╔┤°┬╖╛╢íú
╖╡╗╪╓╡:
╙├╖¿▓╬╝√: @1642 [saveform](),  @1605 [dispform](), @1632 [getrname]()

.1635
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

loadpcx()
╙∩╖¿: loadpcx (<nX1>, <nY1>, <nX2>, <nY2>, <cFilename>, <nMode>, <xPalflag>)
╙├═╛:     ╧╘╩╛pcx ═╝╧≤
▓╬╩²:
    <nX1,nY1>     ╧╘╩╛pcx ═╝╧≤╡─╫≤╔╧╜╟╧≤╦╪╫°▒Ωíú
    <nX2,nY2>     ╧╘╩╛pcx ═╝╧≤╡─╙╥╧┬╜╟╧≤╦╪╫°▒Ωíú
    <cFilename>     PCX ╬─╝■├√íú
    <nMode>     256 ╔½╡─╧╘╩╛─ú╩╜, ╚▒╩í╩╟0(320*200 ╖╓▒µ┬╩)
<xPalflag>    ╬¬16 ╔½╡≈╔½░σ▒Ω╓╛, ╚⌠╬¬┐╒╘≥╔Φ╓├│╔PCX╬─╝■╡─╡≈╔½░σ, ╖±╘≥
▓╗┐╔╔Φ╓├╡≈╔½░σíú
╖╡╗╪╓╡: ╬▐
└²╫╙: loadpcx (0, 0, 400, 600, "photo. pcx")

.2460
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

lockfile()
╙∩╖¿:     lockfile()
╙├═╛:     ╦°╫í╡▒╟░╩²╛▌┐Γ, ╙├╙┌░┤╣▓╧φ╖╜╩╜┤≥┐¬╡─╩²╛▌┐Γíú

▓╬╩²:     ╬▐íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═, │╔╣ª╖╡╗╪.T.
╦╡├≈:     ╡▒╥¬╥╗┤╬╨▐╕─íó╘÷╝╙, ╔╛│²╡╚╢α╠⌡╝╟┬╝╩▒, ▒╪╨δ╩╣╙├╕├
║»╩².
└²╫╙:     netuse ("my. dbf", A, "n")
    lockfile()
    replace all code with code+2
    unclock

▓╬╝√:     @2461 [lockrec](),@3148[unlock], @2472 [netuse]()

.2461
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

lockrec()
╙∩╖¿:     lockrec()
╙├═╛:     ╦°╫í╡▒╟░╝╟┬╝, ╙├╙┌░┤╣▓╧φ╖╜╩╜┤≥┐¬╡─╩²╛▌┐Γíú
▓╬╩²:     ╬▐íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═, │╔╣ª╖╡╗╪.T.
╦╡├≈:     ╡▒╥¬╢╘╡▒╟░╝╟┬╝╜°╨╨╨▐╕─íó╘÷╝╙íó╔╛│²╡╚▓┘╫≈╩▒, ▒╪
╨δ╩╣╙├╕├║»╩²íú
└²╫╙: // ╕°╡┌10 ╠⌡╝╟┬╝┤≥╔╧╔╛│²▒Ω╝╟
netuse ("my. dbf", A, "n")
dbgoto (10)
lockrec()
dbdelete()
unlock
▓╬╝√:     @2460 [lockfile](), @2477 [rlock]() /lock(),@3148[unlock],@2472 [netuse]()

.2015
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

log()
╙∩╖¿:     log (<nExp>
╙├═╛:     ╝╞╦π╩²╤º▒φ┤∩╩╜╡─╫╘╚╗╢╘╩²íú
▓╬╩²:
    <nExp>    ▒╗╟≤╓╡╡─╩²╤º▒φ┤∩╩╜íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:    ? log (8) // ╖╡╗╪2. 08

▓╬╝√:     @3201[set decimals], @3203[set fixed], @2011 [exp]()

.2016
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

log10()
╙∩╖¿: log10 (<nNum>)
╙├═╛: ╟≤╥╘10 ╬¬╡╫╡─nNum ╢╘╩²╓╡
▓╬╩²:
    <nNum>     ╩²╓╡▒Σ┴┐íú
╖╡╗╪╓╡: ╢╘╩²╓╡
└²╫╙: log10 (100)

.2504
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

loop()
╙∩╖¿: loop (<nNum>, <cFunc>)
╙├═╛: ░╤╥╗╕÷║»╩²╓┤╨╨╢α┤╬
▓╬╩²:
    <nNum>     ╓┤╨╨┤╬╩²íú
    <cFunc>     ╥¬╓┤╨╨╡─║»╩²├√íú
╖╡╗╪╓╡: ╬▐
└²╫╙: loop (3, "tone (660, 2) ")

.2217
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

lower()
╙∩╖¿:     lower (<cExp>)
╙├═╛:  ░╤╫╓╖√┤«╓╨╡─╫╓─╕╫¬╗╗╬¬╨í╨┤╫╓─╕íú
▓╬╩²:
    <cExp>     ╥¬╫¬╗╗╡─╫╓╖√┤«
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:    ? lower ("ABCD") // ╧╘╩╛╬¬abcd

▓╬╝√: @2253 [upper]()

.2218
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

ltrim()
╙∩╖¿:     ltrim (<cExp>)
╙├═╛:     ╚Ñ╡⌠╫╓╖√┤«╓╨╡─╟░╡╝┐╒╕±íú
▓╬╩²:
    <cExp>    ╥¬╚Ñ╡⌠╟░╡╝┐╒╕±╡─╫╓╖√┤«
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:
temp: =" 1234 "
? temp // ╖╡╗╪10
temp: +ltrim (temp)
? temp // ╖╡╗╪7

▓╬╝√:     @2251 [trim](), @2201 [alltrim]()

.1923
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

lupdate()
╙∩╖¿:     lupdate()
╙├═╛:     ╝∞▓Θ╩²╛▌┐Γ╬─╝■═╖▓ó╢┴╚í╫ε╜ⁿ╥╗┤╬╕ⁿ╨┬╡─╚╒
╞┌íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╚╒╞┌└α╨═
╦╡├≈:     ╚τ╣√╙╨╥╗╕÷┤≥┐¬╡─╩²╛▌┐Γ, ╘≥╕├║»╩²╖╡╗╪╬─╝■═╖
╨┼╧ó╓╨╓╕│÷╡─╚╒╞┌íú╚τ╣√├╗╙╨╩²╛▌┐Γ▒╗┤≥┐¬, ╘≥╕├║»╩²
╖╡╗╪╥╗╕÷┐╒╚╒╞┌íú
└²╫╙:     use my
    ? lupdate() // ╖╡╗╪└α╦╞02/02/94

.1508
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

m_hide()
╙∩╖¿: m_hide()
╙├═╛: ╥■▓╪╩≤▒Ω
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
└²╫╙:
procedure mouseway()
local temp
    ú└ 24, 10 say " ╔Φ╓├╩≤▒Ω╖╜╩╜: 0- ╥■▓╪, ╞Σ╦ⁿ- ╧╘╩╛" get temp
    if temp==0
        m_hide() // ╥■▓╪╩≤▒Ω
    else
        m_show() // ╧╘╩╛╩≤▒Ω
    endif
return

▓╬╝√:     @1515 [m_show](), @1517 [mouse]()

.1509
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

m_inbox()
╙∩╖¿:     m_inbox (<nX1>, <nY1>, <nX2>, <nY2>, <nX>, <nY>)
╙├═╛:     ┼╨╢╧<nX, nY> ╩╟╖±╘┌<nX1, nY1, nX2, nY2> ╢¿╥σ╡─╛╪╨╬╓«╓╨
▓╬╩²:
    <nX, nY>         ╕°╢¿╧≤╦╪╡π╫°▒Ω
    <nX1,nY1>         ╦∙╕°╖╢╬º╫≤╔╧╜╟╧≤╦╪╡π╫°▒Ω
    <nX2,nY2>         ╦∙╕°╖╢╬º╙╥╧┬╜╟╧≤╦╪╡π╫°▒Ω
╖╡╗╪╓╡: ╒√╩², │╔╣ª╖╡╗╪1, ╖±╘≥╖╡╗╪0
└²╫╙: m_inbox (100, 100, 300, 300, 120, 234)    //╖╡╗╪1

▓╬╝√: @1516 [m_where](), @1518 [mousebox](), @1520 [mousein]()

.1510
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

m_init()
╙∩╖¿: m_init()
╙├═╛: │⌡╩╝╗»╩≤▒Ω
▓╬╩²: ╬▐
╖╡╗╪╓╡: 0 ╗≥1, │╔╣ª╖╡╗╪1, ╖±╘≥╬¬0
└²╫╙:
procedure testmouse()
    if m_init() ==0 // │⌡╩╝╗»╩≤▒Ω╩º░▄
        ? " ▒╛└²╨Φ╥¬╩≤▒Ω, ╟δ╧╚╟²╢»╩≤▒Ω! "
        ? " ░┤╚╬╥╗╝ⁿ═╦│÷"
        quit
    endif
return

▓╬╝√:     @1514 [m_reset]()

.1511
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

m_move()
╙∩╖¿:     m_move (<nX>, <nY>)
╙├═╛:     ╥╞╢»╩≤▒Ω╡╜╧≤╦╪╡π
▓╬╩²:
    <nX, nY>    ╧≤╦╪╡π╫°▒Ω
╖╡╗╪╓╡: ╬▐

└²╫╙▓╬╝√: @1516 [m_where]()

.1512
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

m_press()
╙∩╖¿: m_press (<idBotton>)
╙├═╛: ▓Γ╩╘╩≤▒Ω░┤┼Ñ╩╟╖±░┤╧┬
▓╬╩²:
    <idBotton>    ╬¬0 ▓Γ╩╘╫≤▒▀░┤┼Ñú¼╬¬1 ▓Γ╩╘╙╥▒▀░┤┼Ñ
╖╡╗╪╓╡: ╒√╩², ░┤╧┬╖╡╗╪1, ╖±╘≥╖╡╗╪0
└²╫╙:
#include "winbase.inc"

PROCEDURE MAIN (arv1, arv2)
local temp, sign, k, p, r, r1, c, c1, left, right
    windowstart()
    testmouse() // ▓╬╝√m_init()
    mybotton()
    makebotton (3, 34, " ╩≤▒Ω▓Γ╩╘│╠╨≥", 1, 1)
    makebotton (24, 56, " ═╦│÷", 2, 1)
    makebotton (20, 25, " ╣╪▒╒╩≤▒Ω", 3, 1)
    makebotton (20, 40, " ░┤Enter ╝ⁿ╧╘╩╛╩≤▒Ω", 4, 1)
    left: =right: =0
    sign: =k: =p: =1
    do while (inkey() <>27). and. (sign==1)
        if (mousein (24, 56, 25, 60)). and. (m_press (0) ==1. or.;
                 m_press (1) ==1)
            sign: =0
        /* ╚τ╩≤▒Ω╘┌░┤┼Ñ" ═╦│÷" ╔╧, ╟╥╫≤░┤┼Ñ╗≥╙╥░┤┼Ñ▒╗░┤╧┬*/
        endif
        if mousein (20, 25, 21, 33). and. (m_press (0) ==1. or.;
                 m_press (1) ==1)
            mouse (0)
            /* ╚τ╩≤▒Ω╘┌░┤┼Ñ" ╣╪▒╒╩≤▒Ω" ╔╧, ╟╥╫≤░┤┼Ñ╗≥╙╥░┤┼Ñ▒╗░┤
╧┬, ╘≥╣╪▒╒╩≤▒Ω*/
        endif
        if inkey() ==13 // ╚τEnter ▒╗░┤╧┬
            mouse (1) // ╧╘╩╛╩≤▒Ω
        endif
        if mousein (3, 34, 4, 46). and. (m_press (0) ==1. or. ú╗                m_press (1) ==1)
            k: = (k+1)% 16
                /* ╚τ╩≤▒Ω╘┌░┤┼Ñ" ╩≤▒Ω▓Γ╩╘│╠╨≥" ╔╧,
        ╟╥╫≤░┤┼Ñ╗≥ ╙╥░┤┼Ñ▒╗░┤╧┬*/
            makebotton (3, 34, " ╩≤▒Ω▓Γ╩╘│╠╨≥", k, 1)
            mybotton()
        endif
        if mousein (20, 40, 21, 57). and. (m_press (0) ==1. or. ú╗                m_press (1) ==1)
            p: = (p+1)% 16
            /* ╚τ╩≤▒Ω╘┌░┤┼Ñ" ░┤Enter ╝ⁿ╧╘╩╛╩≤▒Ω" ╔╧,                 ╟╥╫≤░┤┼Ñ╗≥╙╥░┤┼Ñ
▒╗░┤╧┬*/
            makebotton (20, 40, " ░┤Enter ╝ⁿ╧╘╩╛╩≤▒Ω", p, 1)
        endif
        r: =int (mouserow() /2)
        // ╖╡╗╪╩≤▒Ω╦∙╘┌╡▒╟░╡─╨╨╩²▒╗2 │²╚í╒√╡─╜ß╣√
        r1: =mouserow()% 2
        // ╖╡╗╪╩≤▒Ω╦∙╘┌╡▒╟░╡─╨╨╩²▒╗2 │²╡─╙α╩²
        c: =int ( (mousecol() -10) /6)
         //mousecol(), ╖╡╗╪╩≤▒Ω╦∙╘┌╡▒╟░╡─┴╨╩²
        c1: = (mousecol() -10)% 6
        if r1==0. and. r>=3. and. r<=7. and. c>=0. and. c<=9;
            . and. c1<=4. and. c1>=0
            if m_press (0) ==1 // ╫≤░┤┼Ñ▒╗╤╣╧┬
                left: =1
                makebotton (2*r, 10+6*c, space (1) +;
                    " ╫≤"+space (1), 7, 2)
            endif
            if (left==1). and. (m_rele (0) ==1) // ╫≤░┤┼Ñ▒╗╩═╖┼
                makebotton (2*r, 10+6*c, space (1) +;
                    " ╫≤"+space (1), 7, 1)
                left: =0
            endif
            if m_press (1) ==1 // ╙╥░┤┼Ñ▒╗╤╣╧┬
                right: =1
                makebotton (2*r, 10+6*c, space (1) +;
                    "╙╥"+space (1), 7, 2)
            endif
            if (right==1). and. (m_rele (1) ==1) // ╙╥░┤┼Ñ▒╗╩═╖┼
                makebotton (2*r, 10+6*c, space (1);
                        +"╙╥"+space (1), 7, 1)
                right: =0
            endif
        endif
    enddo
    windowexit()
RETURN
function mybotton()
local i, j

for i=0 to 9
    for j=3 to 7
    makebotton (2*j, 10+6*i, " ", 7, 1)
    next
next
return nil

▓╬╝√:     @1002 [makebotton](), @1513 [m_rele](), @1520 [mousein](), @1518 [mousebox](),
    @1523 [mouserow](), @1519 [mousecol](), @1517 [mouse]()

.1513
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

m_rele()
╙∩╖¿: m_rele (<nBotton>)
╙├═╛: ▓Γ╩╘╩≤▒Ω░┤┼Ñ╩╟╖±╩═╖┼
▓╬╩²:
    <nBotton>    ╬¬0╩▒▓Γ╩╘╫≤▒▀░┤┼Ñú¼╬¬1▓Γ╩╘╙╥▒▀░┤┼Ñ
╖╡╗╪╓╡: ╒√╩², ╩═╖┼╖╡╗╪1, ╖±╘≥╖╡╗╪0
└²╫╙:
if m_rele (0) =1
    ? " ╫≤▒▀░┤┼Ñ╥╤╩═╖┼"
else
    ? " ╫≤▒▀░┤┼Ñ├╗▒╗╩═╖┼"
endif

▓╬╝√: @1512 [m_press](), @1518 [mousebox]()

.1514
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

m_reset()
╙∩╖¿: m_reset()
╙├═╛: ╓╪╓├╩≤▒Ω
▓╬╩²: ╬▐
╖╡╗╪╓╡: 0, -1, │╔╣ª╖╡╗╪-1, ╖±╘≥╬¬0
└²╫╙:
procedure mousereset()
if m_reset() ==0
    ú└24, 10 say " ╓╪╓├╩≤▒Ω╩º░▄"
    ú└24, 10 say " ░┤╚╬╥╗╝ⁿ╝╠╨°"
    inkey (0)
endif
return

▓╬╝√: @1510 [m_init]()

.1515
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

m_show()
╙∩╖¿: m_show()
╙├═╛: ╧╘╩╛╩≤▒Ω
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL

└²╫╙▓╬╝√: @1508 [m_hide](), @1517 [mouse]()

.1516
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

m_where()
╙∩╖¿: m_where ( ú└ <nX>,  ú└ <nY>)
╙├═╛: ╚í╡▒╟░╩≤▒Ω╬╗╓├╡╜<nX, nY> ╓╨
▓╬╩²:
    <nX, nY>     ╖╡╗╪╩≤▒Ω╬╗╓├╡─╧≤╦╪╡π╫°▒Ω, ╥╘╡╪╓╖╖╜╩╜┤½╚δ
╖╡╗╪╓╡: ╒√╩²
└²╫╙:
#include "winbase.inc"
procedure main (var1, var2)
local x, y, sign
windowstart()
testmouse() // ▓╬╝√: @1510 [m_init]()
makebotton (2, 30, " ╩≤▒Ω▓Γ╩╘, ░┤ESC ╗≥╧╞╢»╩≤▒Ω═╦│÷", 2, 1)
g_rect (2, 100, 100, 600, 400) // ╗¡╥╗╛╪╨╬╖╜┐≥
m_move (350, 250) // ╥╞╢»╩≤▒Ω╡╜╧≤╦╪╡π(350, 250)
sign: =mousekey() // ═¼╩▒▓Γ╩╘╩≤▒Ω║═╝ⁿ┼╠╖╡╗╪╓╡
do while sign<>27// ▓Γ╩╘ESC ╝ⁿ╩╟╖±▒╗░┤╧┬
    sign: =mousekey()
    m_where (ú└x, ú└y) // ╖╡╗╪╡▒╟░╩≤▒Ω╬╗╓├╡╜(x, y) ╓╨
    ú└ 24, 10 say " ╩≤▒Ω╬╗╓├: "+str (x) +": "+str (y) // ╩Σ│÷╡▒╟░╩≤▒Ω╬╗╓├
    if m_inbox (100, 100, 600, 400, x, y) ==1 // ╩≤▒Ω╘┌(100, 100, 600, 400) ╖╢╬º─┌
        drawline (350, 250, x, y, 1) // ┤╙(350, 250) ╗¡╥╗└╢╔½╓▒╧▀╡╜╡▒╟░
    endif // ╩≤▒Ω╬╗╓├
    if (sign==901). or. (sign==902) // ╚τ╩≤▒Ω╫≤░┤┼Ñ╗≥╙╥░┤┼Ñ▒╗░┤╧┬
        quit // ╘≥═╦│÷
    endif
enddo
windowexit()
return

▓╬╝√: @1511 [m_move](), @1509 [m_inbox](), @1521 [mousekey]()

.1002
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

makebotton()
╙∩╖¿:     makebotton (<nRow>, <nCol>, <cTitle>, <nColor>, <idType>)
╙├═╛:     ╘┌┤░┐┌╓╨┤┤╜¿░┤┼Ñ
▓╬╩²:
    <row, nCol>     ░┤┼Ñ╬╗╓├(╧α╢╘╙┌┤░┐┌)
    <cTitle>     ░┤┼Ñ▒Ω╠Γ, ╫╓╖√┤«
    <nColor>     ░┤┼Ñ╤╒╔½, ┐╔╬¬0--15
    <idType>     ░┤┼Ñ└α╨═, ┐╔╬¬1--4
╖╡╗╪╓╡: NIL
└²╫╙:
#include "winbase.inc"
procedure example14()
local i
windowstart()
makewindow (5, 10, 20, 70, "Winbase", 1, 3, 4) // ╗¡╥╗┤░┐┌
for i=1 to 4 // ╗¡╦─╕÷▓╗═¼└α╨═, ▓╗═¼╤╒╔½░┤┼Ñ
    makebotton (2*i-1, 1, str (i, 1, 0) +" ╨═░┤┼Ñ", i, i)
next i
windowexit()
return

▓╬╝√:     @1003 [makewindow](), @1309 [msgbox](), @1306 [inputbox]()

.1307
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

makedlg()
╙∩╖¿:    makedlg (<nHandle>, <cTitle>)
╙├═╛:    ╝ñ╗ε╛Σ▒·╬¬<nHandle> ╡─╦∙╙╨└α╨═╢╘╗░┐≥
▓╬╩²:
    <nHandle>    ╢╘╗░┐≥╛Σ▒·
    <cTitle>    ╢╘╗░┐≥▒Ω╠Γ
╖╡╗╪╓╡:│╔╣ª╘≥╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
└²╫╙:    ▓╬╝√: @1312 [setdlg] └α

.1402
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

makemenu()
╙∩╖¿: makemenu (<aMenuarr>, <cMenufunc>, <nRow>, <nCol1>, <nCol2>,;
            <exist>, <nOldpos>, <nNewpos>)
╙├═╛: ┤┤╜¿▓ó╝ñ╗ε▓╦╡Ñ
▓╬╩²:
    <aMenuarr>         ▓╦╡Ñ╩²╫Θ, ═¿╣²menuset ║»╩²╔Φ╓├
    <cMenufunc>         ▓╦╡Ñ╣ª─▄║»╩²
    <nRow>         ▓╦╡Ñ╦∙╘┌╨╨
    <nCol1>         ▓╦╡Ñ╞≡╩╝┴╨
    <nCol2>         ▓╦╡Ñ╜ß╩°┴╨
    <exist>             ═╦│÷▓╦╡Ñ╩▒╩╟╖±╧√│²╢Ñ╨╨▓╦╡Ñ╡─▒Ω╓╛
<nOldpos,nNewpos>     ╝ñ╗ε▓╦╡Ñ╩▒, ╜½╢Ñ╨╨▓╦╡Ñ╙╔╛╔╬╗╓├╥╞╡╜╨┬╬╗╓├
╖╡╗╪╓╡: ▓╦╡Ñ╛Σ▒·
└²╫╙:
#include "winbase.inc"    // ▒╪╨δ░ⁿ└¿╕├╬─╝■
// ╚½╛╓▒Σ┴┐╦╡├≈
memvar marr, menu_arr
PROCEDURE MAIN (arv1, arv2)
private marr: = { {1, 0, 0, " ╟░╛░╔½"}, {2, 0, 0, " ▒│╛░╔½"},;
         {3, 0, 0, " ┴┴╠⌡╟░╛░╔½"}, {4, 0, 0, " ┴┴╠⌡▒│╛░╔½"},;
         {1, 1, 0, " ║∞", 4}, {1, 2, 0, " ╗╞", 14},;
         {1, 3, 0, " ║┌", 0}, {1, 4, 0, " └╝", 1},;
         {2, 1, 0, " ┴┴░╫", 15}, {2, 2, 0, " ╔ε║∞", 12},;
         {2, 3, 0, " ╗╥", 7}, {2, 4, 0, " ╟α", 11},;
         {3, 1, 0, " ╗╞", 14}, {3, 2, 0, " ║∞", 4},;
         {3, 3, 0, " ║┌", 0}, {3, 4, 0, " └╝", 1},;
         {4, 1, 0, " ┴┴└╝", 9}, {4, 2, 0, " ╗╞", 14},;
         {4, 3, 0, " ╔ε╗╥", 8}, {4, 4, 0, " ┬╠", 2},;
         {5, 0, 0, " ╡≈╒√", 0}, {5, 1, 0, " ╘÷╝╙╥╗╠⌡", 1},;
         {6, 0, 0, " ═╦│÷", 0}}
private    menu_arr: = { }, i

    windowstart()    //WinBase │⌡╩╝╗»
    setcancel (.T.)
    for i=1 to 23
        menuset (menu_arr, marr [i, 1], marr [i, 2], marr [i, 3],;
             marr [i, 4], MU_NORMAL)
    next
    makemenu (menu_arr, "menufunc", 5, 5, 75, 1)
    windowexit()    //Winbase ═╦│÷
RETURN

function menufunc (m_bar, m_item, m_sub)
private fc: =1, bc: =1, bar_fc: =1, bar_bc: =1

    msgshow (" ╦∙╤í▓╦╡Ñ╧ε", {" ╢Ñ└╕="+str (m_bar, 6), " ╠⌡─┐="+;
        str (m_item, 6), " ╫╙└╕="+str (m_sub, 6)}, {" ╚╖╢¿"}, 1)
    menugetc (ú└fc, ú└bc, ú└bar_fc, ú└bar_bc)
    do case
        case m_bar==1
            msgbox (" ▓╦╡Ñ╟░╛░╔½", str (fc, 2) +" => "+;
            str (marr [m_bar*4+m_item, 5], 2), 1)
            menusetc (marr [m_bar*4+m_item, 5])
        case m_bar==2
            msgbox (" ▓╦╡Ñ▒│╛░╔½", str (bc, 2) +" => "+;
                str (marr [m_bar*4+m_item, 5], 2), 1)
            menusetc (, marr [m_bar*4+m_item, 5])
        case m_bar==3
            msgbox (" ▓╦╡Ñ┴┴╠⌡╟░╛░╔½", str (bar_fc, 2) +;
                " => "+str (marr [m_bar*4+m_item, 5], 2), 1)
            menusetc (,, marr [m_bar*4+m_item, 5])
        case m_bar==4
            msgbox (" ▓╦╡Ñ┴┴╠⌡▒│╛░╔½", str (bar_bc, 2) +;
                " => "+str (marr [m_bar*4+m_item, 5], 2), 1)
            menusetc (,,, marr [m_bar*4+m_item, 5])
        case m_bar==5
            if m_item==1
                menuins (menu_arr, 5, 2, 0, " ╔╛│²╥╗╠⌡")
            else
                menudel (menu_arr, 5, 2, 0)
            endif
        case m_bar==6
            mskeyb (K_ESC)
    endcase
return nil

.1003
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

makewindow()
╙∩╖¿:     makewindow (<nRow1>, <nCol1>, <nRow2>, <nCol2>, <nTitle>,;
             <nAttr1>, <nAttr2>, <nType>)
╙├═╛:     ┤┤╜¿┤░┐┌, ▓ó╖╡╗╪┤┤╜¿╡─┤░┐┌╛Σ▒·
▓╬╩²:
    <nRow1, nCol1>     ╬¬┤░┐┌╫≤╔╧╜╟╨╨┴╨╫°▒Ω
    <nRow2, nCol2>     ╬¬┤░┐┌╙╥╧┬╜╟╨╨┴╨╫°▒Ω
    <nTitle>         ┤░┐┌▒Ω╠Γ, ╥╗╫╓╖√┤«
    <nAttr1>         ▒Ω╠Γ╤╒╔½┐╔╬¬1-15
<nAttr2>         ┤░┐┌▒│╛░╔½, ┐╔╬¬1-15, ╬¬╢╘╙ª╡─╤╒╔½▒Ω║┼
    <nType>         ┤░┐┌└α╨═, ┐╔╬¬1-4
╖╡╗╪╓╡: ┤┤╜¿╡─┤░┐┌╛Σ▒·
└²╫╙:// ┤╦└²╝≥╡Ñ╡╪╘┌╞┴─╗╔╧├Φ╩÷┴╦WINBASE ╡─╦─╓╓┤░┐┌└α╨═
 #include "winbase.inc"
procedure example3()
local i: =1
windowstart() // │⌡╩╝╗»Winbase
for i=1 to 4
    makewindow (10, 10, 20, 70, " ╗╢╙¡╩╣╙├WINBASE", 1, 3, i)
             // ╗¡i └α╨═┤░┐┌
    inkey (5) // ╤╙╩▒5 ├δ╓╙
    removewindow() // ╣╪▒╒╕├┤░┐┌
next
windowexit() // ═╦│÷Winbase
return

▓╬╝√:    @1005 [removewindow](), @1006 [shiftwindow](), @1008 [winclear]()

.1636
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

mappal16()
╙∩╖¿:     mappal16 ( [xFlag])
╙├═╛:     ╔Φ╓├╡≈╔½░σ╬¬▒Ω╫╝16 ╔½
▓╬╩²:
xFlag         ╬¬┐╒╩▒╘≥╬¬▒Ω╫╝16 ╔½, ╖±╘≥╬¬└α╦╞Windows ╡─16 ╔½╡≈╔½░σ
╖╡╗╪╓╡: NIL
└²╫╙: mappal16()

.2017
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

max()
╙∩╖¿:     max (<nExp1>, <nExp2>)
╙├═╛:     ╢╘┴╜╩²╤º▒φ┤∩╩╜╟≤╓╡▓ó╚í╜╧┤≤╒▀íú
▓╬╩²:
    <nExp1>, <nExp2>     ╥¬▒╚╜╧┤≤╨í╡─╩²╤º▒φ┤∩╩╜
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:    ? max (90, 100) // ╖╡╗╪100
    ? max (-90, -100) // ╖╡╗╪-90

▓╬╝√: @2018 [min]()

.1728
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

maxcol()
╙∩╖¿: maxcol()
╙├═╛: ╚╖╢¿╝╞╦π╗·╡─╝α╩╙╞≈─▄╧╘╩╛╡─╫ε┤≤╫╓╖√┴╨╩²íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈: maxcol() ║»╩²╗ß╫╘╢»╕─▒Σ╥╘╖┤╙ªSETMODE() ║»╩²╡─╔Φ╓├íú

└²╫╙▓╬╝√: @1725 [iscolor](), @1729 [maxrow]()

.1729
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

maxrow()
╙∩╖¿: maxrow()
╙├═╛: ╚╖╢¿╝╞╦π╗·╡─╝α╩╙╞≈─▄╧╘╩╛╡─╫ε┤≤╨╨╩²íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈: maxrow() ║»╩²╗ß╫╘╢»╕─▒Σ╥╘╖┤╙ªSETMODE() ║»╩²╡─╔Φ╓├íú

└²╫╙▓╬╝√: @1725 [iscolor](), @1728 [maxcol]()

.2219
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memoat()
╙∩╖¿: memoat (<cStr>, <cSearstr>, <nLength>, <nTabsize>,;
         <lWrap>, <xCaseflag>)
╙├═╛: ╘┌╫╓╖√┤«cStr ╓╨▓Θ╒╥cSearstr
▓╬╩²:
    <cStr>         ┤²▓Θ╒╥╡─╫╓┤«
    <cSearstr>     ▓Θ╒╥╙├╡─╫╓┤«
    <nLenth>     ├┐╨╨╕±╩╜╗»┐φ╢╚
    <nTabsize>     TAB ╕±╡─┐φ╢╚, ╚▒╩í╓╡╬¬4
<lWrap>     ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜, ╬¬╒µ╩▒╘╩╨φíú╡▒
╜√╓╣┤╩╛φ╣÷╩▒╘≥╜½╖╧╞·╫╘│¼│÷╨╨│ñ╡╜╗╪│╡╖√╝Σ
╡──┌╚▌íú
<xCaseflag>     ╬¬┐╒╩▒, ╘≥░┤cSearstr ╡─╘¡╤∙▓Θ╒╥, ╖±╘≥▓╗┬█┤≤╨í╨┤╜°╨╨▓Θ╒╥íú
╖╡╗╪╓╡: newstr ╘┌str ╓╨╩╫╧╚│÷╧╓╡─╨╨║┼
└²╫╙: str: ="aaa aa"+chr (13) +chr (10) +"bbbbbbbbb"+chr (13) +chr (10) +;
    "cccccc"+chr (13) +chr (10) +"ddd dd ddd"+chr (13) +chr (10) +"55";

    str1: =memorat (str, "Bb", 5, 4,.F., 1)
    ? str1

.2220
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memocount()
╙∩╖¿: memocount (<cStr>, <cNewstr>, <nLength>, <nTabsize>,;
             <lWrap>, <xCaseflag>)
╙├═╛: ═│╝╞newstr ╘┌╓╨│÷╧╓╡─╨╨╩²
▓╬╩²:
    <cStr>         ┤²═│╝╞╚í╫╓┤«
    <cNewstr>     ═│╝╞╙├╡─╫╓┤«
    <nLenth>     ├┐╨╨╕±╩╜╗»┐φ╢╚
    <nTabsize>     TAB ╕±╡─┐φ╢╚, ╚▒╩í╓╡╬¬4
<lWrap>     ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜, ╬¬╒µ╩▒╘╩╨φíú╡▒
╜√╓╣┤╩╛φ╣÷╩▒╘≥╜½╖╧╞·╫╘│¼│÷╨╨│ñ╡╜╗╪│╡╖√╝Σ
╡──┌╚▌íú
<xCaseflag>     ╬¬┐╒╩▒, ╘≥░┤cNewstr ╡─╘¡╤∙▓Θ╒╥, ╖±╘≥▓╗┬█┤≤╨í╨┤╜°╨╨▓Θ╒╥íú
╖╡╗╪╓╡:
└²╫╙: str: ="aaa aa"+chr (13) +chr (10) +"bbbbbbbbb"+chr (13) +chr (10) +;
    "cccccc"+chr (13) +chr (10) +"ddd dd ddd"+chr (13) +chr (10) +"55";
    str1: =memocount (str, "Bbb", 5, 4,.F., 1)
    ? str1

.2221
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memodel()
╙∩╖¿: memodel (<cStr>, <nLinenum>, <nEndline>, <nLenth>,;
         <nTabsize>, <lWrap>)
╙├═╛: ╔╛│²╫╓╖√┤«cStr ╡─╡┌nLinenum ╡╜nEndline ╨╨╡──┌╚▌
▓╬╩²:
    <cStr>         ┤²╔╛╫╓┤«
    <nLineum>     ┐¬╩╝╨╨
    <nEndline>     ╜ß╩°╨╨(┐╔╥╘╬¬┐╒)
    <nLenth>    ├┐╨╨╕±╩╜╗»┐φ╢╚
    <nTabsize>     TAB ╕±╡─┐φ╢╚, ╚▒╩í╓╡╬¬4
<lWrap>     ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜, ╬¬╒µ╩▒╘╩╨φíú╡▒
╜√╓╣┤╩╛φ╣÷╩▒╘≥╜½╖╧╞·╫╘│¼│÷╨╨│ñ╡╜╗╪│╡╖√╝Σ
╡──┌╚▌íú
╖╡╗╪╓╡: ╔╛│²║≤╡─╫╓┤«
└²╫╙: str: ="aaa aa"+chr (13) +chr (10) +"bbbbbbbbb"+chr (13) +chr (10) +;
    "cccccc"+chr (13) +chr (10) +"ddd dd ddd"+chr (13) +chr (10) +"55";
    str1: =memodel (str, 2, 4, 5, 4,.F.)
    ? str1

.2222
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memoedit()
╙∩╖¿: memoedit (<cString>, [<nRowtop>], [<nColtop>],;
     [<nRowbot>], [<nColbot>], [<iEditmode>],;
     [<cUDFcontrol>], [<nLinelength>],[<nTabsize>], ;
    [<nBufferrow>], [<nBuffercol>],[<nWindowrow>], [<nWindowcol>])
╙├═╛: ╢╘╫╓╖√┤«╗≥╒▀▒╕╫ó╫╓╢╬╜°╨╨╡»│÷╩╜▒α╝¡íú
▓╬╩²:
    <cString>         ╤í╘±▒α╝¡╡─╫╓╖√┤«╗≥╒▀▒╕╫ó╫╓╢╬íú
 <nRowtop,nColtop>    ▒α╝¡╡─╔╧▒▀╜τ╨╨,  ╫≤▒▀╜τ┴╨, ╚▒╩í╩╣╙├╚½╞┴─╗▒α╝¡íú
<nRowbot,nColbot>    ▒α╝¡╡─╧┬▒▀╜τ╨╨, ╙╥▒▀╜τ┴╨, ╚▒╩í╩╣╙├╚½╞┴─╗▒α╝¡íú
 [<iEditmode>]     ╛÷╢¿memoedit() ║»╩²╩╟╖±╜°╨╨╧╘╩╛╗≥▒α╝¡╡─┬▀╝¡▒φ┤∩╩╜íú╚⌠[<iEditmode>] ╓╡
╬¬.T., ╘≥╘╩╨φ╕├║»╩²╢╘┤«╜°╨╨╨▐╕─, ╖±╘≥memoedit() ║»╩²░┤╓╗╢┴╖╜╩╜
╓┤╨╨íú
 [<cUDFcontrol>]     ╙├╗º╫╘╢¿╥σ║»╩², ╚τ╓╕╢¿, ╘≥▓┘╫≈╒▀├┐╥╗┤╬╗≈╝ⁿ╢╝╦═╚δ
╕├▓╬╩²╓╕╢¿╡─╙├╗º╫╘╢¿╥σ║»╩²╟≤╓╡íú
    [<nLinelength>]    ╚╖╢¿▒α╝¡╨╨│ñ╡─╩²╫╓▒φ┤∩╩╜íú
 [<nTabsize>]         ╥╗╕÷╩²╫╓▒φ┤∩╩╜, ╓╕╢¿╠µ┤·tab ╝ⁿ╡─┐╒╕±╩²─┐, ╚▒╩í╬¬4íú
 [<nBufferrow>], [<nBuffercol>] ╖╓▒≡╬¬▒╕╫ó╫╓╢╬╓╨╣Γ▒Ω╡─│⌡╩╝╨╨┴╨╬╗╓├, ╚▒╩í╢╝╬¬
1íú
[<nWindowrow>], [<nWindowcol>] ╖╓▒≡╬¬memoedit() ║╨╓╨│⌡╩╝╨╨┴╨╬╗╓├, ╫°▒Ω╧╡╥╘memoedit() ║╨╡─╫≤╔╧╜╟╬¬
╫°▒Ω╘¡╡πíú
╖╡╗╪╓╡: ╫╓╖√└α╨═, ╚τ╣√╝ⁿ╚δESC ╓╒╓╣▒α╝¡, ╘≥memoedit() ║»╩²╡─╖╡╗╪╓╡╜½
 ╬¬<cString> ▓╬╩²╡─╓╡; ╖±╘≥, ╜½╖╡╗╪▒╗▒α╝¡╡─┤«íú
└²╫╙:// ╥╗╕÷┤°╙╨╙├╗º╫╘╢¿╥σ║»╩²╡─╝≥╡Ñ▒α╝¡╞≈
 makewindow (4, 1, 23, 76, " ▒α╝¡╞≈", 1, 2, 1)
udf_var: =setudf: =0
mem_var: =memoread ("c: \winbase\readme.Txt")
mem_var: =memoedit (mem_var, 5, 2, 22, 75,.T., "my_udf")
function my_udf (mode, line, col)
private stroke
udf_val: =0
stroke: =lastkey()
    do case
        case mode=0
            ú└ 24, 45 say " ╨╨: "+trim (str (line, If (line<100, 2, 4), 0))
            ú└ 24, 57 say " ┴╨: "+trim (str (col, 2, 0)
            if stroke==-6
                udf_val: =23
            endif
        case mode=3
            if setudf=0
                readinsert (.F.)
                udf_val: =0
            endif
    endcase
return udf_val
▓╬╝√:    @2208 [hardcr](), @2224 [memoline](), @2226 [memoread](),
@2230 [memotran](), @2231 [memowrite](), @2233 [mlcount]()

.2223
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memoins()
╙∩╖¿: memoins (<cStr>, <nLinenum>, <cNewstr>, <nLength>,;
         <nTabsize>, <lWrap>)
╙├═╛: ╘┌╫╓╖√┤«cStr ╡─╡┌nLinenum ╨╨▓σ╨┬╫╓╖√┤«cNewstr.
▓╬╩²:
    <cStr>         ┤²▓σ╚δ╫╓┤«
    <nLinenum>     ┐¬╩╝╨╨
    <cNewstr>     ▓σ╚δ╡─╫╓┤«
    <nLength>     ├┐╨╨╕±╩╜╗»┐φ╢╚
    <nTabsize>     TAB ╕±╡─┐φ╢╚, ╚▒╩í╓╡╬¬4
<lWrap>     ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜, ╬¬╒µ╩▒╘╩╨φíú╡▒
╜√╓╣┤╩╛φ╣÷╩▒╘≥╜½╖╧╞·╫╘│¼│÷╨╨│ñ╡╜╗╪│╡╖√╝Σ
╡──┌╚▌íúlWrap ╢╘cNewstr ╬▐╨ºíú
╖╡╗╪╓╡: ▓σ╚δ║≤╡─╫╓┤«
└²╫╙: str: ="aaa aa"+chr (13) +chr (10) +"bbbbbbbbb"+chr (13) +chr (10) +;
    "cccccc"+chr (13) +chr (10) +"ddd dd ddd"+chr (13) +chr (10) +"55";
    str1: =memoins (str, 2, "new string", 5, 4,.F.)
    ? str1

.2224
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memoline()
╙∩╖¿:     memoline (<cString>, [<nLinelength>], [<nLinenumber>], [<nTabsize>],;
     [<lWrap>]
╙├═╛:     ╠ß╚í╗≥╕±╩╜╗»▒╕╫ó╬─╝■╓╨╡─╬─▒╛╨╨╗≥╫╓╖√┤«íú
▓╬╩²:
    <cString>         ╙├└┤╧╘╩╛╡─╫╓╖√╫╓╢╬, ┤«, ▒╕╫ó╫╓╢╬íú
     [<nLinelength>]     ╧╘╩╛╡─╨╨┐φíú
     [<nLinenumber>]     ┤«╗≥╒▀╠ß╚í╡─╬─▒╛╨╨╡─╨╨║┼íú
     [<nTabsize>]         └⌐╒╣TAB ╝ⁿ╡─┐╒╕±╩²─┐íú
 [<lWrap>]         ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜íú┬▀╝¡▒φ┤∩
╩╜╓╡╬¬╒µ, ╘╩╨φ╛φ╛φ╣÷; ╖±╘≥╜√╓╣┤╩╛φ╣÷íú
╖╡╗╪╓╡: ╫╓╖√└α╨═┤╩
╦╡├≈:     ╚τ─│╨╨╡─│ñ╢╚╨í╙┌memoline() ║»╩²╓╕╢¿╡─┐φ╢╚, ▓╗╫π▓┐╖▌═¿
╣²╠φ╝╙╬▓▓┐┐╒╕±▓╣╞δíú╚τ╨╨║┼│¼╣²╖╢╬º, ╘≥╖╡╗╪╥╗╕÷
┐╒┤«íú
└²╫╙:
// ╧┬└²╜½╩Σ│÷readme. txt ╡──┌╚▌
no_line: =mlcount ("c: \winbase\readme. txt", 65) // ╗±╡├readme. txt ╡─┴╨╩²
for i=1 to no_line // ╨╨┐φ╬¬65
    said: =memoline ("c: \winbase\readme. txt", 65, i) // ╗±╡├╡┌i ┴╨─┌╚▌
    ú└ row() +1, 10 say said
next

▓╬╝√: @2208 [hardcr](), @2224 [memoline](), @2222 [memoedit](),
 @2233 [mlcount]()

.2462
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

memopack()
╙∩╖¿: memopack (<aDbfList>)
╙├═╛: ┤╙DBT ╬─╝■╔╛│²╬┤╩╣╙├╡─▒╕╫ó╩²╛▌
▓╬╩²:
    <aDbfList>     ╥¬╤╣╦⌡╡─╩²╛▌┐Γ├√╩²╫Θ, ▓╗░ⁿ║¼└⌐╒╣├√
╖╡╗╪╓╡: ╚τ╣√╦∙╙╨╬─╝■▒╗│╔╣ª╡╪╤╣╦⌡╘≥╖╡╗╪┐╒┤«, ╖±╘≥, ╖╡
╗╪░ⁿ║¼├Φ╩÷╨╘┤φ╬≤║┼║═╧α╣╪╬─╝■├√╡─┤«íú
└²╫╙:
filelist [1] = 'customer'
filelist [2] ='orders'
filelist [3] ='invoice'
? memopack (filelist)

.2226
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memoread()
╙∩╖¿:     memoread (<cFile>)
╙├═╛:     ┤╙┤┼┼╠╓╨╢┴╚í╥╗╓╕╢¿╡─ASCII ╬─╝■íú
▓╬╩²:
    <cFile>        ╢┴╚í╡─ASCII ╬─╝■├√
╖╡╗╪╓╡: ╫╓╖√└α╨═, ▒╗╢┴╚í╡─╬─╝■│ñ╢╚▒╪╨δ╨í╙┌64K, ╖±╘≥╢α
│÷▓┐╖▌╜½▒╗╔╛│²íú╚τ╒╥▓╗╡╜╥¬╢┴╚í╡─╬─╝■, ╘≥╖╡╗╪╥╗┐╒
┤«íú
└²╫╙: mem_var: =memoread ("as. prg")

▓╬╝√: @2222 [memoedit](), @2231 [memowrite]()

.2225
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memorat()
╙∩╖¿: memorat (<cStr>, <cSearstr>, <nLength>, <nTabsize>,;
         <lWrap>, <xCaseflag>)
╙├═╛: ╘┌╫╓╖√┤«cStr ╓╨▓Θ╒╥cSearstr
▓╬╩²:     <cStr>         ┤²▓Θ╒╥╡─╫╓┤«
    <cSearstr>     ▓Θ╒╥╙├╡─╫╓┤«
    <nlength>     ├┐╨╨╕±╩╜╗»┐φ╢╚
    <nTabsize>     TAB ╕±╡─┐φ╢╚, ╚▒╩í╓╡╬¬4
<lWrap>    ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜, ╬¬╒µ╩▒╘╩╨φíú╡▒
╜√╓╣┤╩╛φ╣÷╩▒╘≥╜½╖╧╞·╫╘│¼│÷╨╨│ñ╡╜╗╪│╡╖√╝Σ
╡──┌╚▌íú
<xCaseflag>     ╬¬┐╒╩▒, ╘≥░┤newstrr ╡─╘¡╤∙▓Θ╒╥, ╖±╘≥▓╗┬█┤≤╨í╨┤╜°╨╨▓Θ╒╥íú
╖╡╗╪╓╡: ╖╡╗╪newstr │÷╧╓╡─╫ε─⌐╥╗╨╨íú
└²╫╙: str: ="aaa aa"+chr (13) +chr (10) +"bbbbbbbbb"+chr (13) +chr (10) +;
    "cccccc"+chr (13) +chr (10) +"ddd dd ddd"+chr (13) +chr (10) +"55";
    str1: =memorat (str, "Bb", 5, 4,.F., 1)
    ? str1

.2227
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memorepl()
╙∩╖¿: memorepl (<cStr>, <nLinenum>, <nEndline>, <cNewstr>,;
             <nLength>, <nTabsize>, <lWrap>)
╙├═╛: ╜½╫╓╖√┤«str ╡─╡┌linenum ╨╨╡╜endline ╨╨╡─╫╓╖√┤«╙├newstr ╠µ╗╗
▓╬╩²:    <cStr>         ┤²╠µ╗╗╡─╫╓┤«
    <cNewstr>     ╠µ╗╗╙├╡─╫╓┤«
    <nLinenum>     ┐¬╩╝╨╨
    <nEndline>     ╜ß╩°╨╨(┐╔╥╘╬¬┐╒)
    <nLength>     ├┐╨╨╕±╩╜╗»┐φ╢╚
    <nTabsize>     TAB ╕±╡─┐φ╢╚, ╚▒╩í╓╡╬¬4
<lWrap>     ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜, ╬¬╒µ╩▒╘╩╨φíú╡▒
╜√╓╣┤╩╛φ╣÷╩▒╘≥╜½╖╧╞·╫╘│¼│÷╨╨│ñ╡╜╗╪│╡╖√╝Σ
╡──┌╚▌íú
╖╡╗╪╓╡: ╠µ╗╗║≤╡─╫╓┤«
└²╫╙: str: ="aaa aa"+chr (13) +chr (10) +"bbbbbbbbb"+chr (13) +chr (10) +;
    "cccccc"+chr (13) +chr (10) +"ddd dd ddd"+chr (13) +chr (10) +"55";
    str1: =memorepl (str, 2, 4, "new string", 5, 4,.F.)
    ? str1

.2228
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memory()
╙∩╖¿: memory (<nExp>)
╙├═╛: ╚╖╢¿WINBASE ╔Φ╓├" ┐╒╧╨─┌┤µ│╪" ╦∙╙├╡──┌┤µ╫▄┴┐íú
▓╬╩²:
    <nExp>     ╩²╫╓▒φ┤∩╩╜, ╞Σ║╧╖¿╓╡╙╨╚²╕÷:
            0 = ╬¬╫╓╖√╓╡╣└╝╞╡─╫▄┐╒╝Σíú
            1 = ╬¬╫╓╖√╓╡╣└╝╞╡─╫ε┤≤┴¼╨°┐Θíú
            2 = ╬¬RUN ├ⁿ┴ε┴⌠│÷╡─╟°íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     memory() ║»╩²▒¿╕µ┐╒╧╨─┌┤µ│╪╡─╟Θ┐÷, ┐╒╧╨─┌┤µ│╪╙├╙┌╜¿
┴ó╫╓╖√┤«║═╖ó▓╝RUN ├ⁿ┴εíú
└²╫╙: ? memory (0) // ╖╡╗╪│╪╓╨╡──┌┤µ╫▄┴┐

.2229
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memotake()
╙∩╖¿: memotake (<cStr>, <nLinenum>, <nEndline>, <nLength>,;
         <nTabsige>, <lWrap>)
╙├═╛: ╚í│÷cStr ╓╨╡─╡┌nLinenum ╡╜nEndline ╨╨╡─╫╓╖√┤«
▓╬╩²:
    <cStr>         ┤²╚í╫╓┤«
    <nLinenum>     ┐¬╩╝╨╨
    <nEndline>     ╜ß╩°╨╨(┐╔╥╘╬¬┐╒)
    <nlength>     ├┐╨╨╕±╩╜╗»┐φ╢╚
    <nTabsize>     TAB ╕±╡─┐φ╢╚, ╚▒╩í╓╡╬¬4
<lWrap>     ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜, ╬¬╒µ╩▒╘╩╨φíú╡▒
╜√╓╣┤╩╛φ╣÷╩▒╘≥╜½╖╧╞·╫╘│¼│÷╨╨│ñ╡╜╗╪│╡╖√╝Σ
╡──┌╚▌íú
╖╡╗╪╓╡: ╚í│÷╡─╫╓╖√┤«
└²╫╙: str: ="aaa aa"+chr (13) +chr (10) +"bbbbbbbbb"+chr (13) +chr (10) +;
    "cccccc"+chr (13) +chr (10) +"ddd dd ddd"+chr (13) +chr (10) +"55";
    str1: =memotake (str, 2, 4, 5, 4,.F., 1)
    ? str1

.2230
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memotran()
╙∩╖¿:    memotran (<cString>, [<cHardcr>], [<cSoftcr>])
╙├═╛:     ╜½╬─▒╛┐Θ╗≥▒╕╫ó╫╓╢╬╓╨╡─╗╪│╡/╗╗╨╨╢╘╖¡╥δ│╔╞Σ
╦ⁿ╕±╩╜╡─╫╓╖√íú
▓╬╩²:
    <cString>     ╫╓╖√┤«▒Σ┴┐╗≥▒╕╫ó╫╓╢╬╡─├√│╞íú
    [<cHardcr>]     ╠µ╗╗╙▓╗╪│╡╡─╫╓╖√íú
    [<cSoftcr>]     ╠µ╗╗╚φ╗╪│╡╡─╫╓╖√íú
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈:     ╚⌠╚▒╩í[<cHardcr>] ▓╬╩², ╘≥WINBASE ╙├╖╓║┼(;) ╠µ╗╗╙▓╗╪│╡;
    ╚⌠╚▒╩í[<cSoftcr>] ▓╬╩², ╘≥WINBASE ╙├┐╒╕±╠µ╗╗╚φ╗╪│╡;
└²╫╙:     memotran (memvar)

▓╬╝√:     @2222 [memoedit]()

.2231
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

memowrite()
╙∩╖¿:     memowrite (<cFile>, <cString>)
╙├═╛:     ╜½╫╓╖√┤«▒Σ┴┐╡──┌╚▌╨┤╚δ┤┼┼╠╬─╝■╓╨íú
▓╬╩²:
<cFile>         ╨┤╡╜┤┼┼╠╔╧╡─╬─╝■├√│╞, ▒╪╨δ░ⁿ║¼┬╖╛╢├√║═└⌐╒╣├√
<cString>     ┤µ╙╨╫╓╖√┤«╡─▒Σ┴┐├√│╞, ╕├╫╓╖√┤«╜½▒╗╨┤╚δ<cFile>╦∙╓╕╡─
┤┼┼╠╬─╝■╓╨
╖╡╗╪╓╡: ┬▀╝¡└α╨═, │╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
╦╡├≈:     ╚⌠╨┤▓┘╫≈│╔╣ª, memowrite() ║»╩²╖╡╗╪╥╗┬▀╝¡╒µ╓╡íú
└²╫╙:/* ╜½╫╓╖√▒Σ┴┐myvar ╡──┌╚▌╨┤╚δ┤┼┼╠╬─╝■as. prg ╓╨, ▓ó╕°│÷╩╟╖±
│╔╣ª╡─╨┼╧ó*/
     sign: =memowrite ("as. prg", myvar)
    if sign
        ? " ╨┤▓┘╫≈│╔╣ª! "
    else
        ? " ╨┤▓┘╫≈╩º░▄! "
    endif

▓╬╝√:     @2226 [memoread]()

.1730
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

memvarblock()
╙∩╖¿:     memvarblock (<cVarName>)
╙├═╛:     ╜¿┴ó╥╗╕÷" ╔Φ╓├- ╤í╚í" ┤·┬δ┐Θ, ╡▒┤·┬δ┐Θ▒╗╟≤╓╡╩▒, ╜ß╣√
╜½╩╟╕°▒Σ┴┐╕│╡─╓╡╗≥╒▀╩╟╤í╚í▒Σ┴┐╡─╓╡íú
▓╬╩²:
    <cVarName>     ╜¿┴ó" ╔Φ╓├- ╤í╚í" ┤·┬δ┐Θ╡─▒Σ┴┐├√│╞
╖╡╗╪╓╡: ╖╡╗╪┤·┬δ┐Θ, ╚τ▒Σ┴┐▓╗┤µ╘┌, ╘≥╖╡╗╪NILíú
╦╡├≈:     ╚τ╣√╢╘┤·┬δ┐Θ╟≤╓╡╩▒╕°┤·┬δ┐Θ┤½╡▌╥╗╕÷▓╬╩², ╘≥
▒Σ┴┐▒╗╕│╙Φ┤½╚δ╡─▓╬╩²╓╡, ╚τ╣√╢╘┤·┬δ┐Θ╟≤╓╡╩▒├╗
╙╨╕°╦ⁿ┤½╡▌▓╬╩², ╘≥▒Σ┴┐╡─╡▒╟░╓╡▒╗╖╡╗╪íú
└²╫╙:     local var, blk
    blk: =memvarblock ("var")
    ? eval (blk) // ╜ß╣√╬¬NIL
    ? eval (blk, 47) // ╜ß╣√╬¬47
    ? var // ╜ß╣√╬¬47

▓╬╝√:     @1806 [aeval](), @2417 [dbeval](), @2445 [fieldblock](), @2448 [fieldwblock]()

.1403
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

menudel()
╙∩╖¿: menudel (<aMenuarr>, <nMbarm>, <nMitem>, <nMsub>)
╙├═╛: ╔╛│²▓╦╡Ñ╧ε
▓╬╩²:
    <aMenuarr>     ▓╦╡Ñ╩²╫Θ
    <nMbar>     ╢Ñ└╕▓╦╡Ñ╧ε╨≥║┼
    <nMitem>     ╧┬└¡▓╦╡Ñ╧ε╨≥║┼
<nMsub>     ╬¬-1╩▒╔╛│²╓╕╢¿╧ε╡─╦∙╙╨╡┌╚²╝╢▓╦╡Ñú¼╚τ╣√>0 ╘≥╔╛│²╠╪╢¿
╡┌╚²╝╢▓╦╡Ñ╧ε
╖╡╗╪╓╡: ╬▐

└²╫╙: ▓╬╝√makemenu()

.1404
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

menuget()
╙∩╖¿:     menuget (<aMenuarray>, <nMbar>, <nMitem>, <nMsub>)
╙├═╛:     ┤╙▓╦╡Ñ╩²╫Θ<aMenuarray> ╓╨╚í▓╦╡Ñ─┌╚▌
▓╬╩²:
    <aMenuarray>     ▓╦╡Ñ╩²╫Θ
    <nMbar>     ╢Ñ└╕▓╦╡Ñ╨≥║┼
    <nMitem>    ╧┬└¡▓╦╡Ñ╨≥║┼
    <nMsub>    ╫╙▓╦╡Ñ╨≥║┼
╖╡╗╪╓╡: ▓╦╡Ñ─┌╚▌, ╫╓╖√╨═

└²╫╙▓╬╝√: @1407 [menuset](), @1402 [makemenu]()

.1405
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

menugetc()
╙∩╖¿: menugetc (ú└<nFc>, ú└<nBc>, ú└<nBar_fc>, ú└<nBar_bc>,;
         ú└<nGray_fc>, ú└<nGray_bc>)
╙├═╛: ╗±╚í▓╦╡Ñ╤╒╔½
▓╬╩²:     <nFc, nBc>        ▓╦╡Ñ╡─╟░╛░╔½íó▒│ ╛░╔½
    <nBar_fc, nBar_bc>     ┴┴╠⌡╡─╟░╛░╔½íó▒│ ╛░╔½
    <nGray_fc, nGray_bc>     ╗╥╔½▓╦╡Ñ╧ε╡─╟░╛░╔½íó▒│ ╛░╔½
╖╡╗╪╓╡: ║»╩²╬▐╖╡╗╪╓╡ú¼▓╦╡Ñ╤╒╔½╖╡╗╪╡╜╧α╣╪▓╬╩²

└²╫╙: ▓╬╝√makemenu()

.1406
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

menuins()
╙∩╖¿: menuins (<aMenuarr>, <nMbar>, <nMitem>, <nMsub>, <cTitle>)
╙├═╛: ╘┌╓╕╢¿╬╗╓├▓σ╚δ▓╦╡Ñ╧ε
▓╬╩²:
    <aMenuarr>     ▓╦╡Ñ╩²╫Θ
    <nMbar>     ╢Ñ└╕▓╦╡Ñ╧ε
    <nMitem>     ╧┬└¡▓╦╡Ñ╧ε
    <nMsub>     ╫╙▓╦╡Ñ╧ε
    <nTitle>     ▓╦╡Ñ╧ε─┌╚▌
╖╡╗╪╓╡:

└²╫╙: ▓╬╝√makemenu()

.1407
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

menuset()
╙∩╖¿: menuset (<aMenuarr>, <nMbar>, <nMitem>, <nMsub>,;
         <cTitle>, <idFlag>)
╙├═╛: ╔Φ╓├▓╦╡Ñ╧ε
▓╬╩²:
    <aMenuarr>     ▓╦╡Ñ╩²╫Θ
    <nMbar>     ╢Ñ└╕▓╦╡Ñ╧ε
    <nMitem>     ╧┬└¡▓╦╡Ñ╧ε
    <nMsub>     ╫╙▓╦╡Ñ╧ε
    <idFlag>     =MU_NORMAL, ╒²│ú▓╦╡Ñ╧ε
            =MU_REMAIN, ▒ú┴⌠▓╦╡Ñ╧ε
            =MU_GRAY, ╗╥╔½▓╦╡Ñ╧ε
╖╡╗╪╓╡: ╬▐

└²╫╙: ▓╬╝√makemenu()

.1408
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

menusetc()
╙∩╖¿: menusetc (<nFc>, <nBc>, <nBar_fc>, <nBar_bc>,;
         <nGray_fc>, <nGray_bc>)
╙├═╛: ╔Φ╓├▓╦╡Ñ╤╒╔½
▓╬╩²:
    <nFc, nBc>             ▓╦╡Ñ╡─╟░╛░╔½íó▒│ ╛░╔½
    <nBar_fc, nBar_bc>         ┴┴╠⌡╡─╟░╛░╔½íó▒│ ╛░╔½
    <nGray_fc, nGray_bc>        ╗╥╔½▓╦╡Ñ╧ε╡─╟░╛░╔½íó▒│ ╛░╔½
╖╡╗╪╓╡: ╬▐
└²╫╙: ▓╬╝√makemenu()

.2018
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

min()
╙∩╖¿: min (<nExp1>, <nExp2>)
╙├═╛: ╢╘┴╜╩²╤º▒φ┤∩╩╜╟≤╓╡▓ó╚í╜╧╨í╒▀íú
▓╬╩²:
    <nExp1>, <nExp2>     ╥¬▒╚╜╧┤≤╨í╡─╩²╤º▒φ┤∩╩╜
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:? min (90, 100) // ╖╡╗╪90
    ? min (-90, -100) // ╖╡╗╪-100

▓╬╝√: @2017 [max]()

.2233
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

mlcount()
╙∩╖¿:     mlcount (<cString>, [<nLinelength>], [<nTabsize>], [<lWrap>])
╙├═╛:     ═│╝╞╥╗╕÷╫╓╖√▒Σ┴┐╗≥╒▀╥╗╕÷▒╕╫ó╫╓╢╬╓╨╕±╩╜
╗»╨╨╡─╩²─┐íú
▓╬╩²:
<cString>         ╨Φ╥¬╟≤╓╡╡─╫╓╖√▒Σ┴┐╗≥╒▀▒╕╫ó╫╓╢╬╡─├√│╞íú
    [<nLinelength>]    ╕±╩╜╗»╬─▒╛┐Θ╦∙╩╣╙├╡─╨╨│ñ╢╚íú
    [<nTabsize>]         └⌐╒╣TAB ╝ⁿ╡─┐╒╕±╩²─┐íú
[<lWrap>]         ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜íú┬▀╝¡▒φ┤∩
╩╜╓╡╬¬╒µ, ╘≥╘╩╨φ┤╩╛φ╣÷; ╖±╘≥╜√╓╣┤╩╛φ╣÷íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:// ╧┬└²╜½╩Σ│÷readme. txt ╡──┌╚▌
 no_line: =mlcount ("c: \winbase\readme. txt", 65) // ╗±╡├readme. txt ╡─┴╨╩²
    for i=1 to no_line // ╨╨┐φ╬¬65
    said: =memoline ("c: \winbase\readme. txt", 65, i) // ╗±╡├╡┌i ┴╨─┌╚▌
        ú└ row() +1, 10 say said
    next i

▓╬╝√:     @2224 [memoline]()

.2232
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

mlctopos()
╙∩╖¿:     mlctopos (<cString>, <nLinelength>, <nLine>, <nCol>;
        [<nTabsize>], [<lWrap>])
╙├═╛:     ╘┌╕±╩╜╗»╫╓╖√┤«╓╨╖╡╗╪╨╨┴╨╓╡╧α╢╘╫╓┤«═╖╡─
╡─╞½╥╞ ╬╗╓├íú
▓╬╩²:
<cString>         ╥╗╕÷╫╓╖√┤«, ╕├┤«╡─╡┌╥╗╕÷╫╓╖√╬╗╓├╬¬╧α╢╘╬╗╓├0íú

    [<nLinelength>]    ╕±╩╜╗»┤«╩▒╩╣╙├╡─╨╨┐φíú
    [<nLine>]         ╨Φ╥¬╚╖╢¿╧α╢╘╬╗╓├╡─┴╨║┼íú
    [<nCol>]         ╨Φ╥¬╚╖╢¿╧α╢╘╬╗╓├╡─╨╨║┼íú
    [<nTabsize>]         └⌐╒╣TAB ╝ⁿ╡─┐╒╕±╩²─┐íú
[<lWrap>]     ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜íú┬▀╝¡▒φ┤∩
╩╜╓╡╬¬╒µ, ╘╩╨φ┤╩╛φ╣÷; ╖±╘≥╜√╓╣┤╩╛φ╣÷íú
╖╡╗╪╓╡: ╩²╫╓└α╨═ú¼┤╙0┐¬╩╝╝╞╩²╡─╧α╢╘╬╗╓├
└²╫╙ú║
str:="Would you know my name, if I saw you in heaven"
?mlctopos ( str, 5, 3, 0 )    //╖╡╗╪10

.2234
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

mlpos()
╙∩╖¿:     mlpos (<cString>, [<nLinelength>], [<nLinenumber>], [<nTabsize>], >],;
     [<lWrap>])
╙├═╛:     ╘┌MEMOREAD() ║»╩²╡─╖╡╗╪┤«╓╨╤░╒╥╕±╩╜╗»╨╨╡─╧α╢╘╬╗╓├íú
▓╬╩²:
<cString>         ╥╗╕÷╫╓╖√┤«, ╕├┤«╡─╡┌╥╗╕÷╫╓╖√╬╗╓├╬¬╧α╢╘╬╗╓├1, mlpos() ║»
╩²╜½╝╞╦π╓╕╢¿╨╨╙δ╕├┤«╡┌╥╗╕÷╫╓╖√╡─╫╓╜┌╛α└δíú
    [<nLinelength>]    ╕±╩╜╗»┤«╩▒╩╣╙├╡─╨╨┐φíú
    [<nLinenumber>]     ╨Φ╥¬╚╖╢¿╧α╢╘╬╗╓├╡─╨╨║┼íú
    [<nTabsize>]         └⌐╒╣TAB ╝ⁿ╡─┐╒╕±╩²─┐íú
[<lWrap>]     ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜íú┬▀╝¡▒φ┤∩
╩╜╓╡╬¬╒µ, ╘╩╨φ┤╩╛φ╣÷; ╖±╘≥╜√╓╣┤╩╛φ╣÷íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     mlpos() ║»╩²┐╔╜¿┴óMEMOREAD() ║»╩²╡─╖╡╗╪┤«╡─╒¬┬╝, mlpos() ║»╩²╖╡╗╪╥╗╩²╫╓
╓╡, ╕├╓╡╡╚╙┌[<nLinelength>] ▓╬╩²╓╕╢¿╨╨╡─╡┌╥╗╕÷╫╓╖√╡╜<cString> ▓╬╩²╓╕╢¿
┤«╡─╡┌╥╗╕÷╫╓╖√╓«╝Σ╡─╫╓╜┌╞½╥╞╩²─┐íú
└²╫╙:     mem_var: =memoread ("as. prg")
    npos: =mlpos (mem_var, 40, 10)
    ? substr (mem_var, npos, 10) // ╖╡╗╪makewindow
    ? npos // ╖╡╗╪290

▓╬╝√:     @2226 [memoread](), @2233 [mlcount]()

.2019
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

mod()
╙∩╖¿: mod (<nNum>, <nBase>)
╙├═╛: ╟≤<nNum> │²╥╘<nBase> ╡─╙α╩²
▓╬╩²:
    <nNum>     ▒╗│²╩²
    <nBase>     │²╩²
╖╡╗╪╓╡: ╙α╩²
└²╫╙:? mod (7, 3)

.1308
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

modifydlg()
╙∩╖¿:    modifydlg (<nHandle>, <idType>, <cOldtitle>, <nSpecpos>, <nModival1>, <nModival2>)
╙├═╛:    ╨▐╕─╢╘╗░┐≥─┌╚▌
▓╬╩²:    ▓╗═¼╡─└α╨═╡─╢╘╗░┐≥, ▓╬╩²╡─╙├╖¿╥▓▓╗╥╗╤∙, ╛▀╠σ╚τ
╧┬
    (1) RADIO, LISTBOX, CHECK └α
        <nHandle>      ╢╘╗░┐≥╛Σ▒·
        <idType>    ╢╘╗░┐≥└α╨═
        <cOldtitle>    ╢╘╗░┐≥▒Ω╠Γ
        <nSpecpos>    ╥¬╨▐╕─╡─╧ε─┐╘┌╢╘╗░╓╨╡─╬╗╓├
        <nModival1>    ├Φ╩÷╡─├√│╞
        <nModival2>    . F ╗≥.T.
    (2) EDIT └α
        <nHandle>    ╢╘╗░┐≥╛Σ▒·
        <idType>    ╢╘╗░┐≥└α╨═
        <cOldtitle>    ╢╘╗░┐≥▒Ω╠Γ
        <nSpecpos>    Ϊ1
        <nModival1>     ├Φ╩÷╡─├√│╞
        <nModival2>     ├Φ╩÷╡──┌╚▌
     (3) MULEDIT └α
        <nHandle>    ╢╘╗░┐≥╛Σ▒·
        <idType>    ╢╘╗░┐≥└α╨═
        <cOldtitle>    ╢╘╗░┐≥▒Ω╠Γ
        <nSpecpos>    Ϊ1
        <nModival1>    ╨┬╫╓╖√┤«
        <nModival2>    .T. ╗≥.F.
     (4) BUTTON ║═ACTION └α
        <nHandle>    ╢╘╗░┐≥╛Σ▒·
        <idType>    ╢╘╗░┐≥└α╨═
        <cOldtitle>    ╢╘╗░┐≥▒Ω╠Γ
        <nSpecpos>    Ϊ1
        <nModival1>    ╨┬╡─▒Ω╠Γ
        <nModival2>     ╨┬╡─╣ª─▄║»╩²
     (5) TEXT └α
        <nHandle>    ╢╘╗░┐≥╛Σ▒·
        <idType>    ╢╘╗░┐≥└α╨═
        <cOldtitle>    ╢╘╗░┐≥▒Ω╠Γ
        <nSpecpos>    Ϊ1
        <nModival1>     ╨┬╡─╫╓╖√┤«
        <nModival2>    ΪNIL
└²╫╙:
#include "winbase.inc"
memvar dlg_succ, check_ret, edit_ret, radio_ret, list_ret, mul_ret

procedure main()
local init_pos: =1
private setdlg_ret, dlg_succ
private check_ret, edit_ret, radio_ret, list_ret, mul_ret

    windowstart()
    msgbox (" ╨▐╕─╢╘╗░┐≥", " ╙ª╙├║»╩²MODIFYDLG() └α", 1)
    setdlg_ret=muti_demo (init_pos)
    if. not. dlg_succ
        msgbox (" ╔Φ╓├╫Θ║╧╢╘╗░┐≥╩º░▄", "", 1)
    else
        if    check_ret
            msgbox (" ╢α╧ε╢╘╗░┐≥╖╡╗╪╓╡:.T. ",;
                "CHECK"+str (init_pos, 1) +" ▒╗╤í╓╨", 1)
        else
            msgbox (" ╢α╧ε╢╘╗░┐≥╖╡╗╪╓╡:.F. ",;
                "CHECK"+str (init_pos, 1) +" ╬┤╤í╓╨", 1)
        endif
        msgbox (" ╡Ñ╧ε╢╘╗░┐≥╖╡╗╪╓╡: ", str (radio_ret, 1), 1)
        msgbox (" ╩²╛▌▒α╝¡╢╘╗░┐≥╖╡╗╪╓╡: ", edit_ret, 1)
        msgbox (" ╬─▒╛▒α╝¡╢╘╗░┐≥╖╡╗╪╓╡: ", mul_ret, 1)
        msgbox (" ┴╨▒φ╢╘╗░┐≥╖╡╗╪╓╡: ", list_ret, 1)
    endif
    windowexit()
    return

function muti_demo (init_pos)

    dlg_succ=setdlg (19687, "check", " ╢α╧ε┐≥",;
     { {"CHECK1", 0}, {"CHECK2", 0}, {"CHECK3", 1}}, 1, 3, 20, init_pos)
    dlg_succ=setdlg (19687, "radio", " ╡Ñ╧ε┐≥",;
         {"RADIO1", "RADIO2"}, 1, 3, 42, init_pos)
    dlg_succ=setdlg (19687, "edit", " ▒α╝¡┐≥",;
         { {"EDIT1", "WINBASE"}, {"EDIT2", 8}}, 1, 10, 10, 26)
    dlg_succ=setdlg (19687, "listbox", " ┴╨▒φ┐≥",;
         {"LIST1", "LIST2", "LIST3"}, 18, 26, 22, 42, init_pos)
    dlg_succ=setdlg (19687, "muledit", " ╬─▒╛▒α╝¡┐≥",;
        " ╘╞┤≤╚φ╝■╣½╦╛", 18, 45, 22, 70)
    dlg_succ=setdlg (19687, "botton", "old popup", "oldpop() ", 7, 60)
    dlg_succ=setdlg(19687, "action", "╓┤╨╨╘¡╣ª─▄", "oldact() ",;
        3,3,10, 40)
    dlg_succ=setdlg (19687, "text", "WinBase 2. 0", 10, 50, 1)
    dlg_succ=setdlg (19687, "botton", " ╨▐╕─", "modidlg() ", 3, 60)
    if    makedlg (19687, " ╫Θ║╧╢╘╗░┐≥")
        check_ret=getdlg (19687, "check", " ╢α╧ε┐≥", init_pos)
        radio_ret=getdlg (19687, "radio", " ╡Ñ╧ε┐≥")
        edit_ret=getdlg (19687, "edit", " ▒α╝¡┐≥", init_pos)
        list_ret=getdlg (19687, "listbox", " ┴╨▒φ┐≥")
        mul_ret=getdlg (19687, "muledit", " ╬─▒╛▒α╝¡┐≥")
    endif
    removedlg (19687)
return nil

function modidlg()
static num: =1
private modiarr: = { {"check", " ╢α╧ε┐≥", 1, "check1",.F.},;
         {"radio", " ╡Ñ╧ε┐≥", 1, "radio1",.T.},;
         {"edit", " ▒α╝¡┐≥", 1, "edit1", "winbase"},;
         {"listbox", " ┴╨▒φ┐≥", 1, "list1",.F.},;
         {"muledit", " ╬─▒╛▒α╝¡┐≥", 1, "winbas",.T.},;
         {"botton", "old popup", 1, "NEW popup", "newpop() "},;
         {"action", " ╘¡╣ª─▄╓┤╨╨", 1, " ╨┬╣ª─▄╓┤╨╨",;
             "newact() "},;
         {"text", "WinBase 2. 0", 1, "Up to WinBase 2. 5", nil}}
private dlg_num

    if num<9
        dlg_num=modifydlg (19687, modiarr [num, 1], modiarr [num, 2],;
        modiarr [num, 3], modiarr [num, 4], modiarr [num, 5])
        num++
    endif
return nil

function oldpop()
    msgbox ("old pop up botton", "", 1)
return nil

function newpop()
    msgbox ("new pop up botton", "", 1)
return nil

function oldact()
    msgbox ("old action", "", 1)
return nil

function newact()
    msgbox ("new action", "", 1)
return nil

.1924
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

month()
╙∩╖¿:     month (<dExp>)
╙├═╛:     ╢╘╥╗╕÷╚╒╞┌╟≤╓╡▓ó┤╙╓╨│Θ╚í│÷╩²╫╓╨╬╩╜╡─╘┬
╨≥║┼íú
▓╬╩²:
    <dExp>    ║╧╖¿╡─╚╒╞┌
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:    ? month (date()) // ╜ß╣√└α╦╞09

▓╬╝√:     @1908 [date](), @1912 [day](), @1932 [year](), @1906 [cmonth]()

.1517
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

mouse()
╙∩╖¿:     mouse (<idFlag>)
╙├═╛:     ╧╘╩╛╗≥╒▀╣╪▒╒╩≤▒Ω, ░┤<flag> ╡─╓╡╔Φ╓├╩≤▒Ω╞≈╫┤╠¼, ▓ó╖╡╗╪
╧╚╟░╡─╫┤╠¼íú
▓╬╩²:
    <idFlag>    ╬¬0╩▒╣╪▒╒╩≤▒Ωú¼╬¬1╩▒╧╘╩╛╩≤▒Ω
╖╡╗╪╓╡: ╩²╓╡╨═(0-1),  0- ╣╪▒╒ú¼1- ╧╘╩╛
└²╫╙:     mouse (0) // ╣╪▒╒╩≤▒Ω
    mouse (1) // ╧╘╩╛╩≤▒Ω

╙├╖¿▓╬╝√: @1512 [m_press](), @1508 [m_hide](), @1515 [m_show]()

.1518
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

mousebox()
╙∩╖¿:     mousebox (<nX1>, <nY1>, <nX2>, <nY2>)
╙├═╛:     ┼╨╢╧╩≤▒Ω╩╟╖±╘┌╧≤╦╪<nX1, nY1, nX2, nY2> ╖╢╬º─┌
▓╬╩²:
    <nX1,nY1>     ╦∙╕°╖╢╬º╫≤╔╧╜╟╧≤╦╪╡π╫°▒Ω;
    <nX2,nY2>     ╦∙╕°╖╢╬º╙╥╧┬╜╟╧≤╦╪╡π╫°▒Ω
╖╡╗╪╓╡: ▓╝╢√╨═, │╔╣ª╖╡╗╪╒µ(.T.), ╖±╘≥╖╡╗╪╝┘(.F.)
└²╫╙:
#include "winbase.inc"
procedure main()
private c, r, color, r1, c1
    windowstart()
    testmouse() // ▓╬╝√m_init()
    flush()
    makebotton (2, 30, " ╩≤▒Ω╝░╤╒╔½▓Γ╩╘", 4, 1)
    makebotton (24, 50, " ═╦│÷", 7, 1)
    color: =0
    do while inkey()! =27
        if mousebox (100, 150, 500, 300)
         // ╚τ╩≤▒Ω╘┌╧≤╦╪(100, 150, 500, 300) ╖╢╬º─┌
        m_where (ú└ c, ú└ r) // ╗±╡├╩≤▒Ω╡▒╟░╡─╧≤╦╪╡π╫°▒Ω(c, r)
        c1: =int ( (c-100) /40) *40+100
        r1: =int ( (r-150) /30) *30+150
        if (m_press (0) ==1. OR. m_press (1) ==1). and. r1<300;
            .and. c1<500
            // ╫≤░┤┼Ñ╗≥╙╥░┤┼Ñ▒╗░┤╧┬
            box3d (c1, r1, c1+40, r1+30, 1, 7)
                // ╗¡╥╗░╫╔½╡─═╣╨═╖╜┐≥
            do while m_rele (0) ==1. and. m_rele (1) ==1
                    // ╫≤░┤┼Ñ╗≥╙╥░┤┼Ñ▒╗╩═╖┼
                color: =mod ( (color+1), 16)
                box3d (c1, r1, c1+40, r1+30, 2, color)
                     // ╗¡╥╗color ╔½╡─░╝╨═╖╜┐≥
                exit // ═╦│÷╡▒╟░do ╤¡╗╖
            enddo
        endif
    endif
    if mousein (24, 50, 25, 54). and. (m_press (0) ==1. OR. m_press (1) ==1)
        quit
    // ╚τ╩≤▒Ω╘┌░┤┼Ñ" ═╦│÷" ╔╧, ╟╥╫≤░┤┼Ñ╗≥╙╥░┤┼Ñ▒╗░┤╧┬
    endif
    if mousein (2, 30, 3, 44). and. (m_press (0) ==1. OR. m_press (1) ==1)
        cls
                /* ╚τ╩≤▒Ω╘┌░┤┼Ñ"" ╩≤▒Ω╝░╤╒╔½▓Γ╩╘" ╔╧, ╟╥╫≤░┤┼Ñ╗≥╙╥░┤
┼Ñ▒╗░┤╧┬*/
        flush()
        makebotton (2, 30, " ╩≤▒Ω╝░╤╒╔½▓Γ╩╘", 4, 1)
        makebotton (24, 50, " ═╦│÷", 7, 1)
    endif
enddo
windowexit()
return
function flush() // ╗¡═°╕±
local i
    for i=0 to 10
        drawline (100+40*i, 150, 100+40*i, 300, 7)
    next
    for i=0 to 5
        drawline (100, 150+30*i, 500, 150+30*i, 7)
    next
return nil

▓╬╝√: @1002 [makebotton](), @1512 [m_press](), @1513 [m_rele](), @1520 [mousein](),  @1607 [drawline](), @1602 [box3d]

.1519
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

mousecol()
╙∩╖¿: mousecol()
╙├═╛: ╖╡╗╪╩≤▒Ω╬╗╓├╡─┴╨╫°▒Ω
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╓╡╨═(0-79)
╙├╖¿▓╬╝√: @1523 [mouserow](), @1512 [m_press](), @1519 [mousecol](), @1516 [m_where]()

.1520
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

mousein()
╙∩╖¿:     mousein (<nRow1>, <nCol1>, <nRow2>, <nCol2>)
╙├═╛:     ┼╨╢╧╩≤▒Ω╖±╘┌╫°▒Ω<nRow1, nCol1, nRow2, nCol2> ╖╢╬º─┌
▓╬╩²:
    <nRow1, nCol1>    ╦∙╕°╖╢╬º╫≤╔╧╜╟╨╨┴╨╫°▒Ω
    <nRow2, nCol2>    ╦∙╕°╖╢╬º╙╥╧┬╜╟╨╨┴╨╫°▒Ω
╖╡╗╪╓╡: ▓╝╢√╨═, │╔╣ª╖╡╗╪╒µ(.T.), ╖±╘≥╖╡╗╪╝┘(.F.)
└²╫╙:
    if mousein (5, 5, 20, 70)
        ? " ╩≤▒Ω╘┌(5, 5, 20, 70) ╖╢╬º─┌"
    else
        ? " ╩≤▒Ω▓╗╘┌(5, 5, 20, 70) ╖╢╬º─┌"
    endif

╙├╖¿▓╬╝√: @1512 [m_press](),  @1509 [m_inbox](), @1518 [mousebox]()

.1521
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

mousekey()
╙∩╖¿:    mousekey()
╙├═╛:     ┐╔═¼╩▒▓Γ╩╘╝ⁿ┼╠░┤╝ⁿ║═╩≤▒Ω░┤┼Ñ
▓╬╩²:     ╬▐
╦╡├≈:     ▒╛║»╩²╥└└╡╙┌╚½╛╓▒Σ┴┐mousekey ╡─╔Φ╓├, ╚⌠╚½╛╓▒Σ┴┐mousekey ╬¬┐╒, ╘≥
▒ú│╓╘¡╣ª─▄ú¼╖±╘≥╓┤╨╨╚½╛╓▒Σ┴┐mousekey ╦∙╓╕╢¿╡─║»╩²╡─╣ª
─▄;
╖╡╗╪╓╡: ╒√╩², ╚τ╚½╛╓▒Σ┴┐mousekey ╬¬┐╒, ╘≥╘¡║»╩²╖╡╗╪╓╡╜½╫÷╬¬
╖╡╗╪╓╡ú¼╖╡╗╪╓╡▓╬╝√winbase.incíú╚τ╚½╛╓▒Σ┴┐mousekey ▓╗╬¬┐╒▓ó╟╥
╦∙╓╕╢¿╡─║»╩²╖╡╗╪0, ╘≥╘¡║»╩²╖╡╗╪╓╡╜½╫÷╬¬▒╛║»
╩²╡─╖╡╗╪╓╡ú¼╖±╘≥╡─╥╘╓╕╢¿╡─║»╩²╡─╖╡╗╪╓╡╬¬╫╝


└²╫╙:     mousekey: = "newmouse()"
    msgbox (" winbase", " ", l)

    function newmouse( )
        ú└1, 1 say str(mouserow( ), 2) + " " +2
            str (mousecol(),2)
    return 0

╙├╖¿▓╬╝√: @1516 [m_where](),  @1504 [inkey]()

.1522
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

mouseread()
╙∩╖¿: mouseread (<Getlist>, <nRow1>, <nCol1>, <nRow2>, <nCol2>)
╙├═╛: └α╦╞╙┌READ, ▓ó┐╔╩╣╙├╩≤▒Ωú¼╩╣╙├═Ω║≤╥¬╜½Getlist ╩²╫Θ╟σ┐╒íú
▓╬╩²:
    <Getlist>         get ╩²╫Θ
    <nRow1, nCol1>     ╩≤▒Ω╫≈╙├╙≥╡─╫≤╔╧╜╟╨╨┴╨╫°▒Ω
    <nRow2, nCol2>     ╩≤▒Ω╫≈╙├╙≥╡─╙╥╧┬╜╟╨╨┴╨╫°▒Ω
╖╡╗╪╓╡: ╬▐
└²╫╙:
private var, getlist: = { }
    var: =100
    ú└ 10, 10 say "tt" get var
        //┤╦╩▒GET╩²╫Θú¿╝┤GETLIST╥╤▒╗╕│╓╡ú⌐
    mouseread (getlist, 5, 5, 12, 30)
    getlist: = { }

.1523
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

mouserow()
╙∩╖¿: mouserow()
╙├═╛: ╖╡╗╪╩≤▒Ω╬╗╓├╡─╫°▒Ω╨╨
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╓╡╨═(0-26)
└²╫╙:
do while.T.
    ú└ 24, 10 say " ╩≤▒Ω╬╗╓├: "+str (mouserow()) +": "+str (mousecol())
        // ╩Σ│÷╡▒╟░╩≤▒Ω╬╗╓├
enddo

╙├╖¿▓╬╝√: @1512 [m_press](),  mouserow(), @1516 [m_where]()

.2235
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

mpostolc()
╙∩╖¿:     mpostolc (<cString>, <nLinelength>, <nPos>, [<nTabsize>], [<lWrap>])
╙├═╛:     ╕∙╛▌╧α╢╘╬╗╓├╘┌╕±╩╜╗»╫╓╖√┤«╓╨╖╡╗╪╨╨┴╨╓╡íú
▓╬╩²:
<cString>         ╥╗╕÷╫╓╖√┤«, ╕├┤«╡─╡┌╥╗╕÷╫╓╖√╬╗╓├╬¬╧α╢╘╬╗╓├0íú

    [<nLinelength>]    ╕±╩╜╗»┤«╩▒╩╣╙├╡─╨╨┐φíú
    [<nLine>]         ╨Φ╥¬╚╖╢¿╧α╢╘╬╗╓├╡─┴╨║┼íú
    [<nCol>]         ╨Φ╥¬╚╖╢¿╧α╢╘╬╗╓├╡─╨╨║┼íú
    [<nTabsize>]         └⌐╒╣TAB ╝ⁿ╡─┐╒╕±╩²─┐íú
[<lWrap>]     ┐╪╓╞╘╩╨φ╗≥╜√╓╣┤╩╛φ╣÷╡─┬▀╝¡▒φ┤∩╩╜íú┬▀╝¡▒φ┤∩
╩╜╓╡╬¬╒µ, ╘╩╨φ┤╩╛φ╣÷; ╖±╘≥╜√╓╣┤╩╛φ╣÷íú
╖╡╗╪╓╡: ╩²╫Θú¼╕±╩╜╬¬{ ╨╨, ┴╨}
└²╫╙ú║
str:="Would you know my name, if I saw you in heaven"
?mpostolc ( str, 5, 10 )    //╖╡╗╪{ 3, 0 }


.1309
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

msgbox()
╙∩╖¿: msgbox (<cMsg1>, <cMsg2>, <nType> [, <cBotton1>, <cBotton2>, <cBotton3>])
╙├═╛: ╘┌▓╗═¼╨╨╧╘╩╛╨┼╧ó
▓╬╩²:     <cMsg1> ,<cMsg2>    ╧╘╩╛╨┼╧ó╫╓╖√┤«
<nType>        ╬¬1 ╩▒╖╡╗╪╓╡╓╗╙╨1, ╬¬2 ╩▒┐╔╖╡╗╪1 ╗≥0, ╬¬3 ╩▒┐╔╖╡╗╪1 ╗≥2 ╗≥
0
<cBotton1>,<cBotton2>, <cBotton3> ┐╔╙├└┤╠µ╗╗╘¡└┤╡─▒Ω╫╝░┤┼Ñ╡─╫╓╖√┤«
╖╡╗╪╓╡: ╩²╫╓0-2
└²╫╙:
#include "winbase.inc"
procedure example1()
local temp, mykey: =' ░┤╬╗'
    windowstart()
    mykey: =inputbox (" ╩Σ╚δ─π╡─├▄┬δ: ", " ╫ε╢α5 ╕÷╫╓─╕! ", 2, mykey)
    // ╩Σ╚δ▓╗╧╘╩╛, ╜╙╩╒├▄┬δ
    if mykey<>"key" // ├▄┬δ▓╗╒²╚╖
        temp: =msgbox (" ├▄┬δ┤φ╬≤! ", " ░┤-> ╝ⁿ╗≥<- ╤í╘±", 3
                ) // ╤í╘±│÷┐┌
        if temp=2 // ╚τ╣√░┤╧┬▒Ω╫╝░┤┼Ñ" ╖┼╞·", ╘≥═╦│÷
            quit
        endif
    else // ├▄┬δ╒²╚╖
        temp: =msgbox (" ╤í╘±╣ª─▄", " ░┤-> ╝ⁿ╗≥<- ╤í╘±", 2,;
                 " ╣ª─▄1", " ╣ª─▄2")
        // ╠µ╗╗╘¡└┤╡─▒Ω╫╝░┤┼Ñ╬¬" ╣ª─▄1", " ╣ª─▄2"
        if temp=0 // ╤í╘±╣ª─▄1 ╓┤╨╨╧α╙ª╡─╚╬╬±
            do fun1()
        elseif temp=1// ╤í╘±╣ª─▄2 ▓ó╓┤╨╨╧α╙ª╡─╚╬╬±
            do fun2()
        endif
    endif
    windowexit()
return

▓╬╝√: @1306 [inputbox]()

.1310
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

msgshow()
╙∩╖¿: msgshow (<cTitle>, <aMsgarr>, <aBottonarr>, <nInitpos>)
╙├═╛: ╡»│÷╢α╨╨╨┼╧ó╝░╢α╕÷░┤┼Ñ╡─╨┼╧ó╢╘╗░┐≥
▓╬╩²:
    <cTitle>    ╢╘╗░┐≥▒Ω╠Γ
    <aMsgarr>     ╨┼╧ó╩²╫Θ, ╕±╩╜╬¬{<msg1>,..., <msgn>}.
    <aBottonarr>     ░┤┼Ñ▒Ω╠Γ╩²╫Θ, ╕±╩╜╬¬{<bott1>,..., <bottn>}
    <nInitpos>     ╤í╓╨░┤┼Ñ╡─│⌡╩╝╗»╬╗╓├
╖╡╗╪╓╡: ░┤ESC ╖╡╗╪0, ╖±╘≥╖╡╗╪╦∙░┤╡─░┤┼Ñ╡─╨≥║┼
└²╫╙: msgshow ("winbase", {"winbase", "up to winbase 2.5 now"},;
             {"winbase 1. 0", "winbase 2. 0", "winbase 2. 5"}, 3)

.1524
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

mskeyb()
╙∩╖¿: mskeyb (<ncKey>)
╙├═╛:    ╜½ncKey ╓╡╦═╚δmousekey ╩╣╙├╡─╗║│σ╟°, ╕├╓╡┐╔╙╔mousekey ║»╩²╚í╡├, └α╦╞╙┌
keyboard ├ⁿ┴εíú
▓╬╩²:
<ncKey>    ╦═╚δmousekey ╗║│σ╟°╡─╝ⁿ╓╡ú¼╚τ╣√<ncKey> ╩╟╩²╓╡ú¼<ncKey>╡─╚í╓╡╬¬WINBASE╠ß╣⌐╡─▒Ω╫╝
╝ⁿ╓╡ú¼╦ⁿ├╟╢¿╥σ╘┌═╖╬─╝■WINBASE.INCíú╚τ╣√<ncKey>╩╟╫╓╖√┤«ú¼╘≥░┤┤«╓╨╫╓
╖√│÷╧╓╡─╧╚║≤▒╗╦═╚δmousekey ╗║│σ╟°íú
╖╡╗╪╓╡: ╬▐

.1212
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

nage
╙∩╖¿:    nage( <nYear>, <nMonth>, <nDay>)
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╜½╩²╓╡╫¬╗╗╬¬─Ω┴Σ
▓╬╩²:
    <nYear>    ╩²╓╡─Ω
    <nMonth>    ╩²╓╡╘┬
    <nDay>    ╩²╓╡╚╒

╖╡╗╪╓╡:─Ω┴Σ╓╡
└²╫╙:
NAGE( 63ú¼12ú¼29)    //╖╡╗╪31

.2463
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

ndxcount()
╙∩╖¿: ndxcount()
╙├═╛: ╝╞╦π╙δ╡▒╟░╩²╛▌┐Γ╧α╣╪╡─╗ε╢»╦≈╥²╬─╝■╡─╕÷
╩²
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╗ε╢»╦≈╥²╬─╝■╡─╕÷╩²
└²╫╙: use dat index ntx1, ntx2, ntx3
    ? ndxcount()

.2464
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

ndxkey()
╙∩╖¿: ndxkey (<clndexName>, < lNTX>)
╙├═╛: ╢┴╚í╦≈╥²╬─╝■╡─╣╪╝ⁿ╫╓▒φ┤∩╩╜
▓╬╩²:
    <clndexName>         ╥¬╢┴╚í╡─╦≈╥²╬─╝■├√
    <lNTX>        lNTX=.T. ╩▒╬¬Winbase ╦≈╥², ╖±╘≥╬¬dBASE ╦≈╥²
╖╡╗╪╓╡: ╣╪╝ⁿ╫╓▒φ┤∩╩╜╫╓╖√┤«
└²╫╙:
? NDXKEY ("ARCUST1. NTX",.T.)

.1525
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

newmskeyb()
╙∩╖¿: newmskeyb()
╙├═╛: ╟σ│²mousekey ╩╣╙├╡─╗║│σ╟°
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.2465
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

netappend()
╙∩╖¿: netappend()
╙├═╛: ╘÷╝╙╨┬╝╟┬╝, ╙├╙┌╘┌═°┬τ╔╧░┤╣▓╧φ╖╜╩╜┤≥┐¬╡─╩²
╛▌┐Γ
▓╬╩²: ╬▐
╖╡╗╪╓╡: │╔╣ª╖╡╗╪.T. ú¼╖±╘≥╖╡╗╪.F.
╫ó╥Γ: ╘┌Winbase ╓╨, ╚⌠╙├╥╗░π╡─USE ┤≥┐¬╩²╛▌┐Γ, ╘≥╩╟░┤╣▓╧φ╖╜╩╜╡─, ╘┌╜°
╨╨╙╨╣╪╡─▓┘╫≈╩▒, ▒≡ ═ⁿ┴╦╝╙╦°ú╗╝╙┴╦╦°╥╘║≤ú¼▓╗╥¬═ⁿ┴╦╙├
├ⁿ┴εUNLOCK ╜Γ╦°;

▓╬╝√: @2406 [dbappend](), @3101[append blank], @2449 [flock](), @2477 [rlock](), @3148[unlock]

.2466
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

netdelete()
╙∩╖¿: netdelete()
╙├═╛: ╘┌═°┬τ╔╧╕°╡▒╟░╣ñ╫≈╟°╓╨┤≥┐¬╡─╩²╛▌┐Γ╡─╡▒
╟░╝╟┬╝┤≥╔╧╔╛│²▒Ω╝╟íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: │╔╣ª╖╡╗╪.T. ú¼╖±╘≥╖╡╗╪.F.

▓╬╝√: @3114[delete], @3136[set deleted]

.2467
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

neterr()
╙∩╖¿: neterr()
╙├═╛: ╚╖╢¿═°┬τ╔╧╡─USE ├ⁿ┴ε╗≥APPEND ├ⁿ┴ε╩╟╖±╓┤╨╨╩º░▄íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ┬▀╝¡└α╨═
╦╡├≈: ╚τ╣√╙├╗º╞≤═╝┤≥┐¬╥╗╕÷╞Σ╦ⁿ╙├╗º╥╤░┤EXCLUSIVE ╖╜╩╜┤≥
┐¬╡─╬─ ╝■, neterr()║»╩²╖╡╗╪.T.íú╚τ╣√╥╗╕÷╙├╗º╙δ┴φ╥╗╕÷╙├╗º╘┌═¼
╥╗╩▒┐╠╩╣╙├APPEND BLANK ├ⁿ┴ε, neterr() ║»╩²╖╡╗╪.T.íú    ╩╣╙├USE ├ⁿ┴ε┤≥┐¬╥╗╕÷╩²╛▌┐Γ
╩▒, ╚τ╣√╬─╝■▓╗─▄╗±╚í, neterr() ║»╩²╜½╖╡╗╪.T.íú
└²╫╙: if neterr() =.T.
        ? " ▓┘╫≈╩º░▄! "
    endif

▓╬╝√:     @2460 [lockfile](), @2461 [lockrec](), @2477 [rlock]() |lock(), @2472 [netuse]()

.2468
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

netfldput()
╙∩╖¿:     netfieldput (<nField>, <Exp>)
╙├═╛:     ╘┌═°┬τ╔╧╢╘╡▒╟░╤í╘±╡─╩²╛▌┐Γ╓╨╓╕╢¿╡─╫╓╢╬
╜°╨╨╕│╓╡▓┘╫≈íú
▓╬╩²:
    <nField>     ╩²╛▌┐Γ╓╨╫╓╢╬╡─╬╗╓├╨≥║┼
    <Exp>         ╕│╕°╓╕╢¿╫╓╢╬╡─╨┬╓╡
╖╡╗╪╓╡: │╔╣ª╖╡╗╪.T. ú¼╖±╘≥╖╡╗╪.F.
└²╫╙:
netfldput(3, date( ) )
if netappend()
    netreplfld ( "code", "007")
endif
▓╬╝√:     @2447 [fieldput]()

.2469
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

netname()
╙∩╖¿:     netname()
╙├═╛:     ╖╡╗╪═°┬τ╣ñ╫≈╒╛IDíú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈:     ╚τ╣√╙ª╙├│╠╨≥▓╗╩╟╘┌IBM PC ═°┬τ╔╧╘╦╨╨, ╗≥╒▀╣ñ╫≈╒╛╡─
ID ├╗╙╨▒╗╔Φ╓├, ╘≥netname() ║»╩²╖╡╗╪╡─╜ß╣√╜½╩╟╥╗┐╒┤«íúnetname() ║»╩²╖╡╗╪
╡─╜ß╣√╫ε│ñ▓╗│¼╣²15 ╕÷╫╓╖√íú
└²╫╙:  ú└12, 20 say " ═°┬τ╣ñ╫≈╒╛ID ╩╟"+netname()

.2470
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

netrecall()
╙∩╖¿: netrecall()
╙├═╛: ╘┌═°┬τ╔╧╗╓╕┤▒╗┤≥╔╧╔╛│²▒Ω╝╟╡─╝╟┬╝
▓╬╩²: ╬▐
╖╡╗╪╓╡: │╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.

.2471
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

netreplfld()
╙∩╖¿: netreplfld (<fld_name>, <xFldval>)
╙├═╛: ╘┌═°┬τ╔╧╜½╫╓╢╬<fld_name> ╕│╙Φ<xFldval> ╓╡
▓╬╩²:
    <fld_name>     ╫╓╢╬├√
    <xFldval>    ╙δ╫╓╢╬├√└α╨═╧α═¼╡─▒Σ┴┐╗≥▒φ┤∩╩╜
╖╡╗╪╓╡: │╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
└²╫╙:
netfldput(3, date)
if netappend()
    netreplfld ( "code", "007")
endif

.2472
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

netuse()
╙∩╖¿:     netuse (<dbfname>, <dbfalias>, <mode>)
╙├═╛:     ╘┌═°┬τ╔╧┤≥┐¬╩²╛▌┐Γ
▓╬╩²:
    <dbfname>     ╩²╛▌┐Γ╬─╝■├√
    <dbfalias>     ╩²╛▌┐Γ▒≡├√
<mode>     ╚⌠╕├╧ε╬¬┐╒, ╘≥╩²╛▌┐Γ░┤╣▓╧φ╖╜╩╜┤≥┐¬, ╖±╘≥░┤╢└╒╝╖╜
╩╜┤≥┐¬íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═, │╔╣ª╖╡╗╪.T.
└²╫╙:     netuse ("my. dbf", A, 1)    //░┤╢└╒╝╖╜╩╜┤≥┐¬╩²╛▌┐Γ

▓╬╝√:     @2438 [dbusearea](), @3150[use]

.1526
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

nextkey()
╙∩╖¿:     nextkey()
╙├═╛:     ╢┴╚í╝ⁿ┼╠╗║│σ╟°╓╨╡╚┤²┤ª└φ╡─╡┌╥╗╕÷╩Σ╚δ╝ⁿ
╓╡ú¼╡½ ▓╗░╤╦ⁿ┤╙╝ⁿ┼╠╗║│σ╟°╓╨╔╛│²íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     ╙δINKEY() ║»╩²▓╗═¼, nextkey() ║»╩²┐╔╖╓╬÷╧┬╥╗╕÷╥¬┤ª└φ╩Σ╚δ╝ⁿ▓ó
╟╥╙╨╠⌡╝■╡╪╜½╗║│σ╟°┤½╡▌╕°╩╡╝╩╩╣╙├╕├╗║│σ╟°
╡─┴φ═Γ╥╗╕÷╣²│╠íú
└²╫╙:
/* ╚τ╡┌╥╗╕÷╩Σ╚δ╝ⁿ▓╗╩╟ESC, ╘≥╓┤╨╨╣²│╠something, ╖±╘≥╟σ│²╝ⁿ┼╠
╗║│σ╟°▓ó═╦│÷*/
 if nextkey() =K_ESC
    clear typeahead // ╟σ│²╝ⁿ┼╠╗║│σ╟°
    clear
    return
else
    do something
endif

▓╬╝√: @1504 [inkey](), @3401[clear typeahead], @2205 [chr](), @1710 [delay]()

.1731
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

nop()
╙∩╖¿: nop()
╙├═╛: ╓┤╨╨╥╗┤╬┐╒▓┘╫≈╡─║»╩²
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.1925
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

ntod()
╙∩╖¿: ntod (<nYear>, <nMonth>, <nDay>)
╙├═╛: ╗±╡├╙╔╙δ<nYear>, <nMonth>, <nDay> ╡─╚╒╞┌╓╡
▓╬╩²:
    <nYear>     ╩²╓╡, ─Ω
    <nMonth>     ╩²╓╡, ╘┬
    <nDay>    ╩²╓╡, ╚╒
╖╡╗╪╓╡: ╚╒╞┌╓╡
└²╫╙:? ntod (63, 12, 29 )    //╖╡╗╪63─Ω12╘┬29╚╒

.1527
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

numlock()
╙∩╖¿: numlock()
╙├═╛: ┤≥┐¬Num Lock ╝ⁿ
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.1528
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

numloff()
╙∩╖¿: numloff()
╙├═╛: ╣╪▒╒Num Lock ╝ⁿ
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.2106
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@21[╫¬╗╗║»╩²╦≈╥²]

numtostr()
╙∩╖¿: numtostr (<nNum>)
╙├═╛: ╜½╩²╓╡(┐╔║¼╨í╩²╬╗) ╫¬╗╗╬¬╫╓╖√┤«
▓╬╩²:
    <nNum>    ┤²╫¬╗╗╩²╓╡
╖╡╗╪╓╡: ╫¬╗╗│÷╡─╫╓╖√┤«
└²╫╙: numtostr (12. 5)    //╖╡╗╪"12.5"

.2236
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

occurs()
╙∩╖¿: occurs (<cSstr>, <cTstr>)
╙├═╛: ╚í╫╓╖√┤«cSstr ╘┌cTstr ╓╨│÷╧╓╡─╕÷╩²
▓╬╩²:
    <cSstr>     ╘┤┤«
    <cTstr>     ─┐▒Ω┤«
╖╡╗╪╓╡: ╫╓╖√┤«cSstr ╘┌cTstr ╓╨│÷╧╓╡─╕÷╩²
└²╫╙: occurs ("123", "a123d123")    //╖╡╗╪2

.1732
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

os()
╙∩╖¿: os()
╙├═╛: ╖╡╗╪▓┘╫≈╧╡═│╡─├√│╞║═░µ▒╛║┼íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:? os() // ╖╡╗╪└α╦╞DOS 6. 00

▓╬╝√:     @1725 [iscolor](), @1764 [version]()

.1213
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

out
╙∩╖¿: out ( <Field>, <nLen> ,<nDec> )
╙├═╛:╩Σ│÷╫╓╢╬─┌╚▌, ╙├╙┌▒¿▒φ╔Φ╝╞
▓╬╩²:
    <Field>    ╫╓╢╬├√
<nLen>    ╩Σ│÷│ñ╢╚, ╚⌠╩í┬╘ú¼╘≥░┤╡▒╟░╧ε╡─│ñ╢╚╝╞╦π
    <nDec>    ╩Σ│÷╨í╩²╬╗
╖╡╗╪╓╡:╬▐
└²╫╙:OUT ( NAME, 8 )

.1733
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

outerr()
╙∩╖¿:     outerr (<CexpList>)
╙├═╛:     ╜½╩Σ│÷╢¿╧≥╡╜DOS ╡─▒Ω╫╝┤φ╬≤╩Σ│÷(stderr) ╔╧, ╢°▓╗╩╟╢¿╧≥╡╜
DOS ╡─▒Ω╫╝╩Σ│÷(stdout) ╔╧íú╞Σ╜ß╣√╩╟╜½╙ª╙├│╠╨≥╡─╩Σ│÷╢¿╧≥
╡╜╞┴─╗╢°▓╗╣▄╞Σ╦ⁿ╡─╓╪╢¿╧≥íú
▓╬╩²:
    <CexpList>     ╙├╫≈╩Σ│÷╡─╙╔╢║║┼╫≈╬¬╢¿╜τ╖√╡─▒φ┤∩╩╜▒φíú
╖╡╗╪╓╡: NIL
╦╡├≈:     outerr() ▓╗╖■┤╙DOS ╓╪╢¿╧≥
└²╫╙:
/* ╘╦╨╨╧┬╢╬┤·┬δ, ╘≥"Winbase" ╜½╘┌┤≥╙í╗·╔╧╩Σ│÷, ╢°" ╓╨╣·" ╚╘╘┌╞┴─╗
╔╧╩Σ│÷íú*/
     set device to printer
    outstd ("Winbase")
    outerr (" ╓╨╣·")

▓╬╝√:     outstd(), @1753 [setpos]()

.1734
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

outstd()
╙∩╖¿:     outstd (<cExpList>)
╙├═╛:     ╜½┐╔▒╗DOS ╓╪╢¿╧≥╡─╩Σ│÷╢¿╧≥╡╜DOS ╡─▒Ω╫╝╩Σ│÷╔Φ▒╕
╔╧íú
▓╬╩²:
    <cExpList>     ╙├╫≈╩Σ│÷╡─╙╔╢║║┼╫≈╬¬╢¿╜τ╖√╡─▒φ┤∩╩╜▒φíú
╖╡╗╪╓╡: NIL
╦╡├≈:     outstd() ╖■┤╙DOS ╓╪╢¿╧≥
└²╫╙:
/* ╘╦╨╨╧┬╢╬┤·┬δ, ╘≥"Winbase" ╜½╘┌┤≥╙í╗·╔╧╩Σ│÷, ╢°" ╓╨╣·" ╚╘╘┌╞┴─╗
╔╧╩Σ│÷íú*/
     set device to printer
    outstd ("Winbase")
    outerr (" ╓╨╣·")

▓╬╝√:     @1733 [outerr](), @1753 [setpos]()

.2239
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

pad |x|()
╙∩╖¿:     pad |x| (<cExp>, <nLength>, <cPadchar>)
╙├═╛:     ░╤╫╓╖√┤«╫¬╗╗╬¬╢╘╞δ─ú╩╜íú
▓╬╩²:     |x|         c, l, ╗≥r, ╦ⁿ├╟╚╖╢¿╢╘╞δ─ú╩╜íú
            padc() ╛╙╓╨╫╓╖√┤«íú
            padl() ╫≤╢╘╞δ╫╓╖√┤«íú
            padr() ╙╥╢╘╞δ╫╓╖√┤«íú
<cExp>         ╫╓╖√└α╨═, ╩²╫╓└α╨═, ╚╒╞┌└α╨═╡─▒φ┤∩╩╜, ╕├▒φ┤∩╩╜╜½╫¬╗╗
│╔╥╗╕÷╫╓╖√┤«íú
    <nLength>     ╜ß╣√│ñ╢╚íú
    <cPadchar>     ╠ε│Σ╫╓╖√ú¼╚▒╩í╬¬┐╒╕±íú
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:
? padc ("Winbase ╧╡═│", 20, "#") // ╧╘╩╛╬¬####Winbase ╧╡═│####
? padl ("Winbase ╧╡═│", 20, "#") // ╧╘╩╛╬¬Winbase ╧╡═│########
? padc ("Winbase ╧╡═│", 20, "#") // ╧╘╩╛╬¬########Winbase ╧╡═│

.1214
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

page
╙∩╖¿:page()
╙├═╛:╖╡╗╪┤≥╙í╡─╡▒╟░╥│║┼ú¼╙├╙┌▒¿▒φ╔Φ╝╞
▓╬╩²:╬▐
╖╡╗╪╓╡:╥│║┼ú¼╩²╓╡┤«
└²╫╙:
" ╡┌"+PAGE( ) +" ╥│"

.1215
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

pages
╙∩╖¿:pages()
╙├═╛:╖╡╗╪▒¿▒φ╡─╫▄╥│╩²ú¼╙├╙┌▒¿▒φ╔Φ╝╞
▓╬╩²:╬▐
╖╡╗╪╓╡:╫▄╥│╩²ú¼╩²╓╡┤«
└²╫╙: " ╣▓"+PAGES  ú¿ú⌐+" ╥│"

.2237
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

parse()
╙∩╖¿: parse (ú└<cString>)
╙├═╛: ┤╙╫╓╖√┤«╓╨│Θ╚í╙╔┐╒╕±╖╓╕⌠╡─╫╙┤«, ▓ó┤╙╫╓╖√┤«
╓╨╔╛│²│Θ╚í│÷╡─╫╙┤«íú
▓╬╩²:
<cString>    ╙╔┐╒╕±╖╓╕⌠╡─╫╙┤«╡─╫╓╖√┤«, ╦ⁿ╙ª░┤╡╪╓╖┤½╡▌íú
╖╡╗╪╓╡: │Θ╚í╡─╫╙┤«
└²╫╙:    str: ="123 456 abc"
    for i=1 t0 2
        ? parse (ú└str)
        ? str
    next

.2363
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

pathparse()
╙∩╖¿: pathparse (<cFileSpec>, ú└ <cDrv>, ú└ <cPath>, ú└ <cBase>, ú└ <cExt>)
╙├═╛: ░╤╬─╝■├√╖╓╜Γ╬¬┼╠║┼íó┬╖╛╢íó╗∙▒╛╬─╝■├√╝░└⌐╒╣
├√íú
▓╬╩²:
    <cFileSpec>     ┤°┬╖╛╢├√╡─╬─╝■├√
    <cDrv>     ╟²╢»╞≈║┼
    <cPath>     ┬╖╛╢├√
    <cBase>     ╗∙▒╛╬─╝■├√
    <cExt>     └⌐╒╣╬─╝■├√
╖╡╗╪╓╡:
    <cDrv>     ╖╡╗╪╟²╢»╞≈║┼
    <cPath>     ╖╡╗╪┬╖╛╢├√
    <cBase>     ╖╡╗╪╗∙▒╛╬─╝■├√
    <cExt>     ╖╡╗╪└⌐╒╣╬─╝■├√
└²╫╙:    pathparse ("C:\DOS\COMMAND.COM", ú└drv, ú└path, ú└base, ú└ext )
    //╕├║»╩²╖╡╗╪╚τ╧┬╓╡
    drv="C", path="C:\DOS", base="COMMAND", ext="COM"

.1735
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

pause()
╙∩╖¿: pause (< nPnauseTime>)
╙├═╛: ╬▐╠⌡╝■╡╪╘▌═ú╓╕╢¿╩▒╝Σ
▓╬╩²:
    <nPauseTime>        ╘▌═ú╡─├δ╩²
╖╡╗╪╓╡: ╬▐
└²╫╙: pause (5.5)

.1736
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

pcol()
╙∩╖¿:     pcol()
╙├═╛:     ╕·╫┘┤≥╙í═╖╡─╦«╞╜╥╞╢»íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═, pcol() ║»╩²╖╡╗╪╫ε║≤┤≥╙í╫╓╖√╡─┴╨║┼
╦╡├≈:     ╓┤╨╨EJECT ├ⁿ┴ε╗≥SETPRC() ║»╩²╜½╩╣╦ⁿ├╟╗╓╕┤│⌡╩╝╫┤╠¼╓╡(0     ╓╡)íú
└²╫╙:
// ╧┬╢╬┤·┬δ╜½┤≥╙í│÷winBaseGOOD
 set device to printer
ú└ 10, 5 say "winBase"
ú└ 10, pcol() say "GOOD"

▓╬╝√:     @1738 [prow](), @1706 [col](), @1741 [row]()

.2505
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

pcount()
╙∩╖¿: pcount()
╙├═╛: ╚╖╢¿┤½╡▌╕°╡▒╟░╣²│╠╗≥╙├╗º╫╘╢¿╥σ║»╩²╡─▓╬
╩²╩²─┐íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:╚τ╣√├╗╙╨▓╬╩²▒╗┤½╡▌, ╘≥pcount() ║»╩²╖╡╗╪0íú
└²╫╙:
// ╘┌╧┬├µ╡─╣²│╠╓╨, ╚τ╣√sign ▓╬╩²├╗╙╨▒╗┤½╡▌, ╘≥╥■║¼╕├▓╬╩²
Ϊ20
 procedure ass (sign)
if pcount() ==0
    sign: =20
endif

.1637
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

pcx()
╙∩╖¿: pcx (<cFilename>, <nX1>, <nY1>, <nX2>, <nY2>)
╙├═╛: ╧╘╩╛16 ╔½pcx ═╝╧±, ▓ó░┤╡▒╟░pcx ╬─╝■╡─╡≈╔½░σ╔Φ╓├╡≈╔½░σ
▓╬╩²:
    <cFilename>     ╬─╝■├√
    <nX1,nY1>    ╧╘╩╛pcx ═╝╧±╡─╫≤╔╧╜╟╧≤╦╪╫°▒Ω
    <nX2,nY2>    ╧╘╩╛pcx ═╝╧±╡─╙╥╧┬╜╟╧≤╦╪╫°▒Ω
╖╡╗╪╓╡: ╬▐
└²╫╙: pcx ("file. pcx", 10, 10, 100, 100)

.1640
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

pcxtype()
╙∩╖¿: pcxtype (<cFilename>)
╙├═╛: ╗±╡├pcx ╬─╝■└α╨═
▓╬╩²:
    <cFilename>    PCX ╬─╝■├√
╖╡╗╪╓╡: ╖╡╗╪pcx ╬─╝■└α╨═, ╛▀╠σ║¼╥σ╚τ╧┬
    0:     ╖╟pcx ╬─╝■
    1:     16 ╔½pcx ╬─╝■
    8:     256 ╔½pcx ╬─╝■
└²╫╙:? pcxtype ("c: \winbase\bin\wbs. ovl")

.1638
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

pcx16()
╙∩╖¿:pcx16 (<cFilename>, <nX1>, <nY1>, <nX2>, <nY2>)
╙├═╛: ░┤╡▒╟░╡≈╔½░σ╧╘╩╛pcx ═╝╧≤
▓╬╩²:
    <cFilename>     PCX ╬─╝■├√
    <nX1,nY1>     ╧╘╩╛pcx ═╝╧±╡─╫≤╔╧╜╟╧≤╦╪╫°▒Ω
    <nX2,nY2>     ╧╘╩╛pcx ═╝╧±╡─╙╥╧┬╜╟╧≤╦╪╫°▒Ω
╖╡╗╪╓╡: ╬▐
└²╫╙: pcx ("file. pcx", 10, 10, 100, 100)

.1639
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

pcx256()
╙∩╖¿: pcx256 (<cFilename>, <nMode>)
╙├═╛: ╧╘╩╛256 ╔½pcx ═╝╧≤
▓╬╩²:
    <cFilename>     pcx╬─╝■├√
<nMode>     256 ╔½╧╘╩╛─ú╩╜(╚▒╩í╡─╖╓▒µ┬╩╬¬320 í┴200 í┴256)
╖╡╗╪╓╡: ╬▐
└²╫╙:

.1410
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

poplist( )
╙∩╖¿: poplist(<acMenuitem>,<nRow1>,<nCol1>,<nRow2>,<nCol2>,;
    <nListfunc>,[<nListpos>,<nListrow>, <nLinec>, <nListfc>, ;
    <nListbc>,<nBarfc>,<nBarbc>,<xDrawbar>,<xSaveflag>])
╙├═╛:┤┤╜¿╡»│÷╩╜▓╦╡Ñ
▓╬╩²:
<acMenuitem>    acMenuitem╬¬╫╓╖√┤«╩▒╡▒╬─╝■├√╢╘┤²ú¿┐╔║¼═¿┼Σ╖√ú⌐ú¼╬¬╩²╫Θ╩▒
╡▒╥╗░π▓╦╡Ñ╧ε┤ª└φ
<nRow1,nCol1>        ▓╦╡Ñ╡»│÷╬╗╓├╡─╫≤╔╧╜╟╨╨┴╨╫°▒Ω
<nRow2,nCol2>        ▓╦╡Ñ╡»│÷╬╗╓├╡─╙╥╧┬╜╟╨╨┴╨╫°▒Ω
    <nListfunc>        ╗╪╡≈║»╩²├√
    <nListpos >        ╜°╚δ╡─▒φ╬╗╓├
    <nListrow >        ╜°╚δ╡─╧╘╩╛╨╨╬╗╓├
    <nLinec >        ╗¡╧▀╤╒╔½
    <nListfc>        ╟░╛░╔½
    <nListbc>        ▒│╛░╔½
    <nBarfc>        ┴┴╠⌡╟░╛░╔½
    <nBarbc>        ┴┴╠⌡▒│╛░╔½
    <xDrawbar>        ╬¬┐╒╩▒╩╣╙├╣÷╢»╕╦ú¼╖±╘≥▓╗╩╣╙├
    <xSaveflag>        ╬¬┐╒╩▒▒ú┤µ╞┴─╗ú¼╖±╘≥▓╗▒ú┤µ

╖╡╗╪╓╡: ╚τ╣√╙├ESC ═╦│÷ú¼╖╡╗╪0ú¼╖±╘≥╖╡╗╪╦∙╤í▓╦╡Ñ╧ε╨≥║┼
╦╡├≈:╗╪╡≈║»╩²╡─╢¿╥σ╚τ╧┬ú║
    <║»╩²├√> ( <Key>, <Files>, <Pos> )ú¼╞Σ╓╨<Key>╬¬╡▒╟░╡─░┤╝ⁿ╗≥╩≤▒Ω╓╡ú¼<Files>╬¬╡▒╟░╩²╫Θú¼
<Pos>╬¬▓╦╡Ñ╩²╫Θ╡─▓╦╡Ñ╦∙╘┌╨≥║┼íú╕├║»╩²▒╪╨δ╖╡╗╪╩²
╓╡ú¼╚⌠╖╡╗╪╓╡▓╗╬¬┴π╟╥▓╗╡╚╙┌<Key>ú¼╘≥╫≈╬¬╨┬╡─<Key>╓╡╙╔poplist ║»
╩²┤ª└φíú
└²╫╙:    ╥╘╧┬╜¿┴ó╥╗╕÷▓Θ┐┤╬─╝■┤≤╨í╡─╡»│÷╩╜▓╦╡Ñú¼╡▒░┤
F1 ╩▒╡»│÷╨┼╧ó┤░┐┌▓ó╧╘╩╛╡▒╟░╬─╝■┤≤╨í

PROCEDURE VIEWFILES( )
    poplist ( "*.*", 8, 20, 18, 40, "showsize" )
RETUNR

Function showsize ( key, filelist, pos )
local filename, size
    IF key = k_F1
         filename = filelist [pos]
        size = filesize (filename)
        msgbox ( "╬─╝■" + filename + "│ñ╢╚╬¬: ", NIRIM(size, 1)
        return (0)
    endif
RETUNR(key)
▓╬╝√:@1412 [popup]()

.1409
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

popgetc()
╙∩╖¿: popgetc (ú└<nFc>, ú└<nBc>, ú└<nBarfc>, ú└<nBarbc>,;
         ú└<nGrayfc>, ú└<nGraybc>)
╙├═╛: ╗±╚í╡»│÷╩╜▓╦╡Ñ╤╒╔½ú¿╒δ╢╘popup()║»╩²ú⌐íú
▓╬╩²:
    <nFc, nBc>         ┤░┐┌╡─╟░╛░╔½íó▒│╛░╔½
    <nBarfc, nBarbc>     ┴┴╠⌡╡─╟░╛░╔½íó▒│╛░╔½
    <nGrayfc, nGraybc>     ╗╥╔½╧╘╩╛╡─╟░╛░╔½íó▒│╛░╔½
┤½▓╬╩▒╘┌╕≈▓╬╩²╟░╝╙"ú└" ║┼▒φ╩╛┤½╚δ╡╪╓╖
╖╡╗╪╓╡: ┤µ╙┌<nFc>, <nBc>, <nBarfc>, <nBarbc>, <nGrayfc>, <nGraybc> ╓╨
└²╫╙▓╬╝√popup()

.1411
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

popsetc()
╙∩╖¿: popsetc (<nFc>, <nBc>, <nBarfc>, <nBarbc>, <nGrayfc>, <nGraybc>)
╙├═╛: ╔Φ╓├╡»│÷╩╜▓╦╡Ñ╡─╤╒╔½ú¿╒δ╢╘popup()║»╩²ú⌐íú
▓╬╩²:
    <nFc, nBc>         ┤░┐┌╡─╟░╛░╔½, ▒│╛░╔½
    <nBarfc, nBarbc>     ┴┴╠⌡╡─╟░╛░╔½, ▒│╛░╔½
    <nGrayfc, nGraybc>     ╗╥╔½╧╘╩╛╡─╟░╛░╔½íó▒│╛░╔½
╖╡╗╪╓╡: ╬▐
└²╫╙: ▓╬╝√ @1412 [popup]()

.1412
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@14[▓╦╡Ñ║»╩²╦≈╥²]

popup()
╙∩╖¿: popup (<nRow>, <nCol>, <aPoparr> [<idType>, <nRow2>, <nCol2>])
╙├═╛: ╡»│÷▓╦╡Ñ┤░┐┌íú
▓╬╩²:
    <nRow1, nCol1>     ┤░┐┌╫≤╔╧╜╟╡─╨╨┴╨╫°▒Ω
<aPoparr>         ┤µ╖┼┤░┐┌▓╦╡Ñ╤í╢Ñ, ╚⌠╩╟╗╥╔½, ╙ª╘┌╤í╧ε╟░╝╙~
<idType>         ┤░┐┌└α╨═, ╡Ñ╢└╩╣╙├popup ╩▒type ╙ª╬¬┐╒╗≥0, ╬¬0 ╩▒╡»│÷░╫╔½┤°╥⌡
╙░╡─┤░┐┌íú
<nRow2, nCol2>     ┤░┐┌╙╥╧┬╜╟╡─╨╨┴╨╫°▒Ω, ╚⌠╓╕╢¿╕├▓╬╩², ╘≥▓·╔·┤°╣÷╢»
╕╦╡─┤░┐┌íú
╖╡╗╪╓╡: ░┤ESC ╖╡╗╪0, ╖±╘≥╖╡╗╪╦∙╤í╧ε─┐╡─╨≥║┼
└²╫╙:
#include "winbase.inc"

PROCEDURE MAIN (arv1, arv2)
private fc: =1, bc: =14
    windowstart()    //WinBase │⌡╩╝╗»
    popup (5, 5, {"item 1", "item 2", "~item 3"},, 10, 12)
    ? popsetc (fc, bc)
    popup (5, 5, {"item 1", "item 2", "~item 3"},, 10, 12)
    ? popgetc (ú└fc, ú└bc)
    ? fc
    ? bc
    inkey (0)
    windowexit()    //Winbase ═╦│÷
RETURN
▓╬╝√:@1410 [poplist]()

.1737
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

printcode()
╙∩╖¿: printcode (<nCtrlcode>)
╙├═╛: ╦═┐╪╓╞┬δ╡╜┤≥╙í╗·╡½▓ó▓╗╕─▒Σ┤≥╙í╬╗╓├
▓╬╩²:
    <nCtrlcode>    ┐╪╓╞┬δ
╖╡╗╪╓╡: ╬▐
└²╫╙:printcode ( 27)

.2506
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

procline()
╙∩╖¿:     procline (<nActivation>)
╙├═╛:     ╚╖╢¿╡▒╟░╓┤╨╨╣²│╠╗≥╗ε╢»╒╗╓╨╣²│╠╡─╨╨║┼íú
▓╬╩²:
<nActivation>     ╓╕╧≥╥╗╗ε╢»╒╗, ╬¬0 ╩▒▒φ╩╛╗ε╢»╒╗╓╨╡▒╟░╗ε╢»╣²│╠(╫ε
─┌▓π╣²│╠) ╗ε╢»╒╗╩╟╥╗╕÷╣²│╠╡─╡≈╙├╣╪╧╡╒╗, ╒╗╓╨┐┐╜ⁿ
╒╗╡╫╡─╣²│╠╡≈╙├┴╦╒╗╓╨┐┐╜ⁿ╒╗╢Ñ╡─╧α┴┌╣²│╠, ╚▒╩í
▓╬╩²╓╡╬¬0íú
╖╡╗╪╓╡: ╩²╫╓└α╨═ú¼╨╨║┼
╦╡├≈:     procline() ║»╩²╖╡╗╪╡▒╟░╡─╨╨║┼, ╕├╨╨║┼▒φ╩╛╧α╢╘╙┌. PRG ╬─╝■╞≡╩╝
╡π╡─╬╗╓├íú╚τ╣√┤ª╙┌╗ε╢»╫┤╠¼╡─╩╟┤·┬δ┐Θ, ╘≥╖╡╗╪╡─╨╨
║┼╜½╩╟╫ε│⌡╜¿┴ó┤·┬δ┐Θ╡─╙∩╛Σ╡─╨╨║┼íú
└²╫╙: do newproce
    ? procline() // ╖╡╗╪1

▓╬╝√: @2507 [procname]()

.2507
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

procname()
╙∩╖¿: procname (<nActivation>)
╙├═╛: ╚╖╢¿╡▒╟░╓┤╨╨╣²│╠╗≥╗ε╢»╒╗╓╨╣²│╠╡─╣²│╠├√íú
▓╬╩²:
<nActivation>     ╓╕╧≥╥╗╗ε╢»╒╗, ╬¬0 ╩▒▒φ╩╛╗ε╢»╒╗╓╨╡▒╟░╗ε╢»╣²│╠(╫ε
─┌▓π╣²│╠) ╗ε╢»╒╗╩╟╥╗╕÷╣²│╠╡─╡≈╙├╣╪╧╡╒╗, ╒╗╓╨┐┐╜ⁿ
╒╗╡╫╡─╣²│╠╫┼╓╪╡≈╙├┴╦╒╗╓╨┐┐╜ⁿ╒╗╢Ñ╡─╧α┴┌╣²
│╠, ╚▒╩í▓╬╩²╓╡╬¬0íú
╖╡╗╪╓╡: ╫╓╖√└α╨═, ╣²│╠├√
╦╡├≈:     procname (1) ╖╡╗╪╡≈╙├╡▒╟░─ú┐Θ╡─╣²│╠├√íú╚τ╣√┤ª╙┌╗ε╢»╫┤╠¼
╡─╩╟┤·┬δ┐Θ, ╘≥╖╡╗╪╡─╣²│╠├√╜½╩╟╫ε│⌡╜¿┴ó┤·┬δ┐Θ
╡─╣²│╠íú
└²╫╙:     if. not. found()
        clear
        ú└ 10, 10 say " ┤φ╬≤! ─π╡≈╙├╡─╡Ñ╘¬╢╘╣²│╠"+
            ;procname() +" ╬▐╨º! "
        wait space (10) +" ░┤╚╬╥Γ╝ⁿ╖╡╗╪╟░▓╦╡Ñ"
        cls
        return
    endif

▓╬╝√: proceline()

.2238
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

proper()
╙∩╖¿: proper (<cStr>)
╙├═╛: ╜½╫╓╖√╓╨╡─├┐╥╗╕÷╡Ñ┤╩╡─═╖╥╗╕÷╫╓╖√╫¬╗╗╬¬
┤≤╨┤
▓╬╩²:
    <cStr>        ┤²╫¬╗╗╫╓╖√┤«
╖╡╗╪╓╡: ╫¬╗╗│÷╡─╫╓╖√┤«
└²╫╙:proper ("no news is good news")
        //╖╡╗╪ú║No News Is Good News

.1738
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

prow()
╙∩╖¿: prow()
╙├═╛: ╕·╫┘┤≥╙í═╖╡─╩·╓▒╥╞╢»íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═, pcol() ║»╩²╖╡╗╪╫ε║≤┤≥╙í╫╓╖√╡─╨╨║┼
╦╡├≈: ╓┤╨╨EJECT ├ⁿ┴ε╗≥SETPRC() ║»╩²╜½╩╣╦ⁿ├╟╗╓╕┤│÷│⌡╩╝╫┤╠¼╓╡
(0 ╓╡)íú
└²╫╙:// ╧┬╢╬┤·┬δ╜½┤≥╙í│÷winBaseGOOD
  set device to printer
ú└10, 5 say "winBase"
ú└ prow(), pcol() say "GOOD"

▓╬╝√: @1736 [pcol](), @1706 [col](), @1741 [row]()

.1641
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

putform()
╙∩╖¿: putform (<nRow>, <nCol>, <cFilename>)
╙├═╛: ╡≈╚δ▓ó╧╘╩╛BSV ═╝╧±
▓╬╩²:
    <cFilename>        BSV ═╝╧±╬─╝■├√
    <nRow>, col>        ═╝╧±┐¬╩╝╧╘╩╛╡─╧≤╦╪╨╨┴╨
╖╡╗╪╓╡: ╬▐

.1739
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

putstr()
╙∩╖¿: putstr (<nRow>, <nCol>, <cString>, <nColor>)
╙├═╛: ╘┌╓╕╢¿╬╗╓├╥╘╓╕╢¿▒│╛░╔½╩Σ│÷╫╓╖√┤«
▓╬╩²:
    <nRow, nCol>        ╩Σ│÷╡─╨╨┴╨╫°▒Ω
    <nColor>         ▒│╛░╔½
    <cString>         ╩Σ│÷╡─╫╓╖√┤«
╖╡╗╪╓╡: NIL
└²╫╙:// ╘┌╞┴─╗1-16 ╨╨╩Σ│÷▓╗═¼▒│╛░╔½╡─╫╓╖√┤«"WINBASE ═╝╬─┤░┐┌
"
 for i=0 to 15
    putstr (i+1, 10, "WINBASE ═╝╬─┤░┐┌", i)
next i

▓╬╝√: @1012 [windowsay](), @3005[ú└... say... get]

.2508
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

qout|qqout()
╙∩╖¿: qout|qqout (<ExpList>)
╙├═╛: ╧╘╩╛╗≥┤≥╙í▒φ┤∩╩╜íú
▓╬╩²:
<ExpList>    ╙├╙┌╧╘╩╛╗≥┤≥╙í╡─▒φ┤∩╩╜▒φ, ▒φ┤∩╩╜╝Σ╙├╢║║┼╖╓╕⌠
┐¬íú▒φ┤∩╩╜┐╔╥╘╩╟╚╬║╬└α╨═íú
╖╡╗╪╓╡: NIL
╦╡├≈:     qout() ║»╩²╘┌╩Σ│÷╓«╟░, ╫╘╢»╩Σ│÷╥╗╕÷╗╪│╡║═╗╗╨╨╖√, qqout() ║»╩²
╘≥▓╗íú
▓╬╝√ú║?|??├ⁿ┴ε
└²╫╙:     qout (" ║»╩²", 120) // ╖╡╗╪║»╩²120

▓╬╝√:    ? /??

.1216
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

r
╙∩╖¿:     r ( <nRow>)
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╚í╡▒╟░┴╨─│╨╨╡─╓╡
▓╬╩²:
    <nRow>    ╡▒╟░┴╨╨╨╓╡
╖╡╗╪╓╡: ╩²╓╡
└²╫╙:║ R ( 6 )

.2240
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

rat()
╙∩╖¿:     rat (<cSearch>, <cTarget>)
╙├═╛:     ╘┌╥╗╕÷╫╓╖√┤«(╘┤┤«) ╓╨╦╤╦≈┴φ╥╗╕÷╫╓╖√┤«╡─╫ε║≤
╥╗┤╬│÷╧╓, ▓ó╖╡╗╪╫╙┤«╡─╞≡╩╝╬╗╓├íú
▓╬╩²:
    <cSearch>    ╦╤╦≈╡─╫╙┤«
    <cTarget>    ▒╗╦╤╦≈╡─╫╓╖√┤«
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:
? rat ("at", "I am at home or at school") // ╖╡╗╪17
? at ("at", "I am at home or at school") // ╖╡╗╪6

▓╬╝√:     @2203 [at](), @2249 [substr]()

.2509
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

readexit()
╙∩╖¿:     readexit (<lExp>)
╙├═╛:     ╘╩╨φ╗≥╜√╓╣╙├╣Γ▒Ω╔╧╥╞╝ⁿ╗≥╣Γ▒Ω╧┬╥╞╝ⁿ└┤╓╒
╓╣╥╗╕÷╢┴▓┘╫≈íú
▓╬╩²:
<lExp>     ╔Φ╓├╠⌡╝■╡─┬▀╝¡▒φ┤∩╩╜, ╚τ╞Σ╓╡╬¬╒µ, ╘╩╨φ╙├╣Γ▒Ω╔╧╥╞
╝ⁿ╗≥╣Γ▒Ω╧┬╥╞╝ⁿ└┤╓╒╓╣╥╗╕÷╢┴▓┘╫≈, ╖±╘≥╜√╓╣íú╚▒╩í
╬¬╜√╓╣íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═
╦╡├≈:     ▓╗┤°▓╬╩²╡─readexit() ║»╩²╘┌╘╩╨φ║═╜√╓╣╫┤╠¼╓«╝Σ╜°╨╨
╫┤╠¼╟╨╗╗íúreadexit() ║»╩²▓ó▓╗╙░╧∞▓┘╫≈╒▀╩╣╙├╣Γ▒Ω╔╧╥╞╝ⁿ╗≥
╣Γ▒Ω╧┬╥╞╝ⁿ╘┌GET ▒Σ┴┐╝Σ╥╞╢», ╦ⁿ╜÷┐╪╓╞╡▒│╠╨≥╬╗╙┌╫ε
║≤╥╗╕÷GET ╩▒, ░┤╧┬╣Γ▒Ω╧┬╥╞╝ⁿ╜½╓┤╨╨╡─╢»╫≈╗≥╒▀╡▒│╠
╨≥╬╗╙┌╡┌╥╗╕÷GET ╩▒, ░┤╧┬╣Γ▒Ω╔╧╥╞╝ⁿ╜½╓┤╨╨╡─╢»╫≈íú
└²╫╙:     readexit (.T.) // ╘╩╨φ╙├╣Γ▒Ω╔╧╥╞╝ⁿ╗≥╣Γ▒Ω╧┬╥╞╝ⁿ└┤╓╒╓╣╥╗╕÷
╢┴▓┘╫≈
    conf: =" "
    ú└ 10, 20 say " ╥¬╨▐╕─┬≡? " get conf
    read
    if upper (conf) ="Y"
        clear
        loop
    endif
    readexit (.F.) // ╜√╓╣╙├╣Γ▒Ω╔╧╥╞╝ⁿ╗≥╣Γ▒Ω╧┬╥╞╝ⁿ└┤╓╒╓╣╥╗╕÷╢┴
▓┘╫≈

▓╬╝√: @3005[ú└... say... get], @2510 [readinsert](), @1746 [set]()

.1529
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

readkey()
╙∩╖¿:     readkey()
╙├═╛:     ╚╖╢¿╓╒╓╣╫ε║≤READ ├ⁿ┴ε╡─╗≈╝ⁿíúLASTKEY() ║»╩²╙δreadkey() ║»╩²╖╡╗╪╧α
═¼╡─╓╡íú
▓╬╩²:     ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     ╚τ╘┌READ ╓╨├╗╙╨GET ▒Σ┴┐▒╗╕ⁿ╨┬, ╘≥readkey() ║»╩²╖╡╗╪╧┬▒φ╓╨╡─┤·
┬δíú

    ╝ⁿ        ┤·┬δ
    Up Arrow     5
    Down Arrow     2
    PGUP         6
    PGDN         7
    CTRL-PGUP     31
    CTRL-PGDN     30
    ENTER     15
    ESC         12
    ╚τ╣√UPDATED() ║»╩²╖╡╗╪╓╡╬¬.T., ╘≥readkey() ║»╩²╜½╖╡╗╪┤·┬δ╓╡256íú
└²╫╙:
ú└ 12, 20 say " ╨╒├√" get name
read
? readkey()
/* ╖╡╗╪15, ▒φ╩╛read ▒╗ENTER ╗≥▒╗╙├╗º╘┌╫ε║≤╥╗╕÷GET ▒Σ┴┐╠ε│Σ╡─╫ε
║≤╥╗╕÷┐╒╕±╦∙╒²│ú╜ß╩°*/

▓╬╝√:     @1507 [lastkey](), @1763 [updated]()

.2510
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

readinsert()
╙∩╖¿:     readinsert ( [<lExp>]
╙├═╛:     ╘┌╥╗╕÷╢┴▓┘╫≈╞┌╝Σ╘╩╨φ╗≥╜√╓╣▓σ╚δ─ú╩╜íú
▓╬╩²:
<lExp>     ╔Φ╓├╠⌡╝■╡─┬▀╝¡▒φ┤∩╩╜, ╚τ╞Σ╓╡╬¬╒µ, ╘╩╨φ╘┌┤«╓╨▓σ╚δ
╫╓╖√; ╖±╘≥╜°╚δ╕▓╕╟─ú╩╜íú╚▒╩í╬¬╕▓╕╟─ú╩╜íú▓╗┤°▓╬╩²╡─
readinsert() ║»╩²╘┌▓σ╚δ║═╕▓╕╟╫┤╠¼╓«╝Σ╜°╨╨╫┤╠¼╟╨╗╗íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═
└²╫╙: readinsert (.T.) // ╔Φ╓├▓σ╚δ─ú╩╜
    conf: ="abdghusdloskdlskkkejixnm"
    ú└ 10, 20 say " ╥¬╨▐╕─┬≡? " get conf
    read
    readinsert (.F.) // ╣╪▒╒▓σ╚δ─ú╩╜

▓╬╝√: @3005[ú└... say... get], @3012[menu to], @3405[set key]

.2511
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

readmodal()
╙∩╖¿:     readmodal (<GetList>)
╙├═╛:     ╢╘╡▒╟░┐╔╝√╡─GetList ╩²╫Θ╓┤╨╨╥╗╕÷╚½╞┴─╗▒α╝¡íú
▓╬╩²:
    <GetList>    ╡▒╟░┐╔╝√╡─Get ▒φ
╖╡╗╪╓╡: NIL
└²╫╙:     ú└ 10, 10 say "type: " get var // ╜¿┴ó╥╗╕÷Getlist ╩²╫Θ
    readmodal (getlist) // ╜°╨╨▒α╝¡
    getlist: = {} // ╟σ│²getlist
    ú└ 10, 10 say "type: " get var
    read

▓╬╝√: @3005[ú└... say... get]

.2512
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

readvar()
╙∩╖¿: readvar()
╙├═╛: ╚╖╢¿GET ╗≥MENU ├ⁿ┴ε╥└╛▌╡─╡▒╟░▒Σ┴┐├√íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈: ╚τ╣√├╗╙╨╣╥╞≡╡─GET ╗≥MENU, ╗≥╒▀├╗╙╨╙╔ACCEPT, INPUT, WAIT, DBEDIT(), ACHOICE() ╥²╞≡╡─WAIT ╫┤╠¼, ╘≥readvar() ║»
╩²╖╡╗╪╥╗┐╒┤«íúreadvar() ║»╩²▓╗─▄╢┴╚íLOCAL └α╨═║═STATIC └α╨═╡─▒Σ┴┐├√
│╞íú
└²╫╙:     setkey ( k_F4 ,{ | | testget() } )
    procedure testget()
        // ╜÷╡▒GET ╓╨╢┴╚í╡─▒Σ┴┐├√╬¬"city" ╗≥"addr" ╩▒,
    do case // ▓┼╢┴╚í╩²╛▌íú
    case readvar() =""
        return
    case readvar() ="city"
        ....
    case readvar() ="addr"
        ....
    otherwise
        return
    endcase

▓╬╝√: @3005[ú└... say... get], @3012[menu to], @3405[set key]

.2473
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

recno()
╙∩╖¿: recno()
╙├═╛: ╚╖╢¿╝╟┬╝╓╕╒δ╦∙╓╕╧≥╝╟┬╝╡─╬∩└φ╝╟┬╝║┼íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:     use my // ╩²╛▌┐Γ╓╨╓┴╔┘╥¬╙╨2 ╕÷╝╟┬╝
    ? recno() // ╖╡╗╪1
    skip
    ? recno() // ╖╡╗╪2

▓╬╝√: @2403 [bof](), @2441 [eof](), @1507 [lastkey]()

.2474
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

recsize()
╙∩╖¿: recsize()
╙├═╛: ╚╖╢¿╩²╛▌┐Γ╓╨├┐╕÷╝╟┬╝╦∙╒╝╛▌┤┼┼╠┐╒╝Σ╡─╫╓
╜┌│ñ╢╚íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:
// ╧┬└²╝∞▓ΘA ┼╠╡─╩ú╙α┐╒╝Σ┴┐, ╚τ╨í╙┌─┐▒Ω╬─╝■│ñ╢╚, ╘≥▓╗
┐╜▒┤
 if diskspace (1) < (recsize() *lastrec() +header() +1)
    cls
    ú└ 10, 10 "A ┼╠╡─╫╘╙╔┐╒╝Σ▓╗╣╗, ▓╗─▄┐╜▒┤"
else
    copy file klgz. dbf to A:
endif

▓╬╝√: @2318 [diskspace](), @2452 [header]()

.1818
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@18[╩²╫Θ║»╩²╦≈╥²]

rectoa()
╙∩╖¿: rectoa()
╙├═╛: ╜½╡▒╟░╝╟┬╝╩²╛▌┤µ╓ⁿ╙┌╩²╫Θ╓╨
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╖╡╗╪╙╔╡▒╟░╝╟┬╝╩²╛▌╫Θ│╔╡─╩²╫Θ
└²╫╙:
arr: = { }
use datafile
rectoa (arr)
? arr [1]
▓╬╝√:@1817 [atorec]()

.1004
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

redrawwin()
╙∩╖¿: redrawwin()
╙├═╛: ╓╪╗¡╦∙╙╨┤░┐┌,╡½╗¡═Ω║≤╥¬╗╓╕┤╡▒╟░┤░┐┌
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL
└²╫╙: ▓╬╝√window()

.1311
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

removedlg()
╙∩╖¿:    removedlg (<nHandle>)
╙├═╛:    │╖╧√╒√╕÷╢╘╗░┐≥
▓╬╩²:
    <nHandle>    ╢╘╗░┐≥╛Σ▒·
╖╡╗╪╓╡:╬▐
└²╫╙▓╬╝√: @1312 [setdlg] └α

.1005
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]
removewindow()
╙∩╖¿: removewindow()
╙├═╛: ╣╪▒╒╡▒╟░┤░┐┌
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL

└²╫╙▓╬╝√: @1006 [shiftwindow](), @1001 [gotowindow]()

.2241
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

replicate()
╙∩╖¿: replicate (<cExp>, <nExp>)
╙├═╛: ░▓▓σ╥╗╕÷╫╓╖√┤«▓ó╜½╦ⁿ╓╪╕┤╓╕╢¿┤╬╩²íú
▓╬╩²:
    <cExp>    ░▓▓σ╡─╫╓╖√┤«
    <nExp>    ╓╪╕┤┤╬╩²
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:     temp: =replicate ("as", 3)
    ? temp // ╖╡╗╪asasas

▓╬╝√: @2248 [stuff]()

.2475
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

replfld()
╙∩╖¿: replfld (<fld_name>, <xFldval>)
╙├═╛: ╜½╫╓╢╬<fld_name> ╕│╙Φ<xFldval> ╓╡íú╫ó╥Γ╙├╙┌═°┬τ╡─╩╟netreplfld
▓╬╩²:
    <fld_name>     ╫╓╢╬├√
    <xFldval>    ╙δ╫╓╢╬├√└α╨═╧α═¼╡─▒Σ┴┐
╖╡╗╪╓╡: │╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
└²╫╙: use datafile
    replfld (fld1, "100")

.2476
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

replvars()
╙∩╖¿: replvars()
╙├═╛: ╙├└┤╫╘╣½╣▓╫╓╢╬▒Σ┴┐╡─╓╡┤·╠µ╡▒╟░╩²╛▌┐Γ╓╨
╡─╫╓╢╬
▓╬╩²: ╬▐
╖╡╗╪╓╡: nil
└²╫╙: ▓╬╝√initvars()

.1740
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

restscreen()
╙∩╖¿: restscreen (<nTop>, <nLeft>, <nBot>, <nRight>, <cExp>)
╙├═╛: ╗╓╕┤╥╘╟░╙├SAVESCREEN() ║»╩²┤µ╓ⁿ╡─╞┴─╗╟°╙≥íú
▓╬╩²:
    <nTop, nLeft>    ╞┴─╗╟°╙≥╡─╫≤╔╧╜╟╨╨┴╨╫°▒Ω
    <nBot,nRight>     ╞┴─╗╟°╙≥╡─╙╥╧┬╜╟╨╨┴╨╫°▒Ωíú
<cExp>    ╥╗─┌┤µ▒Σ┴┐, ╕├─┌┤µ▒Σ┴┐░ⁿ║¼SAVESCREEN() ║»╩²╡─╩Σ│÷íú
╖╡╗╪╓╡: NIL
╦╡├≈:     ╗╓╕┤╩▒╡─╛╪╨╬╟°╙≥╞≡╡π╫°▒Ω▓╗╥╗╢¿╙δ╘¡└┤┤µ
╓ⁿ╩▒╛╪╨╬╟°╙≥╡─╞≡╡π╫°▒Ω═¼, ╡½╦ⁿ├╟╡─┤≤╨í║═▒╚└²
╙ª╕├╛½╚╖╞Ñ┼Σíú
└²╫╙:
// ╧┬╢╬│╠╨≥▒ú┤µ╥╗┤ª╞┴─╗╟°╙≥, ╘┌┴φ╥╗┤ª╧╘╩╛╕├╞┴─╗
╟°╙≥
    my: =savescreen (10, 10, 20, 40)
    restscreen (5, 20, 15, 50, my)

▓╬╝√: @1743 [savescreen](), @1749 [setcolor](), @1634 [loadform](), @1632 [getrname]()

.2242
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

right()
╙∩╖¿: right (<cExp>, <nExp>)
╙├═╛: ┤╙╫╓╖√┤«(╘┤┤«) ╡─╬▓▓┐┐¬╩╝╠ß╚í╓╕╢¿│ñ╢╚╡─╫╙┤«íú
▓╬╩²:
    <cExp>    ╘┤┤«
    <nExp>    ╠ß╚í╡─╫╙┤«│ñ╢╚
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:? right ("123456789", 5) // ╖╡╗╪56789

▓╬╝√: @2214 [left](), @2249 [substr]()

.2477
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

rlock() |lock()
╙∩╖¿: rlock() |lock()
╙├═╛: ╙├╘┌═°┬τ╗╖╛│╓╨╦°╢¿╥╗╠╪╩Γ╝╟┬╝íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ┬▀╝¡└α╨═
╦╡├≈:     rlock() |lock() ║»╩²╓╗╦°╢¿╡▒╟░╝╟┬╝íú╘╩╨φ═°┬τ╔╧╡─╞Σ╦ⁿ╙├╗º
╦°╢¿╞Σ╦ⁿ╝╟┬╝íú├┐╕÷╓┤╨╨╦°╢¿▓┘╫≈╡─╙├╗º╓╗─▄╢╘
▒╗╦√╦°╢¿╡─╝╟┬╝╜°╨╨╨┤▓┘╫≈íú╥╗╕÷▒╗╦°╢¿╡─╝╟┬╝
╥╗╓▒▒ú│╓╦°╢¿╫┤╠¼╓▒╡╜╙├╗º╣╪▒╒╩²╛▌┐Γ, ╗≥╒▀╙╓╦°
╢¿┴φ═Γ╥╗╕÷╝╟┬╝, ╗≥╒▀╩╣╙├UNLOCK ├ⁿ┴ε╩═╖┼╒Γ╕÷▒╗╦°╢¿╡─
╝╟┬╝íú
└²╫╙:     dbgoto (12)
    lock() // ╦°╢¿╝╟┬╝12

▓╬╝√: @2460 [lockfile](), @2461 [lockrec]()

.2020
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

round()
╙∩╖¿: round (<nInt>, <nDec>)
╙├═╛: ░┤╓╕╢¿╡─╨í╩²╬╗╩², ╢╘╩²╤º▒φ┤∩╩╜╡─╜ß╣√╦─╔ß╬σ
╚δíú
▓╬╩²:
    <nInt>         ╥¬╦─╔ß╬σ╚δ╩²╤º▒φ┤∩╩╜
    <nDec>    ╨í╩²╬╗╩²
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:? round (3. 14259, 4) // ╖╡╗╪3. 1426
▓╬╝√: @2013 [int]()

.1741
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

row()
╙∩╖¿: row()
╙├═╛: ╖╡╗╪╞┴─╗╣Γ▒Ω╡─╡▒╟░╬╗╓├╡─╨╨╫°▒Ω╓╡íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
╦╡├≈:     ╘┌╞┴─╗╔╧╡─╚╬║╬╩Σ│÷, COL() ║═ROW() ║»╩²╢╝╗ß╫╘╢»╕ⁿ╨┬╥╘╖┤
╙│╡▒╟░╣Γ▒Ω╬╗╓├íú╓┤╨╨CLEAR, CLEAR ALL, CLS ╜½░╤COL(), ROW() ╓╪╔Φ╬¬0íú
└²╫╙: // ╧┬╢╬┤·┬δ╜½┤≥╙í│÷winBaseGOOD
ú└ 10, 5 say "winBase"
ú└ row(), col() say "GOOD"

▓╬╝√: @1736 [pcol](), @1706 [col](), @1738 [prow]()

.1217
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

rtack
╙∩╖¿:    rtack ( <nRec>, <cDbfname>, <ncField>, <nLen> )
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╚í│÷╡▒╟░╝╟┬╝╡─╫╓╢╬╡─╓╕╢¿─┌
╚▌
▓╬╩²:
    <nRec>    ╝╟┬╝║┼
    <cDbfname>    ╩²╛▌┐Γ├√
    <ncField>    ╫╓╢╬╨≥║┼╗≥╫╓╢╬├√
    <nLen>    │ñ╢╚
╖╡╗╪╓╡:
└²╫╙:RTACK (100,  "COUNTRY. DBF" ,2 )
▓╬╝√:@1205 [ctack](), @1211 [itack](), @1222 [tack]()

.2021
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

rtod()
╙∩╖¿: rtod (<Rodians>)
╙├═╛: ╜½╗í╢╚╫¬╗╗╬¬╜╟╢╚
▓╬╩²:
    <Rodians>    ╗í╢╚
╖╡╗╪╓╡: ╜╟╢╚
└²╫╙: rtod (3. 1415926)    //╖╡╗╪180

.2243
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

rtrim()
╙∩╖¿: rtrim (<cExp>)
╙├═╛: ╔╛╚Ñ╫╓╖√┤«╓╨╡─╚½▓┐╬▓▓┐┐╒╕±íú
▓╬╩²:
    <cExp>    ╥¬╚Ñ╡⌠╬▓▓┐┐╒╕±╡─╫╓╖√┤«
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:
? len ("go home? ") // ╖╡╗╪10
? len (rtrim ("go home? ")) // ╖╡╗╪8

▓╬╝√: @2201 [alltrim](), @2251 [trim]()

.1742
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

runmacro()
╙∩╖¿: runmacro (<cFunc>)
╙├═╛: ╜½<cFunc> ╫╓╖√┤«╡──┌╚▌╫¬╗╗╬¬║»╩²╘╦╨╨
▓╬╩²:
    <cFunc>    ║»╩²├√
╖╡╗╪╓╡: ║»╩²╘╦╨╨╜ß╣√
└²╫╙:? runmacro ("int (2. 5) ")    //╖╡╗╪2

.1642
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

saveform()
╙∩╖¿: saveform (<nRow1>, <nCol1>, <nRow2>, <nCol2>, <cFilename>)
╙├═╛: ░╤╓╕╢¿╡─╞┴─╗╟°╙≥┤µ╓ⁿ╡╜╬─╝■╓╨
▓╬╩²:
    <nRow1, nCol1>     ╓╕╢¿╡─╞┴─╗╟°╙≥╫≤╔╧╜╟╫°▒Ω;
    <nRow2, nCol2>     ╓╕╢¿╡─╞┴─╗╟°╙≥╙╥╧┬╜╟╫°▒Ω;
    <cFilename>         ╬─╝■├√, ┐╔┤°┬╖╛╢
╖╡╗╪╓╡:╬▐
└²╫╙:
function    save()
    saveform (9,19,17,51, "bsv1.bsv")
    loadform ( "bsv1.bsv")
return nil

▓╬╝√: @1634 [loadform](), @1632 [getrname]()

.1743
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

savescreen()
╙∩╖¿: savescreen (<nTop>, <nLeft>, <nBot>, <nRight>)
╙├═╛: ╜½╞┴─╗╔╧╡─╥╗╕÷╛╪╨╬╟°╙≥┤µ╚δ─┌┤µ╥╘▒π╘┌║≤
├µ╜°╨╨╗╓╕┤íú
▓╬╩²:
    <nTop,nLeft>        ╛╪╨╬╟°╙≥╡─╫≤╔╧╜╟╡─╨╨┴╨╫°▒Ωíú
    <nBot,nRight>         ╛╪╨╬╟°╙≥╡─╙╥╧┬╜╟╡─╨╨┴╨╫°▒Ωíú
╖╡╗╪╓╡: ╫╓╖√└α╨═,╛Σ▒·
╫ó╥Γ: ╡▒╙├╗º╩╣╙├╡─▓╗╩╟IBM-PC ╩╙╞┴╟²╢»│╠╨≥╩▒, ┐╔─▄╗ß▓╗╓º
│╓savescreen() ║»╩²íú
└²╫╙:
// ╧┬╢╬│╠╨≥▒ú┤µ╥╗┤ª╞┴─╗╟°╙≥, ╘┌┴φ╥╗┤ª╧╘╩╛╕├╞┴─╗
╟°╙≥
    my: =savescreen (10, 10, 20, 40)
    restscreen (5, 20, 15, 50, my)

▓╬╝√: @1740 [restscreen](), @1749 [setcolor](), @1642 [saveform](), @1633 [getwname]()

.1530
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

scankey()
╙∩╖¿: scankey()
╙├═╛: ╚╖╢¿╚╬║╬░┤╝ⁿ╡─ASCII ┬δ╓╡
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╓╡
└²╫╙: scsnkey( )

.1744
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

scroll()
╙∩╖¿: scroll (<nTop>, <nLeft>, <nBot>, <nRight>, <nExp>)
╙├═╛: ╕∙╛▌╓╕╢¿╨╨╩²╣÷╢»┤░┐┌─┌╡──┌╚▌íú
▓╬╩²:
    <nTop,nLeft>        ┤░┐┌╡─╫≤╔╧╜╟╡─╨╨┴╨╫°▒Ω
    <nBot,nRight>         ┤░┐┌╡─╙╥╧┬╜╟╡─╨╨┴╨╫°▒Ω
<nExp>     ╣÷╢»╡─╨╨╩²íú╡▒<nExp> ╬¬╒², ╧≥╔╧╣÷╢»┤░┐┌; ╡▒<nExp> ╬¬╕║, ╘≥╧≥╧┬╣÷╢»┤░
┐┌; ╡▒<nExp> ╬¬0, ╘≥╟σ│²┤░┐┌íú
╖╡╗╪╓╡: NIL
╦╡├≈:     ╙├╗º╚τ╣√╧δ╘┌┤░┐┌╓╨╙╔scroll() ║»╩²╔·│╔╡─┐╒╨╨╔╧╠φ
╝╙─┌╚▌, ╘≥▒╪╨δ╙├╙∩╛Σ└┤╩Σ│÷╒Γ╨⌐─┌╚▌íú
└²╫╙: ú└ 11, 21 say" ┤µ┼╠"
    ú└ 12, 21 say" ╡≈│÷"
    ú└ 13, 21 say" ═╦│÷"
    scroll (11, 20, 15,40, 1)

.1531
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

scrollock()
╙∩╖¿: scrollock()
╙├═╛: ┤≥┐¬Scroll Lock ╝ⁿ
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.1532
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

scrolloff()
╙∩╖¿: scrolloff()
╙├═╛: ╣╪▒╒Scroll Lock ╝ⁿ
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.1926
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

seconds()
╙∩╖¿: seconds()
╙├═╛: ╖╡╗╪╫╘╬τ╥╣┐¬╩╝╡╜╧╓╘┌╬¬╓╣╡─╩▒╝Σ╝Σ╕⌠, ╡Ñ╬╗░┤
├δ╝╞╦πíú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:// ╧┬╥╗╢╬┤·┬δ╕°│÷╥╗╓╓▓Γ╩╘╥╗╢╬│╠╨≥╘╦╨╨╩▒╝Σ
╡─╖╜╖¿
     s1: =seconds()
    for i: =1 to 10000
    ? i
    next i
    s2: =seconds()
    cls
    ú└ 10, 20 say " ╙├┴╦"+str (s2-s1) +" ├δ"

▓╬╝√: @1929 [time]()

.1927
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

sectoday()
╙∩╖¿: sectoday (<seconds>)
╙├═╛: ╜½├δ╩²╫¬╗╗╬¬╠∞╩²
▓╬╩²:
    <seconds>    ├δ╩²
╖╡╗╪╓╡: ╠∞╩²
└²╫╙:? sectoday (4000000 )        //╖╡╗╪46

.1928
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

sectotime()
╙∩╖¿: sectotime (<seconds>)
╙├═╛: ╜½├δ╩²╫¬╗╗╬¬╩▒╝Σ
▓╬╩²:
    <seconds>    ├δ╩²
╖╡╗╪╓╡: ╩▒╝Σ╫╓╖√┤«
└²╫╙: sectotime (3600)    //╖╡╗╪01:00:00

.2478
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

select()
╙∩╖¿: select ( [<cExp>])
╙├═╛: ╚╖╢¿╡▒╟░╣ñ╫≈╟°íú
▓╬╩²:
[<cExp>]    ░ⁿ║¼▒╗╤í╘±╣ñ╫≈╟°▒≡├√╡─▒φ┤∩╩╜íú╚▒╩í╖╡╗╪╡▒╟░
╣ñ╫≈╟°╡─╣ñ╫≈╟°╨≥║┼íú
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:
use file_1
old_area: =select()
old_ailas: =alias()
select 3
use file_2
? old_area // ╖╡╗╪1
? old_ailas // ╖╡╗╪file_1
select (old_area) //select ╘┌╒Γ╢∙╩╟├ⁿ┴ε, └¿║┼╩╟║Ω╡─╥¬╟≤
? select() // ╖╡╗╪1
? alias() // ╖╡╗╪file_1
select (old_area) //select ╘┌╒Γ╢∙╩╟├ⁿ┴ε, └¿║┼╩╟║Ω╡─╥¬╟≤
// ╒Γ╕÷├ⁿ┴ε╘┌╒Γ╢∙╜½▓·╔·╥╗╕÷└α╨═▓╗╞Ñ┼Σ╡─╘╦╨╨
▓╬╝√: elect, @2402 [alias](), dbselect()

.1745
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

sernum()
╙∩╖¿: sernum()
╙├═╛: ╚í╨≥┴╨║┼
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╨≥┴╨║┼╫╓╖√┤«

└²╫╙: ú└ 20, 12 say " ╨≥┴╨║┼╩╟"+sernum( )

.1746
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

set()
╙∩╖¿: set (<nSelector>, [<expNewSetting>)
╙├═╛: ╚╖╢¿║═╕─▒ΣWINBASE ╡─SET ├ⁿ┴ε╗≥║»╩²╡─╫┤╠¼íú
▓╬╩²:
    <nSelector>         winbase.inc ═╖╬─╝■╓╨╡─╔∙├≈│ú╩²íú
<expNewSetting>]    ╥╗╕÷▒φ┤∩╩╜╗≥╬─╫╓┤«(╙├└¿║┼└¿╞≡), ╙├└┤╠ß╣⌐╨┬╡─╔Φ
╓├íú
╖╡╗╪╓╡: ╖╡╗╪░ⁿ║¼╡▒╟░╔Φ╓├╡─▒φ┤∩╩╜
╦╡├≈:     SET() ║»╩²╙╨┴╜╕÷╗∙▒╛╙├═╛: ▓Γ╩╘SET ├ⁿ┴ε╡─╔Φ╓├╙δ╩╡╝╩╖╧
│²─│╕÷SET ├ⁿ┴ε╡─╔Φ╓├╥╗░π, SET ├ⁿ┴ε╫¬╗»╬¬winbase.inc ═╖╬─╝■╓╨╡─╔∙├≈
│ú╩²╓╗╨Φ╘┌SET ├ⁿ┴ε╓╨╝╙┴╜╧┬╗«╧▀, ╚τ├ⁿ┴εSET EXACT ╫¬╗»╬¬╧α╙ª
│ú╩²_SET_EXECTíúwinbase.cin ═╖╬─╝■╓╨╗╣░ⁿ└¿╥╗│ú╩²_SET_COUNT ╙├└┤╔∙├≈╡▒╟░╡─SET ╔Φ
╓├╩²─┐íú
└²╫╙: // ╩²╫ΘMY_Array ╓╨╜½░ⁿ└¿╡▒╟░╦∙╙╨╡─SET ╔Φ╓├
i: =1
do while i<_SET_COUNT
    MY_Array [i]: =set (i)
    i++
enddo

.2364
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

setattr()
╙∩╖¿: setattr (<cFilename>, <idFileattr>)
╙├═╛: ╔Φ╓├╬─╝■╩⌠╨╘
▓╬╩²:
    <cFilename>     ╬─╝■├√
<idFileattr>    ╬─╝■╩⌠╨╘, ┐╔╥╘╩╟╥╘╧┬│ú┴┐, ▓ó┐╔╩╣╙├BINOR() ║»╩²╜½╒Γ╨⌐╩⌠╨╘
╫Θ║╧╞≡└┤íú
_A_ARCH    ┤µ╡╡╬─╝■
_A_HIDDEN    ╥■║¼╬─╝■
_A_NORMAL    ╒²│ú
_A_RONLY    ╓╗╢┴╬─╝■
_A_SUBDIR    ─┐┬╝╩⌠╨╘
_A_SYSTEM    ╧╡═│╬─╝■
_A_VOLID    ╛φ▒Ω

╖╡╗╪╓╡: ╬▐
└²╫╙: setattr ("user. dbf", binor (32, 1))
▓╬╝√:@2355 [getattr]()

.1747
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

setblink()
╙∩╖¿: setblink (<lExp>)
╙├═╛:     ┐¬╣╪SETCOLOR() ║»╩²▒φ┤∩╩╜╓╨╦∙╙├╡─╨╟║┼(*), ╕├╨╟║┼▒φ╩╛╘┌
╔┴╦╕╩⌠╨╘╙δ▒│╛░┴┴╢╚╩⌠╨╘╓«╝Σ╡─╥╗╓╓╤í╘±ú¿╙├╙┌╬─▒╛
─ú╩╜ú⌐íú
▓╬╩²:
<lExp>     ╥╗┬▀╝¡╓╡, ╚í.T. (╚▒╩í╓╡), ╘≥SETCOLOR() ║»╩²╓╨╨╟║┼▒φ╩╛╔┴╦╕; ╚í.F., SETCOLOR() ║»╩²╓╨╨╟║┼▒φ
╩╛▒│╛░┴┴╢╚íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═, SETCOLOR() ║»╩²╖╡╗╪╓╡╬¬╕├║»╩²╓┤╨╨╩▒╖ó╔·╫≈
╙├╡─╔Φ╓├╓╡íú
╦╡├≈: ┴╜╩⌠╨╘▓╗─▄═¼╩▒│÷╙┌╗ε╢»╫┤╠¼íú
└²╫╙:     // ╧┬╢╬┤·┬δ╜½╘┌┴┴╗╞▒│╛░╔½╔╧▓·╔·║┌╤╒╔½
setblink (.T.)
setcolor ("N/GR*")
clear
? "BAD"

▓╬╝√: @1749 [setcolor]()

.1533
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

sethotkey()
╙∩╖¿:sethotkey (<idKey>, <cFunc>)
╙├═╛:     ╔Φ╓├╚╚╝ⁿ╣ª─▄, ╕├╣ª─▄╙├╙┌mousekey ┐╪╓╞╡─╤¡╗╖, ╚⌠Func ╖╡╗╪╖╟┐╒
╩²╓╡, ╘≥╫≈╬¬mousekey ╡─╖╡╗╪╓╡, ╖±╘≥mousekey ╖╡╗╪key ╓╡íú
▓╬╩²:
    <idKey>    ╬¬╚╚╝ⁿ(winbase.inc ╓╨╡─╦∙╙╨╝ⁿ)
<cFunc>    ╬¬╙δ╚╚╝ⁿ╢╘╙ª╡─╣ª─▄║»╩²├√, ╚⌠╬¬┐╒, ╘≥╔╛│²╕├╚╚╝ⁿíú
╖╡╗╪╓╡: ╬▐
└²╫╙: #include "winbase.inc"

PROCEDURE MAIN (arv1, arv2)

    windowstart()
    mousekey: ="nmouse() "
    sethotkey (K_ALT_1, "wmsg() ")
    msgbox ("press ALT_1 see what happen", "", 1)
    mouse (1)
    ? inkey (0)
    ? inkey (0)
    windowexit()    //Winbase ═╦│÷
RETURN

function wmsg()
    msgbox ("press K_ALT_1", "", 1)
return nil

function nmouse()
    ú└1, 1 say str (mouserow()) +str (mousecol())
return 0

.1748
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

setcancel()
╙∩╖¿: setcancel (<lExp>]
╙├═╛: ╘╩╨φ╗≥╜√╓╣╩╣╙├ALT-C ╫≈╬¬╙ª╙├│╠╨≥╡─═╦│÷╝ⁿíú
▓╬╩²:
<lExp>    ┬▀╝¡╓╡, ╚í.T. ╘≥╘╩╨φ╩╣╙├ALT-C └┤╜ß╩°╙ª╙├│╠╨≥; ╖±╘≥, ╜√╓╣╩╣╙├ALT-C ╫≈╬¬
╙ª╙├│╠╨≥╡─═╦│÷╝ⁿú¿╙├windowstart( ) │⌡╩╝╗»║≤╚▒╩í╫┤╠¼ú⌐íú
╖╡╗╪╓╡: ┬▀╝¡└α╨═íú
╦╡├≈: ▓╗┤°▓╬╩²╡─setcancel() ║»╩²╘┌╘╩╨φ║═╜√╓╣╫┤╠¼╓«╝Σ╜°╨╨
╫┤╠¼╟╨╗╗íú
└²╫╙: setcancel (.F.) //ALT-C ▓╗─▄═╦│÷│╠╨≥
▓╬╝√: quit, set()

.1749
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

setcolor()
╙∩╖¿: setcolor (<cExp>)
╙├═╛:     ┤µ╓ⁿ╡▒╟░╢¿╥σ╡─╤╒╔½╔Φ╓├, ╗≥╒▀╬¬╧┬╥╗╕÷╞┴─╗╩Σ
│÷╢¿╥σ╤╒╔½╔Φ╓├íú
▓╬╩²:
<cExp>    ╢¿╥σ╤╒╔½╔Φ╓├╡─╫╓╖√┤«íú╕├╫╓╖√┤«╡─╕±╩╜╬¬ú║<standard>,[<enhanced>][,<border>],[<background>] [,<unselect>] ╞Σ╓╨<standard>╩╟╓≈╟░
╛░╔½║═▒│╛░╔½╡─╤╒╔½╢╘ú╗[<enhanced>] ╩╟... get ╓╨get╫╙╛Σ╓╕╢¿╡─╤╒╔½╢╘ú╗<border>╩╟╞┴
─╗▒▀┐≥╤╒╔½ú╗╢╘╙┌<background>┤≤╢α╩²╧╘╞≈▓╗╓º│╓╕├▓╬╩²ú╗<unselect>╩╟│²get ═Γ╡─
╞Σ╦ⁿ▓┐╖╓╓╕╢¿╡─╤╒╔½ú╗<cExp> ╕≈╤╒╔½╢╘╟░╥╗▓┐╖╓╬¬╟░╛░╔½
ú¼║≤╥╗▓┐╖╓╬¬▒│╛░╔½ú¼╦ⁿ├╟╙├í░/í▒╖╓┐¬íú
╖╡╗╪╓╡: ╫╓╖√└α╨═, ╡▒╟░╢¿╥σ╡─╤╒╔½╔Φ╓├íú
╦╡├≈: ╧┬├µ╩╟╤╒╔½┤·┬δíú
    ╤╒╔½╗≥╩⌠╨╘║┼    ╖√║┼    ⌐º╤╒╔½╗≥╩⌠╨╘║┼    ╖√║┼
    ║┌    0         N    ⌐º╗╥            N+
    └╢    1         B    ⌐º╗╞            GR+
    ┬╠    2         G    ⌐º┐╒░╫        X
    ╟α    3         BG    ⌐º╧┬╗«╧▀         U
    ║∞    4         R    ⌐º╖┤╩╙        I
    ╫╧║∞    5        RB    ⌐º╔┴╦╕        *
    ╫╪    6         GR    ⌐º╕▀┴┴╢╚        +
    ░╫    7         W    ⌐º

└²╫╙: oldcolor: =setcolor ("w+/b, r/w, /n, n, r/w") // ┤µ╓ⁿ╛╔╔Φ╓├║═╢¿╥σ╨┬╔Φ╓├
    ? oldcolor // ╖╡╗╪"w+/b, r/w, /n, n, r/w"

▓╬╝√: @3017[set color], @1746 [set()]

.1750
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

setcursor()
╙∩╖¿: setcursor (<nCursorShape>)
╙├═╛: ╕─▒Σ╣Γ▒Ω╡─╨╬╫┤íú
▓╬╩²:
    <nCursorShape>    ╓╕╢¿╣Γ▒Ω╨╬╫┤╡─╩²╫╓▓╬╩²íú
╖╡╗╪╓╡: ╩²╫╓└α╨═, ╡▒╟░╢¿╥σ╡─╣Γ▒Ω╨╬╫┤╡─╩²╫╓▓╬╩²
╦╡├≈: setcursor() ║»╩²╙╨5 ╕÷║╧╖¿▓╬╩²:
    ╣Γ▒Ω└α╨═            winbase.inc ╓╨╡─╢¿╥σ
    ╣╪▒╒╣Γ▒Ω            SC_NONE
    ╒²│ú(╧┬╗«╧▀) ╣Γ▒Ω        SC_NORMAL
    ╨í╖╜┐Θ(╧┬░δ┐Θ) ╣Γ▒Ω    SC_INSERT
    ┤≤╖╜┐Θ╣Γ▒Ω            SC_SPECIAL1
    ╨í╖╜┐Θ(╔╧░δ┐Θ) ╣Γ▒Ω    SC_SPECIAL2
└²╫╙: old_cur: =setcursor (3)
        // ╕─▒Σ╣Γ▒Ω▓ó╬¬╫ε║≤╡─╗╓╕┤▒ú┤µ╡▒╟░╓╡

▓╬╝√: set()


.1312
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@13[╗ß╗░║»╩²╦≈╥²]

setdlg()
setdlg    ╙├╙┌╔Φ╓├╥╗╕÷╢╘╗░┐≥, ╡½▓╗╝ñ╗ε╦ⁿ, ╒δ╢╘▓╗═¼└α╨═╡─╢╘
╗░┐≥, ╙├╖¿╥α▓╗═¼, ╛▀╠σ╚τ╧┬:
1. CHECK └α(╢α╧ε╤í╘±╢╘╗░┐≥)
╙∩╖¿:    setdlg (<nHandle>, "CHECK", <cTitle>, <aEditarr>,<nNum_col>,;
         <nRow>, <nCol>, <nInitpos>)
▓╬╩²:    <nHandle>    ╢╘╗░┐≥╛Σ▒·
    <cTitle>    ╢╘╗░┐≥▒Ω╠Γ
    <aEditarr>     ▒α╝¡╩²╫Θ, ╕±╩╜╬¬
             { {< ├Φ╩÷1>, <0 ╗≥1>},... {< ├Φ╩÷n>, <0 ╗≥1>}}
            ╞Σ╓╨0 ▒φ╩╛▓╗╤í, 1 ▒φ╩╛╤í╓╨
    <nNumcol>    ╧╘╩╛│÷╡─┴╨╩²
    <nRow>    ╨╨╫°▒Ω
    <nCol>        ┴╨╫°▒Ω
    <nInitpos>    │⌡╩╝╗»╬╗╓├(1=<nInitpos=< ╧ε─┐╩²)
└²╫╙:
#include "winbase.inc"
memvar dlg_succ

procedure main()
local init_pos: =3
private setdlg_ret, dlg_succ

    windowstart()
    msgbox (" ╔Φ╓├╢α╧ε╤í╘±╢╘╗░┐≥", " ╙ª╙├║»╩²SETDLG() └α", 1)
    setdlg_ret=check_demo (init_pos)
    if. not. dlg_succ
        msgbox (" ╔Φ╓├╢α╧ε╤í╘±╢╘╗░┐≥╩º░▄", "", 1)
    else
        if setdlg_ret
         msgbox (" ╢α╧ε╤í╘±╢╘╗░┐≥╖╡╗╪╓╡:.T. ",;
            "SELECTION"+str (init_pos, 1) +" ▒╗╤í╓╨", 1)
        else
            msgbox (" ╢α╧ε╤í╘±╢╘╗░┐≥╖╡╗╪╓╡:.F. ",;
                "SELECTION"+str (init_pos, 1) +" ╬┤╤í╓╨", 1)
        endif
    endif
    windowexit()
return

function check_demo (init_pos)
private ret

    dlg_succ=setdlg (19687, "check", " ╢α╧ε╤í╘±",;
     { {"SELECTION1", 0}, {"SELECTION2", 0}, {"SELECTION3", 1}}, 2, 5, 21, init_pos)
    makedlg (19687, " ╢α╧ε╤í╘±╢╘╗░┐≥")
    ret=getdlg (19687, "check", " ╢α╧ε╤í╘±", init_pos)
    removedlg (19687)
return ret
╖╡╗╪╓╡: │╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.

2. RADIO └α(╡Ñ╧ε╤í╘±╢╘╗░┐≥)
╙∩╖¿:    setdlg (<nHandle>, "RADIO", <cTitle>, <aEditarr>,;
        <nNumcol>, <nRow>, <nCol>, <nInitpos>)
▓╬╩²:    <nHandle>        ╢╘╗░┐≥╛Σ▒·
    <cTitle>        ╢╘╗░┐≥▒Ω╠Γ
    <aEditarr>         ╩²╫Θ╕±╩╜╬¬{< ├Φ╩÷1>,... < ├Φ╩÷n>}
    <nNumcol>        ╧╘╩╛│÷╡─┴╨╩²
    <nRow>        ╨╨╫°▒Ω
    <nCol>            ┴╨╫°▒Ω
    <nInitpos>        │⌡╩╝╗»╬╗╓├(1=<nInitpos=< ╧ε─┐╩²)
└²╫╙:
#include "winbase.inc"
memvar dlg_succ

procedure main()
private setdlg_ret, dlg_succ

    windowstart()
    msgbox ("╔Φ╓├╡Ñ╧ε╤í╘±╢╘╗░┐≥", " ╙ª╙├║»╩²SETDLG() └α", 1)
    setdlg_ret=radio_demo (3)
    if. not. dlg_succ
        msgbox (" ╔Φ╓├╡Ñ╧ε╤í╘±╢╘╗░┐≥╩º░▄", "", 1)
    else
        msgbox (" ╡Ñ╧ε╤í╘±╢╘╗░┐≥╖╡╗╪╓╡: "+str (setdlg_ret, 1),;
            " ╤í╓╨SELECTION"+str (setdlg_ret, 1), 1)
    endif
    windowexit()
return

function radio_demo (init_pos)
private ret

    dlg_succ=setdlg (19687, "radio", " ╡Ñ╧ε╤í╘±",;
     {"SELECTION1", "SELECTION2", "SELECTION3"}, 2, 5, 21, init_pos)
    makedlg (19687, " ╡Ñ╧ε╤í╘±╢╘╗░┐≥")
    ret=getdlg (19687, "radio", " ╡Ñ╧ε╤í╘±", init_pos)
    removedlg (19687)
return ret

╖╡╗╪╓╡:│╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.

3. EDIT └α(╩²╛▌▒α╝¡╢╘╗░┐≥)
╙∩╖¿:    setdlg (<nHandle>, "EDIT", <cTitle>, <aEditarr>,;
    <nNumcol>, <nWidth>, <nRow>, <nCol>)
▓╬╩²:    <nHandle>        ╢╘╗░┐≥╛Σ▒·
    <cTitle>        ╢╘╗░┐≥▒Ω╠Γ
<aEditarr>        ╩²╫Θ╕±╩╜╬¬{ (< ├Φ╩÷1>, < │⌡╓╡1>},... < ├Φ╩÷n>, {│⌡╓╡    n>}} │⌡╓╡┐╔╥╘╩╟╩²╓╡, ╫╓
╖√┤«, ▒φ┤∩╩╜
    <nWidth>        ▒α╝¡┐φ╢╚
    <nRow>        ╨╨╫°▒Ω
    <nCol>            ┴╨╫°▒Ω
└²╫╙:
#include "winbase.inc"
memvar dlg_succ

procedure main()
private selc: =3
private setdlg_ret, dlg_succ

    windowstart()
    msgbox ("╔Φ╓├╩²╛▌▒α╝¡╢╘╗░┐≥", " ╙ª╙├║»╩²SETDLG() └α", 1)
    do while.T.
        selc=inputbox (" ╩Σ╚δ╖╡╗╪╨≥║┼(1, 2, 3) ", "", 1, 1)
        if selc>=1. and. selc<=3
            exit
        endif
    enddo
    setdlg_ret=edit_demo (selc)
    if. not. dlg_succ
            msgbox (" ╔Φ╓├╩²╛▌▒α╝¡╢╘╗░┐≥╩º░▄", "", 1)
    else
    do case
    case selc==1
        msgbox ("╩²╛▌▒α╝¡╢╘╗░┐≥╖╡╗╪╫╓╖√┤«: "+setdlg_ret, "", 1)
    case selc==2
        msgbox ("╩²╛▌▒α╝¡╢╘╗░┐≥╩²╓╡: "+alltrim (str (setdlg_ret)), "", 1)
    case selc==3
        msgbox ("╩²╛▌▒α╝¡╢╘╗░┐≥╚╒╞┌╓╡: "+dtoc (setdlg_ret), "", 1)
    endcase
    endif
    windowexit()
return

function edit_demo (selc)
private ret

    dlg_succ=setdlg (19687, "edit", " ╩²╛▌▒α╝¡",;
         { {"string", "WINBASE"}, ;{"number", 0}, ;
        {"function", date()}}, 1, 10, 8, 30)
    makedlg (19687, " ╩²╛▌▒α╝¡╢╘╗░┐≥")
    ret=getdlg (19687, "edit", " ╩²╛▌▒α╝¡", selc)
    removedlg (19687)
return ret

╖╡╗╪╓╡:│╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.

4. BUTTON └α(╣ª─▄░┤┼ñ╢╘╗░┐≥)
╙∩╖¿:    setdlg (<nHandle>, "BOTTON", <cTitle>, <cFunc>, <nRow>, <nCol>)
▓╬╩²:
    <nHandle>    ╢╘╗░┐≥╛Σ▒·
    <cTitle>    ╢╘╗░┐≥▒Ω╠Γ
    <cFunc>    ╣ª─▄║»╩²├√
    <nRow>    ╨╨╫°▒Ω
    <nCol>        ┴╨╫°▒Ω
└²╫╙:
#include "winbase.inc"
memvar dlg_succ

procedure main()
private setdlg_ret, dlg_succ

    windowstart()
    msgbox ("╔Φ╓├╣ª─▄░┤┼Ñ╢╘╗░┐≥", " ╙ª╙├║»╩²SETDLG() └α", 1)
    setdlg_ret=botton_demo()
    if. not. dlg_succ
        msgbox (" ╔Φ╓├╣ª─▄░┤┼Ñ╢╘╗░┐≥╩º░▄", "", 1)
    endif
    windowexit()
return

function botton_demo()

    eval (cur__off)
    dlg_succ=setdlg (19687, "botton", " ╣ª─▄░┤┼Ñ","bot_func() ", 5, 5)
    makedlg (19687, " ╣ª─▄░┤┼Ñ╢╘╗░┐≥")
    removedlg (19687)
return nil

function bot_func()
    msgbox ("What you see is WinBase, ", "What you want is WinBase", 1)
return nil

╖╡╗╪╓╡:│╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.

5. TEXT └α(╫╓╖√┤«╧╘╩╛)
╙∩╖¿:    setdlg (<nHandle>, "TEXT", <cTitle>, <nRow>, <nCol>, <nColor>)
▓╬╩²:    <nHandle>    ╢╘╗░┐≥╛Σ▒·
    <cTitle>    ╥¬╧╘╩╛╡─╫╓┤«
    <nRow>    ╨╨╫°▒Ω
    <nCol>        ┴╨╫°▒Ω
    <nColor>    ╫╓┤«╟░╛░╔½
└²╫╙:
#include "winbase.inc"
memvar dlg_succ

procedure main()
local init_pos: =3
private setdlg_ret, dlg_succ

    windowstart()
    msgbox ("╔Φ╓├╫╓┤«╧╘╩╛╢╘╗░┐≥", " ╙ª╙├║»╩²SETDLG() └α", 1)
    setdlg_ret=text_demo (init_pos)
    if. not. dlg_succ
        msgbox (" ╔Φ╓├╫╓┤«╧╘╩╛╢╘╗░┐≥╩º░▄", "", 1)
    endif
    windowexit()
return

function text_demo (init_pos)
private ret

    dlg_succ=setdlg (19687, "check", " ╢α╧ε╤í╘±",;
     { {"SELECTION1", 0}, {"SELECTION2", 0}, {"SELECTION3", 1}}, ;
        2, 5, 21, init_pos)
    dlg_succ=setdlg (19687, "text", "WinBase", 5, 10, 4)
    makedlg (19687, " ╫╓┤«╧╘╩╛╢╘╗░┐≥")
    removedlg (19687)
return ret

╖╡╗╪╓╡:│╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.

6. LISTBOX └α(┴╨▒φ┐≥)
╙∩╖¿:    setdlg(<nHandle>, "LISTBOX", <cTitle>, <aListarr>,;
    <nRow1>, <nCol1>, <nRow2>,<nCol2>,<nInitpos>)
▓╬╩²:
    <nHandle>        ╗░┐≥╛Σ▒·
    <cTitle>        ╧╘╩╛╡─╫╓┤«
    <aListarr>        ┴╨▒φ╩²╫Θ, ╕±╩╜╬¬{< ╧ε─┐1>,... < ╧ε─┐n>}
    <nRow1, nCol1>    ┴╨▒φ┐≥╫≤╔╧╜╟╨╨íó┴╨╫°▒Ω
    <nRow2, nCol2>    ┴╨▒φ┐≥╙╥╧┬╜╟╨╨íó┴╨╫°▒Ω
└²╫╙:
#include "winbase.inc"
memvar dlg_succ, ret

procedure main()
local init_pos: =3
private setdlg_ret, dlg_succ

    windowstart()
    msgbox (" ╔Φ╓├┴╨▒φ╢╘╗░┐≥", " ╙ª╙├║»╩²SETDLG() └α", 1)
    setdlg_ret=listbox_demo (init_pos)
    if. not. dlg_succ
        msgbox (" ╔Φ╓├┴╨▒φ╢╘╗░┐≥╩º░▄", "", 1)
    else
        msgbox (" ┴╨▒φ╢╘╗░┐≥╖╡╗╪╓╡: ", str (setdlg_ret), 1)
    endif
    windowexit()
return

function listbox_demo (init_pos)
private ret: =0

    dlg_succ=setdlg (19687, "listbox", " ┴╨▒φ",;
         {"SELECTION1", "SELECTION2", "SELECTION3"}, ;
        5, 5, 10, 20, 1)
    setdlg (19687, "botton", " ═Ω│╔", "OK", 10, 15)
    makedlg (19687, " ┴╨▒φ╢╘╗░┐≥")
    ret=getdlg (19687, "listbox", " ┴╨▒φ")
    removedlg (19687)
return ret

╖╡╗╪╓╡:│╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.

7. MULEDIT └α(╬─▒╛▒α╝¡)
╙∩╖¿:    setdlg (<nHandle>, "MULEDIT", <cTitle>, <cString>,;
    <nRow1>, <nCol1>, <nRow2>, <nCol2>)
▓╬╩²:    <nHandle>        ╢╘╗░┐≥╛Σ▒·
    <cTitle>        ╥¬╧╘╩╛╡─╫╓┤«
    <cString>        ▒α╝¡┐≥╡─│⌡╩╝╫╓┤«
    <nRow1, nCol1>    ▒α╝¡┐≥╫≤╔╧╜╟╨╨íó┴╨╫°▒Ω
    <nRow2, nCol2>    ▒α╝¡┐≥╙╥╧┬╜╟╨╨íó┴╨╫°▒Ω
└²╫╙:
#include "winbase.inc"
memvar dlg_succ

procedure main()
local init_pos: =3
private setdlg_ret, dlg_succ

    windowstart()
    msgbox ("╔Φ╓├╬─▒╛▒α╝¡╢╘╗░┐≥", " ╙ª╙├║»╩²SETDLG() └α", 1)
    setdlg_ret=medit_demo()
    if. not. dlg_succ
        msgbox (" ╔Φ╓├╬─▒╛▒α╝¡╢╘╗░┐≥╩º░▄", "", 1)
    else
        msgbox (" ╬─▒╛▒α╝¡╢╘╗░┐≥╖╡╗╪╓╡", setdlg_ret, 1)
    endif
    windowexit()
return

function medit_demo()
private ret

    dlg_succ=setdlg (19687, "muledit", "╬─▒╛▒α╝¡", "WinBase", 4, 22, 16, 50)
    makedlg (19687, " ╬─▒╛▒α╝¡╢╘╗░┐≥")
    ret=getdlg (19687, "muledit", " ╬─▒╛▒α╝¡")
    removedlg (19687)
return ret

╖╡╗╪╓╡:│╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.

8. ACTION └α(╓┤╨╨╣ª─▄╢╘╗░┐≥)
╙∩╖¿:    setdlg (<nHandle>, "ACTION", <cTitle>, <cFunc>,;
    <nRow1>, <nCol2>, <nRow2>, <nCol2>)
▓╬╩²:
    <nHandle>    ╢╘╗░┐≥╛Σ▒·
    <cTitle>        ╣ª─▄├Φ╩÷
    <cFunc>        ╣ª─▄║»╩²├√│╞
    <nRow1, nCol1>    ╢╘╗░┐≥╫≤╔╧╜╟╨╨íó┴╨╫°▒Ω
    <nRow2, nCol2>    ╢╘╗░┐≥╙╥╧┬╜╟╨╨íó┴╨╫°▒Ω
└²╫╙:
#include "winbase.inc"
memvar dlg_succ

procedure main()
local init_pos: =3
private setdlg_ret, dlg_succ

    windowstart()
    msgbox ("╔Φ╓├╓┤╨╨╣ª─▄╢╘╗░┐≥", " ╙ª╙├║»╩²SETDLG() └α", 1)
    setdlg_ret=action_demo()
    if. not. dlg_succ
        msgbox (" ╔Φ╓├╓┤╨╨╣ª─▄╢╘╗░┐≥╩º░▄", "", 1)
    endif
    windowexit()
return

function action_demo()
private ret
    dlg_succ=setdlg (19687, "check", " ╢α╧ε╤í╘±",;
         { {"SELECTION1", 0}, {"SELECTION2", 0},;
         {"SELECTION3", 1}}, 2, 5, 21, 1)
    dlg_succ=setdlg (19687, "text", " ╓┤╨╨╣ª─▄", 10, 10, 4)
    dlg_succ=setdlg (19687, "action", " ╓┤╨╨╣ª─▄","actionfunc() ", 4, 22, 16, 50)
    makedlg (19687, " ╓┤╨╨╣ª─▄╢╘╗░┐≥")
    removedlg (19687)
return nil

functio actionfunc()
    msgbox ("popup a message box", "", 1)
return nil

╖╡╗╪╓╡:│╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
▓╬╝√:@1304 [getdlg]( ), @1307 [makedlg](), @1311 [removedlg]()

.1751
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

sethelp( )
╙∩╖¿: sethelp( <cHelpFunc>)
╙├═╛: ╙├╙┌╘┌╡╚┤²╩Σ╚δ╞┌╝Σ░┤F1 ╡≈╙├░∩╓·║»╩²╥╘╠ß╩╛
╙╨╣╪╨┼╧ó
▓╬╩²:
    <cHelpFunc>   ░∩╓·║»╩²├√
        ░∩╓·║»╩²▒Ω╫╝╚τ╧┬
        helpfunc( <proname>, <proline>, <varname> )
        ╞Σ╓╨:
        <proname>    ╡≈╙├░∩╓·║»╩²╣²│╠├√
        <proline>    ╡≈╙├░∩╓·║»╩²╦∙╘┌╨╨
        <varname>    ▒Σ┴┐├√
        ╫ó╥Γú║╦∙┤½▓╬╩²╓╨╫╓─╕╙├┤≤╨┤
╖╡╗╪╓╡: ╬▐
└²╫╙ú║
#include "winbase.inc"
external help        //╓╕├≈▒╪╨δ┴¼╜╙WINBASE ╡──┌╓├░∩╓·─ú┐Θ

PROCEDURE MAIN
private name:="      ",age:=0

    windowstart()    //Winbase │⌡╩╝╗»
    sethelp("newhelp()")
    ú└ 9,10 say "press F1 to get help"
    ú└ 10,10 say "input name " get name
    ú└ 11,10 say "input age " get age
    read
    windowexit()    //Winbase ═╦│÷
RETURN

procedure newhelp(proname,proline,varname)

    if proname=="NEWHELP"
        return
    endif
    msgbox("current procedure ",proname,1)
    msgbox("current line",proline,1)
    do case
        case varname=="NAME"
            msgbox("you must input a string as your NAME","",1)
        case varname=="AGE"
            msgbox("you must input a number as your AGE","",1)
    endcase
return

.2479
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

setindex()
╙∩╖¿: setindex (<cIndexfiles>)
╙├═╛: ╔Φ╓├╨┬╡─╦≈╥²╗≥┤≥┐¬╥╗╕÷╦≈╥²╬─╝■
▓╬╩²:
    <cIndexfiles>        ╥╘", " ╖╓╕⌠╡─╦≈╥²╬─╝■┴╨▒φ
╖╡╗╪╓╡: ╬▐╖╡╗╪╓╡.
└²╫╙: use datafile new
    list
    setindex ("datantx1", "datantx2", "datantx3")
    list

.2365
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

setint24()
╙∩╖¿: setint24 (<lOnOff>)
╙├═╛: ╔Φ╓├╗≥╗╓╕┤╤╧╓╪┤φ╬≤┤ª└φ╓╨╢╧INT24
▓╬╩²:
<lOnOff>==.T. ╩▒╔Φ╓├╤╧╓╪┤φ╬≤┤ª└φ╓╨╢╧INT24ú¼╩╣╡├│÷╧╓─│╨⌐╤╧╓╪╩▒
ú¼╚τ┤┼┼╠╬┤╫╝▒╕║├╡╚ú¼▓╗╓┴╙┌╡╝╓┬╧╡═│═╦│÷ú¼▓ó┐╔╙├
getint24 ▓╢╗±┤φ╬≤íú
    <lOnOff>==.F. ╩▒╗╓╕┤╤╧╓╪┤φ╬≤┤ª└φ╓╨╢╧INT24
╖╡╗╪╓╡: │╔╣ª╖╡╗╪.T., ╩º░▄╖╡╗╪.F.
▓╬╝√:@2357 [getint24]()

.1534
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@15[╩≤▒Ω╝ⁿ┼╠║»╩²╦≈╥²]

setkey()
╙∩╖¿: setkey (<nInkeyVal>, <bBlock>)
╙├═╛:     ╡▒╦∙╔Φ╓├╡─╝ⁿ▒╗╟├╗≈╩▒, SETKEY() ║»╩²╓╕╢¿╜½╥¬╓┤╨╨╡─╥╗
╕÷┤·┬δ┐Θíú
▓╬╩²:
<nInkeyVal>     ┤Ñ╖óSET KEY ╡─╝ⁿ╓╡, ╦ⁿ╩╟INKEY() ║»╩²╡─╖╡╗╪╓╡íú
<bBlock>     ╡▒╝ⁿ▒╗░┤╧┬╩▒╥¬╓┤╨╨╡─┤·┬δ┐Θ, ╬¬┴╦╚í╧√SETKEY() " ╚╚╝ⁿ", ╜½<block> ▓╬
╩²╓╕╢¿╬¬NIL ╝┤┐╔íú
╖╡╗╪╓╡: ╖╡╗╪╕│╕°SET KEY ╡─╟░╥╗╕÷╢»╫≈
╦╡├≈:     SETKEY() ║»╩²╖╡╗╪╡▒╟░╫┤╠¼íú
    ╡▒╙├╗º░┤╧┬╚╚╝ⁿ╩▒, ╙δ╚╚╝ⁿ╣╪┴¬╡─┤·┬δ┐Θ╜½▒╗┤Ñ╖óíú
    F1 ▒╗WINBASE ╫╘╢»╔Φ╓├╬¬░∩╓·╝ⁿíú
└²╫╙: // ╧┬╢╬│╠╨≥╘┌╘╦╨╨╩▒(╩Σ╚δ╚╒╞┌╓«╟░) ░┤╧┬F10, ╜½╧╘╩╛╡▒
╟░╩▒╝Σ
    tim: =space (10)
    blk: = {||my_proc (time())} // ╝ñ╗ε╩▒╓┤╨╨╡─┤·┬δ┐Θ
    setkey (K_F10, blk) //F10 ╬¬╚╚╝ⁿ

    ú└ 10, 10 say " ╚╒╞┌" get answer
    read
    setkey (K-F10, nil) // ╚í╧√F10 ╚╚╝ⁿ

    procedure my_proc (tim)
    ú└ 24, 10 say " ╧╓╘┌╩▒╝Σ: "+time
    inkey (0)
    ú└ 24, 10 clear
    return

▓╬╝√: @3405[set key], @2501 [eval]()

.1752
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

setmode()
╙∩╖¿: setmode (<nRows>, <nCols>)
╙├═╛:     ╖├╬╩╖╟╚▒╩í╡─╬─▒╛╧╘╩╛─ú╩╜íú╒Γ╨⌐─ú╩╜─▄╣╗▒╗
╧╡═│╓╨╡─╧╘╩╛┐¿╦∙╓º│╓íú╚▒╩í╡─╬─▒╛╧╘╩╛─ú╩╜╬¬25*80íú
▓╬╩²:
    <nRows>     ╞┴─╗╧╘╩╛╡─╨╨╩²
    <nCols>     ╞┴─╗╧╘╩╛╡─┴╨╩²
╖╡╗╪╓╡: ┬▀╝¡└α╨═
╦╡├≈:     ╚τ╣√▓┘╫≈│╔╣ª, MAXROW() ║═MAXCOL() ▒╗╕│╙Φ╨┬╡─╫ε┤≤╨╨┴╨╓╡▓ó╟╥setmode() ║»
╩²╖╡╗╪.T.íú╚τ╣√╧╘╩╛┐¿▓╗╓º│╓▓╬╩²╦∙╓╕╢¿╡─└⌐╒╣╬─
▒╛─ú╩╜, ╘≥╖╡╗╪.F.íú
└²╫╙: temp: =setmode (50, 132)
    if temp=.T.
        ? " ╖├╬╩│╔╣ª"
        ? maxrow(), maxcol() // ╜ß╣√╬¬50, 132
    else
        ? " ╖├╬╩╩º░▄"
        ? maxrow(), maxcol() // ╜ß╣√╬¬25, 80
    endif

▓╬╝√: @1729 [maxrow](), @1728 [maxcol]()

.1753
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

setpos()
╙∩╖¿: setpos (<nRows>, <nCols>)
╙├═╛: ╜½╣Γ▒Ω╥╞╡╜╓╕╢¿╡─╞┴─╗╬╗╓├╔╧íú
▓╬╩²:
<nRows>     ╣Γ▒Ω╦∙╥╞╡╜╬╗╓├╡─╨╨╫°▒Ω, ╞Σ╓╡▒╪╨δ╘┌0-MAXROW() ╓«╝Σíú
<nCols>     ╣Γ▒Ω╦∙╥╞╡╜╬╗╓├╡─┴╨╫°▒Ω, ╞Σ╓╡▒╪╨δ╘┌0-MAXCOL() ╓«╝Σ
╖╡╗╪╓╡: NIL
╦╡├≈: ╡▒╣Γ▒Ω╥╞╡╜╞┴─╗╔╧┴φ╥╗╬╗╓├╩▒, ROW() ║═COL() ▒╗╫╘╢»╕ⁿ╨┬íú
└²╫╙: setpos (12, 20)
    ? row(), col() // ╜ß╣√╬¬12, 20

▓╬╝√: @1741 [row](), @1706 [col]()

.1754
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

setprc()
╙∩╖¿: setprc (<nRows>, <nCols>)
╙├═╛: ╜½PROW() ║═PCOL() ╔Φ╓├╡╜╓╕╢¿╡─╓╡íú
▓╬╩²:
    <nRows>     ╓╕╢¿╨╨╓╡╡─▒φ┤∩╩╜
    <nCols>     ╓╕╢¿┴╨╓╡╡─▒φ┤∩╩╜
╖╡╗╪╓╡: NIL
╦╡├≈:     ╥≥╬¬WINBASE ▓╗─▄╟°╖╓┤≥╙í╩²╛▌┴≈╓╨╡─┤≥╙í╫╓╖√║═╖╟
┤≥╙í╫╓╖√, ╦∙╥╘SETPRC() ┐╔╙├╘┌╧≥┤≥╙í╗·╖ó╦═╔Φ╓├┤«╓«║≤╓╪╨┬
╔Φ╓├┤≥╙í═╖╡─╨╨┴╨╬╗╓├íú
└²╫╙:
set print on
cu_row: =prow()
cu_col: =pcol()
? chr (27) +"LOE" // ╧≥┤≥╙í╗·╖ó╦═╔Φ╓├┤«
setprc (cu_row, cu_col) // ╓╪╨┬╔Φ╓├┤≥╙í═╖╡─╨╨┴╨╬╗╓├

▓╬╝√: @3022[set device], @1738 [prow](), @1736 [pcol]()

.1755
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

settrace()
╙∩╖¿: settrace (<lCall>)
╙├═╛: ╘┌┤φ╬≤┤ª└φ╢╘╗░┐≥╓╨╔Φ╓├╡≈╙├╣∞╝ú
▓╬╩²:
    <lCall>        ╬¬. T. ╩▒╔Φ╓├╡≈╙├╣∞╝úú¼. F. ╩▒╚í╧√
╖╡╗╪╓╡: ╧╚╟░╔Φ╓├╡≈╙├╣∞╝ú╡─╫┤╠¼
└²╫╙:    settrace (. T.)
    subcall()
    ...
    procedure subcall
        local i: ="11111111acb"

        ? i*2    //│÷┤φ╩▒┐╔┤╙┤φ╬≤╢╘╗░┐≥╓╨▓Θ┐┤╡≈╙├╣∞╝ú
    return

.1006
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

shiftwindow()
╙∩╖¿: shiftwindow (<nHandle>)
╙├═╛: ▒ú┤µ╡▒╟░┤░┐┌, ╫¬╡╜<nHandle> ╓╕╢¿╡─┤░┐┌
▓╬╩²:
<nHandle>    ╓╕╢¿╡─┤░┐┌╛Σ▒·, ╙╔makewindow(), window() ╡╚╗±╡├
╖╡╗╪╓╡: NIL
└²╫╙:
/* ┤╦└²╧╚╘┌╞┴─╗╔╧╗¡┴╦╥╗╕÷┤≤┤░┐┌, ╚╗║≤╘┘╗¡╥╗╕÷░ⁿ
║¼╘┌┤≤┤░┐┌─┌╡─╨í┤░┐┌, ▒ú┤µ╨í┤░┐┌, ╫¬╡╜┤≤┤░┐┌, ╚╗║≤▓╗
╘┘▒ú┤µ┤≤┤░┐┌, ╫¬╡╜╨í┤░┐┌íú*/
 #include "winbase.inc"
procedure example5()
local handle1, handle2 // ╢¿╥σ┤░┐┌╛Σ▒·╬¬╛▓╠¼▒Σ┴┐
    windowstart() // │⌡╩╝╗»Winbase
    handle1: =makewindow (10, 10, 20, 70, "WINBASE ═╝╬─┤░┐┌", 4, 3, 1)
    inkey (5) //handle1 ╬¬┤≤┤░┐┌╛Σ▒·, ╤╙╩▒5 ├δ
    handle2: =makewindow (12, 20, 18, 60, "WINBASE ═╝╬─┤░┐┌", 7, 10, 1)
    inkey (5) //handle2 ╬¬╨í┤░┐┌╛Σ▒·, ╤╙╩▒5 ├δ
    shiftwindow (handle1) // ▒ú┤µ╨í┤░┐┌(╡▒╟░┤░┐┌), ╫¬╡╜┤≤┤░┐┌
    inkey (1) // ╤╙╩▒1 ├δ
    gotowindow (handle2)
        // ▓╗╘┘▒ú┤µ┤≤┤░┐┌(╡▒╟░┤░┐┌), ╫¬╡╜╨í┤░┐┌
    removewindow() // ╣╪▒╒╕├┤░┐┌
    windowexit() // ═╦│÷Winbase
return

▓╬╝√: @1001 [gotowindow](), @1003 [makewindow](), @1005[removewindow]()

.2022
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

sign()
╙∩╖¿: sign (<nNum>)
╙├═╛: ╟≤<nNum> ╡─╖√║┼
▓╬╩²:
    <nNum>    ╩²╓╡▒Σ┴┐
╖╡╗╪╓╡: nNum ╡─╖√║┼╓╡
    nNum>0 ╩▒╖╡╗╪1
    nNum=0 ╩▒╖╡╗╪0
    nNum<0 ╩▒╖╡╗╪-1
└²╫╙:? sign (-8)

.2107
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@21[╫¬╗╗║»╩²╦≈╥²]

soundex()
╙∩╖¿: soundex (<cExp>)
╙├═╛: ╬¬┴╦╦≈╥²║═╡≈╚í╝╟┬╝╜½╥╗╕÷╫╓╖√┤«╫¬╗╗│╔╥╗
╕÷╙∩╥⌠┤«íú
▓╬╩²:
    <cExp>    ╥¬╫¬╗╗╡─╫╓╖√┤«
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈:     ╕├║»╩²╜½╚í╡├╡─╫╓╖√┤«╫¬╗╗╬¬╥╗╕÷╙╔╥╗╕÷╫╓
─╕┐¬═╖, ╚²╕÷╩²╫╓╜ß╬▓╡─╫╓╖√┤«íú╛▀╙╨╧α═¼┐¬═╖╫╓─╕╟╥
╖ó╥⌠╧α╦╞╡─╡Ñ┤╩╛▀╙╨╧α═¼╡─soundex() ╓╡íú
└²╫╙: // ╧┬└²╚τ╝ⁿ╚δwitsun, ┐╔─▄╖╡╗╪whitson
    use my
    index on soundex (name) to sndexmem
    accept "last name: " to tryit
    seek soundex (tryit)
    ? name

▓╬╝√: @3116[find], @2431 [dbsetindex](), @3122[locate], @2427 [dbseek](), @3142[set softseek]

.2244
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

space()
╙∩╖¿: space (<nExp>)
╙├═╛: ╙├╓╕╢¿╩²─┐╡─┐╒╕±╠ε│Σ╥╗╕÷┤«íú
▓╬╩²: <nExp> ┐╒╕±╡─╩²─┐
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:? "12"+space (3) +"67" // ╧╘╩╛12     67

▓╬╝√: @2241 [replicate]()

.1759
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

stackisempty()
╙∩╖¿: stackisempty (<aStack>)
╙├═╛: ┼╨╢╧╒╗╩╟╖±╬¬┐╒
▓╬╩²:
    <aStack>     ╒╗╩²╫Θ
╖╡╗╪╓╡: ╬¬┐╒╖╡╗╪.T., ╖±╘≥╖╡╗╪.T.
└²╫╙:
arr: =stacknew()
stackpush (arr, 4)
? stackisempty()

.1756
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

stacknew()
╙∩╖¿: stacknew()
╙├═╛: ╗±╡├╥╗╕÷╨┬╡─╒╗
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╒╗╩²╫Θ
└²╫╙: arr: =stacknew()

.1757
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

stackpop()
╙∩╖¿: stackpop (<aStack>)
╙├═╛: ┤╙╒╗╓╨╡»│÷╩²╛▌
▓╬╩²:
    <aStack>    ╒╗╩²╫Θ
╖╡╗╪╓╡: ┤╙╒╗╓╨╡»│÷╡─╩²╛▌
└²╫╙:
arr: =stacknew()
stackpush (arr, 4)
? stackpop()

.1758
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

stackpush()
╙∩╖¿: stackpush (<aStack>, <xVal>)
╙├═╛: ╧≥╒╗╓╨╤╣╚δ╩²╛▌
▓╬╩²:
    <aStack>     ╒╗╩²╫Θ
    <xVal>     ╩²╛▌
╖╡╗╪╓╡: ╬▐
└²╫╙:
arr: =stacknew()
stackpush (arr, 4)

.1760
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

stacktop()
╙∩╖¿: stacktop (<aStack>)
╙├═╛: ╗±╡├(╡½▓╗╡»│÷) ╒╗╢Ñ╘¬╦╪
▓╬╩²:
    <aStack>    ╒╗╩²╫Θ
╖╡╗╪╓╡: ╒╗╢Ñ╘¬╦╪
└²╫╙:
arr: =stacknew()
stackpush (arr, 4)
? stacktop()

.2245
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

str()
╙∩╖¿: str (<nExp>, <nLength>, <nDec>)
╙├═╛: ╜½╥╗╕÷╩²╫╓▒φ┤∩╩╜╫¬╗╗│╔╓╕╢¿│ñ╢╚╡─┤«íú
▓╬╩²:
    <nExp>     ╥¬╫¬╗╗╡─╩²╫╓▒φ┤∩╩╜
    <nLength>     ╫¬╗╗║≤╡─┤«│ñ╢╚
    <nDec>     ╫¬╗╗║≤┤«╓╨╨í╩²╛½╢╚
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙: temp: =str (3. 1415, 3, 2) // ╖╡╗╪3. 14
    ? type (temp) // ╖╡╗╪C

▓╬╝√: @2249 [substr](), @2108 [val]()

.2246
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

strexpand()
╙∩╖¿: strexpand (<cString>)
╙├═╛: ╜½╫╓╖√<cString> ╡─├┐╥╗╕÷╫╓─╕(╗≥║║╫╓) ║≤▓σ╚δ╥╗╕÷┐╒╕±
▓╬╩²:
    <cString>    ╥¬└⌐╒╣╡─╫╓╖√┤«
╖╡╗╪╓╡: └⌐╒╣║≤╡─╫╓╖√┤«
└²╫╙:? strexpand ("╫ó╥Γ╩┬╧ε")

.2247
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

strtran()
╙∩╖¿: strtran (<cString>, <cSearch>, [<cReplace>], [<nStart>], [<nCount>])
╙├═╛: ╘┌╥╗╫╓╖√┤«╔╧╓┤╨╨╦╤╦≈╠µ╗╗íú
▓╬╩²:
    <cString>    ▒╗╦╤╦≈╡─╘┤┤«
    <cSearch>    ╥¬╦╤╦≈╡─╫╙┤«
    <cReplace>    ╠µ╗╗<cSearch> ╡─┤«, ╚▒╩í╓╡╬¬┐╒┤«íú
<nStart>     ╡┌╥╗┤╬╜°╨╨╠µ╗╗╡─╞Ñ┼Σ╬╗╓├, ╚▒╩í▒φ╩╛┤╙╡┌╥╗╕÷╞Ñ
┼Σ┤ª╜°╨╨╠µ╗╗íú
<nCount>     ╜°╨╨╠µ╗╗╡─┤╬╩², ╚▒╩í▒φ╩╛╢╘╘┤┤«╓╨╦∙╙╨╞Ñ┼Σ┤ª╜°
╨╨╠µ╗╗íú
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙: temp: =strtran ("I am liping", "li", "ling")
    ? temp // ╖╡╗╪I am lingping

▓╬╝√: @2203 [at](), @2240 [rat](), stuff()

.2248
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

stuff()
╙∩╖¿: stuff (<cString>, <nStart>, <nDel>, <cInsert>)
╙├═╛: ═¿╣²╔╛│²íó▓σ╚δ╥╘╝░╠µ╗╗└┤╨▐╕─┤«íú
▓╬╩²:
    <cString>     ╥¬╨▐╕─╡─┤«
    <nStart>     ┤«╓╨╞≡╩╝╨▐╕─╬╗╓├
    <nDel>     ╥¬╔╛│²╡─╫╓╖√╕÷╩²
    <cInsert>     ╠µ╗╗╡─╫╓╖√┤«
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:? stuff ("go home? ", 4, 4, "to school") // ╩Σ│÷go t0 school?

▓╬╝√: @2247 [strtran](), @2249 [substr]()

.2249
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

substr()
╙∩╖¿: substr (<cString>, <nStart>, <nCount>)
╙├═╛: ┤╙╫╓╖√┤«(╘┤┤«) ╓╨│Θ╚í│÷╫╙┤«íú
▓╬╩²:
    <cString>     ╘┤┤«
<nStart>     ╫╙┤«╘┌╘┤┤«╓╨╡─╞≡╩╝╬╗╓├íú╚τ▒φ┤∩╩╜╡─╓╡╬¬╒², ╘≥┤╙
╞½└δ╘┤┤«═╖<nStart> ╕÷╫╓╖√┐¬╩╝╠ß╚í╫╙┤«íú╚τ▒φ┤∩╩╜╡─╓╡
╬¬╕║, ╘≥┤╙╞½└δ╘┤┤«╬▓<nStart> ╕÷╫╓╖√┐¬╩╝╠ß╚í╫╙┤«íú
    <nCount>     ╠ß╚í╫╙┤«│ñ╢╚íú
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:? substr ("go home? ", 1, 2) // ╩Σ│÷go

▓╬╝√: @2203 [at](), @2240 [rat]()

.1218
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

sum_all
╙∩╖¿:    sum_all (<cExp> ,<cCond> )
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╢╘╓╕╢¿╡─▒φ┤∩╩╜╟≤║═
▓╬╩²:
    <cExp>    ▒φ┤∩╩╜ú¼┐╔╥╘╩╟╩²╫╓▒φ┤∩╩╜
    <cCond>    ╨Φ╥¬╢╘─╟╨⌐╝╟┬╝╜°╨╨╟≤║═╡─╠⌡╝■
╖╡╗╪╓╡:║═ú¼╩²╓╡
└²╫╙:sum_all( "SALARY+JIANGJIN", "SHENGSHI =='└Ñ├≈' ")

.1219
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

sum_cond
╙∩╖¿:    sum_cond ( <ncField>, <cCond> )
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╢╘╥╗╓╕╢¿╡─╫╓╢╬╟≤║═
▓╬╩²:
    <ncField>    ╫╓╢╬╨≥║┼╗≥╫╓╢╬├√
    <cCond>    ╓╕├≈▓╬╙δ╟≤║═╡─╫╓╢╬╡─╠⌡╝■
╖╡╗╪╓╡:║═ú¼╩²╓╡

.1220
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

sumc
╙∩╖¿:sumc( <nScol>, <nEcol> ,<cCond> )
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╡─▒¿▒φ┴╨╟≤║═ú¼╚⌠▓╗╓╕╢¿┐¬╩╝┴╨
║═╜ß╩°┴╨ú¼╘≥╩╟╢╘╡▒╟░╨╨╡─╦∙╙╨┴╨╜°╨╨╟≤║═
▓╬╩²:
    <nScol>    ┐¬╩╝┴╨
    <nEcol>    ╜ß╩°┴╨
<cCond>    ╓╕├≈──╨⌐╨╨▓╬╙δ╟≤║═╡─╠⌡╝■ú¼<cCond> ╓╨┐╔╥╘╙├$ ▒φ╩╛╡▒╟░
╓╡
╖╡╗╪╓╡:║═ú¼╩²╓╡
└²╫╙:SUMC ( 2, 5, "$>100" )

.1221
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

sumr
╙∩╖¿:    sumr ( <nSrow>, <nErow> ,<cCond> )
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╡─╨╨╟≤║═ú¼╚⌠▓╗╓╕╢¿┐¬╩╝╨╨║═╜ß╩°
╨╨ú¼╘≥╩╟╢╘╡▒╟░┴╨╡─╦∙╙╨╨╨╜°╨╨╟≤║═
▓╬╩²:
    <nSrow>    ┐¬╩╝╨╨
    <nErow>    ╜ß╩°╨╨
    <cCond>    ╓╕├≈▓╬╙δ╟≤║═╡─╨╨╡─╠⌡╝■
╖╡╗╪╓╡:║═ú¼╩²╓╡
└²╫╙:SUMR()

.1643
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

swapcolor()
╙∩╖¿: swapcolor ( [<nRow>], [<nCol>], [<expData>], [<expPicture>]
╙├═╛: ╘┌╤╒╔½┤«╓╨╡▀╡╣▒Ω╫╝║═╘÷╟┐╡─╤╒╔½
▓╬╩²:    <nRow>, <nCol>    ╧╘╩╛╩²╛▌╡─╨╨║═┴╨╫°∙▒Ω
    <expData>         ╥¬╧╘╩╛╡─╚╬║╬└α╨═╡─╩²╛▌
    <expPicture>         ╕±╩╜╗»╩²╛▌╡─▒φ┤∩╩╜
╖╡╗╪╓╡: ╫╓╖√┤«
└²╫╙:
    str: ="winbase"
    cstr: ="W+/B, R/W, N, N, R/W"
    setcolor (cstr)
    ú└ 10, 10 SAY "OK" GET STR
    READ
    setcolor (swapcolor (10, 0, "OK", "XX"))
    ú└ 12, 10 SAY "OK" GET STR
    READ

.1761
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

swprun()
╙∩╖¿: swprun (<cCmd>, <nMem>, <cInitpath>, <cSwppath>, <xNo_cls>, <xNo_save>)
╙├═╛: ╘╦╨╨═Γ▓┐┐╔╓┤╨╨╬─╝■╗≥DOS ├ⁿ┴ε
▓╬╩²:
<cCmd>     ┐╔╓┤╨╨╬─╝■├√╝░╞Σ├ⁿ┴ε╨╨▓╬╩²╫╓╖√┤«
<nMem>     ╘╦╨╨╬─╝■╨Φ╥¬╡──┌┤µ┴┐, ╚⌠╝╙0 ▒φ╩╛╛í┐╔─▄╢α╡─┴⌠│÷
─┌┤µ
<cInitpath>     ═Γ▓┐╬─╝■╘╦╨╨╩▒╨Φ╥¬╔Φ╢¿╡─┬╖╛╢, ┐╔╬¬┐╒íú
<cSwppath>     ╜╗╗╗╬─╝■┤µ╖┼╡─┬╖╛╢
<xNo_cls>     ╚⌠╕├▓╬╩²╬¬┐╒, ╘╦╨╨╩▒╟σ╞┴(│⌡╩╝╗»╬¬╬─▒╛╖╜╩╜), ╘╦╨╨║≤
╗╓╕┤╬¬═╝╨╬╖╜╩╜
<xNo_save>     ╚⌠╕├▓╬╩²╬¬┐╒, ╘╦╨╨╩▒▒ú┤µ╞┴─╗, ╘╦╨╨║≤╫╘╢»╗╓╕┤╞┴─╗
╖╡╗╪╓╡: ╬▐
└²╫╙: swprun ("dir/w", 0)

.2023
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@20[╩²╤º║»╩²╦≈╥²]

sqrt()
╙∩╖¿: sqrt (<nExp>)
╙├═╛: ╝╞╦π╩²╤º▒φ┤∩╩╜╡─╞╜╖╜╕∙íú
▓╬╩²:
    <nExp>    ▒╗╟≤╓╡╡─╩²╤º▒φ┤∩╩╜
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:
? sqrt (4) // ╖╡╗╪2. 00
? sqrt (-9) // ╖╡╗╪0. 00
? sqrt (3. 2587) // ╖╡╗╪1. 81

▓╬╝√: @3201[set decimals], @3203[set fixed], @2011 [exp](), @2015 [log]()

.1222
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

tack
╙∩╖¿:tack ( <cAlias> , <ncField> ,<nLen>)
╙├═╛:╘┌▒¿▒φ╔Φ╝╞╓╨╚í╓╕╢¿╩²╛▌┐Γ╡▒╟░╝╟┬╝╓╨─│╫╓
╢╬╡──┌╚▌
▓╬╩²:
    <cAlias>    ╩²╛▌┐Γ╙╔▒≡├√
    <ncField>    ╫╓╢╬├√╗≥╫╓╢╬╨≥║┼
    <nLen>    ╖╡╗╪╡─╫╓╖√┤«╡─│ñ╢╚
╖╡╗╪╓╡:╫╓╖√┤«╨╬╩╜╡─╫╓╢╬╡──┌╚▌
└²╫╙:TACK( "ALIAS1", 8, 6)
▓╬╝√:@1211 [itack](),@1205 [ctack]()

.2250
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

takeout()
╙∩╖¿: takeout (<cStr>, <nDelim>, <n>)
╙├═╛: ╚í│÷╙╔╧▐╢¿╖√╖╓╕⌠╡─╫╓╖√┤«╓╨╡─╡┌n ╕÷▓┐╖╓
▓╬╩²:
    <cStr>         ╫╓╖√┤«
    <nDelim>     ╧▐╢¿╖√
    <n>         ╥¬╚í╡─▓┐╖╓
╖╡╗╪╓╡: ╚í│÷╡─╫╓╖√┤«
└²╫╙:? ("winbase, WinBase, WINBASE", ", ", 2)    //╖╡╗╪WinBase
▓╬╝√:@2216 [listtoa]()

.2366
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

tempfile()
╙∩╖¿: tempfile ( [<cExtension>], [<cPathName>])
╙├═╛: ╘┌╓╕╢¿╡─┤┼┼╠╔╧╜¿┴ó╥╗╕÷╬─╝■├√╬¿╥╗╡─┴┘╩▒
╬─╝■
▓╬╩²:
    [cExtension]        ┴┘╩▒╬─╝■└⌐╒╣├√
    [<cPathName>]     ┴┘╩▒╬─╝■┬╖╛╢├√
╖╡╗╪╓╡: │╔╣ª╖╡╗╪┴┘╩▒╬─╝■├√, ╖±╘≥╖╡╗╪┐╒┤«
└²╫╙: name: =tempfie ("tmp", "c: \")
    ! del &name

.1929
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

time()
╙∩╖¿: time()
╙├═╛: ╚í╧╡═│╩▒╝Σíú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╫╓╖√└α╨═, ╩▒╝Σ╫╓╖√┤«ú¼╕±╩╜╬¬hh: mm: ss
└²╫╙:? time() // ╖╡╗╪└α╦╞11: 20: 48

▓╬╝√: @1908 [date](), @1926 [seconds]()

.1930
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

timediff()
╙∩╖¿: timediff (<cStime>, <cEtime>)
╙├═╛: ╟≤┴╜╕÷╩▒╝Σ╡─▓ε
▓╬╩²:
    <cStime>     ┐¬╩╝╡─╩▒╝Σ╓╡
    <cEtime>     ╜ß╩°╡─╩▒╝Σ╓╡
╖╡╗╪╓╡: ╩▒╝Σ╫╓╖√┤«
└²╫╙:? timediff ("9: 00: 00", "11: 00: 00")    //╖╡╗╪ "02:00:00"

.1931
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

timetosec()
╙∩╖¿: timetosec (<cTime>)
╙├═╛: ╜½╩▒╝Σ╫╓╖√┤«<cTime> ╫¬╗╗╬¬├δ╩²
▓╬╩²:
    <cTime>     ╩▒╝Σ╫╓╖√┤«
╖╡╗╪╓╡: ├δ╩²
└²╫╙:? timetosec (time())

.1762
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

tone()
╙∩╖¿: tone (<nFreq>, <nDuration>)
╙├═╛: ╕─▒Σ╧∞┴σ╡─╞╡┬╩║═│╓╨°╩▒╝Σíú
▓╬╩²:
    <nFreq>         ╔∙╥⌠╡─╞╡┬╩, ╓╡╚τ╧┬▒φ
    <nDuration>         ╔∙╥⌠╡─│╓╨°╩▒╝Σ
╖╡╗╪╓╡: NIL
╥⌠╡≈        ╞╡┬╩        ╥⌠╡≈        ╞╡┬╩
==========================================================C         130. 80     MIDDLE C     261. 70
C#         138. 60     C#         277. 20
D         146. 80     D         293. 70
D#         155. 60     D#         311. 10
E         164. 80     E         329. 60
F         174. 60     F         349. 20
F#         185. 00     F#         370. 70
G         196. 00     G         392. 00
G#         207. 70     G#         415. 30
A         220. 00     A         440. 00
A#         233. 10     A#         466. 20
B         246. 90     B         493. 90
                C         523. 30
└²╫╙:// ╧┬╢╬│╠╨≥╜½╖ó│÷╥╗╢╬╘├╢·╡─╥⌠└╓
     tone (294, 5)
    tone (294, 3)
    tone (247, 7)
    tone (330, 3)
    tone (247, 12)

▓╬╝√: @3704[set bell]

.2251
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

trim()
╙∩╖¿: trim (<cExp>)
╙├═╛: ┤╙╫╓╖√┤«╓╨╔╛│²╦∙╙╨╡─╬▓▓┐┐╒╕±íú
▓╬╩²:
    <cExp>    ╥¬╚Ñ╡⌠╬▓▓┐┐╒╕±╡─╫╓╖√┤«
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:? len ("go home?    ") // ╖╡╗╪10
? len (rtrim ("go home?     ")) // ╖╡╗╪8

▓╬╝√: @2201 [alltrim](), @2243 [rtrim]()

.2252
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

type()
╙∩╖¿: type (<cExp>)
╙├═╛: ╚╖╢¿╦∙╓╕╢¿╫╓╖√▒φ┤∩╩╜─┌╚▌╡─╩²╛▌└α╨═íú
▓╬╩²:
    <exp>        ╥¬╚╖╢¿─┌╚▌└α╨═╡─╫╓╖√▒φ┤∩╩╜
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈:     ▒φ┤∩╩╜<cExp> ▒╪╨δ╩╟╫╓╖√▒φ┤∩╩╜íú▓╗┐╔╥╘╢╘LOCAL └α╨═║═STATIC └α╨═
▒Σ┴┐╟≤╓╡íútype() ║»╩²│²╖╡╗╪type() ║»╩²╦∙╖╡╗╪╡─╡Ñ╕÷╫╓╖√═Γ, ╗╣╙╨
┴╜╕÷╖╡╗╪╓╡íú
    U     ╬▐╢¿╥σ╗≥NIL ╗≥LOCAL, STATIC
    UE     ╙∩╖¿┤φ
    UI     ╖╟╚╖╢¿┤φ╬≤
└²╫╙:
temp: = {1, 2, 4}
? type ( "temp" ) // ╩Σ│÷A

▓╬╝√: @2254 [valtype]() ║»╩²

.1763
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

updated()
╙∩╖¿: updated()
╙├═╛: ╚╖╢¿╘┌╢┴▓┘╫≈╞┌╝Σ─│╕÷╙≥╗≥─│╕÷▒Σ┴┐╩╟╖±▒╗
╨▐╕─íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ┬▀╝¡└α╨═
╦╡├≈:     ╘┌READ ├┐┤╬╞⌠╢»╩▒, updated() ║»╩²╢╝▒╗╔Φ╓├╬¬.F.íú╚τ╣√▒Σ┴┐╗≥╫╓╢╬
╓╨╡─╚╬║╬╥╗╕÷▒╗╨▐╕─, ╘≥updated() ║»╩²▒╗╓╪╨┬╔Φ╓├╬¬.T.íúupdated() ║»╩²╜÷─▄
╛⌡▓∞╡╜═¿╣²╝ⁿ┼╠╦∙╫≈╡─╨▐╕─, ═¿╣²SET KEY ├ⁿ┴ε╗≥VALID ├ⁿ┴ε═Ω│╔
╡─╕│╓╡▓┘╫≈▓╗╗ß╥²╞≡updated() ║»╩²╖╡╗╪╓╡╡─▒Σ╗»íú
└²╫╙:// ╚τname ▒╗╨▐╕─, ╘≥mytime, mydate ╥▓╕ⁿ╨┬
     ú└ 10, 10 say" ╩Σ╚δ╨╒├√: " get name
    read
    if updated() //name ▒╗╨▐╕─
    replace mytime with time() // ╕ⁿ╨┬mytime
    replace mydate with date() // ╕ⁿ╨┬mydate
    endif

▓╬╝√: ú└.. say.. get

.2253
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

upper()
╙∩╖¿: upper (<cExp>)
╙├═╛: ░╤╫╓╖√┤«╓╨╡─╫╓─╕╫¬╗╗╬¬┤≤╨┤╫╓─╕íú
▓╬╩²:
    <cExp>    ╥¬╫¬╗╗╡─╫╓╖√┤«
╖╡╗╪╓╡: ╫╓╖√└α╨═
└²╫╙:? upper ("temp") // ╩Σ│÷TEMP

.1223
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

usec
╙∩╖¿:    usec()
╙├═╛:     ╘┌▒¿▒φ╔Φ╝╞╓╨╚í╡▒╟░╧ε╡─╓╡íú╕├║»╩²╓≈╥¬╙├╙┌└█
╝╙ú¿ ╓╕▒╛╥│└█╝╞╓«└αú⌐íú ╘┌▒¿▒φ├┐╩Σ│÷╥╗╥│ú¼┐╔╜½╡▒
╟░╧ε╡─╓╡╙δ║╧╝╞╓«╓╡╜°╨╨╟≤║═ú¼╜ß╣√╚╘╚╗╖┼╘┌╡▒
╟░╧εú¼╧┬╥╗╥│╟≤╓╡╚τ╖¿┼┌╓╞ú¼─╟├┤╡▒╟░╧ε╡─╓╡╜½│╔
╬¬├┐╥╗┴╨╡─└█╝╞╜ß╣√íú
▓╬╩²:╬▐
╖╡╗╪╓╡:╩²╓╡
└²╫╙:USEC( )+SUMC( )    //╟≤└█╝╞

.2480
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@24[╩²╛▌┐Γ▓┘╫≈║»╩²╦≈╥²]

used()
╙∩╖¿: used()
╙├═╛: ╚╖╢¿╘┌╡▒╟░╣ñ╫≈╟°╓╨╩╟╖±╙╨╩²╛▌┐Γ▒╗┤≥┐¬íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ┬▀╝¡└α╨═
╦╡├≈: ╚τ╣√╡▒╟░╣ñ╫≈╟°╓╨╙╨╩²╛▌┐Γ▒╗┤≥┐¬╖╡╗╪.T., ╖±╘≥╖╡
╗╪.F.íú
└²╫╙:
select (2)
use my
? used() // ╖╡╗╪.T.

▓╬╝√: @3150[use], @2467 [neterr]()

.1224
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@12[▒¿▒φ╔Φ╝╞║»╩²╦≈╥²]

usenum
╙∩╖¿:    usenum()
╙├═╛:    ╘┌▒¿▒φ╔Φ╝╞╓╨╩╣╙├╨≥║┼ú¼╕├║»╩²├┐╡≈╙├╥╗┤╬
ú¼╜½▓·╔·╥╗┴¼╨°╡─╨≥║┼ú¼╡┌╥╗┤╬╩╟1ú¼╥╘║≤╓≡┤╬╝╙
1íú╦ⁿ┐╔╥╘╙├╘┌╤¡╗╖▒φ╓╨ú¼╙├╥╘╩Σ│÷┤≥╙í╡─╨≥║┼íú
▓╬╩²:╬▐
╖╡╗╪╓╡:╩²╓╡

.2108
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@21[╫¬╗╗║»╩²╦≈╥²]

val()
╙∩╖¿: val (<nExp>)
╙├═╛: ╜½╢╘╫╓╖√┤«▒φ┤∩╩╜╟≤╓╡íú
▓╬╩²:
    <nExp>    ╥¬╫¬╗╗╡─╫╓╖√┤«
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙: temp: =time()
    for i=1 to 3
    res [i]: =val (substr (temp, 3* (i-1) +1, 2)) //res ╡─╜ß╣√└α╦╞{04, 11, 20}
    next i

▓╬╝√: @3201[set decimals], @2245 [str]()

.2254
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@22[╫╓╖√┤«║»╩²╦≈╥²]

valtype()
╙∩╖¿: valtype (<exp>)
╙├═╛: ╢╘╥╗╕÷▒φ┤∩╩╜╡─╖╡╗╪╓╡╚╖╢¿╩²╛▌└α╨═íú
▓╬╩²:
    <exp>        ╥¬╚╖╢¿└α╨═╡─▒φ┤∩╩╜
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈:     ▒φ┤∩╩╜<exp> ┐╔╥╘╩╟╚╬║╬└α╨═íú┐╔╥╘░ⁿ└¿╢╘LOCAL └α╨═║═STATIC └α
╨═▒Σ┴┐╡─╥²╙├íú
    valtype() ║»╩²╖╡╗╪╡Ñ╕÷╫╓╖√╥╘▒φ╩╛▒φ┤∩╩╜╡─└α╨═íú
    A     ╩²╫Θ└α╨═
    B     ┤·┬δ┐Θ└α╨═
    C     ╫╓╖√└α╨═
    D     ╚╒╞┌└α╨═
    L     ┬▀╝¡└α╨═
    M     ▒╕╫ó╫╓╢╬└α╨═
    N     ╩²╫╓└α╨═
    U     ╬▐╢¿╥σ╗≥NIL
└²╫╙:
temp: = {1, 2, 4}
? valtype (temp)     // ╩Σ│÷A

▓╬╝√: @2252 [type( )]

.1764
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

version()
╙∩╖¿: version()
╙├═╛: ╚╖╢¿WINBASE ╡─░µ▒╛║┼íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╫╓╖√└α╨═
╦╡├≈: version() ║»╩²╓┤╨╨╩▒╜½╖╡╗╪WINBASE ╡─░µ▒╛║┼íú
└²╫╙:
ú└ 12, 10 say "WINBASE ╡─░µ▒╛║┼╬¬: "+version()
     // ╜ß╣√└α╦╞WinBase ░µ▒╛2. 5, 1994

▓╬╝√: @1725 [iscolor](), @1732 [os]()

.1644
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

vgaclose()
╙∩╖¿: vgaclose()
╙├═╛: ╣╪▒╒╞┴─╗╧╘╩╛
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐
└²╫╙:    vgaclose()
    ? "winbase"
    inkey (0)
    vgaopen()

.1645
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@16[═╝╨╬═╝╧≤║»╩²╦≈╥²]

vgaopen()
╙∩╖¿: vgaopen()
╙├═╛: ┤≥┐¬╞┴─╗╧╘╩╛
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐
└²╫╙▓╬╝√ @1644[vgaclose()]

.1767
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

wbs_on()
╙∩╖¿: wbs_on()
╙├═╛:     ╘┌WBSDOS ║║╫╓╧╡═│╧┬, ╘┌═╝╨╬╖╜╩╜╧┬┤≥┐¬╣Γ▒Ω, ╛═┐╔╩╣╙├╒²
│ú╣Γ▒Ω▓┘╫≈íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.1766
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

wbs_off()
╙∩╖¿: wbs_off()
╙├═╛: ╘┌WBSDOS ║║╫╓╧╡═│╧┬, ╣╪▒╒╣Γ▒Ω▓ó╩╣╡├╦∙╙╨╒²│ú╣Γ▒Ω▓┘
╫≈╩º░▄íú
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╬▐

.1007
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

wbedit()
╙∩╖¿: wbedit (<cStr>, <nRow1>, <nCol1>, <nRow2>, <nCol2>, <cTitle>, ;
        <nFc>, <nBc>, <modi_flag>,<rdonly>, <window>)
╙├═╛: ╡»│÷╢╘cStr ╜°╨╨▒α╝¡╨▐╕─╡─┤░┐┌, ╞Σ╓╨
▓╬╩²:     <cStr>             ┤²▒α╝¡╫╓┤«
    <nRow1, nCol1>     ┤░┐┌╫≤╔╧╜╟╫°▒Ω
    <nRow2, nCol2>     ┤░┐┌╙╥╧┬╜╟╫°▒Ω
    <cTitle>         ┤░┐┌▒Ω╠Γ
    <nFc, nBc>        ┤░┐┌╟░╛░╔½, ▒│╛░╔½
    <modi_flag>         ╚⌠╬¬╒µ▒φ╩╛╢╘str ╥╤╨▐╕─╣²(╚▒╩í╬¬.F.)
    <rdonly>         ╚⌠╬¬╒µ▒φ╩╛╓╗╢┴(╚▒╩í╬¬╢┴╨┤)
    <window>         ╚⌠╬¬┐╒╘≥╗¡│÷┤░┐┌(╚▒╩í╬¬╗¡│÷)
╖╡╗╪╓╡: ▒α╝¡║≤╡─╫╓┤«
└²╫╙: wbedit ("winbase", 5, 5, 15, 40, "winbase 2. 5")

.1765
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@17[╧╡═│║»╩²╦≈╥²]

wbhelp()
╙∩╖¿: wbhelp (<cHelpfile>, <deyword>, <cTitle>, <nTitlecolor>, <nFc>, <nBc>)
╙├═╛: ┤╙░∩╓·╬─╝■╓╨╠ß╚í▓ó╧╘╩╛╨┼╧ó
▓╬╩²:
<helpfile>     ╩²╛▌┐Γ╬─╝■, ╦ⁿ╙╔┴╜╕÷╫╓╢╬╫Θ│╔wb_help, wb_title
<layword>     ░∩╓·╬─╝■╡─╣╪╝ⁿ╫╓
<cTitle>         ░∩╓·┤░┐┌▒Ω╠Γ
<nTitlecolor>     ░∩╓·┤░┐┌▒Ω╠Γ╤╒╔½
<nFc>         ░∩╓·╨┼╧ó╧╘╩╛╡─╟░╛░╔½
<nBc>         ░∩╓·╨┼╧ó╧╘╩╛╡─▒│╛░╔½
╖╡╗╪╓╡: ╬▐
└²╫╙:

.2367
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@23[╡═╝╢╬─╝■╝░┤┼┼╠║»╩²╦≈╥²]

wbsbackup()
╙∩╖¿: wbsbackup (<nMode>, <cDiskDriveLetter>, <aFileNames> )
╙├═╛: ▒╕╖▌╗≥╗╓╕┤╬─╝■
▓╬╩²:
<nMode>=1         ▒╕╖▌▓┘╫≈
<nMode>=2         ╗╓╕┤▓┘╫≈
<cDiskDriveLetter>     ╬¬╟²╢»╞≈▒Ω╩╢╖√
<aFileNames>     ╬─╝■├√╫Θ╫╓╖√┤«, └α╨═▓╗═¼╡─╬─╝■╙├╖╓║┼╖╓╕⌠
╖╡╗╪╓╡: │╔╣ª╖╡╗╪.T., ╖±╘≥╖╡╗╪.F.
└²╫╙:     wbsbackup (1, "B", "c: \*. com; *. bat")
    wbsbackup (2, "B", "C: \temp")

.2513
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@25[├ⁿ┴ε╩²╦≈╥²]

while()
╙∩╖¿: while (<cExp>, [<cFunc>])
╙├═╛: ┬·╫π╠⌡╝■╩▒╓┤╨╨║»╩²
▓╬╩²:
    <cExp>     ┬▀╝¡▒φ┤∩╩╜╫╓╖√┤«
    <cFunc>     ║»╩²├√╫╓╖√┤«
╖╡╗╪╓╡: ╬▐
└²╫╙:
while ( "m_press( 0 )==1 )    //╡▒╩≤▒Ω░┤╧┬╢°├╗╙╨╖┼┐¬╩▒╥╗╓▒╤¡╗╖

.1101
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@11[╩²╛▌┐Γ╬¼╗ñ║»╩²╦≈╥²]

winbrows( )
╙∩╖¿:winbrows (<cTitle>, <nRow1>, <nCol1>, <nRow2>, <nCol2>, <nWidth>, ;
    <nColnum>, <cFlag>,<cDbfname>,<cDbfntx>,<cDbfform>,;
    <cFormform>,<nWinfc>,<nWinbc>, <nSayfc>,<nSaybc>,<nBarfc>,;
    <nBarbc>,<nDelfc>,<nDelbc>,[<nInitfunc>,<cAddfunc>,;
    <cPrtname>, <nPrtflag>, <cBackfunc>, <cHelpfunc>, <cRelfunc>] )
╙├═╛ú║╢╘╩²╛▌┐Γ╜°╨╨╬¼╗ñ▓┘╫≈ú¼▓ó┐╔╔Φ╝╞║═┤≥╙í▒¿▒φíú
▓╬╩²:
    <cTitle>         ┤░┐┌▒Ω╠Γ
    <nRow1,nCol1>    ┤░┐┌╫≤╔╧╜╟╨╨┴╨╫°▒Ω
    < nRow2, nCol2>    ┤░┐┌╙╥╧┬╜╟╨╨┴╨╫°▒Ω
    <nWidth>         ┤╣╓▒╧╘╩╛╡─╫╓╢╬┐φ╢╚
    <nColnum>         ┤╣╓▒╧╘╩╛╡─└╕╩²
    <cFlag>        ╬¼╗ñ╖╜╩╜
                    :"H"=> ╦«╞╜╖╜╩╜,
                    "V"=> ┤╣╓▒╖╜╩╜,
                    "F"=> ╫¿╕±╖╜╩╜,
                    "R"=> ║ß▒φ╖╜╩╜
╫óú║╘┌"H"íó"V"íó"F"íó"R" ║≤┐╔╥╘╕╜╝╙┴╜╕÷▒Ω╓╛:
R: ▒φ╩╛╓╗╢┴╡─, └²╚τ: "HR"íó"RR" ╡╚
D: ▒φ╩╛╫╓╢╬╡─▒α╝¡╘┌╡▒╟░╬╗╓├╜°╨╨, ╬▐╨δ╡»│÷▒α╝¡┤░
┐┌íú

    <cDbfname>         ╩²╛▌┐Γ├√│╞
     <cDbfntx>         ╩²╛▌┐Γ╦≈╥²├√
     <cDbfform>         ═¿╙├╕±╩╜╬─╝■
    <cFormform>         ╫¿╙├╕±╩╜╬─╝■
    <nWinfc, nWinbc>     ┤░┐┌╡─╟░╛░íó▒│╛░╔½
    <nSayfc, nSaybc>     ╫╓╢╬╒²│ú╧╘╩╛╡─╟░╛░íó▒│╛░╔½
    <nBarfc, nBarbc>     ┴┴╠⌡╦∙╘┌╫╓╢╬╡─╟░╛░íó▒│╛░╔½
    <nDelfc, nDelbc>     ╥╤╔╛│²╫╓╢╬╡─╟░╛░íó▒│╛░╔½
    <cInitfunc>         ╬¼╗ñ╡─│⌡╩╝╗»║»╩²
    <cAddfunc>         ╘÷╝╙╨┬╝╟┬╝╩▒┐╔╓┤╨╨╡─║»╩²
    <cPrtname>         ▒¿▒φ╬─╝■├√
<nPrtflag>         ┤≥╙í▒Ω╝╟, 0== ╔Φ╝╞┤≥╙í, 1== ╓╗╫╝┤≥╙í
        2== ▓╗╫╝▓┘╫≈, 3== ╥╗░π▓┘╫≈, 4== ▓╗─▄┤µ┼╠
<cBackfunc>    ╗╪╡≈║»╩², ╝ⁿ╓╡(╝ⁿ┼╠╡─╗≥╩≤▒Ω╡─) ╫≈╬¬▓╬╩², ┐╔╩╣╙├╥╗╨⌐═¿
╙├▒Σ┴┐
    <cHelpfunc>        ╫╓╢╬╡─░∩╓·║»╩²├√, ╫╓╢╬├√╫≈╬¬▓╬╩²
    <cRelfunc>        ╣╪┴¬║»╩²

└²╫╙:
#include "winbase. inc"
memvar brow_fom, brow_dbf, cur_filter, tr_no, sh_no, mc, comm, pnm
memvar mousenm, m_sw, pre_x, pre_y, op, prekey, key
field bs__field, bs__type, name

function f_main ()
private mc: =0, mousenm, m_sw: =0, op: =0
private tr_no: =" ", sh_no: =" ", pnm, pre_x: =1000, pre_y: =1000, prekey: =""
private man: = {" ║ß▒φ", " ═¿╙├"}, man1: = {'R', 'H'}

windowstart ()
mouse (1)
eval (cur__off)
do while op==0
op: =0
op: =popup (10, 10, man)
enddo
winbrows ("WINBROWS ╩╛╖╢", 5, 2, 20, 78, 10, 1, man1 [op],;
     "rec. dbf",, "rec. fom", "rec. bsf", 12, 7, 0, 7, 0, 11, 4, 7;
    ,,,,, "win_back")
mousekey: =""
windowexit()
return 0

function arch()
local keepfilt: =cur_filter, i

i: =prekey
if. not. empty (i)
if i==K_ENTER. or. i==K_MS_LEFT

tr_no: =trim (&brow_dbf->name)
winbrows (" ╕÷╚╦╟Θ┐÷", 8, 5, 19, 75, 10, 1, "HD", "arch. dbf",, "arch. fom",,;
12, 7, 0, 7, 0, 11, 4, 7, "arch_i", "arch_a",,, "arch_b")
cur_filter: =keepfilt
endif
endif
return nil

function win_back()
local i: =mouserow()

prekey: =key
if key=K_F1
msgbox ("press F1", "", 1)
return key
endif
return key

function arch_i()
local curarea: =alias()

select &brow_dbf
set filter to trim (name) =tr_no
cur_filter="trim (name) =tr_no"
go top
backarea (curarea)
return (1)

function arch_a()
local curarea: =alias()

select &brow_dbf
lockrec()
replace &brow_dbf->name with tr_no
unlock
backarea (curarea)
return (1)

function arch_b (key)
local curarea: =alias()

pnm: ="1"
select &brow_dbf
if. not. eof()
    pnm: ="P"+alltrim (&brow_dbf->name) +". PCX"
endif
backarea (curarea)
return (key)

procedure backarea (area)
if !empty (area)
    select &area
endif
return

function p_show()
    tone (660, 3)
    mouse (0)
    makewindow (6, 45, 24, 79, " ͼƬ", 7, 7, 2)
    if file (pnm)
        pcx (pnm, 46*8, 7*LINES, 79*8, 25*LINES-8)
    else
        msgbox (" ═╝╨╬╬─╝■▓╗┤µ╘┌", "", 1)
    endif
    mouse (1)
    do while mousekey() =0
    enddo
    mappal16 ()
    mouse (0)
    removewindow ()
    mouse (1)
return nil

function comp (high)
if val (high) <0. or. val (high) >3
    msgbox (" ╔φ╕▀▓╗╒²│ú", "", 1)
    return.F.
endif
return.T.

function c_value (weig)
local xs, xd: =5. 0, xa: =10. 0, i

xs: =60. 0/1. 7
if val (&brow_dbf->height) <>0
    i: =xs*val (&brow_dbf->height)
    do case
    case i+xa<weig
        msgbox (" ╖╩┼╓", " ╔┘│╘╡π", 1)
    case i-xd>weig
        msgbox (" ╞½╩▌", " ╢α│╘╡π", 1)
    otherwise
        msgbox (" ▒ú│╓╠σ╨╬", "", 1)
    endcase
endif
return 1

.1008
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

winclear()
╙∩╖¿: winclear (<nColor>)
╙├═╛: ╦ó╨┬┤░┐┌
▓╬╩²:
    <nColor>    ╬¬╓╕╢¿╤╒╔½(0-15), ┐╔╬¬┐╒
╖╡╗╪╓╡: NIL

.1009
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

window()
╙∩╖¿: window()
╙├═╛: ╖╡╗╪╡▒╟░┤░┐┌╛Σ▒·
▓╬╩²: ╬▐
╖╡╗╪╓╡: ╡▒╟░┤░┐┌╛Σ▒·

└²╫╙:
/* ╜½╡▒╟░┤░┐┌╛Σ▒·┤µ╚δ▒Σ┴┐nHandle ╓╨, ▓ó╙├└╢╔½╦ó╨┬┤░┐┌, ╟σ╞┴
╓╪╗¡┤░┐┌*/
 #include "winbase.inc"
procedure example7()
local handle // ╢¿╥σ┤░┐┌╛Σ▒·╬¬╛▓╠¼▒Σ┴┐
    windowstart() // │⌡╩╝╗»Winbase
    makewindow (10, 10, 20, 70, "WINBASE ═╝╬─┤░┐┌", 4, 3, 1)
             // ╗¡╥╗┤░┐┌
    handle: =window() // ╗±╡├╕├┤░┐┌╛Σ▒·
    winclear (1) // ╙├└╢╔½╦ó╨┬┤░┐┌
    inkey (1) // ╤╙╩▒1 ├δ
    cls // ╟σ╞┴
    gotowindow (handle) // ╫¬╡╜<handle> ╓╕╢¿╡─┤░┐┌
    redrawwin() // ╓╪╗¡┤░┐┌
    inkey (1) // ╤╙╩▒1 ├δ
    removewindow() // ╣╪▒╒╕├┤░┐┌
    windowexit() // ═╦│÷Winbase
return

▓╬╝√: @1008 [winclear](), @1004 [redrawwin](), @1001 [gotowindow](), @1005 [removewindow]()

.1010
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

windowexit()
╙∩╖¿: windowexit()
╙├═╛: ═╦│÷Winbase ╧╡═│
▓╬╩²: ╬▐
╖╡╗╪╓╡: NIL

└²╫╙▓╬╝√: @1013 [windowstart]()

.1011
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

windowget()
╙∩╖¿: windowget (<nRow>, <nCol>, <cTitle>, <xVar>, <pict>)
╙├═╛: ╗∙╙┌┤░┐┌╡─GET ▓┘╫≈
▓╬╩²:     <nRow, nCol>         ╧α╢╘╙┌┤░┐┌╡─╨╨┴╨╫°▒Ω
    <cTitle>         ╩Σ╚δ╠ß╩╛(╫╓╖√┤«)
    <xVar>         GET ▒Σ┴┐
    <pict>             picture ─ú╩╜, ▓╬╝√: ú└... say
╖╡╗╪╓╡: NIL

└²╫╙▓╬╝√: @1015 [winscroll]()


.1012
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

windowsay()
╙∩╖¿: windowsay (<nRow>, <nCol>, <cString>)
╙├═╛: ╗∙╙┌┤░┐┌╡─SAY ▓┘╫≈
▓╬╩²:
    <nRow, nCol>        ╧α╢╘╙┌┤░┐┌╡─╨╨┴╨╫°▒Ω
    <cString>        ╩Σ│÷╡─╫╓╖√┤«
╖╡╗╪╓╡: NIL

└²╫╙▓╬╝√: @1015 [winscroll]()

.1013
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

windowstart()
╙∩╖¿: windowstart (<cDbfpath>, <cPrtpath>)
╙├═╛: │⌡╩╝╗»Winbase ╧╡═│
▓╬╩²:
    <cDbfpath>     ╖├╬╩╩²╛▌┐Γ╡─┬╖╛╢
    <cPrtpath>    ╜¿┴ó▒¿▒φ╬─╝■╡─┬╖╛╢
╦╡├≈: ╚⌠┬╖╛╢▓╬╩²╬¬┐╒, ╘≥░┤╗╖╛│▒Σ┴┐BASEPATH ╔Φ╓├.
╖╡╗╪╓╡: NIL

└²╫╙:
#include "winbase.inc"
procedure example1()
windowstart ("c: \mydbf", "c: \myrep")
    // ╩²╛▌┐Γ┬╖╛╢c: \mydbf, ▒¿▒φ╬─╝■┬╖╛╢c: \myrep
    makewindow (10, 10, 20, 70, " ╗╢╙¡╩╣╙├WINBASE", 1, 3, 1)
         // ╗¡╥╗┤░┐┌
... ...


.1014
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

winoutput()
╙∩╖¿: winoutput (<cString>)
╙├═╛: ╘┌┤░┐┌╓╨╡─╡▒╟░╨╨╩Σ│÷╫╓╖√┤«
▓╬╩²:
    <cString>    ╩Σ│÷╡─╫╓╖√┤«
╖╡╗╪╓╡: NIL

└²╫╙▓╬╝√: winscroll(), @1012 [windowsay]()

.1015
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

winscroll()
╙∩╖¿: winscroll (<num>)
╙├═╛: ╣÷╢»┤░┐┌╓╨╡──┌╚▌
▓╬╩²:
    <nNum>     ╣÷╢»╡─╨╨╩², ╒²╩²╔╧╣÷, ╕║╩²╧┬╣÷
╖╡╗╪╓╡: NIL

└²╫╙: #include "winbase.inc"
    procedure example12()
    public name: =' '
    windowstart() // │⌡╩╝╗»Winbase
    makewindow (10, 10, 20, 70, "WINBASE ═╝╬─┤░┐┌", 4, 3, 1)
             // ╗¡╥╗┤░┐┌
    winclear (7) // ╙├░╫╔½╦ó╨┬┤░┐┌
    windowget (0, 1, " ╩Σ╚δ─π╡─╨╒├√: ", "name", "ú└A")
            // ╡├╡╜╜÷╜╙╩╒┤≤╨í╨┤╫╓─╕
    read
    winoutput (" ╟δ╡╚┤²... ")
         // ╘┌┤░┐┌╡─╡▒╟░╨╨, ▒╛└²╬¬1 ╨╨, ╩Σ│÷" ╟δ╡╚┤²... "
    windowsay (8, 1, " ─π╡─╨╒├√: "+temp)
         // ╘┌┤░┐┌╡─8 ╨╨╩Σ│÷╜╙╩╒╡─name
    inkey (30) // ╤╙╩▒30 ├δ
    winscroll (1) // ┤░┐┌╓╨╡──┌╚▌╔╧╣÷1 ╨╨
    inkey (30) // ╤╙╩▒30 ├δ
    winscroll (-3) // ┤░┐┌╓╨╡──┌╚▌╧┬╣÷3 ╨╨
    inkey (30) // ╤╙╩▒30 ├δ
    removewindow() // ╣╪▒╒╕├┤░┐┌
    windowexit() // ═╦│÷Winbase
    return

▓╬╝√: @1011 [windowget](), @1012 [windowsay](), @1014 [winoutput]()

.1016
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@10[┤░┐┌║»╩²╦≈╥²]

wintitle()
╙∩╖¿: wintitle (<cNewtitle>, [<nColor>])
╙├═╛: ╕─▒Σ╡▒╟░┤░┐┌╡─▒Ω╠Γ, ╚⌠╓╕╢¿color, ╘≥╥╘color ╫≈╬¬▒│╛░╔½íú
▓╬╩²:
    <cNewtitle>     ┤░┐┌╨┬▒Ω╠Γ
    [<nColor>]     ┤░┐┌╨┬▒│╛░╔½
╖╡╗╪╓╡: ╬▐
└²╫╙: makewindow (5, 5, 20, 40, "winbase",,, 4)
    wintitle ("WINBASE 2.5", 9)    //╜½┤░┐┌▒Ω╠Γ╗╗╬¬WINBASE 2.5

.1932
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@19[╚╒╞┌╩▒╝Σ║»╩²╦≈╥²]

year()
╙∩╖¿: year (<dExp>)
╙├═╛: ╢╘╥╗╕÷╚╒╞┌╟≤╓╡▓ó┤╙╓╨│Θ╚í│÷4 ╬╗╩²╫╓╨╬╩╜╡─
─Ω┤·▓┐╖▌íú
▓╬╩²:
    <dExp>    ║╧╖¿╡─╚╒╞┌
╖╡╗╪╓╡: ╩²╫╓└α╨═
└²╫╙:? year (date()) // ╜ß╣√└α╦╞1994

▓╬╝√: @1908 [date](), @1912 [day](), @1924 [month]()



╡┌╦─╒┬    ├ⁿ┴ε▓╬┐╝

.3001
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

? | ??
╙∩╖¿:    ? | ?? <expList>
╙├═╛:     ╜½▒φ┤∩╩╜╡─╓╡╩Σ│÷╡╜╞┴─╗╗≥┤≥╙í╗·íú
▓╬╩²:
<expList>    ╙├╙┌╧╘╩╛╗≥┤≥╙í╡─▒φ┤∩╩╜▒φ, ▒φ┤∩╩╜╝Σ╙├╢║║┼╖╓╕⌠
┐¬íú▒φ┤∩╩╜┐╔╥╘╩╟╚╬║╬└α╨═íú
╦╡├≈:     ╚τ╣√┤≥╙í╗·▒╗SET PRINTER ON/OFF ├ⁿ┴ε╝ñ╗ε, ╘≥╜ß╣√▒╗╩Σ│÷╡╜╞┴─╗║═
┤≥╙í╗·íú? ├ⁿ┴ε╘┌┴╜╕÷? ├ⁿ┴ε╓«╝Σ╫╘╢»╩Σ│÷╥╗╕÷╗╪│╡║═╗╗
╨╨╖√,?? ├ⁿ┴ε╘≥▓╗íú
└²╫╙:? " ╓╨╣·", 3, "asd" // ╧╘╩╛╓╨╣·3 asd

▓╬╝√: @2508 [qout]|qqout() ║»╩²

.3002
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]


ú└... box
╙∩╖¿: ú└ <nToprow>, <nTopcol>, <nBotrow>, <nBotcol> box <cString>
╙├═╛: ╘┌╞┴─╗╔╧╧╘╩╛╥╗╕÷╢¿╓╞╡─╖╜┐≥íú
▓╬╩²:
    <nToprow,nTopcol>    ╖╜┐≥╫≤╔╧╜╟╡─╨╨┴╨╫°▒Ωíú
    <nBotrow,nBotcol>    ╖╜┐≥╙╥╧┬╜╟╡─╨╨┴╨╫°▒Ωíú
<cString>     ╣╣│╔╖╜┐≥╡─░╦╕÷ASCII ┬δ╫╓╖√╫Θ│╔╡─┤«, ╦ⁿ┤╙╫≤╔╧╜╟┐¬╩╝
░┤╦│╩▒╒δ╖╜╧≥╣ñ╫≈, ┴φ═Γ╝╙╥╗╕÷╠ε│Σ╖╜┐≥─┌▓┐╡─╫╓╖√, ╚⌠
├╗╙╨╠ß╣⌐╠ε│Σ╖╜┐≥╡─╫╓╖√, ╘≥╖╜┐≥▓╗╙├╠ε│Σíú
╦╡├≈:     ┐╔╥╘╩╣╙├winbase.inc ═╖╬─╝■╓╨╡─▒Ω╫╝╢¿╥σíú
B_SINGLE     ╖╜┐≥╡─╢Ñ╧▀, ╡╫╧▀, ┴╜╠⌡▓α╧▀╢╝╩╟╡Ñ╧▀
B_DOUBLE     ╖╜┐≥╡─╢Ñ╧▀, ╡╫╧▀, ┴╜╠⌡▓α╧▀╢╝╩╟╦½╧▀
B_SINGLE_DOUBLE     ╖╜┐≥╡─╢Ñ╧▀, ╡╫╧▀╩╟╡Ñ╧▀, ┴╜╠⌡▓α╧▀╢╝╩╟╦½╧▀
B_DOUBLE_SINGLE     ╖╜┐≥╡─┴╜╠⌡▓α╧▀╢╝╩╟╡Ñ╧▀, ╢Ñ╧▀, ╡╫╧▀╩╟╦½╧▀
└²╫╙:     temp: =chr (201) +chr (205) +chr (187) +chr (186) +chr (188) +chr (205) +;
        chr (200) +chr (186)
    ú└ 10, 20, 20, 40 box temp // ╗¡┴╦╥╗╕÷╦½╧▀╖╜┐≥

▓╬╝√: @1606 [drawbox](), @1602 [box3d](), ú└.. to..,  ╓╞┐≥╫╓╖√▒φ

╓╞┐≥╫╓╖√▒φ

            * ╓╞┐≥╫╓╖√╝░╞ΣASCII ┬δ╓╡*

    ╫╓╖√    ASCII ┬δ╓╡    ╫╓╖√    ASCII ┬δ╓╡    ╫╓╖√    ASCII ┬δ╓╡
    ⌐░    218         ⌐╗    200
    ====================================================    ⌐ñ    196         ⌐Ñ    205         ⌐└    195
    ====================================================    ⌐┤    191         ⌐╖    187         ⌐╟    204
    ====================================================    ⌐■    179         ⌐º    186         ⌐╚    180
    ====================================================    ⌐╝    217         ⌐┐    188         ⌐╧    185
    ====================================================    ⌐╨    194         ⌐╫    203         ⌐α    197
    ====================================================    ⌐╪    193         ⌐▀    202        ⌐∩    206
    ====================================================    ⌐▒    213         ⌐▓    214         ⌐╡    184
    ====================================================    ⌐╢    183         ⌐╣    212         ⌐║    211
    ====================================================    ⌐╜    190         ⌐╛    189         ⌐┴    198
    ====================================================    ⌐─    199         ⌐╔    181         ⌐╙    209
    ====================================================    ⌐╘    210         ⌐█    207         ⌐▄    208
    ====================================================    ⌐π    216         ⌐µ    215         ⌐╠    182
    ====================================================
    ▓╬╝√: [@3006[ú└... to]] ├ⁿ┴ε

.3003
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

ú└... clear
╙∩╖¿: ú└ <nToprow>, <nTopcol> [clear [to<nBotrow>, <nBotcol>]]
╙├═╛: ╟σ│²╞┴─╗╔╧╡─╥╗┐Θ╛╪╨╬╟°╙≥íú
▓╬╩²:
    <nToprow,nTopcol>    ╨Φ╟σ│²╡─╛╪╨╬╟°╙≥╫≤╔╧╜╟╡─╨╨┴╨╫°▒Ω
    <nBotrow,nBotcol>    ╨Φ╟σ│²╡─╛╪╨╬╟°╙≥╙╥╧┬╜╟╡─╨╨┴╨╫°▒Ω
╦╡├≈: ú└... clear ╘┌▓╬╩²╓╕╢¿╡─╡▒╟░╞┴─╗╟°╙≥─┌╠ε╚δ┐╒╕±, ╚╗║≤╜½
╣Γ▒Ω╓├╙┌╫≤╔╧╜╟íú┤°TO ╫╙╛Σ╡─ú└... clear ╟σ│²╙╔<nToprow>, <nTopcol> ╛÷╢¿╡─╫≤╔╧╜╟║═
MAXROW(), MAXCOL() ╛÷╢¿╡─╙╥╧┬╜╟╡─╛╪╨╬╟°╙≥íú▓╗┤°clear ╡─ú└... clear ╜÷╜½╣Γ▒Ω╖┼╓├╘┌
╥╘<nToprow> ╬¬╨╨╫°▒Ω, <nTopcol> ╬¬┴╨╫°▒Ω╡─╡π╔╧íú
└²╫╙: temp: =chr (201) +chr (205) +chr (187) +chr (186) +chr (188) +chr (205) +;
        chr (200) +chr (186)
    ú└ 10, 20, 20, 40 box temp // ╗¡┴╦╥╗╕÷╦½╧▀╖╜┐≥
    ú└ 10, 20 clear to 20, 40 // ╦½╧▀╖╜┐≥▒╗╟σ│²

▓╬╝√: @1744 [scroll]()

.3004
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]


ú└... prompt...
╙∩╖¿: ú└ <nRow>, <nCol> prompt <cMenuItem> [MESSAGE<cString>]
╙├═╛: ╘┌╞┴─╗╔╧╧╘╩╛╠ß╩╛íú
▓╬╩²:
    <nRow,nCol>        ╘┌╞┴─╗╔╧╖┼╓├╠ß╩╛╡─╡─╨╨, ┴╨╫°▒Ω
    <cMenuItem>         ┤≥╙í╘┌╞┴─╗╔╧╡─╠ß╩╛╒²╬─
<cString>    ╚╬╤í╫ó╩═┤«, ▓╗╣▄╩╟╖±╙├SET MESSAGE ├ⁿ┴ε╓╕╢¿, ╕├╫ó╩═┤«╢╝▒╗┤≥╙ííú
╦╡├≈:     ├┐╕÷▓╦╡Ñ╫ε╢α┐╔╢¿╥σ32 ╕÷▓╦╡Ñ╧εíú╠ß╩╛╘┌▒╗╝ñ╗ε╓«
╟░╥╗╓▒▒ú┤µ╘┌─┌┤µ╓╨íú╝ñ╗ε╙╔MENU TO ├ⁿ┴ε╓┤╨╨íú╥╗╛¡MENU TO ├ⁿ┴ε╝ñ
╗ε, ╠ß╩╛╘≥╗ß╙├╡▒╟░╝╙┴┴╡─╤╒╔½╘┌╞┴─╗╔╧╧╘╩╛íú
└²╫╙: // ╔·│╔╥╗┴┴╠⌡▓╦╡Ñ
    set message to 24, center
    ú└ 10, 20 prompt " ╘÷╝╙: " message " ╘÷╝╙╥╗╕÷╨┬╝╟┬╝"
    ú└ 11, 20 prompt " ▒α╝¡: " message " ▒α╝¡╥╗╕÷╝╟┬╝"
    ú└ 12, 20 prompt " ╔╛│²: " message " ╔╛│²╥╗╕÷╝╟┬╝"
    menu to temp

▓╬╝√: @3012[menu to], @3027[set message], @3030[set wrap], @1401 [achoice]()

.3005
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]


ú└... say... get
╙∩╖¿:     ú└ <nRow>, <nCol> [say<exp> [picture<cSayPicture>]];
     [get<idVar>] [picture<cSayPicture>];
     [when<lCondition>] [range<dnLower>, <dnUpper>] [valid<lCondition>]
╙├═╛:     ú└... say ▓┐╖▌╙├└┤╘┌╞┴─╗╗≥┤≥╙í╗·╔╧╢¿╬╗╧╘╩╛╗≥┤≥╙í
╩²╛▌║═╧√╧óíú├ⁿ┴ε╡─GET ╫╙╛Σ╙├└┤╜¿┴ó╙├╙┌╩²╛▌╩Σ╚δ╡─
Getlist ╩²╫Θ, ▓ó═¿╣²READ ├ⁿ┴ε╝ñ╗εíú
▓╬╩²:
<nRow>, <nCol>     ╖┼╓├ú└... say... get ├ⁿ┴ε╩Σ│÷╜ß╣√╡─╞≡╩╝╨╨, ┴╨╫°▒Ω
<exp>         ╧╘╩╛╡─╨┼╧ó, picture ╫╙╛Σ╙├└┤╕±╩╜╗»SAY ▒φ┤∩╩╜
GET         ╓╕╢¿╜½▓┘╫≈╒▀╡─╩Σ╚δ┤µ╚δ╥╗╕÷─┌┤µ▒Σ┴┐, ╩²╫Θ╘¬╦╪
╗≥╫╓╢╬╓╨íú╞τ╥σ╡─╥²╙├╜½╫≈╬¬╫╓╢╬╥²╙├╢╘┤²,   ╩Σ╚δ┐╔╙├
picture ▒φ┤∩╩╜└┤╕±╩╜╗»íú
when         ╕├╫╙╛Σ╓┤╨╨╥╗╕÷║╧╖¿╨╘╝∞▓Θíú
<lCondition>         ╬¬╥╗╕÷┬▀╝¡▒φ┤∩╩╜, ╓╡╬¬.T., ╣Γ▒Ω┐╔╥╞╚δ╧ε╟°▓ó╘╩╨φ╢╘<idVar> ╜°
╨╨▒α╝¡╨▐╕─, ╖±╘≥, ▓╗╘╩╨φ╣Γ▒Ω┐╔╥╞╚δ╧ε╟°íú
valid         ╕├╫╙╛Σ╩╣╙├╗º░╤GET ╓╨╡─╓╡╙δ╙├╗º╫╘╢¿╥σ║»╩²╧α▒╚
╜╧, ╥╘╚╖╢¿GET ╓╡╡─║╧╖¿╨╘íú│²╖╟valid ╫╙╛Σ╖╡╗╪.T., ╖±╘≥╓╗─▄═¿╣²░┤
ESC ╝ⁿ╓╒╓╣GETíú
range         ╕├╫╙╛Σ╙├└┤╜½╩▒╝Σ║═╩²╫╓╓╡╧▐╢¿╘┌╫ε╨í╓╡<dnLower> ║═╫ε
┤≤╓╡<dnUpper> ╓«╝Σíú
╦╡├≈:     ╧┬▒φ╕°│÷picture ║»╩²╩╣╙├╡─╖√║┼

      ╖√║┼      ╩²╛▌└α╨═     ╦╡├≈
      A*        C            GET╓╨╜÷╜╙╩╒╫╓─╕
      B         N            ╧≥╫≤╡≈╒√╩²╫╓╨═╩Σ╚δ
      C         N            ╒²╩²║≤╡─┤√╖╜╖√║┼(CR)
      E         D,N          ╙ó╣·╩▒╝Σ╕±╩╜,┼╖╓▌╩²╫╓╕±╩╜
      K*        C,D,N,L      ╚τ░┤╧┬╡─╡┌╥╗╕÷╝ⁿ▓╗╩╟╣Γ▒Ω╝ⁿ,╘≥╔╛│²╡▒╟░╓╡
      R         C            ┐╔▓σ╚δ╡─╖╟─ú░σ╫╓╖√
      S<n>*     C            ╘╩╨φGET╡─┐φ╢╚╨í╙┌╙≥┐φ,╣÷╢»╥╘╜╙╩╒│ñ╡─╩Σ╚δ
      X         N            ╕║╩²║≤╡─╜Φ╖╜╖√║┼
      Z         N            ░╤┴π╝╟╬¬┐╒░╫
      (         N            ╘▓└¿║┼╓╨┤°╙╨╟░╡╝┐╒╕±╡─╕║╩²
      )         N            ╘▓└¿║┼╓╨▓╗┤°╟░╡╝┐╒╕±╡─╕║╩²
      !         C            ╧ú═√╫╓─╕╫¬╗╗╬¬┤≤╨┤╨╬╩╜


* ▒φ╩╛╜÷╢╘▒α╝¡║╧╖¿íú

╚τ╣√╙╨─ú░σ┐╪╓╞╫╓╖√, ╘≥picture ║»╩²╙ª┤°╔╧╟░╡╝╖√║┼ú└ ▓ó╟╥
╘┌║»╩²╖√║┼╡─║≤├µ╙ª╜⌠╕·╥╗╕÷┐╒╕±, ┐╔╥╘╓╕╢¿╢α╕÷
║»╩²╖√║┼íú
╧┬├µ╩╟picture ─ú░σ╖√║┼
    ╖√║┼            ╫ó╩═
    A         ╜÷╜╙╩╒┤≤╨┤╗≥╨í╨┤╫╓─╕
    N         ╜÷╜╙╩╒╫╓─╕╗≥╩²╫╓
    X         ╜╙╩╒╚╬║╬╫╓╖√
    Q         ╜÷╜╙╩╒╩²╫╓║═"+", "-"
    #         ╜÷╜╙╩╒╩²╫╓, ╖√║┼, ┐╒╕±
    L         ╜÷╜╙╩╒┬▀╝¡╓╡T ╗≥F
    Y         ╜÷╜╙╩╒┬▀╝¡╓╡Y ╗≥N
    !         ╜½╫╓─╕╫¬╗╗╬¬┤≤╨┤╨╬╩╜
    $         ╙├├└╘¬╖√║┼┤·╠µ╟░╡╝╕±(╩²╫╓)
    .         ╘┌╩²╫╓╨═╓╨╖┼╓├╨í╩²╡π
    ,         ╘┌╩²╫╓╨═╓╨╖┼╓├╢║║┼

╚τ╣√╩╣╙├─ú░σ╖√║┼, ╘≥╦ⁿ├╟╙ª╕·╘┌picture ╫╙╛Σ╡─║»╩²╖√║┼
║≤├µ, ▓ó╟╥┴╜╒▀╓«╝Σ╙ª╖┼╚δ╥╗╕÷┐╒╕±╫≈╬¬╖╓╕⌠╖√íú
└²╫╙:
/* ╧┬├µ└²╫╙╘┌╡┌╥╗╕÷READ ╓╨╝Σ░┤╧┬F10, ╘≥╙╓┐╔│÷╧╓╡┌╢■╕÷
READ*/
    cls
    v1: =v2: =space (10)
    ú└ 11, 5 say " ╩Σ╚δ╥╗╕÷╫╓: " get v1
    ú└ 12, 5 say " ╩Σ╚δ╥╗╕÷╫╓: " get v2
    set key -9 to next_gets
    read
    set key -9 to
    cls
    return
    prcedure next_gets
    local GetList: = {}
    temp: =savescreen (10, 5, 13, 70)
    v3: =space (4)
    ú└ 11, 15 say " ╩Σ╚δ╥╗╕÷╫╓: " get v3
    read
    ú└ 13, 15 say " ─π╩Σ╚δ╡─╩╟: "+v3+" ░┤╚╬╥╗╝ⁿ.. "
    inkey (0)
    restscreen (10, 5, 13, 70, temp)
    return

▓╬╝√: clear get, @3022[set device]

.3006
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]


ú└... to...
╙∩╖¿: ú└ <nToprow>, <nTopcol> to <nBotrow>, <nBotcol> [DOUBLE]
╙├═╛: ╙├╙┌╗¡╥╗╕÷╡Ñ╧▀╗≥╦½╧▀╖╜┐≥╗≥╓▒╧▀íú
▓╬╩²:
    <nToprow,nTopcol>    ╖╜┐≥╫≤╔╧╜╟╡─╨╨┴╨╫°▒Ωíú
    <nBotrow,nBotcol>    ╖╜┐≥╙╥╧┬╜╟╡─╨╨┴╨╫°▒Ωíú
    <DOUBLR>        ╩╣╙├╦½╧▀╠⌡
╦╡├≈:     ╚τ╣√╫≤╔╧╜╟╙δ╙╥╧┬╜╟╡─╨╨╫°▒Ω╧α═¼, ╘≥╗¡╥╗╦«╞╜
╓▒╧▀íú
    ╚τ╣√╫≤╔╧╜╟╙δ╙╥╧┬╜╟╡─┴╨╫°▒Ω╧α═¼, ╘≥╗¡╥╗╩·╓▒╓▒
╧▀íú
└²╫╙:     ú└ 10, 10 clear to 20, 70
    ú└ 10, 10 to 20, 70 double // ╗¡╥╗╕÷╦½╧▀╖╜┐≥

▓╬╝√: @1606 [drawbox](), @1602 [box3d](), [@3002 [ú└...box]] ├ⁿ┴ε

.3007
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]


accept... to...
╙∩╖¿: accept [<exp>] to <idVar>
╙├═╛: ╜½╓▒╜╙╝ⁿ╚δ╡─┤«┤µ╚δ╥╗─┌┤µ▒Σ┴┐╓╨íú
▓╬╩²:
[<exp>]     ╙├╗º╓╕╢¿╧╘╩╛╘┌╞┴─╗╔╧╧√╧ó, ╥²╡╝▓┘╫≈╒▀┬╝╚δ╩²╛▌
    <idVar>    ┤µ╓ⁿ┬╝╚δ╨┼╧ó╡──┌┤µ▒Σ┴┐
╦╡├≈:     ╜÷╡▒ENTER ╝ⁿ▒╗╝ⁿ╚δ╩▒, accept ▓┼╗ß╓╒╓╣íú╚τ╣√─┌┤µ▒Σ┴┐<idvar> ▓╗┤µ╘┌╗≥
╢╘╡▒╟░▓╗┐╔╝√, ╘≥╜¿┴ó╥╗╕÷PRIVATE ╨═▒Σ┴┐íú
└²╫╙: accept " ╨╒├√: " to name

▓╬╝√: ¬└... say... get, input, @1504 [inkey]()

.3101
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

append blank
╙∩╖¿: append blank
╙├═╛:     ╙├╙┌╘┌╩²╛▌┐Γ╡──⌐╬▓╠φ╝╙╥╗╕÷┐╒╝╟┬╝ú¼▓ó╟╥╜½
╓╕╒δ╢¿╬╗╘┌╨┬╠φ╝╙╡─┐╒╝╟┬╝╔╧íú
▓╬╩²:     ╬▐
╦╡├≈:     ╚τ╣√╙├╗º╩╘═╝╘┌═°┬τ╗╖╛│╓╨╠φ╝╙╥╗┐╒╝╟┬╝╢°
─┐▒Ω╩²╛▌┐Γ╙╓▒╗╞Σ╦√╙├╗º╦°╫í, ╒Γ╩▒NETERR() ╥╘╒µ╓╡╖╡╗╪, ╠φ
╝╙▓┘╫≈╩º░▄íú╘┌═°┬τ╗╖╛│╓╨, append blank ╘┌╠φ╝╙┐╒░╫╝╟┬╝╩▒╜½╢╘╕├
╝╟┬╝╝╙╦°, ╚τ╣√╠φ╝╙╩º░▄, NETERR() ╜½╬¬╒µíú
└²╫╙:     use my
    append blank
    skip
    ? eof() // ╖╡╗╪.T.

▓╬╝√: @2406 [dbappend]()

.3102
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

append from
╙∩╖¿:     append from <xcFile> [fields <idField list>] [<scope>];
    [while <lCondition>] [for <lCondition>];
    [sdf|delimited [with blank|<xcDelimiters>]]
╙├═╛:     ╜½─│╕÷╩²╛▌┐Γ(. DBF) ╬─╝■╗≥╥╘╢║║┼╢¿╜τ╡─╬─▒╛╬─╝■
╗≥╒▀╧╡═│╩²╛▌╕±╩╜(. SDF) ╬─╝■╓╨╡─╝╟┬╝╢┴│÷└┤╠φ╝╙╡╜
┴φ╥╗╕÷╩²╛▌┐Γ(. DBF) ╬─╝■╓╨íú
▓╬╩²:
from     ╓╕╢¿╘┤╬─╝■<xcFile>íú╚τ╣√▓╗╓╕╢¿╬─╝■└α╨═, ╘≥╚▒╩í└⌐╒╣├√╬¬. DBFíú
╚τ╣√╓╕╢¿┴╦╬─╝■└α╨═╡½╬─╝■├√▓╗║¼└⌐╒╣├√, ╘≥╝┘╢¿
└⌐╒╣├√╬¬. TXTíú
 [fields <idField list>]     ╘┌╜╙╩╒╡─. DBF ╬─╝■╓╨╤í╘±╥¬╠ε╨┤╡─╫╓╢╬íú╦ⁿ├╟╡─└α╨═▒╪
╨δ╙δ╘┤╬─╝■╓╨╡─╧α═¼íú╚τ╘┤╫╓╢╬│ñ╢╚┤≤╙┌─┐╡─╫╓
╢╬│ñ╢╚, ╘≥╩²╛▌╜½▒╗╜╪╢╠íú
 [<scope>]         ╘┤╩²╛▌┐Γ╓╨╝╟┬╝╡─╤í╚í╖╢╬ºíú╚τ╓╕╢¿NEXT<n>, ╘≥FOR/WHILE ╫╙╛Σ╜½▒╗
╖╧╞·íú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
sdf (╧╡═│╩²╛▌╕±╩╜)     ╛▀╙╨╣╠╢¿╫╓╢╬│ñ╡─ASCII ╬─╝■, ├┐╕÷╝╟┬╝╙╔╗╪
│╡╜ß╩°íú╬─╝■╜ß╩°▒Ω╓╛╬¬▒Ω╫╝╡─DOS ╬─╝■╜ß╩°▒Ω╓╛(CTRL-Z), ╫╓╢╬
╓«╝Σ▓╗╙├╚╬║╬╫╓╖√╢¿╜τíú
delimited         ╥╗╓╓╗∙▒╛╕±╩╜, ╝┤╢║║┼╢¿╜τ╡─ASCII ╬─╝■, ╬─╝■╓╨╝╟┬╝╡─╫╓╢╬
│ñ┐╔▒Σ╙╔╢║║┼╫≈╬¬╫╓╢╬╓«╝Σ╡─╢¿╜τ╖√, ╝╟┬╝╙╔╗╪│╡
╜ß╩°íú╨Φ╩╣╙├╢║║┼╡─╫╓╢╬▒╪╨δ╙├╥²║┼└¿╞≡íú
delimited with blank     ╓╕╢¿╥╗╕÷╙├┐╒╕±╫≈╬¬╢¿╜τ╖√╡─╬─╝■, ╬─╝■╓╨╡─╫╓╖√
╫╓╢╬╨═▓╗╨Φ╥¬╙├╥²║┼▒Ω├≈▒▀╜τíú╘┌╠╪╩Γ╟Θ┐÷╧┬, ╙├╗º
┐╔╥╘═¿╣²╛°╢╘╥²╙├╗≥║Ω╠µ╗╗╓╕╢¿╫╘╝║╡─╢¿╜τ╖√íú<xcDelilmiters> ╚τ
╣√╓╕╢¿┴╦delimited with ╫╙╛Σ, ╘≥▒╪╨δ╜½╦ⁿ╖┼╘┌├ⁿ┴ε╡─╫ε║≤íú
╦╡├≈:     ╚τ╣√═¿╣²<xcFile> ╓╕╢¿╡─╬─╝■▓╗─▄┤≥┐¬╗≥▓╗┤µ╘┌, ╘≥╗ß╥²
╖ó╥╗╕÷╘╦╨╨╩▒┐╠┤φ╬≤íú
└²╫╙:// ┤╙╬─╝■he. dbf ╓╨╢┴│÷┬·╫πage>=20 ╡─╝╟┬╝╠φ╝╙╡╜my ╓╨
    use my
    append field no, name, age from he. dbf for age>=20

▓╬╝√: copy, @2347 [fread]()

.3103
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

average
╙∩╖¿:     average <nExp List> to <idVar List> [<score>] [while <lCondition>];
    [for <lCondition>]
╙├═╛:     ╙├╙┌╝╞╦π╩²╛▌┐Γ╓╨╩²╛▌└α╨═╡─╞╜╛∙╓╡íú
▓╬╩²:
<nExp List>         ░ⁿ║¼╘┌average ├ⁿ┴ε╓╨╡─╫╓╢╬▒φ, ╫╓╢╬╓«╝Σ╙├╢║║┼╖╓╕⌠┐¬íú
<idVar List>         ▒ú┤µaverage ▓┘╫≈╜ß╣√╡─▒Σ┴┐▒φ, ╚τ▒Σ┴┐▓╗┤µ╘┌╗≥╢╘╣²│╠▓╗
┐╔╝√, ╘≥╥╘PRIVATE └α╨═╜¿┴ó╦ⁿ├╟íú
<nExp List>     ╤í╘±╡─├┐╥╗╕÷╫╓╢╬▒╪╨δ╙╨╥╗╕÷▒Σ┴┐╙δ╓«╢╘╙ªíú
 [<scope>]         ╘┤╩²╛▌┐Γ╓╨╝╟┬╝╡─╤í╚í╖╢╬ºíú╚τ╓╕╢¿NEXT<n>, ╘≥FOR/WHILE ╫╙╛Σ╜½▒╗
╖╧╞·íúALL ╩╟╥╗╕÷╚▒╩í╡─╤í╚í╖╢╬ºíú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
╦╡├≈:     ╘┌╢α╙├╗º╗╖╛│╓╨╓┤╨╨average ├ⁿ┴ε╩▒, ╘┌average ├ⁿ┴ε╓┤╨╨╞┌╝Σ, ╫╓╢╬
╓╡┐╔─▄▒╗╞Σ╦√╙├╗º╕─▒Σ, ╒Γ╔⌡╓┴┐╔╥²╞≡╘┌╕├├ⁿ┴ε═Ω
│╔┤ª└φ╓«╟░, ╜ß╣√╛═▒Σ╡├▓╗╛½╚╖íú
└²╫╙: // ╝╞╦π╩²╛▌┐Γmy ╓╨age ╫╓╢╬╓╡┤≤╙┌20 ╡─╝╟┬╝╡─age ╫╓╢╬╞╜╛∙
╓╡, ▓ó╜½╜ß╣√┤µ╡╜avage ╓╨
    use my
    average age to avage for age>=20

▓╬╝√: @3111[count], @3146[sum], @3147[total]

.3701
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@37[╧╡═│├ⁿ┴ε]

cancel|quit
╙∩╖¿: cancel|quit
╙├═╛: ╙├╙┌╬▐╠⌡╝■╡╪╓╒╓╣│╠╨≥, ╓╒╓╣│╠╨≥╓«╟░╣╪▒╒╦∙╙╨
┤≥┐¬╡─╬─╝■íú
╦╡├≈:     ╚τ╣√╘┌╡┌╥╗╕÷▒╗╡≈╙├╡─╣²│╠╓╨╛═░ⁿ║¼╥╗╠⌡return ╙∩
╛Σ, ╘≥╓┤╨╨╨º╣√╙δcancel ╗≥quit ╧α═¼íúcancel|quit ╙├╘┌│╠╨≥╡─╚╬║╬╡╪╖╜╓╒╓╣
│╠╨≥▓ó╟╥╜½┐╪╓╞╖╡╗╪DOSíú╜¿╥Θ╘┌Winbase ╧┬╙├windowexit( )║»╩²═╦│÷íú
└²╫╙:
if inkey() ==K_ESC
    // ╚τ╣√ESC ╝ⁿ▒╗░┤╧┬, ╘≥╓╒╓╣│╠╨≥▓ó╟╥╜½┐╪╓╞╖╡╗╪DOS
    quit
endif

.3008
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]


clear
╙∩╖¿: clear
╙├═╛: ╙├╡▒╟░▒│╛░╢╘╒√╕÷╞┴─╗╟σ╞┴íú
▓╬╩²: ╬▐
╦╡├≈: ╩╣╙├clear ├ⁿ┴ε╜½╚í╧√Getlist╩²╫Θíú
└²╫╙: clear

▓╬╝√: @3601[clear memory], @3603[release]

.3104
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

clear all
╙∩╖¿:     clear all
╙├═╛:     ╙├╙┌╣╪▒╒╦∙╙╨╡─▒╕╫ó╬─╝■║═╩²╛▌┐Γ╥╘╝░╧α╙ª
╡─╦≈╥²╬─╝■, ╔╛│²╦∙╙╨─┌┤µ▒Σ┴┐, ╜½╣ñ╫≈╟°╔Φ╓├╡╜1íú
▓╬╩²: ╬▐
╦╡├≈: clear all ▓╗╩═╖┼STATIC ╨═▒Σ┴┐║═LOCAL ╨═▒Σ┴┐, ╡½╩═╖┼PUBLIC ╨═▒Σ┴┐║═PRIVATE ╨═▒Σ┴┐íú
└²╫╙:    // ╧┬├µ╩╟╥╗░π╣²│╠╗≥║»╩²╡─╜ß╬▓
    clear
    clear all
    return

▓╬╝√: @3601[clear memory], @3105[close]

.3009
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]


clear gets
╙∩╖¿: clear gets
╙├═╛: ╙├╙┌╚í╧√╢╘GET ╡─╩Σ╚δíú
▓╬╩²: ╬▐
╦╡├≈:     ╚τ╣√╙├╗º╧δ▓╗╩╡╝╩╜╙╩╒▓┘╫≈╒▀╡─╩Σ╚δ╢°─ú─Γ
╥╗╕÷╩²╛▌╩Σ╚δ╞┴, ╘≥┐╔╙├CLEAR GETS ├ⁿ┴ε└┤╠µ╗╗READ ├ⁿ┴εíú
└²╫╙: name: ="tom"
    ú└ 12, 20 say " ╩Σ╚δ╨╒├√: " get name
    clear get // ▓╗─▄╨▐╕─name

▓╬╝√: @3005[ú└... say... get], @3013[read], @3008[clear]

.3601
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@36[─┌┤µ▒Σ┴┐├ⁿ┴ε]

clear memory
╙∩╖¿: clear memory
╙├═╛: ╙├╙┌╟σ│²╦∙╙╨╡─PUBLIC ╨═║═PRIVATE ╨═─┌┤µ▒Σ┴┐íú
╦╡├≈:     ╬¬┴╦╜÷╟σ│²╡▒╟░│╠╨≥─ú┐Θ╓╨╡─PRIVATE ╨═─┌┤µ▒Σ┴┐, ┐╔╩╣
╙├RELEASE ALL ├ⁿ┴ε, ╦ⁿ▓╗╙░╧∞LOCAL ║═STATIC ╨═╡─▒Σ┴┐íúrelease all ├ⁿ┴ε╜½▒ú┴⌠▒Σ┴┐▒φ╓╨╡─
▒Σ┴┐, ╡½╕°╦ⁿ├╟╕│╙ΦNIL ╓╡íú
└²╫╙:     temp: =231
    ? temp // ╖╡╗╪231
    clear memory
    ? temp //temp ╥╤▓╗┤µ╘┌, ╣╩╖ó╔·┤φ╬≤

▓╬╝√: release all, @3104[clear all]

.3401
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@34[╝ⁿ┼╠├ⁿ┴ε]

clear typeahead
╙∩╖¿: clear typeahead
╙├═╛: ╙├╙┌╟σ│²│¼╟░╝ⁿ╚δ╗║│σ╟°╡──┌╚▌íú
▓╬╩²: ╬▐
╦╡├≈:     ╡▒CPU ├ª╙┌╣ñ╫≈╢°╕·▓╗╔╧▓┘╫≈╒▀╡─╩Σ╚δ╦┘╢╚╩▒, WINBASE ╜½░╤
▓┘╫≈╒▀╡─╩Σ╚δ┤µ╚δ╥╗╕÷╗║│σ╟°╓╨íú
└²╫╙:
// ╡▒ESC ╝ⁿ▒╗░┤╧┬╩▒, ╟σ│²│¼╟░╝ⁿ╚δ╗║│σ╟°╡──┌╚▌, ╓┤╨╨╫╙│╠
╨≥my_pro
     if inkey() =27
        clear typeahead // ╚╖▒ú╗≈╝ⁿ▓╗╙░╧∞╫╙│╠╨≥
        do my_pro
    endif

▓╬╝√: @3403[keyboard], @3406[set typeahead]

.3010
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]


cls
╙∩╖¿: cls
╙├═╛: ╟σ│²╒√╕÷╞┴─╗, ╡½▓╗╚í╧√╚╬║╬Getlist ╩²╫Θíú
▓╬╩²: ╬▐
└²╫╙: cls

.3105
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

close
╙∩╖¿: close [<idalias>|ALL|ALTERNATE|DATABASES|FORMAT|INDEX]
╙├═╛: ╙├╙┌╣╪▒╒╬─╝■║═╩═╖┼╕±╩╜╬─╝■, ╣²┬╦╞≈╥╘╝░╣╪╧╡íú
▓╬╩²:
<idalias>         ╓╕╢¿╣ñ╫≈╟°íú╕├╣ñ╫≈╟°╓╨╡─╩²╛▌┐Γ║═╦∙╙╨╧α╣╪╡─
╬─╝■╜½▒╗╣╪▒╒íú
CLOSE ALL         ╣╪▒╒╦∙╙╨╣ñ╫≈╟°╓╨╦∙╙╨╬─╝■íú╩═╖┼╕±╩╜, ╣²┬╦╞≈║═╣╪
╧╡íú
CLOSE ALTERNATE     ╣╪▒╒╡▒╟░╠µ╗╗╬─╝■íú
CLOSE DATABASES     ╣╪▒╒╦∙╙╨╣ñ╫≈╟°╓╨╦∙╙╨╬─╝■╥╘╝░╚╬║╬╗ε╢»╡─╦≈
╥²╬─╝■íú
CLOSE FORMAT     ╚í╧√╚╬║╬╥╗╕÷╗ε╢»╕±╩╜╬─╝■íú
CLOSE INDEX     ╣╪▒╒╡▒╟░╤í╘±╣ñ╫≈╟°╓╨╡─╦∙╙╨╗ε╢»╡─╦≈╥²╬─╝■íú
╦╡├≈: ▓╗┤°▓╬╩²╡─CLOSE ├ⁿ┴ε╡╚╝█╙┌▓╗┤°▓╬╩²╡─USE ├ⁿ┴εíú
└²╫╙: close DATABASES

▓╬╝√: @3601[clear memory], @3104[clear all], @2411 [dbclosearea] ║»╩²

.3106
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

commit
╙∩╖¿: commit
╙├═╛:     ╧╚╜½WINBASE ╗║│σ╟°╡─╩²╛▌╨┤╚δ┤┼┼╠ú¼╚╗║≤╟σ│²╦∙╙╨WINBASE ╗║│σ
╟°▓ó╟╥╢╘╦≈╥²╜°╨╨╕ⁿ╨┬íú
▓╬╩²: ╬▐
└²╫╙:
    use guest
    10, 10 say " ╩Σ╚δ╡τ╗░║┼┬δ: " ;
        get myfile->phone picture" [phone]) "
    read
    commit // ▒ú╓ñ╩²╛▌▒╗╨┤╡╜┤┼┼╠╓╨

▓╬╝√: @2412 [dbcommit], @3105[close]

.3107
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

continue
╙∩╖¿: continue
╙├═╛: ╙├╙┌╓╪╨┬╝ñ╗ε╡▒╟░╤í╘±╣ñ╫≈╟°╓╨╡─locate ├ⁿ┴εíú
▓╬╩²: ╬▐
╦╡├≈:     WINBASE ╓º│╓╢α╕÷locate ├ⁿ┴ε, ╓╗╥¬locate ├ⁿ┴ε╙┌▓╗═¼╡─╤í╘±╣ñ╫≈╟°╓╨íú╩╣
╙├continue ├ⁿ┴ε┐╔╜½┬·╫πlocate ├ⁿ┴ε╡─┬▀╝¡╠⌡╝■╡─╧┬╥╗┤╬╝╟┬╝
╔Φ╓├╬¬╡▒╟░╝╟┬╝íú╚τ╣√continue ├ⁿ┴ε╗≥locate ├ⁿ┴ε├╗─▄╒╥╡╜┬·╫π┬▀
╝¡╠⌡╝■╡─╝╟┬╝, ╘≥EOF()╜½╬¬.T.íú
└²╫╙:// ╧┬└²╜½╘┌╞┴─╗╔╧╧╘╩╛age>60 ╡─╝╟┬╝╡─name ╫╓╢╬╓╡
     use my
    locate for age>60
    if eof()
        clear
        clear all
        return
    endif
    do while.T.
        cls
        ú└ 10, 10 say trim (name) +" ─Ω┴Σ│¼╣²60 ╦Ω"
        wait " ░┤╚╬╥╗╝ⁿ╝╠╨°▓Θ╒╥"
        continue
        if found()
            loop
        endif
    enddo

▓╬╝√: @3122[locate], @3116[find], @2450 [found](), @2427 [dbseek](), @2441 [eof]()

.3501
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@35[╡═╝╢╬─╝■├ⁿ┴ε]

copy file
╙∩╖¿: copy file <xcSourceFile> to <xcTargetFile>
╙├═╛: ╙├╙┌╢╘╚╬║╬└α╨═╡─╬─╝■╜°╨╨DOS ╖τ╕±╡─┐╜▒┤íú
▓╬╩²:
<xcSourceFile>    ▒╗┐╜▒┤╡─╘┤╬─╝■├√, ▒╪╨δ╠ß╣⌐╬─╝■╡─└⌐╒╣├√íú
<xcTargetFile>    ─┐▒Ω╬─╝■íú╚τ╙╨└⌐╒╣├√, ╘≥▒╪╨δ├≈╚╖╠ß╣⌐íú
╦╡├≈:     ╚τ╣√▓╗╠ß╣⌐╟²╢»╞≈/ ┬╖╛╢╨┼╧ó, ╘≥╝┘╢¿╘┤╬─╝■║═─┐
▒Ω╬─╝■╢╝╘┌╡▒╟░╫╙─┐┬╝╧┬íú
└²╫╙: copy file my. prg to you. prg

▓╬╝√: copy, @3101[append blank]

.3108
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

copy structure
╙∩╖¿: copy structure [fields<idField List>] to <xcDbfName>
╙├═╛:     ░┤╡▒╟░╩²╛▌┐Γ╦∙╤í╘±╫╓╢╬╔·│╔╜ß╣╣╧α═¼╡─┐Γ
(. DBF) ╬─╝■, ╕├╬─╝■▓╗║¼╚╬║╬╝╟┬╝íú
▓╬╩²:
[fields<idField List>]    ╙╔░ⁿ║¼╘┌╨┬╬─╝■╓╨╡─╫╓╢╬╫Θ│╔╡─╫╓╢╬▒φíú╚▒╩í╘≥
╦∙╙╨╡─╫╓╢╬╢╝╜½░ⁿ║¼╘┌╨┬╬─╝■╓╨íú
<xcDbfName>            ─┐▒Ω╬─╝■╡─├√│╞íú
╦╡├≈: ╨┬╔·│╔╡─╬─╝■▓╗╗ß╫╘╢»┤≥┐¬, ▒╪╨δ╙├USE ├ⁿ┴ε▓┼─▄┤≥
┐¬╦ⁿíú
└²╫╙:    use my //my ╩╟░ⁿ║¼╦∙╨Φ╩²╛▌┐Γ╜ß╣╣╡─╬─╝■
    ? date() // ╖╡╗╪02/03/94
    copy structure to "my"+str (month (date()), 2, 0) +"/";
    +str (year (date()), 2, 0)
    ? file ("my02/94. dbf") // ╖╡╗╪.T.

▓╬╝√: @3109[copy structure extended], @2414 [dbcreate]()

.3109
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

copy structure extended to
╙∩╖¿: copy structure extended to <xcDBFFileName>
╙├═╛:     ╔·│╔╥╗╕÷╩²╛▌┐Γ, ╬─╝■╓╨╡─╝╟┬╝░ⁿ║¼╡▒╟░╩╣╙├╬─
╝■╡─╜ß╣╣╨┼╧óíú
▓╬╩²:
    <xcDBFFileName>    ─┐▒Ω╬─╝■╡─├√│╞íú
╦╡├≈:     copy structure extended ╙╨╥╘╧┬4 ╕÷╫╓╢╬:
    ╫╓╢╬├√        ╫╓╢╬└α╨═
    FIELD_NAME     │ñ╢╚╬¬10 ╡─╫╓╖√╨═╫╓╢╬
FIELD_TYPE         │ñ╢╚╬¬1 ╡─╫╓╖√╨═╫╓╢╬; ║╧╖¿╧ε╬¬C (╫╓╖√╨═), N (╩²╫╓╨═) L (┬▀╝¡╨═), D (╚╒╞┌
╨═), M (─┌┤µ▒Σ┴┐╨═)
    FIELD_LEN         │ñ╢╚╬¬3 ╡─╒√╩²╫╓╢╬╨═, ├╗╙╨╨í╩²
    FIELD_DEC         │ñ╢╚╬¬3 ╡─╒√╩²╫╓╢╬╨═, ├╗╙╨╨í╩²
╘┌╩╣╙├CREATE FROM ├ⁿ┴ε╜½╥╗╕÷╛▀╙╨structure extended ╬─╝■╓╨╡─╝╟┬╝╦∙╓╕├≈╜ß
╣╣╡─. DBF ╬─╝■╨┤╗╪┤┼┼╠╓«╟░, ╙├╗º┐╔╥╘╢╘┤╦structure extended ╬─╝■╓╨╡─╝╟╜°
╨╨╨▐╕─▒α╝¡íú
└²╫╙:
    use my
    copy structure extended to myext
        //myext ╡─╝╟┬╝╜½╩╟my ╡─╜ß╣╣╨┼╧ó

▓╬╝√: @2414 [dbcreate](), @2444 [field](), @2252 [type]()

.3110
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

copy to
╙∩╖¿:     copy [fields <idField List>] to <xcFile> [<scope>]
     [while <lCondition>] [for <lCondition>];
     [sdf|delimited [with blank|<xcDelimiters>]]
╙├═╛:     ╜½─│╕÷╩²╛▌┐Γ╡─╚╬║╬╥╗▓┐╖▌┐╜▒┤╡╜┴φ╥╗╕÷╩²
╛▌┐Γ╬─╝■, SDF ╬─╝■    ╗≥DELIMITED ╬─╝■╓╨íú
▓╬╩²:
 [fields <idField List>]     ╓╕╢¿┐╜▒┤╡╜─┐▒Ω╬─╝■╓╨╡─╫╓╢╬
<xcDbfName>     ─┐▒Ω╬─╝■├√╗≥╙├╙┌╠µ┤·╬─╝■├√╡─▒φ┤∩╩╜
 [<scope>]     ╘┤╬─╝■╓╨╨Φ╥¬┐╜▒┤╡─▓┐╖▌, ╚▒╩í╬¬╦∙╙╨╝╟┬╝
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>         ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
sdf (╧╡═│╩²╛▌╕±╩╜)    ╛▀╙╨╣╠╢¿╫╓╢╬│ñ╡─ASCII ╬─╝■, ├┐╕÷╝╟┬╝╙╔╗╪
│╡╜ß╩°íú╬─╝■╜ß╩°▒Ω╓╛╬¬▒Ω╫╝╡─DOS ╬─╝■╜ß╩°▒Ω╓╛(CTRL-Z), ╫╓╢╬
╓«╝Σ▓╗╙├╚╬║╬╫╓╖√╢¿╜τíú
delimited         ╥╗╓╓╗∙▒╛╕±╩╜, ╝┤╢║║┼╢¿╜τ╡─ASCII ╬─╝■, ╬─╝■╓╨╝╟┬╝╡─╫╓╢╬
│ñ┐╔▒Σ, ╙╔╢║║┼╫≈╬¬╫╓╢╬╓«╝Σ╡─╢¿╜τ╖√, ╝╟┬╝╙╔╗╪│╡╜ß
╩°íú╨Φ╩╣╙├╢║║┼╡─╫╓╢╬▒╪╨δ╙├╥²║┼└¿╞≡íú
delimited with blank     ╓╕╢¿╥╗╕÷╙├┐╒╕±╫≈╬¬╢¿╜τ╖√╡─╬─╝■, ╬─╝■╓╨╡─╫╓╖√
╫╓╢╬╨═▓╗╨Φ╥¬╙├╥²║┼▒Ω├≈▒▀╜τíú╘┌╠╪╩Γ╟Θ┐÷╧┬, ╙├╗º
┐╔╥╘═¿╣²╛°╢╘╥²╙├╗≥║Ω╠µ╗╗╓╕╢¿╫╘╝║╡─╢¿╜τ╖√
<xcDelimiters>íú╚τ╣√╓╕╢¿┴╦delimited with ╫╙╛Σ, ╘≥▒╪╨δ╜½╦ⁿ╖┼╘┌├ⁿ┴ε╡─╫ε║≤íú
╦╡├≈:     ╚τ╣√▓╗╩╣╙├SET DELETED ON ├ⁿ┴ε, ╘≥╘┤╬─╝■╓╨╥╤▒╗╫≈╔╧╔╛│²▒Ω╝╟ú¼
╡½╗╣╬┤▒╗╤╣╦⌡╡⌠╡─╝╟┬╝╥▓╜½╥╗╞≡▒╗┐╜▒┤íú▒╗╥╗╕÷
╗ε╢»╡─╣²┬╦╞≈┬╦╡⌠╡─╝╟┬╝▓╗╗ß▒╗┐╜▒┤íú╚τ╣√─┐▒Ω╬─
╝■╥╤┤µ╘┌, ╘≥╦ⁿ╗ß▒╗╕▓╕╟íú╘┌═°┬τ╗╖╛│╓╨╩╣╙├╡─COPY ╜½╚▒╩í
╡╪░┤EXCLUSIVE ─ú╩╜┤≥┐¬─┐▒Ω╬─╝■íú
└²╫╙:     use my
    copy to myfile field name, age for age>30 DELIMITED
    type myfile. txt

▓╬╝√: @3102[append from], @3501[copy file], @3136[set deleted], @3108[copy structure]

.3111
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

count to
╙∩╖¿: count to <idVar> [<scope>] [while <lCondition>] [for <lCondition>];
╙├═╛:     ╝╞╦π╩²╛▌┐Γ╓╨╓╕╢¿╖╢╬º─┌▓ó╟╥┬·╫π─│╕÷┬▀╝¡
╠⌡╝■╡─╝╟┬╝╩²─┐íú
▓╬╩²:
<idVar>         ╓╕╢¿╥╗╕÷▒ú┤µ╕├├ⁿ┴ε╘╦╨╨╜ß╣√╡─▒Σ┴┐íú╚τ▒Σ┴┐▓╗
┤µ╘┌╗≥╢╘╣²│╠▓╗┐╔╝√, ╘≥╥╘PRIVATE └α╨═╜¿┴ó╦ⁿ├╟íú
 [<scope>]         ╘┤╩²╛▌┐Γ╓╨╝╟┬╝╡─╤í╚í╖╢╬ºíú╚τ╓╕╢¿NEXT<n>, ╘≥FOR/WHILE ╫╙╛Σ╜½▒╗
╖╧╞·íúALL ╩╟╥╗╕÷╚▒╩í╡─╤í╚í╖╢╬ºíú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
╦╡├≈:     ╘┌╢α╙├╗º╗╖╛│╓╨╓┤╨╨count ├ⁿ┴ε╩▒, ╫╓╢╬╓╡┐╔─▄▒╗╞Σ╦√
╙├╗º╕─▒Σ, ╒Γ╔⌡╓┴┐╔╥²╞≡╘┌╕├├ⁿ┴ε═Ω│╔┤ª└φ╓«╟░, ╜ß╣√
╛═▒Σ╡├▓╗╛½╚╖íú
└²╫╙:
// ╝╞╦π╩²╛▌┐Γmy ╓╨age ╫╓╢╬╓╡┤≤╙┌20 ╡─╝╟┬╝╡─╩²─┐, ▓ó╜½╜ß╣√
┤µ╡╜num ╓╨
use my
count to num for age>=20

▓╬╝√: @3103[average], @3146[sum], @3147[total]

.3112
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

create
╙∩╖¿: create <xcExtended Database>
╙├═╛: ╔·│╔╥╗╕÷▓╗║¼╚╬║╬╨┬╝╟┬╝╡─╨┬structure extended ╬─╝■íú
▓╬╩²:
    <xcExtended Database>    ╨┬╬─╝■├√
╦╡├≈: CREATE ├ⁿ┴ε┐╔╥╘╜½╥╗╕÷┐╒╡─structure extended ╬─╝■╨┤╡╜┤┼┼╠╔╧, ┐╔╥╘╘╩╨φ
╘┌╥╘║≤╢¿╥σ╥╗╕÷╨┬╩²╛▌┐Γ╜ß╣╣íú
└²╫╙: close DATABASES // ╣╪▒╒╦∙╙╨╬─╝■
    creat newfile // └⌐╒╣╩²╛▌┐Γ, ╜¿┴ó╨┬╡─╜ß╣╣
    use newfile
    append blank
    ? recno() // ╖╡╗╪1
    ú└ 10, 10 say "name: " get field_name
    ú└ 11, 10 say "type: " get field_type
    ú└ 12, 10 say "len: " get field_len
    ú└ 13, 10 say "dec: " get field_dec
    read // ╢┴╜°╡┌╥╗╕÷╫╓╢╬╡─╨┼╧ó

▓╬╝√: @3109[copy structure extended], @2414 [dbcreate]()

.3113
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

create from
╙∩╖¿: create <xcDatabase> from <xcExtended Database>
╙├═╛:     ╜¿┴ó╥╗╕÷╨┬╡─. DBF ╬─╝■, ╕├. DBF ╬─╝■╓╨╫╓╢╬╡─╢¿╥σ╥╘├ⁿ┴ε╓╨╓╕
╢¿╡─structure extended ╬─╝■╡─╝╟┬╝╬¬╥└╛▌íú
▓╬╩²:
<xcDatabase>         ─┐▒Ω╬─╝■├√
<xcExtended Database>    structure extended ╜ß╣╣╡─╩²╛▌┐Γ╬─╝■
╦╡├≈:     WINBASE ╓º│╓│ñ╢╚▓╗│¼╣²64K ╡─╫╓╖√╨═╫╓╢╬íú╬¬┴╦╓╕╢¿╥╗╕÷│ñ
╢╚│¼╣²999 ╫╓╖√╡─╫╓╢╬, ╙ª╢╘FIELD_DEC ▓╬╩²╕│╙Φ░┤╧┬├µ╖╜╖¿╝╞╦π
╡├╡╜╡─╓╡: ╫╓╢╬│ñ│²256 ║≤╚í╒√íú│²┤╦╓«═Γ, ╗╣╙ª╕├╜½╫╓╢╬│ñ
│²256 ║≤╡─╙α╩²╕│╕°FIELD_LENíú
└²╫╙: creat another from myextended
    use another
    ? lastkey (0) // ╖╡╗╪0

▓╬╝√: @3109[copy structure extended], @3112[create], @2414 [dbcreate]()

.3602
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@36[─┌┤µ▒Σ┴┐├ⁿ┴ε]

default with
╙∩╖¿: default <xV> with <xN> [,<xV2> with <xN2>...]
╙├═╛: ╢╘╢α╕÷─┌┤µ▒Σ┴┐╕│╚▒╩í╓╡ú¿╚τ╣√╒Γ╨⌐▒Σ┴┐╡─╓╡
╬¬NILú⌐íú
▓╬╩²:
    <xV>         ▒╗╕│╓╡╡─▒Σ┴┐├√
     <xN>        ╕│╕°▒Σ┴┐╡─╓╡, ┐╔╥╘╩╟╚╬╥Γ└α╨═
└²╫╙: defaut lo with .T. , x with 1
             ? lo
              ? x

.3114
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

delete
╙∩╖¿: delete [<scope>] [while <lCondition>] [for <lCondition>]
╙├═╛: ▒Ω╝╟╔╛│²╡─╝╟┬╝íú
▓╬╩²:
<scope>         ╘┌░ⁿ║¼╥¬╔╛│²╝╟┬╝╡─╬─╝■╓╨╓╕╢¿╖╢╬º, ╚▒╩í╬¬╡▒╟░
╝╟┬╝
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿╫╓
╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
╦╡├≈:     ╙├RECALL ┐╔╥╘╗╓╕┤▒╗┬▀╝¡╔╛│²╡─╝╟┬╝; DELETED() ║»╩²╢╘┬▀╝¡╔╛│²
╡─╝╟┬╝╜½╖╡╗╪.T. ╓╡íúSET DELETED ON ├ⁿ┴ε╜½╡╝╓┬┤≤▓┐╖▌├ⁿ┴ε║÷┬╘▒╗╫≈┴╦
┬▀╝¡╔╛│²▒Ω╝╟╡─╝╟┬╝íú▒╗╫≈┴╦┬▀╝¡╔╛│²▒Ω╝╟╡─╝╟┬╝
┐╔╥╘╝╠╨°▒╗╒²│ú╦≈╥²íú▒╗╫≈┴╦┬▀╝¡╔╛│²▒Ω╝╟╡─╝╟┬╝
╘┌┴╨▒φ╧╘╩╛╩▒╜½▒╗▒Ω╔╧╨╟║┼íú
└²╫╙:
// ╧┬└²╜½▒Ω╝╟no<1000 ╡─╝╟┬╝▓ó╔╛│²╒Γ╨⌐╝╟┬╝
delete all for no<1000
zap

▓╬╝√: @2416 [dbdelete](), @3136[set deleted], @3129[pack], @3151[zap]

.3502
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@35[╡═╝╢╬─╝■├ⁿ┴ε]

delete file/erase
╙∩╖¿: delete file<xcFile> ╗≥erase <xcFile>
╙├═╛: ┤╙┤┼┼╠╔╧╔╛│²╥╗╕÷╬─╝■
▓╬╩²:
<xcFile>    ╥¬╔╛│²╡─╬─╝■├√ú¿╥¬╟≤┤°└⌐╒╣├√ú¼▓╗╓º│╓═¿┼Σ╖√ú⌐íú
└²╫╙: delete file my.tmp

.3115
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

display
╙∩╖¿:     display <expList> [TO PRINT] [TO FILE <xcFile>];
    <scope> [while <lCondition>] [for <lCondition>]
╙├═╛: ╩Σ│÷╛▌┐Γ╓╨╦∙╤í╝╟┬╝╡─╫╓╢╬║═╫╓╢╬╦π╩╜╡─╓╡íú
▓╬╩²:
    expList            ╫╓╢╬║═╫╓╢╬╦π╩╜╡─╓╡
TO PRINT         ╜½╩Σ│÷╦═╡╜┤≥╙í╗·íú╚τ╣√├╗╙╨╩╣╙├SET CONSOLE OFF ├ⁿ┴ε, ╘≥╩Σ│÷╒╒╤∙
╘┌╞┴─╗╔╧╧╘╩╛íú
TO FILE         ╔·│╔╥╗╕÷ASCII ╬─╝■, ╩Σ│÷▒╗╦═╡╜╕├╬─╝■╥╘▒π╥╘║≤╜°╨╨╝∞
▓Θíú
<xcFile>         ╙├└┤╓╕╢¿─┐▒Ω╬─╝■├√╡─╥╗╕÷▒φ┤∩╩╜íú
 [<scope>]         ╘┌░ⁿ║¼╙├╗º╨Φ╥¬╧╘╩╛╡─╬─╝■╓╨╓╕╢¿╥╗╧╘╩╛╖╢╬º, NEXT 1 ╩╟
╥╗╚▒╩í╖╢╬ºíú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
OFF         ▓╗╧╘╩╛╝╟┬╝║┼íú
╦╡├≈: ╚τ╣√TO FILE ╚╬╤í╧ε╓╕╢¿└⌐╒╣├√╩º░▄, ╘≥╩╣╙├. TXT └⌐╒╣├√
└²╫╙: use my
    display no, name, age

▓╬╝√: @3121[list]

.3011
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

eject
╙∩╖¿: eject
╙├═╛: ╧≥┤≥╙í╗·╖ó╦═╥╗╕÷╗╗╥│├ⁿ┴ε
▓╬╩²: ╬▐
╦╡├≈: ╚τ╣√╙├╗º╞≤═╝╘┌╨í╙┌╡▒╟░PROW() ╓╡╡─╨╨╔╧┤≥╙í, ╘≥╥╗╕÷
╗╗╨╨╫╓╖√╗ß╫╘╢»╦═╡╜┤≥╙í╗·íú
└²╫╙: set printer on
    ? "this page"
    eject
    ? "next page" // ╘┌╡┌╢■╥│0 ╨╨┴╨╩Σ│÷next page
    set printer off

.3116
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

find
╙∩╖¿: find <xcSearchString>
╙├═╛:     ╜½╝╟┬╝╓╕╒δ╢¿╬╗╡╜╡┌╥╗╕÷╞Ñ┼Σ│╔╣ª╡─╝╟┬╝ú¼╞Ñ┼Σ
╘┌╝╟┬╝╡─╦≈╥²╝ⁿ╓╡╙δ╦╤╦≈┤«╓«╝Σ╜°╨╨íú
▓╬╩²:
<xcSearchString>    ╦╤╦≈┤«▒φ┤∩╩╜, ▒φ┤∩╩╜╓╨║¼╙╨╥¬╦╤╦≈╡─╫╓╖√┤«╗≥╙├
└¿║┼└¿╞≡╡──│╕÷▒φ┤∩╩╜íú
╦╡├≈:     ╙├╗º┐╔╘┌╦╤╦≈┤«╓╨╩╣╙├▓╗═Ω╚½╝ⁿ╓╡íú╚τ╣√╦╤╦≈┤«
╓╨░ⁿ║¼╟░╡╝┐╒╕±, ╘≥▒╪╨δ╙δ╦≈╥²╝ⁿ░ⁿ║¼╡─╟░╡╝┐╒╕±
╩²╧α═¼íú╘┌╦≈╥²╬─╝■╓╨, ╩²╫╓╨═╝ⁿ╙├╟░╡╝┴π▓╣╞δ║≤┤µ╓ⁿíú
╬¬┴╦╒╥╡╜╥╗╕÷╩²╫╓╨═╝ⁿ, ▒╪╨δ░╤╦ⁿ╫¬╗╗╬¬╥╗╕÷┤«, ▓ó╟╥
╠φ╝╙╟░╡╝┴π▓╣╞δíú┤«╓╨╡─╩²╫╓▒╪╨δ╙δ╝ⁿ╓╡╧α═¼íú    ╚τ╣√
FIND ├ⁿ┴ε├╗╙╨╒╥╡╜╞Ñ┼Σ│╔╣ª╡─╝╟┬╝, ╘≥╜½╓╕╒δ╢¿╬╗╡╜╬─
╝■─⌐╬▓(EOF() =.T.), ▓ó╟╥FOUND() ║»╩²╖╡╗╪.F.íú╚τ╣√╩╣╙├┴╦SET SOFTSEEK ON ├ⁿ┴ε, ╘≥╜°╨╨▓╗╛½╚╖╞Ñ
┼Σíú╝╟┬╝╓╕╒δ▒╗╢¿╬╗╡╜╡┌╥╗┤╬╒╥╡╜▓ó╟╥┬·╫π╕├╝╟
┬╝╡─╦≈╥²╝ⁿ╓╡┤≤╙┌╦≈╥²╓╡íúEOF(), FOUND() ╢╝╖╡╗╪.F. ╓╡íú
└²╫╙: use my index name
    find "└ε╤╟├╖"
    ? recno()
    look: ="xieping"
    find (look) // ═¿╣²║Ω╔Φ╓├╬¬find ▓╬╩²
    ? recno()

▓╬╝√: @2450 [found](), @2441 [eof](), @2431 [dbsetindex]()

.3117
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

go/goto
╙∩╖¿: go [to] <nRecord>|bottom|top
╙├═╛: ╙├└┤╜½╝╟┬╝╓╕╒δ╢¿╬╗╡╜╩²╛▌┐Γ╡─╓╕╢¿╬╗╓├íú
▓╬╩²:
<nRecord>     ╓╕╢¿╥¬╟≤╡─╝╟┬╝║┼, ╝┤╩╣╙╔╕├▓╬╩²╓╕╢¿╡─╝╟┬╝╥╤▒╗
▒Ω╔╧╔╛│²▒Ω╝╟, ╗≥╒▀╥╤▒╗╥╗╕÷╗ε╢»╡─╣²┬╦╞≈┬╦│÷, go/goto ├ⁿ┴ε
╥▓─▄╜½╝╟┬╝╓╕╒δ╢¿╬╗╡╜╕├╝╟┬╝╔╧íú
bottom     ╓╕╢¿╡▒╟░╬─╝■╓╨╡─╫ε║≤╥╗╕÷╝╟┬╝, ╢°▓╗╣▄╕├╝╟┬╝╩╟
╖±╥╤▒╗SET DELETED, SET INDEX TO ╗≥SET FILTER TO ├ⁿ┴ε╦∙┐╪╓╞íú
top     ╓╕╢¿╡▒╟░╬─╝■╓╨╡─╡┌╥╗╕÷╝╟┬╝, ╢°▓╗╣▄╕├╝╟┬╝╩╟╖±
╥╤▒╗SET DELETED, SET INDEX TO ╗≥SET FILTER TO ├ⁿ┴ε╦∙┐╪╓╞íú
└²╫╙: use my
    go bottom
    skip
    ? eof() // ╖╡╗╪.T.

▓╬╝√: @2421 [dbgoto](), @3144[skip]

.3118
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

index
╙∩╖¿: index on <keyExp> to <xcIndex> [UNIQUE] [scope] [FOR <lCondition>];
    [WHILE <lCondition>] [EVAL<lCondition>] [EVERY <nRecord>];
    [ASCENDIND]|[DESCENDING]

╙├═╛: ╢╘╥╗╕÷╩²╛▌┐Γ╓╨╡─╝╟┬╝╜°╨╨┬▀╝¡┼┼╨≥íú
▓╬╩²:
<keyExp>           ╥¬╖┼╚δ╦≈╥²╬─╝■╡─╝ⁿ
<xcIndex>          ╔·│╔╡─╦≈╥²╬─╝■├√, ╙├╗º┐╔╥╘╩╣╙├╙δDBASE PLUS╝µ╚▌╡─.NDX ╦≈╥²╬─
╝■, ╚τ▓╗╙├.NDX, ╘≥WINBASE ╫╘╢»╧≥╙├╗º╠ß╣⌐┐∞╦┘.NTX ╬─╝■íú
 UNIQUE             ╓╕╢¿╕├╣╪╝ⁿ╫╓╜½╩╣╡├╦≈╥²╬─╝■╓╨├┐╕÷╦≈╥²╝ⁿ╓╡
╢╝╩╟╬¿╥╗╡─, ╢╘╦≈╥²╬─╝■╓╨╛▀╙╨╧α═¼╦≈╥²╝ⁿ╓╡╡─╝╟
┬╝╜÷╢╘╫ε╟░├µ╡──╟╕÷╝╟┬╝╜° ╨╨╦≈╥²íú
scope        ╫≈╦≈╥²╝╟┬╝╡─╖╢╬ºíú
FOR <lCondition>    ╢╘╖√║╧lCondition ╠⌡╝■▒φ┤∩╩╜╡─╝╟┬╝╦≈╥²ú¼FOR <lCondition> ╜½▒ú┤µ╘┌╦≈╥²╬─╝■╓╨ú¼╙├
REINDEX ├ⁿ┴ε╩▒╚╘╞≡╫≈╙├íú
WHILE <lCondition>    ╡▒lCondition ╠⌡╝■▒φ┤∩╩╜╬¬.F. ╗≥╟≤╓╡╩º░▄╩▒╜½═ú╓╣╦≈╥²ú¼WHILE <lCondition> ╩╟┴┘╩▒
╠⌡╝■ú¼╙├REINDEX ├ⁿ┴ε╩▒▓╗╘┘╞≡╫≈╙├íú
EVAL <lCondition>    ╘┌├┐╕÷╝╟┬╝╔╧╗≥░┤EVERY ╫╙╛Σ╓╕╢¿╡─╝╟┬╝╢╘lCondition ╟≤╓╡ú¼lCondiftion .F. ╩▒╜½═ú
╓╣╦≈╥²íúEVAL ╫╙╛Σ╩╟┴┘╩▒┤µ╘┌╡─íú
EVERY <nRecord>    ╓╕╢¿╝ñ╗εEVAL ╫╙╛Σ╡─╝╟┬╝╝Σ╕⌠ú¼╚▒╩í╬¬╦∙╙╨╝╟┬╝íú

ASCENDIND        ░┤╔²╨≥╦≈╥²
DESCENDING        ░┤╜╡╨≥╦≈╥²

╦╡├≈: DTOS( ) ║»╩²┐╔╥╘╢╘╕┤║╧╝ⁿ╓╨╚╒╞┌╫╓╢╬╜°╨╨╦≈╥²íú╜½DESCEND ▓╬╩²
╙├╫≈╦≈╥²╝ⁿ▓ó╟╥╙├╫≈FIND ╗≥SEEK ├ⁿ┴ε▒φ┤∩╡─╥╗▓┐╖▌, ╘≥┐╔╥╘
╔·│╔╡╣╨≥╡─╦≈╥²íú╦≈╥²░┤ASCII ┬δ╦│╨≥╔·│╔íúLOCAL ║═STATIC ╨═▒Σ┴┐▓╗─▄╙├
╫≈╦≈╥²╡─╥╗▓┐╖▌íú
   └²╫╙:     use my
     index on name to namefile
     index on age to agefile
     use my index name,age

    index on age to agefile for age>20 eval ntxproc every lastrec()/10
        ...
    function ntxproc
    local crec:=ltrim(str(recno( )/lastrec( )*100))
        ú└10,10 say "Index ... "+crec
    return .T.

   ▓╬╝√: @2431 [dbsetindex]( ), @2415 [dbcreateind]( ), @2456 [indexord]( ), @2455 [indexkey]( )

.3402
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@34[╝ⁿ┼╠├ⁿ┴ε]

input
╙∩╖¿: input [<expPrompt>] to <idVar>
╙├═╛:     ╜½╙├╗º╩Σ╚δ(╫ε╢α255 ╕÷╫╓╖√) ╓▒╜╙▓σ╚δ╥╗╕÷─┌┤µ▒Σ┴┐
╓╨íú╩Σ╚δ▒╪╨δ╩╟╥╗║╧╖¿▒φ┤∩╩╜(╫╓╖√┤«▒╪╨δ╙├└¿║┼
╥²╞≡), ╖±╘≥╗ß╥²╖ó╥╗╕÷╘╦╨╨┤φ╬≤íú
▓╬╩²:
    <expPrompt>         ╩Σ╚δ╠ß╩╛, ╫╓╖√┤«íú
<idVar>     ┤µ╖┼╜ß╣√╡─▒Σ┴┐, ╚τ╣√▒Σ┴┐▓╗┤µ╘┌╗≥╢╘╕├├ⁿ┴ε▓╗┐╔
╝√, ╘≥░┤private ╨═╜¿┴ó╕├▒Σ┴┐íú
╦╡├≈: ╩Σ╚δ╠ß╩╛▒╪╨δ╙├╥²║┼╥²╞≡└┤, ╖±╘≥╗ß╥²╞≡╥╗╕÷╘╦
╨╨╩▒┐╠┤φ╬≤
└²╫╙: input "your name" to name

▓╬╝√: @3007[accept... to], @3033[wait]

.3119
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

join
╙∩╖¿:     join with <xcAlias> to <xcDatabase> for <lCondition>;
    [FIELDS <idField List>]
╙├═╛:     ╙├╙┌┴¼╜╙╡▒╟░╩²╛▌┐Γ╓╨╡─╝╟┬╝║═╡┌╢■╕÷╩²╛▌
┐Γ╓╨┬·╫π╠⌡╝■╡─╝╟┬╝íú
▓╬╩²:
<xcAlias>         ╖╟╡▒╟░╤í╘±╣ñ╫≈╟°╓╨╦∙┤≥┐¬╡─╩²╛▌┐Γ├√íú
<xcDatabase>         ╜½▒╗╨┤╚δ┤┼┼╠╡─┴╜╕÷╬─╝■┴¼╜╙╜ß╣√╡─╬─╝■├√íú
<lCondition>         ┬▀╝¡┐╪╓╞╠⌡╝■, ╡┌╢■╕÷╩²╛▌┐Γ╓╨┬·╫π╕├╠⌡╝■╡─╝╟┬╝
╜½▒╗┴¼╜╙▓ó╟╥╨┤╚δ╥╗╕÷╨┬╬─╝■íú
FIELDS <idField List>     ░ⁿ║¼╘┌╨┬╬─╝■╓╨╡─╫╓╢╬▒φíú╬¬┴╦░ⁿ║¼╡┌╢■╕÷╬─╝■
╓╨╡─╫╓╢╬, ╕°╒Γ╨⌐╫╓╢╬╤í╚í┴╦▒≡├√íú╚▒╩í╟Θ┐÷╧┬, ╨┬╬─╝■
╜½░ⁿ║¼╡┌╥╗╕÷╬─╝■╓╨╡─╦∙╙╨╫╓╢╬║═╡┌╢■╕÷╬─╝■
╓╨╙δ╡┌╥╗╬─╝■╡─╫╓╢╬▓╗╓╪├√╡─╦∙╙╨╫╓╢╬íú
└²╫╙:    use my
    select 2
    use he
    select 1
    join with he to newfile for age<20 field name, no

▓╬╝√: @3102[append from], @3132[replace], @3141[set relation]

.3403
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@34[╝ⁿ┼╠├ⁿ┴ε]

keyboard
╙∩╖¿: keyboard <cString>
╙├═╛: ╩╫╧╚╟σ│²│¼╟░╝ⁿ╚δ╗║│σ╟°ú¼╚╗║≤╜½╥╗╕÷┤«╓├╚δ╗║
│σ╟°╓╨íú
▓╬╩²:
    <cString>    ╓├╚δ│¼╟░╝ⁿ╚δ╗║│σ╟°╡─┤«íú
╦╡├≈:     ▓╗╣▄╘┌║╬╩▒╜½╫╓╖√┤«╓├╚δ│¼╟░╝ⁿ╚δ╗║│σ╟°, ╫╓╖√
┤«╓╨╡─╒Γ╨⌐╫╓╖√╢╝┐╔╥╘▒╗│╠╨≥╓╨╕├├ⁿ┴ε╡─║≤╝╠├ⁿ
┴ε╢┴╚í, ╦ⁿ├╟╦∙╞≡╡─╫≈╙├╕·▓┘╫≈╘▒╘┌╝ⁿ┼╠╔╧╓▒╜╙╩Σ
╚δ╒Γ╨⌐╫╓╖√╧α═¼íú
└²╫╙:
/* ╡▒ESC ▒╗░┤╧┬╩▒, ╟σ│²│¼╟░╝ⁿ╚δ╗║│σ╟°╡──┌╚▌, ╓├╥╗╗╪│╡╖√
╡╜╗║│σ╟°    */
 if inkey() =K_ESC
    keyboard chr (13)
    endif

▓╬╝√: @3401[clear typeahead], @1507 [lastkey](), @1504 [inkey]()

.3120
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

label from
╙∩╖¿: label from <xcLBLFileName> [to printer] [to file <xcFile>];
    <scope> [while <lCondition>] [for <lCondition>] [sample]
╙├═╛: ╩╣╙├▒Ω╟⌐╬─╝■┤≥╙í╗≥╧╘╩╛▒Ω║┼íú
▓╬╩²:
<xcLBLFileName>         ▒ú┤µ▒Ω║┼╦╡├≈╡─▒Ω╟⌐(. LBL) ╬─╝■├√íú
to printer         ╜½╩Σ│÷╦═╡╜┤≥╙í╗·íú╚τ╣√├╗╙╨╩╣╙├SET CONSOLE OFF ├ⁿ┴ε,íí╘≥╩Σ│÷╥▓╘┌
╞┴─╗╔╧╧╘╩╛íú
to file <xcFile>         ╜¿┴ó╩Σ│÷╜ß╣√╡─ASCII ╬─╝■╦∙╩╣╙├╡─╬─╝■├√íú
<scope>         ╓╕╢¿╬─╝■╓╨╡─╖╢╬º, ALL ╩╟╥╗╚▒╩í╖╢╬ºíú
while <lCondition>         ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition>íí╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>         ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
sample         ╥¬╟≤╕°│÷▒Ω║┼╡─┤≥╙í╕±╩╜└²╫╙íú
└²╫╙: use my
    cls
    set console off
    label from killbl for state="FL" sample to print

.3121
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

list
╙∩╖¿: list <expList> [TO PRINT] [TO FILE <xcFile>];
    <scope> [while <lCondition>] [for <lCondition>] [OFF]
╙├═╛: ╙├╙┌╧╘╩╛║═┤≥╙í╩²╛▌┐Γ╓╨╦∙╤í╝╟┬╝╡─╫╓╢╬║═
╫╓╢╬╦π╩╜╡─╓╡íú
▓╬╩²:
    expList            ╫╓╢╬║═╫╓╢╬╦π╩╜╡─╓╡íú
TO PRINT     ╜½╩Σ│÷╦═╡╜┤≥╙í╗·íú╚τ╣√├╗╙╨╩╣╙├SET CONSOLE OFF ├ⁿ┴ε,íí╘≥╩Σ│÷╒╒╤∙
╘┌╞┴─╗╔╧╧╘╩╛íú
TO FILE         ╔·│╔╥╗╕÷ASCII ╬─╝■, ╩Σ│÷▒╗╦═╡╜╕├╬─╝■╥╘▒π╥╘║≤╜°╨╨╝∞
▓Θíú
<xcFile>         ╙├└┤╓╕╢¿─┐▒Ω╬─╝■├√╡─╥╗╕÷▒φ┤∩╩╜íú
 [<scope>]         ╘┌░ⁿ║¼╙├╗º╨Φ╥¬╧╘╩╛╡─╬─╝■╓╨╓╕╢¿╥╗╧╘╩╛╖╢╬º, all ╩╟
╥╗╚▒╩í╖╢╬ºíú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition>íí╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
OFF             ▓╗╧╘╩╛╝╟┬╝║┼íú
╦╡├≈: ╚τ╣√TO FILE ╚╬╤í╧ε╓╕╢¿└⌐╒╣├√╩º░▄, ╘≥╩╣╙├. TXT └⌐╒╣├√íú
└²╫╙:     // ╧┬└²┴╨│÷┬·╫πage=20 ╡─╝╟┬╝╡─name, no, age
    use my
    list name, no, age for age=20 to file disp OFF

▓╬╝√: @3115[display]

.3122
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

locate
╙∩╖¿: locate [<scope>] for <lCondition> [while <lCondition>]
╙├═╛: ╕∙╛▌<lCondition> ╓╕╢¿╡─╠⌡╝■, ┤╙╩²╛▌┐Γ╓╨╤í╘±╝╟┬╝íú
▓╬╩²:
[<scope>]         ╘┌╝╟┬╝╨Φ╥¬╢¿╬╗╡─╬─╝■╓╨╓╕╢¿╥╗╕÷╖╢╬ºíúALL ╩╟╥╗╕÷
╚▒╩í╖╢╬ºíú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿╫╓
╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú

╦╡├≈:  WINBASE ╢╘├┐╥╗╕÷╣ñ╫≈╟°╓º│╓╥╗╕÷╗ε╢»╡─╦≈╥²íú
    ▓╗┬█║╬╩▒, ╙├╗º╢╝┐╔╩╣╙├╦≈╥²└┤╤░╒╥╦∙╨Φ╥¬╡─╡┌╥╗
╕÷╝╟┬╝íúlocate ├ⁿ┴ε┤╙╬─╝■═╖┐¬╩╝╢╘├┐╥╗╕÷╝╟┬╝╟≤╓╡, ╓▒╡╜
╖ó╧╓╥╗╕÷╞Ñ┼Σ<lCondition> ╠⌡╝■╡─╝╟┬╝íú╚τ╣√locate ├ⁿ┴ε├╗╙╨╒╥╡╜╞Ñ┼Σ
│╔╣ª╡─╝╟┬╝, ╘≥╜½╓╕╒δ╢¿╬╗╡╜╬─╝■─⌐╬▓(EOF() =.T.), ▓ó╟╥found() ║»╩²╖╡
╗╪.F.íú╚τ╣√locate ├ⁿ┴ε╒╥╡╜╞Ñ┼Σ│╔╣ª╡─╝╟┬╝, ╘≥found() ║»╩²╖╡╗╪.T.íú
└²╫╙:// ╧┬└²╜½╘┌╞┴─╗╔╧╧╘╩╛age>60 ╡─╝╟┬╝╡─name ╫╓╢╬╓╡
    use my
    locate for age>60
    if eof()
        clear
        clear all
        return
    endif
    do while.T.
        cls
        ú└ 10, 10 say trim (name) +" ─Ω┴Σ│¼╣²60 ╦Ω"
        wait " ░┤╚╬╥╗╝ⁿ╝╠╨°▓Θ╒╥"
        continue
        if found()
            loop
        endif
    enddo

▓╬╝√: @3107[continue], @3116[find], @2450 [found](), @2427 [dbseek]()

.3012
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

menu to
╙∩╖¿: menu to <idVar>
╙├═╛:     ╢╘╡▒╟░│╔┼·╡─ú└... pormpt ├ⁿ┴ε╠ß╣⌐╥╗╕÷┴┴╠⌡▓╦╡Ñ╤í╘±, ▓ó╟╥
╜½╤í╘±┤µ╚δ╥╗╕÷─┌┤µ▒Σ┴┐╓╨íú
▓╬╩²:
<idVar>    ┤µ╖┼▓╦╡Ñ╤í╧ε╡─▒Σ┴┐├√íú╚τ╣√─┌┤µ▒Σ┴┐<idvar> ▓╗┤µ╘┌╗≥
╢╘╡▒╟░▓╗┐╔╝√, ╘≥╜¿┴ó╥╗╕÷PRIVATE ╨═▒Σ┴┐íú
╦╡├≈:     menu to ├ⁿ┴ε╧≥ú└... pormpt ├ⁿ┴ε╠ß╣⌐╢»╫≈, ╡▒▓┘╫≈╒▀╘┌┴┴╠⌡▓╦╡Ñ╓╨╥╞
╢»╤í╘±╩▒, menu to ├ⁿ┴ε╜½╢╘╙ª╙┌╤í╘±╡─╨≥║┼┤µ╚δ<idVar> ▒Σ┴┐╓╨, ╝ⁿ╚δ
ESC ╜½╖╡╗╪0 ╓╡íú├┐╕÷▓╦╡Ñ╫ε╢α╘╩╨φ╙╨32 ╕÷╤í╘±╧εíú
└²╫╙:// ╔·│╔┴┴╠⌡▓╦╡Ñ
    set wrap on
    set message to 24, center
    ú└ 10, 20 prompt " ╘÷╝╙: " message " ╘÷╝╙╥╗╕÷╨┬╝╟┬╝"
    ú└ 11, 20 prompt " ▒α╝¡: " message " ▒α╝¡╥╗╕÷╝╟┬╝"
    ú└ 12, 20 prompt " ╔╛│²: " message " ╔╛│²╥╗╕÷╝╟┬╝"
    menu to temp
    do case
    case temp=0
        return
    case temp=1
        add()
    case temp=2
        edit()
    case temp=3
        mydel()
    endcase

▓╬╝√: @3030[set wrap]

.3123
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

netappend blank
╙∩╖¿: netappend blank
╙├═╛:     ╢╘═°┬τ╔╧╡─╩²╛▌┐Γ╡──⌐╬▓╠φ╝╙╥╗╕÷┐╒╝╟┬╝ú¼▓ó
╟╥╜½╓╕╒δ╢¿╬╗╘┌╨┬╠φ╝╙╡─┐╒╝╟┬╝╔╧íú
▓╬╩²:     ╬▐

.3124
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

netappend from
╙∩╖¿:     netappend from <xcFile> [fields <idField list>] [<scope>];
    [while <lCondition>] [for <lCondition>];
    [sdf|delimited [with blank|<xcDelimiters>]]
╙├═╛:     ╜½─│╕÷═°┬τ╩²╛▌┐Γ(. DBF) ╬─╝■╗≥╥╘╢║║┼╢¿╜τ╡─╬─▒╛
╬─╝■╗≥╒▀╧╡═│╩²╛▌╕±╩╜(. SDF) ╬─╝■╓╨╡─╝╟┬╝╢┴│÷└┤╠φ
╝╙╡╜┴φ╥╗╕÷═°┬τ╩²╛▌┐Γ(. DBF) ╬─╝■╓╨íú
▓╬╩²:
from     ╓╕╢¿╘┤╬─╝■<xcFile> íú╚τ╣√▓╗╓╕╢¿╬─╝■└α╨═, ╘≥╚▒╩í└⌐╒╣├√╬¬. DBFíú╚τ
╣√╓╕╢¿┴╦╬─╝■└α╨═╡½╬─╝■├√▓╗║¼└⌐╒╣├√, ╘≥╝┘╢¿└⌐
╒╣├√╬¬. TXTíú
 [fields <idField list>]     ╘┌╜╙╩╒╡─. DBF ╬─╝■╓╨╤í╘±╥¬╠ε╨┤╡─╫╓╢╬íú╦ⁿ├╟╡─└α╨═▒╪
╨δ╙δ╘┤╬─╝■╓╨╡─╧α═¼íú╚τ╘┤╫╓╢╬│ñ╢╚┤≤╙┌─┐╡─╫╓
╢╬│ñ╢╚, ╘≥╩²╛▌╜½▒╗╜╪╢╠íú
 [<scope>]     ╘┤╩²╛▌┐Γ╓╨╝╟┬╝╡─╤í╚í╖╢╬ºíú╚τ╓╕╢¿NEXT<n>, ╘≥FOR/WHILE ╫╙╛Σ╜½▒╗
╖╧╞·íú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú

.3125
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

netdelete
╙∩╖¿: netdelete [<scope>] [while <lCondition>] [for <lCondition>]
╙├═╛: ╘┌═°┬τ╔╧╔╛│²╝╟┬╝íú
▓╬╩²:
<scope>         ╘┌░ⁿ║¼╥¬╔╛│²╝╟┬╝╡─╬─╝■╓╨╓╕╢¿╖╢╬º, ╚▒╩í╬¬╡▒╟░
╝╟┬╝íú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿╫╓
╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú

.3126
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

netrecall
╙∩╖¿: netrecall [<scope>] [for <lCondition>] [while <lCondition>]
╙├═╛: ╘┌═°┬τ╔╧╗╓╕┤╥╤▒╗┬▀╝¡╔╛│²╡─╝╟┬╝íú
▓╬╩²:
<scope>     ╘┌░ⁿ║¼╥¬╗╓╕┤╝╟┬╝╡─╬─╝■╓╨╓╕╢¿╥╗╕÷╖╢╬ºíú╡▒╟░╝╟
┬╝╩╟╥╗╕÷╚▒╩í╖╢╬ºíú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú

.3127
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

netreplace
╙∩╖¿:     netreplace <idField1> with <exp1> [,<idField2> with <exp2>];
    [<scope>] [for <lCondition>] [while <lCondition>]
╙├═╛: ╘┌═°┬τ╔╧░╤▒φ┤∩╩╜╡─╓╡╫░╘╪╡╜─│╕÷╗ε╢»╩²╛▌
┐Γ╡─╫╓╢╬╓╨íú
▓╬╩²:
<idField1>    ╨Φ╥¬╫░╘╪╓╡╡─╫╓╢╬íú╒Γ╨⌐╫╓╢╬┐╔╥╘╩╟▒≡├√▒φ┤∩íú
<exp1>     ╫░╘╪╡╜╫╓╢╬╓╨╡─╓╡íú
<scope>         ╘┌╬─╝■╓╨╓╕╢¿╥╗╕÷╖╢╬ºíú╡▒╟░╝╟┬╝╩╟╥╗╕÷╚▒╩í╖╢
╬ºíú╡½╩╟, ╚τ╣√╓╕╢¿┴╦╥╗╕÷╠⌡╝■, ╘≥ALL ▒Σ│╔╚▒╩í╖╢╬ºíú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú

.3128
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

netupdate
╙∩╖¿: netupdate from <xAlias> on <expkey> [RANDOM];
    REPLACE <idField1> with <exp> [, <idField> with <exp>...]
╙├═╛: ╘┌═°┬τ╔╧╙├╘┤╩²╛▌┐Γ╡──┌╚▌╕ⁿ╨┬╡▒╟░╩²╛▌┐Γíú
▓╬╩²:
<xAlias>     ░ⁿ║¼╕ⁿ╨┬▓┘╫≈╓╨╘┤╩²╛▌┐Γ╡─╣ñ╫≈╟°íú
<expkey>     ┴╜╕÷╬─╝■╡─╣▓═¼╝ⁿíú╜÷╡▒╝ⁿ╞Ñ┼Σ╩▒, ▓┼╓┤╨╨╕ⁿ╨┬▓┘╫≈íú
<idField> with <exp>     ╨Φ╨▐╕─╡─╫╓╢╬╫Θ│╔╡─▒φ, ╫╓╢╬╓«╝Σ╙├╢║║┼╖╓╕⌠┐¬íú╨▐
╕─╩▒╜½╥╘▒φ┤∩╩╜╡─╓╡╫≈╬¬╕∙╛▌íú
RANDOM     ╘┌╬─╝■╓«╝Σ╓╕╢¿╥╗╕÷╥╗╢╘╢α╣╪╧╡íú╚τ╓╕╢¿RANDOM, ╘≥╦╤╦≈
╘┤╬─╝■╓╨╦∙╙╨╞Ñ┼Σ<expkey> ╡─╝╟┬╝, ▓ó╙├╒Γ╨⌐╝╟┬╝╚Ñ╕ⁿ╨┬╡▒
╟░╩²╛▌┐Γ╓╨╡▒╟░╝╟┬╝└∩├µ╡──╟╨⌐╙╔├ⁿ┴ε╦∙╓╕╢¿╡─
╫╓╢╬íú

.3702
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@37[╧╡═│├ⁿ┴ε]

note
╙∩╖¿: note <comment>
╙├═╛: ╙├╙┌╜½╖╟╓┤╨╨╙∩╛Σ(╫ó╩═) ╖┼╚δ┤·┬δ╓╨
╦╡├≈:     ╙╨╢α╓╓╨╬╩╜╡─╫ó╜Γ, ╚τ/* ║═*/; //; *; &&ú¼╫ó╜Γ▓╗─▄╟╢╠╫
└²╫╙:     use my && ▒╛╫ó╜Γ┤ª╙┌╥╗╕÷╓┤╨╨╨╨╔╧íú
* ▒╛╫ó╜Γ╒╝╥╗╕÷╓┤╨╨╨╨
note ╒Γ╥▓╩╟╥╗╕÷╫ó╜Γ¬│
/* ╒Γ╩╟C ╨╬╩╜╡─╥╗╕÷╫ó╜Γ
╒Γ╩╟╨╬╩╜╡─╥╗╕÷╫ó╜Γ
╒Γ╩╟╨╬╩╜╡─╥╗╕÷╫ó╜Γ*/
// ╒Γ╓╓╨╬╩╜╡─╫ó╜Γ╥▓┐╔╜╙╩▄

.3703
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@37[╧╡═│├ⁿ┴ε]

on error do
╙∩╖¿:    ON ERROR DO [ <cErrFunc> ] ╗≥ON ERROR [ <cErrFunc> ]
╙├═╛:  ╡▒┤φ╬≤╖ó╔·╩▒ú¼┤φ╬≤┐╪╓╞╘≥╜╗╕°╙╔<cErrFunc> ╓╕╢¿╡─║»╩²┤ª
└φíú╖±╘≥╜½╚í╧√╡▒╟░╡─┤φ╬≤┤ª└φíú
▓╬╩²:
<cErrFunc>        │÷┤φ┤ª└φ║»╩²├√,    ╕├║»╩²╡─╢¿╥σ╚τ╧┬ú║
    Function err_func (<errmsg>, <errarr>, <tracearr>, <retry>, <ignore>)
            :
        <│÷┤φ┤ª└φ▓┐╖╓>
            :
    Return(<retral>)
╞Σ╓╨ú║<errmsg> -- ╗∙▒╛┤φ╬≤╨┼╧ó
    <errarr> ---- ┤φ╬≤╡─╧╕╜┌ú¼╦ⁿ╩╟╙╔╥╘╧┬┴∙╕÷▓┐╖╓╫Θ│╔╡─╫╓╖√╩²╫Θ

{SYMBOL 183 \f "Symbol" \s 10 \h}    ╡▒╟░│÷┤φ╦∙╜°╨╨╡─▓┘╫≈
{SYMBOL 183 \f "Symbol" \s 10 \h}    │÷┤φ╡─╬─╝■├√
{SYMBOL 183 \f "Symbol" \s 10 \h}    DOS ┤φ╬≤╨┼╧ó
{SYMBOL 183 \f "Symbol" \s 10 \h}    ░ⁿ║¼│÷┤φ╖ó╔·╡π╡─║»╩²├√│╞
{SYMBOL 183 \f "Symbol" \s 10 \h}    │÷┤φ╬╗╓├
{SYMBOL 183 \f "Symbol" \s 10 \h}    │÷┤φ▓╬╩²

<tracearr>    ╚τ╣√─│╕÷▓┐╖╓├╗╙╨─┌╚▌ú¼╘≥╕├▓┐╖╓╬¬┐╒┤«╙╔╡≈╙├╣∞
╝ú╫Θ│╔╡─╫╓╖√╩²╫Θú¼╡┌╥╗╕÷╬¬winbase ╙ª╙├│╠╨≥╡─╓≈║»╩²ú¼╫ε║≤
╥╗╕÷╬¬┤φ╬≤╖ó╔·╟░╓┤╨╨╡─║»╩²íú
<retry>     ┤µ╖┼╩╟╖±┐╔╓╪╩╘╡─┬▀╝¡╓╡íú╚⌠╕├╓╡╬¬╒µú¼╘≥┐╔╓╪╩╘ú¼╖±╘≥
╓╪╩╘╬▐╨ºíú
<ignore>     ┤µ╖┼╩╟╖±┐╔║÷┬╘╡─┬▀╝¡╓╡íú╚⌠╕├╓╡╬¬╒µú¼┐╔║÷┬╘╡▒╟░
┤φ╬≤ú¼ ╖±╘≥║÷┬╘╡─╗░ú¼─│╨⌐┤φ╬≤┐╔─▄╡╝╓┬╧╡═│▒└└úíú
╥╘╔╧╬σ╕÷▓╬╩²╢╝╩╟╙╔╧╡═│╫╘╢»╔Φ╓├╡─ú¼╙ª╙├│╠╨≥╓╨
╓╗╨Φ╥¬╢╘╞Σ╜°╨╨╩╣╙├╝░┼╨╢╧íú
<retval>     ┤φ╬≤╧╡═│╡─╖╡╗╪╓╡ú¼╘┌╜°╨╨═Ω┤ª└φ║≤ú¼┐╔╖╡╗╪╚τ╧┬╡─╓╡ú║

        0 ---- ═╦│÷    1 ---- ╓╪╩╘    2 ---- ║÷┬╘

╦╡├≈ú║╘┌╩╣╙├╫╘╢¿╥σ║»╩²╜°╨╨┤φ╬≤┐╪╓╞╩▒ú¼▒╪╨δ╫ó╥Γ╥╘
╧┬╝╕╕÷╬╩╠Γú║
(1) ╚⌠╩╟│÷╧╓í░─┌┤µ▓╗╣╗í▒╡─┤φ╬≤ú¼<errarr> ╩²╫Θ╝░<tracearr> ╩²╫Θ╛∙╬¬┐╒ú¿│ñ╢╚
╬¬0ú⌐íú
(2) ╘┌╡≈╙├winbase ─│╨⌐╓╪╥¬║»╩²╓«╟░ú¼└²╚τú║╩²╛▌┐Γ╬¼╗ñ╡─║╦╨─║»
╩²winbrowsíó▒¿▒φ╧╡═│╡─║╦╨─║»╩²design ╡╚ú¼ ╚τ╣√┤φ╬≤┐╪╓╞╧╡═│
╩╟╬¬╠╪▒≡─┐╡─╔Φ╝╞╡─ú¼╫ε║├╘┌╩╣╙├╒Γ╨⌐║»╩²╓«╟░
╜½╞Σ╣╪▒╒ú¼╩╣╙├═Ω║≤╘┘╜½╞Σ┤≥┐¬íú
(3) ╥¬╝∞▓Γ┐╪╓╞╡─╖╡╗╪╓╡ú¼╢°╟╥╖╡╗╪╓╡╥╗╢¿╥¬╒²╚╖ú¼╖±╘≥
┐╔─▄╡╝╓┬╦└╗·╗≥╧╡═│▒└└úíú

└²╫╙ú║
    ╫╘╢¿╥σ┐╪╓╞║»╩²newerrorú¼╚⌠┤φ╬≤┐╔║÷┬╘╘≥▓╗╧╘╩╛╚╬║╬╨┼
╧óú¼╖±╘≥╧╘╩╛╡▒╟░┤φ╬≤╨┼╧ó╝░▓┘╫≈ú¼╚╗║≤═╦│÷╧╡═│ú║

    procedure My_proc( )
        windowstart( )
        on error newerror     // ╗≥╒▀onerror do newerror
            :
               <╞Σ╦ⁿ┐╔╓┤╨╨╙∩╛Σ╗≥║»╩²>
            :
        on error        // ╗≥╒▀on error do
        windowexit( )
    Return

    Function newerror (msg, errarr, tracearr, retry, ingore)
    Local operation :=0
        if ignore
            return(2)     // ║÷┬╘╡▒╟░┤φ╬≤
        endif
        if ! Empty (errarr)
            operation = "▓┘╫≈: " + errarr[1]     // ╡▒╟░▓┘╫≈
        endif
        msgbox(msg, operation, 1)
    Return(0)            // ═╦│÷


.3129
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

pack
╙∩╖¿: pack
╙├═╛:     ╙├╙┌╢╘╩²╛▌┐Γ╓╨╫≈╔╧┬▀╝¡╔╛│²▒Ω╝╟╡─╝╟┬╝╜°
╨╨╬∩└φ╔╛│², ╓╪╨┬╦≈╥²╩²╛▌┐Γ, ╩╒╗╪▒╗╔╛│²╝╟┬╝╦∙╒╝╛▌
╡─┤┼┼╠┐╒╝Σíú
▓╬╩²:  ╬▐
╦╡├≈:  ╚τ╣√╥¬╔╛│²╢α╕÷╝╟┬╝, ╘≥╙ª╡╚╡╜─ú┐Θ╓╨╫ε║≤╥╗╕÷
┬▀╝¡╔╛│²▓┘╫≈═Ω│╔╥╘║≤▓┼╓┤╨╨PACK ├ⁿ┴εíú
└²╫╙:
/* ╢╘╩²╛▌┐Γmy ╓╨┬·╫πno<1000 ╡─╝╟┬╝╫≈╔╧┬▀╝¡╔╛│²▒Ω╝╟, ▓ó╜°╨╨
╬∩└φ╔╛│²*/
 use my
    delete all for no<1000
    pack
▓╬╝√: @3151[zap]

.3013
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

read
╙∩╖¿: read [save]
╙├═╛: ╩╣╙├ú└... say... get ├ⁿ┴ε└┤╜╙╩╒▓┘╫≈╒▀╡─╩Σ╚δíú
▓╬╩²:
[save]     ▓╗╟σ┐╒Getlist ╩²╫Θ╥╘▒π┐╔╥╘╙├╞Σ╦ⁿREAD ├ⁿ┴ε└┤▒α╝¡╦ⁿ├╟íú
╦╡├≈:     ╘┌READ ╓┤╨╨╞┌╝Σ, ╚τ╣√╙╨╚╬║╬Getlist ╩²╫Θ╘¬╦╪╖ó╔·╕─▒Σ, UPDATED()     ║»╩²╜½╖╡
╗╪.T. ╓╡íú
└²╫╙: // ╧┬├µ└²╫╙╘┌╡┌╥╗╕÷READ ╓╨╝Σ░┤╧┬F10, ╘≥╙╓┐╔│÷╧╓╡┌╢■
╕÷READ
    cls
    v1: =v2: =space (10)
    ú└ 11, 5 say " ╩Σ╚δ╥╗╕÷╫╓: " get v1
    ú└ 12, 5 say " ╩Σ╚δ╥╗╕÷╫╓: " get v2
    set key -9 to next_gets
    read
    set key -9 to
    cls
    return
    prcedure next_gets
    local GetList: = {}
    temp: =savescreen (10, 5, 13, 70)
    v3: =space (4)
    ú└ 11, 15 say " ╩Σ╚δ╥╗╕÷╫╓: " get v3
    read
    ú└ 13, 15 say " ─π╩Σ╚δ╡─╩╟: "+v3+" ░┤╚╬╥╗╝ⁿ.. "
    inkey (0)
    restscreen (10, 5, 13, 70, temp)
    return

    ▓╬╝√: @3009[clear gets]


.3130
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

recall
╙∩╖¿: recall <scope> [for <lCondition>] [while <lCondition>]
╙├═╛: ╗╓╕┤╥╤▒╗┬▀╝¡╔╛│²╡─╝╟┬╝íú
▓╬╩²:
<scope>         ╘┌░ⁿ║¼╥¬╗╓╕┤╝╟┬╝╡─╬─╝■╓╨╓╕╢¿╥╗╕÷╖╢╬ºíú╡▒╟░╝╟
┬╝╩╟╥╗╕÷╚▒╩í╖╢╬ºíú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
╦╡├≈:     ╚τ╣√╩╣╙├┴╦SET DELETED ON ├ⁿ┴ε, ╘≥recall ╜÷╗╓╕┤╡▒╟░╝╟┬╝╗≥╙╔╝╟┬╝║┼
╓╕╢¿╡─╝╟┬╝íú
└²╫╙: recall all for age=20// ╗╓╕┤┬·╫πno<1000 ╡─╫≈╔╧┬▀╝¡╔╛│²▒Ω╝╟╡─╝╟┬╝

▓╬╝√: @2423 [dbrecall]()

.3131
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

reindex
╙∩╖¿: reindex  [EVAL<lCondition>] [EVERY <nRecord>]
╙├═╛: ╙├╙┌╓╪╜¿╡▒╟░╣ñ╫≈╟°╓╨╦∙╙╨┤≥┐¬╡─╦≈╥²╬─╝■íú
▓╬╩²:
EVAL <lCondition>    ╘┌├┐╕÷╝╟┬╝╔╧╗≥░┤EVERY ╫╙╛Σ╓╕╢¿╡─╝╟┬╝╢╘lCondition ╟≤╓╡ú¼lCondiftion .F. ╩▒╜½═ú
╓╣╦≈╥²íú
EVERY <nRecord>    ╓╕╢¿╝ñ╗εEVAL ╫╙╛Σ╡─╝╟┬╝╝Σ╕⌠ú¼╚▒╩í╬¬╦∙╙╨╝╟┬╝íú


╦╡├≈: ╘┌═°┬τ╔╧╩╣╙├reindex ├ⁿ┴ε╩▒, ╙ª─▄▒ú╓ñ╢╘╩²╛▌┐Γ╡─╗Ñ│Γ
╩╣╙├íúreindex ├ⁿ┴ε▓╗╕─╢»╦≈╥²╬─╝■═╖íú
└²╫╙: use oldfile
    index on age to agefile
        ...
    reindex eval ntxproc every lastrec 9 ) /10
    function ntxproc
    local crec:=ltrim(str(recno( )/lastrec( )*100))
        ú└10,10 say "Index ... "+crec
    return .T.

▓╬╝√: @3118[index], @3129[pack], @3139[set index], @3143[set unique], @2424 [dbreindex]()

.3603
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@36[─┌┤µ▒Σ┴┐├ⁿ┴ε]

release
╙∩╖¿: release <idMemvar list> ╗≥release all [like|except <skeleton>]
╙├═╛: ┤╙─┌┤µ╓╨╔╛│²╦∙╤í╘±╡─▒Σ┴┐║═╩²╫Θ
▓╬╩²:
<idMemvar list>     ╙├╗º╥¬╩═╖┼╡─▒Σ┴┐╗≥╙╔╥¬╩═╖┼╡─▒Σ┴┐╫Θ│╔╡─▒φ, ▒Σ
┴┐╓«╝Σ╙├╢║║┼╕⌠┐¬
all [like|except]     ╖╢╬º├ⁿ┴ε, ╦ⁿ╓╕╢¿╥¬├┤░ⁿ║¼║══¿┼Σ╖√─ú╩╜╧α╞Ñ┼Σ╡─
▒Σ┴┐, ╥¬├┤▓╗░ⁿ║¼║══¿┼Σ╖√─ú╩╜╧α╞Ñ┼Σ╡─▒Σ┴┐íú
    <skeleton>        ═¿┼Σ╖√─ú╩╜
╦╡├≈:     ╚τ╣√╙├┤°╙╨<idMemvar list> ▓╬╩²╡─release ├ⁿ┴ε└┤╩═╖┼╥╗╫Θ▒Σ┴┐, ╘≥▓╬╩²
╓╨PUBLIC ╨═║═PRIVATE ╨═╡─▒Σ┴┐║═╩²╫Θ╜½┤╙─┌┤µ╓╨╔╛│², ╜÷╡▒╟░╣²
│╠╡─▒Σ┴┐╩▄╡╜╙░╧∞íúrelease all ├ⁿ┴ε╜½╩╣╡├╘┌╡▒╟░╣²│╠╓╨╜¿┴ó╡─
PRIVATE ╨═▒Σ┴┐▒╗╕│╙ΦNIL ╓╡íú╡½╘┌╕├╣²│╠╓╒╓╣╓«╟░, ╒Γ╨⌐▒Σ┴┐║═╩²
╫Θ▓╗╗ß┤╙─┌┤µ╓╨╔╛│²íúrelease all ▓╗─▄╔╛│²PUBLIC ╨═▒Σ┴┐íú
    release ├ⁿ┴ε▓╗╙░╧∞LOCAL ╨═║═STATIC ╨═▒Σ┴┐íú
└²╫╙:
st1: =st2: =ss1: =ss2: =ss3: =easy: =hard: =try: =0
release all except ss* // ─┌┤µ╓╨╓╗╙╨ss1, ss2, ss3
st1: =st2: =ss1: =ss2: =ss3: =easy: =hard: =try: =0
release all like s? 2 //st2 ║═ss2 ▒╗╩═╖┼
release all like s* // ─┌┤µ╓╨╓╗╙╨easy, hard, try
release all // ╡▒╟░├╗╙╨╗ε╢»╡─▒Σ┴┐

▓╬╝√: @3104[clear all], @3601[clear memory], quit

.3504
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@35[╡═╝╢╬─╝■├ⁿ┴ε]

rename
╙∩╖¿: rename <xcOldFileNam> to <xcNewFileNam>
╙├═╛: ╙├╙┌╕─▒Σ┤┼┼╠╔╧╬─╝■╡─├√│╞íú
▓╬╩²:
    <xcOldFileNam>     ╡▒╟░┬╖╛╢, ╬─╝■├√╝░└⌐╒╣├√
    <xcNewFileNam>     ╕°╬─╝■╞≡╡─╨┬├√│╞

╦╡├≈:     ╥¬╗╗├√╡─╬─╝■▒╪╨δ╩╟╣╪▒╒╡─íú╢╘┤°╙╨▒╕╫ó╫╓╢╬╡─
╩²╛▌┐Γ╬─╝■╗╗├√╩▒, ╥▓╙ª╕°╧α╙ª╡─. DBT ╬─╝■╗╗├√íú
└²╫╙: rename c: \my\mypro. prg to c: \my\you. prg // ░╤╬─╝■mypro. prg ╗╗├√╬¬you. prg

▓╬╝√: @2350 [frename]()

.3132
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

replace
╙∩╖¿:     replace <idField1> with <exp1>;
     ú█<idField2> with <exp2>];
    <scope> [for <lCondition>] [while <lCondition>]
╙├═╛: ░╤▒φ┤∩╩╜╡─╓╡╫░╘╪╡╜─│╕÷╗ε╢»╩²╛▌┐Γ╡─╫╓╢╬
╓╨íú
▓╬╩²:
<idField1>    ╨Φ╥¬╫░╘╪╓╡╡─╫╓╢╬íú╒Γ╨⌐╫╓╢╬┐╔╥╘╩╟▒≡├√▒φ┤∩íú
<exp1>     ╫░╘╪╡╜╫╓╢╬╓╨╡─╓╡íú
<scope>         ╘┌╬─╝■╓╨╓╕╢¿╥╗╕÷╖╢╬ºíú╡▒╟░╝╟┬╝╩╟╥╗╕÷╚▒╩í╖╢
╬ºíú╡½╩╟, ╚τ╣√╓╕╢¿┴╦╥╗╕÷╠⌡╝■, ╘≥ALL ▒Σ│╔╚▒╩í╖╢╬ºíú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
╦╡├≈:     ╚τ╣√╫░╘╪╡─╫╓╢╬╩╟╗ε╢»╦≈╥²╝ⁿ▒φ┤∩╩╜╡─╥╗▓┐
╖▌, ╘≥╦≈╥²╜½▒╗┴ó╝┤╨▐╒², ╥≥╬¬╝╟┬╝╓╕╒δ╜½╓╪╨┬╢¿╬╗, ╦∙╥╘
╖╢╬º(<scope>) ╫╙╛Σ╜½▒Σ╡├╬▐╥Γ╥σíú╘┌═°┬τ╓╨, ╚τ╣√╜÷╫░╘╪╥╗╕÷╝╟
┬╝╡─╫╓╢╬, ╙ª╚╖▒ú╥╤╟í╡▒╡╪╩╣╙├RLOCK() ║»╩²╦°╫í╕├╝╟┬╝íú╚τ
╣√╩╟╢╘╥╗╫Θ╡─╫╓╢╬╜°╨╨╫░╘╪, ╙ª╩╣╙├FLOCK() ║»╩², ╢╘╒√╕÷╬─╝■
╝╙╦°, ╥╘▒ú╓ñ░┤╗Ñ│Γ╖╜╩╜(EXCLUSIVE ╖╜╩╜) ╩╣╙├╕├╬─╝■íú┐╔╢╘▒╕╫ó╫╓╢╬
╫░╘╪╫╓╢╬╓╡íú
└²╫╙: replace all age with age+1 // ├┐╠⌡╝╟┬╝╡─age ╘÷╝╙1
    goto 5
    replace name with liping, age with 19, no with 1949
    // ╕─▒Σ╡▒╟░╝╟┬╝╡─name, age, no ╫╓╢╬

▓╬╝√: @3149[update]

.3133
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

report from
╙∩╖¿: report from <xcFRMFile>;
     [TO PRINTER] [TO FILE <xcFile>];
    <scope> [while <lCondition>] [for <lCondition>];
     [PLAIN|HEADING <cHeading>] [NOEJECT] [SUMMARY]
╙├═╛: ╔·│╔╙╔. FRM ▒¿▒φ╬─╝■┐╪╓╞╡─╩Σ│÷íú
▓╬╩²:
<xcFRMFile>        FRM ▒¿▒φ╬─╝■├√, ╕├▓╬╩²┐╔▒φ╩╛│╔╥╗╕÷╬─╫╓┤«╗≥└¿║┼╓╨
╡─╫╓╖√▒φ┤∩╩╜íú
TO PRINT         ╜½╩Σ│÷╦═╡╜┤≥╙í╗·íú╚τ╣√├╗╙╨╩╣╙├SET CONSOLE OFF ├ⁿ┴ε, ╘≥╩Σ│÷╒╒╤∙
╘┌╞┴─╗╔╧╧╘╩╛íú
TO FILE         ╔·│╔╥╗╕÷ASCII ╬─╝■, ╩Σ│÷▒╗╦═╡╜╕├╬─╝■╥╘▒π╥╘║≤╜°╨╨╝∞
▓Θíú
<xcFile>         ╙├└┤╓╕╢¿─┐▒Ω╬─╝■├√╡─╥╗╕÷▒φ┤∩╩╜íú
 [<scope>]         ╘┌░ⁿ║¼╩Σ│÷╝╟┬╝╡─╬─╝■╓╨╓╕╢¿╥╗╧╘╩╛╖╢╬º, all ╩╟╥╗╚▒
╩í╖╢╬ºíú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
PLAIN         ▓╗┤≥╙í╚╒╞┌║═╥│║┼, ╜÷╘┌╡┌╥╗╥│╢Ñ╢╦┤≥╙í▒¿▒φ═╖║═
▒Ω╠Γíú
HEADING <cHeading>     ╙├└┤╖┼╓├▒¿▒φ╢Ñ╢╦╡─┐¬═╖╨╨íú
NOEJECT     ┤≥╙í┐¬╩╝╟░, ▓╗╧≥┤≥╙í╗·╖ó╦═╗╗╥│╖√íú
SUMMARY     ╘┌▒¿▒φ╓╨╓╗╠ß╣⌐╫Θ║═╖╓╫Θ╡─╨╨╨í╝╞╙δ╨╨╫▄╝╞íú
└²╫╙: use my index name
    set console off // ╣╪▒╒╞┴─╗╩Σ│÷
    report from myinfo for no<1000 to print
            // ╜½┬·╫π╠⌡╝■╡─╝╟┬╝╩Σ│÷╦═╡╜┤≥╙í╗·
    set console on // ┤≥┐¬╞┴─╗╩Σ│÷

▓╬╝√: @3019[set console]

.3601
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@36[─┌┤µ▒Σ┴┐├ⁿ┴ε]

restore
╙∩╖¿: restore from <xcMemfile> [ADDITIVE]
╙├═╛: ╘┌─┌┤µ╓╨╓╪╨┬╗╓╕┤╖┼╘┌. MEM ┤┼┼╠╬─╝■╓╨╡──┌┤µ▒Σ┴┐íú
▓╬╩²:
<xcMemfile>    MEM ╬─╝■├√, ▒Σ┴┐╡─╓╡┤µ╖┼╘┌╒Γ╕÷╬─╝■╓╨, ╕├▓╬╩²┐╔╥╘╩╟╥╗
╕÷╬─╫╓┤«, ╥▓┐╔╥╘╩╟└¿║┼└¿╞≡╡─╫╓╖√▒φ┤∩╩╜ú¼╚▒╩í╡─
└⌐╒╣├√╬¬. MEMíú
[ADDITIVE]     ╜½. MEM ╬─╝■╡──┌╚▌╗╓╕┤╡╜─┌┤µ╢°▓╗╙░╧∞╥╤╘┌─┌┤µ╡─╞Σ
╦√▒Σ┴┐íú╖±╘≥, ╘┌─┌┤µ╓╨╗╓╕┤. MEM ╬─╝■╓«╟░, ╡▒╟░╙├PUBLIC ║═PRIVATE ╦╡├≈╡─╦∙╙╨
▒Σ┴┐╢╝╜½▒╗╟σ│², │²╖╟╒Γ╕÷▒Σ┴┐╩╟▓╗┐╔╝√╡─, ╖±╘≥╚╬║╬
═¼├√▒Σ┴┐╢╝╜½▒╗╕▓╕╟íú
╦╡├≈:     ╗╓╕┤│÷╡─╒Γ╨⌐▒Σ┴┐╫≈╙├╖╢╬º▒╗╢¬╩º, ╦ⁿ├╟╙╔╖ó│÷
restore ├ⁿ┴ε╡─╣²│╠╓╪╨┬╜¿┴ó, ╞Σ╫≈╙├╖╢╬º╙╔╜¿┴ó╦ⁿ├╟╡─╣²
│╠╡──┌═Γ▓π┤╬╛÷╢¿íú
    ╕├├ⁿ┴ε▓╗╙░╧∞LOCAL ╨═║═STATIC ╨═▒Σ┴┐╡─╓╡, │²╖╟╩╟╙├memvar ╙∩╛Σ╦╡├≈
╡─▒≡├√íú
└²╫╙:     restore from varis // ─┌┤µ╓╨╓╗╙╨╬─╝■╓╨╡─╗ε╢»▒Σ┴┐
    restore from rel ADDITIVE
    /* ─┌┤µ╓╨╓╗╙╨╬─╝■rel ╓╨╡─╗ε╢»▒Σ┴┐╝░╔╧┤╬│⌡╩╝╡─▒Σ
┴┐*/

▓╬╝√: @3605[save]

.3014
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

restore screen
╙∩╖¿: restore screen [from <idVar>]
╙├═╛: ╙├╙┌╗╓╕┤save screen ├ⁿ┴ε▒ú┤µ╡─╞┴─╗ú¿╙├╙┌╬─▒╛ú⌐
▓╬╩²:
    <idVar>    ┤µ╓ⁿ╞┴─╗╡─▒Σ┴┐├√
╦╡├≈:  ╚τ╣√╙├save screen ├ⁿ┴ε╜½╞┴─╗┤µ╚δ╥╗╗║│σ╟°╓╨, ╘≥▓╗╙├╓╕╢¿
─┌┤µ▒Σ┴┐, ╒Γ╩▒▓╗┤°▓╬╩²╡─restore screen ├ⁿ┴ε╗╓╕┤╞┴─╗╤╒╔½┐╔╫≈
╬¬▒Σ┴┐╡─╥╗▓┐╖▌╜°╨╨┤µ╓ⁿ, ╚τ╣√├╗╙╨╩╣╙├set color ├ⁿ┴ε, ╘≥░┤╘¡└┤╡─
╤╒╔½╗╓╕┤íú
└²╫╙:
restore screen // ┤µ╓ⁿ╞┴─╗╩▒├╗╙╨╜½─┌╚▌╖┼╡╜▒Σ┴┐╓╨
restore screen from memvr// ┤╙▒Σ┴┐memvr ╓╨╗╓╕┤╞┴─╗

▓╬╝√: @3604[restore], @1740 [restscreen]()

.3505
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@35[╡═╝╢╬─╝■├ⁿ┴ε]

run
╙∩╖¿: run <cCmd>
╙├═╛:     ╙├╙┌╫░╘╪╥╗╕÷DOS ├ⁿ┴ε┤ª└φ╞≈, ▓ó╘┌WINBASE ╙ª╙├│╠╨≥╓╨╓┤╨╨
╥╗╕÷DOS ├ⁿ┴ε╗≥╘╦╨╨═Γ▓┐╬─╝■íú
▓╬╩²: <cCmd> ╥¬╘╦╨╨╡─DOS ├ⁿ┴ε
╦╡├≈:     ┐╔═¿╣²╘┌DOS ╠ß╩╛╖√╧┬╝ⁿ╚δEXIT ├ⁿ┴ε└┤╖╡╗╪╡╜WINBASE ╙ª╙├│╠
╨≥╓╨íú╘┌═°┬τ╗╖╛│╓╨╙ª▒ú╓ñ╘┌DOS ╗╖╛│▒Σ┴┐COMSPEC ╦∙╓╕╧≥╡─
╡╪╖╜, ╙├╗º╡─╙ª╙├│╠╨≥┐╔╥╘╒╥╡╜COMMEND. COMíú
└²╫╙: run mem/c|more // ╘╦╨╨mem/c|more ├ⁿ┴ε

.3605
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@36[─┌┤µ▒Σ┴┐├ⁿ┴ε]

save
╙∩╖¿: save to <idMemfile> [ALL [like|except <skeleton>]]
╙├═╛: ╜½╓╕╢¿╡──┌┤µ▒Σ┴┐╨┤╚δ╥╗╕÷╬─╝■╓╨
▓╬╩²:
<idMemfile>     ╙├╗º╥¬┤µ╖┼─┌┤µ▒Σ┴┐╡─╬─╝■├√│╞, ╕├▓╬╩²┐╔╥╘╩╟╥╗
╕÷╬─╫╓┤«, ╥▓┐╔╥╘╩╟└¿║┼└¿╞≡╡─╫╓╖√▒φ┤∩╩╜, ALL ╩╟╕├├ⁿ┴ε
╡─╚▒╩í╖╢╬ºíú
like|except     ╧▐╢¿╖√, ╦ⁿ╓╕╢¿╥¬├┤░ⁿ║¼║══¿┼Σ╖√─ú╩╜╧α╞Ñ┼Σ╡─▒Σ
┴┐, ╥¬├┤▓╗░ⁿ║¼║══¿┼Σ╖√─ú╩╜╧α╞Ñ┼Σ╡─▒Σ┴┐íú
<skeleton>     ═¿┼Σ╖√─ú╩╜
╦╡├≈:     ╩²╫Θ╝░LOCAL ╨═║═STATIC ╨═▒Σ┴┐▓╗─▄┤µ╚δ. MEM ╬─╝■, ▒Σ┴┐▒╗┤µ╓ⁿ╩▒▓╗
┐╝┬╟╦ⁿ├╟╡─╫≈╙├╖╢╬ºíú
└²╫╙:
st1: =st2: =ss1: =ss2: =ss3: =easy: =hard: =try: ="yes"
save to mys all like s*
clear memory
restore from mys
? st1 // ╖╡╗╪"yes"
st1: =st2: =ss1: =ss2: =ss3: =easy: =hard: =try: ="yes"
save to mys all except s*
clear memory
restore from mys
? type (st1) // ╖╡╗╪U (UNDEFINED)
? easy // ╖╡╗╪"yes"

▓╬╝√: @3604[restore], @3014[restore screen], @3015[save screen]

.3015
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

save screen
╙∩╖¿: save screen [to <idVar>]
╙├═╛: ╙├╙┌╜½╧╘╩╛╞┴─╗╡──┌╚▌┤µ╚δ╥╗─┌┤µ▒Σ┴┐╗≥╥╗
╗║│σ╟°╓╨íúú¿╙├╙┌╬─▒╛ú⌐
▓╬╩²:
    <idVar>    ╙├└┤┤µ╖┼╞┴─╗─┌╚▌╡─▒Σ┴┐╗≥╩²╫Θ╘¬╦╪╡─├√│╞íú
╦╡├≈:     ╙├╕├├ⁿ┴ε╔·│╔╡─▒Σ┴┐║¼╙╨╤╒╔½╩⌠╨╘╝░╫╓╖√╨═
─┌╚▌, restore screen ░┤╘¡└┤╡─╤╒╔½╗╓╕┤╞┴─╗. ╚τ╣√╘┌save screen ├ⁿ┴ε║═restore screen ├ⁿ┴ε╓«╝Σ
╩╣╙├┴╦SET COLOR ├ⁿ┴ε, ╘≥▒╪╨δ╙├╞Σ╦√╖╜╩╜╓╪╗¡╞┴─╗╗≥╜╙╩▄╘¡
└┤╡─╤╒╔½íú
└²╫╙: save screen to oldscr
... // ─▄╕─▒Σ╞┴─╗╡─╚╬╥Γ┤·┬δ
restore screen from oldscr

▓╬╝√: @3014[restore screen], @3605[save], @1743 [savescreen](), @1740 [restscreen]()

.3134
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

seek
╙∩╖¿: seek <exp>
╙├═╛: ╥└╛▌╓≈╦≈╥²└┤╢¿╬╗╩²╛▌┐Γ╓╨╡─╝╟┬╝íú
▓╬╩²:
    <exp>        ╠ß╣⌐╙δ╦≈╥²╝ⁿ╞Ñ┼Σ╡─▒φ┤∩╩╜íú
╦╡├≈:     ╙├╗º┐╔╘┌╦╤╦≈┤«╓╨╩╣╙├▓╗═Ω╚½╝ⁿ╓╡íú╦╤╦≈▒φ┤∩╩╜
╡─╬▓▓┐┐╒╕±▒╪╨δ▒╗╔╛│²íú╚τ╣√SEEK ├ⁿ┴ε╞Ñ┼Σ│╔╣ª, FOUND() ║»╩²╖╡╗╪.T., EOF() ╖╡
╗╪.F. ╓╡íú╚τ╣√SEEK ├ⁿ┴ε├╗╙╨╒╥╡╜╞Ñ┼Σ│╔╣ª╡─╝╟┬╝, ╘≥╜½╓╕╒δ╢¿╬╗
╡╜╬─╝■─⌐╬▓(EOF() =.T.), ▓ó╟╥found() ║»╩²╖╡╗╪.F.íú╚τ╣√╩╣╙├┴╦SET SOFTSEEK ON ├ⁿ┴ε, ╘≥╜°╨╨▓╗╛½
╚╖╞Ñ┼Σíú╝╟┬╝╓╕╒δ▒╗╢¿╬╗╡╜╡┌╥╗┤╬╒╥╡╜ú¼▓ó╟╥┬·╫π
╕├╝╟┬╝╡─╦≈╥²╝ⁿ╓╡┤≤╙┌╦≈╥²╓╡íúEOF(), FOUND() ╢╝    ╖╡╗╪.F. ╓╡íú
└²╫╙: use my index name
    seek "liping"
    if eof(). and. (! found()) // ╚τ┬·╫π╠⌡╝■╡─╝╟┬╝┤µ╘┌
        ? recno() // ╩Σ│÷╝╟┬╝║┼
    endif

▓╬╝√: @3116[find], @2427 [dbseek](), @2431 [dbsetindex](), @3136[set deleted], @3142[set softseek], @3122[locate]

.3135
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

select
╙∩╖¿: select <xnWorkArea>|<idAlias>
╙├═╛: ╤í╘±╗ε╢»╣ñ╫≈╟°íú
▓╬╩²:
<xnWorkArea>    ╦∙╤í╗ε╢»╣ñ╫≈╟°╟°║┼(0-250)íú╕├▓╬╩²┐╔▒φ╩╛│╔╥╗╕÷╬─
╫╓┤«╗≥└¿║┼╓╨╡─╩²╫╓▒φ┤∩╩╜íú
<idAlias>    ╗ε╢»╣ñ╫≈╟°╡─├√│╞íú╫╓─╕A-J ▒φ╩╛═╖10 ╕÷╣ñ╫≈╟°íú<idAlias>     ┐╔╙├└┤╓╕
╩╛╚╬║╬╥╗╕÷┤≥┐¬╡─╩²╛▌┐Γ╬─╝■╡─├√│╞íú
╦╡├≈:     ├┐╕÷╥¬┤≥┐¬╡─╩²╛▌┐Γ▒╪╨δ╫ñ┴⌠╘┌╦ⁿ├╟╕≈╫╘╡─
╣ñ╫≈╟°╓╨íú├┐╕÷╣ñ╫≈╟°╙╨╫╘╝║╡─╗╖╛│╔Φ╓├╥╘┐╪╓╞╢╘
╕├╣ñ╫≈╟°╓╨╝╟┬╝╡─┤ª└φ, ╧┬├µ╩╟╣ñ╫≈╗╖╛│:
{SYMBOL 183 \f "Symbol" \s 10 \h}    ╚╬║╬FILTER ╠⌡╝■
{SYMBOL 183 \f "Symbol" \s 10 \h}    ╚╬║╬╗ε╢»╡─LOCATE ├ⁿ┴ε
{SYMBOL 183 \f "Symbol" \s 10 \h}    ╚╬║╬▒╗╔Φ╓├╡─RELATION
{SYMBOL 183 \f "Symbol" \s 10 \h}    DELETED ״̬
    SELECT 0 ├ⁿ┴ε╤í╘±╧┬╥╗╕÷├╗╙╨╩╣╙├╡─╣ñ╫≈╟°íú
└²╫╙: use my
    select 2 // ╤í╘±2 ║┼╣ñ╫≈╟°▓ó╘┌╕├╟°┤≥┐¬╬─╝■he
    use he

▓╬╝√: dbselect(), @2428 [dbselectar](), @3139[set index], @2478 [select](), ailas()

.3016
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set alternate
╙∩╖¿: set alternate to [<xcFile>]╗≥set alternate ON|OFF|<xlToggle>
╙├═╛:     ╓╕╢¿╥╗╕÷ASCII ╬─▒╛╬─╝■┤µ╖┼set alternate on ╫≈╙├╞┌╝Σ╙├╗º╖ó│÷╡─
╦∙╙╨├ⁿ┴ε╡─╩Σ│÷(▓╗░ⁿ└¿ú└... say... get ├ⁿ┴ε)
▓╬╩²:
    <xcFile>     ┤µ╖┼╩Σ│÷╡─╬─╝■├√│╞
    <xlToggle>     ╥╗╕÷▒φ┤∩╩╜, ╦ⁿ╖╡╗╪╥╗╕÷┬▀╝¡╓╡(.T., ╗≥.F.)
╦╡├≈: ▓╗┤°▓╬╩²╡─set alternate to ├ⁿ┴ε╜½╣╪▒╒╡▒╟░╡─alternate ╬─╝■íú
└²╫╙: set alternate to disp
    use my index name
    set alternate on
    display all name, no, age
    set alternate off
    type disp. txt to print
    close alternate

    ▓╬╝√: @3105[close], @3028[set printer to], set()

.3704
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@37[╧╡═│├ⁿ┴ε]

set bell
╙∩╖¿: set bell ON|OFF|<xlToggle>
╙├═╛: ╙├╙┌┐╪╓╞┤≥┐¬╗≥╣╪▒╒╝╞╦π╗·╤∩╔∙╞≈╖ó│÷╡─├∙
╜╨
▓╬╩²:
<xlToggle>     ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ▒φ┤∩╩╜▒╪╨δ╙├└¿
║┼└¿╞≡ú¼╚▒╩í╠⌡╝■╬¬╣╪▒╒╫┤╠¼íú
╦╡├≈:     ╩╣╙├?? chr (7) ╗≥tone() ║»╩²┐╔╥╘▓╗╣▄set bell ╡─╔Φ╓├, ╙├╧∞┴σ╫÷╬¬╫╘╝║╙ª╙├
│╠╨≥╓╨│÷╧╓┤φ╬≤▓╢╗±╡─╖┤╙ªíú
└²╫╙: set bell on
temp: = " "
ú└10, 10 say "input your name: " get name
read // ╡▒▓┘╫≈╒▀░┤╧┬╥╗╝ⁿ╩▒╝╞╦π╗·╜½╧∞┴σ

▓╬╝√: @1762 [tone](), set(), @2205 [chr]()

.3301
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@33[╚╒╞┌╔Φ╓├├ⁿ┴ε]

set century
╙∩╖¿: set century ON|OFF|<xlToggle>
╙├═╛:     ╙├╙┌┐╪╓╞╩╟╤í╙├4 ╬╗╩²╫╓╕±╩╜╡─╩└╝═▒φ╩╛╖╜╩╜
╗╣╩╟┴╜╬╗╩²╫╓╕±╩╜╡─▒φ╩╛╖╜╩╜└┤╧╘╩╛║═╩Σ╚δ╩²
╛▌íú
▓╬╩²:
<xlToggle>     ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ▒φ┤∩╩╜▒╪╨δ╙├└¿
║┼└¿╞≡íú
╦╡├≈:     ╚▒╩í▓╬╩²╩╟OFF (┴╜╬╗╩²╫╓╕±╩╜)
    ┴╜╬╗╩²╫╓╕±╩╜╡─╩Σ╚δ╚╒╞┌╥■║¼▒φ╩╛20 ╩└╝═íú
└²╫╙: set century on
    ? dtoc (date()) // ╖╡╗╪1994 ─Ω6 ╘┬17 ╚╒

▓╬╝√: 336(), @3302[set date], @3303[set epoch], @1932 [year]()

.3017
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set color to
╙∩╖¿: set color to [<standard> [, <enhanced>] [, <border>];
     [<unselected>]] |<cString>
╙├═╛:     ╙├╙┌╓╕╢¿╥╗╕÷╨┬╡─╡▒╟░╤╒╔½╔Φ╓├, ╕├╤╒╔½╜½╘┌╧┬
┤╬╞┴─╗╦ó╨┬╓╨╩╣╙├íú
▓╬╩²:
<standard>     ╙╔╟░╛░╔½║═▒│╛░╔½╫Θ│╔╡─╤╒╔½╢╘
<enhanced>     ╕├▓╬╩²╬¬ú└... say... get ├ⁿ┴ε╓╨╡─GET ╫╙╛Σ╓╕╢¿╤╒╔½╢╘
<border>    ╞┴─╗▒▀┐≥╤╒╔½íú
<unselected>     ╕├▓╬╩²╬¬│²GET ═Γ╡─╞Σ╦ⁿ▓┐╖▌╓╕╢¿╧╘╩╛╤╒╔½╢╘, ╚τ╣√╓╕
╢¿┴╦╥╗╕÷╖╟╤í╚í╡─╤╒╔½╢╘, ╘≥╗ß░╤│²╡▒╟░GET ═Γ╡─╞Σ╦ⁿ
▓┐╖▌╧╘╩╛│╔┴φ═Γ╡─╤╒╔½└┤╝╙┴┴╣Γ▒Ω╦∙╘┌╡─╡▒╟░
GET íú
<cString>     ╙├╫≈╠µ╗╗SET COLOR ▓╬╩²╡─╫╓╖√▒φ┤∩╩╜, ▒φ┤∩╩╜┐╔╙├╢║║┼╫≈╖╓
╜τ╖√▓ó╟╥▒╪╨δ╙├└¿║┼└¿╞≡íú
└²╫╙: set color to R/G, GR+/N // ╔Φ╓├║∞╡╫┬╠╫╓, GET ╖╜┐≥╜½╬¬║┌╡╫╗╞╫╓

▓╬╝√: @1749 [setcolor]() ║»╩², @1725 [iscolor]()

.3018
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set confirm
╙∩╖¿: set confirm ON|OFF|<xlToggle>
╙├═╛: ╙├╙┌╘╩╨φ╗≥╜√╓╣╘┌╫╓╢╬╥╤▒╗╠ε│Σ╩Σ╚δ╫╓╖√╩▒
╣Γ▒Ω╥╞╡╜╧┬╥╗╕÷GET ▒Σ┴┐íú
▓╬╩²:
<xlToggle>    ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ▒φ┤∩╩╜▒╪╨δ╙├└¿
║┼└¿╞≡íú
╦╡├≈: ╚▒╩í▓╬╩²╩╟OFF (╜√╓╣╫┤╠¼)
└²╫╙:
/* ╧┬└²╘┌╫╓╢╬╥╤▒╗╠ε│Σ╩Σ╚δ╫╓╖√╩▒, ╨Φ╥¬░┤╗╪│╡╗≥╣Γ
▒Ω╝ⁿ╚╖╢¿║≤, ╣Γ▒Ω▓┼╥╞╡╜╧┬╥╗╕÷GET*/
    num=0
    set confirm on
    ú└ 10, 10 say " ╩Σ╚δ╛½╚╖╓╡: " get num
    read

▓╬╝√: set(), @3005[ú└... say... get], @3013[read]

.3019
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set console
╙∩╖¿: set console ON|OFF|<xlToggle>
╙├═╛: ╙├└┤┤≥┐¬╗≥╣╪▒╒├ⁿ┴ε╡─╞┴─╗╩Σ│÷íú
▓╬╩²:
<xlToggle>    ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ▒φ┤∩╩╜▒╪╨δ╙├└¿
║┼└¿╞≡íú
╦╡├≈: ╚▒╩í▓╬╩²╩╟ON (┤≥┐¬╫┤╠¼)íúset console ├ⁿ┴ε╢╘┤≤╢α╩²ú└ ├ⁿ┴ε▓╗╞≡
╫≈╙├, ╡½ACCEPT, INPUT, WAIT    ├ⁿ┴ε╩▄set console ├ⁿ┴ε┐╪╓╞, ▓ó╟╥╙δ╒Γ╨⌐├ⁿ┴ε╧α╣╪╡─╠ß╩╛
╥▓╥╗═¼▒╗╜√╓╣╧╘╩╛íú
└²╫╙:    // ╧┬└²│╠╨≥╘╦╨╨10 ├δ║≤▓┼╙╨╞┴─╗╩Σ│÷
    use my
    cls
    set console off // ╣╪▒╒├ⁿ┴ε╡─╞┴─╗╩Σ│÷
    ? " ┤≥╙í├√╡Ñ... "
    delay (10)
    set console on
    ? " ┤≥╙í├√╡Ñ... "

▓╬╝√: @3022[set device], set()

.3020
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set cursor
╙∩╖¿: set cursor ON|OFF|<xlToggle>
╙├═╛: ╙├└┤╧╘╩╛╗≥╥■▓╪╣Γ▒Ω
▓╬╩²:
<xlToggle>     ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ▒φ┤∩╩╜▒╪╨δ╙├└¿
║┼└¿╞≡ú¼╚▒╩í╠⌡╝■╬¬╧╘╩╛╫┤╠¼.
╦╡├≈: ╥■▓╪╣Γ▒Ω▓ó▓╗╙░╧∞╩Σ╚δ
└²╫╙: num: =0
set cursor off
ú└ 10, 10 say "Enter num: " get num
read // ╞┴─╗╔╧├╗╙╨╣Γ▒Ω

▓╬╝√: set(), setcursor()

.3302
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@33[╚╒╞┌╔Φ╓├├ⁿ┴ε]

set date
╙∩╖¿: set date <style> ╗≥set date format to <cDate Form>
╙├═╛: ╙├╙┌╕─▒Σ╚╒╞┌╕±╩╜íú
▓╬╩²:
    <style>        ╚╒╞┌╕±╩╜, ╚τ╧┬
╦╡├≈: ╧┬├µ╕°│÷╦∙╙╨╡─╚╒╞┌╕±╩╜╝░╩╣╙├╒Γ╓╓╚╒╞┌╕±
╩╜╡─╣·╝╥íú
    style         ╕±╩╜
    American     MM/DD/YY ╚▒╩í╕±╩╜
    ANSI         YY. MM. DD
    British         DD/MM/YY
    French         DD/MM/YY
    German     DD. MM. YY
    Italian         DD-MM-YY
    Japan         YY/MM/DD
    USA         MM-DD-YY

└²╫╙:    set date ANSI
    ? date() // ╖╡╗╪94. 6. 17
    set date format to "YY─ΩMM╘┬DD╚╒"
    ? date() // ╖╡╗╪94─Ω6╘┬17╚╒

▓╬╝√: set(), @3301[set century], @1908 [date]()

.3201
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@32[╩²╤º╔Φ╓├├ⁿ┴ε]

set decimals
╙∩╖¿: set decimals to [<nDec>]
╙├═╛: ╙├╙┌╬¬╙ª╙├│╠╨≥╓╨╡─╩²╫╓╝╞╦π╜ß╣√╜¿┴ó╥╗╕÷
╚▒╩í╡─╨í╩²╛½╢╚íúú¿╓╗╙├╙┌╧╘╩╛ú⌐
▓╬╩²:
    <nDec>    ╨í╩²╬╗╩²
╦╡├≈: ▓╗┤°▓╬╩²╡─set decimals to ├ⁿ┴ε╥■║¼╜½╨í╩²╬╗╩²╔Φ╓├╬¬0íúWINBASE ╡─╚▒
╩í╨í╩²╛½╢╚╬¬┴╜╬╗íú│²╖╟╩╣╙├┴╦set fixed on ├ⁿ┴ε, ╖±╘≥═¿│ú╜÷╙╨SQRT(), LOG(), EXP(), ├▌
║═│²╖¿╩▄set decimals ╙░╧∞íúset fixed on ├ⁿ┴ε╢╘╦∙╙╨╝╞╦π╟┐╓╞╣µ╢¿╧╘╩╛╨í╩²
╛½╢╚(╢°▓╗╩╟╩╡╝╩╨í╩²╛½╢╚)íú
└²╫╙:? 2. 12*3. 12 // ╖╡╗╪6. 6144
    set decimals to 3
    ? 2. 12*3. 12 // ╖╡╗╪6. 6144
    set fixed on
    ? 2. 12*3. 12 // ╖╡╗╪6. 614

▓╬╝√: @3203[set fixed], set()

.3506
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@35[╡═╝╢╬─╝■├ⁿ┴ε]

set default to
╙∩╖¿: set default to [<xcPathSpec>]
╙├═╛:     ╙├╙┌╬¬WINBASE ╙ª╙├│╠╨≥╓╨╡─╢┴╨┤╬─╝■▓┘╫≈╓╕╢¿╥╗╕÷
╚▒╩í╡─╟²╢»╞≈íú
▓╬╩²:
<xcPathSpec>    ╚╬║╬╥╗╕÷║╧╖¿╡─DOS ┬╖╛╢├√, ┬╖╛╢╓╨▒╪╨δ╓╕╢¿╟²╢»╞≈íú
╦╡├≈:    set default ├ⁿ┴ε╙├└┤═¿╓¬WINBASE, ╫ε╧╚╙ª╕├╚Ñ──└∩╤░╒╥┐Γ╬─╝■íó ╦≈
╥²╬─╝■╡╚╩╣╙├╬─╝■íú
└²╫╙: set default to c: \my // ╓╕╢¿╥╗╕÷╚▒╩í╡─╟²╢»╞≈╬¬c: \my

▓╬╝√: set(), @3507[set path]

.3136
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

set deleted
╙∩╖¿: set deleted ON|OFF|<xlToggle>
╙├═╛: ╩╣┤≤▓┐╖▌WINBASE ├ⁿ┴ε║÷┬╘▒╗┬▀╝¡╔╛│²╡─╝╟┬╝íú
▓╬╩²:
<xlToggle>     ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ╕├▒φ┤∩╩╜▒╪╨δ╙├
└¿║┼└¿╞≡íú
╦╡├≈:     ╚▒╩í╠⌡╝■╩╟▓╗║÷┬╘▒╗┬▀╝¡╔╛│²╡─╝╟┬╝íú
    set deleted on ├ⁿ┴ε╢╘INDEX ├ⁿ┴ε╬▐╨ºíú
└²╫╙:
use litt //numfield ╬¬╬─╝■litt ╓╨▒Ω╝╟╝╟┬╝╨≥║┼╡─╫╓╢╬
? numfield // ╖╡╗╪1
skip 5
delete
go top
? numfield // ╖╡╗╪5
set deleted on
skip 5
? numfield // ╖╡╗╪6

▓╬╝√: @3114[delete], @2416 [dbdelete](), set(), @2439 [deleted]()

.3021
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set delimiters
╙∩╖¿: set delimiters ON|OFF|<xlToggle> ╗≥╒▀set delimiters to [<cstring>|DEFAULT]
╙├═╛:     ╙├╙┌╘╩╨φ╗≥╜√╓╣╩╣╙├╢¿╜τ╫╓╖√└┤╧▐╢¿GET ╖╜┐≥╡─
▒▀╜τ▓ó╟╥╓╕╢¿╥╗╕÷╢¿╜τ╫╓╖√íú
▓╬╩²:
<xlToggle>     ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ▒φ┤∩╩╜▒╪╨δ╙├└¿
║┼└¿╞≡íú
<cstring>     ╥╗╕÷╫╓╖√╗≥┴╜╕÷╫╓╖√╡─▒φ┤∩╩╜, ╚τ╣√╜÷╓╕╢¿╥╗╕÷╫╓
╖√, WINBASE ╜½╙├╦ⁿ└┤╢¿╜τGET ╡─┐¬╩╝║═╜ß╬▓, ╚τ╣√╓╕╢¿┴╜╕÷╫╓╖√, ╘≥╡┌
╥╗╕÷╫╓╖√╙├└┤╢¿╜τGET ╡─┐¬╩╝, ┴φ╥╗╕÷╙├└┤╢¿╜τGET ╡─╜ß╬▓íú
DEFAULT     ╥╗╕÷╚╬╤í╧ε, ╕├╚╬╤í╧ε╖╡╗╪╥╗╕÷╚▒╩í╡─╢¿╜τ╖√":"íú╚τ
╣√╩╣╙├set delimiters to ├ⁿ┴ε╩▒├╗╙╨╓╕╢¿╚╬║╬╢¿╜τ╖√, ╘≥WINBASE ╜½╖╡╗╪╒Γ╥╗
╕÷╚▒╩í╡─╢¿╜τ╖√":"íú
╦╡├≈:    │²╖╟╩╣╙├SET INTENSITY OFF ├ⁿ┴ε, ╖±╘≥GET ╜½╝╠╨°╙├╝╙┴┴╤╒╔½╧╘╩╛íú╙├╗º┐╔
╥╘╘┌╚╬║╬╩▒║≥╕─▒Σ╢¿╜τ╖√, ╔⌡╓┴╘┌ú└... say... get ╙∩╛Σ╓«╝Σíú╚τ╣√╩╣╙├
┴╦set delimiters on ├ⁿ┴ε, ╘≥├┐╕÷GET ╜½╝╙│ñ┴╜╕÷╫╓╖√▓ó╟╥╧≥╫╓╢╬╞½╥╞╥╗
╕÷╫╓╖√íú
└²╫╙: this: =that: =space (6)
    SET INTENSITY OFF
    set delimiters on
    ú└ 10, 10 say " ╝ⁿ╚δ╒Γ╢∙: " get this // ╞┴─╗╜½╧╘╩╛╝ⁿ╚δ╒Γ╢∙:::
    set delimiters to "< >"
    ú└ 12, 10 say " ╝ⁿ╚δ╒Γ╢∙: " get that // ╞┴─╗╜½╧╘╩╛╝ⁿ╚δ╒Γ╢∙: < >
    read

▓╬╝√: @3017[set color], set(), ¬└... say... get, @3025[set intensity]

.3022
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set device to
╙∩╖¿: set device to <screen|printer>
╙├═╛: ╙├╙┌╓╕├≈ú└... SAY ├ⁿ┴ε╩Σ│÷╡──┐╡─╡╪íú
▓╬╩²:
screen        ╚▒╩í╔Φ▒╕,╩╣╦∙╙╨ú└... SAY ├ⁿ┴ε╡─╜ß╣√╢╝▒╗╢¿╧≥╡╜╞┴─╗
printer        ╩╣╦∙╙╨ú└... SAY ├ⁿ┴ε╡─╜ß╣√╢╝▒╗╢¿╧≥╡╜┤≥╙í╗·

╦╡├≈:     set device ├ⁿ┴ε║═set printer on├ⁿ┴ε╡─╗∙▒╛╟°▒≡╩╟:
    set device to printer ├ⁿ┴ε╜÷╜÷╓╗░╤ú└... SAY ├ⁿ┴ε╡─╜ß╣√╦═╡╜┤≥╙í╗·íú
└²╫╙:
set device to printer
? "WinBase for printer" // ╜½╘┌┤≥╙í╗·╔╧╩Σ│÷WinBase for printer
set device to screen
? "WinBase for screen" // ╜½╘┌╞┴─╗╔╧╩Σ│÷WinBase for screen

▓╬╝√: set(), set print, @3028[set printer to], @1754 [setprc]()

.3303
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@33[╚╒╞┌╔Φ╓├├ⁿ┴ε]

set epoch to
╙∩╖¿: set epoch to <nYear>
╙├═╛:    ╙├╙┌┐╪╓╞WINBASE ╙ª╙├│╠╨≥╚τ║╬╜Γ╩═┴╜╬╗╩²╫╓╕±╩╜╡─
─Ω┤·╝≥┬╘▒φ╩╛íú
▓╬╩²:
    <nYear>    ╩²╫╓╨═, ▒φ╩╛─Ω┤·╩²
╦╡├≈:     ╚τ╣√─Ω┤·╝≥┬╘▒φ╩╛╓╨╡─┴╜╬╗╩²╫╓▒φ╩╛╡──Ω┤·
┤≤╙┌╗≥╡╚╙┌<nYear> ▓╬╩²╡─╓╡, ╘≥╔Φ╢¿╚╒╞┌╥■║¼╓╕╡─╩╟▒╛╩└
╝═; ╖±╘≥╜½░╤╚╒╞┌╔Φ╢¿╬¬╧┬╕÷╩└╝═íúset epoch ╡─╚▒╩í╓╡╩╟1900íú
└²╫╙: set epoch to 1990
    ? ctod ("12/12/90") // ╖╡╗╪12/12/1990
    ? ctod ("12/12/93") // ╖╡╗╪12/12/1993
    ? ctod ("12/12/01") // ╖╡╗╪12/12/2001

▓╬╝√: set(), @3301[set century]

.3023
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set escape
╙∩╖¿: set escape ON|OFF|<xlToggle>
╙├═╛: ╙├╙┌┤≥┐¬╗≥╣╪▒╒╙├ESC ╝ⁿ╓╒╓╣READ ├ⁿ┴ε╡─╣ª─▄íú
▓╬╩²:
<xlToggle>     ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ▒φ┤∩╩╜▒╪╨δ╙├└¿
║┼└¿╞≡íú

╦╡├≈: ╚▒╩í▓╬╩²╩╟ON (┤≥┐¬╫┤╠¼)
└²╫╙: temp: =space (8)
    set escape off
    ú└ 10, 10 say "ESC ▓╗╗ß╓╒╓╣╕├READ ├ⁿ┴ε! " get temp
    read
    set escape on
    ú└ 20, 10 say "ESC ╜½╓╒╓╣╕├READ ├ⁿ┴ε! " get temp
    read

▓╬╝√: set(), @3405[set key], @3013[read], ¬└... say... get, @1504 [inkey]()

.3202
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@32[╩²╤º╔Φ╓├├ⁿ┴ε]

set exact
╙∩╖¿: set exact ON|OFF|<xlToggle>
╙├═╛: ╙├╙┌╓╕╢¿▒╚╜╧┴╜╕÷╫╓╖√┤«╡─╖╜╖¿íú
▓╬╩²:
<xlToggle>    ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ╕├▒φ┤∩╩╜▒╪╨δ╙├
└¿║┼└¿╞≡íú
╦╡├≈:     ╚▒╩í╠⌡╝■╬¬OFF ╫┤╠¼íú╓┤╨╨set exact on ├ⁿ┴ε║≤, ╘┌╜°╨╨╫╓╖√┤«▒╚╜╧╩▒, ╓╗
╙╨╡▒┴╜╕÷╫╓╖√┤«╛½╚╖╞Ñ┼Σ▓┼─▄╖╡╗╪.T. ╓╡íú╚τ╣√╚▒╩í, ╘≥╩╫╧╚
╜½╜ß╣√╔Φ╬¬.T., ╚╗║≤╙├╫≤▒▀╡┌╥╗╕÷╫╓╖√╙δ╫╓╢╬▒▀╡┌╥╗
╕÷╫╓╖√▒╚╜╧, ╚τ╧α╡╚, ╘≥╙├═¼╤∙╖╜╖¿▒╚╜╧╡┌╢■╕÷╫╓╖√, ╓▒╡╜
╡╚║┼╫╓╢╬▒▀┤«╓╨╡─╦∙╙╨╫╓╖√╢╝╥╤▒╚╜╧╣²╥╗▒Θ╗≥
─│┤╬▒╚╜╧╜ß╣√╬¬. F . ╚τ╣√╡╚║┼╫╓╢╬▒▀╡─┤«╬¬┐╒(""), ╘≥▒╚╜╧
╜ß╣√╬¬.T.íú
└²╫╙:     set exact on
    ? "abc"="abc " // ╖╡╗╪.F.
    ? " abc"="abv" // ╖╡╗╪.F.
    ? "abcdef"="abc" // ╖╡╗╪.F.
    ? "abc"="abcdef" // ╖╡╗╪.F.
    set exact off
    ? "abc"="abc " // ╖╡╗╪.F.
    ? " abc"="abv" // ╖╡╗╪.F.
    ? "abcdef"="abc" // ╖╡╗╪.T.
    ? "abc"="abcdef" // ╖╡╗╪.F.

▓╬╝√: set(), @3116[find], @3122[locate], @3134[seek]

.3137
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

set exclusive
╙∩╖¿: set exclusive ON|OFF|<xlToggle>
╙├═╛: ╙├╙┌╜√╓╣╗≥╘╩╨φ═°┬τ╓╨╢α╕÷╙├╗º┤≥┐¬═¼╥╗╕÷
╩²╛▌┐Γíú
▓╬╩²:
<xlToggle>    ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ╕├▒φ┤∩╩╜▒╪╨δ╙├
└¿║┼└¿╞≡íú
╦╡├≈:     ╚▒╩í╠⌡╝■╬¬╜√╓╣(ON) ╫┤╠¼íúset exclusive ╩╟╥╗╕÷╚½╛╓╩⌠╨╘, ╕─▒Σ╞Σ╔Φ
╓├╗ß╙░╧∞╡╜╦∙╙╨┤≥┐¬╡─╬─╝■íú╘┌═°┬τ╓╨, ╚τ╣√EXCLUSIVE ▒╗╣╪▒╒, ╘≥
╥╗╕÷╬─╝■┐╔▒╗╢α╕÷╙├╗º┤≥┐¬íú
└²╫╙: set exclusive off // ╘╩╨φ═°┬τ╓╨╢α╕÷╙├╗º┤≥┐¬═¼╥╗╕÷╩²╛▌┐Γ

▓╬╝√: @2449 [flock](), @2467 [neterr](), @2477 [rlock](), @2460 [lockfile](), @2461 [lockrec]()

.3138
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

set filter
╙∩╖¿: set filter to <lCondition>
╙├═╛: ╙├╙┌╘┌┬▀╝¡╔╧╣²┬╦▓╗╞Ñ┼Σ╠⌡╝■╡─╦∙╙╨╝╟┬╝íú
▓╬╩²:
<lCondition>     ╙├╙┌┐╪╓╞╝╟┬╝─┌╚▌╡─▒φ┤∩╩╜, ╚τ┤╦▒φ┤∩╩╜╬¬╒µ, ╘≥╝╟┬╝
╜½▒╗┬╝╚í, ╖±╘≥, ╝╟┬╝╜½░┤▓╗┤µ╘┌┤ª└φíú
╦╡├≈:     ╡▒╓╕╒δ╥╞╢»╓«║≤, ╣²┬╦╞≈▓┼┤ª╙┌╗ε╢»╫┤╠¼íúINDEX ├ⁿ┴ε▓╗╩▄
set filter ├ⁿ┴ε╙░╧∞íú
└²╫╙: use my
    set filter to age>20
    ? age // ╖╡╗╪18
    ? recno() // ╖╡╗╪1
    go top
    ? age // ╖╡╗╪20
    ? recno() // ╖╡╗╪6

▓╬╝√: set(), @2430 [dbsetfilter](), @2408 [dbclearfil](), @3136[set deleted]

.3203
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@32[╩²╤º╔Φ╓├├ⁿ┴ε]

set fixed
╙∩╖¿: set fixed ON|OFF|<xlToggle>
╙├═╛: ╙δset decimals ├ⁿ┴ε┴¬║╧╙├└┤┐╪╓╞╩Σ│÷╩▒╡─╨í╩²╛½╢╚íú
▓╬╩²:
<xlToggle>    ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ╕├▒φ┤∩╩╜▒╪╨δ╙├
└¿║┼íú
╦╡├≈:     ╚▒╩í╠⌡╝■╬¬OFF ╫┤╠¼íú╡▒SET FIXED ┤ª╙┌OFF ╫┤╠¼╩▒, ╩▄set decimals ├ⁿ┴ε┐╪╓╞╡─▓┘╫≈
╜÷╙╨SQRT(), LOG(), EXP(), ├▌║═│²╖¿íú╡▒SET FIXED ┤ª╙┌ON ╫┤╠¼╩▒, ╦∙╙╨╡─╩²╓╡╩Σ│÷╙δ╫ε║≤
╓┤╨╨╡─set     decimals ├ⁿ┴ε╧α╥╗╓┬íú
└²╫╙:? 2. 12*3. 12 // ╖╡╗╪6. 6144
    set decimals to 3
    ? 2. 12*3. 12 // ╖╡╗╪6. 6144
    set fixed on
    ? 2. 12*3. 12 // ╖╡╗╪6. 614

▓╬╝√: @3201[set decimals], set()

.3024
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set format to
╙∩╖¿: set format to <procedure>
╙├═╛: ╙├╙┌╬¬╧┬╠⌡READ ├ⁿ┴ε╓╕╢¿╥╗╕÷╞┴─╗╕±╩╜íú
▓╬╩²:
<procedure>    ┐╔╥╘╩╟╥╗╕÷╣²│╠, ╗≥╒▀. FMT ╬─╝■, ╗≥╒▀. PRG ╬─╝■íú▓╗┤°<procedure> ▓╬╩²╡─set format ├ⁿ┴ε╚í╧√╥╘
╟░╡─╕±╩╜íú
╦╡├≈:    WINBASE ╘┌═¼╥╗╩▒┐╠╜÷╓º│╓╥╗╕÷╗ε╢»╡─╕±╩╜, ╢°▓╗╩╟╘┌├┐
╕÷╣ñ╫≈╟°╢╝╓º│╓╥╗╕÷╗ε╢»╡─╕±╩╜íú▓╗╓º│╓╢α╥│╕±
╩╜íú╘┌╜½╩Σ╚δ╜╙╩╒╡╜format ╞┴─╗╓«╟░, WINBASE ▓╗╟σ│²╞┴─╗íúformat ▓╗─▄╡≈╙├╞Σ╦ⁿ
╡─format, ╡½┐╔╘┌╥╗╕÷format ╬─╝■╓╨╓┤╨╨╞Σ╦ⁿ├ⁿ┴εíú
└²╫╙: use my
    cls
    set format to like // ╓╕╢¿╥╗╕÷╙╔╣²│╠like ╢¿╥σ╡─╞┴─╗╕±╩╜
    append blank
    read
    procedure like
    cls
    ú└ row() +8, 10 say "no: " get no
    ú└ row(), 20 say "name: " get name
    ú└ row(), 40 say "age: " get age
    return

▓╬╝√: set(), @3013[read], ¬└... say... get

.3404
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@34[╝ⁿ┼╠├ⁿ┴ε]

set function
╙∩╖¿: set function <nFkey> to <cString>
╙├═╛: ╙├└┤╢╘╣ª─▄╝ⁿ╕│╙Φ╫╓╖√┤«╓╡
▓╬╩²:
<nFkey>     ╬╗╙┌2 ╡╜40 ╓«╝Σ╡─╒√╩², ╙├└┤▒φ╩╛▒╗╔Φ╓├╡─╣ª─▄╝ⁿ
            ╓╡        ╣ª─▄╝ⁿ
            2-10         F2 ╡╜F10
            11-20         shift-F1 ╡╜shift-F10
            21-30         ctrl-F1 ╡╜ctrl-F10
            31-40         Alt-F1 ╡╜Alt-F10
<cString>     ╥╗╕÷╫╓╖√┤«, ╡▒╣ª─▄╝ⁿ▒╗╝ⁿ╚δ╩▒, ╕├╫╓╖√┤«▒╗╓├╚δ╣ª─▄
╝ⁿ╗║│σ╟°╓╨íú
╦╡├≈:     ╕├├ⁿ┴ε─▄╣╗╟σ│²╚╬║╬╥╘╟░SET KEY ├ⁿ┴ε╢╘╣ª─▄╝ⁿ╡─╕│
╓╡ú¼
    F1 ▓╗─▄╣╗▒╗╢¿╥σíú
└²╫╙:
set function 5 to "GOOD MORNING! "+chr (13)
accept "Enter: " to newpp
/*▓┘╫≈╒▀╘┌╩Σ╚δ╟░░┤╧┬F5, ╘≥╫╓╖√┤«"GOOD MORNING! " ▒╗┤µ╚δ▒Σ┴┐newpp ▓ó╝╙╔╧
╥╗╗╪│╡╖√, ╙δ┤╙╝ⁿ┼╠╩Σ╚δ═Ω╚½╥╗╤∙*/

▓╬╝√: set(), @3405[set key], @3403[keyboard]

.3139
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

set index to
╙∩╖¿: set index to [<xcIndexList>]
╙├═╛: ╙├╙┌╘┌╡▒╟░╣ñ╫≈╟°╓╨╢└┴ó╡╪┤≥┐¬╦≈╥²╬─╝■íú
▓╬╩²:
[<xcIndexList>]     ╦≈╥²╬─╝■▒φ, ╬─╝■╓«╝Σ╙├╢║║┼╕⌠┐¬íú╬─╝■▒φ╓╨╓╕╢¿╡─
╬─╝■╢╝╜½▒╗┤≥┐¬íú╚τ╣√╕├▓╬╩²╥╘╥╗╕÷╫╓╖√▒φ┤∩╩╜
╡─╨╬╩╜╠ß╣⌐, ╘≥╕├▒φ┤∩╩╜▒╪╨δ╙├└¿║┼└¿╞≡íú
╦╡├≈:     set index ├ⁿ┴ε╣╪▒╒╡▒╟░┤≥┐¬╡─╦∙╙╨╦≈╥²╬─╝■, ▓ó╟╥╜½╝╟┬╝
╓╕╒δ╓╪╨┬╢¿╬╗╡╜╦≈╥²╬─╝■╡─╡┌╥╗╕÷╝╟┬╝╔╧íú═¼╩▒┤≥
┐¬╢α╕÷╦≈╥²╬─╝■, ╘≥╦≈╥²╬─╝■▒φ╓╨╡─╡┌╥╗╕÷╬─╝■╬¬
╓≈╦≈╥²╬─╝■íú╓╗╙╨╓≈╦≈╥²╬─╝■▓┼─▄┐╪╓╞╝╟┬╝╖├╬╩╡─
╦│╨≥íú
└²╫╙:
 use my
set index to namefi, nofi
? recno() // ╖╡╗╪3

▓╬╝√: @2415 [dbcreateind](), @2432 [dbsetorder](), @2431 [dbsetindex](), @3118[index]

.3025
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set intensity
╙∩╖¿: set intensity ON|OFF|<xlToggle>
╙├═╛: ╙├╙┌╘╩╨φ╗≥╜√╓╣╙├╕▀┴┴╢╚╤╒╔½╗≥╖┤╩╙╖╜╩╜╧╘
╩╛GETíú
▓╬╩²:
<xlToggle>     ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ▒φ┤∩╩╜▒╪╨δ╙├└¿
║┼└¿╞≡íú
╦╡├≈: ╚▒╩í▓╬╩²╩╟ON (╘╩╨φ╫┤╠¼)
úset intensity ├ⁿ┴ε╢╘ú└... MENU ├ⁿ┴ε╥╘╝░ACHOICE() ║»╩², DBEDIT() ║»╩²├╗╙╨╙░╧∞íú
└²╫╙: name: =space (10)
set intensity off
set delimited on
¬└12, 20 say "input name: " get name // ╞┴─╗▓╗╙├╕▀┴┴╢╚╤╒╔½╗≥╖┤╩╙╖╜╩╜
                    // ╧╘╩╛GET
read

▓╬╝√: set(), @3017[set color], @1749 [setcolor](), @3005[ú└... say... get]

.3405
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@34[╝ⁿ┼╠├ⁿ┴ε]

set key
╙∩╖¿: set key <nInkeyCode> to <idProcedure>
╙├═╛:  ╙├╙┌╓╕╢¿╥╗╕÷╣²│╠, ╘┌╚╬║╬╡╚┤²╫┤╠¼╞┌╝Σ, ╓╗╥¬╢¿╥σ
╡─╚╚╝ⁿ▒╗╝ⁿ╚δ, ╘≥╘╦╨╨╕├╣²│╠íú
▓╬╩²:
<nInkeyCode>    ╝ⁿ┬δ╓╡, INKEY() ║»╩²╕∙╛▌╕├╓╡┼╨╢╧──╕÷╝ⁿ╒²▒╗╝ⁿ╚δíú
<idProcedure>    ╣²│╠├√, ╡▒╔Φ╝╞╡─╝ⁿ▒╗╩Σ╚δ╩▒, ╛═╘╦╨╨╕├╣²│╠íú

╦╡├≈:     ═¼╥╗╩▒┐╠, ╫ε╢α┐╔╔Φ╓├32 ╕÷╝ⁿíú
    ╝ⁿF1 ╢╘╙├╗º▒ú┴⌠, ╥≥╬¬╦ⁿ╫▄╩╟╬¬HELP │╠╨≥╔Φ╓├íú
    SET KEY ├ⁿ┴ε╜½╖╧│²SET FUNCTION ├ⁿ┴ε╡─╔Φ╓├íú
└²╫╙:
/* ╧┬├µ└²╫╙╘┌╡┌╥╗╕÷READ ╓╨╝Σ░┤╧┬F10, ╘≥╙╓┐╔│÷╧╓╡┌╢■╕÷
READ*/
    cls
    v1: =v2: =space (10)
    ú└ 11, 5 say " ╩Σ╚δ╥╗╕÷╫╓: " get v1
    ú└ 12, 5 say " ╩Σ╚δ╥╗╕÷╫╓: " get v2
    set key K_F10 to next_gets
    read
    set key K_F10 to
    cls
    return
    prcedure next_gets
    local GetList: = {}
    temp: =savescreen (10, 5, 13, 70)
    v3: =space (4)
    ú└ 11, 15 say " ╩Σ╚δ╥╗╕÷╫╓: " get v3
    read
    ú└ 13, 15 say " ─π╩Σ╚δ╡─╩╟: "+v3+" ░┤╚╬╥╗╝ⁿ.. "
    inkey (0)
    restscreen (10, 5, 13, 70, temp)
    return

▓╬╝√: set(), @3403[keyboard], @3404[set function], @1507 [lastkey]()

.3026
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set margin to
╙∩╖¿: set margin to <nPageOffset>
╙├═╛: ╙├╙┌╓╕╢¿┤≥╙í╩Σ│÷╩▒╡─╫≤╢╦┐╒╕±╩²─┐íú
▓╬╩²:
    <nPageOffset>        ╫≤╢╦┐╒╕±╩²─┐, ╚▒╩í╬¬0
╦╡├≈: set margin ├ⁿ┴ε─▄╢╘ú└... SAY ├ⁿ┴ε╞≡╫≈╙├, ╘┌ú└... SAY ├ⁿ┴ε╓╨╓╕╢¿╡─
    ╞≡╩╝┤≥╙í┴╨╩╟╧α╢╘╙┌set margin to ├ⁿ┴ε╔Φ╓├╡─╫≤▒▀╜τ╢°╤╘íú
    REPORT FROM ├ⁿ┴ε║═label FROM ├ⁿ┴ε╢╝╩▄set margin to ├ⁿ┴ε╡─┐╪╓╞íú
└²╫╙: set margin to 10
    3, 10 say "WinBase"
/* ╞≡╩╝┤≥╙í┴╨╩╡╝╩╔╧╩╟20, ╢°▓╗╩╟¬└... say ├ⁿ┴ε╓╨╡─10*/

▓╬╝√: set(), @3022[set device], set print

.3027
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set message to
╙∩╖¿: set message to [<nRow>, [<center>]
╙├═╛: ╙├╙┌╔Φ╓├ú└... PROMPT ├ⁿ┴ε╓╨MESSAGE ▓┐╖▌╡─╩Σ│÷╬╗╓├íú
▓╬╩²:
    <nRow>     MESSAGE ╡─╞┴─╗╧╘╩╛╨╨╫°▒Ω
    <center>     ╘┌╓╕╢¿╡─╞┴─╗╨╨╔╧╢╘MESSAGE ╛╙╓╨╧╘╩╛
╦╡├≈:     ▓╗┤°╚╬║╬▓╬╩²╡─set message to ├ⁿ┴ε╗≥▓╬╩²<nRow> ╬¬0 ╡─set message to ├ⁿ┴ε╜½╣╪▒╒
╧√╧ó╡─╞┴─╗╧╘╩╛íú╥≥╬¬╚▒╩í╡─<nRow> ▓╬╩²╓╡╬¬0, ╦∙╥╘╧╘╩╛╧√
╧ó▒╪╨δ╙├set message to ├ⁿ┴ε╔Φ╓├╥╗╖╟0 ╡─╨┬╨╨║┼íú
└²╫╙:// ╔·│╔╥╗┴┴╠⌡▓╦╡Ñ
     set message to 24, center // ╘┌24 ╨╨╛╙╓╨╧╘╩╛message
    ú└ 10, 20 prompt " ╘÷╝╙: " message " ╘÷╝╙╥╗╕÷╨┬╝╟┬╝"
    ú└ 11, 20 prompt " ▒α╝¡: " message " ▒α╝¡╥╗╕÷╝╟┬╝"
    ú└ 12, 20 prompt " ╔╛│²: " message " ╔╛│²╥╗╕÷╝╟┬╝"
    menu to temp

▓╬╝√: @3012[menu to], set(), ¬└... prompt

.3140
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

set order to
╙∩╖¿: set order to <nIndex>
╙├═╛: ╜½╥╗╕÷┤≥┐¬╡─╦≈╥²╬─╝■╓╕╢¿╬¬╓≈╦≈╥²╬─╝■íú
▓╬╩²:
<nIndex>     0 ╡╜15 ╝Σ╡─╥╗╕÷╩²╫╓, ╙├└┤╙√╔Φ╓├╬¬╓≈╦≈╥²╬─╝■╡─╦≈╥²
╬─╝■╨≥║┼íú
╦╡├≈:     set order to 0 ├ⁿ┴ε▒ú│╓╦∙╙╨┤≥┐¬╡─╦≈╥²╬─╝■╚╘┤ª╙┌┤≥┐¬╫┤
╠¼, ╡½╦ⁿ╚í╧√╓≈╦≈╥²╬─╝■╡─╫≈╙├, ╩╣╡├║├╧≤├╗╙╨┤≥┐¬╦≈
╥²╬─╝■╡─╟Θ┐÷╧┬╢╘╝╟┬╝╜°╨╨╖├╬╩íú
└²╫╙: use my
    set index to namefi, nofi
    set order to 2 // ╓≈╦≈╥²╬─╝■╩╟nofi

▓╬╝√: @2415 [dbcreateind](), @2432 [dbsetorder](), @2431 [dbsetindex](),
@3118[index], set(), @2455 [indexkey](), @2456 [indexord]()

.3507
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@35[╡═╝╢╬─╝■├ⁿ┴ε]

set path to
╙∩╖¿: set path to [<xcPathSpec>]
╙├═╛:     ╓╕╢¿╥╗╨⌐╫╙─┐┬╝íúWINBASE ╜½╘┌╒Γ╨⌐╫╙─┐┬╝╓╨╤░╒╥╥╗╕÷▓╗
╘┌╡▒╟░╫╙─┐┬╝╓╨╡─╥╤┤µ╘┌╬─╝■íú
▓╬╩²:
<xcPathSpec>     ╫╙─┐┬╝▒φ, ╕≈╫╙─┐┬╝╓«╝Σ╙├╖╓║┼╕⌠┐¬, ╕├╫╙─┐┬╝▒φ╓╕╢¿
┴╦WINBASE ╡─╦╤╦≈┬╖╛╢íú
└²╫╙: set path to c: \winbase, c: \myprg // ╓╕╢¿┴φ═Γ(│²╚▒╩í╡─╟²╢»╞≈═Γ)
// ╕╜╝╙╡─╦╤╦≈┬╖╛╢c: \winbase, c: \myprg

▓╬╝√: set(), @3506[set default]

set print
╙∩╖¿:     set print ON|OFF|<xlToggle>
╙├═╛:     ╙├╙┌░╤│²ú└... SAY ├ⁿ┴ε╡─╩Σ│÷╓«═Γ╡─╞Σ╦ⁿ╞┴─╗╩Σ│÷╦═
╡╜┤≥╙í╗·íú
▓╬╩²:
<xlToggle>    ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ▒φ┤∩╩╜▒╪╨δ╙├└¿
║┼└¿╞≡íú
╦╡├≈:     ╚▒╩í▓╬╩²╩╟OFF (╣╪▒╒╫┤╠¼)íú
└²╫╙:    set print on
    ? "Hello winbase! " // ╘┌┤≥╙í╗·╔╧╩Σ│÷Hello winbase!
    set print off

▓╬╝√: @3028[set printer to] , set(), @3022[set device]

.3028
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set printer to
╙∩╖¿: set printer to [<xcDevice>|<xcFile>]
╙├═╛:     ╙├└┤╜½╦∙╙╨┤≥╙í╩Σ│÷╢¿╧≥╡╜╥╗╕÷╓╕╢¿╡─┤≥╙í
┐┌╗≥╒▀╙├└┤╜½┤≥╙í╩Σ│÷╥╘╝┘═╤╗·╖╜╩╜╦═╚δ╥╗╕÷
ASCII ┬δ╬─╝■╓╨íú
▓╬╩²:
<xcDevice>     ╚╬║╬║╧╖¿╡─┤≥╙í┐┌, ╚τLPT1, LPT2, LPT3, COM1, COM2, ▓╗╥¬╘┌╔Φ▒╕├√║≤╝╙╔╧├░║┼íú
<xcFile>     ╝┘═╤╗·┤≥╙í╡─╬─╝■├√íú╚τ├╗╙╨╓╕╢¿└⌐╒╣├√, ╘≥╥■║¼▓╔
╙├. PRNíú
╦╡├≈:     ╔╧╩÷┴╜╕÷▓╬╩²╢╝┐╔▓╔╙├╬─╫╓┤«╨╬╩╜╗≥╫╓╖√▒φ
┤∩╩╜╨╬╩╜, ▒φ┤∩╩╜▒╪╨δ╙├└¿║┼└¿╞≡íú
    ▓╗┤°▓╬╩²╡─set printer to ├ⁿ┴ε╣╪▒╒╝┘═╤╗·╬─╝■▓ó╟╥╜½╩Σ│÷╔Φ
▒╕╓╪╨┬╢¿╧≥╡╜LPT1íú
└²╫╙:    set console off
    set printer to my. prn
    report from my to print
    set printer to
    set console on
    return

▓╬╝√: @3028[set printer to], set(), @3022[set device]

.3705
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@37[╧╡═│├ⁿ┴ε]

set procedure to
╙∩╖¿: set procedure to <idProgramFile>
╙├═╛: ╓╕╢¿╥╗╕÷░ⁿ║¼╣²│╠║═╙├╗º╫╘╢¿╥σ║»╩²╡─╬─╝■íú
▓╬╩²:
<idProgramFile>     ░ⁿ║¼╣²│╠║═╙├╗º╫╘╢¿╥σ║»╩²╡─╬─╝■├√│╞íú╚τ╣√├╗
╙╨╓╕╢¿└⌐╒╣├√, ╘≥╘┌╦╤╦≈┤┼┼╠╩▒╥■║¼╩╣╙├. PRGíú╕├▓╬╩²┐╔
╥╘░ⁿ║¼╟²╢»╞≈, ┬╖╛╢║═└⌐╒╣├√╨┼╧óíú
╦╡├≈:     ╓╗╥¬─┌┤µ╘╩╨φ, ╥╗╕÷procedure ╬─╝■┐╔╥╘║¼╙╨╢α╕÷╙├╗º╫╘╢¿
╥σ║»╩²║═╣²│╠íú
└²╫╙: set procedure to f1
    set procedure to f2

▓╬╝√: set()

.3141
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

set relation to
╙∩╖¿:     set relation to [<expkey>|<nRecord> into <xcAlias>];
    [<expkey2>|<nRecord> into <xcAlias2>...] [ADDITIVE]
╙├═╛: ╘┌╖╓╩⌠▓╗═¼╣ñ╫≈╟°╡─┤≥┐¬╩²╛▌┐Γ╓«╝Σ╢¿╥σ╣╪
┴¬(╕╕/ ╫╙╣╪╧╡)íú
▓╬╩²:
<expkey>     ┐╪╓╞╫╙╬─╝■╝╟┬╝╓╕╒δ╡─▒φ┤∩╩╜íú╞Σ╫≈╙├╛═║├╧≤╩╟
╡▒╕╕╬─╝■╝╟┬╝╓╕╒δ╖ó╔·╥╞╢»╩▒, ╛═╘┌╫╙╬─╝■╓╨╓┤╨╨
╥╗╕÷SEEK ├ⁿ┴εíú
<nRecord>     ╝╟┬╝║┼╗≥╡╚╙┌╝╟┬╝║┼╡─╩²╫╓▒φ┤∩╩╜íú╦ⁿ╡╝╓┬╫╘╢»
╘┌╫╙╬─╝■╔╧╓┤╨╨╥╗╕÷GOTO ├ⁿ┴ε, ╚τ╣√╩╣╙├╒Γ╓╓╨╬╩╜╡─▓╬
╩²╘≥▒╪╨δ├╗╙╨╢╘╙ª╡─╦≈╥²╬─╝■▒╗┤≥┐¬íú
<xcAlias>     ╙├╙┌╔Φ╓├╣╪╧╡╡─╫╙╬─╝■╡─▒≡├√íú
ADDITIVE     ╜½┴φ═Γ╥╗╕÷╣╪╧╡┴¼╜╙╜°╥╤▒╗╔Φ╓├╡─╣╪╧╡┴┤╓╨íú
╦╡├≈:     ╚τ╣√╬─╝■╓╨├╗╙╨╥╗╕÷╝╟┬╝┐╔╥╘╞Ñ┼Σset relation ├ⁿ┴ε╓╨╓╕
╢¿╡─┐╪╓╞▒φ┤∩╩╜, ╘≥╫╙╬─╝■╓╨╡─╝╟┬╝╓╕╒δ▒╗╔Φ╓├╡╜
╫ε║≤╥╗╕÷╝╟┬╝║≤íúEOF() ╖╡╗╪.T., FOUND() ╖╡╗╪.F.íú
└²╫╙:     ╝┘╔Φ╙╨╥╗╕÷INS. DBF ╬─╝■, ╕├╬─╝■░ⁿ║¼╥╘╧┬╝╟┬╝, ▓ó╟╥╥╤╘┌CODE ╫╓
╢╬╔╧╜°╨╨┴╦╦≈╥²íú
    code type limit
    cas casualty 8000. 00
    hea health 2000000. 00
    lif life 500000. 00
    use cust
/*cust ╓╨║¼╙╨╥╗╕÷INSCODE ╫╓╢╬, ╕├╫╓╢╬║¼╙╨╙δINS. DBF ╧α═¼╡─CODE ┤«*/
    select 2
    use ins index codes
    select 1
    set relation to inscode into ins
    ? A->inscode // ╖╡╗╪hea
    ? B->type // ╖╡╗╪health
    ? B->limit // ╖╡╗╪2000000. 00
    skip
    ? A->inscode // ╖╡╗╪lif
    ? B->type // ╖╡╗╪life
    ? B->limit // ╖╡╗╪500000. 00

▓╬╝√: @2431 [dbsetindex](), @3118[index], @3140[set order], dbsetralat()

.3029
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set scoreboard
╙∩╖¿: set scoreboard ON|OFF|<xlToggle>
╙├═╛:     ╙├╙┌╘╩╨φ╗≥╜√╓╣╜½READ ║═MEMOEDIT() ▓┘╫≈╓╨╡─╧√╧ó╧╘╩╛╘┌╞┴
─╗╢Ñ╨╨íú
▓╬╩²:
<xlToggle>    ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ▒φ┤∩╩╜▒╪╨δ╙├└¿
║┼└¿╞≡íú
╦╡├≈:     ╚▒╩í▓╬╩²╩╟ON (╘╩╨φ╫┤╠¼)íú
    ╚τ╣√scoreboard ┤ª╙┌╘╩╨φ╫┤╠¼, ╘≥INS ╓╕╩╛╖√╗≥CAPS ╓╕╩╛╖√╥╘╝░╙╔MEMOEDIT() ║»╩²
▓·╔·╡─╧√╧ó╢╝╜½╧╘╩╛╘┌╞┴─╗╢Ñ╨╨íú
└²╫╙:
/* ╧┬└²INS ╓╕╩╛╖√╜½▓╗╘┘╧╘╩╛╘┌╞┴─╗╢Ñ╨╨, ╡½╚╘╚╗╩╟INS (▓σ╚δ) ╫┤
̬*/
    temp: =space (10)
    set scoreboard off
    ú└ 10, 10 say " ╩Σ╚δ╩²╛▌: " get temp
    read

▓╬╝√: set(), @2222 [memoedit]()

.3142
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

set softseek
╙∩╖¿: set softseek ON|OFF|<xlToggle>
╙├═╛: ╙├╙┌╚╖╢¿SEEK ╤░╒╥╝╟┬╝╩º░▄║≤, ╝╟┬╝╓╕╒δ╡─╬╗╓├╔Φ╓├íú
▓╬╩²:
<xlToggle>     ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ╕├▒φ┤∩╩╜▒╪╨δ╙├
└¿║┼└¿╞≡íú
╦╡├≈:     ╚▒╩í╠⌡╝■╜√╓╣(OFF) ╫┤╠¼íú╚τ╣√set softseek ┤ª╙┌╘╩╨φ╫┤╠¼, ╟╥SEEK ╤░╒╥╝╟┬╝
╩º░▄, ╘≥╝╟┬╝╓╕╒δ╜½▒╗╢¿╬╗╡╜┬·╫π╧┬├µ╠⌡╝■╡─╝╟┬╝
╢°▓╗╩╟╬─╝■╡─╜ß╬▓, ╒Γ╕÷╠⌡╝■╩╟╝╟┬╝╡─╦≈╥²╝ⁿ╓╡┤≤
╙┌SEEK ╓╨▒φ┤∩╩╜╡─╓╡íú
└²╫╙: use my index name
    seekexp: ="ye"
    seek &seekexp
    ? found(), eof() // ╖╡╗╪.F.,.T. (╤░╒╥╝╟┬╝╩º░▄)
    set softseek on
    seek &seekexp
    ? found(), eof() // ╖╡╗╪.F.,.F.

▓╬╝√: @3134[seek], set(), @3141[set relation]

.3406
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@34[╝ⁿ┼╠├ⁿ┴ε]

set typeahead to
╙∩╖¿: set typeahead to <nBufferSize>
╙├═╛: ╓╕╢¿│¼╟░╝ⁿ╚δ╗║│σ╟°╡─┤≤╨ííú
▓╬╩²:
    <nBufferSize>     │¼╟░╝ⁿ╚δ╗║│σ╟°╡─┤≤╨í(0=<nBuffersize<=4096)
╦╡├≈:     ╜½│¼╟░╝ⁿ╚δ╗║│σ╟°│ñ╢╚╔Φ╓├╬¬0 ╜½╗ß╡╝╓┬ALT-C ├ⁿ┴ε
║═ALT-D ├ⁿ┴ε▓╗─▄▒╗╒²╚╖╩╢▒≡íú
└²╫╙: set typeahead to 512 // ╓╕╢¿│¼╟░╝ⁿ╚δ╗║│σ╟°╬¬512 ╕÷╫╓╜┌

▓╬╝√: set(), @3403[keyboard], @1507 [lastkey](), @3405[set key], @3402[input], @3007[accept... to]

.3142
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

set unique
╙∩╖¿: set unique ON|OFF|<xlToggle>
╙├═╛: ╘┌╔·│╔╦≈╥²╬─╝■╞┌╝Σ, ╙├└┤╜√╓╣╗≥╘╩╨φ╛▀╙╨╓╪╕┤
╝ⁿ╓╡╡─╝╟┬╝íú
▓╬╩²:
<xlToggle>     ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ╕├▒φ┤∩╩╜▒╪╨δ╙├
└¿║┼└¿╞≡íú
╦╡├≈:     ╚▒╩í╠⌡╝■╜√╓╣(OFF) ╫┤╠¼íú╚τ╣√unique ┤ª╙┌╘╩╨φ╫┤╠¼(on), ╘≥╜÷╩╢▒≡
╦≈╥²╝ⁿ╓╨╛▀╙╨─│╠╪╢¿╓╡╡─╡┌╥╗╕÷╝╟┬╝, ╢°║≤├µ╛▀╙╨
╧α═¼╦≈╥²╝ⁿ╓╡╡─╝╟┬╝╢╝╜½▒╗║÷┬╘íú╥╗╡⌐╦≈╥²▒╗╔·│╔, ╘≥
▓╗╣▄set unique ├ⁿ┴ε╔Φ╓├╚τ║╬, ╕├╦≈╥²╢╝╜½▒ú│╓╦ⁿ╘¡└┤╡─unique ╩⌠╨╘íú
└²╫╙: use my
    set unique on // ╜√╓╣╛▀╙╨╓╪╕┤╝ⁿ╓╡╡─╝╟┬╝
    index on name+age to new
    set unique off

▓╬╝√: @3116[find], @3134[seek], @3131[reindex], set()

.3030
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

set wrap
╙∩╖¿: set wrap ON|OFF|<xlToggle>
╙├═╛:     ╙├╙┌╘╩╨φ╗≥╜√╓╣╜÷═¿╣²╥╗┤╬╗≈╝ⁿ╛═╩╣▓╦╡Ñ╓╨
╡─╤í╘±┴┴╠⌡┤╙╡┌╥╗╕÷╤í╘±╠°╡╜╫ε║≤╥╗╕÷╤í╘±, ╗≥┤╙
╫ε║≤╥╗╕÷╤í╘±╠°╡╜╡┌╥╗╕÷╤í╘±íú
▓╬╩²:
<xlToggle>    ╠ß╣⌐╥╗╕÷┬▀╝¡▒φ┤∩╩╜└┤┐╪╓╞╠⌡╝■, ▒φ┤∩╩╜▒╪╨δ╙├└¿
║┼└¿╞≡íú
╦╡├≈:     ╚▒╩í▓╬╩²╩╟OFF (╜√╓╣╫┤╠¼)íúset wrap ├ⁿ┴ε╢╘ACHOICE() ║»╩²├╗╙╨╙░╧∞íú
└²╫╙:/* ╔·│╔╥╗┴┴╠⌡▓╦╡Ñ, ╘╩╨φ▓╦╡Ñ╓╨╡─╤í╘±┴┴╠⌡┤╙╡┌╥╗
╕÷╤í╘±╠°╡╜╫ε║≤╥╗╕÷╤í╘±, ╗≥┤╙╫ε║≤╥╗╕÷╤í╘±╠°╡╜
╡┌╥╗╕÷╤í╘±*/
 set wrap on
set message to 24, center // ╘┌24 ╨╨╛╙╓╨╧╘╩╛message
    ú└ 10, 20 prompt " ╘÷╝╙: " message " ╘÷╝╙╥╗╕÷╨┬╝╟┬╝"
    ú└ 11, 20 prompt " ▒α╝¡: " message " ▒α╝¡╥╗╕÷╝╟┬╝"
    ú└ 12, 20 prompt " ╔╛│²: " message " ╔╛│²╥╗╕÷╝╟┬╝"
    menu to temp

▓╬╝√: @3012[menu to], set(), ¬└... prompt

.3144
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

skip
╙∩╖¿: skip [<nRecords>] [ALIAS <idALias>|<nWorkArea>]
╙├═╛: ╙├╙┌╜½╝╟┬╝╓╕╒δ╥╞╢»╡╜┴φ╥╗╕÷╝╟┬╝╔╧íú
▓╬╩²:
<nRecords>         ╥╞╢»╡─┤╬╩²íú╕║╩²▒φ╩╛═∙╗╪╥╞╢»╓╕╒δ, ╒²╩²╧≥╟░╥╞╢»íú▓╗
┤°▓╬╩²╡─SKIP ├ⁿ┴ε═∙╟░╥╞╢»╥╗╕÷╝╟┬╝íú
ALIAS <idALias>|<nWorkArea> ╓╕╢¿╣ñ╫≈╟°╡─▒φ┤∩╩╜, SKIP ├ⁿ┴ε╜½╢╘╕├▓╬╩²╦∙╓╕╢¿╣ñ╫≈
╟°╓╨╡─╝╟┬╝╓╕╒δ╜°╨╨╥╞╢»íú
╦╡├≈:     ╚τ╣√╜½╓╕╧≥╩²╛▌┐Γ╓╨╡┌╥╗╕÷╝╟┬╝╡─╝╟┬╝╓╕╒δ
═∙╗╪╥╞╢»╥╗╕÷╝╟┬╝, ╘≥BOF() ╖╡╗╪.T.íú╜½╝╟┬╝╓╕╒δ╥╞╡╜╩²╛▌┐Γ╓╨
╫ε║≤╥╗╕÷╝╟┬╝╓«║≤╜½╩╣EOF() ▒Σ╬¬.T.íúSKIP 0 ┐╔╙├└┤╜½WINBASE ─┌▓┐╗║│σ╟°
╓╨╡─╨┼╧ó╤╣╚δDOS ╗║│σ╟°╓╨, ╡½▓╗╗ß╥²╞≡DOS ╜½╗║│σ╟°─┌╚▌
╨┤╚δ┤┼┼╠íú
└²╫╙: use my
    go bottom
    skip
    ? eof() // ╖╡╗╪.T.

▓╬╝√: go, @2421 [dbgoto](), @2412 [dbcommit](), @2403 [bof](), @2441 [eof]()

.3145
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

sort to
╙∩╖¿: sort to <xcDatabase> on <idField> [/A|D] [/C] <idField2> [/A|D] [/C];
    <scope> [while <lCondition>] [for <lCondition>]
╙├═╛:     ╙├╙┌╘┌╬∩└φ╔╧╢╘╝╟┬╝╓╪╨┬┼┼╨≥ú¼▓ó╜½┼┼╨≥╜ß╣√
╨┤╡╜┴φ╥╗╕÷╬─╝■╓╨íú
▓╬╩²:
<xcDatabase>     ╙├└┤┤µ╖┼┼┼╨≥╜ß╣√╡─╬─╝■├√íú╚τ╣√├╗╙╨╓╕╢¿└⌐╒╣
├√, ╘≥╥■║¼╩╣╙├. DBFíú╕├▓╬╩²┐╔╥╘╩╟╥╗╕÷╬─╫╓┤«, ╗≥╩╟╥╗╕÷╙├└¿
║┼└¿╞≡╡─╫╓╖√▒φ┤∩╩╜íú
<idField>     ╙├╫≈┼┼╨≥╡─╣╪╝ⁿ╫╓╢╬íú
 [/A|D] [/C]     ┼┼╨≥┐¬╣╪íú╙├└┤╓╕╢¿┼┼╨≥├ⁿ┴ε░┤╔²╨≥(╚▒╩í╦│╨≥), ╜╡╨≥
╗≥▓╗┐╝┬╟┤≤╨í╨┤╡─╖╜╩╜╜°╨╨┼┼╨≥íú╡▒╓╕╢¿╢α╕÷┐¬╣╪
╗≥╢α╕÷╫╓╢╬╩▒, ╕≈┐¬╣╪║═╫╓╢╬╓«╝Σ╨Φ╙├╢║║┼╖╓┐¬íúí
<scope>     ╜°╨╨┼┼╨≥╡─╝╟┬╝╖╢╬ºíú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╫╓╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
╦╡├≈:     │²╖╟╔Φ╓├┴╦/C ┐¬╣╪, ╖±╘≥SORT ├ⁿ┴ε╜½╥└╛▌ASCII ┬δ╓╡╢╘╫╓╖√╫╓
╢╬╜°╨╨┼┼╨≥íú╚τ╣√╔Φ╓├┴╦/C ┐¬╣╪, ╘≥╫╓╖√╫╓╢╬╓╨╦∙╙╨╫╓─╕
╢╝░┤┤≤╨┤╫╓─╕╢╘┤²íú╢╘╚╒╞┌╫╓╢╬╡─┼┼╨≥╜½░┤─Ω┤·╦│
╨≥; ╢╘╩²╫╓╫╓╢╬░┤╩²╫╓╓╡╡─╦│╨≥íú
└²╫╙:
/* ╢╘┬·╫π╠⌡╝■╡─╝╟┬╝, ╜½░┤age ┤╙┤≤╡╜╨í, no ┤╙╨í┤≤╡╜┤≤╨┤╡╜╬─
╝■newfile ╓╨*/
    use my
    sort on age/D, no/A to newfile for name<>"xieping"

▓╬╝√: @3118[index], @1814 [asort]()

.3606
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@36[─┌┤µ▒Σ┴┐├ⁿ┴ε]

store
╙∩╖¿: store <Exp> to <idVar List>
    ╗≥<idVar>=<Exp>
    ╗≥<idVar>: = [<idVar>: =...] <Exp>
    ╗≥<idVar>: =<Exp> [, <idVar>: =<Exp>...]
╙├═╛: ╜¿┴ó─┌┤µ▒Σ┴┐║═╩²╫Θ╗≥╒▀╕°─┌┤µ▒Σ┴┐║═╩²╫Θ
╕│╓╡
▓╬╩²:
    <idVar>    ▒╗╕│╓╡╡─▒Σ┴┐├√
    <Exp>        ▒Σ┴┐║═╩²╫Θ╡─╕│╓╡
╦╡├≈:     ╕│╓╡▓┘╫≈╖√║═store ├ⁿ┴ε▓╗╥¬╟≤<idVar> ▓╬╩²╥╗╢¿╩╟▒Σ┴┐, <idVar> ╥▓┐╔
╥╘╩╟╩²╛▌┐Γ╓╨─│╕÷╫╓╢╬íú▒Σ┴┐├√╓«╝Σ╙┼╧╚╚¿┤╙╕▀╡╜
╡═╡─┤╬╨≥╬¬: ╫╓╢╬▒Σ┴┐, PRIVATE ╨═▒Σ┴┐, PUBLIC ╨═▒Σ┴┐, ┴╜╕÷▒Σ┴┐├√╓«╝Σ╬▐┬█
║╬╩▒│÷╧╓│σ═╗, ╫▄╩╟╙┼╧╚┐╝┬╟╛▀╙╨╫ε╕▀╙┼╧╚╚¿╡─▒Σ
┴┐└α╨═íú
    store ├ⁿ┴ε╝░╕│╓╡▓┘╫≈▓╗─▄╙├└┤╢╘╒√╕÷╩²╫Θ╕│╓╡íú
└²╫╙:
 store 100 to num //num ╩╟╥╗╕÷╡╚╙┌100 ╡─╩²╓╡▒Σ┴┐
num: =100 // ╙δ╔╧├µ╡╚╝█

▓╬╝√: @3601[clear memory], @1807 [afill]()

.3146
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

sum
╙∩╖¿: sum <exp List> to <idVar List> <scope>;
     [while <lCondition>] [for <lCondition>]
╙├═╛: ╙├╙┌╚╖╢¿╩²╛▌┐Γ╓╨╩²╓╡╨═╫╓╢╬╡─╫▄║═íú
▓╬╩²:
<exp List>         ╨Φ└█╝╙╡─╫╓╢╬▒φ║═/ ╗≥╝╞╦π╓╡íú
<idVar List>         ▒ú┤µ╝╞╦π╜ß╣√╡─▒Σ┴┐▒φíú<exp List> ▓╬╩²╓╨╡─├┐╕÷╘¬╦╪╘┌<idVar List> ▓╬
╩²╓╨▒╪╨δ╙╨╥╗╕÷╙δ╓«╧α╢╘╙ª╡─╘¬╦╪┤µ╘┌íú╚τ▒Σ┴┐▓╗
┤µ╘┌╗≥╢╘╣²│╠▓╗┐╔╝√, ╘≥╥╘PRIVATE └α╨═╜¿┴ó╦ⁿ├╟íú
<scope>         ╘┌╥¬═│╝╞╡─╬─╝■╓╨╓╕╢¿╥╗╕÷╝╟┬╝╖╢╬ºíú╚τ╣√╓╕╢¿
NEXT<n> ╫≈╬¬╖╢╬º▓╬╩², ╘≥FOR/WHILE ╫╙╛Σ╜½▒╗╫╘╢»╖╧│²íúALL ╩╟╚▒╩í╖╢╬ºíú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿
╡─╫╓╢╬╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
╦╡├≈:     ╘┌╢α╙├╗º╗╖╛│╓╨╓┤╨╨average ├ⁿ┴ε╩▒, ╘┌average ├ⁿ┴ε╓┤╨╨╞┌╝Σ, ╫╓╢╬
╓╡┐╔─▄▒╗╞Σ╦√╙├╗º╕─▒Σ, ╒Γ╔⌡╓┴┐╔╥²╞≡╘┌╕├├ⁿ┴ε═Ω
│╔┤ª└φ╓«╟░, ╜ß╣√╛═▒Σ╡├▓╗╛½╚╖íú
└²╫╙:
/*═│╝╞┬·╫π╠⌡╝■age<40. and. age>20 ╡─╣ñ╫╩(wage) ╫▄║═, ▓ó┤µ╚δ▒Σ┴┐sumwage ╓╨*/
 use my
sum wage to sumwage for age<40. and. age>20

▓╬╝√: @3103[average], @3111[count], @3147[total]

.3031
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

text
╙∩╖¿:  text [to printer] [to <xcFile>] <text> ENDTEXT
╙├═╛:     ╙├╙┌╧╘╩╛, ┤≥╙í╥╗╨╨╗≥╢α╨╨╒²╬─, ╗≥╒▀╜½╒Γ╨⌐╒²╬─╝┘
═╤╗·╦═╚δ╬─╝■íú
▓╬╩²:
<xcFile>    ╓╕╢¿╥╗╕÷╬─╝■, ╩Σ│÷╜½╝┘═╤╗·╦═╚δ┤╦╬─╝■╓╨, ╚τ▓╗╓╕╢¿
└⌐╒╣├√, ╘≥╥■║¼╩╣╙├. TXTíú
<text>         ▒╗╧╘╩╛, ┤≥╙í╗≥╝┘═╤╗·╦═╚δ╬─╝■╡─╒²╬─▓┐╖▌íú
╦╡├≈:     WINBASE ╓º│╓╒²╬─┐Θ╓╨╡─│÷╧╓╡─║Ω╠µ╗╗, ╡½├╗╙╨╠ß╣⌐╜½╨╨
╬▓╡─│ñ┤╩╚╞╡╜╧┬╥╗╨╨╡─╣ª─▄íú
└²╫╙:    text         // ╜½╘┌╞┴─╗╔╧╧╘╩╛
    1: add         // 1: add
    2: edit         // 2: edit
    3: del         // 3: del
    endtext

▓╬╝√: [? /??], @2233 [mlcount](), menoline()

.3147
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

total
╙∩╖¿: total on <expkey> [FIELDS <idField List>] to <xcDataBase>;
    <scope> [while <lCondition>] [for <lCondition>]
╙├═╛:     ╙├╙┌╜¿┴ó╥╗╕÷╙δ╘┤╩²╛▌┐Γ╛▀╙╨╧α═¼╜ß╣╣╡─╬─
╝■, ▓ó░╤╢╘╓╕╢¿╩²╫╓╫╓╢╬╡─═│╝╞┤µ╚δ╕├╬─╝■╓╨íú
▓╬╩²:
<expkey>         ┐╪╓╞╝╟┬╝╖╓╫Θ╡─╝ⁿ▒φ┤∩╩╜íú╘┌═│╝╞╜ß╣√╬─╝■╓╨, ├┐╥╗
╕÷╬¿╥╗╡─╝ⁿ▒φ┤∩╩╜╢╝╙╨╥╗╕÷═│╝╞╝╟┬╝╙δ╓«╢╘╙ªíú
<idField List>        ╥¬═│╝╞╡─╩²╫╓╫╓╢╬▒φíú╚τ├╗╙╨╓╕╢¿▓╬╩², ╘≥═│╝╞╜ß╣√
╝╟┬╝╜½▓╗║¼╘┤╬─╝■╓╨╩²╫╓╫╓╢╬╡─└█╝╞╓╡, ╢°╩╟╙δ╞Ñ
┼Σ╝ⁿ▒φ┤∩╩╜╡─╥╗╫Θ╝╟┬╝╓╨╡─╡┌╥╗╕÷╝╟┬╝║¼╙╨╧α
═¼╡─╩²╫╓╫╓╢╬╓╡íú
<scope>         ╥¬═│╝╞╡─╝╟┬╝╖╢╬º, ╚▒╩í╬¬ALLíú
while <lCondition>     ╓╕╢¿╓╒╓╣╕├├ⁿ┴ε╡─┬▀╝¡╠⌡╝■íú╕├╠⌡╝■╗∙╙┌<lCondition> ╦∙╓╕╢¿╫╓
╢╬╡─╓╡íú
for <lCondition>     ╢╘<scope> ╦∙╓╕╢¿╖╢╬º╓╨╝╟┬╝╡──┌╚▌╓╕╢¿╥╗╕÷┬▀╝¡▓Γ╩╘íú
╦╡├≈:     ▒╗═│╝╞╡─╬─╝■▒╪╨δ╘┌total ├ⁿ┴ε╓╨<expkey> ▓╬╩²╓╕╢¿╡─╝ⁿ╔╧
╜¿┴ó┴╦╦≈╥²╗≥╒▀░┤╒Γ╕÷╝ⁿ╜°╨╨┴╦┼┼╨≥íú╚τtotal ├ⁿ┴ε╓╨
├╗╙╨╓╕╢¿╫╓╢╬▒φ, ╓┤╨╨╜ß╣√╜÷╩╟╜½├┐╕÷╝ⁿ╓╡╦∙╢╘╙ª
╡─╡┌╥╗╕÷╝╟┬╝┐╜▒┤╡╜─┐▒Ω╬─╝■╓╨íú
└²╫╙:/* ═│╝╞┬·╫π╠⌡╝■age<40. and. age>20 ╡─╣ñ╫╩(wage) ╫▄║═, ▓ó┤µ╚δ╬─╝■sumwage ╓╨*/
 use my index wage
sum on wage to sumwage for age<40. and. age>20

▓╬╝√: @3103[average], @3111[count], @3146[sum]

.3031
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

type
╙∩╖¿: type <xcFile> [to printer] [to file <xcOutfile>]
╙├═╛:     ╘┌╞┴─╗╔╧╧╘╩╛╗≥╒▀╘┌┤≥╙í╗·╔╧┤≥╙í╥╗╕÷ASCII ┬δ╬─
▒╛╬─╝■╡──┌╚▌╗≥╒▀╜½╥╗╕÷ASCII ┬δ╬─▒╛╬─╝■╢¿╧≥╡╜┴φ
╥╗╕÷╬─╝■╓╨íú
▓╬╩²:
<xcFile>         ╥¬╧╘╩╛╡─╬─╝■├√íú▓╬╩²╓╨┐╔░ⁿ└¿┬╖╛╢╗≥╟²╢»╞≈╨┼
╧óíú╕├▓╬╩²┐╔▓╔╙├╬─╫╓┤«╨╬╩╜╗≥╫╓╖√▒φ┤∩╩╜╨╬╩╜, ▒φ┤∩
╩╜▒╪╨δ╙├└¿║┼└¿╞≡íú
[to printer]         ╜½╦∙╙╨╩Σ│÷╢¿╧≥╡╜╡▒╟░┤≥╙í╔Φ▒╕╔╧íú
to file <xcOutfile>     ╩Σ│÷╜ß╣√╬─╝■├√íú╚τ▓╗╓╕╢¿└⌐╒╣├√, ╘≥╥■║¼╩╣╙├. TXTíú▓╬╩²╓╨
┐╔░ⁿ└¿┬╖╛╢╗≥╟²╢»╞≈╨┼╧óíú╕├▓╬╩²┐╔▓╔╙├╬─╫╓┤«╨╬
╩╜╗≥╙├└¿║┼└¿╞≡╫╓╖√▒φ┤∩╩╜íú
╦╡├≈:     ╛÷╢¿╙┌╙├╗º╩╣╙├╡─DOS ░µ▒╛, CTRL-S ╗≥CTRL-NUM ┐╔╙├└┤╘▌═ú╧╘╩╛, ╙├CTRL-T ╗≥ESC ▓╗─▄
╓╒╓╣╧╘╩╛íú
└²╫╙:
 type c: \winbase\readme. txt to printer // ╘┌┤≥╙í╗·╔╧╩Σ│÷╬─╝■readme. txt
type c: \winbase\readme. txt to screen // ╘┌╞┴─╗╔╧╧╘╩╛╬─╝■readme. txt

▓╬╝√: @2222 [memoedit] ║»╩²

.3148
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

unlock
╙∩╖¿: unlock [all]
╙├═╛:     ╙├╙┌╩═╖┼▒╗╡▒╟░╙ª╙├│╠╨≥╦°╢¿╡─╬─╝■╗≥╝╟┬╝, ╡½
▓╗─▄╩═╖┼▒╗╞Σ╦√╙├╗º╦°╢¿╡─╬─╝■╗≥╝╟┬╝íú
▓╬╩²:
all    ╩═╖┼╦∙╙╨╣ñ╫≈╟°╓╨╦∙╙╨╦°╢¿╡─╬─╝■╗≥╝╟┬╝, ╚τ╚▒╩í, ╜÷
╩═╖┼╡▒╟░╣ñ╫≈╟°╓╨╦°╢¿╡─╬─╝■╗≥╝╟┬╝íú
└²╫╙: if rlock()
        replace name with "ye"
        unlock
    else
        ... // ╝╟┬╝▒╗╦°╩▒╥¬▓╔╚í╡─╢»╫≈
    endif

▓╬╝√: @3137[set exclusive], @2477 [rlock], @2449 [flock](), @2460 [lockfile]()

.3149
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

update
╙∩╖¿: update from <xAlias> on <expkey> [RANDOM];
    REPLACE <idField1> with <exp> [, <idField> with <exp>...]
╙├═╛: ╙├╘┤╩²╛▌┐Γ╡──┌╚▌╕ⁿ╨┬╡▒╟░╩²╛▌┐Γíú
▓╬╩²:
<xAlias>     ░ⁿ║¼╕ⁿ╨┬▓┘╫≈╓╨╘┤╩²╛▌┐Γ╡─╣ñ╫≈╟°íú
<expkey>     ┴╜╕÷╬─╝■╡─╣▓═¼╝ⁿíú╜÷╡▒╝ⁿ╞Ñ┼Σ╩▒, ▓┼╓┤╨╨╕ⁿ╨┬▓┘╫≈íú
<idField> with <exp>     ╨Φ╨▐╕─╡─╫╓╢╬╫Θ│╔╡─▒φ, ╫╓╢╬╓«╝Σ╙├╢║║┼╖╓╕⌠┐¬íú╨▐
╕─╩▒╜½╥╘▒φ┤∩╩╜╡─╓╡╫≈╬¬╕∙╛▌íú
RANDOM     ╘┌╬─╝■╓«╝Σ╓╕╢¿╥╗╕÷╥╗╢╘╢α╣╪╧╡íú╚τ╓╕╢¿RANDOM, ╘≥╦╤╦≈
╘┤╬─╝■╓╨╦∙╙╨╞Ñ┼Σ<expkey> ╡─╝╟┬╝, ▓ó╙├╒Γ╨⌐╝╟┬╝╚Ñ╕ⁿ╨┬╡▒
╟░╩²╛▌┐Γ╓╨╡▒╟░╝╟┬╝└∩├µ╡──╟╨⌐╙╔├ⁿ┴ε╦∙╓╕╢¿╡─
╫╓╢╬íú
└²╫╙:// ╕∙╛▌╫╓╢╬itemcode ╕ⁿ╨┬╡▒╟░╩²╛▌┐Γ╡─weight ╫╓╢╬
    use invent index inv_item // ┤≥┐¬╡▒╟░╩²╛▌┐Γ
    select 2
    use invc_itm index invc_itm// ┤≥┐¬╘┤╩²╛▌┐Γ
    select 1
    update on itemcode from invc_itm replace weight with weight-;
    b->old RANDOM

▓╬╝√: set seleted, @3132[replace]

.3150
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

use
╙∩╖¿: use [<xcDatabase>] [INDEX <xcIndex LIst>];
     [ALIAS <idAlias>] [EXCLUSIVE|SHARED] [NEW] [READONLY]
╙├═╛: ╙├╙┌╘┌╡▒╟░╣ñ╫≈╟°╓╨┤≥┐¬╩²╛▌┐Γ║═╚╬║╬╓╕╢¿
╡─╦≈╥²╬─╝■íú
▓╬╩²:
<xcDatabase>     ╥¬┤≥┐¬╡─╩²╛▌┐Γ├√íú
INDEX <xcIndex LIst>     ═¼╩▒┤≥┐¬╡─╦≈╥²╬─╝■▒φ, ╢╘├┐╕÷╩²╛▌┐Γ╫ε╢α    ┐╔═¼╩▒┤≥
┐¬15 ╕÷╦≈╥²╬─╝■íú▒φ╓╨╡─╡┌╥╗╕÷╦≈╥²╬─╝■╬¬╓≈╦≈╥²
╬─╝■íú
ALIAS <idAlias>     ╙├└┤╠ß╣⌐╥╗╕÷╡Ñ┤╩╫≈╬¬▒≡├√└┤╥²╙├╬─╝■╢°▓╗╩╟
═¿╣²╬─╝■├√└┤╥²╙├╬─╝■íú
EXCLUSIVE     ╙├╘┌═°┬τ╗╖╛│╓╨╢╘╥╗╕÷╬─╝■╥¬╟≤╗Ñ│Γ╖├╬╩íú╚τ╘┌═°
┬τ╓╨░┤╣▓╧φ╖╜╩╜(SHARED) ┤≥┐¬╬─╝■, ╘≥╘╩╨φ╢α╕÷╙├╗º═¼╩▒╩╣
╙├╕├╬─╝■íú
NEW     ╘┌╧┬╥╗╕÷┐╒╧╨╣ñ╫≈╟°╓╨┤≥┐¬╩²╛▌┐Γíú
READONLY     ░┤╓╗╢┴╖╜╩╜┤≥┐¬╬─╝■íú
╦╡├≈:     ▓╗┤°╚╬║╬▓╬╩²╡─USE ├ⁿ┴ε╜½╘┌╡▒╟░╣ñ╫≈╟°╓╨╣╪▒╒
╥╗╕÷┤≥┐¬╩²╛▌╬─╝■╥╘╝░╦ⁿ╡─╦∙╙╨╦≈╥²╬─╝■íú╘┌═°┬τ
╓╨, ╓╪╨┬┤≥┐¬╥╗╕÷╥╤░┤EXCLUSIVE ╖╜╩╜┤≥┐¬╗≥▒╗╞Σ╦√╙├╗º╙├FLOCK() ╦°
╢¿╡─╬─╝■╜½╗ß╩╣╡├NETERR() ╖╡╗╪.T. ╓╡íú
└²╫╙: use my index name
    select 2
    use he index no

▓╬╝√: @2438 [dbusearea](), @2472 [netuse]()

.3033
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@30[╧╘╩╛╩Σ│÷╩Σ╚δ├ⁿ┴ε]

wait
╙∩╖¿: wait [<expPrompt>] [to <idVar>]
╙├═╛:     ╙├╙┌╘▌═ú╙ª╙├│╠╨≥╡─╓┤╨╨╓▒╡╜▓┘╫≈╒▀╙├╗≈╝ⁿ
╧∞╙ªíú╩Σ╚δ╡─╝ⁿ╓╡▒╗╖┼╚δ╓╕╢¿╡─▒Σ┴┐╓╨íú
▓╬╩²:
<expPrompt>     ╘┌╞┴─╗╔╧╧╘╩╛╡─╠ß╩╛╫╓╖√
<idvar>     ▒ú┤µ╝ⁿ╚δ╓╡╡─╫╓╖√▒Σ┴┐íú╚τ╣√─┌┤µ▒Σ┴┐<idvar> ▓╗┤µ╘┌╗≥╢╘
╡▒╟░▓╗┐╔╝√, ╘≥╜¿┴ó╥╗╕÷PRIVATE ╨═▒Σ┴┐íú
└²╫╙: wait " ░┤╚╬╥╗╝ⁿ╝╠╨°... " // ╞┴─╗╧╘╩╛"░┤╚╬╥╗╝ⁿ╝╠╨°..."
                    // ╙├╗º╚╬╟├╥╗╝ⁿ│╠╨≥╜½╝╠╨°╓┤╨╨

▓╬╝√: @3007[accept... to], @3402[input]

.3151
winbase╝╝╩⌡▓╬┐╝╩╓▓ß
@31[╩²╛▌┐Γ├ⁿ┴ε]

zap
╙∩╖¿: zap
╙├═╛: ╙├╙┌╘┌╩²╛▌┐Γ╓╨┐∞╦┘╔╛│²║═╤╣╦⌡╦∙╙╨╝╟┬╝íú
▓╬╩²: ╬▐
╦╡├≈:     ╕├├ⁿ┴ε╘┌╟σ┐╒╩²╛▌┐Γ╡─═¼╩▒╜½╟σ┐╒╙δ╩²╛▌┐Γ
╢╘╙ª╡─╦≈╥²╬─╝■║═▒╕╫ó╬─╝■íú╘┌═°┬τ╓╨, ╙ª▒ú╓ñ░┤EXCLUSIVE ╖╜╩╜
╩╣╙├╬─╝■íú
└²╫╙: use my index name, age
    zap
    ? eof() // ╖╡╗╪.T.

▓╬╝√: @3114[delete], @3129[pack], @3131[reindex]

.700
            Winbase ╜Γ╩═╞≈╓º│╓╚τ╧┬├ⁿ┴ε


ú└ <nRow>, <nCol> [say <exp> [picture <clause>]] [get <exp> [picture <clause>];
     [range <exp, exp>] [valid <exp>]] [clear];

ú└ t, l, b, r BOX <string>

! or RUN <DOS command or file>

? [<exp>]

?? [<exp>]

<var>: = <exp>

accept [<string>] to <memvar>

append blank

call <procedure> [with <param1> [, <parameter list>]]

clear

cls

copy [structure] to <cFilename>

dir [<drive>] [<path>] [<skeleton>]

display [<exp> [, <expression list>]]

delete [<scope>] [FOR/WHILE <expression>].

do <procedure> [with <param1> [, <parameter list>]]

erase <file name>. <extension>

exit

go [to] <exp>/TOP/BOTTOM

index on <key expression> to <ntxfile>

input [<string>] to <var>

list [<exp> [, <expression list>]]

pack

quit

read

recall [<scope>] [FOR/WHILE <expression>].

release <var>

replace <fieldname> with <expression>

return ** Returns to previous level **

seek <exp>

select <exp>/<alias> ** variables not usable **

set color to <expression>

set decimals to <expression>

set default to <drive>

set delimiters <ON/OFF>

set delimiters to [<string>] / [DEFAULT]

set filter to [<filter expression>]

set escape <ON/OFF>

set exact <ON/OFF>

set exclusive <ON/OFF>

set fixed <ON/OFF>

set function <function key number> to <string>

set intensity <ON/OFF>

set index to [<ntxfile> [, <ntxlist>]]]

set key <ascii key number> to <string>

set path to [<path expression>]

set order to [<expN>]

set relation to [<key expression> into <alias>]

skip [<exp>]

type <file name>. <extension>

unlock [ALL]

use [<cFilename> [index <ntxfile> [, <ntxlist>]]] [alias <alias name>]

exclusive

wait [ [<string>] [to <var>]]

zap

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

╕╜┬╝A     Winbase  ▒α╝¡╞≈▓┘╫≈

.699
    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]

óσ╬─╝■▓┘╫≈
<F2>             ┤µ╓ⁿ╡▒╟░╬─╝■▓ó╝╠╨°▒α╝¡
<F3>             ╡≈╚δ╨┬╡─╬─╝■
<F8>             ═¼╩▒▒α╝¡┴φ═Γ╥╗╕÷╬─╝■
<Ctrl_F10>         ┤µ┼╠▓ó═╦│÷
<ESC>         ═╦│÷╡▒╟░▒α╝¡╬─╝■, ╚⌠╬─╝■╬┤┤µ┼╠, ╘≥╗ß╠ß╨╤─π┤µ┼╠

óµ╝≥╡Ñ▒α╝¡▓┘╫≈
<Ins>             ╘┌▒α╝¡╞≈╡─▓σ╚δ╙δ╕▓╕╟╫┤╠¼╓«╝Σ╜°╨╨╫¬╗╗
<Del>             ╔╛│²╡▒╟░╫╓╖√╗≥╥╤▒Ω╝╟╡─╬─▒╛┐Θ
<BackSpace>         ╧≥╫≤╔╛│²╥╗╕÷╫╓╖√
<Tab>             ▓σ╚δTAB ╓╡(4 ╕÷╫╓╖√│ñ)
<Enter>         ▓σ╚δ╥╗╨╨
<Ctrl_Y>         ╔╛│²╡▒╟░╨╨

óτ╣Γ▒Ω╥╞╢»▓┘╫≈
<Up>             ╔╧╥╞╥╗╨╨
<Down>         ╧┬╥╞╥╗╨╨
<Left>             ╫≤╥╞╥╗╕÷╫╓╖√
<Right>         ╙╥╥╞╥╗╕÷╫╓╖√
<Home>         ╥╞╡╜▒╛╨╨╡┌╥╗╕÷╫╓╖√
<End>             ╥╞╡╜▒╛╨╨╫ε║≤╥╗╕÷╫╓╖√
<Ctrl_Left>         ╫≤╥╞╥╗╕÷┤╩
<Ctrl_Right>         ╙╥╥╞╥╗╕÷┤╩
<PgDn>         ╧┬╖¡╥╗╥│
<PgUp>         ╔╧╖¡╥╗╥│
<Ctrl_PgDn>         ╖¡╡╜╬─╝■╫ε║≤╥╗╥│
<Ctrl_PgUp>         ╖¡╡╜╬─╝■╡┌╥╗╥│
<Ctrl_G>         ╫¬╡╜╓╕╢¿╡─╨╨
<Ctrl_W>         ╔Φ╢¿╫≤╙╥╖¡╥│┐φ╢╚(╚▒╩í╬¬40)
<F5>            ╦ó╨┬╞┴─╗
<F6>             ░┤╒╒╓╕╢¿╖¡╥│┐φ╢╚╙╥╖¡╥╗╥│
<F7>             ░┤╒╒╓╕╢¿╖¡╥│┐φ╢╚╫≤╖¡╥╗╥│

óΦ▓Θ╒╥╠µ╗╗
<Ctrl_S>         ╩Σ╚δ┤²▓Θ╫╓╖√┤«▓ó╧≥║≤▓Θ╒╥
<Ctrl_O>         ╝╠╨°╧≥║≤▓Θ╒╥
<Ctrl_L>         (╝╠╨°) ╧≥╟░▓Θ╒╥
<Ctrl_R>        ▓Θ╒╥╠µ╗╗íú░┤╠ß╩╛╩Σ╚δ╘¡╫╓╖√┤«╝░╨┬╫╓╖√┤«║≤, ┤╙╡▒
╟░╬╗╓├┐¬╩╝╧≥║≤╜°╨╨╠µ╗╗íú┐╔╥╘╙╨╤í╘±╡╪╠µ╗╗, ╥▓┐╔
╥╘╚½▓┐╥╗┤╬╠µ╗╗

óΘ┐Θ╤í╘±╙δ▓┘╫≈
<Shift_Left>         ╧≥╫≤╤í╘±╥╗╕÷╫╓╖√
<Shift_Right>         ╧≥╙╥╤í╘±╥╗╕÷╫╓╖√
<Shift_Up>         ╧≥╔╧╤í╘±╥╗╨╨
<Shift_Down>         ╧≥╧┬╤í╘±╥╗╨╨
<Shift_PgUp>         ╧≥╔╧╤í╘±╥╗╥│
<Shift_PgDn>         ╧≥╧┬╤í╘±╥╗╥│
<Ctrl_C>     ╔Φ╢¿╛╪╨╬┐Θ╤í╘±╖╜╩╜, ┐╔╥╘═¿╣²╕≈╓╓▒α╝¡╝ⁿ, ╤í╘±╥╗╕÷
╛╪╨╬╖╜┐Θ╡──┌╚▌
<Ctrl_H>         ╖┼╞·╦∙╙╨┐Θ╤í╘±╖╜╩╜
<Ctrl_Enter>         ╜½╤í╘±║├╡─┐Θ╦═╚δ▓├╝⌠░σ, ╘¡┐Θ▓╗▒Σ
Shift_Del>         ╜½╤í╘±║├╡─┐Θ╦═╚δ▓├╝⌠░σ, ╘¡┐Θ▒╗╔╛│²
<Ctrl_BackSpace>     ╜½╤í╘±║├╡─┐Θ╔╛│²╡⌠, ▓╗╦═╚δ▓├╝⌠░σ
<Shift_Ins>         ╜½▓├╝⌠░σ╓╨╡──┌╚▌╒│╠∙╡╜╡▒╟░╬╗╓├

    @1[WinBase╝╝╩⌡▓╬┐╝╩╓▓ß]