P       (  2 *< choic b,,,,n, F    cl*P "TO RETURN TO MENU, PRESS SPACEBAR" Z Dd " " ( n  x  ()"W"Y cl "REMEMBER TO COPY DATA FILES TO A DRIVE"  "INDEX.DAT & RECORDS.DAT"; au;" - ";tt p au;" - ";tt! su p su! de p de p  tt p tt au; su de - p au; su de  " su p su; au; tt;de . p au tt; de !cl()"E"()"H".tel"PLEASE PRESS ANY KEY TO PROCEDE"$"y"PLEASE PRESS Y OR N KEY"e, windo(,le,,)()"X"( )(le )()( )#6que"DO YOU WANT ANOTHER?"?@har "PRESS P FOR HARD COPY, ANY OTHER KEY FOR SCREEN"8Jscr"USE ALT-S TO STOP/START SCREEN SCROLLING." T  ^fla hfirmai"records.dat"|in"index.dat"use"LIBRARY INDEX" l ()"V"$ cl;(+)"DATABASE MENU" windo(, ,,F);" "1. CREATE NEW FILE/DISC." "2. ADD NEW RECORD"" "3. LIST RECORDS IN ORDER") "4. FIND RECORDS, CHANGE, DELETE"1 "5. RETURN TO BASIC 6. RETURN TO CP/M" windo(, ,,F);m 6"" "" & () & ()mu&choic&() 0 :D"" ""NuX b cl4l windo(, ,,F);"CREATING FILE........"/v windo(, ,,F);"PRESS N TO STOP" D %()"N"   cl, fi,mai,in,,l,use  cl;  fi  cl/ windo(, ,,F);()"record data"  $ windo(, ,,F);cl; "COMPANY NAME ";! (); "PRODUCT ";  ( ); "address";! ( ); "details";<  au tt su de fla + erf(fi,,,%(x(au,)))* er 4rj(fi)1>ere(fi,,,%(x(tt,)),r)H er 1Rere(fi,,,%(x(su,)),r)\ er 1^ere(fi,,,%(x(de,)),r)a er f windo(, ,,F)p que y z D %()"Y"  windo( ,,,F);. "CAN NOT PROCEDE - ERROR CODE" er2 cl;windo(, ,,F);"LIST RECORDS"   windo(, ,,F); "LIST BY -" ()"1. COMPANY" ()"2. PRODUCT" ()"3. ADDRESS"&m windo(, ,,F);    cl; choic B,,Z%$ "RETURN TO MAIN MENU?" Y-. D %()"N" cl; 8choic #B windo(,,,Z);cl;L (%)"LIST BY COMPANY" +V windo(,,,Z);cl;har` scr;/j D %()"P" p  p+o p "LISTING BY COMPANY..." #t windo(,,,Z);cl~ero(fi,,) er  er ere fi  erm(fi,)# windo(,,,Z);cl; (&)"LIST BY PRODUCT"+ windo(,,,Z);cl;har scr;/ D %()"P" p  p* p "LISTING BY PRODUCT..."# windo(,,,Z);cl ero(fi,,) er  er ere ( fi 2 <erm(fi,)FP#Z windo(,,,Z);cl;d (")"LIST BY ADDRESS"+n windo(,,,Z);cl;harx scr;. D %()"P" p  p* p "LISTING BY ADDRESS..."# windo(,,,Z);clero(fi,,) er  er ere  fi  erm(fi,)$ cl;windo(, ,,F); ()"FIND RECORD"   windo(, ,,F);$ ()"PLEASE TYPE PRODUCT: "; #"ke%(x(" ",))!,erl(fi,,,ke)6 er 8   @ fiJ cl;  T l^ windo(, ,,F);h"DO YOU WANT TO - "%r ()"1. CORRECT THIS ENTRY?"$| ()"2. DELETE THIS ENTRY?"& ()"3. PROCEDE, NO CHANGES?"+m  windo(,,,Z); choic ,,b& cl; que y D$ %()"Y" cl . windo( ,, ,Z);fla fla fi windo(,,,Z);rj(fi)% fike%(x(au,))" ke;" has been deleted."'erg(fi,,,ke,r) erg ke%(x(tt,))'&erg(fi,,,ke,r)0 erg :ke%(x(su,))'Derg(fi,,,ke,r)Fke%(x(de,))'Herg(fi,,,ke,r)J erg N erg Xbl windo(, ,,F);7v "PRESS E FOR NEXT, X FOR PREVIOUS, S IF CORRECT"% D windo(, ,,F);! %()"X"  l! %()"E"  lern(fi,): erg fi cl;  "NO FILE"erm(fi,)9 erg fi cl;  "NO FILE" windo(,,,Z);0 "k",fi,mai,in,,l,use= fi, au, tt,2 su,$ de  fi  : 4 * 4"FILE ALREADY EXISTS.">  H R8 B "No such product found!"L  V windo(,,,Z);`     clO "REMEMBER TO COPY DATA FILES TO A DRIVE"  "INDEX.DAT & RECORDS.DAT" ,Z);`     clO