Casio FP-200 - Page 58

,::
·::
rBUDGET CONTROL-----------------------
62
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