Vector Basic Interpreter Basic 80, Справочное руководство

Страница: 151 / 190

I
PROGRAM B-6 - INVENTORY
I
120 OPEN "R",#1,"rNVEN.DAT",39
125 FIELDt1,1 AS F$,30 AS 0$, 2 AS Q$,2 AS R$,4 AS P$
130 PRINT:PRINT "FUNCTIONS:":PRINT
135 PRINT 1, '!INITIALIZE FILE"
140 PRINT2,"CREATE A NEW ENTRY"
150 PRINT 3,"OISPLAY rNVENTORY FOR ONE PART"
160 PRINT 4,"ADO TO STOCK"
170 PRINT 5,"SUBTRACT FROM STOCK"
180 PRINT. 6,"OISPLAY ALL ITEMS BELOW REORDER LEVEL"
220 PRINT: PRINT: INPUT" FUNCTION" ;FUNCTION
225 IF
(FUNCTION<1)OR(FUNCTION>6) THEN PRINT "BAD FUNCTION NUMBER":GOTO 131
230 ON FUNCTION GOSUB 900,250,390,480,560,680
240 GOTO 220
250 REM BUILD NEW ENTRY
260 GOSUB 840
270 IF ASC (F$)<>255 THEN INPUT"OVERWRITE" ;A$: IF A$<>"Y" THEN RETURN
280 LSET F$=CHR$(O)
290 INPUT "OESCRIPTION";DESC$
300 LSET O$=OESC$
310 INPUT "QUANTITY IN STOCK";Q%
320 LSET Q$-MKI$(Q%) .
330 INPUT "REORDER LEVEL";R%
340 LSET R$=MKI$(R%)
350 INPUT "UNIT PRICE";P
360 LSET P$-MKS$(P)
370 PUTt1,PART%
380 RETURN
390 REM DISPLAY
ENTRY
400 GOSUB 840
410 IF ASC(F$)=255 THEN PRINT "NULL ENTRY":RETORN
420 PRINT USING "PART NUMBER .t#";PART%
4:30 PRINT 0$
440 PRINT USING
450 PRINT USING
460 PRINT USING
470 RETURN
4-80 REM ADO
TO STOCK
4:90 GOSOB840
500 IF ASC(F$)=255
T~ PRINT "NULL ENTRY":RETORN
5tO PRINT O$:INPUT "Q~ANTITY TO ADO ";A%
520 Q%-CVI(Q$)+A% \
530 LSET Q$=MKI$(Q%)
540 PUTt1,PART%
550 RETURN
560 REM REMOVE
FROM STOC.'"{
570 GOSOB 840
580 IF ASC (F$)=255 THEN PRINT "NULL ENTRY": RETURN
590 PRINT 0$
600 INPUT "QUANTITY TO SUBTRACT";S%
610 Q%=CVI(Q$)
620 IF
(Q%-5%)<0 THEN PRINT "ONLY";Q%i" IN 5TOCI<":GOTO 600
630 Q%=Q%-5%
640 IF Q%=<CVI{R$)
THEN PRINT "QUANTITY NOW";Q%i" REORDER LEVEL";CVI{R$)
650 LSET Q$=MKI$(Q%)
660 PUTt 1 ,PART%
"QUANTITY ON HAND ttttt";CVI{Q$)
"REORDER LEVEL i##t#";CVI(R$)
"UNIT PRICE $$##.ii";CVS(P$)