¤** BY D.J.GARDNER **¤** START 25/11/87 **¤** VER 2.0 6/9/90 **  à ‘ 70(Œ 02Š IND$(400)3BEL$~Ç(7):¼0:¿ 28,24FILE$~"LP.DAT":RL~500 <‘ 270&F“ à~25 s ‘ 80:“ à~30 s ‘ 100:‘ 71G„:¢@0,12;à$:– á,1:Ž0P“ à~25 s ¢"NO DATA FILE. CREATE Y/N";:Y$~ä$TZ“ Y$~"Y" s † FILE$,FD$:¢# FD$;"0":† "INDEX.DAT",ID$:¢#ID$;"0":ƒ FD$:ƒ ID$:‘ 270d“ à~30 s „:ƒ:¢"DISC FULL",n¢"INSERT NEW DISC/SIDE & PRESS ANY KEY"xY~ä ‚‘ 270Œž"INDEX.DAT",ID$‘ž FILE$,FD$,RL+–”#ID$;A$:NUM~Ü(A$):“ NUM~0 s 210: 160  I~1 r NUMª”#ID$;IND$(I)´› IÈ”#FD$,0;NENTÒ”#0 Óƒ ID$ܨæž FILE$,FD$,RLç”#FD$,0;NENTð¨ñƒ FD$:‘ 270#úƒ FD$:„:¢@12,14;"SAVING INDEX"üN$~Ú(NUM)ýž "INDEX.DAT",ID$/¢#ID$;N$: I~1 r NUM:¢#ID$:¢;IND$(I):›:ƒ:„¤** MENU **@„:¢@16,2;"OPTIONS"J¢@4,4;"0..EXIT PROGRAM"T¢@4,6;"1..ENTER INFO"^¢@4,8;"2..MODIFY INFO"h¢@4,10;"3..LIST INFO"r¢@4,12;"4..SEARCH"|¢@4,14;"WHICH? ";:Y$~ä$&†Y~Ü(Y$):“ Y0 { Y}4 s ¢BEL$:‘ 380‡“ Y~0 s 400 410#ƒ:„:¢@15,2;"GOODBYE!!!";BEL$:Žš Y ‘ 420,850,1490,1860¤¤®¤** ENTER INFO **¸¤  140̄֔"ARTIST ";A$à¢ê”"TITLE ";T$ô¢þ¢”"No.OF SIDES ";NS “ NS2 { NS}4 s 520„ S~1 r NS&¢"SIDE ";S0¢#:”"No. TRACKS ON THIS SIDE ";NT?“ NT1 { NT}10 s 570D„N¢@0,1;"ARTIST ";A$X¢@0,2;"TITLE ";T$b¢@0,3;"SIDE ";S%l¢@0,4;"TRACK";@10,4;"TRACK TILE"v I~1 r NT€¢,I,:”" ";R$(I)Š›"”L~0: I~1 r NT:L~LtÏ(R$(I))t2žL~LtÏ(A$tT$)t4-¨“ L}500 s „:¢"ENTRY TOO LONG":BEL$:‘ 460²¢#FD$,NENTt1¼“ S~1 s ¢NS Æ¢ A$ТT$Ú¢NTä¢ S$î I~1 r NT:¢R$(I):›:NENT~NENTt1ø¢#FD$,0;NENT:¢#0“ S}1s 790; “ S~1s °4,0:B$~Ú(NENT):NUM~NUMt1:IND$(NUM)~A$tB$:° 0,0! ¢NUM,NENT: J~0 r 400:›:¤*** „:› S% „:¢"ANY MORE TOO ADD Y/N";:Y$~ä$*“ Y$}"Y"s 820 8304“Y$}"y"s 250 >‘ 460H¤R¤** MODIFY INFO **\„ f 140g„:¢"Total entrys: ";NENTBz¢"TYPE ENTRY No. TO BE ALTERED(F IF FINISHED)AND PRESS ENTER" „” EN$Ž“ EN$~"F" s 250%˜EN~Ü(EN$):“ EN0 { EN}NENT s 871 ¢A$~"O" ¬”#FD$,EN ¶” NS$'ÀND~Ü(NS$):“ ND1 { ND}4 s 970 990 Ê­ NS$,A$ Ô‘ 1000 Þ” A$ è” T$ ò” NTü” S I~1 r NT:” R$(I):›„¢@0,1;"ARTIST ";A$$¢@0,2;"TITLE ";T$.¢@0,3;"SIDE ";S&8¢@0,4;"TRACK";@10,4;"TRACK TITLE"B I~1 r NT:¢,I,;R$(I):› IL”#0%`¢@0,22;"ANY CHANGES? Y/N";:Y$~ä$j“ Y$}"Y" s „:‘ 13407t¢@0,23;"1.ARTIST,2.TITLE,OR 3.TRACK TITLE?";:Y$~ä$~Y~Ü(Y$):“ Y1 { Y}3 s 1140’„: Y ‘ 1200,1180,1290œ”"TITLE ";T$ ¦‘ 1040«¤** SERCH INDEX **°°4,0:B$~Ú(EN)±ALT$~A$tB$:¢ALT$² I~1 r NUM³“ IND$(I)}ALT$ s 1205 ´“ IND$(I)~ALT$ s Z~1:‘ 1206µ›¶”"ARTIST ";A$·“ Z~1 s 1208 1280¸IND$(I)~A$tB$:Z~0°0,0:‘ 1040¤** ALTER TRACK TITLE **  I~1 r NT:¢I,R$(I):›¢"WHICH TRACK? ";:Y$~ä$ Y~Ü(Y$) (” R$(Y) 2‘ 10407¤** CHECK ENTERY LENGTH **$<L~0: I~1 r NT:L~LtÏ(R$(I))t2:›FL~LtÏ(A$tT$)t4,P“ L}500 s ¢"ENTRY TOO LONG";BEL$:‘ 1040 U¤** PRINT ENTERY TO FILE ** Z¢#FD$,ENd“ NS$~"O" s 1400 n¢ NS$x¢A$‚¢T$Œ¢NT–¢S  I~1 r NT:¢R$(I):›ª¢#0 ´‘ 890¾¤È¤** LIST INFO **Ò„ Ü 230ú„ EN~1 r NENT ”#FD$,EN ” NS$)"ND~Ü(NS$):“ ND1 { ND}4 s 1580 1600 ,­ NS$,A$ 6‘ 1610 @” A$ J” T$ T” NT^” Sh I~1 r NT:” R$(I):› Ir”#0|¢"ENTRY No.";EN†¢"ARTIST ";A$¢"TITLE ";T$š¢"SIDE ";S¤¢"TRACK",,"TRACK TITLE"® I~1 r NT¸¢,I,;R$(I):› I4¢:¢"PRESS ENTER FOR NEXT ENTRY.P FOR HARD COPY"!ÌY$~ä$:“ Y$~"P" s 1750 1820$Ѥ** PRINT TO PRINTER ROUTINE **Ö¢#1à¢"ARTIST ";A$ê¢"TITLE ";T$ô¢"SIDE ";Sþ¢"TRACK",,"TRACK TITLE" I~1 r NT¢I,;R$(I):› I:¢#0 „:› EN &‘ 2410¤:¤** SEARCH **** D140N„X¢@17,1;"SEARCH"b¢@18,4;"MENU"l¢@10,6;"0...MAIN MENU "v¢@10,8;"1...BY ARTIST"€¢@10,10;"2...BY TITLE"$Š¢@10,12;"3...BY ARTIST & TITLE"”¢@10,14;"WHICH? ";:Y$~ä$&žY~Ü(Y$):“ Y0 { Y}3 s BEL$:‘ 1940¨“ Y~0 s ‘ 250² Y ‘ 1980,2050,2180¼„,Æ¢@1,4;"TYPE ARTIST NAME & PRESS ENTER " Д" ";AN$#Õ¤** SEARCH INDEX FOR ARTIST **ÚT~1/äL~Ï(IND$(T)):“ Ý(IND$(T),Lu5)~AN$ s 2297îT~Tt1:¢T:“ T}NUM s 2810 ø‘ 2020„+ ¢@1,4;"TYPE TITLE BELOW & PRESS ENTER" ”" ";TN$!¤** SEARCH DISC FOR TITLE ***T~1 4”#FD$,T >” NS$ H” A$ R” T$\“ T$~TN$ s EN~T: 2300fND~Ü(NS$):T~TtND:¢Tp“ T}~NENT s 2810 z‘ 2100„„,Ž¢@1,1;"TYPE ARTIST BELOW & PRESS ENTER" ˜”" ";AN$¢„+¬¢@1,1;"TYPE TITLE BELOW & PRESS ENTER" ¶”" ";TN$#»¤** SEARCH INDEX FOR ARTIST **¼¤** AND DISC FOR TITLE **ÀT~13ÊL~Ï(IND$(T)):“ Ý(IND$(T),Lu5)~AN$ s 2260 2280(ÔEN$~ß(IND$(T),4):EN~Ü(EN$):”#FD$,EN%Þ” NS:” A$:” T$:“ T$~TN$ s 2300$èT~Tt1:¢T:“ T}NUM s 2810 2250 ò‘ 2250÷¤** FOUND ROUTINE **&ø¤** GET ENTRY NUMBER FROM INDEX *ùEN$~ß(IND$(T),4):EN~Ü(EN$)ü„ ¢æ("*",40)  ¢:¢:¢:¢ ¢@14,6;"MATCH FOUND" $ ¢:¢:¢:¢. ¢æ("*",40)8 DL~0 r 1000:› DLB „ V ”#FD$,EN ` ”NS$j ”A$t ”T$~ ”NTˆ ”S’ I~1 r NT:” R$(I):› Iœ „¦ ¢"ARTIST ";A$° ¢"TITLE ";T$º ¢"SIDE ";S"Ä ¢"TRACK":¢@10,3;"TRACK TITLE"Î I~1 r NT:¢,I,;R$(I):› IØ ”#0(â ¢"PRESS ANY KEY FOR NEXT SIDE";:Y~ä ì ES~EN ö ES~ESt1 ND~Ü(NS$) “ ES~ENtND s ‘ 2730  ”#FD$,ES  ” A$ ( ” T$ 2 ” NT< ” SF I~1 r NT:” R$(I):› IP „Z ¢"ARTIST ";A$d ¢"TITLE ";T$n ¢"SIDE ";S"x ¢"TRACK":¢@10,3;"TRACK TITLE"‚ I~1 r NT:¢,I,;R$(I):› IŒ ”#0(– ¢"PRESS ANY KEY FOR NEXT SIDE";:Y~ä   ‘ 2550ª „´ ¢"PRESS '1' TO CONTINUE"¾ ¢È ¢"PRESS '2' FOR MENU" Ò Y$~ä$:„Ü “ Y$~"1" s ¨æ “ Y$~"2" s 1870ð “ Y$}"1" { Y$}"2" s 2770õ ¤** NO FIND ROUTINE **ú „:¢æ("*",40)( ¢@7,6;"NO MATCH FOUND ON THIS SIDE" ¢@0,13;æ("*",40) DL~0 r 1000:› DL" „), ¢@1,1;"IF OTHER DISC/SIDE AVAILABLE"E6 ¢@1,3;"PRESS '1' TO CONTINUE ON NEW DISC":¢"INSERT AFTER PROMPT"&@ ¢@1,8;"IF NO DISC/SIDE AVAILABLE" J ¢@1,10;"PRESS '2' FOR MENU"T ”#0 ^ Y$~ä$h “ Y$~"2" s 1870r “ Y$~"1"s T~1| ƒ>† „:¢@1,10;"INSERT NEW DISC/SIDE":¢:¢" PRESS ANY KEY":Y$~ä$ ž FILE$,FD$,RLš ž "INDEX.DAT",ID$:¤ ”#ID$;A$:NUM~Ü(A$):¢A: I~1 r NUM:” IND$(I):ƒ ID$:T~1¸ ¨UM:” IND$(I):ƒ ID$:T~1¸ ¨ >çV§)8ç