Sharp PC-1500 Anwenderhandbuch Seite 175

210:
215:
216:
228:
225:
227%
24Q:
245:
246:
258:
268:
265:
278:
308:
328:
325:
338:
390:
48a:
5868:
5108:
oho
528:
938:
535:
548:
545:
558:
616:
638:
632:
635:
B46.
[ Programmiisting ]
LPRINT "X"3S
LPRINT "="3E
LPs
F=F+E
NEXT 1
INPUT "BAND AU
S OK PCYZN) "5
x$
NEXT 1
GOSUB 382
G=G+F
F=9
GOTO 13
GOSUB 9358
END
"B"; CLEAR
DIM B¢¥¢139),D¢
135).B¢ 139)
LF 2
LPRINT "*XRECH
NUNGSBUCH**
INPUT "KUNDENC
ODE="3; A$: GOTO
348
GOTO 720
INPUT "BAND E]
N OK ?CYZN) "5
X$
IF x$<>"¥"GOTO
548
INPUT #A$; BSCK
), 06%), BOK)
LPRINT "* "34%
alll x"
3 :
FOR J=@T0 133
IF BSc ]d=""
GOTO 668
E=B¢C1>xDCI)
LPRINT Be]
B45: LPRINT *"@";
USING "HH#RHHH
C1)
LPRINT
)
652:LPRINT "="3E
655:F=FteE
668:NEXT I
68@:GOSUB 988
685: G=G+F: F=@
70@:GOTO 534
720: GOSUB 9358
756: END
Qi 5eLF 1
928:RETURN
95@:LPRINT "x GRAN
D TOTAL"
LPRINT &
RETURN
968:
970:
STATUS 1
I322
— 169 —
PROGRAMWN-NR.
P5—D—27 9
[ Speicherinhait ]
esamtsumme
dieses Mal)
EO
Q esamtsumme Kunde
rand Total '2
|
|-[-j=|o[>
enge (dieses
1
=
pa fe
Preis (dieses Mal)
x[=]<\<
unden-Code
8|B]™|<
als
A | A
B$(139)| Produktnummer
Preis
i
D(139)