rlNVENTORY
CONTROL-----------------------
28
--7
UST
1 84
Bytes
•
IIJ[]J[S)!I)
UST
2
4202
Bytes
j
.,,11111••-·---
..................................
,
........................
,.
.... ttlltltltttltMl
.......
,
.......................
1
..
,
1111,,......
I
LIST 1
10
It-.lF'UT
"FII_E
NAME
";h11-
2121
OPEN
NS
FOR
OUTPUT
AS
#1
3(2)
FOR
A==l
TO
10
40
PRINT
#1,
11
-11-":NEXT
5121
CLOSE
UST
2
11210
CLEAR:CLS:PRINT
"•
INVETORY
CONTF~OL.
-)(
11
110
INPUT
"DISK
SET
m::?
CY/NJ";A<t;:
IF
A$::.:"N"
THEN
END
120
FILES:
INPUT "[f=-ILE
NAMEJ";N'f,:
□
r-TN
f\!1;
FOR
r1,1r:-u
T
AS
#1
13121
DIM
D$(50,12)
14121
FOR
I=0
TO
12:READ
DSC0,I>:NEXT
150
DATA
Product
name,Classificatiu11,Mema,Pur·chas
e
price,Selling
price
A,Selling
pr·ice
B,Quantity
pu
rchased,Quantity
sold,Quantity
on
hand,Value
of
goo
ds
on
hand,Sales
amount,Profit,Remarks
0
16121
A=l
170
FOR
I=0
TO
12:
IF
EOF
C
1)
==--1
THEl--l
CLOSE:
GOTO
2121
18121
INPUT
#1,DSCA,I)
19121
NEXT:A=A+l:GOTO
170
200
A=A-1:F'RINT
"Number
of
data";A:FOR
I=0
TO
300
:NEXT
210
220
230
24121
250
CLS:PRfNT
PRINT
"ll
PRINT
"2)
PRINT
"3)
PRINT
"4)
II
5)
"6)
"7)
"MENU"
DATA
ALL
F'RINT"
TOTAL
PF.:INT"
DATA
EDIT"
DATA
ADD"
DATA
KILL"
DATA
SAVE"
END"
260
PRINT
270
PRINT
280
PRINT
290
INPUT
"Selection";8$:8=VALCB!li):
IF
B<1
OR
B>7
THEN
210
30121
ON
B
GOT0320,400,460,580,680,760
1
B00
310
GOTO
290
320
CLS:F'RINT
"DATA
ALL
F'RiNT"
330
FOR
I=1
TO
A:
F"RINT
USING "
,:
:No-##>>
---
-----
II;
I
I
To Next Page
Loading...
