Advertisement
- - - - - - - - - - - - - - - - - - - - - - - - U T I L I T Y J
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
e"
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"
=0 TO 5:LPRINT:NEXT
$
###. ##'l."; T
:
FOR
Advertisement
