Sharp PC-1500 Handbuch Seite 172
Vorschau ausblenden
Andere Handbücher für PC-1500:
- Bedienungsanleitung (166 Seiten) ,
- Anwenderhandbuch (222 Seiten)
Werbung
All
and
more
about Sharp
PC-1500
at
http://www.PC-1500.info
ERSTELLUNG EINES
PROGRAMM-NR.
5
PROGRAMMNAME:
KREDITORENBUCHES
PS-
0
-
26
[
Programmlisting
]
[
Speicherinhalt )
116:
JF
ß$(J>(>
'"
"
500
.
.
B'".
CLEAR
A
t
ET
Z=
1:
PAUSE
5J0:
0J
t1 8$(
!39>.
0<
8$(
J):
INPUT
"
11
1
:
~9),ß(J 39)
B
ENGE="
;S:
E=S*D
5
i5: LF
2
<JJ:
GO TO
1 9~)
520: LPRJ NT
' '
**
LI
S
c
1q.7:
IF
ß
$(
J
)
.:: ''
"
TE
"**"
D
GOTO
150
5
.
3
0
:
INPUT
'"LI EFERA
14·8: GOTO
2
40
Nf·="
;
AS:
GOTO
5
E
Summe (für
dieses Mal)
l
50;
1
NPIJT '"PRODUKT
40
BEZE
I
CHNUNG=' "
;
535:
GO
TO 720
F
Summe
je
Lieferant
8$
(
l
J:
2=0:
GOro
5
40:
l
NPUT
'"llANO
E
l
G
Grand Total
165
N
OK ( Y, N)
"
;
X
!
50:GO
TO
24
5
$
H
!
55:
f =0:
INPUf
"PRE
5
'1
5
:
1F
X$(
>'"
Y' "
G'OTO
J S=
„
;
T
540
1
-J
170: S=0:
INPUT
'"11EN
550: INPU
T
«A$
;
8$<*
J
GE::''
;
S
l
,
O<*l,
BC!:
)
190:
E=S*T
6
!
0:
LPR
J
NT
'
'
*
,. ;
Cl$
K
!
95:LPRJNT
ß
$(J
)
.
„
*"
'
l
97: 1 F
Z=ILPR
JN
T
,.
630:
FOR l
=0TO
139
L
il
'"
;
US!
NG '"lili
«U
532
: IF
8$(
l
)
:'"
' "
M
""""""""""·"""
GOTO
660
' "
;
D<
JJ:
G
OTO
21
5.
3 5:
E=B< l
ltD<
l
l
N
-J
0
540:
LPRlNT 9
$ < 1)
200:
LPRJNT
"
ij";
645
:
LPR
J
NT
"
@"
;
0
US
J NG
' "
tt
llttlllllill
US ING
'"Utilill
li
ll
ll
p
tttttittti
litt,
#
tt
tl
'"
;
T
Uff
tt
ffHti
ll
,
tiH
tt'"
;
O
2l0:LPRJNT
"
*
";
s
(J)
Q
2l5:
LPRJNT
"=
'';
E
650
:LPRIN
T
''
1''';
B<
J
2
J6:U:
1
)
R
220:
F=F"E
5
52
:
LPRJN
T
,.
::
,.
;
E
2
25
:
1
F
Z=ILE
T
O<J
>
655:
F=F
+E
s
Menge (dieses Mal)
=O
<J >: B<!l=B
<l
560:
NEX
T
1
l +$:
COTO
2'1
0
öB0:GOSUB
900
T
Preis
(dieses Mal)
227:0(
J
)
•f:
8(J)
=$
5
B5
:
G=G·•·F
:
F=0
240:N
EXT
1
7
00:
GOTO
530
u
245:
1 NPUT
' " BAND AU
720:GCJSUB
950
<"
„
OK
(Y/N
)
,,
;
X
750
:
ENO
V
$
!3
00;
!_
PR
l
IH
,. SUMME ,.
w
2' 1 !
6:
IF
XS<)
"Y"
GOTO
9
J0:
LPRlN
T
US
JNG
..
245
tt
«
li
U
Utt
UU
1!11
ll
ff
U
tt
X
250: PRJNT
tiA$
;B$("1:
,ttti
H
"
;~
J
,
0
(1<),
B<*
l
9
15
:
LF 1
y
2ö0:
FQR
J=0T
CJ
139
920:
RETURN
z
-J
265
:
0
S<ll
="'"
;
O(l
)=
950: LPR INT
"*
,.
;
··G
0:9(}) =0
RAND
TOTAL"
;
"
A$
Lieferant
270:
NEXT
1
*'"
300:
GOSUB
900
960:
LPRJ
NT
US
I
NG
,.
W$
-J
320:
G=G+F
!i
tt
U
H tt tt
ff
ttüff
U
ll
tt
,
X$
-J
32
5
:
F
=0
1Jf:i1i
'';
G
330;
GO
TO
13
9?0:
RE
TURN
Y$
-J
3
S0:
GOSUB
950
q00
:
ENO
BS(N-11
Produktbezeichnung
B(N-1)
Menge
S
TATUS
1
1404
O(N-1)
Preis
Do not sale this PDF
!!!
-
164
-
Werbung
