DeleteBegin:

' ********************************************
' *                 PAR Real                 *
' *   Copyright (C) 1986, PAR Software, Inc. *
' *            All Rights Reserved           *
' ********************************************

1000 REM This is the Beginning
' file = RF/BalanceSheet
ON ERROR GOTO ErrorFix
BREAK ON
ON BREAK GOSUB ReturnUser
DIM SHARED Lin(30),Strt(30),MaxLength(30),Fieldlength(30),Use$(6)
DIM SHARED UseIndex(30),Saved$(30),Saved#(30),Prompt$(30),BGColor(30)
DIM SHARED SavedBack#(30),Default#(13),Expenses#(13)
DIM SHARED FileList$(25)
DIM SHARED how%(8)
GOSUB Menus12On
GOSUB KBRMenuOff
MENU ON
ON MENU GOSUB MenuCheck 
Extension$ = ".BAL"
DirNames$ = "RF/BalanceSheet.Index"
IF File$ = "" THEN
WindowName$ = "Balance Sheet"
ELSE
WindowName$ = "Balance Sheet: " + left$(File$,len(File$)-4)
END IF
 
Start:
GOSUB ColorOff
WINDOW 1,WindowName$,(0,1) - (580,186),22
CursorColor = 3
Use$(1) = " &"
Use$(2) = " ##.##%"
Use$(3) = " $$#########,.##"
Use$(4) = " ####"
Use$(5) = " $$##########,.##"
Use$(6) = " $$#############,.##"

Initialize:
FOR lcv = 0 TO 8: READ how%(lcv): NEXT lcv
DATA 110,0,175,0,22200,64,10,1,0
Speech1$="The result is to large to output"
Cur$ = " "
FOR lcv = 1 TO 21
READ Lin(lcv) :READ Strt(lcv) :READ Fieldlength(lcv)
READ MaxLength(lcv) :READ Prompt$(lcv)
READ UseIndex(lcv)
READ BGColor(lcv)
NEXT lcv
GOSUB PrintScreenOne
GOSUB ColorOn
if File$ <> "" then gosub LoadRoutine
if File$ <> "" then GOSUB PrintValues

InCheck:
a$ = "":MoveCursorFlag = 0 : EnterFlag = 0:SaveAsFlag = 0
WHILE a$ = ""
IF TIMER - NewTime >= .3 THEN CALL FlashCursor
a$ = INKEY$
WEND
CALL GetRoutine (Word$)

Main:  
Value# = VAL(Word$)
BackUp$ = Saved$(Index)
IF EnterFlag = 1 THEN 
Saved$(Index) = Word$:Saved#(Index) = Value#
IF Index > 2 and VAL(Saved$(Index)) >= 10000000 THEN
Word$ = BackUp$
phrase$ = "the val you enterd must be less than ten mill yun"
Speech2$ = "Please try again"
CALL InputError
goto Main
END IF
IF Index > 2 AND Index < 13 THEN
TotAst# = 0  :TotNonCurAst# = 0
TotCurAst# = Saved#(3) + Saved#(4) + Saved#(5) + Saved#(6)
FOR lcv = 7 TO 12:TotNonCurAst# = TotNonCurAst# + Saved#(lcv):NEXT
TotAst# = TotNonCurAst# + TotCurAst#
ELSEIF Index >= 13 THEN
TotCurLiab# = 0
FOR lcv = 13 TO 18:TotCurLiab# = TotCurLiab# + Saved#(lcv):NEXT
TotNonCurLiab# = Saved#(19) + Saved#(20) + Saved#(21)
TotLiab# = TotCurLiab# + TotNonCurLiab#
END IF
NetWorth# = TotAst# - TotLiab#
COLOR 2,3
LOCATE 11,18:PRINT USING Use$(3); TotCurAst#
LOCATE 21,18:PRINT USING Use$(3); TotAst#
LOCATE 13,56:PRINT USING Use$(3); TotCurLiab#
LOCATE 21,56:PRINT USING Use$(3); TotLiab#
COLOR 2,1
LOCATE 22,56:PRINT USING Use$(3); NetWorth#
END IF     
        
IF MoveCursorFlag <> 0  THEN
CursorColor = BGColor(Index)
LOCATE Lin(Index),Strt(Index)
COLOR 2,BGColor(Index)
PRINT SPACE$(Fieldlength(Index))
LOCATE Lin(Index),Strt(Index)
IF UseIndex(Index) = 1 THEN PRINT USING Use$(UseIndex(Index));Saved$(Index)
IF UseIndex(Index) <> 1 AND Saved#(Index) <> 0 THEN PRINT USING Use$(UseIndex(Index));Saved#(Index)
      
