Casio FP-200 - Page 15

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 it to tot al 1 i ab i 1 i. ti P~, ancJ net 1-Jur·th
19