NCR DECISION MATE V Bedienungsanleitung Seite 300

510 P R IN T D$: IN P U T " Q U A N T IT Y TO AD D " ;A%
520 Q % = C V I(Q $ )+ A %
530 LSET Q S=M KI$(Q % )
540 PUT# 1,PART%
550 R E T U R N
560 REM REM OVE FROM STOCK
570 GOSUB 840
580 IF AS C (F S )=2 5 5 TH EN P R IN T " N U L L E N T R Y " : R E T U R N
590 P R IN T DS
600 IN P U T " Q U A N T IT Y TO S U B T R A C T " ;S%
610 Q % = C V I(Q $ )
620 IF (Q%—S%) < 0 THEN P R IN T " O N L Y " ;Q%;" IN STO C K " :
GOTO 600
630 Q% = Q%— S%
640 IF Q % = < C V I(R S ) TH EN P R IN T " Q U A N T IT Y N O W " ;
Q%;" REO RD ER L E V E L " ;C V I(R S )
650 LSET QS=M KIS(Q% )
660 PUT# 1,PAR T%
670 R E T U R N
680 REM D IS P L A Y ITEMS BELOW REO RD ER LE V E L
690 FO R 1 = 1 TO 100
710 GET# 1,1
720 IF C V I(Q $ )< C V I(R S ) THEN P R IN T D S;" Q U A N T IT Y " ;
C V I(Q S ) T A B (50) " REO R D ER L E V E L " ;C V I(R S )
730 N E X T I
740 R E T U R N _
840 IN P U T " P A R T NU M BE R " .PA R T%
850 IF (P A R T % < 1) OR (P A R T % > 100) TH EN P R IN T
" BAD P A R T NU M BE R " : GOTO 840 ELSE G E T# 1,
P A R T% : R E T U R N
890 END
900 REM IN IT IA L IZ E FILE
910 IN P U T " A R E Y O U SURE" ;B S :IF B$< > " Y " TH EN
R E T U R N
920 LSET FS= CH R$(255)
930 FO R 1 = 1 TO 100
940 PUT# 1,1
950 N E X T I
960 R E T U R N
4-12