1 DISK$="DSK1.BBCFILE"
2 CALL CHAR(61,"0000FF0000FF")
3 CALL CHAR(97,"00000038043C443C00004040784444780000003C4040403C")
4 CALL CHAR(100,"000004043C44443C00000038447C403800000C103C1010100000003C443C0438")
5 CALL CHAR(104,"000040407844444400001000301010380000040004040438000040405860504C")
6 CALL CHAR(108,"0000301010101038000000685454545400000078444444440000003844444438")
7 CALL CHAR(112,"00000078444478400000003C44443C0400000078444040400000003C40380478")
8 CALL CHAR(116,"0000107C1010100C000000444444443C00000044444428100000004454545428")
9 CALL CHAR(120,"000000442810284400000044443C04380000007C0810207C")
10 CALL CLEAR
20 PRINT "Baseball Card DB v1.2"
25 PRINT
30 PRINT "Active Data File is ",DISK$
40 PRINT "=========================="
100 PRINT "[A] Enter Card"
110 PRINT "[B] List Card(s) By Name"
120 PRINT "[S] Set Disk Read/Write"
130 PRINT "[X] Exit"
135 PRINT "=========================="
150 INPUT CH$
160 IF CH$ = "A" THEN 190
170 IF CH$ = "B" THEN 300
175 IF CH$ = "S" THEN 1100
179 IF CH$ = "X" THEN 2000
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$
232 PRINT "ENTER CARD *Condition*:"
233 PRINT "M=Mint/NM=NearMint/EX=Excellent"
234 PRINT "VG=VeryGood/G=Good/F=Fair/P=Poor" 
235 INPUT COND$
240 OPEN #1:DISK$,SEQUENTIAL,DISPLAY,APPEND,VARIABLE
250 PRINT #1:NAME$,BRND$,YEAR$,CDNO$,COND$
260 CLOSE #1
270 PRINT "Data written to ",DISK$
290 GOTO 10
300 PRINT "INPUT Name on card TO LIST"
305 PRINT " (Case Sensitive)"
310 INPUT LNAM$
500 OPEN #1:DISK$,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$
535 PRINT "==========================="
536 PAGE=PAGE+1
537 if PAGE=3 THEN GOSUB 1500
540 GOTO 510
550 CLOSE #1
560 PRINT "Screen Print Done"
565 PRINT " - Press Enter"
570 INPUT ENTER$
1000 GOTO 10
1100 CALL CLEAR
1120 PRINT "Baseball Card DB v1.2"
1122 PRINT "Set Disk Read/Write"
1125 PRINT "=========================="
1130 PRINT "[A] Disk 1 (DSK1)"
1140 PRINT "[B] Disk 2 (DSK2)"
1150 PRINT "[C] Disk 3 (DSK3)"
1160 INPUT CH$
1170 IF CH$ = "A" THEN DISK$="DSK1.BBCFILE"
1180 IF CH$ = "B" THEN DISK$="DSK2.BBCFILE"
1190 IF CH$ = "C" THEN DISK$="DSK3.BBCFILE"
1196 GOTO 10
1500 PRINT "Paused - Press Enter"
1505 INPUT ENTER$
1510 PAGE = 0
1520 RETURN
2000 END