IF Index <> LastLine AND MoveCursorFlag = 1 THEN Index = Index + IndexIncrement
IF Index <> 1 AND MoveCursorFlag = -1 THEN Index = Index - IndexIncrement
Idx = 0
IF Index > LastLine THEN Index = LastLine
NewTime = TIMER - 1

SavedBack#(Index) = VAL(Saved$(Index))
END IF   

GOTO InCheck

SUB GetRoutine (Var$) STATIC
SHARED a$, Idx, Index, MoveCursorFlag,IndexIncrement,LeftLines,EnterFlag
IndexIncrement = 1
COLOR 2,1
IF (ASC(a$)>31 AND ASC(a$)<=122) THEN AlphaNum
IF ASC(a$) = 28 THEN CursorUp
IF ASC(a$) = 29 THEN CursorDown
IF ASC(a$) = 30 THEN CursorRight
IF ASC(a$) = 31 THEN CursorLeft
IF ASC(a$) = 13 THEN Enter
IF ASC(a$) = 8 OR ASC(a$) = 127 THEN BackSpace
GOTO EndGetRoutine
                                         
AlphaNum:
' IF UseIndex(Index) <> 1 AND ASC(a$) = 32 THEN GOTO EndGetRoutine
IF Idx = MaxLength(Index) THEN EndGetRoutine
COLOR 2,BGColor(Index)
IF LEN(TempVar$) = 0 THEN
LOCATE Lin(Index), Strt(Index)
PRINT SPACE$(Fieldlength(Index))
END IF
TempVar$ = TempVar$ + a$
LOCATE Lin(Index),Strt(Index):PRINT TempVar$
Idx = Idx + 1
GOTO EndGetRoutine  

CursorDown:
IF Index <> LastLine THEN
MoveCursorFlag = 1
TempVar$ = ""
END IF
Var$ = Saved$(Index)
GOTO EndGetRoutine

CursorUp:                           
IF Index <> 1 AND Index <> 50  THEN
MoveCursorFlag = -1
TempVar$ = ""
END IF
Var$ = Saved$(Index)
GOTO EndGetRoutine

CursorLeft:
MoveCursorFlag = -1
TempVar$ = ""
Var$ = Saved$(Index)
IF Index > LeftLines+2 THEN IndexIncrement = LeftLines
IF Index > 18 THEN IndexIncrement = LeftLines - 1
GOTO EndGetRoutine

CursorRight:
MoveCursorFlag = 1
TempVar$ = ""
Var$ = Saved$(Index)
IF Index <= LeftLines THEN IndexIncrement = LeftLines
IF Index >9 AND Index < 13 THEN IndexIncrement = LeftLines - 1
GOTO EndGetRoutine

Enter:
IF LEN(TempVar$) <> 0 THEN
Var$ = TempVar$
TempVar$ = ""
Idx = 0
EnterFlag = 1
ELSE
Var$ = Saved$(Index)
END IF
MoveCursorFlag = 1
GOTO EndGetRoutine   

BackSpace:
IF Idx <> 0 THEN
TempVar$ = LEFT$(TempVar$,LEN(TempVar$)-1)
COLOR ,BGColor(Index)
LOCATE Lin(Index),Strt(Index)+Idx:PRINT " "; CHR$(8);
Idx = Idx - 1
' LOCATE Lin(Index),Strt(Index):PRINT TempVar$;
END IF
GOTO EndGetRoutine
 
EndGetRoutine:
END SUB

SUB FlashCursor STATIC 
SHARED Index,CursorColor,Cur$,NewTime,Idx
IF CursorColor = 2 THEN CursorColor = BGColor(Index) ELSE CursorColor = 2
LOCATE Lin(Index),Strt(Index)+Idx
COLOR ,CursorColor
PRINT Cur$
NewTime = TIMER
END SUB   

