Advertisement
BUSINESS_]
640 SC=24/MAX(K):Cl=SS<K,I)•SC+3:C2~360/13•K-20:G
OSUB 1020;X=CX:Y:::;CY
65CZI IF Z=l THEN LPRINT "M";X;
11
,";Y EL.SC LPRINT "D
,";X;",";Y
660 LPRINT "N";I+2:NEXT Z,I:LF'f-'1NT
11
Hl1Zl":LF'RINT"
S1
11
670 FOR I=l TO CH:LPRINT "L";
I MOD
3:LF'RINT
"J";
I
MOD 4
680
Z=-I*4.8+1:LPRINT
"DIZI, ";
Z;
11
,
lCZI, "; Z:LF'RINT "N"
;I+2:LPRINT "D,20,";Z:LPRINT "R5,-1":LPRINT "P";CN$
( I
> -
690 NEXT I:LPRINT CHR$(28) ;CHRf,(46) :LPRINT E$;
"S0
":LPRINT E$;"J0":FOR J:::1 TO 13:LF'RINT USING"##
";J
; :LPRINT SS(Jl:NEXT J
700 LPRINT
E$;"F5"
710 ·---------- Table
720 IF CH<3 THEN S=1:T0$=TS$ ELSE S=0:T0$~TSS+TSS
730 LPRINT CHR$(28) ;CHR$C46) :LPRINT ES;"S2":LPRIN
T "Indicators":LPRINT ES;"S";S
740 FOR L=l TO 2:IF L=1 THEN ZS:::"Indicator- name"
ELSE
ZS:"Item name
"
750 LPRINT "No.";Z$;:LPRINT TAB(25-7*S);:FOR I=l
TO CH:LPRINT USING U1$;CNS(Il ;:NEXT I:LPRINT
760 LPRINT T0$:IF L=l THEN
Z1=13
ELSE
Z1=12
770 IF 5=0 THEN LPRINT
780 FOR I=l TO Zl:IF L=l THEN ZS=S$(1) ELSE
zs~Js
( I )
790 IF L=l THEN N=2 ELSE N=l
800
LPRINT USING
"#~Ht
11
;
I: LF'RINT
ES:
11
F--l
11:
LF'RINT
ES;
11
S0'
1
:
LPRIN_T ES; "F-1":
FOR
v,:::Q) TO N: Q$:.::MID$ ( zc};, 20-1(-
V+l,
20)
810
LF'RINT TAB
(4*5+4);
Q$:
NEXT
V:
LPRINT
E$; "SCZl":
IF
N=2 THEN LPRINT
E$;
"F-2
11
ELSE LF'F;:INT
E$; "F-1"
82CZI LF'RINT
E$;
11
S
11
;
S:
LF'RINT
TAB (25-9-.-S);: FOR
J::•l
T
0 CH:
IF
L==l
THEN LF'RINT USING
"tHHt,#iHLtttt ";SS<I ,J>
; ELSE LF'RINT USING
11
##,#ittt,#~tit ";JS<I,J>;
830 NEXT
J:
IF
S=l
THEN LF'RINT E$; "Fl"
ELSE LF'RINT
E$;
"F3
11
840
LF'FUNT
E$;
11
S"; S:
LF'RHH : NEXT I: LF'RINT T0$:
LFr--:
INT
E$;
11
F5":
NEXT L: LPRINT
E$; "S 1"
850
GOTO
170
860
'=sccccc:=c==""-'-'"==
0 ::
Cd 1
C Ll
1
at i
Ul1
o·f
i
1l
di
Ci,\
t
ur-
87(2)
SS<1,I):=JS(10,I)/JS(7,I)*ltZl(Z)
'l'\a.tio CJf
or·Jin
ar-y pr--of i t to tot al
1 i ab i 1 i. t i
P~,
ancJ net
1-Jur·th
Advertisement
