Publicité
• IMPRESSION EN SORTIE
40:CLEAR : CLS : WAIT 0
:A=26:B=14: DIM B*<A
) + E,C';A),IKA),K*<A) +
l,Z*(y>+6
50: FOR 1=1 TO A:
CURSÛR : IF I>2
GOSUB 700: PRINT " "
60: CURSOR 0,<I>1)*2:
PRIHT "("S STR* 15")
PRODUCT Nu. SALES":
PRIHT "
v
70:EEEP l: CURSOR 2+
LEN STR* I,<I = n + (I>
1)*3: INPIJT E*<I>
80:IF B * < I > = " " LET C=I-
l:I=A: GOTO 139
90:B*<I>= LEFT* < B * ( I > »
7)
95: CURSOR 2+ LEN STR$ I
« (I = 1H(I>1)*3:
PRINT BKD;"
v
!
100: CURSOR 14+ LEN STR$
I,a = l > + a>l)+3:
BEEP 1: INPIJT Z*<0)
107: CURSÛR 14+ LEN STR*
PRINT Z*(0>?"
"5
110:C(I>= VAL Z*(0>: IF
CUX =8 BEEP l:
GOTO 100
130:NEXT I: IF C<2 BEEP
2: GOTO 46
140: BEEP l: CLS : INPUT
"CONFIRM OR AMEHDO
1
/
N)"!Z*
150: IF Z*="N" GOSUB 520:
GOTO 240
160: IF Z*O"Y" THEN 140
170:CLS : FOR 1=1 TO C
180: CURSOR : IF I >2
GOSUB 700: PRINT " "
190: CURSOR 0,<IM)+2:
PRINT •<"? STR* 1 5 " )
CURSOR 6+ LEN STR* I
+ LEN B*(I),(I>1)*2
200MHPUT B*(I):B*(I) =
LEFT* <B*(I),7)
210:CURSÛR 2+ LEH STR* I
PRINT STR* CCI)!" ->
": CURSOR LEN STR*
*
C(I)+7,(I=1)+<I>1)*3
:Z*(0)= STR* CCI)
220:INPUT Z*(0): IF VAL
Z*(0)<=0 BEEP l:
GOTO 210
230:E=E-C(I):C<I>= VAL Z
*<0):E=E+CU>: NEXT
I: CLS : GOTO 140
240:CLS :H=0:V=0: PRIHT
"LCD or PRINTER or E
ND"
250:BEEP l: CURSOR 7,1:
INPUT "<L/P/E>?"!Z*
260:IF Z*="E" BEEP 3:
CLS : END
270:IF Z*="P" THEN 430
230: IF Z*0"L" THEN 240
290:CLS : CURSOR 0,0:
PRINT "PR. NO. RATEC
':)": CURSOR 16,0:
PRINT " SUM<V.)R»:v = l
300:FOR 1=1 TO 3-(C=2):
CURSOR 0,1: GOSUB 70
0:V=D(Y-1>
310:CURSOR 0,1: PRINT B*
(Y): CURSÛR 3,1:0*=
STP* ( INT (D(Y)-V))
315:IF LEN 0*=1 LET 0*="
"+0*
317:PPINT 0*
320:CURSOR <64+D<Y)/2)/6
-.9,1: PRINT USING "
8»81t"JD(Y): CURSOR 2
3,1: PRINT K*(Y)
330:LINE ',66, 1+8+1 )-(66 +
<DCY)-V>/2»1+8 + 5), BF
340:LINE (66+<D(Y)-V)/2,
I + 8+l)-(66+D';Y)/2,I*
8+5),B
350:Y=Y+i: NEXT I
360-.LINE (2,7)-(149,7):
LINE (2,31)-(149,31)
: LINE <2,9)-<2,31>
370:LINE <48,0)-<48,31):
LINE (143,0)-(143,31
): LINE (149,0)-(149
,31)
380:IF INKEY* =
v
" GOTO 3
80
390:IF INKEY* ="Q" GOTO
240
400:IF INKEY* ="D" AND Y
<C+1 BEEP l:Y=Y-2:
GOTO 300
410:IF INKEY* < >
U
U
V
OR Y
<5 BEEP 2: GOTO 330
420:Y=Y-4: BEEP l: GOTO
300
430:LPRINT * *+ ABC
hN
ALY3IS **": LPRINT
440:LPRINT "+PROD. NO.*
(RANK)"
450:LPRINT " SALES
'/.
SU M
'/."
460: FOR 1=1 Tu C: GOSUB
690:H=H+C(I)
470:LFRINT "* "5 USING "
USING !" *
"SKfd)!" >"
430:LPRINT USING
"5 STR* C(I)i USING
490
500:
510:
520
530
540
550
560
570
530
590
600
610
620
630
640
650
669
670
630
690
USING
IF D < I > < > 1 0 0 USING "
BttS.8": GOTO 510
USING "ttJttB"
LPRINT D(I):V = D(D:
NEXT I: G03IJB 690:
LPRINT : LPRINT :
GOTO 240
:L= INT '.C/2+P :R=C
: IF L>1 LET L=L-l:X=C
(L):B*(0,'=B*<L):
GOTO 560
:X=C<R):B*<0)=B*(R):C
(R)=C( 1):B*(R)=B*<1)
:R=R-1
:IF R < = 1 LET C(1)=X:B
*(1)=B*(0): GOTO 63Ë
: J=L
:l=J:J=2*J
: IF J>R THEN 620
: IF J<R THEN IF C(J»
C(J+1) LET J=J+1
: IF X<=C(J) THEN 620
:C<I)=C(J):B*(I)=B*(J
): GOTO 570
:C(I)=X:B*(I)=B*(0):
GOTO 530
:FOR 1=1 TO C
:H=H+C(I):D(I)=H/E+10
0
: IF D(I)<=66 OR 1=1
LET K*<I)="A": GOTO
680
: IF D<I)<=99 LET K*<I
>="B": GOTO 630
:K*',I) = "C"
: NEXT I: RETllRM
: USING : LPRINT " ----
v
: RETURN
700: PRIHT "
RETURN
2096 octets
255
Publicité