PrintScreenOne:     
COLOR 1,2
LOCATE 5,9:PRINT " CURRENT ASSETS "
LOCATE 5,45:PRINT " CURRENT LIABILITIES "
LOCATE 13,8:PRINT " NONCURRENT ASSETS "
LOCATE 16,44:PRINT " NONCURRENT LIABILITIES "
COLOR 1,0
LOCATE 10,18:PRINT "----------------"
LOCATE 20,18:PRINT "----------------"
LOCATE 12,56:PRINT "----------------"
LOCATE 20,56:PRINT "----------------"
COLOR 1,2
LOCATE 11,1:PRINT "TOTAL CUR ASSETS"
LOCATE 21,3:PRINT " TOTAL ASSETS "
LOCATE 13,36:PRINT "TOT CUR LIABILITIES"
LOCATE 21,36:PRINT " TOTAL LIABILITIES "
LOCATE 22,40:PRINT " NET WORTH "
COLOR 1,3
LOCATE 11,18:PRINT "                "
LOCATE 21,18:PRINT "                "
LOCATE 13,56:PRINT "                "
LOCATE 21,56:PRINT "                "
COLOR 1,1
LOCATE 22,56:PRINT "                "
    
TempStart:    
FOR lcv = 1 TO 21
COLOR 1,0
LOCATE Lin(lcv),Strt(lcv)-LEN(Prompt$(lcv)): PRINT Prompt$(lcv);
COLOR 1,BGColor(lcv)
PRINT SPACE$(Fieldlength(lcv))
NEXT lcv
COLOR 1,2
Index = 1 : LastLine = 21:LeftLines = 10
RETURN

SaveRoutine:
TrySave = 1
IF File$ = "" THEN  SaveAs
OPEN File$ FOR OUTPUT AS #4
PRINT #4, "***** AUTOMATICALLY CREATED FILE - DO NOT EDIT !!!!! *****"
FOR lcv = 1 TO 21
PRINT #4,Saved$(lcv)
NEXT lcv
CLOSE #4
OPEN File$+".KBR" FOR OUTPUT AS #5
print #5, "***** AUTOMATICALLY CREATED FILE - DO NOT EDIT !!!!! *****"
PRINT #5, Saved$(2)
PRINT #5, Saved$(3)
PRINT #5, Saved$(4)
PRINT #5, Saved$(5)
PRINT #5, TotCurAst#
PRINT #5, TotAst#
PRINT #5, Saved$(13)
PRINT #5, Saved$(15)
PRINT #5, Saved$(16)
PRINT #5, TotCurLiab#
PRINT #5, TotLiab#
PRINT #5, NetWorth#
CLOSE #5
Kill File$+".KBR.info"
TrySave = 0
2500 GOTO EndMenuCheck

LoadRoutine:
TryLoad = 1
OPEN File$ FOR INPUT AS #4
INPUT #4, dummy$
FOR lcv = 1 TO 21
LINE INPUT #4,Saved$(lcv)
Saved#(lcv) = val(Saved$(lcv))
NEXT lcv
CLOSE #4
OPEN File$+".KBR" FOR INPUT AS #5
LINE INPUT #5, dummy$
LINE INPUT #5, Saved$(2)
INPUT #5, Saved$(3)
INPUT #5, Saved$(4)
INPUT #5, Saved$(5)
INPUT #5, TotCurAst#
INPUT #5, TotAst#
INPUT #5, Saved$(13)
INPUT #5, Saved$(15)
INPUT #5, Saved$(16)
INPUT #5, TotCurLiab#
INPUT #5, TotLiab#
INPUT #5, NetWorth#
CLOSE #5
TryLoad = 0
3000 RETURN

PrintValues:
FOR lcv = 1 to 21
LOCATE Lin(lcv),Strt(lcv)
COLOR 2,BGColor(lcv)
IF len(Saved$(lcv)) <> 0 THEN
IF UseIndex(lcv) = 1 THEN
PRINT USING Use$(UseIndex(lcv));Saved$(lcv)
ELSE
PRINT USING Use$(UseIndex(lcv));Saved#(lcv)
END IF
END IF
NEXT lcv
COLOR 2,3
LOCATE 11,18:PRINT USING Use$(3); TotCurAst#
LOCATE 21,18:PRINT USING Use$(3); TotAst#
LOCATE 13,56:PRINT USING Use$(3); TotCurLiab#
LOCATE 21,56:PRINT USING Use$(3); TotLiab#
COLOR 2,1
LOCATE 22,56:PRINT USING Use$(3); NetWorth#
RETURN

PrinterOutput:
GOTO PrinterRequester

