Advertisement
- - - - - - - - - - - - - - - - - - - - - - B U S I N E S S _ )
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
Advertisement
