Casio FP-200 - Page 56

rBUDGET CONTROL-------------------------
60
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