Sharp PC-1500 Applications Manual page 145
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and more
about
Sharp
PC-1500
at
http://www.PC-1500.info
PROGRAM
TITLE
INVENTORY
CONTROL
[
Program
List
I
10:
"A
..
: INPUT "REG
IST
ER=I
RENEWA
La2
11
;
C
20:
IF
<C=
ll
..
<C=2l
<>JGOTO 10
30:
IF
C=IGOTO
I
!0
50: GOSUB
700:
LPR
l
NT
"
**MAST
ER
TABLE**"
60:FOR
1=0T
O
M
70: Jf
A$<l><>""
GOSU
B 800
90:NEXT
J:GOSUB
9
00
J
10:
INPUT
"CODE="
;
S:GOTO 160
120
:GOSUB 750:
END
160: IF B<JGOTO 110
163: IF B>M,.IGOTO I
10
J
65:
INPUT
"COMMOO
I
TY
NAME=";8$:A
$(
8-l
>=8$
170:
INPUf
"
STOCK
Cl
TTY:
";
E:
A<0, (8
-
!
))
:£
180: INPUT
"MIN
. ST
OCK=";E
:
A(l,
<B
-
I>
l
=E
190 :GOTO 110
200:
"B
'":
GO SUB
700
210:JNPUT
.. DATA-T
A
PE IN O
K=
I
NO=
2
..
;
c
220:
IF
<C=ll ..
<C=2>
<>JGOTO 210
230:
IF C=2GO
T
O
260
250:
INPUT U"OATA
"
;
D<*
>
260:FOR 1=0 TO N
265:
IF 0(
2,
J
>=0
GOTO 300
270:K=0<2,
ll
-
J:
IF
K>MGOTO
300
280:A
(0,Kl =Ac0, Kl-
OC0,
l
J+D(
I,
I
)
300:
N
EX
T
I
3 10
:
GOSUB
750:END
400: "C": GOSUB
70e
430:
lNPU
T "TABLE
Y
ES=! N0=2?"
;C
440:J
F
CC=l>•<C=2>
<>!GOTO
430
450: IF
C=2GO
IO
540
Do
noTsaTe
tn1s
1-'UF!lT
460:
LPRJNT
"**
TA
BLE
**"
47e:FOR l
=0T
O
M
475
:
JF AS( l
>=
'"'
GOTO
5
10
480:
IF Ac!, ll>AC0,
I >COLOR
3
49e:GOSUB
900
see:
JF
AC!, J>>A <0,
I
>COLOR
0
5 10
: NEXT
J:
GOSUB
9
00
54e
:
INPUT "SfOCK
L
IST YES=I
N0=2
? • ;
c
55e
:IF
<Ca
J
J+<C=2>
<>!GOTO
540
S6e:
IF
C=2GOTO
620
57e:
LPRINT
"PRESEN
T SIOCK
LISf"
580:FOR 1=0TO n
590:
IF
ACJ,
J
><=AC
0
,
I
>GOTO 6 10
6e0: GOSUB
900
6
10
:NEXT t:GOSUB
9
00
620:END
630:
" 0" :
US
l
NG :
LPRJNT
"**
D
ATA
LIST**"
635:FOR 1=0f0 N
640:1
NPUT
"CODE=";
D<2,
J >:GOTO
65
0
645:60TO
670
650:
IF De?,
I
><
I
GOTO 640
651:
IF
0<2,
l>lM+I
GOTO
64e
653:
JNPUT
"DELIUER
Y ="
;
0(
0,
I>
655:
I
N
PU
r
"WAREl
!OU
SJNG"";DCJ,
l
l
637:US
JNG
: LPRIN
T
USING
"l!U#";D<
2,
I
l;lJS ING
"1111
#tt11Ull";0<0,
I
)
;
USING
"lllfij"U11"
";De
l,
I>
660:NEX
T
I
670:GOSUB 900:
GOSUB 850:8'10
680:
"F":
CLEAR
:
M=7
5:H•
75:
0
lM AS(
M),
A(
I,
M>.
Oe2,
N>:
PAUSE
"MEMO
RY
CLEAR"
ENO
-
139-
PROGRAM
NO.
PS-0
23
7e0
:
INPUT
"MAST ER-
TAPE
JN OK=J
N
0=2"
;C
7 Je:JF
<C=J>+<C=2
>
<>!GOTO
700
/
JS
:
I
F
C=2GOTO /
40
730:
INPUT
ll"MASTER
";
A$C*»
A('I:)
/
q0 :RETURN
750:
J NPU
T
"MASTER-
fA
f'
E
OUT
OK=
l
N0=2";C
760:
IF
eC=t
)+(C:/)
<> JGOTO 750
765:
IF C=2GOfO
/80
770:
USJNG :PRINT
M
"MASTER"
;A$('1:
)
'A
e
'I:
)
780:RETURN
800:LPR
JNT
USI NG
..
*f~tt
";
l
•J;
•• ··;
USING
"&&&&&&&
&&&
..
;
A$
e
I)
8 J0:USJNG
:LPRJNT
''
";USING
0
U
tttt
tt
tttttt";
A<0,
l
)
;US ING
"ttlrn"llU
~";A<J
,
I>
:
USING :RETURN
850: INPlJf ''
DATA-
TA
PE OUT
OK=J NO
=2
··
;
c
860:JF
<C=l>•<C=2>
<>!GOTO
850
87e:J
F
C•
IPRINT
M"
DATA";
D<
' I <
>:
RETURN
S00:
LF 2:RE fURN
STATUS
I
16
12
6
Advertisement
