Sharp PC-1500 Anwenderhandbuch Seite 145

1g:
20:
38:
58:
6G:
7@:
94:
11@:
12@:
{66:
163:
165:
17@:
18@:
200:
21Q@:
220:
234:
258:
268:
265:
270:
280:
300:
408:
438:
44@:
PROGRAMMNAME:
[ Programmlisting |
"A"; INPUT "REG
ISTRIEREN=1 ER
NEUERN=2"3C
IF ¢Ca1)4+¢C=2>
<>1GOTO 18
IF C=1GOTO 118
GOSUB 780:
LPRINT "XXHAUP
TTABELLEXX"
FOR 1=@TO M
IF ASCIOC >"
GOSUB 88@
NEXT 1: GOSUB 3
QB
INPUT "CODE="3
B:GOTO 16@
GOSUB 75@: END
1F B<1GQTO 118
IF BoM+i60TO }
1g
[INPUT "WARENBE
ZE ICHNUNG="; BS
> A$¢B-1)=BS
INPUT "LAGERME
NGE="3E:9¢8, (B
-1)=E
INPUT "LAGERM]
NDESTMENGE="35
201, (B-1)95E:
GOTO 118
"B";GOSUB 782
INPUT "DATENSP
EICHERN ¢Y/N)
"3C$
IF ¢C$a"¥"54+CC
$="N">¢>1G0TS
218
IF C$="N"GOTO
268
INPUT #"DATEN"
:DC*)
FOR ]=@TO N
IF D2, 1>=8
GOTO 388
K=0¢2, [)-1. 1F
K>MGOTO 382
A(8@, K)=ACd, KI-
O¢@, }9+D0¢1, 1)
NEXT 1.GOSUB ?
58: END
"Cc", GOSUB 780
INPUT ' TABELLE
YES=] NOQ=2?";
Ct
IF ¢€C=1)4+¢C=2)
€>1GOTO 432A
45g:
468:
47Q:
475:
480.
490:
50a:
918:
348:
554:
5668:
57@:
58@:
59a:
6a:
61a:
63a:
635:
640:
645:
658:
651.
653:
655:
657:
66a.
678.
684:
LAGERBESTANDSKONTROLLE
IF C=2GO0TO 548
LPRINT "** TA
BELLE ¥x"
FOR ]=8T0 M
TF ag¢]j=""
GOTO 31a
IF ACI, 13908;
I)COLOR 3
GOSUB 88
IF ACI, 12508;
I)COLOR @
NEXT 1: GOSUB 9
AB
INPUT '"LAGERL]
STE YES=)NO=2?
Hes
'
IF (C=1)+¢C=2)
€>160TO 544
iF C=2END
LPRINT "DERZF1
TIGE
L
AGERLISTE"
FOR 1=8@70 M1
IF ACI, 13<=ACO
» 1)GOTO 616
GOSUB 888
NEXT ].GOSUB 93
a@:END
"D's USING .
LPRINT ""*XDATE
NLISTEX*"
FOR ]=@TO N
INPUT "CODE=";
N¢2,3):GOTO 65
A
COTO 678
IF D¢2, 1061]
GOTO 642
TF DC2; }d>M+]
GOTO 649
INPUT "AUSL IEF
ERUNG=";0@, 1)
TNPUT "FINLAGE
RUNG=";0¢], 1)
USING -LPRINT
USING "HHH" SDE
2,1)9;USING "Hk
HHHHH' DCB, 123
USING 'HHHHHAH
"53001, 1)
NEXT }
COSUB 384.
GOSUB 85@.END
"E" CLEAR .M=?7
5.N=275.01N Sse
M)>,401,3, D002,
N).PAUSE 'SPE!
CHERLOESCHEN'
ENP
130
70a:
P\G:
715:
2738:
74GB:
258:
?6@:
765:
2?7Q:
BAD:
818:
B58:
BaB:
B70:
984.
PROGRAMN-NR.
PS—D—23
INPUT "HAUPTKA
SSETTE EIN CYZ
No 30s
IF ¢CH="Y"94¢6C
$="N")<>1GOTO
788
{fF C$="N"
RETURN
INPUT #"°HAUPTK
. £a$0k5, ACK)
RE TURN
INPUT "H@AUPTKA
SSETTE AUS CYz
N)";C$
IF CC$="Y¥"94CC
$="N")<¢>1G0TO
75g
IF C$="N"
RETURN
USING :PRINT #
"HAUPTK. "3; G$¢x
9, ACK): RETURN
LPRINT USING "
HHH" s T+15° 5
USING "&&&&RRS
888"5QSC])
USING :LPRINT
'
"SUSING
"#
HHHHHH':QCB, 1D
;USING ""#H#HHHE
HAC Ve Ts
USING : RETURN
INPUT "DATENE]
NLESEN OK=1 NO
Pare
IF ¢€C=1)4+¢C=2)
<>1GOTO 852
IF C=1PRINT #"
DATEN';O¢x)
LF 2: RETURN
STATUS 1
1658