REM Program Exmp02.bas
REM Demonstrate the use of the READ and DATA statements in Qbasic
REM This program reads a Customers account detail and then calculates
REM the closing balance of the Account.
CLS
COLOR 15
PRINT TAB(15); "Account Balances"
LET Line$ = STRING$(80, CHR$(205))
READ Name$, AccBalance, Deposits, Withdrawls
Tax = (Deposits + Withdrawls) * .02
CloseBal = AccBalance + Deposits - (Withdrawls + Tax)
COLOR 1
PRINT Line$
COLOR 15
PRINT TAB(10); "Account Name: ", Name$
PRINT TAB(10); USING "Opening Account Balance: $#,###.##"; AccBalance
PRINT TAB(10); USING "Closing Account Balance: $#,###.##"; CloseBal
PRINT TAB(10); USING "Tax paid on Transactions: $#,###.##"; Tax
COLOR 1
PRINT Line$
DATA "Bob Smith", 500, 175, 65
END