Casio FP-200 - Page 14

rBUSINESS ANALYSIS AND CHARTING------------------
18
340 NEXT J,I
350 '========== Correct performance
360 FOR 1=1 TO CH:IF F(l,1)=1 THEN 370 ELSE NEXT
!:GOTO 420
370· CLS:PRINT T$:PRINT "Only performance data can
be corrected."
380 INPUT "Correct(Y/N):",Z~i:IF 2$,,,,,"N" THEN420 E
LSE IF Zt< >"Y" THEN 380
390 INPUT "Chart No. ",Z:IF Z<l OR Z>CH THEN 39121
ELSE IF F(1,Z)=0 THEN 390 ELSE PRINT CNS(Z)
4CZHZI PRINT: INPUT "Per·fannc:mce No. ",Z1: IF Zl<l OR Z
1>12 THEN 400
410 PRINT J$(Z1) :PRINT " ";JS<Z1,Z);: INPUT "-->"
,JS(Z1,Z):PRINT:GOTO 380
420 ·---------- Calculation of indicators
430 CLS:PRINT T$:PRINT "Being computed."
440 FOR I=1 TO CH:IF F<1,I}=0 THEN 450 ELSE GOSUB
860
450 NEXT I
460 FOR I=l TO 13:MAX=-1E99
470 FOR J=1 TO CH
480 IF MAX(SS(I,J) THEN MAX=SS<I,J>
490 NEXT J:MAX(I)=MAX
500 NEXT I: PRINT " Printing out now
1
"
51 CZl ' _____ ;___________ Ct, a.r· t
520 LPRINT CHR$(28);CHR$(37):LPRINT "YCZl":LPRINT"
Z2,6":LPRINT "QQl":LPRINT "83.6":LPRINT "L0":LPRINT
"J(Z)"
530 LPR I NT "S2" : LPR I NT "F'CHART FOR BUS I NESS ANAL Y
SIS":LPRINT "S1"
540 LPRINT "050,-45":LPRINT "C0,0,30":ANGL.E 0
550 FOR, I== 1 TO 13: R==360 / 13* I --20: C 1 =30: C2=R: GOSUB
1020:X=CX~Y=CY:C1=33:GOSUB 1020:XM=CX-1:YM=CY-1;Z$=
MID$ (STR$ (I>, 2)
560 IF I>7 THEN XM=XM-1
570 LF'RINT "DCZl,IZl,";X;",";Y:LF'RINT "M";XM;",";YM:L
F'RINT "P"; zi,
580 FDR J=27 TO 3 STEP -3:Cl=J:C2=R-·2:GOSUB 1020:
Xl=CX:Yl=CY:C2~R+2:GOSU8 1020:X2=CX:Y2=CY
59(2) LPR I NT "D" ; X 1 ; " , " ; Y 1. ; " , " ; X 2; " , " ; Y2
600 NEXT J, I: LPRINT "!31"
610
620 FOR I== 1 TO CH:LPRINT
"L";
I
MOD 3: LF'Ril'-IT
MOD·4
630 FOR Z == l
TO
1 4 : l~:Ccs Z :
(F
1,:::=: 14
THEN
1,::::: 1
"J"; I