NCR DECISION MATE V Bedienungsanleitung Seite 299

GW-BASIC
Programm 5 ----- Bestandsprogramm
120 OPEN" R " , # l , " IN V E N .D A T " ,39
130 FIE LD # 1,1 AS FS,30 AS D$,2 AS QS2 AS RS,4 AS PS
140 PR IN T: P R IN T " FU N C T IO N S :" :P R IN T
150 P R IN T 1," IN IT IA L IZ E F IL E "
160 P R IN T 2," C R E A TE A NEW E N T R Y "
170 P R IN T 3," D IS P L A Y IN V E N T O R Y FO R ONE P A R T "
180 P R IN T 4," AD D TO STO CK"
190 P R IN T 5," SU B TR AC T FROM STO CK"
200 P R IN T 6," D IS P L A Y A L L ITEMS BELOW REO RDER
L E V E L "
210 P R IN T: P R IN T : IN P U T " F U N C T IO N " ;FU N C T IO N
220 IF (F U N C T IO N < 1 )OR (F U N C T IO N > 6 ) THEN P R IN T
" BAD FU N C TIO N NU M BE R " :G OTO 140
230 O N FU N C TIO N GOSUB 900,250,390,380,560,680
240 GOTO 210
250 REM BU ILD NEW E N T R Y
260 GOSUB 840
270 IF ASC(S) < > 255 THEN IN PU T " O V E R W R IT E " ;A S :
IF A $ < > " Y " THEN R E T U R N
280 LSET F S = C H R $ (0 )
290 IN P U T " D E SC R IPTIO N " ;DESCS
300 LSET D$= DESCS
310 IN P U T " Q U A N T IT Y IN STO CK" ;Q%
320 LSET Q $=M KIS(Q % )
330 IN P U T " REO RD ER L E V E L " ;R%
340 LSET R S=M K IS(R% )
350 IN PU T " U N IT PR IC E " ;P
360 LSET P$=M KSS(P)
370 PUT# 1,PART%
380 R E TU R N
390 REM D IS P L A Y E N T R Y
400 GOSUB 840
410 IF A S C (F S) = 255 THEN P R IN T " N U L L E N T R Y " ;R E T U R N
420 P R IN T USING " P A R T NU M BE R # # # " ;PART%
430 P R IN T D$
440 P R IN T USING " Q U A N T IT Y ON H AN D # # # # # " ;C V I(Q $ )
450 P R IN T USING " REO RD ER L E V E L # # # # # " ;C V IR $)
460 P R IN T USING " U N IT PRICE SS# # .## " ;CVS(PS)
470 R E T U R N
480 REM AD D TO STOCK
490 GOSUB 840
500 IF ASC(FS)=255 TH EN P R IN T " N U L L E N T R Y " ;R E T U R N
MS-DOS ERW EITERUNG
4-11