Advertisement
- - - - - - - - - - - - - - - - - - - - - - U T I L I T Y : J
14Ql INPUT "Which?";B
150 ON
8
GOTO 170,200,320,360,410,460
160 GOTO 120
170 CLS:PRINT "Wr-ite":PRINT "NEW DATA"
180 A=A+1:PRINT "NO. ";A: INPUT "END (Y) ";Y$: IF Y$==
"Y" OR Y$="
y"
THEN A=A-1: GOTO 120 ELSE D~- (A,
Ql)
=STR$
(A)
190 FOR I=l TO 5:PRINT 0$(0,I): INPUT D$(A,I>:NEXT
:D$(A,6l=STR$(VAL(D$(A-1,6))+VAL(0$(A,5))-VAL(0$(A,
LJ.) ) ) :
GOTO 180
200 CLS:PRINT "EDIT"
210 X=1:Y=l
220 LOCATE 0,0:PRINT 0$((Z),X);"
11
230 PRINT
0$
(Y, X);"
": LOCATE
Ql,
5:
PRINT "NO.";
Y;
u
II
240 f:::$= I NKEY$: IF K$="" THEN 240
250 IF K$="I" THEN Y=Y-1:IF Y<l THEN Y=A
260 IF
f($..="M"
THEN Y==Y+l:IF
Y>A
THEN Y=l
270
IF K$="J"
THEN X==X-1:IF X<!Zl THEN X=6
280 IF •<$="K" THEN X=X+l: IF X
>6
THEN X=0
290 IF
K$="E"
THEN INPUT "NEW OATA";D$<Y,Xl:D$(Y,
6)=STR$(VAL(D$(Y-1,6))+VALCD$(Y,5))-VAL(D$CY,4>)):C
LS:GOTO 220
300 IF K$="N" THEN 120
310 GOTO
220
320 CLS: PRINT "Sub-total DATA MAl(E "
330 PRINT "NO.";A+1:A=A+l:0$(A,0)=STR$(A) :D$(A,2)
="99"
340 FOR I=1 TO
3
STEP 2:PRINT 0$(0,I):INPUT 0$(A,
Il:NEXT:PRINT "Fram,Thru(NO.)":INPUT E,F
350 S#=0:W#=0:FOR I=E TO F:S#=S#+VAL(D$(!,4) ):W#;
W#+V~L(D$(I,5~):NEXT:D$(A,4)=STR$(S#l :0$(A,5>=STR$(
W#):D$(A,6)=D$(A-1,6):GOTO 120
360 CLS:PRINT "Total "
370 A=A+l:0$(A,0)=STR$(A)
380 FOR I=1 TO 3 STEP 2:PRINT 0$(0,Il:INPUT DS(A,
I
> :
NEXT: 0$ <A, 2)
= "99" : D$ (A, 6)
==D' : f; ( A-1 , 6)
390 Stt==0:Wtf:=0:FOR
I=1
TO A·-1:IF
0$(1,2><>"99"
THE
N
Stt=S#+VAL(0$(l,4)):W#=W#+VAL(D$(I,5))
400 NEXT~O$(A,4)=STR$(S#):Dt(A,5)=STR$(W#):GOTO 1
20
410 CLS:F'RINT
"DATA
KILL"
420
INPUT
"N0.";8:FOR
I==Ql
TO
4:PRINT 0$(0,I):PRIN
T D$<B,I>:NEXT:INF'UT "Of:::
(Y>";Y<f;
4.30
IF
Y$< >"Y" AND Y$<
>"y"
THEN 12!Zl
Advertisement
