Advertisement
- - - - - - - - - - - - - - - - - - - - - - - - B U S I N E S S . 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$
Advertisement
