Category : BASIC Source Code
Archive   : MGLOBAL2.ZIP
Filename : MGLOBAL.BAS

rint Transactions / Summary"
Spot 2, 28: PRINT "{{ eit The Program }}"
x% = 9: p% = 11: COLOR 14
Spot 2, p%: PRINT "C": LOCATE x%, 43: PRINT "Q"
Spot 2, p%: PRINT "L": LOCATE x%, 43: PRINT "S"
Spot 2, p%: PRINT "H": LOCATE x%, 43, 0: PRINT "P"
Spot 2, 33: PRINT "X"
Frame 18, 19, 14, 88, 1
COLOR 1: Center 16, " SELECT C - H - L - P - Q - S - or - X [ @ ]"
END SUB

SUB PrintMenuScrn
COLOR 1, 1, 8: CLS : Upper "PRINT SELECTION MENU": Frame 4, 14, 4, 88, 3
Center 2, "ummary of Holdings - Current Value"
Center 2, "ransactions - History of Purchases"
Center 2, "ape - Return to Menu - Do Not Print"
COLOR 1, 7: Center 3, "Choose , , or "
END SUB

SUB Spot (Down%, Over%)
x% = x% + Down%: LOCATE x%, Over%
END SUB

SUB SummaryPrn
COLOR 0, 3, 1: CLS
IBMProPrinter
LPRINT CHR$(14); TAB(3); Fund$
LPRINT TAB(26); "Current as of: "; DATE$
LPRINT CHR$(13)
LPRINT STRING$(77, 205)
LPRINT TAB(3); "DESCRIPTION"; TAB(32); "UNITS"; TAB(41); "C O S T";
LPRINT TAB(52); "CURR VALUE"; TAB(66); "GAIN/LOSS"
LPRINT STRING$(77, 205)
LPRINT CHR$(13)
CLOSE : OPEN File$ FOR RANDOM AS #1 LEN = LEN(Easy)
TotRec% = LOF(1) \ LEN(Easy)
TotUnt = 0: TotCst = 0: TotVal = 0: TotSGL = 0
FOR rn% = 1 TO TotRec%
DO
GET #1, rn%, Easy
IF LEFT$(Easy.Lot, 8) = "zzz{del}" THEN rn% = rn% + 1
IF rn% > TotRec% THEN EXIT FOR
LOOP WHILE LEFT$(Easy.Lot, 8) = "zzz{del}"
COLOR 0, 3: PRINT TAB(20); Easy.Lot: PRINT
LPRINT Easy.Lot;
TotUnt = TotUnt + VAL(Easy.Unit)
LPRINT TAB(28); USING u$; VAL(Easy.Unit);
LPRINT TAB(38); USING am$; VAL(Easy.Cost);
LotValue = VAL(Easy.Unit) * CurQuote
SGL = LotValue - VAL(Easy.Cost)
LPRINT TAB(51); USING am$; LotValue;
LPRINT TAB(65); USING am$; SGL: COLOR 0, 7
TotCst = TotCst + VAL(Easy.Cost)
TotVal = TotVal + LotValue
TotSGL = TotSGL + SGL
NEXT
CLOSE
LPRINT CHR$(13)
LPRINT TAB(11); "TOTALS..........."; USING u$; TotUnt;
LPRINT TAB(38); USING am$; TotCst; : LPRINT TAB(51); USING am$; TotVal;
LPRINT TAB(65); USING am$; TotSGL; : LPRINT : LPRINT : LPRINT
LPRINT TAB(18); "Value is based on Current Quote of ";
LPRINT USING am$; CurQuote
LPRINT
ACPU = TotCst / TotUnt
LPRINT TAB(24); "Average Cost Per Unit is "; : LPRINT USING am$; ACPU
LPRINT CHR$(12)
END SUB

SUB TransPrint
CLOSE : OPEN File$ FOR RANDOM AS #1 LEN = LEN(Easy)
TotRec% = LOF(1) \ LEN(Easy)
IBMProPrinter
TransPrintScrn
LOCATE 14, 34: COLOR 4, 7: INPUT rn%: LOCATE 14, 60: INPUT LastNum%
IF LastNum% > TotRec% THEN LastNum% = TotRec%
x% = 15
COLOR 15, 4: Center 1, "You Can Cancel Printing Now by Pressing ape"
COLOR 0, 3: Center 2, "DO YOU WANT A HEADING - es o "
DO
SELECT CASE GetKey%
CASE ASC("Y")
LPRINT TAB(4); CHR$(14); Fund$
LPRINT TAB(22); "Record of Purchases as of "; DATE$;
pg = 1
EXIT DO
CASE ASC("N")
x% = 15: COLOR 1, 7
Center 1, "INDICATE STARTING PAGE NUMBER FOR YOUR PRINT-OUT"
Center 2, SPACE$(20) + "STARTING PAGE NUMBER IS": INPUT pg
EXIT DO
CASE Esc
EXIT SUB
CASE ELSE
END SELECT
LOOP
LineCnt% = 53
LPRINT CHR$(10)
DO WHILE rn% < LastNum%
LOCATE 10
IF rn% <= 0 THEN rn% = 1
FOR rn% = rn% TO rn% + 9
IF INKEY$ = CHR$(27) THEN EXIT DO
LineCnt% = LineCnt% - 5
IF rn% > LastNum% THEN EXIT DO
GET #1, rn%, Easy
PRINT TAB(76); : COLOR 15, 0: PRINT rn%; : COLOR 0, 3
PRINT TAB(3); Easy.Lot; TAB(42); Easy.Unit
LPRINT "Descrip: "; Easy.Lot; TAB(36); "Units: "; : LPRINT USING u$; VAL(Easy.Unit);
LPRINT TAB(58); "Cost: "; : LPRINT USING am$; VAL(Easy.Cost);
LPRINT "DatePur: "; : LPRINT Easy.Day;
LPRINT TAB(26); "CURRENT Quote:"; : LPRINT USING am$; CurQuote;
CurVal = VAL(Easy.Unit) * CurQuote
LPRINT TAB(58); "Value:"; : LPRINT USING am$; CurVal
LPRINT "Remarks: "; Easy.Remk;
GLoss = CurVal - VAL(Easy.Cost)
LPRINT TAB(53); "Gain/(Loss)"; : LPRINT USING am$; GLoss
LPRINT CHR$(13)
NEXT
GOSUB PageNumber: pg = pg + 1
LineCnt% = 53
LOOP

