Advertisement
rCUSTOMER M A N A G E M E N T - - - - - - - - - - - - - - - - - - - -....
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
Advertisement
