10 CALL CLEAR
20 PRINT "BASEBALL CARD DB"
100 PRINT "A] ENTER CARD"
110 PRINT "B] LIST CARD BY NAME"
150 INPUT CH$
160 IF CH$ = "A" THEN 190
170 IF CH$ = "B" THEN 300
180 PRINT "INVALID OPTION - Press Enter"
182 INPUT ENTER$
185 GOTO 10
190 PRINT "ENTER NAME ON CARD:"
200 INPUT NAME$
205 PRINT "ENTER CARD BRAND:"
210 INPUT BRND$
215 PRINT "ENTER YEAR OF CARD:"
220 INPUT YEAR$
225 PRINT "ENTER CARD NUMBER:"
230 INPUT CDNO$
240 OPEN #1:"DSK1.BBCFILE",SEQUENTIAL,DISPLAY,APPEND,VARIABLE
250 PRINT #1:NAME$,BRND$,YEAR$,CDNO$
260 CLOSE #1
270 PRINT "WROTE TO DSK1.BBCFILE"
290 GOTO 10
300 PRINT "INPUT NAME TO LIST"
305 PRINT " (Case Sensitive)"
310 INPUT LNAM$
500 OPEN #1:"DSK1.BBCFILE",SEQUENTIAL,DISPLAY,INPUT,VARIABLE
510 IF EOF(1) THEN 550
515 INPUT #1:A$
517 P = POS(A$, LNAM$, 1)
520 IF P > 0 THEN 530 ELSE 540
530 PRINT A$
540 GOTO 510
550 CLOSE #1
1000 GOTO 10