IF LineCnt% > 1 THEN
DO
LPRINT
LineCnt% = LineCnt% - 1
LOOP UNTIL LineCnt% < 1
END IF
CLOSE
GOSUB PageNumber
EXIT SUB

PageNumber:
LPRINT CHR$(13)
LPRINT CHR$(27); CHR$(83); CHR$(1);
LPRINT TAB(66); Page$; pg
LPRINT TAB(1); "."
LPRINT CHR$(27); CHR$(84)
PRINT TAB(25); pg; " Pages Sent to Printer"
LPRINT CHR$(12)
RETURN
END SUB

SUB TransPrintScrn
COLOR 0, 1, 8: CLS : Upper " Printer Instructions for " + File$
Frame 3, 19, 4, 88, 1: Center 17, "´ Select Records to Print Ã"
x% = 4: COLOR 0, 2
Center 1, "SIZE OF PRINT FILE IS" + STR$(TotRec%) + " RECORDS"
COLOR 1, 7: Center 2, "ÇÄTHERE WILL BE 10 RECORDS TO EACH PAGEĶ"
Spot 2, 10: COLOR 0, 2: PRINT "RECORDS 1 TO 40 IS FOUR PAGES "
Spot 2, 10: PRINT "RECORDS 41 TO 80 IS EIGHT PAGES, ETC "
COLOR 1, 7: Center 3, "START PRINT AT RECORD [ ] ®¯ END PRINT AT [ ]"
END SUB

SUB Upper (Text$)
LOCATE 1, 1: COLOR 14, 4: PRINT STRING$(80, 196);
Text$ = "´ " + Text$ + " Ã"
p% = INT((82 - LEN(Text$)) / 2)
LOCATE 1, p%: PRINT Text$;
COLOR 0, 7
END SUB

SUB ZZZDelete
COLOR 0, 1, 8: CLS : Upper "REMOVE DELETED RECORDS": Frame 4, 22, 2, 88, 2
COLOR 15, 4: Center 2, "W A R N I N G": COLOR 0, 7
Spot 2, 4
PRINT "This function OVER-WRITES data files. If you have not Backed up DATA"
Spot 1, 4
PRINT "on Separate disk, you may press Key to abort function. If you elect"
Spot 1, 4
PRINT "to continue, data is copied to a temporary file, removing records tagged"
Spot 1, 4
PRINT "for deletion by EDITOR."
Spot 2, 4: COLOR 1, 7
PRINT "Temporary File is "; TempFile$; " - Current Records will be extracted from"
Spot 1, 4
PRINT File$; " and this file will be over-written with current data."
Spot 2, 4: COLOR 0, 7
PRINT "If named drive is not available, or there is insufficient disk space, THEN"
Spot 1, 4
PRINT "data could be lost."
COLOR 0, 2: Center 3, "Press to Abort ®®¯¯ Press to Continue"
DO
SELECT CASE GetKey%
CASE CR
EXIT DO
CASE Esc
EXIT SUB
CASE ELSE
END SELECT
LOOP
COLOR 0, 0: CLS : Bottom "Writing Records to " + TempFile$
COLOR 0, 7: Frame 10, 14, 4, 88, 2
Center 9, "EXTRACTING CURRENT RECORDS FROM " + File$
Spot 6, 1: COLOR 0, 3
OPEN "i", 1, File$
OPEN "o", 2, TempFile$
DO WHILE NOT EOF(1)
LINE INPUT #1, n$
IF LEFT$(n$, 7) <> "zzz{del" THEN
PRINT #2, n$
END IF
IF LEFT$(n$, 7) = "zzz{del" THEN
PRINT : PRINT n$: PRINT "Above Record Deleted from File"
END IF
Cnt = Cnt + 1: PRINT Cnt;
LOOP
CLOSE
SLEEP (1)
COLOR 0, 0: CLS : COLOR 1, 7: Frame 6, 12, 10, 88, 3
Center 5, SPACE$(6) + "Copying " + TempFile$ + " to " + File$
Spot 2, 12: SHELL "copy " + TempFile$ + " " + File$
SLEEP (1)
END SUB