Casio FP-200 - Page 36

cCUSTOMER MANAGEMENT----------------------
40
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!