/  () "E" () "H"  F "SYSTEM (S) END (E) or RUN (R) "   "SsEeRr"  & a (,(,2,2,<,<(    2   r <,,,,d;F ************** STOCK LIST (28.7.86) ****************P ();"0"/Z () "E" () "H"  d n    <x s("stock.r") ""   "R",,"stock.r",dY ,  r.,  r.,  r.,  r.a,  r.m, " r. ,d r9 "STOCK LEVELS Y/N "   "YyNn"   a    b "DO YOU WANT TO CREATE, AMEND or SEARCH or END C/A/S/E "   "CcAaSsEe"  . a ,,,,,, ,  c   ,c' r. (," ") 0  # c  " DISC FULL " > "DO YOU WANT A LIST Y/N"   "YyNn"   a  "  = "FINISHED WITH FILES Y/N"  "YyNn"   a  "  %"   "STOCK NUMBER ";c*, c  c  "  66@ ,c+J r. (," ")   T ^  h  r |  " NOT KNOWN "< "YyNn"   " ADD NEW RECORD Y/N "  $ a  a  0E " ITEM ";r.;" BUY AT ";r.;" SELL AT ";r.s  ) " SOURCE ";r.  M " TOTAL ";r.a;" MINIMUM LEVEL ";r.m;" RE-ORDER No ";r.  a "CcDdPpEeSs"  " CHANGE DELETE PRINT END OR SKIP (C/D/P/E/S) "   . a 0,0,,,p,p, , > "YyNn"   " DELETE Y YES OR N NO "   a   r "" ,c" RECORD DELETED "& 0  " ITEM ";: " BUY AT ";D " SELL AT ";N " STOCK LEVEL ";aX "MINIMUM LEVEL ";mb " ORDER FROM ";:l "YyNn"   " O.K. Y YES N NO "  v a  0    ""  r.   ""  r.   ""  r.  a ""  r.a a m ""  r.m m  ""  r.  ,c  " NEW/CHANGE WRITTEN " 2 " CREATING EMPTY FILE, PLEASE WAIT "  "R",,"stock.r",d* ,d r4 r "">    H R\ " FILE CREATED "fRp  "******************* STOCK NUMBER ";c" **********************"z  c;" ITEM ";r.;" BUY AT ";r.;" SELL AT ";r.;"STOCK LEVEL ";r.a;" MINIMUM LEVEL ";r.m;" RE-ORDER No ";r.; " LIST OR INDEX L/I "   "LlIi"    a  .  1 "MORE Y/N"   "Yy/Nn"   a    "START FROM No.";! "FINISH AT (Number) ";   c  ,c' r. (," ")     p  a$A u  A ""  A u   A w(,A)  A  $  . " START FROM No.";8 "END AT No.";B L XV"STOCK No ITEM BUY AT SELL AT TOTAL MINIMUM"`j   tc ~ ,c' r. (," ")   T " ";;" "; r.;" "; r.;" "; r.;" ";r.a;" ";r.m          "ANY KEY TO CONTINUE"- u ""   u ""    `   "STOCK No ITEM BUY AT SELL AT TOTAL MINIMUM"   c   ,c  r. (," ") F- &(r.a)  m &(r.m)"  m P  <(  2   d<FYP "STOCK No:- ";c;" ";r.;" IS LOW, SHOULD BE ";r.m; "BUT IS ";r.aZd  nc x c   ,c' r. (," ")   - &(r.a)  m &(r.m)"  m     FS " STOCK No ";c;" ";r.;"IS LOW, SHOULD BE ";r.m;"BUT IS ";r.a " ORDER No ";r.( "ENTER ITEM TO SEARCH FOR ";i! (i)      (i)!i i (," ") c   ,c  r. (," ") ," r. i , 6 ," ") c   ,c