Sharp PC-1500 - Page 145

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
TITLE
INVENTORY CONTROL
[ Program List I
10: "A .. : INPUT "R EG
I ST 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 "* *MA ST
ER TABLE* *"
60:FOR 1= 0T O M
70: Jf A$<l><>""
GOSU B 800
9
0:N EXT J:GOSUB 9
00
J 10: INPUT "COD E=" ;
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$
17
0: INPUf " STOCK Cl
TTY : "; E: A<0, (8
- ! )) :£
180: INPUT "MIN . ST
OC K =";E : A(l, <B
- I> l =E
190 :GO TO 110
200: "B '": GO SUB 70 0
210:JNPUT
.. DAT A-TA
PE IN O K= I NO=
2 .. ; c
220: IF <C=ll .. <C=2>
<>JGOT O 210
23
0: IF C=2GO TO 260
25 0: INPUT U"OATA " ;
D <* >
260:FOR 1=0TO N
265 : IF 0( 2, J >=0
GOTO 300
270 :K =0<2, ll - J: IF
K>MGOTO 300
280:A (0,Kl =Ac0, K l-
OC0, l J+D( I, I )
300: N EX T I
310: GOSUB 750 :END
400: "C ": GOSU B 70e
4 30: lN PU T "TA B LE Y
ES=!
N0 =2 ?" ;C
440:J F CC = l>•<C = 2>
<>!GOTO 430
450: IF C=2GO IO 540
Do noT sa Te tn1s 1-'U F!lT
4 60 : L PRJNT "* * TA
BLE * *"
47e:FOR l = 0T O M
4 75 : JF AS( l >= '" '
GOTO 5 10
4
80: IF Ac!, ll> AC0,
I >C OLOR 3
49e:GOSUB 900
see: JF AC!, J>>A <0,
I
>CO LOR 0
510 :N
EXT J: GOSUB 9
00
54e : I NPUT "SfOCK L
IST YES=I N0=2
? • ; c
55 e :IF <Ca J J+<C= 2>
<>!GOTO 540
S6 e: IF C= 2GOTO 62 0
57e: L PRINT "P RESE N
T SIOCK LISf"
58 0:F OR 1= 0TO n
590: IF ACJ, J ><=AC 0
, I
>GOTO 6 10
6e0: GOS UB 900
610 :N E XT t:GOSUB 9
00
620:END
630: "0" : US l NG :
L
PRJNT "** D ATA
LIST **"
635:FOR 1= 0f0 N
640 :1 NPUT "CODE =";
D<2, J >:GOTO 65
0
645:60TO 67 0
650: IF De?, I >< I
GOTO 640
651: IF 0<2, l>lM+I
GOTO 64e
6 53 : J NP UT "DELIU ER
Y=" ;
0( 0, I>
6 55 : I N PU r "W ARE l !O U
SJNG"";DCJ, l l
637:US
JN G :LPR IN T
USIN G "l!U#";D<
2, I
l;lJ S IN G "1111
#tt11Ull";0<0, I) ;
USI
NG "lllfij"U11"
";De l, I>
66 0:NEXT I
670:GOSUB 900:
GOSUB 85 0:8'10
68 0: "F": CLEAR : M=7
5:H• 75: 0 lM AS(
M), A( I, M>. Oe2,
N>:
PAUSE "M EMO
RY CLEAR" E NO
- 139 -
PROGRAM NO.
PS-0 23
7e0 : INPUT "MAST ER-
TAPE JN OK =J N
0=2" ;C
7J e:JF <C=J>+<C=2>
<>!GOTO 700
/ JS: IF C=2GOTO / 40
730: IN PUT ll"MA ST ER
"; A$C*» A('I:)
/ q0 :R ETURN
750: J NPU T " MA STER-
fAf' E
OUT OK= l
N0= 2";C
760: IF eC =t )+(C:/)
<> J GOTO 750
765: IF C=2GOfO /80
770: USJNG :PRINT M
"MASTE R" ;A$('1:)
'A e 'I: )
780:RET URN
800 :LPR JNT USI NG ..
*f~tt "; l •J; •• ··;
USING "&&&&&&&
&&& .. ; A$ e I)
8 J0:USJNG :LPRJNT
'' ";U SING
0
U
tttt tt tttttt"; A<0, l )
;U SI NG "ttlrn"llU
~";A<J , I> :
USING :RE TURN
85 0: I NPlJf '' DATA - TA
PE OUT OK =J NO
=2 ·· ; c
860:JF <C=l>•<C= 2>
<>!GOTO 850
87e:J F C• IPR INT M"
DATA"; D< 'I< >:
R ETURN
S00: LF 2:RE f URN
STATUS I
1612
6