10 '===============SAVE"MUSIC COLLECTION"================
20 '
30 '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
40 '＝                                                  ＝
50 '＝        Ｍｕｓｉｃ    Ｃｏｌｌｅｃｔｉｏｎ        ＝
60 '＝                                                  ＝
70 '＝  Ｐｒｏｇｒａｍｉｎｇ  Ｂｙ ”ＴＯＫＫＵＮ ”    ＝
80 '＝               　                                 ＝
90 '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
100 CONSOLE 0,25:CLS
110 ON HELP GOSUB *SEI
120 HELP ON
130 DIM AL$(100),NA$(100),TI$(100),S(100),A(20)
140 OPEN"C-DATA" FOR INPUT AS #1
150 INPUT #1,PASS$
160 INPUT #1,P
170 IF P=1 THEN 230
180 FOR I=1 TO P-1
190 INPUT #1,AL$(I)
200 INPUT #1,NA$(I)
210 INPUT #1,TI$(I)
220 NEXT I
230 CLOSE #1
240 *MAIN
250 CONSOLE 0,25:COLOR 7,0:N=0:CLOSE #1
260 CLS:LOCATE 17,1:PRINT"〉〉 ＣＡＳＥＴ ＣＯＬＬＥＣＴＩＯＮ  〈〈"
270 CONSOLE 3,22
280 '＝＝＝わく＝＝＝
290 LINE(135,88)-(448,312),7,B:LINE(130,83)-(452,317),7,B
300 LINE(455,87)-(457,323),7,BF:LINE(135,320)-(457,323),7,BF
310 '＝＝＝機能＝＝＝
320 A$(1)="      １，一    覧      表  示         "
330 A$(3)="      ３，デ ー タ  　  入  力         "
340 A$(4)="      ４，デ ー タ  　  訂  正         "
350 A$(2)="      ２，デ ー タ     スキャン        "
360 A$(5)="      ５，ファイル      初期化         "
370 A$(6)="      ６，デ ー タ      整  理         "
380 A$(7)="      ７，デ ー タ      印  刷         "
390 FOR I=1 TO 7:N=N+1
400 LOCATE 17,4+N*2:PRINT A$(I)
410 NEXT I
420 COLOR 0:N=1:LOCATE 17,4+N*2:PRINT A$(N)
430 A$=INPUT$(1)
440 Q=N
450 IF A$=CHR$(&H1E) THEN N=N-1
460 IF A$=CHR$(&H1F) THEN N=N+1
470 IF A$="1" THEN N=1
480 IF A$="2" THEN N=2
490 IF A$="3" THEN N=3
500 IF A$="4" THEN N=4
510 IF A$="5" THEN N=5
520 IF A$="6" THEN N=6
530 IF A$="7" THEN N=7
540 IF A$=CHR$(13) THEN *SORI
550 IF A$="C" OR A$="c" THEN *COP
560 IF N=<0 THEN N=1
570 IF N=>8 THEN N=7
580 COLOR 7:LOCATE 17,4+Q*2:PRINT A$(Q)
590 COLOR 0:LOCATE 17,4+N*2:PRINT A$(N)
600 GOTO 430
610 *SORI
620 IF N=1 THEN *HI
630 IF N=3 THEN *IN
640 IF N=4 THEN *TE
650 IF N=2 THEN *SU
660 IF N=5 THEN *SO
670 IF N=6 THEN *SEI
680 IF N=7 THEN *COP
690 *IN
700 COLOR 7:CLS
710 PRINT CHR$(23)
720 FOR I=P TO 100
730 LOCATE 10:INPUT"タイトル＝",AL$(I)
740 IF LEN(AL$(I))=>38 THEN BEEP:LOCATE ,CSRLIN-1:GOTO 730
750 IF AL$(I)="ｅ" OR AL$(I)="Ｅ" THEN 820
760 PRINT CHR$(23)
770 LOCATE 10:INPUT"アーティスト＝",NA$(I)
780 IF LEN(NA$(I))=>26 THEN BEEP:LOCATE ,CSRLIN-1:GOTO 770
790 PRINT CHR$(23)
800 LOCATE 10:INPUT"テープタイム＝",TI$(I)
810 CLS:NEXT I
820 PRINT CHR$(22):CLS
830 OPEN"C-DATA" FOR OUTPUT AS #1
840 P=I:PRINT #1,PASS$:PRINT #1,P
850 FOR I=1 TO P-1
860 PRINT #1,AL$(I)
870 PRINT #1,NA$(I)
880 PRINT #1,TI$(I)
890 NEXT I
900 CLOSE #1:GOTO *MAIN
910 *HI
920 COLOR 7:CLS:R=1
930 PRINT"Ｎｏ．   タイトル                              アーティスト        タイム（分）"
940 PRINT"−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−"
950 OPEN"C-DATA" FOR INPUT AS #1:LOCATE ,CSRLIN-1
960 INPUT #1,PASS$
970 INPUT #1,P
980 FOR I=1 TO P-1
990 IF I=9 OR I=17 OR I=25 OR I=33 OR I=41 THEN GOSUB 1100
1000 INPUT #1,AL$(I)
1010 INPUT #1,NA$(I)
1020 INPUT #1,TI$(I)
1030 IF I>=10 THEN LOCATE 0 ELSE LOCATE 2
1040 PRINT AKCNV$(STR$(I));"  ";:PRINT USING"&                                     &";AL$(I);
1050 PRINT USING"&                         &";NA$(I);
1060 PRINT USING"&  &";TI$(I):PRINT
1070 NEXT I
1080 R=0
1090 GOTO 1110
1100 PRINT:PRINT"   （↓）":LOCATE ,CSRLIN-1
1110 IF R=0 THEN LOCATE ,CSRLIN-1:PRINT"−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−"
1120 LOCATE 10:INPUT"Ｐｕｓｈ Ａｎｙ Ｋｅｙ",A$
1130 IF R=0 THEN R=1:GOTO *MAIN ELSE CONSOLE 5,20:CLS:RETURN
1140 *SO
1150 COLOR 7:CLS:LOCATE 10:INPUT"初期化します（ｙ／ｎ） ",K$
1160 IF K$="Y" OR K$="y" THEN ELSE *MAIN
1170 PRINT:LOCATE 10
1180 INPUT"Ｉｎｐｕｔ Ｐａｓｓｗｅｒｄ＝",P$
1190 IF P$=PASS$ THEN ELSE *MAIN
1200 OPEN"C-DATA" FOR OUTPUT AS #1
1210 P=1:PRINT #1,P
1220 CLOSE #1
1230 GOTO *MAIN
1240 *TE
1250 COLOR 7:CLS
1260 LOCATE 10:INPUT"訂正 Ｎｏ．＝",N
1270 PRINT
1280 PRINT CHR$(23)
1290 LOCATE 10:INPUT"タイトル＝",AL$(N)
1300 IF LEN(AL$(N))=>38 THEN BEEP:LOCATE ,CSRLIN-1:GOTO 1290
1310 IF AL$(N)="ｅ" OR AL$(N)="Ｅ" THEN 1370
1320 PRINT CHR$(23)
1330 LOCATE 10:INPUT"アーティスト＝",NA$(N)
1340 IF LEN(NA$(N))=>26 THEN BEEP:LOCATE ,CSRLIN-1:GOTO 1330
1350 PRINT CHR$(23)
1360 LOCATE 10:INPUT"テープタイム＝",TI$(N)
1370 PRINT CHR$(22):CLS
1380 OPEN"C-DATA" FOR OUTPUT AS #1
1390 PRINT #1,PASS$
1400 PRINT #1,P
1410 FOR I=1 TO P-1
1420 PRINT #1,AL$(I)
1430 PRINT #1,NA$(I)
1440 PRINT #1,TI$(I)
1450 NEXT I
1460 GOTO *MAIN
1470 *SU
1480 COLOR 7:CLS:N=0
1490 LINE(135,88)-(448,248),7,B:LINE(130,83)-(452,253),7,B
1500 LINE(455,87)-(457,259),7,BF:LINE(135,256)-(457,259),7,BF
1510 '＝＝＝機能＝＝＝
1520 A$(1)="      １，タ イ ム      検  索         "
1530 A$(2)="      ２，アーティスト  検  索         "
1540 A$(3)="                                       "
1550 A$(4)="                                       "
1560 A$(5)="      〉ＭＡＩＮ   ＭＥＮＵ 〈         "
1570 FOR I=1 TO 5:N=N+1
1580 LOCATE 17,4+N*2:PRINT A$(I)
1590 NEXT I
1600 COLOR 0:N=1:LOCATE 17,4+N*2:PRINT A$(N)
1610 A$=INPUT$(1)
1620 Q=N
1630 IF A$=CHR$(&H1E) THEN N=N-1
1640 IF A$=CHR$(&H1F) THEN N=N+1
1650 IF A$="1" THEN N=1
1660 IF A$="2" THEN N=2
1670 IF A$="3" THEN N=3
1680 IF A$="4" THEN N=4
1690 IF A$="5" THEN N=5
1700 IF A$=CHR$(13) THEN *SORI2
1710 IF N=<0 THEN N=1
1720 IF N=>6 THEN N=5
1730 IF N=3 THEN N=5
1740 IF N=4 THEN N=2
1750 COLOR 7:LOCATE 17,4+Q*2:PRINT A$(Q)
1760 COLOR 0:LOCATE 17,4+N*2:PRINT A$(N)
1770 GOTO 1610
1780 *SORI2
1790 IF N=1 THEN *TS
1800 IF N=2 THEN *AS
1810 IF N=5 THEN *MAIN
1820 *TS
1830 COLOR 7:CLS:N=0
1840 PRINT CHR$(23)
1850 LOCATE 10:INPUT"テープタイム＝",T$
1860 FOR I=1 TO P-1
1870 IF TI$(I)=T$ THEN N=N+1:A(N)=I
1880 NEXT I
1890 CLS:PRINT CHR$(22)
1900 IF N=0 THEN 1910 ELSE 1940
1910 PRINT:LOCATE 10:INPUT"該当するものがありません",S$
1920 IF S$="" THEN *MAIN
1930 GOTO *MAIN
1940 PRINT"Ｎｏ．   タイトル                            アーティスト          タイム（分）"
1950 PRINT"−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−"
1960 LOCATE ,CSRLIN-1
1970 FOR I=1 TO N
1980 IF A(I)>=10 THEN LOCATE 0:ELSE LOCATE 2
1990 IF I=9 OR I=17 OR I=25 OR I=33 OR I=41 THEN GOSUB 2050
2000 PRINT AKCNV$(STR$(A(I)));"  ";:PRINT USING"&                                     &";AL$(A(I));
2010 PRINT USING"&                         &";NA$(A(I));
2020 PRINT USING"&  &";TI$(A(I)):PRINT
2030 NEXT I
2040 R=0:GOTO 2070
2050 PRINT:PRINT"   （↓）":LOCATE ,CSRLIN-1
2060 GOTO 2080
2070 IF R=0 THEN LOCATE ,CSRLIN-1:PRINT"−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−"
2080 LOCATE 10:INPUT"Ｐｕｓｈ Ａｎｙ Ｋｅｙ",A$
2090 IF R=0 THEN R=1:GOTO *MAIN ELSE CONSOLE 5,20:CLS:RETURN
2100 *AS
2110 COLOR 7:CLS:N=0
2120 PRINT CHR$(23)
2130 LOCATE 10:INPUT"アーティスト＝",A$
2140 FOR I=1 TO P-1
2150 IF NA$(I)=A$ THEN N=N+1:A(N)=I
2160 NEXT I
2170 CLS:PRINT CHR$(22)
2180 IF N=0 THEN 1910 ELSE 1940
2190 PRINT:LOCATE 10:INPUT"該当するものがありません",S$
2200 IF S$="" THEN *MAIN
2210 GOTO *MAIN
2220 PRINT"Ｎｏ．   タイトル                            アーティスト          タイム（分）"
2230 PRINT"−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−"
2240 LOCATE ,CSRLIN-1
2250 FOR I=1 TO N
2260 IF A(I)>=10 THEN LOCATE 0:ELSE LOCATE 2
2270 IF I=9 OR I=17 OR I=25 OR I=33 OR I=41 THEN GOSUB 2320
2280 PRINT AKCNV$(STR$(A(I)));"  ";:PRINT USING"&                                     &";AL$(A(I));
2290 PRINT USING"&                         &";NA$(A(I));
2300 NEXT I
2310 R=0:GOTO 2070
2320 PRINT:PRINT"   （↓）":LOCATE ,CSRLIN-1
2330 GOTO 2350
2340 IF R=0 THEN LOCATE ,CSRLIN-1:PRINT"−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−"
2350 LOCATE 10:INPUT"Ｐｕｓｈ Ａｎｙ Ｋｅｙ",A$
2360 IF R=0 THEN R=1:GOTO *MAIN ELSE CONSOLE 5,20:CLS:RETURN
2370 *SEI
2380 COLOR 7:CLS:PRINT:LOCATE 10:PRINT"データを整理します"
2390 PRINT:LOCATE 10:PRINT"データＮｏ．"
2400 N=0
2410 FOR I=1 TO P-1
2420 LOCATE 22,6:PRINT AKCNV$(STR$(I))
2430 FOR J=1 TO P-1
2440 IF NA$(I)=NA$(I-1) THEN 2460
2450 IF NA$(I)=NA$(J) THEN GOSUB 2580
2460 NEXT J
2470 NEXT I
2480 OPEN"C-DATA" FOR OUTPUT AS #1
2490 PRINT #1,PASS$
2500 PRINT #1,P
2510 FOR I=1 TO P-1
2520 PRINT #1,AL$(S(I))
2530 PRINT #1,NA$(S(I))
2540 PRINT #1,TI$(S(I))
2550 NEXT I
2560 CLOSE #1
2570 GOTO *MAIN
2580 FOR Q=1 TO N
2590 IF S(Q)=J THEN RETURN
2600 NEXT Q
2610 N=N+1:S(N)=J
2620 RETURN
2630 *COP
2640 LPRINT"Ｎｏ．   タイトル                            アーティスト          タイム（分）"
2650 LPRINT"−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−"
2660 FOR I=1 TO P-1
2670 IF I>=10 THEN ELSE LPRINT TAB(2)
2680 LPRINT AKCNV$(STR$(I));"  ";:LPRINT USING"&                                     &";AL$(I);
2690 LPRINT USING"&                         &";NA$(I);
2700 LPRINT USING"&  &";TI$(I):LPRINT
2710 NEXT I
2720 LPRINT"−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−"
2730 GOTO *MAIN
1600 COLOR 0:N=1:LOCATE 17,4+N*2:PRINT A$(N)
1610 A$