------------------------BUSINESS.J
340
FOR
J=0
TO
12
350
PRINT
"[";0$<0,J);
"]
11
360
PR
I
NT
"
11
; 0$ < I , J >
370
A$=INKEY$
380
IF
A$=""
THEN
370
ELSE
IF
A$=
11
E"
OR
A$="e"
TH
EN
210
390
NEXT
:NEXT:GOTO
210
400
CLS:
PRINT
11
TOTAL
PRINT":
PRINT
"---------------------
-----··
410
FOR
I=3
TO
11:S#=0:FOR
J=l
TO
A:S#=S#+VAL(0$(
J,
I>
> :
NEXT
420
PR I
NT
11
[";
0$
((21,
I)
;
11
J
":
PR I
NT
S#
430
IF
INKEY$="
11
THEN
430
440
NEXT
450
GOTO
210
460
CLS:PRINT
"DATA
EDIT"
470
X=l:Y=0
480
A$=INt<EY$:IF
A$=""
THEN
480
4912!
IF
A$=
11
N"
OR
A$=
11
n
11
THEN
210
500
IF
AS=CHRS(30)
THEN
X=X-1:IF
X<l
THEN
X=A
510
IF
A$=CHRS(31)
THEN
X=X+l:IF
X>A
THEN
X=l
520
IF
A$=CHRS(29)
THEN
Y=Y-1:IF
Y<0
THEN
Y=12
530
IF
A$=CHR$(28)
THEN
Y=Y+l:IF
Y>12
THEN
Y=0
540
IF
A$="E"
OR
A$="e"
THEN
GOSUB
570:PRINT
D$(X
,Y>:
INPUT
"NEW
DATA
";D$(X,Y)
550
GOSUB
570:PRINT
0$(X,Y>
560
GOTO
480
570
CLS: PR I
NT
II
No.
";
X:
PR I
NT
"
[";
D$
(
(2),
Y)
;
11
J " : f'R I
NT
11
-------------------
11
:F=l:GOSUB
600:RETURN
58(2)
CLS:PRINT
"DATA
ADD"
590
A=A+
1:
PR
I
NT
US
I
NG
11
----
<<No-##>>
-----
11
; A':
FOR
I=0
TO
7:PRINT
11
C";DS(IZl,I>;"J
11
:INPUT"
11
;D$(A,I>:
NEXT:F=0:GOSUB
600:GOTO
630
600
IF
F=0
THEN
Z=A
ELSE
Z=X
610
C#=VAL(DS<Z,6))-VAL(DS(Z,7)):D$(Z
1
8)=STR$(C#)
:C#=(VAL(D$(Z,6))-VAL(D$(Z,7)))*VAL(D$(Z,3)):DS<Z,9
)=STRS(C#)
620
C#=VAL(O$CZ,4>>•VAL(O$(Z,7>>:D$(Z,10)=STR$(Ctt
) : C#=VAL (
0$
(
Z,
112l)
)
-VAL_
(
D$
<
Z,
3 > ) *VAL (
0$
<
Z,
7)
) :
0$
< Z , 1
1)=STR$(C#l:RETURN
630
FOR
I
=8
TO
11:
PR
I NT " [
11
;
Dt,
((2),
I ) ; " J " :
PR
I
hlT
"
11
;DS<A,I):FOR
W=l
TO
200:NE:.XT:NEXT
640
PR I
Nt
11
[
11
;
0$
(QJ,
12)
;
11
J":
INPUT
11
";
l)<f;
<A,
l
2)
650
INt-'UT "Of~
?(Y
/NJ
/
END[EJ",
Y$
29
To Next Page
Loading...