PrintRoutine:
FOR lcv = 1 TO 14
PRINT #3,""
NEXT lcv
PRINT #3,"          ";Prompt$(1);" ";
PRINT #3,USING Use$(1);Saved$(1)
PRINT #3,"          ";Prompt$(2);" ";
PRINT #3,USING Use$(1);Saved$(2)
PRINT #3,"":PRINT #3,""
PRINT #3,"      CURRENT ASSETS" ;TAB(39); "      CURRENT LIABILITIES"
PRINT #3,Prompt$(3);" ";
PRINT #3,USING Use$(3);Saved#(3);
PRINT #3,Tab(39);Prompt$(13);" ";
PRINT #3,USING Use$(3);Saved#(13)
PRINT #3,Prompt$(4);" ";
PRINT #3,USING Use$(3);Saved#(4);
PRINT #3,Tab(39);Prompt$(14);" ";
PRINT #3,USING Use$(3);Saved#(14)

PRINT #3,Prompt$(5);" ";
PRINT #3,USING Use$(3);Saved#(5);
PRINT #3,Tab(39);Prompt$(15);" ";
PRINT #3,USING Use$(3);Saved#(15)

PRINT #3,Prompt$(6);" ";
PRINT #3,USING Use$(3);Saved#(6);
PRINT #3,Tab(39);Prompt$(16);" ";
PRINT #3,USING Use$(3);Saved#(16)

PRINT #3,space$(24);"-----------";
PRINT #3,Tab(39);Prompt$(17);" ";
PRINT #3,USING Use$(3);Saved#(17)
PRINT #3,"TOTAL CURRENT     ";USING Use$(3);TotCurAst#;
PRINT #3,Tab(39);Prompt$(18);" ";
PRINT #3,USING Use$(3);Saved#(18)

PRINT #3,tab(39);space$(24);"-----------"
PRINT #3,"      NONCURRENT ASSETS";
PRINT #3,tab(39);"TOTAL CURRENT      ";USING Use$(3);TotCurLiab#
PRINT #3,Prompt$(7);" ";
PRINT #3,USING Use$(3);Saved#(7)
PRINT #3,Prompt$(8);" ";
PRINT #3,USING Use$(3);Saved#(8);
PRINT #3,tab(39);"      NONCURRENT LIABILITIES"
PRINT #3,Prompt$(9);" ";
PRINT #3,USING Use$(3);Saved#(9);
PRINT #3,Tab(39);Prompt$(19);" ";
PRINT #3,USING Use$(3);Saved#(19)

PRINT #3,Prompt$(10);" ";
PRINT #3,USING Use$(3);Saved#(10);
PRINT #3,Tab(39);Prompt$(20);" ";
PRINT #3,USING Use$(3);Saved#(20)

PRINT #3,Prompt$(11);" ";
PRINT #3,USING Use$(3);Saved#(11);
PRINT #3,Tab(39);Prompt$(21);" ";
PRINT #3,USING Use$(3);Saved#(21)
PRINT #3,Prompt$(12);" ";
PRINT #3,USING Use$(3);Saved#(12) ;
PRINT #3,tab(39);space$(24);"-----------"
PRINT #3,space$(24);"-----------" ;
PRINT #3,Tab(39);"TOTAL LIABILITIES  ";USING Use$(3);TotLiab#

PRINT #3,"TOTAL ASSETS      ";USING Use$(3);TotAst#;
PRINT #3,Tab(39);"NET WORTH          ";USING Use$(3);NetWorth#
PRINT #3,CHR$(12)
GOTO 100

Barchart:
TotAst# = 0  :TotNonCurAst# = 0
TotCurAst# = Saved#(3) + Saved#(4) + Saved#(5) + Saved#(6)
FOR lcv = 7 TO 12:TotNonCurAst# = TotNonCurAst# + Saved#(lcv):NEXT
TotAst# = TotNonCurAst# + TotCurAst#
TotCurLiab# = 0
FOR lcv = 13 TO 18:TotCurLiab# = TotCurLiab# + Saved#(lcv):NEXT
TotNonCurLiab# = Saved#(19) + Saved#(20) + Saved#(21)
TotLiab# = TotCurLiab# + TotNonCurLiab#
Expenses#(1) = TotAst#
Expenses#(2) = TotCurAst#
Expenses#(3) = TotNonCurAst#
Expenses#(4) = 0
Expenses#(5) = TotLiab#
Expenses#(6) = TotCurLiab#
Expenses#(7) = TotNonCurLiab#
Expenses#(8) = 0
Expenses#(9) = NetWorth#
Largest# = 0
FOR lcv = 1 to 9
IF Largest# < ABS(Expenses#(lcv)) THEN
Largest# = ABS(Expenses#(lcv))
END IF
NEXT lcv
CompareTo# = Largest#
GOSUB DrawBarChart
GOTO EndMenuCheck

