Advertisement
rBUDGET
C O N T R O L - - - - - - - - - - - - - - - - - - - - - - - -
GOTO 300
IF P>ME THEN P==l
GET #1,P
380
390
400
410
IF
E1$="*"
AND
T==0
THEN P=P+l:GOTO 390
420
IF
E1$="*"
AND T=l THEN P=P-1:GOTO 440
430 GOSUB 540:Q=l:GOTO 500
440 IF P<l THEN P=ME
450 GOTO 400
460 IF Q(l THEN Q=DE
470
GET #2,Q:IF VAL<F1$)<:>VAL<Al$)
OR G1$="*"
THE
N Q=Q-1:GOTO 460
480 GOSUB
570:GOTO 300
490 IF Q>DE
THEN Q=l
50(2)
GET
#2,
Q:
IF VAL ( F 1
<_fi)
<
>VAL <A 1
$)
OR G 1
$="
-1(-"
THE
N Q==Q+l:GOTO 480
510 GOTO 480
52(2)
$
530 CLS
540
LOCATE
0,0:F'RINT
"Title of account";TAB(6);B1
550 LOCATE 0,1:F'RINT "8udget";TAB(10);"$";I1$
560 RETURN
570 LOCATE 0,3:F'RINT "Date";TAB(11) ;Hl$
580
LOCATE
0,4:F'RINT
"Budget e:<ceculion";TABC10);
"<_f;
II ;
I l !f",
590
LOCATE 0,5:F'RINT
"Balance";
TAB(1(2)); "t,";J1$
600
LOCATE
0,6:F'RINT "Rate of
budgc~t e:-:cecution";
TAB<11);f:::1$
61.(Z)
F,ETURN
620
6~~:0
OF'EI'~
"MA
IN"
AS
ff
1
640
650
660
670
68t..,
690
700
710
720
730
740
7SQl
7
t,Q)
770
ME=LOF(ll:P=ME+l:
IF P<1
THEN
F'=l
A1,==STR$
< F· l
INF'UT
"Tit.lt:?
o-f
ac:cour,t";8$
I NF'UT
II
Dudc_F.!t";
c~t,
D•fi:::,C't
c; □ SUB
l5cA2l
F'LJT #l~F'
F'=F'+l
Z•f;:::: I I\JLEY$: IF
7 ~I,"""
THEN 73C~
IF
l.
$
0
"E"
THf:N CLO SC 1* 1 : END
GOTCl 650
C:
L ::, : CL... OS L :
FT--.: l
1,~
T
" ~· -~- Budy
e 1-
c cm tr- u l
iH< "
~
F'R I NT
l---
!
i
Advertisement
