Publicité
A
li
and
more
about Sharp
PC-1500
at
http://www.PC-1500.info
Programme de
démonstrat
ion
Le programme listé
ci~essous
remplit
l'
affichage avec le caractère stocké
dans
AS et crée des
motifs bizarre en
inversant
ce
caractère.
Ce programme utilise plusieurs
inst
rUClions
examinées
dans le
prosent
chaµitre.
Listage du programme:
10 AS
=
"X"
20 WAIT 0
30 Y=5
;
X
=
155/Y
C
=
O
40
FOR
1=
1
TO X
50
GCURSOR C
60 PRINT A$
70 C
=
C.,.Y
80 NEXT
1
90 FOR
1
=
O
T·
O 155
100 GCU RSOR
1
110
A
=
127
-
PO
INT
1
120 GPR INT A
130 NEXT 1
140
GOTO 90
Touches
uti
lisées:
rnmm
'"'"r1
m
c-1'$11"''c:J
m1s""''
c::i
' E
'"""'
mrn
ŒJ
m rn corn
l••TE•I
rn
oo
IIJI
=
l
aJ
ISH"ll
ŒJ
IXJ
I
=
IOJŒJ
IIJ[7]ŒJ
(
""'"
1
c::J
o;J 1
=
1 OO
l
•HTE•
I
rnrn
m
œ
rn co
1=
1m
rn
œ
m
,
••
,..,
moornmmmmmmm1•
...
••I
m oo
rn
m
rn
oo
rn
m
,
,...,T
1
rn
,
•
., ..
1
moom
1=
1mœ
m1••n
•
1
rn rn œm m
coco
t••n•1
ŒJ
OO
CD
IJîJ
OD
OJ
1
=
1
OO
CD
ŒJ
OJ
ŒJ
ŒJ
l••n•I
m
rn
rn
rn
m
o:o
mm
œ
m co
l••T••I
0Jo:JOO!JDl
=
lo:JŒJCD
G
0CQJ
ŒJŒJ
CDCOl••TERI
mm
rn
rn m
ŒJ CD OO
CD
OOl•NTE•I
m
rn
rn
œ m
m rnco
,
.....
,
m
m
m
m
œ
cri
œ
m
rn
l•rnl
N
OTE:
Si
l'on
inclut la dernière
ligne,
le
programme
se trouvera
dans une boucle infinie lors de
son passage (la touche BREAK
se•
t
à
y
mettre
fin). On peut
changer aussi
le
caractère
afficho
en
ins.érant un
nouveau
caractè
re
dans
l'affectation en ligne
10.
100
Do not sale this PDF
!!!
Publicité
