Advertisement
BUSINESS.J
440
CLS:PRINT
"DATA
EDIT"
45121 X= 1: Y=121
46QJ A$= I NKEY~;: IF A!fic:.
11 11
THEN 46(7.)
4717.J IF A$="N" OR A$="n"
THEN
210
480 IF A$=CHR$(30)
THEN
X=X-1:IF
490 IF A$=CHR$C31)
THEN
X=X+l:IF
500 IF A$=CHRS(29)
THEN
Y=Y-1:IF
~10
IF
A$=CHR$(28)
THEN
Y=Y+l:IF
X< l.
X>A
Y<!Zl
Y>B
THEN X=A
THEN
X=l
THEN
y:-::8
THEN Y==0
520 IF A$="E" OR
Af,:=="t·?" THEN
GOSU8 5~50:
F'RINT
D$ CX
,Y>: INPUT "NEW
DATA
11
;D$CX,Y>
530
GOSUB 550:PRINT D$(X,Yl
540 GOTO 460
550 CLS: PRINT
"No."; X;
11
[
' - ' ;
D$ (0,
Yl;
"J
11
:
FRINT "-------
---------------": RETURN
560 CLS:PRINT "ADD
DATA"
570
A=A+ 1:
PR
I NT US I NG "-··--·--
< <
No-·tt1t
> > --·········-";
A
58121 FOR I=0 TO 8:F'RINT "r";D~;<0,I>;"l":INF'UT"
;D$<A,
I) :NEXT
590
INPUT "OK ?CY/NJ
/
END[EJ",Y1,
600 IF Y$="E" OR Y$="e" THEN 211Zl ELSE IF Y•t.<>"N"
THEN
570
610 A=A-1:GOTO 57121
620 Cl_S: PRINT ,.DATA ~<ILJ .. _ '': F·RINT .. ·-·--·-· •-•-··-··-.. -·-·- . . -·--·-·-·-·--
"
630
PRINT
"Number of dat.a";A
640
INPUT "Which data";U
650 IF
U<l OR
U>A THEN 210 EL.SE FOR
I:~0 HJ 3:PRIN
T
11
";D$<U
1
I):NEXT:F'RINT "OV? [Y/f\lJ";
66(2) Y$= I NKEY$: IF Y$:::"" THEN 660
670 IF Y$<>"Y"
THEN 210
68121
A=A-1
i
690 FOR I=U TO A
700 FOR J=O TO 8:D$(1,J)=D$(I+1,J>:NEXT:NEXT:GOTO
210
710 CLS:PRINT
"DATA SAVE ":r-OR T=fll TO 200:NEXT
72121
FILES:
INF'UT
"(FILE NAMEJ"
,F$:OPEN
F$ FOR OUTF'
UT AS #1:FOR I~6 TO 8:PRINT
ffl,D$(0,I>:NEXT
73IZI
FOR I==l TO A
740 FOR
.J=0
TO
8:PRINT #-l,0$(I,J):NEXT:NEXT:CLOS[
:GOTO 210
750
CLS:PRINT
"MENU
2"
76IZI PRINT "1)
Retrieve namr~"
770
PRINT "2)
Tabulate"
780
PRINT
11
3)
Pr·int addn~ss"
790 PRINT
"4)
Enter new itE.
0
m"
Advertisement
