Sharp PC-1500 Anwenderhandbuch Seite 174

PROGRAMMNAME: RECHNUNGSBUCH UND LISTE
[ Tastenbetatigung |
Dieses Mal keine Eingabe
ENDE? (Y/N)_
[ Programmlisting ]
os
if:
li:
12:
"A": CLEAR >
WAIT 2B
DIM B$¢139), D¢
139), B¢139)
Le?
USING :LPRINT
"x RECHNUNGSBU
CH x"
>INPUT "ENDE '?¢
Y"N)D "SWS
:TF W$="Y"GOT
398
: INPUT "NEU ?CY.
"ND "GYS
> INPUT "KUNDENC
ODE="3 AS: GOTO
rae
:GOTO 245
2 1F Y$="V¥"GOTO
88
38:
40:
5a:
8a:
148:
INPUT "BAND E1
N OK ?¢Y/ND. "3
Xs |
IF X$<>"¥"GOTO
30
INPUT . #A$;BS<¢x
3, DOK), BOK
LF |
USING :LPRINT
sb 4 "SAS; tt K"
:FOR 1=@TO 139
:1F Y$="¥"GOTO
159
7 IF BScia¢>"®
LET 2=!:PAUSE
BS¢I): INPUT '"M
ENGE="3S:£=S*D
°° -€J):GOTO 195
»UF BS¢]>oat
GOTG 159
:GOTO 246
— 165 —
: INPUT "PRODUKT
CODE="3 BS¢1:2
=@:GOTO 165
*GOTO 245
: INPUT ""PREIS=*
if
: INPUT "MENGES".
iS
:E=SXT ;
*LPRINT BS¢I)
[TF Z=1LPRINT *
@";USING "#H#E#
HRAHBHHEHH, #44
"30¢C19:GOTO 21
2
:LPRINT "@";
USING "S#HHH#HH
HHHHHAH, SHH! ST
(Fortsetzung nachste Seite)