_curobj=objnum(m.exiterr) _curobj=objnum(m.exitok) separat TALKz COMPATIBLEz _r260tanam Parametry _r260tanam Katalog Subiekta 3: ZaokrF glenia : dochodu: podatku: Sterowanie : 10,000 @^ 100,000;10,000;1,000;100;10;1;0.1;0.01 1,000 @^ 10,000;1,000;100;10;1;0.1;0.01 Separator - tysiF Katalog Subiekta 4: @*C Dopisz/Popraw/UsuF @*C Tabela @*C AmortyzowaF rodki trwa e w nast pnym miesi @*HT Zapisz @*HT Zaniechaj _r260tanam RIBBON TEMPDOCH TEMPPOD GDZIES3 GDZIES4 TEMPS3 TEMPTAB S3PATH ARS4PATH M._PARZ_DOCH_PARZ_POD MENU_S3 MENU_TAB PODMPATH CURRAREA TALKSTAT dCOMPSTAT elect 0_R260TANAM_R260TANPO_R260TANTISEP_TYS pSEP_ULA mPOZNSRTR tEXITOK _R260TANZGEXITERR .fCLEARRIB y katalog Subiekta 3 GDZIES3 y katalog Subiekta 3 GDZIES4 params _par* podmioty podmioty menu_* separat sep_* IOPEN S3PATH GDZIES3 S4PATH GDZIES4 TEMPDOCH _PARZ_DOCHTEMPPOD CH_PARZ_POD PODMPATH PODMIOTY HSYMBOL FIRMNR POZNSRTR MENU_S3 TEMPS3 MENU_TAB dTEMPTAB eREDOMENU 0SEP_ULA MSEP_TYS PO_R260TANPO _R260TANTI _R260TANZG CURSORz TALKz COMPATIBLEz _qz90oigji Informacja o programie (c) InsERT 1994 _qz90oigji InsERT, WrocF Parkowa 25 telefon: (071) 48-42-81 Wersja XXXXXXXXXXXXXXXXXXX R A C H M I S T R Z Autorzy: Artur Bartnicki Marcin Hudyma Tomasz KF Komputerowa ksiF ka przychod w i rozchod Wolnej pamiF ci DOS-owej masz: Rachmistrz potrafi wykorzystaF Na dysku masz jeszcze wolnych: 999,999,999c bajt 999,999,999c bajt 999,999,999c bajt _qz90oigji set cursor &curstat CURSTAT CURRAREA TALKSTAT COMPSTAT _QZ90OIGJIRACHVER system.spr infoprog.spr miesiac.spr REDOMENU SYSTEM INFOPROG MIESIAC CLEARRIB COLORLOOP MAINMENU @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col RIBBON SETRIB CLEARRIB m.xloc = m.xloc errors \