Advertisement
cCUSTOMER M A N A G E M E N T - - - - - - - - - - - - - - - - - - - - - -
LIST 2
100 CLEAR:CLS:PRINT
"*.;,.,v
cu::~)TDMFJ~:
Mt"IN
AGEMENT ***":PRINT
110 INPUT
"DISK SET
OI<? CY /NJ", A1;: IF A1,=-="N" THEN
END
121Zl
FILES:INPUT "[FILE NAMEJ",N!t,~or·EN
N1i FOR
Il\{F'LJ
T AS #1
130 DIM 0$(50,8)
141Zl
FOR
I=0
TO 5:READ
0$(0,I>:NEXT
150 DATA
Name,Postal cord,Address,Telephone
No,Bi
rthday,ID
No
0
160
A=1:FOR I=6
TO
8:INPUT #1,D$(0,I>:NEXT
170 FOR I=0 TO 8:IF EOF(l)=-1
THEN
CLOSE :GOTO 20
180 INPUT #1,D$(A,I)
190 NEXT:A=A+l:GOTO 170
200
A==A-1: PRINT "Number· of
data";
A:
rOR
I:::::!i'l TO ~:00
:NEXT
210
CLS:PRINT "MENU
1."
220
PRINT
"1)
PRINT
ALL DATA"
230
PRINT
2)
SORT
DATA"
240
PRINT
3)
EDIT DATA"
250
PRINT
4) ADD
DATA"
260
PRINT
5) KILL
DATA"
270
PRINT
6) SAVE DATA"
280
PRINT
7) MENU 2";
290
INPUT
8$:B=VAL(BS):IF B<l OR
8)7 THEN
210
300 ON
8
GOTO 310,380,440,560,620
1
710,750
-310
CLS: PRINT
"DATA ALL
PRINT
11
320
FOR
1¼=1
TO
A:PRINT USING "·-----·- <<No-##>>
II ;
I
330
FOR
J=0
TO
8
340
PR I NT " [ ";
D'li
(0,
J) ; "J
11
:
F'r-d
NT
11
" ;
D1> (I,
J)
350 A~-== I NKEY$
360 IF A1,==""
THEN 350
EU:3E
IF
A1,="E
11
OR
A~;:.:::"e"
TH
EN 210
370 NEXT:NEXT:GOTO 210
380 CLS:PRINT
"DATA
SORT"
.390
I
NF'UT " ITEM NO. (
1--9) " ; CJ: O==O--1 : IF CV 0
OR
O >8
T
HEN
39(Z)
400
FOR I=1 TO A-1:FOR J=I+t TO A
410
IF DS(I,Ol)DS(J,O)
THEN FOR
K=0
TO
8:A$=O$(1,
I( ) : D
$ (
I ,
I( )
=
D
$ (
J ,
n :
D
'f;
<
~1 , k ) = A
'f, :
NE X T
420
NEXT:NEXT
430 GOTO
2112!
Advertisement
