Casio FP-200 - Page 38

rCUSTOMER MANAGEMENT-------------------- ....
42
81210 PRINT "5) MENU 1"
810 PRINT "b) END"
82121 INPUT "Select"; B$: B==VAL (8$): IF B< 1 OR 8>6 THE
N 750
830 ON B GOTO 840,910,950,1070,210,1120
840 CLS: PR INT "Retr· i eve name": PRINT "--------·----------
-------": INF'UT "CNAMEJ",F$
850 FOR I=l TO A:IF LEFT$(0$(l,0) ,LEN(F$))=F$ THE
N FOR J=0 TO 4:PRINT fl ";D$CI,J):NEXT:INPUT "OK";B
$:IF 8$="N" THEN 860 ELSE O==I:GOTO 880
860 NEXT
870 PRINT "Data not foundfl:INPUT" [PUSH RETKEYJ
",A$:GOTO 750
880 CLS: FOR I :::(21 TO 8: PR I NT fl C" ; D$ ((Z)
1
I) ; "J": PR I NT
"; 0$ <O
I
I)
890 IF INKEY$="" THEN 890 ELSE NEXT
900 GOTO 750
910 CLS:PRINT "Tabulate":PRINT: INPUT "PRINTER SET
CY/NJ",A$:IF A$=PN" OR A$="nfl THEN 750
920 PRINT "Being pr·intedfl:FOR I=0 TO A: IF I<>0 TH
EN LPRINT: LPRINT"<Na. fl; I;">"
930 FOR J=QI TO 8
940 LPRINT USING"~,.
~✓- ";0$(!,J);:NEXT:
LPRINT:NEXT:GOTO 750
950 CLS:PRINT "Print address"
960 PRINT:PRINT " All pr·int
ect print (T) ":PRINT " Cancel
970 I$=INKEY$: IF I$=--="" THEN 970
EN 750
(A)":PRINT fl Sel
(N) fl
ELSE IF I$="N'' TH
980 IF I$="A" THEN 1010 ELSE IF l$="Tfl THEN INPUT
"Which narne";I ELSE 750
990 IF I<l OR I>A THEN 750
1000 GOSUB 1020 :GOTO 750
1010 FOR I=l TO A:GOSUB (020:NEXT:GOTO 750
1020 LPRINT TA8(5l;D$(I,1)
1030 LPRINT TA8(2);0S(I,2l
1040 LPRINT TAB(5);DS(I,01
10:50 LPRINT TA8(9>;"TEL ";D$(I,3)
1060 LPRINT:LPRINT:RETURN
1070 CLS:F'RINT "Catalog itPms"
1080 LOCATE 0,1:FOR I=6 TO 8:PRINT 1;0$(0,1):NEXT
1090 INPUT "NO."; I!f;: IF !$==="6" OR I!f;,_-::"7" OR 1$=="8"
THEN !=VAL(!$) ELSE 75~
1100 I NF'UT "NAME " ; !)$ <rZl, Il
1110 GOTO 750
1120 END