Casio FP-200 - Page 37

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"
41