,,,0 () "E" () "H"  FP "SYSTEM END or RUN S/E/R "   "SsEeRr"  &( a 2,2,",",<,<2   < F    :P s("LP.rnd") "" B  "R",,"LP.rnd",Z ,  r.a,  r.,  r.,  r.t,  r.t,  r.t,  r.t,  r.t,  r.t,  r.t,  r.t,  r.t,  r.t1,  r.t1,  r.t1, r.t1, r.t1d ,  r n  xp " DO YOU WANT TO CREATE FILES, AMEND FILES, LIST FILES, SEARCH FILES or END C/A/L/S/E "   "CcAaLlSsEe"  6 A ,,,,,,,,, c   ,c( r.a (," ")   ? c  " FILES FULL" x) "ENTER DESIRED FILE NUMBER ",c ,c, r.a (," ") ,  TGp " MORE YES/NO Y/N "   "YyNn"   a , x    "4,    " NOT KNOWN "E6p " ADD NEW RECORD YES/NO Y/N "   "YyNn"  @ A ,JET "RECORD NUMBER ";c;" ARTIST "r.a" STYLE ";r.'^  " TITLE :- ";r.  -h "TRACK 1 ";r.t" TRACK 8 "r.t-r " 2 ";r.t" 9 "r.t.| " 3 ";r.t" 10 "r.t1. " 4 ";r.t" 11 "r.t1. " 5 ";r.t" 12 "r.t1. " 6 ";r.t" 13 "r.t1. " 7 ";r.t" 14 "r.t1e   p "CHANGE, DELETE, PRINT, END or SKIP C/D/P/E/S "   "CcDdPpEeSs"  . A ,,,,,,x,x?  p "DELETE YES/NO Y/N"   "YyNn"   A   r "" ,cA   " RECORD DELETED "    " TITLE "; " ARTIST ";a& " STYLE ";0 " TRACK 1 ";t: " TRACK 2 ";t D " TRACK 3 ";t N " TRACK 4 ";tX " TRACK 5 ";tb " TRACK 6 ";tl " TRACK 7 ";tv " TRACK 8 ";t " TRACK 9 ";t " TRACK 10 ";t1  " TRACK 11 ";t1  " TRACK 12 ";t1  " TRACK 13 ";t1  " TRACK 14 ";t1 F  p " O.K. YES/NO Y/N "   "YyNn"   a    ""  r.  a ""  r.a a  ""   r.   t ""   r.t t  t "" 4* r.t t4 t "" H> r.t tH t "" \R r.t t\ t "" pf r.t tp t "" z r.t t t ""  r.t t t ""  r.t t t ""  r.t t t1 ""  r.t1 t1 t1 ""  r.t1 t1 t1 ""  r.t1 t1 t1 ""  r.t1 t1 t1 "" $ r.t1 t1$ ,c:.  " NEW/CHANGE WRITTEN "8vB             " CREATING EMPTY FILE ! PLEASE WAIT "L "R",,"LP.rnd",V , r` r ""j    t ~8         " FILE CREATED "c   "******************************* RECORD NUMBER ";c;" ************************"L " ARTIST:- ";r.a;" TITLE:- ";r. " STYLE:- ";r.1  "TRACK 1 "r.t" TRACK 8 "r.t1  " 2 "r.t" 9 "r.t2  " 3 "r.t" 10 "r.t12  " 4 "r.t" 11 "r.t12  " 5 "r.t" 12 "r.t12  " 6 "r.t" 13 "r.t12  " 7 "r.t" 14 "r.t1    Kp "PRINTED LIST or SCREEN INDEX P/S "   "PpSs"    A  4(  "START PRINTING FROM RECORD NUMBER "; 02  "END PRINTING AT RECORD NUMBER ";< c  FP ,c!Z r.a (," ") n d n x xcp "ENTER SEARCH ROUTINE REQUIRED TITLE/ARTIST/STYLE T/A/S "   "TtAaSs"  & A ,,6,6,,  ()p   aA u  A ""  A u   A w(,A)  A         c   ,c! r.a (," ") xQ  " RECORD NUMBER ";c;" ARTIST ";r.a;" TITLE ";r.&  " STYLE ";r.         x  E  " PRESS ANY KEY TO CONTINUE LIST or E (e) tTO END "  S"a u  a ""  a u   a "e" a "E" x,-6 " ENTER NAME OF ARTIST TO FIND ";a@a %(x(a,))J c  T ,c!^ r.a (," ") ha %(x(r.a,))r a a T|!  "THIS NAME NOT FOUND "  x$ " ENTER STYLE TO FIND ";nn %(x(n,)) c   ,c! r.a (," ") n %(x(r.,)) n n T"  "THIS STYLE NOT FOUND "  x# "ENTER TITLE TO FIND ";ttt %(x(t,)) c   ,c!& r.a (," ") N0tt %(x(r.,)): tt tt TD!N  "THIS TITLE NOT FOUND " X x(," ") N0tt %(x(r.,)): tt tt TD!N  "TH