Print D$:Input "Dem Lagerbestand Hin­ Zufügen" ;A; Rem Neue Datei Anlegen - NCR GW-BASIC Betriebsanleitung

390 REM EINTRAG AUSGEBEN
400 GOSUB 840
410 IF ASC>(F$)=255 THEN PRINT "KEIN EINTRAG":
RETURN
420 PRINT USING "TEILENUMMER # # # ";PART%
430 PRINT D$
440 PRINT USING "MENGE AUF L A G E R #####" ;CVI(Q$)
450 PRINT USING "NACHBESTELLUNG#####" ;CM(R$)
460 PRINT USING "EINHEITSPREIS$$##.##";CVS{P$)
470 RETURN 480 REM DEM LAGERBESTAND HIN­
ZUFÜGEN 490 GOSUB 840
500 IF ASC(F$)=250 THEN PRINT "KEIN EINTRAG":RETURN
510 PRINT D$:INPUT "DEM LAGERBESTAND HIN­
ZUFÜGEN" ;A%
520 Q%=CVI(Q$)+A%
530 LSET Q$=MKI$(Q%)
540 PUT# 12,PART°/o
550 RETURN
560 REM VOM LAGERBESTAND ENTNEHMEN
570 GOSUB 840
580 IF ASC(F$)=255 THEN PRINT "KEIN EINTRAG":RETURN
590 PRINT D$
600 INPUT "ABZUZIEHENDE MENGE" ;S%
610 Q%=CVI(Q$)
620 IF(Q%-S%)<0 THEN PRINT "NUR";Q%;"AUF LAGER":
GOTO 600 630 Q%=Q%-S%
640 IF Q%=<CVI(R$)THEN PRINT "VORHANDENE
MENGE" ;Q%; „NACHBESTELLUNG" ;CVI(R$)
650 LSET Q$=MK3$(Q%)
660 PUT# 1 ,PART°/o
670 RETURN
680 REM NACHBESTELLUNG EINGEBEN
690 FOR 1=1 TO 100
710 GET# 1,1
720 IF CVI(Q$)<CVI(R$) THEN PRINT D$;"MENGE";
CVI(Q$) TAB(50) "NACHBESTELLUNG" ;CVI(R$)
730 NEXT I
740 RETURN
840 INPUT "TEILENUMMER" PART%
845 REM DATENSATZ FÜR TEIL LESEN
850 IF(PART%<1)OR(PART%>100)THEN PRINT
"FALSCHE TEILENUMMER" :GOTO 840 ELSE
GET# 1 ,PART°/o:RETURN

900 REM NEUE DATEI ANLEGEN

GW-BASIC
DATEIEN UND GERÄTE
5-15