Advertisement
rBUSINESS ANALYSIS AND C H A R T I N G - - - - - - - - - - - - - - - - -
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
Advertisement
