Casio FP-200 - Page 30

rESnMAnON--------------------------
34
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