Advertisement
r E S n M A n O N - - - - - - - - - - - - - - - - - - - - - - - - - -
190 Z$=INKEY$:IF Z$="E"
THEN
REfURN ELSE
IF
Z<fi<>"
"THEN 90 ELSE
190
200 REM*** Estimate***
210 K=0:CLS
220 F'=l:F'RINT N$(0);"
Input..": INPUT z1;:F·RINT
":'.£
ARCH!!"
230
O$=FL<0,P,1):IF
0$="" THEN
250
240 IF Z$=O$
THEN 260 ELSE
P=P+l:GOTO 230
250 F'RINT "Not found! ! "~ PRINT "Cat al 09 d.:.,.ta "~ Y=:-
1: FOR I=0 TO
300:NEXT:GOSUB 80:GOTO
270
260 CLS: PR
I
NT
"FI
ND
!
! ":
M$=FL
(0,
F', 1
> :
M=-FL
(QI ,
P, 2 l
270 PRINT
N$((ZJ)
:PRINT"
";M$:F'RINT N$(1) :PRINTM
280
PRINT N$(2>;:INPUT U:PRINT N$(4);:INPUT V
290 A$(K)=M$:A<K,0l=M:ACK,1)=U:ACK,2J=M*U:ACK,3>=
V:A<K,4)=(1-V/100)*A<K,21
300 GOSUB
460
310
PRINT "END
<Y or N or- C) ?"
-320 ZS=INKEY$:
IF
Z$=="Y"
THEN 330
ELSE
IF
Z$=="N" T
HEN K=K + l : GOTO
220 ELSE IF
Z
$=
"C" THE!'~ 280 ELSE 320
330
PRINT "Do ·;1ou wish to
display
-::.d
1 data?"
-340 Z$=INKEY$:
IF Z$=-"Y"
THEN
350 ELSE IF z~;="N" T
HEN
41210 ELSE 340
350 I=K:FOR
K=0
TO
I
360
GOSUB
460
37121 PRINT "PUSH RETURN KEY
TO
·cor,!TINUE";
380 IF INKEYS<>CHR$(13)
THEN
380
39121 NEXT
400 PRINT : PRINT "Do you
L-.i1
sh to have total?"
410 ZS=INKEY$:
IF
Z$=="Y"
THEN
420
ELSE
IF
zt,="N"
T
HEN RETURN ELSE
410
420
PRINT "Being comput.ed":K=f=::+l:FOR 1=0 TO K-l:F
OR J=(Z) TO ?:A(K,2-J)=A(K,2~J)+A(I,2AJ):NEXT:NEXT
43121 CLS:Z$=="
Total":PRINT N$(2);Z$:F'RINTA<K,1):F'R
INT N$(3); 2$:F'RINTA0::,2> :F'RINT
N$(5);
2$:FRINTA0::,4)
440 PRINT "F'USH RETURN f:::EY
TO MENU
II •
'
450
IF I Nf:::EY$< >CHR't ( 13)
THEI'~
450 ELSE m::TURN
460
CLS:F'RINT N$(CZ));"
:";,~$(f::):FOR
I==(Z)
TO ·'.1-:F'RINT
N$
<I+
1)
470
fRINTAW, I)
480
IF I=2
THEN
GOSUB 500
490
NEXT:RETURN
500
PRINT"<<
F't-es~;
any key
5 lCZl
IF
I Nf:::EY$==" ''
THEN
51
CJ
520
CLS: RETUF~N
Advertisement
