Sharp PC-1500 Anwenderhandbuch Seite 101

[ Programmlisting ]
18: "A": WAIT @
20: INPUT "REG. =I;
"SX
BB: IF ¢X$H" 1"24+0%
$="2")<>1GOTO
AEND. =2
26
48: 1F X$="2"GOTO
152
58: CLEAR : INPUT "
MAX. ANZ. DP. P
OSTEN="3N: DIM
A¢¥¢N-1)9,; ACN-1)
6@:FOR 1=@TO N-l
ND. NR.="5C:
";GOTO 15a
4AQ:
4@3:
445:
41@:
415:
417:
420:
"e's WAIT @:2=0
LF 2
USING :LPRINT
"¥ FINZELHEITE
N x"
INPUT "REGISTE
R NR. ="30: GOTO
417
GOTO 6228
IF DONPAUSE "R
EG. NR. UEBER.
":GOTO 410
INPUT "MENGE="
B
ASC ID
PROGRAMM-NR.
P5-D-—5 4
[ Speicherinhalt ]
Eingabe Anderungs-
Nr.
Eingabe Register-Nr.
C
Im) o | [a>
=
i) Ss
ga
oO
F
G | Rabattbetrag
<|-|+]=[0|~]o\2|=
384: USING :LPRINT
"* BESTANDSLIS
Preis
600:
» HEN TY
Z=Y+2:F =8: G=2
392
Rabattbetrag
Blea