Casio FP-200 - Page 59

----------------------BUSINESS_)
1660 CLS:LUCATE 4,2:PRINT "File not ston,?d"
1670 FOR z~0 TO 300:NEXT Z:GOTO 760
16130 CL:-3:UJCATE 5,2:F'RINT "Title~ not ~;ton-.n1"
1690 FClh z,.,(Z) TO 300:NEXT Z:CLOSE:GOTO 87Q!
1 70(2)
1710 CLS:GOSUB 163Q!
1720 OPEN "MAIN" AS #1
17312) OF'EN "DATA" AS #2
1740 ME=LOF(lJ :DE=LOF(2)
1750 GOSUB 1650
1760 LOC~TE 4,2:F'RINT "now pr-i.nting"
1770 FOR P=l TO ME
1 780 I ==0: K=-=0
1790 GET #1,P:IF E1!f;"'-""*" THEN 1940
1800 LF'RINT "[Title of ac:cauntJ";TAB(S) ;B1$;TA8(30
l; "[8udg£-'!tJ";TA8<42);
1810 LPRINT USING "¥##,###,#U#";VAL<Cl$l
1820 LF'RINT: LF'RINT "(Date]"; TAB ( 15); "[Budget e:<cec
ut ion" J ";
18-30 LPRINT TA8(32>; "CBc.d.anceJ";TAB(45); "[Rate of
budget e:<ecutionJ"
1840 FOR Q=l TO DE
1850 GET #2,Q
1860 IF VAL(Fl$J<>VAL(A1$) OR Gl$="*" THEN 1900
1870 LPRINT H1$;TA8(13l; :LPRINT USING"¥##,###,###
" ; VAL ( I 1 $) ;
1880 LPR I NT US I NG " ¥##, ###
1
### ###. ##tl:'l.";
VAL<JlS) ,VAL<LEFT$(K1$,7))
1890 I=I+VALCI1$):K=K+VAL(LEFTS<K1S,7l l
191210 NEXT Q
1910 FOR Z==CZl TO 51:LPRINT "-";:NEXT Z:LF'fUl\tT
1920 LPRINT ysrNG "Total '=litHJ:,~t:tt#,#lt#
#, ###, ### ###. ###1/. II; I , VAL ( D 1 $) , V
1930 LPRINT:LPRINT:LPRINT
1940 NEXT P
19512)
GOTO 760
1960
!970
f;:SET
F 1 $oc=F$
1980
RSET
G1it;=::G$
19912)
RSET
H 1 $=-=H$
2000 RSET
Ilt,::,I't,
2010 f~SET
Jl$:::J$
'.:':'.0212)
F;SET
I< 1 <f,::,1,::1,
2030 RETURN
2040
63