Advertisement
rBUDGET C O N T R O L - - - - - - - - - - - - - - - - - - - - - - -
1230
1240
125(2)
126(2)
127(2)
128Ql
1290
13(2)(2)
1310
132(2)
1330
134(2)
1350
136(2)
1370
1 ~58(2)
139(2)
S==IZJ:GOSUB 14Bli'l
IF P< 1 THE:.N P==ME
IF
F'
>ME THEN
F' = -==
1
GET
#
1
1
F'
IF El!f,=
11
*·"
AND T:=(Z) THEN P=P+l:GOTO 1240
IF El$:=.:"*" ANO T=::1
THEN P=P·-1:GOTO 1240
GOSUB 540
GOTO 1220
OPEN "DATA"
AS ~2
DE==LOFC2):Q:::!)E+l
F$=A1$
G$=="
"
LOCATE
0,3:FRINT
"[DateJ"TABC10);:INPUT H$
PRINT
"[BudgGt ,2:<cecutionJ";TABC10);:INPUT I$
J#=(VALC01$)-VALCI$))
:J$=STR$(J#)
F·RINT
11
[8lanc:eJ";TAB(ll2l) ;.1$
K$=LEFT$(STR$(ROUNO(VALCl$)/VAL<C1$)
,-6)*100)
'7)
+111/."
140(2)
PR I NT " [ Budget
e:-:ct:!c:Ut
i cm
J ";
TAB ( 10) ;
f:~'f•
1410 PRINT"* ..
Of:~?CY/1\!J
*·11-
11
;
1420 Z$=INKEY$: IF Z$c:c"" THEN 1.420
1430
GOSUB
1640
1440
1450
1460
1470
1480
l.49(2)
150(2)
1510
152121
1530
IF Z$=
11 N 11
THEN GOSUE:
5:30: GOTO
1~5.30
RSET
DlS=JS:PUT #1,P
GOSUB 1960:PLJT #2
1
0
CLOSE : GOTO f370
Z$:::: I Nf::'.EY$: IF Z 1•==~"" THEN llWO
GOSUB
1630
r
F
z
!f,,:="
v
II
AND
~;,,:cil
THEl'1
G □ ~:;un
~.i30: GOTO
131. 0
IF Z$=.::
11
Y" AND f3:::J
THEN 2310
IF
1
Z$::,"N 11
THEI-J
76C,'J
IF ZS=CHRS(28)
THEN P=P+J:T=0:IF P>ME
THEN
F'=
ME
1550
156(2)
1570
15812)
1590
1600
1610
16212!
1630
1640
N
16512!
RETUf,N
R13ET Al$ :cA$
RSET F: 1 $=8~1,
RSET C 1 $,c::C$
RSET D 1 ~-::::D$
RSET E 1
$:::[.:_:$
RETur;:N
LOCATE
0, 2:
Ff',
I NT
"··:c-,·--:c:c:c·c::·_
-.,·:,:::c::::::::·::.:::::::::-c::::::::·:-:::,:":
HETURN
LOCATE 6, 2: F'R I NT
"n.!dd i nq":
RETURN
LOCATE=~
0, 7:
FTn r-rr "
11
:
:
F~ETUR
IF
t1[::C
>
1
OR
DE ,
>
l
THl::.N RCTUr;;N
Advertisement
