Vector Basic Interpreter Basic 80 Reference Manual - page 151
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
"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
"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~
"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
"NULL ENTRY": RETURN
590 PRINT
0$
600 INPUT
"QUANTITY
TO SUBTRACT";S%
610 Q%=CVI(Q$)
620 IF
(Q%-5%)<0
THEN
"ONLY";Q%i"
IN 5TOCI<":GOTO 600
630 Q%=Q%-5%
640 IF Q%= 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$)