zalohy skripta

[mirrors/Programs.git] / turbobasic / 1998 / 3RD-PA.RTY / QBASIC / MONEY.BAS

'\r
'                    Q B a s i c   M O N E Y   M A N A G E R\r
'\r
'                   Copyright (C) Microsoft Corporation 1990\r
'\r
' The Money Manager is a personal finance manager that allows you\r
' to enter account transactions while tracking your account balances\r
' and net worth.\r
'\r
' To run this program, press Shift+F5.\r
'\r
' To exit QBasic, press Alt, F, X.\r
'\r
' To get help on a BASIC keyword, move the cursor to the keyword and press\r
' F1 or click the right mouse button.\r
'\r
\r
\r
'Set default data type to integer for faster operation\r
DEFINT A-Z\r
\r
'Sub and function declarations\r
DECLARE SUB TransactionSummary (item%)\r
DECLARE SUB LCenter (text$)\r
DECLARE SUB ScrollUp ()\r
DECLARE SUB ScrollDown ()\r
DECLARE SUB Initialize ()\r
DECLARE SUB Intro ()\r
DECLARE SUB SparklePause ()\r
DECLARE SUB Center (row%, text$)\r
DECLARE SUB FancyCls (dots%, Background%)\r
DECLARE SUB LoadState ()\r
DECLARE SUB SaveState ()\r
DECLARE SUB MenuSystem ()\r
DECLARE SUB MakeBackup ()\r
DECLARE SUB RestoreBackup ()\r
DECLARE SUB Box (Row1%, Col1%, Row2%, Col2%)\r
DECLARE SUB NetWorthReport ()\r
DECLARE SUB EditAccounts ()\r
DECLARE SUB PrintHelpLine (help$)\r
DECLARE SUB EditTrans (item%)\r
DECLARE FUNCTION Cvdt$ (X#)\r
DECLARE FUNCTION Cvst$ (X!)\r
DECLARE FUNCTION Cvit$ (X%)\r
DECLARE FUNCTION Menu% (CurrChoiceX%, MaxChoice%, choice$(), ItemRow%(), ItemCol%(), help$(), BarMode%)\r
DECLARE FUNCTION GetString$ (row%, col%, start$, end$, Vis%, Max%)\r
DECLARE FUNCTION Trim$ (X$)\r
\r
'Constants\r
CONST TRUE = -1\r
CONST FALSE = NOT TRUE\r
\r
'User-defined types\r
TYPE AccountType\r
    Title        AS STRING * 20\r
    AType        AS STRING * 1\r
    Desc         AS STRING * 50\r
END TYPE\r
\r
TYPE Recordtype\r
    Date     AS STRING * 8\r
    Ref      AS STRING * 10\r
    Desc     AS STRING * 50\r
    Fig1     AS DOUBLE\r
    Fig2     AS DOUBLE\r
END TYPE\r
\r
'Global variables\r
DIM SHARED account(1 TO 19)  AS AccountType     'Stores the 19 account titles\r
DIM SHARED ColorPref                            'Color Preference\r
DIM SHARED colors(0 TO 20, 1 TO 4)              'Different Colors\r
DIM SHARED ScrollUpAsm(1 TO 7)                  'Assembly Language Routines\r
DIM SHARED ScrollDownAsm(1 TO 7)\r
DIM SHARED PrintErr AS INTEGER                  'Printer error flag\r
\r
    DEF SEG = 0                     ' Turn off CapLock, NumLock and ScrollLock\r
    KeyFlags = PEEK(1047)\r
    POKE 1047, &H0\r
    DEF SEG\r
  \r
    'Open money manager data file.  If it does not exist in current directory,\r
    '  goto error handler to create and initialize it.\r
    ON ERROR GOTO ErrorTrap\r
    OPEN "money.dat" FOR INPUT AS #1\r
    CLOSE\r
    ON ERROR GOTO 0     'Reset error handler\r
\r
    Initialize          'Initialize program\r
    Intro               'Display introduction screen\r
    MenuSystem          'This is the main program\r
    COLOR 7, 0          'Clear screen and end\r
    CLS\r
\r
    DEF SEG = 0                     ' Restore CapLock, NumLock and ScrollLock states\r
    POKE 1047, KeyFlags\r
    DEF SEG\r
\r
    END\r
\r
' Error handler for program\r
' If data file not found, create and initialize a new one.\r
ErrorTrap:\r
    SELECT CASE ERR\r
        ' If data file not found, create and initialize a new one.\r
        CASE 53\r
            CLOSE\r
            ColorPref = 1\r
            FOR a = 1 TO 19\r
                account(a).Title = ""\r
                account(a).AType = ""\r
                account(a).Desc = ""\r
            NEXT a\r
            SaveState\r
            RESUME\r
        CASE 24, 25\r
            PrintErr = TRUE\r
            Box 8, 13, 14, 69\r
            Center 11, "Printer not responding ... Press Space to continue"\r
            WHILE INKEY$ <> "": WEND\r
            WHILE INKEY$ <> " ": WEND\r
            RESUME NEXT\r
        CASE ELSE\r
    END SELECT\r
    RESUME NEXT\r
\r
\r
'The following data defines the color schemes available via the main menu.\r
'\r
'    scrn  dots  bar  back   title  shdow  choice  curs   cursbk  shdow\r
DATA 0,    7,    15,  7,     0,     7,     0,      15,    0,      0\r
DATA 1,    9,    12,  3,     0,     1,     15,     0,     7,      0\r
DATA 3,    15,   13,  1,     14,    3,     15,     0,     7,      0\r
DATA 7,    12,   15,  4,     14,    0,     15,     15,    1,      0\r
\r
'The following data is actually a machine language program to\r
'scroll the screen up or down very fast using a BIOS call.\r
DATA &HB8,&H01,&H06,&HB9,&H01,&H04,&HBA,&H4E,&H16,&HB7,&H00,&HCD,&H10,&HCB\r
DATA &HB8,&H01,&H07,&HB9,&H01,&H04,&HBA,&H4E,&H16,&HB7,&H00,&HCD,&H10,&HCB\r
\r
'Box:\r
'  Draw a box on the screen between the given coordinates.\r
SUB Box (Row1, Col1, Row2, Col2) STATIC\r
\r
    BoxWidth = Col2 - Col1 + 1\r
\r
    LOCATE Row1, Col1\r