Casio FP-200 - Page 43

BUSINESSJ
640 X=56: Y=-9: Z$="UCL="+LEFT$ (STR$ ( XUCU, 10): GOSU
B 1400: Y=-24: Z$=
11
CL="+LEFT$ (STR$ (XCL), 10): GOSUB 14
00: Y=-43. 4: Z$="LCL="+LEFT$ (STR$ (XLCU, 10): GOSUB 140
0
650 X=1.6:Y=-41.2:Z$="LCL":GOSUB 1400:Y=-26.2:Z$:.:::
" CL":GOSUB 1400:Y=·-11.2: Z$==
11
UCL":GOSUB 1400
660 X=(2):Y=-2:Z$=":~":LPRINT "S2":GOSUB 14!2l(Z):Y==0:Z$
==" - ": GOSUB 1400: LF'R I NT "S 1"
670 LPRINT
11
J1":YS=(XUCL-XLCU /30: ZC
0
=XCL: ZU=XUCL:
ZL=XLCL: YL=-50: J=l: I=l: z::::xM ( 1 >: GOSUB 15(2)(2): LPRINT "M
" ; X; " ,
11
; Y: GO SUB 1600
680 FOR 1=2 TO K: Z=XM (I): GOSUB 15!2HZl: LF'RINT "D,
11
; X
;",";Y:GOSUB 1600:NEXT I
690 '
700 LF'RINT "Jl2l
11
:LPRINT "00,--70":LF'RINT "U21":LF'RIN
T
II
D 10, 0, 1 (2), -45, 9(2), --45
11
710 FOR I=f< TO 1 STEP -1: X==Iil·80/f<+10: LF'RINT
11
D"; X
; ", -43,
11
; X; ", -45
11
: NEXT I
720 X=l0:Y=-57:Z$=
11
Group number":GOSUB 1400
730 FOR I=l TO K:X=I*80/K+9.2:Y=-50:Z$=MIDS(STRSC
I) ,2,1):GOSUB 1400:IF I>9 THEN Y=-53.6:ZS=RIGHTS(ST
R$CI) ,l):GOSUB 1400
740 NEXT I
750 LF'RINT "D10,-25,90,-25
11
:LF'RINT "Ll":LF'RINT "D
90 y -10 f 10 f - 1(21 II
760 X==0:Y=-3:Z$="R":LPRINT
11
S2":GOSUB 140(2):LF'RINT
11
S1": X=2. 6: Y=-11. 2: Z$="UCL": GOSUB 1400: Y=,-26. 2: Z$:::
"CL
11
:GOSUB 1400
770 X=56: Y=-24: Z$=" CL=
11
+LEFT$ (STR$ <RU, 10): GOSU8
14CZl0: Y=-9: Z$="UCL="+LEFT$ CSTR$ (RUCL>, 10): GOSUB ,140
(2)
780 YS=(RUCL~RL)/15:ZC=RL:ZLJ=RUCL:ZL=0:YL=-45:J=2
: I= 1 : Z =R ( 1 ) : GO SUB 1500: LPR I NT "M" ; X; " , " ; Y: LF'R I NT "J
2":GOSUB 1600
790 FOR 1=2 TO f:::: Z=RCI) :GOSUB 1500:LF'RINT "D, "; X;
",";Y:GOSUB 1600:NEXT I:LPRINT "JCZJ"
800 '
810 X=LEN(STR$(INT<MM)))-1:FOM$="":IF LM<>0 THEN
FOM$=".":FOR I=l TO -LM-1:FOM$==FOM$+"tt":NEXT I
820 FOR ,!=1 TO X:FOM$="#"+FOM$:NEXT I
830 IF LEN ( FOM$) >7 THEN FCJM$=" I "+LEFT$ ( "tt" +FOM$
1
8
):FOM1$=FOM$:GOTO 830
840 FOR I=l TO 8-LEN<FOM$):F0Mf,:::"#"+FOM$:NEXT I:F
0 M 1 $ == " I " + R I G HT$ C F OM$ , 7 ) + " tt " : F OM$== " I " + F CJ M $
47