Sharp PC-1500 Anwenderhandbuch Seite 170

[ Programmlisting |
146: 1F BSc ho<¢o
LET Z2=]: PAUSE
B$C1)2z1INPUT ""M
ENGE="";S:E=SxD
€1):GOTO 195
147: 1F Bsc]o=""
GOTO 158
148: GOTO 248
158: INPUT ""PRODUKT
165
168:GOTO 245
165: T=@: INPUT "PRE
1S="5T
178:S=@: INPUT "MEN
GES";
I9Q:E=SxT .
195:LPRINT BS<1) |
197: 1F Z2=1LPRINT "
@";USING "H#H#
HHHHHHHHAH, HHH
"30¢13:GO0TO 21
2
288:LPRINT "@";
USING "#HHHHHHY
HAMM HH, HHA" ST
21Q:LPRINT "X"3S
215:LPRINT "="5E
216:LF 1
220: F=F+E
225:1F Z=1LET DCI>
=D(1):BCI1I=B¢1
)+S:GOTO 248
227:D¢1>=T:BC1D=S
248:NEXT I
245: INPUT "BAND AU
S OK <Y/N) "3X
$
246: 1F X$<>"Y¥"GOTO
245
258:PRINT #09; BS(x
), DCX), BOXD
26@:FOR I=aTO 139
265: 8$(1)=""3N¢1>=
8:B¢1)=0
270:NEXT 1
388:GOSUB 928
320: G=G+F
325:F=0
33@:GOTO 13
398:GOSUB 952
48: END
- BEZEICHNUNG="3. ©
BS¢I>22=8:G07T0 ©
500: ''B": CLEAR
918: DIM BS¢139), D¢
139); B¢139)
S1S:LF 2
320:LPRINT "kk LIS
TE X®x"
538: INPUT "LIEFERA
NT=";A$:GOTO 5
40 :
335: GOTO 72a ;
548: INPUT "BAND EI
N OK ¢Y;N) "5%
$
S45: 1F X$<o"Y" GOTO.
542
55: INPUT #A$;BS(x
), DOK), BCX)
61@:LPRINT "x "jAs
att x .
3
638:FOR 1=8TO 139
632:1F BSc1)=""
GOTO §68 ~ ~
635: £=BC1)*D¢1)
642:LPRINT Bs 1)
645:LPRINT "a";
USING "HHH
HEHEHE, WHER 5D
(1) :
65@:LPRINT "x"; BCI
)
652*¢LPRINT "s":E
655:FaF+tE .
666:NEXT J
688: GOSUB 3aa
685: G=G+F:F=0
788:GOTO 538
72@:GOSUB 95g
758: END
9@@: LPRINT ""SUMME"
S!@:LPRINT USING "
HHHHHHHHHHEHHH
_) HHHU SE
9I1S:LF ]
920: RETURN
958:LPRINT "xk "3"G
RAND TOTAL";"
"
968:LPRINT USING "
_, SHEER RE RHE,
HEE' SG
378: RETURN ©
"STATUS i
1484
— 164 —
PROGRAMM-NR..
. | P5-D—26
[ Speicherinhalt ]
On os oe.
ial
tA
:
a?)
z
E
Pu
o
cs]
Lae3
=
2
Summe je Lieferant
| Grand Total
Menge (dieses Mal)
T
Ee
Preis (dieses Mal)
BBE
| <{>e il
Lieferant
lala
Al) A
+4
H
2
}| Produktbezeichnung
B(N-1}} Menge
1)} Preis
2 2