Advertisement
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
$
Advertisement
