Advertisement
rlNVENTORY C O N T R O L - - - - - - - - - - - - - - - - - - - - - - -
--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
Advertisement
