Casio FP-200 - Page 77

-------------------------UTILITYJ
160 IF KI<=0 THEN 150
170H=VAL<DAS<CD,011:DAS(CD,01=STR$(SU•Kil:DAS(CD
,1):::8$
180 TL=TL+SU•KI-H
190 GOTO 100
200 INPUT" Do y □ Ll wish ta save data to tape ( Y /N)"
; Z$
210 IF Z$="Y" OR Z$="y" THEN GOTO 680
220 CLS: PR INT"Wh i ch devi Cf~"
230 PRINT
240 PRINT "l>>DISPLAY
11
250 PRINT "2>>F'RINTER"
260 PRINT "3>>DISF'LAY ~~ PRINTER"
270 INF'UT KB
280 IF KB<l OR KB>3 THEN 270
290 ON KB GOSUB 310,430,530
300 END
310 CLS
320 PRINT "Code Price Percent"
330 FOR I=l TO 50
,340 IF DA$ (I, Q)) ="" THEN 390
350 PS=VAL<DA$(I,0))/TL*100
360 NO$=" "+STR$(I)
370 PRINT RIGHT$(N0$,2);:F'RINT USING"##########";
VAL <DA$ (I, 0));: PRINT USING" ###.##";PS
380 A$=INKEY$:IF A$="" THEN 38(2)
390 NEXT I
400 T=TL/TL•100
410 PRINT USING"Total$###### ###.##"l.";TL;T
420 RETURN
430 LPRINT "Cade Item name Item price Percenta
ge" l
440 FOR I=l TO 50
450 IF DA$ (I, 01 ="" THEN 490
460 PS=VAL(DA$(I,0))/TL*100
470 NO$=" "+STR$ <I>: DA$< I, 1) :;;" "+DA$< I, 1 >:
DA$(I
1
0)=" "+DA$(I,0):W$=RIGHT$(N0$,3l+" "
+RIGHT$ (DA$ (I, 1 I, Bl+" "+RIGHT$ <DA$< I, 0), 8l
480 LPRINT W$;
11
"; :LPRINT USING"###.##";PS
490 NEXT .I
500 LPR I NT"----------------------------------------
-":LPRINT"Total
II; RIGHT$ ("
"+STR$ <TL), 11);
510 T=TL/TL*100:LPRINT USING"
I=0 TO 5:LPRINT:NEXT
$
###. ##'l."; T : FOR
81