e ,,,d0 () "E" () "H"  FP "SYSTEM END or RUN S/E/R "   "SsEeRr"  &( a 2,2,",",<,<2   < F    BP s("record.rnd") ""   "R",,"record.rnd",dkZ ,  r.a,  r.,  r.,  r.t,  r.t,  r.t,  r.td , d 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 3 "r.t-r " 2 ";r.t" 4 "r.te|   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 "; " TRACK 1 ";t " TRACK 2 ";t  " TRACK 3 ";t  " TRACK 4 ";tF&  p " O.K. YES/NO Y/N "   "YyNn"  0 a  :  "" ND r. N a "" bX r.a ab  "" vl r. v t ""  r.t t t ""  r.t t t ""  r.t t t ""  r.t t ,c:  " NEW/CHANGE WRITTEN "v             " CREATING EMPTY FILE ! PLEASE WAIT " "R",,"record.rnd",d ,d r r ""       8*         " FILE CREATED "4c>   "******************************* RECORD NUMBER ";c;" ************************"HLR " ARTIST:- ";r.a;" TITLE:- ";r. " STYLE:- ";r.1\  "TRACK 1 "r.t" TRACK 3 "r.t1f  " 2 "r.t" 4 "r.t p  zKp "PRINTED LIST or SCREEN INDEX P/S "   "PpSs"    A  4  "START PRINTING FROM RECORD NUMBER "; 0  "END PRINTING AT RECORD NUMBER "; c   ,c! r.a (," ")   >  xcp "ENTER SEARCH ROUTINE REQUIRED TITLE/ARTIST/STYLE T/A/S "   "TtAaSs"  & A n,n,,, ,   ()p   aA u  A ""  A u   A w(,A)  A        $ c  . ,c!8 r.a (," ") xQB  " RECORD NUMBER ";c;" ARTIST ";r.a;" TITLE ";r.&L  " STYLE ";r.V    `   ~j t x ~ E  " PRESS ANY KEY TO CONTINUE LIST or E (e) tTO END "  Sa u  a ""  a u   a "e" a "E" x- " ENTER NAME OF ARTIST TO FIND ";aa %(x(a,)) c   ,c! r.a (," ") a %(x(r.a,)) a a T!  "THIS NAME NOT FOUND "  x$  " ENTER STYLE TO FIND ";nn %(x(n,)) c  ( ,c!2 r.a (," ") Z<n %(x(r.,))F n n TP"Z  "THIS STYLE NOT FOUND " d x#n "ENTER TITLE TO FIND ";txtt %(x(t,)) c   ,c! r.a (," ") tt %(x(r.,)) tt tt T!  "THIS TITLE NOT FOUND "  x(," ")