Publicité
Ali
and more
about Sharp PC-1500
at
http://www.PC-1500.info
• Liste de programme
(PC-1500)
10:0JM HI
Cl0
>,TA$
<
10>,
SJ
$<J
0J,
T
A(
l
0),SU<10>
20:A=0
30
:
'
A
''
:
ON
ERROR
Go
ro
000
31
:
SE
TDEV
35
:
YS=
"
"
:
IN PUT
"0
ATA
JNPur
?
<·
..
)
:
OU
TPLJT?C-
)
"
j
V$:
4e:
IF
Y$
="•
"
THEN
100
50:
!
F YS.::"
..
"
î
l'iEN
300
6
0:
60
TO
3
0
100
: IF
A=J0rHEN
2
0
0
J
J
0:
A=A+
J
120:
INPUT
"OA
TE
?
MMDO"
;
H
J<A>
130:
J
NPUT
"PERSONN
EL
1 N
CHARGE
?
"
;
TAS(A>
14
0
:
INPUT
"
PROOUC
T
$
?
"
;Sl$<
A>
l
se:
l
NPUT
"UN
IT
PR
J
CE
'?";
•A<A)
16
0:
I
NPUT
"Q
TY
?";
su
(I'.)
)
J /
B:
ZS=
""
:
j
NPU
T
"
O
ATA
ËNO
?
<Y
)
"; 2s
!
80
:
I
F
Z$
="
Y" THEN
30
190: G
OTO
J
00
203
:
PR!
NT
"OATA
F
U
LL
Hl
T
EN
r
,.
2 10:GOTO
3
0
300
:
OUTS
TAT
0
:
I
F A
=0THEN
30
301
:
wA
lT
60
3
!
0:
PR
JNT
"
JN
!
RAN
SM 1
SS
JON "
:
wA
I
T
0
320
:
SE TCOM 120
0, 8,
...
1
330:
SE l'DEU
PO
:
L
PRINT
"
i::BC
"
3 35
;
SE
TDEV K
l:
I
NPUT
as
:
[F
9$
<
>"Y"BEê.P
J
:
GOTO
320
3
3?
:
S
E
TOEV
PO
3
1
0
:
8=
1
350:
IF
B>ATH
EN
500
360;
l
i'
B<
>ATHEN
LPRIN
T
"
"
.3/0;
)
F !l=B
THEN
LPR)NT
"E"
380•LPRJNT
USJNG
"OU"
;H
J
<B>
390;LPRINT
TAS(8
)
400:
LPRJNT'
51$(8)
4J0:
LPRINT
USJ NG
"
ffUUU#U
"
;HHB
)
Do not
sell
this PDF !!!
~20
•
L
PR
JN
T
USING
"
i-l~tfll
'
'
iSU<9)
4
2
1
:
5E
TOEV
K
1
422:
JNPlJT
XS
42
3
:
5
E
TDEU
PO
43
0:B=B•l
4"10:GO TO
3
5
0
5
00
:
SE
TOEU
:020
:
~
OR c
.~
1
ro
A
5
30
:
H!
CC)
=0
: fA$
(C
>
:::
''•
'
5
40:
S
J
$C
C
)
~
"";
TA<C
>=0
S50:
5U(C
l
=0
560
:
NEXT
C
~
~
?0:
Q
.:;-0
580
:
GO
TO
30
600
:
IF
STA TUS
4=3J
T ~tEN
35
ô~0
•
STOP
5
TATuS
416
Contenu de
la mémoire
A
ro
in et
h1;
1~
11
ot
O(;N1i
(tS
B
00'.',.T(
ce
tR ...
N$Yl$.SlON
1)(
(:(),-.'.
f
(
$
c
'0~"1
t
l>E
Cl.A$$.l
~
ICAJ
1Q:'i
Oô
00;(;<1~~
xs
AfCEl>llC:"i
Qo:
"'t
•oo
~
Y
S
SE1,.r
cnou
1)(
NOUll(
A.V.V~NU
zs
f
1r;Cl(
:)1):--1;;(($
H!(
1 Ù)
O:nc-
TAS(
10
)
Pt!sonnel
en charge
5JS(
10)
Ptodu
il
TA(
10)
Prix
oni?airc
SUC
10
)
Ou111
1ti1i
'
Publicité
