1055 PRINT " " FN TM(I);" MIN.";:X$ = STR$( FN TS(I)): IF LEN(X$) <2 THEN X$ = "0" +X$
1060 PRINT X$;" SEC"
1065 IF CO/3 = INT(CO/3) THEN 1085
1070 NEXT
1075 NEXT
1080 PRINT C1$: VTAB 23: PRINT "PRESS ANY KEY TO RETURN TO MENU.";: GET YN$: PRINT : GOTO 110
1085 PRINT C1$: IF I = NU THEN 1080
1090 VTAB 23: PRINT "PRESS <SPACE BAR> FOR MORE. <R> TO RETURN TO MENU.";: GET YN$: PRINT : IF YN$ < >"R" THEN PRINT O1$: PRINT R1$;I: HOME : GOTO 1070
1595 PRINT "LENGTH :";M(J);":";:X$ = STR$(S(J)): IF LEN(X$) <2 THEN X$ = "0" +X$
1600 PRINT X$: PRINT "IS THIS SONG ALRIGHT ?";: GET YN$: PRINT : IF YN$ = "Y" THEN HOME :S = S +1:ST$(8) = SO$(J):MI(S) = M(J):SE(S) = S(J):FL = 0: GOTO 1340
1605 HOME : VTAB 20: HTAB 30: FLASH : PRINT "SEARCHING": NORMAL : PRINT O2$: PRINT R2$;I: GOTO 1555
1610 VTAB 8: PRINT "SEARCH BY :": PRINT : PRINT "[1] ALBUM NAME": PRINT "[2] ARTIST NAME": PRINT "[3] SONG TITLE"
1615 VTAB 8: HTAB 12: GET YN$:YN = VAL(YN$): IF YN <1 OR YN >3 THEN 1615
1620 IF YN = 3 THEN 1710
1625 IF YN = 1 THEN SW = 8:SW = 8:SL = 40: GOTO 1635
1630 SW = 48:SL = 30
1635 HOME : VTAB 12: PRINT "ENTER SEARCH KEY :";: INPUT "";S$: HOME
1636 IF LEN(S$) >SL THEN 1635
1640 VTAB 12: PRINT "SEARCHING...": POKE 34,13
1645 PRINT O$: PRINT R$;0: INPUT NU: PRINT C$
1650 PRINT O1$
1655 FOR I = 1 TO NU
1660 PRINT R1$;I
1665 INPUT RE$: IF RE$ = "0" THEN 1675
1670 IF MID$ (RE$,SW, LEN(S$)) = S$ THEN GOSUB 1915
1675 NEXT : PRINT C1$
1680 TEXT : HOME : VTAB 12: PRINT "SORRY. NO TITLE BY THAT NAME."
1685 PRINT : PRINT "PRESS <ESC> FOR ANOTHER SEARCH,<RETURN> TO GO BACK TO MENU."
1690 X = PEEK( -16384)
1695 IF X = 141 THEN POKE -16368,0: GOTO 110
1700 IF X = 155 THEN POKE -16368,0: HOME : GOTO 480
1705 GOTO 1690
1710 REM SEARCH FOR SONG PART OF SEARCH/CHANGE/DELETE ROUTINE
1715 HOME : VTAB 12: INPUT "SONG TITLE: ";S$: IF S$ = "" THEN POP : GOTO 110
1716 IF LEN(S$) >40 THEN 1715
1720 HOME : VTAB 12: PRINT "SEARCHING...": POKE 34,13
1725 PRINT O$: PRINT R$;0: INPUT NU: PRINT C$
1730 FOR I = 1 TO NU: PRINT O2$: PRINT R2$;I
1735 INPUT AR$: IF AR$ = "0" THEN 1770
1740 INPUT S
1745 FOR J = 1 TO S
1750 INPUT ST$(J),MI(J),SE(J)
1755 NEXT
1760 FOR J = 1 TO S: IF LEN(S$) > LEN(ST$(J)) THEN 1765
1761 IF S$ = LEFT$(ST$(J), LEN(S$)) THEN 1780
1765 NEXT
1770 NEXT : PRINT C2$
1775 GOTO 1680: REM : NO MATCH
1780 TEXT : HOME : VTAB 10: INVERSE : PRINT "SONG :";: NORMAL : PRINT " "ST$(J)
1995 PRINT : INVERSE : PRINT "SELECT ONE OF THE ABOVE :";: GET YN$: PRINT : NORMAL : IF YN$ <"1" OR YN$ >"7" THEN 1985
2000 YN = VAL(YN$): HOME : RETURN
2005 END
2010 REM ERROR ROUTINES
2015 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256
2020 IF ER = 5 AND EL = 1845 THEN PRINT :EF = 1: PRINT W2$;0: PRINT 0: PRINT C2$: GOTO 1870
2025 IF ER = 5 AND EL = 1870 THEN PRINT :EF = 1: PRINT W$;0: PRINT 0: PRINT C$: GOTO 125
2030 IF ER = 5 AND EL = 995 OR EL = 1515 OR EL = 1160 THEN PRINT : PRINT C$: HOME : INVERSE : CALL -211: VTAB ( PEEK(37) +1): PRINT " NO RECORDS IN FILE.": FOR I = 1 TO 2000: NEXT : NORMAL : GOTO 110
2035 IF ER = 9 THEN 2055
2040 IF ER = 255 THEN 45
2045 TEXT : HOME : PRINT "ERROR TYPE = ";ER: PRINT "LINE NUMBER = ";EL
2050 END
2055 TEXT : HOME : VTAB 8: PRINT "SORRY! THIS DISK IS FULL. PLEASE REMOVE DISK FROM DRIVE AND REPLACE IT WITH A FRESH, UNINITIALIZED DISK."
2060 PRINT : PRINT : INPUT "TYPE <INIT> TO INITIALIZE THE NEW DISK. (ANYTHING ELSE TO QUIT) ";YN$
2065 IF YN$ < >"INIT" THEN HOME : END
2070 HOME : VTAB 12: PRINT "INITIALIZING NEW DISK. DO NOT INTERRUPT!"
2075 PRINT CHR$(4);"INIT MUSIC RETRIEVAL SYSTEM"
2080 PRINT : PRINT "DONE": FOR I = 1 TO 3000: NEXT : GOTO 45