----------------------UTILITY: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
73
To Next Page
Loading...
