$BA ************ ORDER & PAYMENTS (20/12/87) **************** ,,,0 () "E" () "H"  ( ();"0";2es ()3<re es "p"  nr es "q" 0Fo es "e"  o es "f"QP a(,,) es "Y" ( ) () EZ            ,   d4d s("R.R") ""   "R",,"R.R",n ,  rr., rr.ad, rr.q, rr.t, rr.p, rr.q, rr.t, rr.p, rr.q, rr.t, rr.p, rr.q, rr.t, rr.p, rr.q, rr.t, rr.pBx , rr.tem,  rr., rr.,  rr.p , rr4 s("P.R") "" x  "R",,"P.R", ,  r.,  r.ad,  r.ad,  r.ad,  r.ad,  r.ad,  r.p,  r.cm,  r.cm,  r.cm,  r.cm , rA************************ ORDER MENU ********************** Lc() " ORDER MENU "  c() " SEARCH "Mc() " CREATE "  c() " AMEND " Lc() " LIST "  c() " RECORD "Lc() " ORDERS "  C() " PAYMENT "Lc() " BASIC "  c() " SYSTEM "Kl   o   x   y   r  set up menu : c ,b,,",,( ,,^,h  D*********************** RECORD MENU *************************  L"c() " RECORD MENU "  c() "RETURN TO ORDER MENU "(,c() " CHECK RECORD " L6c() " AMEND "  C() " SEARCH "K@l   o   x   y   r  set up menu J &T c ,,,  ^    h    r DRAW MENU>| a(x,y,re()(l,()));  ()H a(x,y,re () (l,( )) ())J a(x,y,re () (l,()) ())%  y yoG a(x,,re () (l,( )) ())  P a(x,yo,re () (l,()) ())  o1 a(x,y,rec()nr)Y   o  a(x,y,reC()nr)  c / a(x,yc,c(c))$i u  i "" # i ( ) o  , (i)  (i)  C& (i)  c D  c c   G0 (i)  co D  c c    : ED a(x,y c,rec(c) nr)  N aXA u  A ""  A u   A w(,A)  A  X  b   c  l ,c,v c  "FILES FULL "    * r. (," ")    0 "MORE Y/N "   "YyNn"  N a  )   " COMPANY NUMBER ";c* c  c     ,c+ r. (," ")   *? "FINISHED WITH FILES Y/N"   "YyNn"  N a     " NOT KNOWN "<  "YyNn"   " ADD NEW RECORD Y/N "  N$ a  a   "*  "FILE ";c   54 " NAME ";r.; " PHONE ";r.p7> " ADDRESS ";r.ad;" COMMENT ";r.cm<H " ";r.ad;" COMMENT ";r.cm<R " ";r.ad;" COMMENT ";r.cm<\ " ";r.ad;" COMMENT ";r.cm$f " ";r.ad   rp "HhCcDdPpSsEe"  " HEAD LETTER CHANGE DELETE PRINT SKIP or END (H/C/D/P/S/E) "  N z  > a ,,,,,,,,,,, Z  > "YyNn"   " DELETE Y YES OR N NO "  N a   r "" ,c" RECORD DELETED "  "FILE ";c#  " NAME ";  " COMMENT(1) ";cm  " COMMENT(2) ";cm  " COMMENT(3) ";cm $ " COMMENT(4) ";cm. " PHONE NUMBER ";p 8 " ADDRESS(1) ";ad B " (2) ";ad L " (3) ";ad V " (4) ";ad ` " (5) ";ad:j "YyNn"   " O.K. Y YES N NO "  Nt a  ~  ""   r.  cm ""  r.cm cm cm ""  r.cm cm cm ""  r.cm cm cm ""  r.cm cm p ""  r.p p ad ""   r.ad ad  ad ""  r.ad ad ad "" 2( r.ad ad2 ad "" F< r.ad adF ad "" ZP r.ad adZ ,c d " NEW/CHANGE WRITTEN "n2x " CREATING EMPTY FILE, PLEASE WAIT " "R",,"P.R", , r r ""      " FILE CREATED " & c;" ";r.; " ";r.p& () r.ad;" ";r.cm& () r.ad;" ";r.cm& () r.ad;" ";r.cm& () r.ad;" ";r.cm () r.ad " :, "SCREEN or PAPER LIST"   "PpSs"  N6 a  L %@   "START FROM No.";!J "FINISH AT (Number) ";T c  ^ ,c*h r. (, " ") r  r|7  c;" ";r.;" ";r.p;" ";r.cm= ();"E";();"W";();();"G";() "TERRY'S"] ();"m";();();"F";();"W";();();"H";();"4";(') "for repairs"G ();"5";();"E";();"G";() "ELECTRICAL & ELECTRONIC"] ();"m";();();"F";();"H";() "36/38 CULLEN STREET, PORTSOY, AB4 2PJ."> ();"G";() "Telephone:- (0261) 43827 24 Hour "1  () "AMSTRAD APPROVED SERVICE AGENT"& ();"H";();"m";()       "NAME TO FIND ";cl (c)!cc %(x(c,l)) c   ,c & r. (," ") $0cm %(x(r.cm,l))$:cm %(x(r.cm,l))$Dcm %(x(r.cm,l))$Ncm %(x(r.cm,l))"Xcm %(x(r.,l))%b cc cm *  v l %v cc cm *    % cc cm *    % cc cm *     cc cm *  c ,  Z    "THIS NAME NOT FOUND"  "TRY AGAIN Y/N"/a u  a ""  a u  & a "Y" a "y"  Y    "THIS IS FOR PAYMENTS ONLY! ! O.K. Y/N"   "YyNn"  N  a    *4 "CHEQUE VALUE ";c> " ACC No ";aH " INVOICE No ";i3R "CORRECT Y/N"   "YyNn"  N\ a  4f ( ) "Dear Sir/Madam"Fp () "Please find enclosed cheque to the value of "cd2z ( ) "In settlement of account No."a$ () "On invoice No."i () "Yours Faithfully" () "For TERRY'S"( () "T. J. Rochester-Farrell" ();"F";( )  # "COMPANY INDEX NUMBER";c , c ()r. ()r.ad ()r.ad ()r.ad ()r.ad ()r.ad/  "DATE Y/N"   "YyNn"  N$ a  . " DATE ";8 (7) "DATE ";B L   c  V ,c'` r. (," ")   j 0j  c;r.;" ";r.p;" ";r.adt   ~          c  4   "MORE Y/N "   "NnYy"  N a  L 1  "PRESS ANY KEY TO CONTINUE or E TO END"0 a u  a ""  a u  & a "E" a "e"   D    "ADDRESS ONLY Y/N "   "YyNn"  N a     ( :2  "ORDERS ONLY Ok Y/N"   "YyNn"  N< a  F P  r.Z ad r.ad d  n   "ORDER No ";1x   "PLEASE SUPPLY ON ORDER No:- ";> C   C   C   C   C K  () "QUANTITY";() "DESCRIPTION"; (:) "PRICE"; (D)"VALUE" "QUANTITY ";Q "ITEM ";T "PRICE ";P2  "CORRECT Y/N"   "YyNn"  N a    C PQ N .  "MORE Y/N"   "YyNn"  N a    "QUANTITY ";Q "ITEM ";T "PRICE ";P2  "CORRECT Y/N"   "YyNn"  N a   " C PQ , l .6  "MORE Y/N"   "YyNn"  N@ a   J "QUANTITY ";QT "ITEM ";T^ "PRICE ";P2h  "CORRECT Y/N"   "YyNn"  Nr a  J | C PQ  .  "MORE Y/N"   "YyNn"  N a    "QUANTITY ";Q "ITEM ";T "PRICE ";P2  "CORRECT Y/N"   "YyNn"  N a    C PQ  .  "MORE Y/N"   "YyNn"  N a    "QUANTITY ";Q "ITEM ";T "PRICE ";P2  "CORRECT Y/N"   "YyNn"  N& a   0 C PQ :  D  <N  ( )q;()t;(<)pd;(F)CdX t t Cb <l  ( )q;()t;(<)pd;(F)Cdv t t C <  ( )q;()t;(<)pd;(F)Cd t t C <  ( )q;()t;(<)pd;(F)Cd t t C <  ( )q;()t;(<)pd;(F)Cd t t C 7  "ANY DISCOUNT Y/N"   "YyNn"  N a  >  "DISCOUNT % = ";p@  pd   dp   tdd  p  tp'X  ()"LESS DISCOUNT OF "p"%" (<)"###.##";;  (F)"###.##";* t d4 .>  "VAT Y/N"   "YyNn"  NH a  p R  ~t5\    (0)" VAT "(F)"###.##";df t t =p  " POST AND PACKING Y/N"   "YyNn"  Nz a   " " POST AND PACKING = ";/  ()"POST AND PACKING "(F)d t t /  (/)" COST" (F)"###.##";td    ,! rr. (," ")   3 "FILES FULL "    W    rr.  rr.ad ad rr. rr.  rr.q "(q) rr.t t rr.p "(c)$ rr.q "(q). rr.t t8 rr.p "(c)B rr.q "(q)L rr.t tV rr.p "(c)` rr.q "(q)j rr.t tt rr.p "(c)~ rr.q "(q) rr.t t rr.p "(c) rr.p "(t) ,9 " CREATING EMPTY FILE PLEASE WAIT" "R",,"R.R", , rr rr ""     5 " FILE CREATED "9    "LIST Y/N "   "NnYy"  N( a  ~)2   " COMPANY NUMBER ";c$< c  c  2FP ,c,Z rr. (," ")   d?n "FINISHED WITH FILES Y/N"   "YyNn"  Nx a       " NOT KNOWN "< "YyNn"   " ADD NEW RECORD Y/N "  N$ a  a  "  "FILE ";c   , "NAME ";rr.;" ";rr.ad=  " ORDER NO ";rr.;" DATE ";rr..  rr.q;" ";rr.t;(2)rr.p.  rr.q;" ";rr.t;(2)rr.p.  rr.q;" ";rr.t;(2)rr.p.  rr.q;" ";rr.t;(2)rr.p.  rr.q;" ";rr.t;(2)rr.p%  (()"TOTAL "(2)rr.p "  a, "CcDdPpSsEe"  " CHANGE DELETE PRINT SKIP or END (C/D/P/S/E) "  N 6  6@ a ,,T,T,,,J,J,,J>T "YyNn"   " DELETE Y YES OR N NO "  N^ a  h rr ""r ,c|" RECORD DELETED "  "FILE ";c#  " NAME "; "ADDRESS 1 ";ad " DATE "; "ORDER No "; "QUANTITY ";q "DESCRIPTION ";t "PRICE ";p "QUANTITY 2 ";q "DESCRIPTION 2 ";t "PRICE 2 ";p "QUANTITY 3 ";q "DESCRIPTION 3 ";t "PRICE 3 ";p "QUANTITY 4 ";q& "DESCRIPTION 4 ";t0 "PRICE 4 ";p: "QUANTITY 5 ";qD "DESCRIPTION 5 ";tN "PRICE 5 ";pX "TOTAL ";p:b "YyNn"   " O.K. Y YES N NO "  Nl a  v  ""   rr.  ad ""  rr.ad ad  ""  rr.   ""  rr.  q ""  rr.q q t ""  rr.t t p ""  rr.p p q ""   rr.q q t "" *  rr.t t* p "" >4 rr.p p> q "" RH rr.q qR t "" f\ rr.t tf p "" zp rr.p pz q ""  rr.q q t ""  rr.t t p ""  rr.p p q ""  rr.q q t ""  rr.t t p ""  rr.p p rr.p p ,c  " NEW/CHANGE WRITTEN " ($ c;( );rr.; " ";rr.. () "O/N ";rr..8 () rr.q;" ";rr.t;" ";rr.p.B () rr.q;" ";rr.t;" ";rr.p.L () rr.q;" ";rr.t;" ";rr.p.V () rr.q;" ";rr.t;" ";rr.p.` () rr.q;" ";rr.t;" ";rr.p2j () " ";rr.ptH~ "PRINTED LIST or SCREEN LIST P/S "   "PpSs"  N  a    1 "MORE Y/N"   "Yy/Nn"  N a   ~ "START FROM No.";! "FINISH AT (Number) "; c   ,c* rr.r (, " ")   7  c;" ";rr.;" ";rr.;" ";rr.    c    ,c! rr. (," ") x-  c;" "rr.;" ";rr.ad0(  "DATE ";rr.;" ORDER No ";rr.2  " ";rr.p<F  P     x Z  d xnc x4   "MORE Y/N "   "YyNn"  N a    1  "PRESS ANY KEY TO CONTINUE or E TO END"0a u  a ""  a u  & a "E" a "e"          "NAME TO FIND ";c  cc %(x(c,)) c   ,c! rr. (," ") 6cm %(x(rr.,))" cc cm  , @6c @ J  "THIS NAME NOT FOUND"&T   W    cc cm  , @6c @ J  "THIS NAME NOT FOUND"