DrawBarChart:
IF CompareTo# <= 0 THEN
phrase$ = "There must be pausitive val yous enterd to see the bar chart"
Speech2$ = "Please try again"
CALL InputError
RETURN
END IF
WINDOW 6,"BAR CHART: Balance Sheet",(0,0)-(524,180),22
xaxis% = 92
barwidth% = 16
baroutline% = 2
barcolor% = 3
GOSUB DrawAxis
GOSUB DisplayLabels
GOSUB DrawBars
ExitLoc=20
ExitL=10:ExitT=164:ExitR=61:ExitB=178
PrtL=80:PrtT=164:PrtR=139:PrtB=178
PrtLoc=90
GOSUB PrintOrExit
RETURN

DrawAxis:
COLOR 1,0:LOCATE 1,1:PRINT TAB(7);" $ ";
LargPerC = INT((Largest#/CompareTo#)*100)
Start% = INT(((LargPerC-1)/10)+1) * 10
IF Start% = 0 THEN Start% = 10
LINE (97,12) - (97,xaxis%),1
LINE (98,12) - (98,xaxis%),1
LINE (98,xaxis%)-(520,xaxis%),1
LINE (99,xaxis%-1)-(98+(.5*barwidth%),xaxis%-4),2
LINE (98+(.5*barwidth%),xaxis%-4)-(520,xaxis%-4),2
LINE (97+(.5*barwidth%),9)-(97+(.5*barwidth%),xaxis%-4),2
LINE (98+(.5*barwidth%),9)-(98+(.5*barwidth%),xaxis%-4),2
LOCATE 2,1:PRINT USING "##########,";(Start%/100)*Largest#;
LINE (98,xaxis%-81)-(98+(.5*barwidth%),xaxis%-84),2
LINE (100+(.5*barwidth%),xaxis%-84)-(520,xaxis%-84),1
yDown%=3
FOR k = 73 TO 9 STEP -8
LINE (98,xaxis%-k)-(98+(.5*barwidth%),xaxis%-k-3),2
LINE (100+(.5*barwidth%),xaxis%-k-3)-(520,xaxis%-k-3),1
LOCATE yDown%,1:PRINT USING "##########,";((Start% * (k-1)/80)/100)*Largest#
yDown%=yDown%+1
NEXT k
RETURN

DisplayLabels:
COLOR ,0
LOCATE 13,1
BegLab = 125
PRINT PTAB(BegLab);" T ";PTAB(BegLab+32);" C ";PTAB(BegLab+64);" N ";
PRINT PTAB(BegLab+128);" T ";PTAB(BegLab+160);" C ";PTAB(BegLab+192);" N ";PTAB(BegLab+256);" N "
  
PRINT PTAB(BegLab);" O ";PTAB(BegLab+32);" U ";PTAB(BegLab+64);" O ";
PRINT PTAB(BegLab+128);" O ";PTAB(BegLab+160);" U ";PTAB(BegLab+192);" O ";PTAB(BegLab+256);" E "

PRINT PTAB(BegLab);" T ";PTAB(BegLab+32);" R ";PTAB(BegLab+64);" N ";
PRINT PTAB(BegLab+128);" T ";PTAB(BegLab+160);" R ";PTAB(BegLab+192);" N ";PTAB(BegLab+256);" T "

PRINT PTAB(BegLab);" A ";PTAB(BegLab+32);" R ";PTAB(BegLab+64);" C ";
PRINT PTAB(BegLab+128);" A ";PTAB(BegLab+160);" R ";PTAB(BegLab+192);" C ";PTAB(BegLab+256);"   "

PRINT PTAB(BegLab);" L ";PTAB(BegLab+32);" E ";PTAB(BegLab+64);" U ";
PRINT PTAB(BegLab+128);" L ";PTAB(BegLab+160);" E ";PTAB(BegLab+192);" U ";PTAB(BegLab+256);" W "

PRINT  PTAB(BegLab+32);" N ";PTAB(BegLab+64);" R ";
PRINT  PTAB(BegLab+160);" N ";PTAB(BegLab+192);" R ";PTAB(BegLab+256);" R "

PRINT  PTAB(BegLab+32);" T ";
PRINT  PTAB(BegLab+160);" T ";  PTAB(BegLab+256);" T "

COLOR 2,3
PRINT PTAB(BegLab+13)" ASSETS ";PTAB(BegLab+119);" LIABILITIES ";:COLOR 1,0:PRINT PTAB(BegLab+256);" H ";
RETURN

DrawBars:
leftx = 101
COLOR barcolor%
leftx = leftx + 24
tempNetWor# = Expenses#(9)
Expenses#(9) = ABS(Expenses#(9))
FOR lcv = 1 TO 9
lefty = xaxis% - INT((Expenses#(lcv)/((Start%/100)*CompareTo#))*80)
IF xaxis% - lefty = 0 AND Expenses#(lcv) > 0 THEN lefty = xaxis%-1
IF lefty < xaxis% THEN
IF lcv = 9 THEN
LOCATE (INT((lefty-4)/8)),1
IF tempNetWor# > 0 THEN
PRINT PTAB(leftx+4);"(+)"
ELSE
PRINT PTAB(leftx+4);"(-)"
END IF
END IF
LINE (leftx,lefty-1)-(leftx+barwidth%,xaxis%-1),baroutline%,b
LINE (leftx+(1.5*barwidth%),lefty-4)-(leftx+(1.5*barwidth%),xaxis%-4),baroutline%
LINE (leftx+barwidth%,lefty-1)-(leftx+(1.5*barwidth%),lefty-4),baroutline%
LINE (leftx+barwidth%,xaxis%-1)-(leftx+(1.5*barwidth%),xaxis%-4),baroutline%
LINE (leftx+(.5*barwidth%),lefty-4)-(leftx+(1.5*barwidth%),lefty-4),baroutline%
LINE (leftx,lefty-1)-(leftx+(.5*barwidth%),lefty-4),baroutline%
LINE (leftx+barwidth%,lefty-1)-(leftx+(1.5*barwidth%),lefty-4),baroutline%

IF xaxis%-lefty >= 2 THEN
AREA (leftx+1,lefty)
AREA (leftx+1,xaxis%-2)
AREA (leftx+barwidth%-1,xaxis%-2)
AREA (leftx+barwidth%-1,lefty)
AREAFILL

AREA (leftx+barwidth%+1,lefty)
AREA (leftx+barwidth%+1,xaxis%-2)
AREA (leftx+(1.5*barwidth%-1),xaxis%-5)
AREA (leftx+(1.5*barwidth%-1),lefty-3)
AREAFILL

ELSE
LINE (leftx+1,xaxis%-1)-(leftx+barwidth%-1,xaxis%-1),barcolor%
END IF
  
AREA (leftx+4,lefty-2)
AREA (leftx+barwidth%-1,lefty-2)
AREA (leftx+(1.5*barwidth%-4),lefty-3)
AREA (leftx+(.5*barwidth%+1),lefty-3)
AREAFILL
END IF
leftx = leftx + (barwidth%*2)
NEXT lcv
Expenses#(9) = tempNetWor#
RETURN

     DATA 1,21,40,39,"Balance Sheet For ",1,3
     DATA 2,21,40,39,"           Period ",1,1
     DATA 6,18,16,10,"Cash             ",3,3
     DATA 7,18,16,10,"Rents Receivable ",3,1
     DATA 8,18,16,10,"Property Inv     ",3,3
     DATA 9,18,16,10,"Other Assets     ",3,1

     DATA 14,18,16,10,"Equipment (Net)  ",3,1
     DATA 15,18,16,10,"Vehicles  (Net)  ",3,3
     DATA 16,18,16,10,"Buildings (Net)  ",3,1
     DATA 17,18,16,10,"Land             ",3,3
     DATA 18,18,16,10,"Deposits         ",3,1
     DATA 19,18,16,10,"Others           ",3,3

     DATA 6,56,16,10,"Accounts Payable  ",3,3
     DATA 7,56,16,10,"Notes Payable     ",3,1
     DATA 8,56,16,10,"Accrued Salaries  ",3,3
     DATA 9,56,16,10,"Accrued Taxes     ",3,1
     DATA 10,56,16,10,"Current L-T Debt  ",3,3
     DATA 11,56,16,10,"Others            ",3,1
               
     DATA 17,56,16,10,"Mort/Real Estate  ",3,1
     DATA 18,56,16,10,"Notes Payable     ",3,3
     DATA 19,56,16,10,"Other             ",3,1

9999 REM This is the end of the program.
DeleteEnd: