Download Magazine Pom`s : la collection

Ile+, Ile,
-
-
-
-
-
L'anti-disque
Speedisk™,
la RAM Card a mémoire permanente
Rapidité
Fiabilité
Temps d'accès 0 l'information: 0,2 ms
(100 fois plus rapide que les disques
durs ... ).
Par exemple:
démarrage sur Basic.System en 3 s.
AppleWriter dispoo'ble en 0 oer.a s.
Constituée de c rcu' C�·OS è "ès
'"V es·
faible consommeTlOn, Speec
aussi fiable que l'ordinateur iUt-même_
Elle est insensible 0 l'environnement.
Capacité
Speedisk'" est proposée en quatre
versions:
1 Mo(l 048576 octets)
384Ko extensible OlMo
avec hortoge compatible ProDOS
(pour les Apple )(+, Ile) ou sans (IIGS)
Compatibilité
100% compatible avec ProDOS (c'est
un VOlume), Speedlsk™ fonctionne sur
Apple )(+, sur Apple Ile et sur Apple
IIGS,
Prix
Lecteur de Pom's, vous bénéficiez
d'une remise de 10 % :
5P400
364Ko
SP1000
1 Mo
SP400H
384Ko horloge
SP10C01
1 Mo ho�oge
Garantie
�
�
�
�
3591.00
5391,00
4122,00
5 922,00
Speedisk™ est une fabrication
française garantie un an par échange
de la carte.
Banc d'essai dans la revue Pom's nO 31
Vente par correspondance, Logma S.A.
documentation, 12, rue d'Anjou
renseignements 78000 Versailles
Tél: (1) 3951 2443
Je désire recevoir- sans engagement- voire
documentation sur les cartes Speedisk™
Speedisk"" est une marque déposée de
Thot Informatique® - France
Speedisk""
----_._------- -- ------------- - - - - - -- -
Numéro 34
janvier-février 1988
Apple Il for ever
Editorial
Hervé Thiriez
Il
6
Copie de l'écran
texte 40 et 80 colonnes
Il
1
7
•
•
Ile
Répom'deur
IIII[ 11,111!/,�G:111g1 Page
Ile
• mOOe d'empWi Apple Il
• mOOe d'emploi Mac
• programme Apple Il
9
•
•
Initi ation
Le passage des paramètres
•
•
Il
IIIli l!+111111 1!111!I,�G81�age
Ile
À l'essai:
Les
Il
I le
A
1
•
-
28
I le
l'essai: OverVue
�4
mode d'emploi
• liste des instructions
• résumé des inshuctions
• sources Apple Il
Alexandre Duback
Alexandre A vrane
Û
56
Boîte
Û
61
-
12, rue d·Anjou - 78000 Versailles. Tél.
Imprime en Francc_
Pom's nO 34
: (1) 39 SI
tif d ,mpres�,on
53
35
page 23
page 39
Û
Page
Page
Û
Page
Page
aux lettres
69
Petites
70
annonces
Les annonceurs; American COfllpuling : page 49; AppJc: pages 72 et 73 ; Bréjoux AE : page
La Commande Elœtronique : pages 4 el5 ; LOGMA S.A. : page 2.
Éditions MEV
35
68
Du côté des
L a serWriter
Stéphane Dedeyan
Guillaume Lejeune
33
50
page 11
page 12
B ibliographie
2.1
Page
page
page
page
page
page
page 51
Pom_Link
TimeO ut
Jusqu'à 72 points
av ec
MacWrite
•
24
1 111 [111 !,�G81�a� ge
1
Page
�4
Éric Weyland
programme Mac
syJwptiqtœ Apple Il
• synoptique Mac
Jean-Jacques Colwhir
Ile
Ile
�Ii
Spécial répondeur
télématique
AppleWorks
des macro-commandes
I!
62
Ile
!11[1l!+IIIII[lIelllll�'�G8tpage
Dimitri Ge stor
y
I I[1 ][+111111 1I;!1111_�G811�age
8
[lêfl 1!,�G tlll I!III! ,II
Ile
Ile
Yvan Béard
Ile
.
•
Jean-Yves Bourdin
Û Page
,
-
71
8;
24 43. Directeur de la publication: Hervé Thiriez
785066 _ �p<)t 1�8al Jan'·'er 1988
3
Ashton4ate et La Co
présentent cl
<
.. ....
.
··""IF
'__t:
..
D'_'
o·· .,··
or.,
_....
..... .."
,
..
Ho,O'_
c'"'"",,,
.....:
, 1
,.",..._:
.
•••••• _r.......... .
... ,.. '.," .... ,..
••...,._r..
oc..., ,,""',
6
...
"
..
....... ,.. _--
Il....,.
.., __ _
. ......' ,..
-
.......
•
-
..
, ... _---,
� -
_
.. �
Club � Video
_...
_
--�--- --
mmande Electronique
�BASEMac
dBASE®Mac est disponible.
C'est le plus puissant système de gestion
de base de données relationnelle pour
TM.
Macintosh
A la différence des autres bases de
données, vous l'utilisez
sans aucune
.
connaIssance
de la
program­
mation.
Commencez
par créer et
relier vos
fichiers. La
modification d'une information
entraînera la mise à jour des autres.
Automatiquement et immédiatement.
Et souvenez-vous qu'avec
dBASEMac, tout est réalisable sans
programmer.
Cliquez simplement la souris et vous
visualiserez vos fichiers de mille et une
façons.
Toujours sans faire appel à la
programmation.
En insérant des polices de caractères
issues deMacDraw®, vous créez les
rapports les plus simples aux plus
sophistiqués. Ils apparaîtront à l'écran,
M
•••
_
La Commande Electronique
7, RUE DES PRlAS - 27920 SAlNT·PIERRE DE BAlLl.EUL
TËL 32 52 54 02 TElEX LeE 180 855 FAX 32 52 54 46
tels qu'ils seront imprimés.
Nous ne parlons pas simplement du texte
et des graphiques. Avec dBASEMac,
vous pouvez même incorporer des photos
au sein des fichiers.
Toujours sans programmation, vous
importez des données issues de dBASE ID
PLUS ou de n'importe quel fichier
ASCII. Tout cela, grâce au système d'aide
intégré et aux menus déroulants du
Macintosh.
Mais si vous voulez aller encore plus loin,
un puissant langage de programmation
permettra de développer des
,- ------- -------- X ---applications.
1
BON DE COMMANDE . 34Vous désirez
A retourner à :
une documen..
La Commande Electronique
7,rue des Prias
tation
21920 SAINT PIERRE DE BAILLEUL
complète ou
Nom:
assister à une
Société:
présentation,
N°:_Rue:
alors, n'hésitez 1
pas à contacter
Ville:
votre reven­
Code postal:
deur agréé
Téléphone:
Apple.
dBASEMac
o Je \'OUS commande
exemplaires de
la prise en main d8ASE Mac, au prix
est disponible
de 50 F TIC. Règlement par chèque
joint à la commande.
au prix de
o Envolez-moi une documentation
3950 F (HT).
comp ète sur le logiciel dBASE Mac,
_
__ __
_
_
_
______
_
_________
___
___
_______
_
.\�AsH1DN TATE
T,ditoria{
/
Ont collaboré à ce numéro
Alexandre Avrane - Jean-Luc Balanegue
Yvan Béard - Jean-Yves Bourdin
Jean-Jacques Colwhir - Stéphane Dedeyan
Alexandre Duback- Dimitri Geyslor
Olivier Heu- Guillaume Lejeune
Gérard Michel- Christian Piard
Joëlle Piard- Hervé Thirie...
Bernard Toméno - tric Weyland
Directeur de la publication
rédacteur en chef
Porn's sur Minitel,
aujourd'hui
Hervé Thiriez
Rédacteurs
Alexandre Avrane - Olivier Herz
&litions MEV - 12, rue d'Anjou
78000 Versailles- 1r (1) 39.51.24.43
Siège social
Éditions MEV
P ublicité
Diffusion
N.M.P.P.
Pom's est bien plus la revue desAppleque celle des Apple Il
avec un cahier Mac: comme Minitel 27, Kruptos, InterPom's,
T_Pom's, Clv, nous vous proposons A nouveau des program­
mes communs aux Apple Il et au Macintosh, Il s'agit de
Pom_Link et Répom'deur, deux de ces programmes qui don­
nent Il un seul numéro la valeur d'un abonnement.
(1) 39 53 04 40, tel est le numéro de téléphone que pom's met
à la disposition de votre Minitel 24 heures sur 24, Dès
aujourd 'hui, vous y découvrirez le répondeur télématique de ce
numéro, répondeur prêt à enregistrer vos messages et, pour­
quoi pas, vos commandes; voici donc la possibllité d'essayer
Impression
Berger-Levrault
18, rue des Glacis
54000 Nancy
'l!t 83.35.6l.44
Photos de couverture
CP & ILS
Photogravure
Graphotec
21, chemin de la Tour
92350 L e Plessis-Robinson
!l' (1) 46.30.44.49
Pom's est une revue indépendante non
rallachte à Apple Computer, me. ni
à Apple Computer France S.A.R.L.
Apple, le logo Apple, Mac et le
logo Macintosh sont des
marques déposées
d'Appie Computer.lnc.
IBM est une marque déposée de Intemational
Business Machine.
PC et AT sont des marques déposées
de la Société IBM.
eËditionsMEV 1988
Toute reproduction intégrale ou partielle.
effectuée par quelque procédé que ce soit, sans
raccord écrit d'Éditions MEV, constitue une
contrefaçon.
Loi du Il mars 1957, anicks 425 et suivants
du Code Pénal.
Droits de traduction. de reproduction et
d adaptation réservés pour 10US pays.
un nouveau programme de communication avant d'acheter la
disquette, Qui dit mieux? Ce nouveau numéro de téléphone
est promis à bien des développements mais, rançon du succès,
pardonnez-nous en cette période de mise en service quelques
tonalités "occupé".
S'ilest un service qui vous tient, et qui nous tient, à cœur, c'est
bien l'assistance téléphonique pour la mise en œuvre de nos
programmes ; c'est une charge importante, mais elle nous
semble capitale.
Nous comprenons que ceuxqui manifestent leur fidélité par un
abonnement en attendent plus d'efficacité, aussi nous travail­
lons à des solutions: rendez-vous au numéro 35.
Comme tout service gratuit. cette assistance comporte un
sympathique sottisier (qui occuperait bien un numéro com­
plet) tel le cas de cet utilisateur d'lnterPom's - au demeurant
peu aimable - qui avait quelques soucis de communication:
11 s'agissait d'un pirateur de base dépourvu de mode d'emploi,
..•
qui exigeait une aide! Heureusement, notre flegme nous aide
Sondage? nous recevons Il l'heure de ces lignes encore bien
des réponses: dépouillement dans le prochain numéro mais
déjà une dominante apparaît, un succès pour la rubrique
Apple Il fo r ever - doutez·vous encore de l'inventivité des
développeurs - et des programmes de communication.
Hervé Thiriez
'
6
Pom's n° 34
Copie de ['écran tel(te
40 & 80 cofonnes
e programme en assembleur
présenté ici est une évolution de
celui de Christian Guérin paru dans
le numéro 3 de Pom's. Il fonctionne
dans les mêmes conditions et
s'utilise de la même façon.
L'évolution réside dans le fait qu'il détermine
la nature de J'écran et donne aussi bien la
copie d'un écran en 40 colonnes qu'en 80
colonnes. Il fonctionne sous ProDOS et DOS
3.3.
Le petit progr'lmme BASIC ci*joint donne un exemple
d'utilisation.
Source TXT.DMP
Assemblage par Pro CODE
o ......................................................
,
4
......................................................
,
,
8
ADL
10
CU:!'
Il
PAG!:20FF
12
PAGF.20N
13
RD80::0L
"
5300
""
"
;Adres.se de début
"'"
"
""
srom
;NlJ/fléro de liane
",.
SCOS(
;Sél.ceion paae 1
".
SCOSS
;Sélection paae lA
".
SCOIF
; Test 40 ou 80 colonnes
IS
de 11an.
;Ecrtcure d'un caraceére
.--------- --------------- -----------------------------
Début du procra.
.".,
" e
16
17 .----------------------------------------------------19
HCT
LDA
10
HCTl
PHA
"
ZZ
21
Il suffit de saisir et sauvegarder la récapitulation
TXT.DMP.C (sauvegarde: BSAVE TXT. DMP. Cf
L$60).
Le programme se charge en page 3
(ce n'est pas très original, mais sous PraDOS, quelle
simplification) ; donc, l'une des premières lignes de
votre programme Basic sera:
20 PRINT CHR$(4) "BLOADTXT.DHP.C"
À
chaque fois que vous avez besoin d'envoyer une
copie d'écran à un périphérique (ce sera bien souvent
l'imprimante), failes :
GALL
768:
PRINT CHR$(
'0
;Début
Hud Copie Hane 0
;S�u\leo.rde
nu:néro 110ne
.----------------------------------------------------Calcul de l '�dre5..e de début d.. l� 110ne
.-----------------------------------------------------
"
""
"
"
'"
"
'"
"
",.
"
'"
"
''''
"
'"
'"
'"
ADL+l
'OC
"
'"
lS7F
'"
'"'
HCTZ
"
'"
"
'"
HCTZ
"
'"
'"'
"
'"
'"'
"
41
42
•-----
;Rout!".. VTAB
!SIS
"
"
-- --------------- -- ------------------------ -----
Ecritur. d·un.. 110r.e
43 .---------------- ---------------------- ---- ------- - ---
4) �PRLO"
"
Ceci dans le cas ou le périphérique destinataire est
connecté au port 1. Veillez à ce qu'il n'y ait pas
d'écho à l'écran lors de l'envoi des caractères au
périphérique (à l'imprimante), sinon l'écran sera
défiguré au fur et à mesure de l'impression. En
principe un :
avant le CALL 768 règle ce perit problème.
PRINT CHR$ (9) "BON"
À
noter enfin que le fichier binaire s'appelle
TXT.DMP.C, mais qu'il conviendra à toute
imprimante.
û
Pom's n° 34
'"
,
24
PRINT CHR$(4) "PRLl":
HARD COPIE TEXTE 40 FT Ba COLONNES
lB
Comment faire?
A$300,
•
,
,
""
"
"
47
HC:!'J
""
"
; y p01n�e dans la liane
U7F
;E ..t-on en mode
"
en
RD80COL
"
'"
HOT'
"'"
"
"
'"
PAGEZON
;Acti.vati.on Pdae lA
"
'"
"
'"
P AGE20FF
;Retour an paa" l
"
�,
HCff
"
""
UJF
"
""
UZO
"
'"
HOT'
60
""
U40
'"
'$B�
'"
'"'
80 ou 40 colonnes?
;Sl en
40
colonne..
"
;CAI/ACTI;RE EN PAGE lA
"
"
"
"
"
HCT4
"
"
..
HCTS
'"
MDL). y
("DL). r
;si. le caractére est en
1nver ..e Ou en flashol"c
,
on 1. transforme
;Ecrlture sur l'1mpr1molnce
;CARACTERE EN PAGE 1
7
67
BMI
HeT6
68
AND
L$3F
69
CMP
L$20
70
BCS
71
HeT6
72
73
"
•
75
HeT6
DRA
L $40
JSR
OUT
DRA
INY
April avoir saisi
cn
77
L ! 40
BNE
HCT3
rlcapilulatiOIl
par; BSAVETXT.DMP.C,A$300,L$60
0300:/19 0 0 48 48 'lA 29 03 09
0308:04 85 07 68 29 18 90 02
.. Caractère suivant
;Test
0310:69 lF 8 506 DA DA 0506
si fin de ligne
0318:85 06 AO 00 A2 7F EC IF
0320;CO BO 19 A9 00 80 5S CO
•
0328:81 06 80 54 CO 30 08 29
*-----------------------------------------------------
0330:3F Cg 20 BD 0 2 09 40 09
80 '"
0338:80 20 ED FD 81
81
Fin d'une ligne
*-----------------------------------------------------
0340:29 3E" C9 20 80 02 09 40
82
•
83
LDA
! "M"-$40
84
JSR
OUT
85
;
PLA
87
TAY
'RETtJRN'
0350:DO CA A9 80 20 ED
88
INY
;Passe à
TYA
90
CMP
;s uivante
!!24
;Test
91
BNE
HCT!
;de la page
1ig
si fin
•
Programme de
démonstration
TXT. DMP. DEMO
10
30
40
0
APPLE Il GS, APPLE Il E, APPLE Il C
RÉVEILLEZ VOUS!
GS RAM· GS RAM PLUS
Eltensilm m'mGlr. 512K • 8 MO avec patch 'Super Ajp
l leWorks' ".
mémoire cache.
RAMKEEPER
Alimenlaton perm.ntnle cie t cu 2 cartes mémoire en slct 8ltension as.
DISQUE DUR 3.5" BJX 20 MO
Oisq... Winchester 3.5" IIIIfnt. cOmpild .1 rapide. patlil:ioooablll sous
diU,,.ntl ,ys"mu. LIVI' avtc son dl.c'eur de pfogrammu Il
utiUllifli ln nombrl.
TRANSWARP
liE:
Ace"'r.!.ur 3.6MgI dl le m6meNr. Pmc:4WI, aUJI�ÎlÎr' et d., acc"
RolI'I. V�IUI �I&bll 1\lI 1& c"'•• au cl&vier I! Igne dt p'oglllMll.
65
0
Z·RAM ULTRA 1.2.3
IIC:
APPLE Il FOR EVER
Patch
"Super
AppleWorks". Tableau de bOfd de
contlgur.tlon: 22.800 lignes. 22.600 lichu, 2.042 eoupat·coller,
bu!l.r d'Impression, IIU'I'oarde plr luto·segmentation, dale et heure'
tkran .t ln cal'goMI bue dl données.
CHR$
0
AS
"POM'S":
+
S
(21) .,,* ...:
IF FLAG THEN B$
IF FLAG THEN C$ - " H A R
T E X T
0
IF FLAG THEN
PRINT A$;: IF FLAG THEN
90
FOR l - 1 TO 21
100
PRINT " """" ;
110
IF FLAG THEN
120
HrAB 40
HTAB 80:
NEXT l
170
IF
:
GOTO 130
PRINT B$:
FLAG THEN
PRINT A
IF FLAG THEN
VTAB 4: HTAB 7:
INVERSE
PRINT A$; "II""
IF FLAG THEN
PRINT A$""""";:
TAB( 5);
160
C O P l
D
PRINT D$"PRf.3"
$"*";
150
" P 0
..
70
130
NEXT
..
80
PRINT
VTAB Il
HTAB
24:
INVERSE
GOTO 190
180
HTAS
190
PRINT C$
200
13:
VTAB 18:
EN
FLASH
TAB ( 20).-
NORMAL
PRINT
PRINT
"Mettez
:
220
VTAB 20:
HTAB 4:
IF FLAG TH
votre imprimante en
rche"
IF FLAG THEN
HTAS 8:
ma
PRINT
TAB{ 20);
230
240
••
,
E
210
Extension m6molr. d. 256K • t MO av.e pO$sibi�,' hooo91 eUou
CP/AM. P.teh". R.mOisq... BOUS OOS, PlOooS. CP/AM. Cc"l'atibll ne
128K, 128K Rom 3.5, 384K.
-
�
60 C$ - "HAEW COPIE TEXT"
IIGS,IIE:
d'upIGIt.lion. SaU'leg.ucle p'rmaoerlle avec RamCNilrger. Patch" sur
Apple liE.
PRINT
FOR J- 1 TO 3 9:A$
M
140
RAMFACTOR·RAMCHARGER
,,"mGI,. cie 5t2K • 5 MO partitionnable sous dil1érents syst'mes
,
HOME
CHR$ (4) :FLAG
PRINT D$; "BLOADTXT, DMP, Co,
50 BS
BRÉJOUX AE· Applied Engineering
29 rue l.4ontribbud 69009lYON Tél: 78.36.52.69
,
TEXT
20 DS
RTS
lias:
FD 68
sur l' i mp rim==
'_'_
- ___
__ '_'_' _'_"_ '_c_'_
'_
c_
_
' _
'_
' D'
_
_
'_'
_
' "=t= e= _
'_
_
-
89
93
06 30 08
0348:09 80 20 ED FD ce co 28
,-Envoi de
•
86
92
8
edit
$OU$ ntOlIi/l!ur, IJOUI la sauvl!gardull
[, $80
76
78
79
Récapitulation
TXT.DMP.C
250
260
PRINT "puis tapez sur une touche"
- 16384,128: POKE
- 16368,0
l'lAIT
PRINT D$"PRf.l":
Ri.O "
HOME
:
CALL
IF FLAG THEN
768: PRINT D$"P
END
270 FLAG - 1: GOTO 50
Porn's nO 34
flLpp!eWorkJ : ies macro-cow:rnandes
L'un des reproches que l'on adresse à la version française lA
d'AppleWorks est qu'clic n'a pas (en tableur) les fonctions
tJJimitri (jeystor
START
àROUND, àAND et àOR de sa sœur 2.0 américaine. pas
O:<asp>àif«msg>"
plus qu'elle ne possède de programme de mailing.
uis RETURN'<input>:1; (àif«msg>" "<msg>'OR : de
Qu'à cela ne tienne, SupcrMacroWorks permet de
contourner ces lacunes avec élégance. Pour vous meure en
appétit. Porn's vous propose, dès ce mois-ci el dans la
nouvelle
rubrique
consacrée
à
AppleWorks
el
SuperMacroWorks, les lrois macros AND, OR Cl ROUND.
Rappelons que les fichiers de macro-commandes sc
présentent sous la forme de fichiers traitement de lexie
AppleWorks. Une fois que vous avez modifié votre
ApplcWorks avec le logiciel SMW. tout cc que vous avez à
et faire ô= pour compiler celles·ci et les rendre actives.
faire est de charger le fichier de macros, J'appeler à l'écran,
Les macros sont actionnées en appuyant simultanément sur
la touche '* et la touche d'identiflcation de la macro. Pour
"<msg>'OR : première expression,
p
tn>< msg> ' Résul t at du OR' !
uxième expression,
puis RETURN'<input>;l;O»)<r
A:<asp>àif«msg>"
"<msg>' AND
: première expression,
uis RETURN ' < input >; (àif«msg>"
xième expression,
p
"<msg>'AND : cleu
puis RETURN'<input>;l;O);O)<
rt n><msg> ' Rés ult at du A.�D'!
R:<a sp>à int««msg>" "<msg> ' Express i on à arrond
,
ir
puis RETURN'<input» +,OOS)*lOOl!lOO<rtn><m
sg>'Arrondi à deux déc imales '!
END
plus de détails sur la syntaxe des macros, reporleZ vous au
manuel français qui accompagne SMW.
Quelques mots d'explication sur ces macros. Elles tirent
Voici le listing de la macro AND.OR.ROUND. Vous
trouverez ce fichier sur la disquette d'accompagnement de
Pom's. Une dernière remarque: le pavé explicatif enlee les
deux traits d'astérisques n'est nullement nécessaire pour le
parti de trois formules classiques:
pour l'arrondi à 2 décimales : àINT«(Expression) +
()()5)' 1()()li1()()
•
pour OR: àIF(Exprl;I;(àIF(Expr2;l;O) ) - il suffit que
bon fonctionnement des macros, mais c'est une bonne
Exprl ou Expr2 soit vérifiée pour que la formule
habitude à prendre: il fait exactement les dimensions d'un
renvoie
écran, et rappelle en quelques lignes les fonctions el
pour AND : àlF(Expl;(àIF(Exp2;I;O);O»· il faut que
1.
Exprl et Expr2 soient vérifiées pour que la formule
commandes qui suivent.
renvoie 1.
L'introduelion des expressions se fait par la fonction
<inpuD : la macro s'arrête, et attend l'cnleée de texte au
clavier. La macro reprend aussitôt après un 'Rcturn' au
APPLEWORKS 1.4 - SuperMacroworks
clavier (qui n'est pas ajouté à l'input). Pour que la macro
AND.OR.ROUND
La
f r an ç aise
version
soit compréhensible, il faut faire précéder <inpuD de la
1.4
d'Appleworks
ne
àAND et
àOR
contient pas les fonctions àROUND,
de
la version américaine 2.0.
Mais
il
est
i nt roduire
fich ier .
t ou t
avec
à
possible
tlR, ,b,
fait
les macros
et
de
tlo
les
de ce
a l l e z dans
reste
qu'à
un tableur,
et expérimentez.
introduire
expressions.
Dimitri Geystor - Novembre 1987
Porn's n° 34
MOllseText (*
*). Dans le cas des macros ci-dessus, la série
d'espaces entre" " efface le début de la ligne (où va
s'inscrire l'input), et le message proprement dit, cnlee ' " est
volontairement déporté vers la droite.
attention aux apostrophes dans les messages en vidéo
Les macros vous guident par des messages,
vous
l'écran, en caractères normaux (" "), inverses (' ') ou
Notes :
Compilez avec (jpuis
fonction <msg>, qui permet d'afficher un message au bas de
les
il ne
valeurs
ou
inverse: remplacez-les par un
<0>
si vous ne voulez pas
que la suite du message se retrouve dans les endroits les
plus inattendus...
<inpuD accepte non seulement l'entrée de caractères,
mais les déplacemenls par les flèches el la souris.
tous ceux qui font régulièrement de la rédaction:
Voici, avant de vous quitter, une autre macro fort utile pour
9
=
quand toutes les commandes qu'elle contient ont été
exécutées ;
APPLEWORKS 1.4 - SuperMacroWorks
ou
CO�PTE-MOTS
Cette
permet
macro
nombre de mots
texte.
de
quand une condition qu'elle contient n'est pas remplie (si
compter
rapide1:1ent
le
dans un fichier de Traite�ent de
Par "mot"
il
faut
entendre
tout
groupe
compte
se
fait
du
avec
�,
aux
endroits voulus,
caractères
t
précédés
curseur
d'un
jusqu'à
espace.
deux
Compiler
placer les caractères t et le curseur
mots s'inscrira
t aper
à la fin,
.5.
Le
nombre
de
à la place du double
t.
certains
groupes de
caractères sc répètent régulièrement, à peu de chose près.
0 : écrire le
C'est l'occasion ou jamais d'utiliser, pour la copie au
clavier, une autre particularité de la Macro
groupe de caractères une seule fois, meure le curseur sur le
premier caractère, et répéter
CI (c'est+à-dire <rcac!»
la fin du groupe à recopier. Maintenant la Macro
jusqu'à
0 contient
ce groupe, qu'on peut reproduire autant de fOÎs qu'on le
Cette macro utilise les mémoires de la Macro 0,
et
Note :
dans la macro "Compte-mots",
de caractères entre deux espaces.
Le
la condition est remplie, elle se poursuit normalement).
les
mémoires
supplémentaires
pour stoc�er les valeurs des
1,
unités,
2,
3 et
4
dizaines,
désire en faisant -O. Puis, en mode recouvrement, on
apportera
rapidement
les
quelques
retouches
supplémentaires.
centaines et milliers pendant le décompte.
*A.*.A ••A*••••*••••_.* ... *•••*••••• _ •••********
Dimitri Geystor - Décembre 1987
macro
plus
élaborée,
avec
recours
à des
macros
conditionnelles, au chaînage et à l'incrémentation de
variables.
START
_, d'aller chercher
une adresse dans une base de données d'adresses, d'ouvrir un
Elle permetlra, en une seule commande
Les macros suivantes s'appellent en cascade:
S:<all><insert><O->O<saveO>1<save0>2<saveO>3<sa
-M>!
Dans le prochain numéro, nous vous présenteront une
en démarre
fichier traitement de texte et de faire la mise en page d'une
lellre-lYpe contenant votre en-tête, l'adresse du destinalaire
choisi et la date; petit raffinement: cette macro par la
M:<all><sa-C><O->1<saveO>4<sa-c><O->2<saveO>4<s
même occasÎon (et sans intervention supplémentaire)
a-C><O->3<saveO>41
renommera le fichier traitement de texte ouvert en lui
Milliers
C:<all><sa-D><O->1<saveO>3<sa-D><O->2<saveO>3<s
a-D><O->3<saveO>3<sa-D> <O->4<saveO>3<sa-D><O->
5<saveO>3<sa-D><O->6<saveO>3<sa-D><O->7<saveO>3
<sa-D><O->8<saveO>3<sa-D><O->9<saveO>3<sa-D><O
->O<saveO>31
donnant le nom qui figure dans l'adresse...
Les deux
fichiers de macros
AND.OR.ROUND et
COMPTE.MOTS, prêts à l'emploi, sont inclus dans la
disquette d'accompagnement de ce numéro de Pom's.
Centaines
D:<all><sa-U><O->1<saveO>2<sa-U><O->2<saveO>2<s
û
a-U><O->3<saveO>2<sa-U> <O->4<saveO>2<sa-U><O->
5<saveO>2<sa-u><O->6<saveO>2<sa-U><O->7<saveO>2
<sa-U><D->8<saveO>2<sa-U><O->9<saveO>2<sa-U><O
->O<saveO>21
Dizaines
U:<all><sa-K><O->1<saveO>1<sa-K><O->2<saveO>1<s
a-K><O->3<saveO>1<sa-K> <O->4<saveO>1<sa-K><O->
5<saveO>1<sa-K><O->6<saveO>1<sa-K><O->7<saveO>1
<sa-K><O->8<saveO>1<sa-K><O->9<saveO>1<sa-K><O
->O<saveO>ll
Unités
K:<all><oa-right><sa-t>!
Compteur
t:<all><if>t<right><if>E<del>«spc>-<spc><loadO
>4<sa-O><loadO>3<sa-O>< loadO>2<sa-O><loadO>1<s
a-O><spc>mcts<right><del><spc>l<stop>l
retour.
Test et
ou arrêt et résultat
HGR/Minitel sur
Sur les Apple
Ile, la configuration de
l'Interface est perdue à chaque PlU:.
Aussi, dans le programme de
transformation d'Images HGR en
Images semi-graphlques Minitel
(Pom's 33], Il convient de modifier
les lignes suivantes:
40080
PRINT
CHR$(4)"PRf.2":
PRINT
CHR$(1)"lD"CHR$(1)"3P"CHR$(1
)"8B"
63040 PRINT
END
Ile
CHR$(4)"PRf.2" :
PRINT
CHR$(1)"lD"CHR$(1)"3P"CHR$(1
) .. 8B"
Pour l'explication du mécanisme de ces macros (comme
pour (ouleS les macros en cascade), voir le manuel page
16.
La macro appelée renvoie au point d'appel de la macro
appelante:
10
Sur la disquette d'accompagnement
de la revue. ce petit problème avait
été réglé.
Porn's n° 34
J. L. 13azanegue, C. Piard
-
Pom_Linl2.1
•
•
40 instructions qui sertJent
bjectivement, l'importance et les
ressources des librairies Pom_Link ne
les destinaient pas a priori à une
publication dans les pages de Porn's
mais plutôt en logiciel édité à part.
Pomts se devait toutefois à la fidélité
de ses lecteurs ; aussi, ce serveur
Vidéotex vous est proposé en deux versions qui
satisferont les besoins de chacun.
La version 2.1 dont nous discuterons ici regroupe une
quarantaine d'instructions nouvelles. orientées télématique,
ajoutées à celles de volte Basic (AppleSoft sur l'Apple Il.
Basic Microsoft 2.0 et plus sur le Macintosh). Cette
version comporte le nécessaire à la réalisation d'un véritable
serveur Vidtotcx qui n'aura ricn à envier aux serveurs du
sur les disquettes d'accompagnement Macintosh et Apple /1.
3615. Pom_Link 2.1 est publiée dans ces pages, donc aussi
Les sources de la version Macintosh, beaucoup trop
volumineux, n'ont pas pu être placés dans ces pages, mais
Que font-elles ?
Chaque routine Pom_Link a une fonction d'envoi et/ou de
récepLÎon de caractères vers ou depuis le Minitel 'servi'.
Ainsi, il est plus agréable d'écrire dans son programme
Basic:
DEPLACE
1,
16
pour positionner l e curseur en ligne l , colonne 1 6 plutOt
que la suite d'instructions:
ouvrir
PRINT
termer
port
_'rie
CBR$C31}
port
en
_ortie
CBR$(64+1l
CER$ (64+16)
_'rie
Réaliser un 'INPUT' sur le Minitel servi en Basic est quasi
irréalisable alors que celui proposé ici est déjà beaucoup
plus puissant que celui de l'AppleSoft. Chaque nouvelle
fonction offre à chacun la possibilité de piloter un serveur
sans pour autant maîtriser les égarements de la norme (?)
Vidéotex; il faut LOutefois en dire un mot.
ils sont toutefois sur la disquette Mac 34.
Le Vidéotex
au mode téléinformatique (style CalvaCom, mode ASCII
Dans le descriptif de chaque instruction figurent souvent des
La version 3.0, disponible en produit à pari, ouvre la porte
80 colonnes) mais va également plus loin dans
l'exploitation du mode Vidéotex. Elle donne également à
l'ocran de l'ordinateur serveur un écho des entrées/sorties
(utiles pour rechercher les bugs).
remarques du fait de contraintes Vidéotex, ct i l faudra
pardonner aux librairies de n'avoir pas totalement supprimé
la lourdeur du système. La couleur du fond qui repasse au
noir lors d'un déplacement, le soulignement qui n'est validé
qu'après affichage d'un espace par exemple sont à prendre cn
Pourquoi des librairies ?
Certes, Pom's pouvait publier comme produit unique et
final le répondeur télématique donné en exemple mais le
résultat aurait été figé. De nouvelles instructions ajoutées
considération lors de la programmation. Conséquence de ces
petites contraintes. cenaines instructions ne fonctionne pas
_ ou au moins pas normalement pour certaines - en local,
c'est-à-dire MinilCl serveur non connecté: cela compliquera
légèrement la mise au point.
au Basic pcnnettent à chacun:
de mooificr simplement ce rép:mdeur et de J'adapter à ses
besoins;
de créer son propre serveur spécialisé.
Les librairies permettront de mettre en œuvre vOLTe
imagination. De plus, ne doutons pas qu'elles serviront de
base à bien d'aulres programmes dans les prochains
numéros.
Mise en œuvre...
Une synta:o:e commune à l'Apple Il e t au Macintosh à été
retenue ct, pour ne pas dupliquer les e:o:emplcs, voici le
mode d'utilisation sur chaque appareil:
... sur l'Apple
/1
La première instruction du programme Basic serveur doit
�tre la suivante:
IF
POKE
(104)
+
PEEK (103) < >
103,1: POKE 104,30:
7680,0: PRINT CHR$(4) "-nom"
PEEK
7681
TH EN
*
256
POKE
où nom eSlle nom de votre programme Basic.
La ligne suivante sera:
PRINT
Optimiser HGRIMinitel
CHR$(4)"-POM.LINK.2.1"
Les nouvelles instructions sont alors disponibles avec la
syntaxe suivante:
Instruction dans le mode d'emploi de Pom_Link :
ALERTE "interdit",l
Sur l'Apple Il :
, ALERTE,
"interdit",
En ajoutant la ligne suivante au
programme de conversion
HGRlMinitel du numéro 33 de Porn's,
on gagne un temps précieux :
50135 IF MN% THEN 50160
1
Pour convertir Lady, il faut avec cette
ligne 2'55, et 4'45 sans ...
Autrement dit, les mOlS-clé des nouvelles instructions sont
précédés de "&" et suivis de ",".
G. Lauvergnier, Rennes
... sur le Macintosh
L'instruction suivante devra être placée avant l'occurrence de
la première inSlfuction de Pom_Lînk utilisée:
LIBRARY "pom Link 2.1"
_
Dès lors, les nouvelles instructions sont disponibles telles
qu'elles sont décrites dans leur mode d'emploi:
ACCEPT
ALERTE "Interdit",l
à condition LOuterois d'avoir placé au début de votre
programme l'instruction du Basic Microsoft:
DEFSNG
retour.étoJ
A-Z
But
A-Z
Si vos habitudes vous conduisent à utiliser DEFINT (ce
qui est, à notre humble avis, la meilleure solution) ou
DEFSTR, il vous faudra placer un point exclamation '!'
ou - mais moins efficace - un dièse '#' juste après le nom
de l'inst.ruction. Vous obtiendrez alors:
indifféremment en majuscules ou minuscules; ainsi:
vous
.
.
taille des caractères utilisés:
•
."
•
mode = 0 : taille nonnale ;
mode = 1 : double hauteur.
sollicitation est une variable ou expression chaine qui sera
est aussi valide que
AFFICHER! "Bonjour chez
indiquant la position de la zone de saisie sur l'écran du
mode est une variable ou expression entière désignant la
Notons enfin que le nom des instructions peut être saisi
"Bonjour chez
Explications
colonne el ligne sont des variables ou expressions entières
ligne doit être compris entre 1 et 24 inclus.
"Interdit",l
AfficheR!
Gère une zone de saisie contrôlée.
Minitel. colonne doit être compris entre 1 el 39 inclus.
A LE RTE ' " I nte rdit " , !
ALERTE!
Syntaxe de l'instruction
A CC E PT coloMe)igne,mode.sollicitatwn,longueur,
ou
DEFDBL
(ne fonctionne pas en local)
vous . . . "
û
affichée avant la zone de saisie proprement dite. Le nombre
de caractères de sollicitation doit êlfe compris entre 0 et 39
inclus.
POM' S SUR MINITEL
(1) 39 53 0440
•
•
DES AUJOURD 'HUI, NOUS RESERVONS CE NOUVEAU
NUMERO DE TELEPHONE A VOS MINITELS.
V OUS y
TROUVEREZ A TITRE DE DEMONSTRATION LE
IIEPONDEUR TELEMATIQUE DE CE NUMERO.
Nous y
12
AVONS ADJOINT UN MODULE SUSCEPTIBLE
'
D ENREGISTRER DES COMMANDES.
Pom's n° 34
longueur indique le nombre maximum de caractères qu'il
de saisie situés sur des positions inutilisées sont
sera possible d'entrer dans la zone de saisie. Afin de
effacés :
matérialiser la zone, ACCEPT affiche autant de points que
lorsqu'un message est affiché dans la ligne 0 , une action
sur le clavier du Minitel provoque l'effacement de ladite
nécessaire. longueur doit être compris entre 1 et 39 inclus.
retour est une variable chaîne dans laquelle sera retournée la
chaîne de caractères entrée. Si la variable chaine retour n'est
ligne;
'
les caractères',' et ':' sont remplacés par un point ('.')
pas vide, son contenu sera utilisé comme texte par défaut'
et affiché en début de zone de saisie. La longueur de la
(uniquement avec l'Apple Il comme serveur).
chaine de caractères représentée par retour ne peut pas être
Exemples
10
REM Exemplas
itat est une variable entière indiquant les conditions de
20
ACCEPT
5.8 , 1 , "Nom
30
ACCEPT
CO% , LI % + l , l , A$+":
40
O N ET%+l
supérieure à la longueur de la zone de saisie.
sortie de l'instruction:
état
=
état
=
0 : pas de caractère saisi depuis plus de 2 minutes
(voir le paragraphe "Côté utilisateur'');
d ' u t i l i a a t i o n d ' ACCEPT
GOSOB
:
" , 12 , CH $ , E T %
" , 1 0 , C $ , ET'
1 00 , 2 0 0 , 3 0 0 , 4 0 0 , 5 0 0 , _
Voir aussi ACCEP1F, SAISIE et SECRET.
1: sortie par ENVOI ou 'retour·chariot' ;
état = 2 : sonie par RETOUR ;
état = 3: sonie par REPETITION;
état:::: 4: sortie par GUIDE;
état::::
5:
sonie par ANNULATION (voir le paragraphe
"Côté utilisateur");
7: sonie par SUITE;
état = 6 : sortie par SOMMAIRE;
élUt
=
élUt
=
Syntaxe de l'instruction
Remarques
la somme de colonne + longueur de sollicitation +
longueur ne doit pas être supérieure à 40;
ACCEPTF état
nul
ACCEPT provoque le passage en moere texte;
le curseur est invisible lors du retour au programme
Basic.
Côté
Attend pendant 2 minutes maximum une action sur une
touche de fonction.
Explications
utilisateur
ACCEPT place le curseur sur la première position de la
zone de saisie ou, si une chaîne par défaut est utilisée,
état est une variable entière contenant, au retour, le code de
la touche de fonction:
état:::: 0 : pas de caractère saisi depuis plus de 2 minutes
sur la position suivant cette chaîne;
(voir le paragraphe "Côté utilisateur'') ;
élUt:::: 1: ENVOI ou 'retour-chariOl' ;
si l'on tente d'entrer plus de caractère que n'en prévoie la
zone de saisie, ACCEPT émet un 'bip' et affiche le
état:::: 2 : RETOUR;
message "Fin de zone" dans la ligne 0 ;
état = 3: REPETITION;
la touche CORRECTION déplace le curseur d'une
état:::: 4 : GUIDE;
position vers la gauche en effaçant un caractère. Si le
curseur se trouve sur la première position de la zone de
saisie, une action sur la touche CORRECTION
provoque l'affichage du message "Rien à effacer" dans la
ligne 0 ;
•
zone
de
saisie,
une
action
sur
la
touche
ANNULATION vide la zone de saisie et place le curseur
sur la première position. Si le curseur se trouve sur la
première position de la zone de saisie, ANNULATION
provoque un retour au programme Basic avec état = 5
;
toutes les touches de fonction provoquent un retour au
ANNULATION dans l e cas cité précédemment;
programme
Basic
sauf
CORRECTION,
et
si le clavier du Minitel n'est pas sollicité pendant une
minute, ACCEPT émet un 'bip' et affiche le message
"Déconnexion imminente" dans la ligne O. Si rien ne se
passe pendant la minute suivante, il y a retour au
avant retour au programme Basic, les points de la zone
programme Basic avec état:::: 0 ;
Pom's n° 34
état:
5
état
=
6 : SOMMAIRE;
état
=
,
ANNULATION;
7: SUnE;
état"" 8: CONNEXION;
si le curseur ne se trouve pas sur la première position de
la
(ne fonctionne pas en local)
ACCEPTF
8: sortie par CONNEXION.
état
=
9 : CORREcnON.
Côté utilisateur
Si le clavier du Minitel n'est pas sollicité pendant une
"Déconnexion imminente" dans la ligne O. Si rien ne se
minute, ACCEPT émet un 'bip' et affiche le message
passe pendant la minute suivante, il y a retour au
programme Basic avec état = O.
Exemple
10
REM Exampla
20
ACCEPTF
d ' ut i l i s a t i o n d ' ACCEPTF
ET'
Voir aussi ACCEPT, SAISIE e t SECRET.
13
AFFICHE
Affiche un message d'alerte dans la ligne O.
Syntaxe de l'instruction
Explications
AFFICHE chaîne [;1 (sur l'Apple /f)
message est une variable ou une expression chaîne. la
AFFICHE choîne (sur le Macintosh)
But
Affiche une chaîne de caractères sur l'écran du Minitel
uti
l isateur, à partir de la position courante du curseur.
Explications
chaîne est une variable ou une expression chalne. Les
caractères portant des codes différents sur
l'ordinateur-serveur el le Minitel sont recodés. Sur
l'Apple 1/, AFFICHE fonctionne comme un PRINT : un
retour chariot est généré s'il n'y a pas de point-virgule à la
fin de l'instruction ; seule la chaîne est affichée dans le cas
contraire. Sur le Macintosh, seule la chaine est affichée.
longueur de la chaine de caractères doitêtre comprise enue
o et 36 inclus. Les caractères portant des codes différents
sur l'ordinateur-serveur et le Minitel sont recodés.
bip est une variable ou expression entière qui indique si le
message doit être accompagnés d'un 'bip' sonore:
bip = 0 : pas de 'bip' ;
bip <> 0 : émission d'un 'bip'.
Remarques
la ligne 0 est effacée avant affichage du message d'alene ;
il est possible d'utiliser ALERTE pour effacer la ligne 0
en passant une chaine de longueur 0 comme message ;
la posilion courante du curseur est rétablie après
exécution de J'instruction ALERTE. De même,
l'ensemble des attributs Vidéotex sont préservés et
restitués.
Remarque
Aux éventuels 'retour-chariot' (ASCII 13) contenus par la
chaîne de caractères sont ajoutés des 'line-feed' (ASCII 10).
Ceci autorise l'envoi direct d'un fichier. Par exemple, sur le
Macintosh:
AFFICBE
INPOT$ ( LOF ( l ) , l )
envoi la totalité du contenu du fichier #1 sur ,'éçran du
Minitel.
Exemples
10
REM Exampl • •
20
ALERTE
" T o u c h . " + A $ ( T \ l + " invalida " . B\
30
ALERTE
CR $ . O
4 0 ALERTE
d ' utilisation
"Communication
d ' ALERTE
interrompu e " , l
Voir aussi AFFICHE. AFFICHER. MfH.
Exemples
10
REM E x e m p l e .
20 AFFICHE
30
AFFICHE
"Paqe
40
AFFICHE
C$
II)
d ' u t i l i . a t i o n d ' AFTICHE
"O'but n ; (uniquement Apple
"+STR$ (NP')
APPEL
Syntaxe de l'instruction
Voir aussi AFFICHER, ALERTE, CHARIOT, MTH.
APPEL itat
Bu t
AFFICHER
(uniquement Macintosh)
Syntaxe de l'instruction
AFFICHER chaine
But
Identique à AFFICHE mais ajoute un 'relOur-chariol' à la
fm de la chaîne de caractères.
Voir aussi AFFICHE, ALERTE, CHARIOT.
Détecte la présence - ou J'absence - d'un appel
téléphonique.
Exp li c a ti on s
élaI est une variable entière contenant, au relOur :
•
o si aucun appel est délecté ;
1 si un appel est déœclé (-1 sur le Macintosh).
Remarque
Si APPEL délccle quelque chose, l'instruction s'assure de la
validité de l'appel en éliminant les impulsions inférieures à
25 centièmes de seconde.
ALERTE
Exemples
10
REM Exampl • •
Syntaxe de l'instruction
20
APPEL
ALERTE mess age,bip
30
IF
40
REM
NOT
d ' utilisation
d ' AP P E L
EU
ET'
THEN
20
APPEL
But
14
Pom's nO 34
BAS
rype est une variable ou expression entière qui indique le
[)'pC de cadre à afficher :
(ne fonctionne pas en local)
Type=O
Type= 1
Type=2
Syntaxe de ,'instruction
BAS nombre
D o
But
Décale l'écran Vidéotex vers le bas.
Explication
Mmbre est une variable ou expression entière qui indique
l'amplitude du décalage en lignes. nombu doit être compris
entre 0 el 24 inclus.
Remarque
BAS vide le tampon d'entrée des caractères (voir PURGE
pour le Macintosh).
Exemples
10
REM Exempl.,
20
BAS
d ' �t i l i • • tion
de
BAS
10
JO
BAS N ' + l O
fo O
BAS N $ ( U )
Voir aussi HAUT.
BIP
Syntaxe de J'instruction
lignage est une variable ou expression entière qui indique si
le cadre doit être tracé avec des caractères semi-graphiques
joints ou disjoints :
• lignage = 0 : caractères joints ;
lignage <> 0 : caractères disjoints.
Si Type '" 2, lignage est ignoré.
•
couleur C est une variable ou expression entière
représentant la couleur des caractères ;
couleur F est une variable ou expression entière
représentant la couleur de fond :
0% de gris
o : noir
50% de gris
1 : rouge
70% de gris
2 : ven
90% de gris
3 : jaune
4 : bleu
40% de gris
60% de gris
5 : magenta
80%
de gris
6 : cyan
7 : blanc
100% de gris
BIP
Remarques
But
•
Provoque l'émission d'un 'bip' sonore.
Exemple
10
REM Exempla
20
BIP
d ' ut i l i •• tlon
le rectangle minimum est de 3 caractères par 3 ;
après affichage du cadre, le curseur est placé dans l'angle
supérieur gauche du cadre ;
lors du retour au programme Basic, le Minitel utilisateur
est en mode texte, curseur invisible.
d. B I P
Yoir aussi ALERTE.
CADRE
Syntaxe de ,'instruction
Exemples
10
REM Ex.�pl.a
20
CADRE
X l % , Yl % , X 2 ' . Y2 ' . T ' , L' , C % , F%
d ' u t i l i a . t i o n d.
30
CADRE
1 0 , A% + 9 , B' , 2 4 , l , l , C% + 2 , F % ( A ' 1
Voir aussi VIDRECT.
CADRE xl,yl ,x2,y2,type,lignage,couleur C,couleur F
CHARIOT
But
Syntaxe de l'instruction
Trace un cadre à l'écran du Minitel utilisaleur.
CHARlOT [nombre]
Explication
xl, yI, x2 el y2 : coordonnées du rectangle dans lequel doit
s'inscrire le cadre. xl el x2 doivent être compris entre 1 et
40 inclus. yl et y2 doivent être compris entre 1 et 24
inclus.
Pom's n° 34
CADRE
But
ProvCXJue nombre 'retour-chariol'.
Explications
nombre est une variable ou expression entière facultaûve
15
qui indique le nombre de retours à l a ligne à effectuer. S i
nombr� est omis. CHARIOT provoque u n seul retour à la
ligne. nombre doit être compris entre 0 et 24 inclus.
Exemples
1 0 REM Exe�ple.
20
REM d e
30
CHARIOT
d ' u t i l i l at i o n
CHARIOT
40
CHARIOT
50
CHARIOT N '
Exemple
10
REM Exemple d ' utili • • tion
20
CNXR E T '
de CNXR
Voir aussi APPEL, CNXN, DECNX.
3
6 0 CHARIOT N'+2
CURINVIS
Voir aussi AFFICHE. AFFICHER.
Syntaxe de l'instruction
CURINVIS
Bul
CNXN
Rend le curseur n
i visible.
Syntaxe d e l'instruction
Exemple
CNXN
10
REM Exemple d ' u t i l i l at i o n
2 0 R E M d e CORINVIS
Bul
30
Connexion du Minitel serveur.
CORINVIS
Voir aussi CURVIS.
Exemple
10
REM Exemple d ' u t i l i l . t i o n
20
CNXN
de
CNXN
Voir aussi CNXR. DECNX.
CURVIS
Syntaxe de t'instruction
CURVIS
CNXR
(ne fonctionne pas en local)
Syntaxe de l'instruction
Bul
Rend le curseur visible.
CNXR état
Exemple
10
REM Exemple d ' u t i l i l a t i o n de
Bul
20
CORVIS
Retournement et connexion du Minitel serveur.
CORVIS
Voir aussi CURINVIS.
Explication
Cette instruction est normalement utilisée lorsqu'on a
détecté un appel téléphonique (à l'aide de l'inSlruclion
APPEL).
état est une variable entière dans laquelle on pourra trouver
au retour dans le programme Basic :
état '" 0 si le Minitel de l'utilisateur n'a pas été connecté
au bout d'une minute (dans ce cas, le Minitel serveur est
déconnecté) ;
état :: 1 (-1 sur le Macintosh) si le Minitel de
l'utilisateur a été connecté (dans ce cas. un message de
'copyright' est affiché pendant 4 secondes sur l'écran du
Minitel utilisateur).
Remarque
CNXR vide le tampon d'entrée des caractères (voir PURGE
DECNX
Syntaxe de l'instruction
DECNX
Bul
Déconnexion du Minitel serveur et du Minitel utilisateur.
Exemple
10
REM Exemple d ' u t i l i l a t i o n
20
OECNX
de OECNX
Voir aussi CNXN. CNXR.
pour le Macintosh).
16
Pom's
nO 34
Exemple
DEPLACE
Syntaxe de l'instruction
10
REM Exempl.
20
rIXE
d ' u t i l i s at i o n d. rIXE
Voir aussi FLASH, PARAMG, PARAMT.
DEPLACE colonne,ligne
B"'
Positionnement du curseur.
FLASH
Explications
colonne et ligne sont des variables ou expressions entières
indiquant la position du curseur. colonne doit être compris
entre 1 et 40 inclus. ligne doit être compris entre 1 ct 24
inclus.
REM
FLASH
B",
Passe en affichage clignotant.
Exemples
10
Syntaxe de J'instruction
Exemp188
d ' ut!liaation
Exemple
20
REM ae
30
DEPLACE
DEPLACE
2,10
10
REM Exemple d ' u t i l i s a t i o n
40
DEPLACE
2 , LI'
20
FLASa
50
DEPLACE
COl+2 , L' { N ' + 1 )
Voir aussi FIXE,
de rLASR
PARAMG, PARAMf.
Voir aussi LOCALISE.
(ne fonctionne p�s en local)
ENLIGNE
Syntaxe de l'instruction
Syntaxe de l'instruction
GR
ENLIGNE étal
B"'
Permet de s'assurer de la présence du Minitel utilisateur.
B",
Passe en mode semi-graphique.
Exemple
Explication
état est une variable entière dans laquelle on pourra trouver
au retour dans le programme Basic:
étal'" 0 si le Minitel utilisateur ne répond pas ;
éLat = 1 (-1 sur le Macintosh) si le Minitel utilisateur
répond nonnalemenL
Remarque
ENLIGNE vide le tampon d'entrée des caractères (voir
PURGE
GR
pour le Macintosh).
10
REM Exempl. d ' u t i l i s a t i o n d. GR
20
GR
Voir aussi PARAMG, PARAMT, TXT.
HAUT
(ne fonctionne pas en local)
Syntaxe
de l'instruction
HAUT nombre
Exemple
10
REM Exemple
20
ENLIGNE
d ' u t i l i s at i o n
ET'
FIXE
Syntaxe de l'instruction
de
ENLIGNE
B" ,
Décale l'écran Vidéotex vers le haut
Explication
nombre est une variable ou expression entière qui indique
l'amplitude du décalage en lignes. nombre doit être compris
entre 0 et 24 inclus.
FIXE
Remarque
B",
Passe en affichage non clignotant.
Porn's nO 34
HAUT vide le tampon d'entrée des caractères (voir PURGE
pour le Macintosh).
17
J[II I
Exemples
10
REM Exemp�as
20
BAUT
10
30
BAOT
N t. + 1 0
\1 0
d ' u t i l i s a t i o n de BAOT
slot est une variable ou expression entière
RAOT N t. (At. J
Voir aussi BAS.
IDENT
incliq'" quel
pan série devra être utilisé pour les entrées/sorties.
Exemples
(ne fonctionne pas en local)
10
REM Exemp�.s d ' u t i � i s a t i o n de
20
INIT
2
30
INIT
S t.
INIT
Voir aussi SERVOFF.
Syntaxe de l'instruction
IDENT va/eur l,valeur l,valeur 3,é/al
But
Retourne les lfois octets d'identification du Minitel
utilisateur.
Explication
valeur 1 est une variable entière dans laquelle IDENT
retourne le code constructeur du Minitel utilisateur ;
valeur 2 est une variable entière dans laquelle IDENT
retourne le type du Minitel ulilisateur ;
INVERSE
Syntaxe de l'instruction
INVERSE
But
Passe en affichage inversé.
Exemple
valeur 3 est une variable entière dans laquelle IDENT
10
REM Exemp�e d ' u t i � i B a t i o n
retourne le numéro de version du Minitel utilisateur ;
20
INVERSE
de
INVERSE
état est une variable entière dans laquelle on pourra trouver
au retour dans le programme Basic :
érat = 0 si le Minitel utilisateur n'a pas répondu ;
état 1 (-1 sur le Macintosh) si le Minitel utilisateur a
répondu nonnalement
Voir aussi NORMAL, PARAMG, PARAMT.
•
•
=
LIGNE
Remarques
si état = 0, le contenu de valeur 1, valeur 2 et valeur 3
est indéfini.
LIGNE
•
sur le Macintosh. IDENT vide le tampon d'entrée des
caractères (voir PURGE).
But
•
certains Minitel sont munis d'un logiciel qui
Initialise le mode lignage ou souligné.
•
Syntaxe d e l'instruction
ne permet pas l'émission des identificateurs ;
dans ce cas étal sera égal à O.
Explications
•
si le Minitel utilisateur est en mode semi-graphique,
LIGNE passe l'affichage en mode ligné (caractères
semi-graphiques disjoints) ;
•
si le Minitel utilisateur est en mode texte,
LIGNE passe l'affichage en mode souligné ;
Exemple
d ' u t i l i s a t i o n de
10
REM Exemple
20
IDENT V1 % , V2 % , V3 % , E T %
INIT
IDENT
(uniquement sur l'Apple /f)
Syntaxe de l'instruction
INIT slot
But
Initialise les routines sur le sial indiqué el vérifie
l'existence du port série.
Remarque
Dans le cas du mode texte, LIGNE envoie un atlfibut latent
qui ne sera validé par le Minitel utilisateur qu'à la réception
d'un espace (ASCII 32).
Exemple
1 0 REM Exemple
20
d ' u t i l i s a t i o n da
LIGNE
LIGNE
Voir aussi PARAMG, PARAMT, SANSLIGNE.
Explication
18
Pom's n° 34
LOCALISE
(ne fonctionne pas en local)
Syntaxe de l'instruction
LOCALISE colonne.ligne,élat
But
Retourne la position courante du curseur.
MTH
(uniquement sur l'Apple If)
Syntaxe de l'instruction
MTH mode
But
Modifie le recodage des caractères issus de l'instruction
AFFICHE.
Explication
colonne Cl ligne sont des variables entières dans lesquelles
LOCALISE retourne la position courante du curseur.
é/al est une variable entière dans laquelle on pourra trouver
au retour dans le programme Basic :
état = 0 si le Minitel utilisateur ne répond pas ;
état = 1 (-1 sur le Macintosh) si le Minitel utilisateur
rép:md nonnalcmcnt.
Remarques
si étal :: O. le contenu de colonne et ligne est indéfini.
LOCALISE vide le tampon d'entrée des caractères (voir
PURGE pour le Macintosh).
Exemple
10
REM Ex.�pl.
20
REM d .
30
LOCALISE
d ' utilisation
LOCALISE
CO\ , L I l , E T '
Voir aussi DEPLACE.
Explication
mode est une variable ou expression entière qui indique le
type de recodage de cenains caractères :
mode :::: 0 : mode littéraire (par défaut) ;
•
mode <> 0 : mode mathématique.
Apple Il
Minitel
littéraire
mathématique
1
é
é
è
è
ç
ç
\
à
§
à
0
0
J
[
ù
Ù
E
'li
E
a
•
à
�
@
1
#
ra
autres voyelles accentuées : idem
a
aultCS voyelles accentuées : idem
rt
leures non accentuablcs : idem
Remarque
MODE
Tous les Minitels n'ayant pas les mêmes ROM d'affichage,
les résuhats peuvent varier légèrement d'un modèle à
Syntaxe de l'instruction
l'autre.
MODE mode
Exemples
But
10
REM Exemple.
Change le mode d'affichage.
20
MTH
30
MTB M '
l
d ' utlllaation
de MTH
Explications
mode est une variable ou expression entière indiquant le
mode d'affichage à utiliser :
•
mode = 1 : double hauteur ;
mode = 0 : caractères nonnaux ;
NORMAL
mode = 2 : double largeur;
Syntaxe de l'instruction
mode = 3 : double taille.
NORMAL
•
Remarque
But
MODE provoque le passage en mode texte.
Passe en affichage non inversé.
Exemples
Exemple
10
REM Exemplea
20
MODE M'
30
MODE M'+A\ I B ' l
40
MODE
2
d ' u t l l i a a t i o n de MODE
10
REM Exemple
20
NORMAL
d ' u t l l i a a t i o n de NORMAL
Voir aussi INVERSE, PARAMG, PARAMT.
Voir aussi PARAMT.
Pom's n° 34
19
mode = 0 : caractères normaux ;
mode = 1 : double hauteur ;
PARAMG
mode = 2 : double largeur ;
mode = 3 : double taille.
Syntaxe de l 'instruction
couleur C est une variable ou expression entière
PARAMG cou/tur C,couleur F,lignage,flash
rcprésentamla couleur des caractères ;
nut
représentant la couleur de fond ;
o : noir
0% de gris
couleur F est une variable ou expression entière
Passe en mode semi-graphique et établü les paramètres
d'affichage.
Explications
couleur C est une variable ou expression entière
représentant la couleur des caraclères ;
couleur F est une variable ou expression enlière
o : noir
représentant la couleur de fond ;
2 : vert
3 : jaune
4 : bleu
5 : magenta
6 : cyan
: blanc
: bleu
: magenta
: cyan
: blanc
50% de gris
70% de gris
90% de gris
40% de gris
60% de gris
80% de gris
100% de gris
flash est une variable ou expression entière déterminant la
0% de gris
50% de gris
70% de gris
90% de gris
40% de gris
60% de gris
80% de gris
1 : rouge
1
: vert
: jaune
1 : rouge
2
3
4
5
6
7
fixité ou le clignotement (inversion des points du caractère
une fois par seconde) :
•
flash
•
flash <> 0 : caractères clignotants.
=
0 : caractères fixes ;
inversi est une variable ou expression entière indiquant si
les couleurs de carac:Lere et de fond doivent être inversés ou
100% de gris
non :
ligno.ge est une variable ou expression enLÎère qui indique si
les caractères doivent être affichés avec des caractères
•
inversé = 0 : couleurs normales ;
•
inversé <> 0 : couleurs inversées.
semî-graphiques joints ou disjoints :
souligni est une variable ou expression entière qui indique
•
si les caractères doivent être soulignés :
•
lignage = 0 : caractères joints ;
lignage <> 0 : caractères disjoints.
souligné = 0 : caractères non soulignés ;
flash est une variable ou expression entière déterminant la
•
1
souligné <> 0 : caractères soulignés.
fixité ou le clignotement (inversion des points du caractère
Remarque
: caractères fixes ;
une fois par seconde) :
flash "" 0
•
flash
Les paramètres couleur F et souligné constituent des
attributs latents qui ne seront validés par le Minitel
<> 0 : caractères clignotants.
utilisateur qu'à la réception d'un espace (ASCII 32).
Exemples
REM Exemple. d ' u t i l l . a t l o n
PARANe C C ' , C F ' , L I ' , F L '
10
REM Exemple.
30
PARAMe
20
PARAMT
M ' , CC ' , CF ' , F L % , I N % , SO'
40
PARAMe CCH 1 , A' { CU ) . IN T { L' / 2 ) , 0
30
PARAMT
2,0,7,1.1,1
40
PARANT N ' + { V ' <3 ) , 0 , 7 , 1 , l , SO % < > 1 0
Voir aussi
de PARAMG
Exemples
10
20
7,0,1,1
d ' u t i l i a a t i o n de
PARANT
FIXE, FLASH, GR, LIGNE, PARAMT,
SANSLIGNE, TXT.
Voir aussi
FIXE, FLASH, INVERSE, LIGNE, GR,
NORMAL, PARAMG, SANSLIGNE, TXT.
PARAMT
Syntaxe de l'instruction
PARA MT mode,eoulew C,eou/eUT F,jfash
inversi,souligni
nut
Passe en mode texte et établit les paramètres d'affichage.
Explications
mode est une variable ou expression entière désignant la
taille des caractères :
20
PURGE
(uniquement sur le Macintosh)
Syntaxe de l'instruction
PURGE
nut
Vide le wnpon d'entrée des caractères.
Explications
Les instructions de cette librairie qui reçoivent des
caractères utilisent un tampon d'entrée capable de stocker
Pom's n°
34
1024 caractères. Celui-ci permet à J'utilisateur d'anticiper
les commandes ou le remplissage des zones de saisie.
Cependant, suivant le type de traitement effectué par le
serveur, il peut êlle utile de vider le tampon d'enllée pour
être sûr de n'exploiter que des caractères 'frais' (par exemple
avec SAISIE).
But
Passage en mooe page ou en mode rouleau.
Explication
condition est une variable ou expression entière qui n
i dique
le type d'affichage à utiliser :
Remarque
Les insltUcLÎons suivantes vident le tampon d'entrée :
•
condition ::: 0 : mode page ;
condition <> 0 : mode rouleau.
CNXR
Remarque
BAS
ROULEAU vide le tampon d'entrée des caractères (voir
ENLIGNE
HAUT
PURGE pour le Macintosh).
IDENT
Exemples
LOCALISE
ROULEAU
Exemple
10
REM Exemple d ' ut l l l . at l o n
20
PURGE
d_ PURGE
10
REM Exempl • •
20
REM d.
30
ROOLEAO
l
40
ROOLEAU
R tl
50
ROOLEAU R \ - O
d ' u t l 1 l . at i o n
ROOLEAO
SAISIE
Syntaxe de l'instruction
REINIT
SAlSIE caractère
Syntaxe de J'instruction
REINIT
But
But
clavier du Minitel uLÎlisateur, ou une chaîne vide si aucun
Retourne une chaîne contenant l e caractère frappé sur le
caractère n'a été sollicité.
Réinitialisation du Minitel ulilisaleur.
caractère est une variable chaîne qui reçoit le caractère
éventuel.
Explicat ions
Explications
Le Minitel utilisateur passe en :
mcxle Vidéotex
carxtcrcs blanc
Si le code ASCII du caractère retourné est inférieur à 32
(espace), l'utilisateur a sollicité une touche de fonction :
fond noir
taille normale
ASC(caractère) '" 1 :
ENVOI ;
ASC(caractère) '" 3 :
REPETITION ;
ASC(caractère) '" 2 :
non souligné
non inversé
non flash
ASC(caractère) ::: 4 :
GUlDE ;
ASC(caractère) '" 6 :
SOMMAIRE ;
ASC(caractère) '" 5 :
Remarque
REINIT émet un espace (ASCII 32) afin de valider le mode
non souligné et la couleur de fond.
RETOUR ;
ASC(camctère)
•
ASC(caractère)
•
7:
8:
ASC(caractère) • 9 :
ANNULATION
SUITE ;
CONNEXION ;
CORRECTION ;
ASC(caractère) '" 13 : RETOUR-CHARlOT.
Exemple
10
REM Exemple d ' u t i l l . a t l o n d e R E I N I T
20
REINIT
Voir aussi
sur le Macintosh, lorsque le tampon d'entrée contient
SANSLIGNE, TXT.
FIXE,
ROULEAU
Remarques
FLASH,
LIGNE,
PARAMT,
(ne fonctionne pas en local)
plusieurs caractères, le caractère retourné par SAISIE est
le premier caractère enllé non lu (voir PURGE).
l'ordinateur-serveur sont recodés.
les caractères dont les codes diffèrent sur le Minitel et
Exemple
10
REM Exempl.
20
SAISIE
d ' u t i l i . a t i o n de
SAISIE
Cl
Syntaxe de l'instruction
ROULEAU condition
Porn's n° 34
Voir aussi ACCEPT, ACCEPTF, SECRET.
21
Exemple
SANSLIGNE
10
REM Exemple d ' u t i l i •• t i o n
20
SERVOFF
Syntaxe de l'instruction
Voir aussi lNlT.
de
SERVOFF
de
TXT
SANSLIGNE
nut
Initialise le mode non ligné ou non souligné.
TXT
Explications
Syntaxe de l'instruction
si le Minitel utilisateur est en mode semi-graphique,
TXT
SANSLIGNE passe l'affichage en mode non ligné
(caractères scmi-graphiquesjoints) ;
•
si
le
Minitel
utilisateur
est
n ut
en
mode
texte,
Passe en mode texte.
SANSLIGNE passe l'affichage en mode non souligné ;
Exemple
Remarque
10 REM
Dans le cas du mode texte. SANSLIGNE envoie un attribut
20
Exemple
d ' uti1i ••tion
TX T
latent qui ne sera validé par le Minitel utilisateur qu'à la
réception d'un espace (ASCII 32).
Voir aussi GR. PARAMG. PARAMT.
Exemple
10
REM Exemple
20
R E M de
30
SANS LIGNE
d ' utililation
SANSLIGNE
VIDECRAN
Syntaxe de l'instruction
Voir aussi PARAMG. PARAMT, LIGNE.
VIOECRAN [couleur]
nut
SECRET
(ne fonctionne pas en local)
Syntaxe de l'instruction
SEC R ET colonne,lignemode,sollicitation.longueur,
retour,état
efface le conlenu de l'écran en utilisant la couleur désignée.
Explications
couleur est une variable ou expression entière optionnelle
qui désigne la couleur à utiliser pour effacer le contenu de
l'écran :
o
But
: noir
0% de gris
50% de gris
70% de gris
90% de gris
40% de gris
60% de gris
80% de gris
100% de gris
1 : rouge
2 : vert
3 : jaune
4 : bleu
5 : magenta
Gère une zone de saisie contrôlée.
Explications
par le fait qu'au lieu de retourner les caractères frappés par
SECRET est en tous points identique à ACCEPT, mis à
7 : blanc
6 : cyan
l'utilisateur sur l'écran de son Minitel, on retourne
.
uniquement des caractères ' .. (astérisque).
Remarque
Voir aussi ACCEPT. ACCEP'lF. SAISIE.
Si couleur esl omis, le noir est utilisé.
Exemples
SERVOFF
(uniquement sur Apple If)
10
REM Exemp188
20
REM de
d ' utililation
VIDECRAN
30
VIOECRAN
Syntaxe de l'instruction
40
VIDECRAN
SERVQFF
50
VIDE CRAN C '
60
VIOECRAN C' ! I ' ) . l
n ut
Libère l'imerpréleur ampcrsand en restaurant l'ancien
2
Voir aussi VIDLIGNE, VIDRECf.
vecteur.
22
Pom's nO 34
Remarque
x2 doit être supérieur ou égal à xl. y2 doit être supérieur
VIDLIGNE
ou égal àyl.
Syntaxe de ,'instruction
VIDLIGNE figne,cou/eur
Exemples
1 0 REM Ex.�p1 ••
20
But
d ' u t i l i •• t i o n
R E M de V I D R E C T
3 0 V I D R E C T X1 ' , Y1 ' , X2 ' , Y2 ' , CO '
efface une ligne cn uûlisant la couleur désignée.
Explications
ligne est une variable ou expression entière indiquant la
ligne li. effacer. liglle doit êlre compris entre 1 et 24 inclus.
couleur est une variable ou expression entière qui désigne la
couleur li. utiliser pour effacer la ligne :
o : noir
1 : rouge
2 : vert
0% de gris
50% de gris
70% de gris
90% de gris
40% de gris
60% de gris
80% de gris
100% de gris
3 : jaune
4 : bleu
5 : magenta
6 : cyan
7 : blanc
40
VIDRECT
10, 10, 20, 15, 2
50
VIDRECT
X' ( X 1 ' I , 3 , X' ( X2 ' 1 , 2 0 , C Il - 1
Voir aussi VlDECRAN. VIDLIGNE.
Porn Link 2.1 : les instructions
ACCEPT colonne, ligne, mode, sollicitation, long�ur, retour, bal
ACCEPTF ilat
AFFICHE charne [:] (sur l'Apple /f)
AFFICHE charne (sur le Macintosh)
AFFICHER charne (uniqtICment Macintosh)
ALERTE musage, bip
APPEL Ital
BAS nombre
Exemples
d.
d ' utl11 ••t l o n
B'P
CADRE xl, yi, x2, )'2, type, lignage, couleur C, couleur F
10
REH Exempl ••
20
REH
30
"
VIDLIGNE
L U , co,
CNXN
VIOL IGNE
'.3
CNXR bal
50
VIDLIGNE
. , CO\ ( 2 )
CURINVIS
VIOLIGNE
L ' + l , ASC ( N$ ) - 4 8
CURVIS
"
VrOLIGNE
Voir aussi ALERTE, VIDECRAN, VIDRECf.
CHARIOT [llombre]
DECNX
DEPLACE colOllne, ligne
ENLIGNE lIaI
FIXE
FLASH
GR
VIDRECT
valeur l,
HAUT nombre
Syntaxe de ('instruction
VIDRECT xl ,yl.x2,y2.couleur
iDENT
valeur 2, valeur J, lIas.
INIT slot
INVERSE
LIGNE
But
efface un rectangle en utilisant la couleur désignée.
LOCALISE colonlle, ligne, lIaI
�10DE mode
MTH mode (uniquement Apple /f)
Explication
xl, yI, x2 ct y2 : coordonnées du rectangle à effacer. xl et
x2 doivent être compris entre 1 ct 40 inclus. yl et y2
doivent être compris entre 1 CI 24 inclus.
couleur est une variable ou expression entière qui désigne la
couleur à utiliser pourerracer le reclaIlgle :
o : noir
1 : rouge
2 : verl
3 : jaune
4 : bleu
5 : magenta
6 : cyan
7 : blanc
Pom's
n° 34
0% de gris
50% de gris
70% de gris
90% de gris
40% de gris
60% de gris
80% de gris
100% de gris
;o.;ORMAL
PARAMG couleur C, couleur F, Iigllage,
flash
PARAMT molÛ., cowleur C, couleur F, flash, Înversl, soulignJ
PURGE (uniquement Macintosh)
REI/liIT
ROULEAU cOllditioll
SAISIE caraclère
SA/liSLIGNE
SECRET colOlllle, liglle, mode, sollicitalioll, IOllg�ur, relour, ilal
SERVOFF (uniquement Apple /f)
TXT
VIDECRAN (cowleur]
ViDLiGNE liglle, coweur
VIDRECT xl, yi. x2, )'2, couleur
23
·
tiati01t
11'1,1;
Le passage âts paranretres
1
cnre une routine autonome en assembleur el
( !-V l'appeler
depuis le Basic par un CALL ne
présente que la difficulté de manipuler
, l'assembleur. Ainsi, pour faire un 'bip', il
""
_
'
suffit de lire l'octet Se030 scIon un cycle ct une
fréquence données. Depuis le Basic, on l'appellera par
un CALL adresse de début. CAU 768 par exemple.
Si l'on veut depuIs te Basic donner à la routine la
longueur du bip ct sa hauteur, le plus simple sera de
meUre ces paramètres à des adresses convenues et
depuis la routine, d'aller les rechercher aux mêmes
adresses :
POKE 6 , 3 0
:
POKE
7, 150
:
CALL
768
Dans la routine, on récupère les paramètres par :
lda
sta
lda
jsr
Jean-Jacques Co{w/iir
$6
._
$7
._
& PR1NT cha1ne,
poids_fort
"Hello"
A$ (13}
STR$
+
"He l l o "
(1*2)
+
LEFT$
(A$, 3)
Siot sera une expression numérique représentant le
numéro de port du périphérique destinataire, sous la
fOffile :
1
SLOT
S (5)
P o i d s fort sera également une expression
numérique qui vaudra 255 ou 127 selon que les codes
des caractères iront de 128 à 255 ou de 0 à 127 (pour
les périphériques qui n'utilisent que 7 bits - Minitel
par exemple - ce paramètre sera sans effet visible).
Voici des expressions valides :
L'objet de cet article est de montrer (de rappeler ?)
comment passer des paramètres du Basic à la routine
assembleur ; pour appeler nOlre bip par CALL 768,
LG, HT ou & B/P LG +3, 3 · (HT + K) par exemple.
Un prochain article présentera le passage aller ct retour
basé sur la réalisation d'un INPUT contrôlé.
& PRINT A$ (5) , SLOT,PF
& PR1NT "Noe"
& PRINT STR$
+
(A
CER$
�
(8)
..
+
··1 .., l, 127
8) , 2 , 255
Pour les lignes qui suivent, nous prendrons l'exemple
de la ligne Basic :
100 &
r
PRINT "Essai
" l, 127
,
:
IF A
-
...
la flèche indique le caractère désigné par le pointeur de
programme (TXTP1R en $B8, $89).
L'ampersand
Première étape, l'installation du vecteur ampersand
( & ' ou esperluette). Lorsque l'interpréteur Basic
renconLrc un &, il exécute un saut à l'adresse $3F5. Il
nous suffit donc d'installer, à cette adresse, un vecteur
(un saut) qui vise le début de notre interpréteur. Ainsi,
nolre routine prendra en charge l'analyse du
programme Basic après lecture de l'ampcrsand.
'
Un nouveau PRINT
debut
code de jump
Id.
f.$4C
st.
$3F5
Id.
E<debut
st.
$3F6
ld.
!>debut
adresse
st.
$3F7
fm d'initialisation
.
rts
La syntaxe de notre insLruction sera :
1;]
A$
Passer les par amètres
Pour démonstration de celle premère partie, nous
montrerons un nouveau PRINT, capable d'envoyer
une chaîne de caractères à un périphérique sans utiliser
les fastidieux PR/NT D$"PR[ "s/ot. Il pcffilettra
également d'indiquer si les caractères devront être
envoyés au périphérique avec le bit de poids fort à 1
ou à O. Cette caractéristique est capitale pour
l'émission de codes graphiques vers une imprimante
puisque les huit bits doivent être significatifs
(AppleSoft met systématiquement le bit de poids fort à
1). Cela servira également aux utilisateurs de
LaserJet+ de Hewlett·Packard pour laquelle le bit 7
positionné à 1 pose un problème.
Ce PRINT ne fonctionnera que sous ProDOS en
raison de la méthode de sortie de caractères adoptée
mais le principe du passage des paramètres est valable
également sous DOS 3.3.
24
slot,
Chaîne sera une variable ou expression chaîne du
type :
..
adres5C
Pom's n° 34
Lors du BRUN (démarrage du programme en
langage-machine) de notre routine, seule l'installation
du vecteur sera pratiquée ; on ne sautera à debut que
lors de la rencontre d'un &. Notons qu'il s'agit là
d'une méthode brutale : l'ancien vecteur est écrasé
sans sauvegarde. La bonne méthode, pour que
plusieurs routines ampcrsand puissent cohabiter
consiste à nOler le vecteur existant ct à y faire un saut
si la commande ne nous conccrnait pas.
jsr
1 0 0 (, PRINT "Essai", 1, 127 : IF A : ...
r
debut
ok
cmp
CHKSTR donne type mis­
match si ce n'est pas une
chaîne
Ceci fait, nous pouvons sauvegarder le pointeur sur le
descripteur de la chaîne à afficher et nous intéresser
aux: paramètres suivants :
Après rencontre d'un &, le pointeur de programme est
disposé ainsi :
avcc dans A le caractère qui suit 1'&, en l'occurencc, il
doit s'agir du 'token' (code du mot-clé) dc PRINT
c'cst-à-dire $BA (pour le trouvcr, il suffit de taper
NEW : 1 0 PRINT et de passer en moniteur pour lire
les octets à panir de $801).
$DD6C
1da
$AO
sta
$85
Ida
$A1
sta
$86
FACMO, poids faible de
l'adresse
FORPNT qui reçoit habituel­
lement le pointcur sur la
dernière variable utilisée
poids fort
Notre TXTPTR est maintenant positionné ainsi :
1 0 0 0; PRINT "Essai ", 1, 127
r
:
IF A - ...
f.$BA
beq
ok
jmp
$DEC9
jsr
$B1
SNERR routine qui stoppe le
programme Basic avec le
message syntax crror)
CHRGET saisi le caractère
suivant et avance le pointeur
de programme d'un octet
Pour évaluer le numéro de slOl, nous utiliserons
GETBYTC qui saute un caractère (en l'occurencc la
virgule) et qui évalue l'cxprcssion suivant ce
caractère. Le résultat de celte évaluation doit tenir sur
un octet (de 0 à 255) sinon nous aurons un Illegal
Quantity Error. Le résultat est dans le registre X :
Arrivés ici, nous nous sommes assurés qu'il s'agit
jsr
$E6F5
stx
$6
Getbytc
on stocke en $61e n° de pon
bicn de PRlNT et le TXTPTR se présente ainsi :
1 0 0 (, PRINT "Essai ", 1 , 127
r
: IF A -
._
Idem pour le sens du bit de poids fort. :
Nous pourrions maintenant par une suite de JSR
CI-IRGET saisir les caractères à afficher mais il est
préférable de faire confiance à l'AppleSoft :
Ida
LO
sta
$52
jsr
$DD7B
Réinitialise le calcul des
chaînes temporaires
FRMEVL, donne un Syntax
Error si besoin
FRMEVL est la routine d'évaluation des fonnules, ce
qui permettra l'utilisation d'expression complexe du
style STR$ (3 • AB) + "ERR" + CHRS(lO). Elle
évalue l'expression qui débutc sous le TXTPTR et qui
sc Icnnine par une virgule (ou une fm d'instruction ou
de programme). Le résultat se trouve cn FAC, zone de
6 octets à partir de $9D réservée aussi pour tous les
calculs sur les nombres en virgule nonante. Si
l'expression évaluée était une chaîne, et c'est le cas,
seuls deux octets nous servent : $AD, $ A 1 . Ils
forment un pointeur sur le descripteur d'une chaîne
temporaire que FRMEVL a créée à partir des
constituants de l'expression.
Assurons-nous d'abord que l'expression évaluée par
FRMEVL était bicn une chaîne :
Pom's n° 34
$E6F5
$7
Getbytc
on stocke en $7 le sens du
poids fort
Nous avons tous les paramètres, vérifions si un ";"
suit, le TXTPTR se présentant ainsi :
1 0 0 (, PRINT "Essai ", 1 , 127
: IF A - ...
r
Il faut lire le prochain caractère du Basic mais sans
incrémenter le TXTPTR au cas où ce ne serait pas un
point-virgule. C'est l'objet de CHRGOT, semblable à
CI-IRGET mais sans incrément ; au sortir de
CHRGOT, le caractère lu est dans A et le bit Z du
registre d'état est positionné si on était en fin
d'instruction.
Le descripteur, pointée par SAD, $A 1 se présente sur
l'Apple 1/ ainsi ;
OCLet 1 : longueur de la chaîne
octet 2 : poids faible de l'adresse du premier caractère
octet 3 : poids fort de l'adresse du premier caractère
jsr
stx
!O
st,
$B
chariot
jsr
$B7
beq
cr
cmp
[;$38
Chrgo,
si = O. il n'y avait pas de ";"
est-cc ";" ?
jsr
$Bl
saute le ";"
jmp
pascr
bne
"
initialise l e drapeau de retour-
id,
"
jmp
$DEC9
cr
dec
$B
pascr
...
Syntax Error
note qu'il faudra un rctourchariot
25
•
Dans notre exemple, le TXTPTR n'a pas bougé
puisqu'il n'y avait pas de point-virgule.
1 0 0 & PIUNT "Essai ", L 1 2 7
err
$'
cmp
lB
bec
port ok
Jmp
rgerr
port ok Ida
$7
cmp
L $ 7F
beq
pEok
cmp
!$FF
bne
err
t
:
IF A '"'
pas de port au-dessus de 7
SBE30
ancvec
'd.
$BE30+1
st.
ancvec+l
Id.
<0
st.
$BE30
'd.
$'
or.
t.$CO
sta
$BE31
§l
Idy
st.
$18, y
Id.
($8S) , y
sauve l'ancien vecteur
lda
ancvec+1
sta
$BE3I
restitue l'ancien vecteur
et revient au Basic
rt s
Ida
[;2
jmp
$BE09
et le stockage de l'ancien vecteur :
ancvec ds
û
2
Source PRINT.S
Assembleur ProCODE
,.,
,
installe le nouveau
En $6. c'est le n° de port
le résultat, c'est Cn
copie le descripteur
en page 0
,
0300: .U 4C
•
0305: A9 10
,
0307:
",
,
0302: 80 F"S 03
80 F"6 03
030A: A9 03
'"
",
•
iny
dec
$18
bmi
fin
Id.
($19) , y
ora
t.$80
.nd
S7
Jsr
$FDED
Jmp
§2
charge u n caractère de la
chaîne
positionne poids fort
Cout, sortie de caractères
Si demandé, on affiche un retour-chariot à la suite de
la chaîne cn veillant au bit de poids fort :
fin
26
bit
$8
bpl
sortie
lda
[;$8D
afficher un retour-chariot ?
non si posiLif
oui. on tient compte du poids
CS4C
53F"5
!<debut
53.6
,
'"
!>debut
«,
«,
80 F7 03
•
030F:
"
,
0310:
" ..
"
del::>ut
cop
"
o.,
""
0312: FO 03
0'
'op
5DEC9
53.7
"
0314:
t C C9 D&
"
0317:
20 81
"
00
,«
0'
'"
"
03lA: A9 00
"
8S 52
"
0321:
y=o
longueur chaîne
5300
."
78 DO
" 6C DO
'"
«,
lB
,«
"
"
"
'"
SDD7a
,«
SDD6C
"
§2
prlnt
030C:
031E: "
§l
0'0
,
031C:
dey
bpI
$BE30
sinon Range Errar
Maintenant, affichons la chaîne en recopiant d'abord
son descripteur en page 0 :
<2
ancvec
sta
Ajoutons la prise en charge d'un éventuel Range
Ereor :
Il faut maintenant rediriger la sortie de caractères vers
le périphérique choisi. Le mieux, sous ProDOS, est
de remplacer le PRis/Dl par une modification du
vecteur de sortie de caractères dans VECTOUT en
$BE30-$BE31 : sauvegarde l'ancien vecteur,
remplacement par $CnOO. n étant le numéro de port.
st.
$FDED
sortie Ida
rgerr
Id.
jsr
fort demandé
Cout
Restituons enfin le vecteur de sortie de caractère
(c'était l'écran 40 ou 80 colonnes ou peut-être un autre
périphérique) :
donne Range Error
PF vaut 1 27 ou 255
pEok
pfok
$7
sortie " "
Nous avons touS les éléments ; nous devons les
contrôler :
Id.
a.nd
0324: AS AD
"
'"
M'
0326:
85 85
"
."
'"
OJ28: AS Al
"
",
'"
OJ2A:
"
032C;
8S 86
20 F"5 E6
OJ2.; 86 0 6
«.
"
J"
"
«.
"
"
".
5E6.S
"
5E5F5
0331 :
20 FS E6
"
03J4:
86 07
"
0336:
..u
"
00
"
",
0338:
85 08
"
'"
OJ3A:
20 87 00
"
0330:
.0 00
J«
"
'"'
c,
033F:
c9 38
"
c,""
DO 06
"
0",
CS3B
0341:
0343;
20 81
00
"
,,,
'"
0346:
(C 4E OJ
"
'op
PASCR
"
'op
SDEC9
co
Ooc
"
,,,
m
"
"
"
'"
"
"
0349:
(C C9 DE
"
"
034C:
C6 08
..
"
Pom's n° 34
"
D34[;; A5 D6
"
D 35D ; Cj D8
PASCR
"
D352: 'ID 03
"
,,.
cmp
'00
porto"
r'lerr
D354: 4C AC 03
"
OU
JmO
0357: AS 07
"
porto"
,,.
"
Cj 7F
035'1:
"
0358: FO 04
0350:
Cj FI"
"
0361: AD JO BE
80 BI
OJ
0367: AD 31 BE
036A;
BD 82 D3
036D; Aj DO
D36F; BD 30 BE
D372: AS D6
"
0381 ;
la
"
"
0]91 : 4C 83 03
"
0394; 24 08
"
"
"
07
"
0]9A: 25 07
0]9C: 20 ED FD
"
0]9,: AD 81
"
0]
8E
"
8D 31 Bt:
"
03),5; AD 82 03
03A8:
03A8:
"
"
"
"
03AE: 4C 09 Bt:
"
"
"
"
iSCO
SBE31
"
(S85) , y
$lB,y
n.
'd,
W
'"
..ncvec
'd,
Jmp
d.
sortie
iS8D
de diffuser ce programme de Randy Brandt
dans ses versions française et américaine.
Précisons que, si SuperMacroWorks est bien
entendu
compatible
avec
toute
carte
d'extension mémoire pour Apple Il (cartes
Apple, Applied Engineering, Checkmate et
autres), il ne nécessite aucun équipement
spécial
:
du
moment
que
vous
pouvez
Pour les techniciens : SuperMacroWorks se
loge dans la carte langage de la IT).émoire
auxiliaire, ce qui n'est pas simple, sachant
SFDED
que vous n'avez plus alors de ROM et que
ancvec
vous devez utiliser la pile et la page zéro de
SBE30
..ncvec+l
SBEJ1
"
SBEOj
.
.
TM
et/ou
™
Macintosh
Porn's nO 34
les
"
Des transmissions
intelligentes
entre
IBM®et
chez
pouvez utiliser SuperMacroWorks.
InterPom's
version 2.0
.�
et/ou
SuperMacroWorks
SFDED
"
,
Apple / /
rechercher
charger AppleWorks 1.4 tel qu'il est, vous
H.
n;err
vainement
à
nombreux
(SHI,Y
is80
"
'd,
"
"
OJAC: A9 02
sortie
étiez
Pom's a obtenu de Beagle Bros la possibilité
SBEJD
'H
J"
vous
"
ancvec+1
"
.od
Après l'article de Damien Nould dans Pom's
33, et l'éloge qu'en faisait aussi J.Y. Bourdin,
revendeurs.
J"
Jmo
'"
]F«»llîIÙl m§m1bl\Ul�
Super�acroVVorks
SBOD+l
'"
'd'
"
0398; A9 8D
,u,cvec
'.y
d.o
.od
n.
SBE3 D
"
M'
"
ESFF
'0'
'd,
"
038E: 2D ED FD
".
>m,
n
0]8C; 25 07
8D 30
"
"
038A; 09 80
'dy
'do
d.y
"
D388; BI H
D])'2:
"
"
"
0384; C6 1 8
la
",
"
"
0386; 30 OC
0396;
'do
'u
"
0383; "
".
'"
"
"
F8
",
'"
"
"
jj 18 00
OU
",
0379: AD 02
D380; "
",
"
"
D37B: BI 85
pro"
,,.
"
"
ES7F
,,'
"
D376: BD JI BE
037D;
pro"
"
0'1 co
0374:
"
om,
omo
55
035F: DO F3
0364;
"
"
"
comp atibles
la
mémoire
auxiliaire.
C'est
d'ailleurs
pourquoi AppleWorks renonce à utiliser cet
espace. Les seules exceptions imaginables à la
compatibilité
avec
SuperMacroWorks
seraient donc pour le propriétaire d'un
qui
aurait
modifié
AppleWorks
H+
avec
Plus-Works 2.0 ou le 'patch' fourni avec la
carte Ramfactor d'Applied Engineering (ce
qui est malin), ou l'improbable propriétaire
d'un I l e qui l'aurait laissé à
64 Ko avec une
carte 80 colonnes non étendue et aurait fait
l'une des deux modifications précédentes
pour charger quand même AppleWorks.
Attention : la version française que nous
diffusons est la version 1.2. Cette version
étant débuguée, il ne faut plus faire le patch
de Pom's 33 page
version
67. Si vous avez une
antérieure,
contactez
votre
revendeur. Si vous n'avez que la version US
de
SuperMacroworks,
adressez-vous
Dimitri Geystor (pom's 33 page
63).
à
Et si vous n'avez pas encore
SuperMacroWorks . . .
Prix : 500,00 F ITC - abonnés : 450,00 FITC - Port 20,00
F
27
{'essai (es 'IimeOut
•
•
'Eric Wey[and
omme c'est la
lecture de l'arti­
cle de J, Bourdin
dans Pom's 33 qui m'a
fait passer commande au
père Noël de quelques
programmes de la série
des TimeOut de Beagle
Bros je n'ai pas
pu refuser quand
i l m'a demandé
d'expliquer ici pourquoi je suis
bien content d'avoir pensé à
mettre mes sabots dans la
cheminée,
transfonne AppleWorks en une sorte
TimeOut présemes et futures, ce qui
de
d'exploitation
représente énormément de travail.
pilotant des applications intégrées. On
L'investissement est sans doute trop
super· système
peul parfaitement imaginer par
grand pour être rentable (à moins
exemple un assembleur TimeOut
qu'un taux spectaculaire de ventes de
assemblant sous ApplelVorks des
SuperMacroWorks en France n'amène
Beagle à réfléchir, qui sait ?).
sources
constituées
de
fichiers
traitement de texte. Disons que
TÎmeOut réussit avec AppleWorks,
sans menus déroulams ni fenêtres.
mais avec une transparence parlaite. ce
qui a été raté Cà mon humble avis) sur
IBM avec Windows : un intégrateur
d'applications. Ou bien disons que, de
même qu'il existe un "atelier du
programmeur" (Apple Programmer
Le principe :
continuer
AppleWorks
maintenant un "atelier de J'utilisateur"
(Apple . . . works !) sur Ile. Ile et
IIGS : on peut tout faire sans sortir
de son atelier.
La série des TimeO ut ajoute une
Telle était la philosophie de B o b
quamité de fonctions nouvelles à
Lissner, l'auteur d'AppleWorks : il
ApplelVorks, à la fois parfaitement
faut bien sûr intégrer l'interface
la place sur le bureau (de la mémoire).
Bien sûr, vous pouvez choisir de
charger
en
mémoire
certaines
applications seulement au démarrage
d'AppleWorks, ct TimeOut vous
permet
d'appeler
ensuite,
sous
AppleWorks, en cas de besoin, une
autre application depuis le disque (y
compris
le
disque
Ram
type
Speedisk) ; il vous permet également
de vider la mémoire et le bureau des
applications dont vous ne vous servez
plus, aussi facilement qu'on efface un
fichier
du
bureau.
Mais
une
application comme TimeOUl Graph,
chargée de faire des graphiques avec
les fichiers tableur, prend à elle seule
indépendantes les unes des autrcs et
utilisateur, mais ce ne sont pas les
totalement intégrées aussi bien à
menus déroulants, souris, fenêtres,
56Ko sur le bureau d'AppleWorks :
AppleWorks qu'cntre elles : chaque
disque TimeOut fournît en même
temps une modification d'AppleWorks
etc., qui font l'intégration. II s'agit là
seulement de l'expression visible
l'Apple Il courant, vous ne pourrez
d'une autre intégration, ceBe des
qui est le noyau intégrateur commun,
opérations que fail l'utilisateur et des
l'application, le fichier tableur qu'elle
véritable exploit de programmation
données qu'il manipule. Tous les
doit traiter !
signé Alan Bird, et une nouvelle
"couper-coller", les accessoires de
Il faut donc soit avoir suffisamment
"application" qui se charge en prcnant
bureau, etc., ne sont qu'un pâle
de mémoire pour ne pas être gêné,
substitut, un pauvre "faute de mieux",
soit renoncer aux TimeOul et quitter
fonctionnant en 'overlay' (un segment
de l'intégration vraie. C'est parce que
AppleWorks pour utiliser des
de programme chargé momentanémenl
programmes indépendants de lui (en
de sauver puis recharger l'état présent
Beagle est totalement fidèle à cette
inspiration initiale d'AppleWorks que
TimeOut est une telle réussite.
de la mémoire AppleWorks, comme
Une conséquence désagréable de cetlC
donc de préciser que les TimeOut sont
avec Pinpoint.
intégration est que la série des
compatibles avec pratiquement toutes
C'est là évidemment une ouverture
permettent
fantastique pour AppleWorks : loin de
TimeOut ne marche et ne marchera
sans doute jamais que sur la version
américaine 2.0 d'AppleWorks, et pas
une partie du bureau d'AppleWorks,
du disque) d'AppleWorks. Nul besoin
avec
une
machine
de
128Ko,
pas charger, en même temps que
l'occurrence Visualizer de PBI ou
Graphie Edge de Pinpoint). Inutile
les sortes de carte mémoire qui
d'étendre
le
bureau
d'AppleWorks : il s'agit ici d'une
P i n p o i n t des
sur la version française lA. Non que
nécessité.
accessoires supplémentaires dans une
cela soit techniquement impossible :
Troisième point à savoir : il vous faut
application, ou des applications
mais il faudrait alors adapter et
de la place sur disque pour placer vos
extérieurcs à la première, TimeOut
traduire chacune des applications
fichiers TimeOut, puisqu'en fait c'est
fournir
28
W o r k S h o p ) sur GS. il existe
Second point à savoir : il vous faut de
comme
Porn's n° 34
AppleWorks !). Il nous donne accès à
reconnaît l'essentiel des imprimantes.
de problème (les lïmeOut sont
tous les caractères des polices Mac. ct
Il
d'ailleurs livrés à la fois sur disquette
utilise des polices de 8 à. . .
A p p l e Wo r k s
AppfeWorks qui enfle. Si vous avez
un lecteur 3,5' ou un disque dur, pas
5,25'
et sur disquette 3.5'). Si vous
avez un Méga de Ram, vous pourrez
vous débrouiller. Mais si vous n'avez
que 128Ko et deux lecteurs
5.25'.
il
va falloir jongler : au début vous
pourrez
placer
vos
applications
TimeOul sur votre disque de données.
Mais elles risquent vite de remplir la
la vraie justification à droite avec
127
n'est pas
en
couleurs.
non
mais
plus.
J'ai
automatiquement
les
points !
particulièrement apprécié sa capacité à
Voilà un sérieux concurrent pour
relracer
Mu{tiScribe. Printrix el. . . GSWri/e
(il imprime plus vite que GSWritt
valeur dans votre fichier tableur.
-
ce qui n'est guère difficile - tout en
utilisant ses polices, et il reconnaît
plus
de
40 imprimantes).
Seul
problème : pour le moment, il ne
disquette. Bref, avec les TimeOu/.
dispose pas d'éditeur de polices (à ce
c'est non seulement AppleWorks.
propos : quel éditeur de polices
mais J'Apple lui-même qui grandit.
système utilisez·vous sur GS
Les deux faces d'une disquette 5,25' ne
bien ce qu'on attend de lui, et
1).
Pour
graphiques dès que vous changez une
Comme ce fichier est en mémoire en
même temps que TimeOul Graph. on
peut percevoir immédiatement ce
qu'est l'intégration vraie. En fait,
AppleWorks est tout simplement doté
désormais de la fonclion graphique
intégrée qui lui manquait.
SideSpread est de la
nos accents, il faut donc par exemple
TimeOul
lui suffisent déjà plus pour stocker
remplacer
même veine : il intègre tranquillement
toutes les polices de T i m e O u t
"<x2>N<x l>" avant l'impression
à Ap p l e Wo r k s
SuperFonts. Il faut donc sérieusement
avec les polices fournies sur la
d'impression verticale des fichiers
songer aux extensions nécessaires
disquette. Voilà une belle macro
tableurs trop larges qui demandait
(mémoire, lecteurs de disques).
SuperMacroWorks à faire. . . Mais
Mark Simonsef/ nous promet pour
bientôt un Universal FOf/1 Edi/or,
toujours chez Beagle. qui permettra
auparavant de sortir d'AppleWorks
L'indispensable :
TimeOut
SuperFonts
chaque
"é"
par
d'éditer les polices Mac ou GS Write.
y compris sur fie.
Super/onls de M a rk
Simonsen est une vraie merveille. Il
imprime
les
fichiers
textes
périme pas GraphMerge de Pif/poif/l,
qui m
i prime aussi les images dans les
fichiers AppleWorks. mais imprime
AppleWorks entièrement en caractères
le texte en mode texte au lieu du mode
graphiques
graphique de SuperFof/fs. GraphMerge
proportionnels,
vous
donne le choix entre qualte qualités
s'accommode donc d'une police
d'impression possibles, dans les
transférée dans l'imprimante, ce que ne
"styles" (italiques. inverse, gras,
peut faire SuperFonts.
sur la même ligne, avec les dessins
(HOR ou DHOR mais pas SHOR) ou
les parties de dessins que vous voulez,
avec les polices que vous voulez
(jusqu'à 64 dans le même texte : la
disquette en fournit 47. ct d'aultes
disquettes de polices sont promises à
Les utiles :
FileMaster,
Graph,
SideSpread,
QuickSpell
Macintosh ou en OS monochrome :
d'ailleurs il utilise les polices du Mac,
qui sont aussi les polices système du
GS. Seule différence avec le Mac :
vous travaillez volte texte sur l'écran
texte d'AppleWorks, ct il faut choisir
J'option "imprimer sur écran" pour
voir à l'avance ce que donnera votre
impression graphique.
Il
reconnaît
TimeO"t
File
Masiu est une
double
le
rend
particulièrement utile aux utilisateurs
de disque dur. Et la possibilité de
programmer des macros pour lui avec
SuperMacroWorks me semble fort
toutes les options d'impressions du
intéressante. . .
traitement de texte AppfeWorks.
TimeOul
auxquelles il ajoute les siennes (enfin
grapheur en DHGR, qui fait vite ct
Porn's nO 34
que P i n p o i f/ l
Checker. (même en
laissant son dicLionnaire de 80 000
fait
aussi
bien
Document
mots sur disque : si vous mettez
celui-ci sur la carte Speedisk, c'est
quasiment instantané), le tout sans
avoir besoin de quitter AppleWorks.
DeskTools m e semble
uniquement par la nécessité purement
backup sélectif des fichiers qui ne sont
en
pour corriger vos fautes en anglais, ct
commerciale de "couvrir tout le
fonctions DOS 3.3. Sa fonction de
déjà
Quickspell est plus
TimeOut
un produit assez inutile, engendré
sorte de Filer évolué ou de Copy If
Plus intégré à AppleWorks, mais sans
pas
l'essentiel des imprimantes.
TimeOu!
bon marché).
Le Ile ou IIc est uansformé en
pour utiliser F o n t W o r k s ou
SideWays, et reconnaît également
Le superflu :
TimeOut
DeskTools
souligné, ombré, silhouette, indices,
exposants) du Mac tous combinables
fonction
rapide que Pif/point Spefling Checker
Notons que TimeOut SuperFof/ts ne
TimeOut
la
terrain" de ce qui sc vend déjà bien sur
Apple Il (les accessoires Pinpoif/t en
l'occurrence). Les fonctions de ces
accessoires de bureau sont tout aussi
bien remplies sail par AppleWorks
lui·même (la calculette
le bloc·notes
textes),
soit
=
=
le tableur ;
le traitement de
par
SuperMacroWorks
des
macros
(calendrier,
adresseur d'enveloppes. composeur
téléphonique, horloge, conversion
majuscules/minuscules, décompte des
Graph
est u n bon
moLS d'un texte, ct même l'en.cryptage
des fichiers).
29
Beagle ne nous avait pas habitués à ce
genre de frivolités. Quoi qu'il en soit,
J'abonnement à Pom's, à ses disques,
et à ses programmes de macros pour
SuperMac roWorks est un bien
meilleur investissement que les
TimeOut DeskTools.
- Mais - me direz·vous - les
publicités de DeskTools parlent d'un
utilitaire de conversion des données
qui permet de passer directement par le
presse-papier, sans l'intermédiaire d'un
fichier DIF sur disque, des catégories
de la base de données dans des
colonnes du tableur, et vice versa, et
c'est quand même plus pratique qu'une
macro qui passe par un disque, même
un disque Ram comme celui de la
carte Speedisk, n'est-ce pas ?
- Bien sûr, mais ce que les
publicités ne disent pas, c'est que cet
accessoire est également fourni, en
prime, avec TimeOut Graph et
TimeOw UltraMacros. . .
PinPoint,
TimeOut,
Macros :
compatibilités,
incompatibilités
Une excellente nouvelle : tous les
TimeOut (sauf UltraMacros) sont
entièrement compatibles avec
Pinpoinl. À l'installation, vous
'patchez' d'abord AppleWorks avec
T i m e O u I , puis vous y installez
Pinpoint. Une fois AppleWorks
chargé, il suffit de faire ti-P pour
accéder à Pinpoint, et <j-Escape pour
accéder à TimeOw.
Du coup (et c'est sans doute pourquoi
Beagle ne crie pas sur les toits cette
bonne nouvelle), il me semble que les
TimeOut qui doublent les accessoires
de Pinpoinl (Correcteur, accessoires de
bureau par exemple) ne sont pas
indispensables à qui a déjà Pinpoinl.
D'autant que Pinpoint, lui, s'installe
aussi dans Basic System, W o r d
Perfeci et autres, et pas seulement
dans AppleWorks, ct permet avec
Pinpoint Too/Kit de programmer
soi-même ses propres accessoires. De
plus P i n p o i n t reconnaît aussi
AppleWorks 1.4 français (même si
30
cenains des accessoires tels le Speller
ou les macros KeyPlayer ne marchent
qu'avec AppleWorks américain).
Deuxième bonne nouvelle : les
Time O u l sont compatibles avec
SuperMacroWorks et A utoWorks.
Mais . . . ces deux programmes de
macros,
d 'ailleu rs
ainsi
q u ' U l t r a M a c r o s , n e sont pas
eux· mêmes compatibles avec
Pinpoim (sauf AutoWorks qui offre
une option de choix du banc mémoire
aux propriétaires d'une carte
d'extension mémoire type RamWorks
ou MultiRam sur /le ou l/c). Les
gourmands qui voudront avoir tout en
même temps (Macros ET accessoires
Pinpoint ET applications TimeOut),
devront donc utiliser KeyPlayer, le
programme de macros de Pinpoint.
Mais. . . KeyPlayer n'automatise que
les fonctions AppleWorks, pas celles
de Pinpoint ni celles de TimeOut, et
ne marche pas avec AppleWorks
français.
Bien entendu vous êtes complètement
perdu dans le dédale des infonnations
qui précèdent : cela prouve que vous
êtes normalement constitué, j'ai du
mal à m'y retrouver moi-même. Ne
nous plaignons pas trop de notre
difficulté à comptabiliser notre
fortune, et simplifIOns.
Si vous utilisez AppleWorks J.4
français, vous ne pouvez rajouter à
AppleWorks qu'un seul programme de
macros, SuperMacroWorks, et un seul
programme d'extensions, Pinpoinl.
Vous ne pourrez pas les utiliser en
même temps, il faudra quiner l'un
pour utiliser J'autre. El vous n'aurez
accès qu'à certains accessoires de
Pinpoint.
Si vous utilisez AppleWorks 2.0
américain, le tableau joint à cet article
devrait vous éclairer un peu plus.
Ultra Macro Works
ou . . .
SuperMacroWorks ?
TimeOut UltraMacros, le dernier-né de
est bel et bien encore
que
son
aîné
SuperMacroWorks. Mais il partage
avec lui le tempérament fier et
Randy Brandt,
plus
doué
indépendant de son auteur. Car, quoi
qu'en dise B e a g l e , ce n'est pas
vraiment une application TimeOut
comme les auues. Il ne se loge pas
dans le bureau d'AppleWorks, mais
dans la place laissée libre par celui-ci
(la carte langage de la mémoire
auxiliaire : c'est d'ailleurs pourquoi il
est le seul TimeOul qu'on puisse
recommander au même titre que
SuperMacroWorks à ceux qui n'ont
que 128Ko de mémoire). Il n'est pas
un subalterne docile qui reste à sa
place tant qu'on ne l'appelle pas,
comme les autres Time O u t . Bien
entendu il est compatible avec les
autres TimeOut : mais c'est pour les
commander. Il m'a fallu fouiller, mais
j'ai pu découvrir page 26 de la
documentation une de ses fonctions
les plus intéressantes : il automatise
également les fonctions des
applications TimeOut.
UhraMacros est une sorte de langage
de programmation complet pour
AppleWorks et TimeOut qui intègre
toutes les commandes de l'Applesoft,
y compris les manipulations de
chaînes, et en rajoute même (IF
THEN ELSE). Il permet d'inlroduire
ses propres routines machines dans
AppleWorks avec les macros Peek,
Poke et Cali, de créer des macros avec
'* et <j, des "macros-réveil" qui se
déclenchent à l'heure choisie, des
"fichiers-tâches" qu'on lance depuis le
sélecteur du ProDOS, il éteint
provisoirement l'écran quand vous
allez prendre un café, il corrige le bug
du Control-à dans la définition des
codes imprimantes.
Mais. . . il ne reconnaît pas la version
française 1.4 d'AppleWo rks, ni les
macros déjà existantes de
SuperMacroWorks, françaises ou non.
Les macros que vous avez et aurez
pour la version française de
SuperMacroWorks ne tourneront pas
sur UltraMacros. J'ai essayé de
traduire les macros agenda de Dimitri
Geyslor : c'est un joli casse-tête (il
faut traduire d'abord les commandes
AppleWorks J.4 VF en commandes
AppleWorks 2.0 US, traduire ensuite
les commandes SuperMacroWorks VF
en commandes SuperMacroWorks
US, traduire enfin les commandes
SuperMacroWorks en commandes
UILraMacros
!).
Pom's nO 34
SuperMacrolVorks vous permet de
transférer une p:>lice Power Print pour
l'imprimante
au
chargement
d'ApplelVorks, ce qu'UltraMacros ne
permet plus. Enfin - et sunout - un
fait que B e a g l e
s'abstient
soigneusement de dire, et que doivent
donc crier sur les toits les utilisateurs
qui n'aiment pas ce genre de
cacholtCries : SuperMacrolVorks aussi
automatise les applications TimeOUl !
Eh oui : quand la légion des TimeOUl
s'est formée, son commandant était
déjà là !
UltraMacros me semble donc surtout
destiné aux fanatiques de la
programmation et du "bidouillage" qui
voudraient un autre programme, en
plus de SuperMacroWorks, pour créer
des applications spéciales en anglais
seulement.
S i vous tenez absolument à
UltraMacros, il vous suffira d'envoyer
22,5 dollars à Beagle en même temps
que votre disque original (version US)
de SuperMacroWorks.
On est prié de
ranger soi-même
son bureau
En admettant que vous ayez un bureau
(une mémoire) de taille suffisante,
vous avez tellement d'accessoires et
d'applications à y mettre qu'un sérieux
problème de rangement se pose. La
Ram supplémentaire doit à la fois
.. compati ble avec .,
l
AppleWorks 2.0
seul
AppleWorb 2 . 0
avec Pi npoi nt
AppleWorks 2.0
avec TimeOut
AppleWorks 2 . 0 avec
Pinpoint ET TimeOut
Pilote AppleWorks ET
l e s fonctions TimeOut
Pom's nO 34
vous servir à étendre le bureau
d'ApplelVorks, à sauver les fichiers
transitoires (fichiers ASCII, fichiers
DlF) utilisés pour communiquer entre
deux fonctions d'AppleWorks, à
entreposer provisoirement la mémoire
de travail AppleWorks que Pinpojn/ y
sauve de temps en temps, à stocker
les applications TimeOut et les
accessoires Pinpoin/, et même à
garder en pennanence sous la main
ProDOS, un sélecteur de programmes
et vos applications favorites (dont
ApplelVorks lui-même bien sûr)_
1 024Ko, c'est vraiment le
minimum, mais il reste le
rangement. .. Aïe !
En fait, le problème est plus simple
qu'il n'y paraît : il se résume au
"partitionnement", ce barbarisme
désignant le partage de la mémoire
entre AppleWorks et son bureau d'un
côté, le disque Ram de l'autre. Sur le
GS, pas de problème : le tableau de
bord est là pour cela. Si vous avez
une carte mémoire type Mul/jRam de
Checkmate, RamWorks, Z-Ram ou
RamFactor d'Applied Engineering, les
logiciels d'installation du disque Ram
et de modification d'AppleWorks
pennettent ce "partitionnement". Si
vous avez le nouveau Ile un Méga ou
une carte type Apple dans votre Ile,
AppleWorks dévore toute la place
disponible sur la carte pour son
bureau, el. . . bigre, on ne peut plus
rien ranger du tout !
appétit de mémoire, avant toute
modification par SuperMacroWorks,
TimeOut et/ou Pinpoint. Deux
programmes du domaine public se
chargent de ce travail pour nous. L'un,
publié par Steve Stephenson dans
Open Apple volume 3, modifie
AppleWorks 2.0 américain. L'aulre,
publié par l'Écho des Apple d'Octobre
87, est J'adaptation du premier à
AppleWorks 1.4 français par J.Y.
Bourdin. Les colonnes de Pom's
n'étant pas destinées à être remplies de
listings de programmes du domaine
public, nous ne pouvons les
reproduire ici. Mais nous les avons
ajoutés gracieusement, en prime, sous
les noms de APLWorkS2 .0.MOD et
APLWorkSl . 4 . M O D , sur la face
ProOOS de la disquette Pom's 34 . .
Bien entendu, ne les utilisez que sur
une copie de votre disquelle
AppleWorks !
.
Conclusion :
innovation ou
conformisme ?
La solution consiste à 'patcher'
Vous comprenez maintenant pourquoi
je suis si content de ce que j'ai trouvé
dans ma cheminée : les TimeOut
constituent dans leur conception
fondamentale une innovation
importante
et
extrêmement
prometteuse pour tous les utilisateurs
d'Apple Il et d'AppleWorks. Cette
innovation se situant dans la
continuité de l'esprit même
AppleWorks de façon à limiter son
d'AppleWorks.
Supe r MacroWorks
Ultra Macros
AutoWorks
KeyPlayer
OUI
OUI
OUI
NON
NON
NON
O U I / NO N
OUI
OUI
OUI
OUI
NON
NON
NON
O U I /NON
OUI
OUI
OUI
???
NON
31
le
succès
mérité
de
utilisateurs, vous êtes priés de parler
La réussite commerciale me semble
utilise
promise à celte série, et i l faut que
programmes Beagle ou SoftWare
dcvant J'hygiaphone.
nous assurions celte réussite : j'incite
fortement lOUS ceux que l'anglais ne
Touch déjà existants (Au/oWorks,
FontWorks, Triple Dump) pour faire
meilleurs programmeurs Be(lgle (dont
rebute pas trop à s'offrir au moins
encore mieux,
Randy), et une majorité d'utilisateurs
TimeOut SuperFonts en plus de
SuperMacroWorks.
Mais reconnaissons qu'il y a un risque
Randy Brandt, qui n'a pas perdu
Gardons cependant confiance : les
ont toujours "l'esprit Wozniak" .
de glissade vers ce conformisme, ce
l'ancienne mentalité, parsème ses
Sachons-le, le nom de Beagle Bras ne
renoncement à la création ct à
programmes d'aBusions, de clins d'œil
signifie plus la même chose qu'avant :
situations de concurrence effrénée dans
et d'informations presque cachées. (Un
décontractés ct sympaÙliques devient
un marché fermé (allumez votre
fichiers des disquettes 7ïmeOu/ !).
maintenant une entreprise moderne et
téléviseur sur n'importe quelle chaîne
R a n dy
performante, rivalisant avec les "pros"
pour en voir un exemple). Certaines
mini-entreprise,
applications TimeOu/ ne font que
Software, qui diffuse pour un prix
ce qui était un atelier d'artisans
du
logiciel,
une
puissance
l'innovation vraie, qu'engendrent les
par
"doublonner" purement et simplement
l'excellence de ses produits. Beagle
de oons programmes déjà existants.
commerciale
qui
s'impose
conseil : lisez, listez, testez tous les
a
même
fondé
appelée
une
Jem
dérisoire des mini-programmes de
l'ancien style Beagle. Si Hermès le
prend la liste des principaux succès de
Elles travaillent souvent mieux et
Dieu messager y consent, je pourrai
vente en matière de compléments à
plus vite, mais elles font la même
pcut-êLrC vous entretenir un jour d'un
AppleWorks (Copy JI Plus, Pinpoint
accessories, MultiScribe. Visualizer,
SideWays, SuperMacroWorks,
Pinpoint SpeIfing Checker) ct y
réellement. L'opinion de J.r. Bourdin
certain "Patchmania"
chose
qui
se
:
elles
n'innovent
pas
réjouissait dans Pom's 33 de la
fusion Beagle/SoflWare To uch me
subslÎtue sa version, intégrée à
semble globalement confinnée par l es
AppleWorks ct souvent meilleure que
non
TimeOul : mais ses craintes sur
l'orientation exclusivement utilisa/eur
seulement je n'échangerais pas un GS
imprimée par la nouvelle direction ne
avec ApplelVorks, SuperMacroWorks
sont
et TimeOut COntre 2 ou 3 barils
fondements,
d'ordinateurs-X avec lVindows, mais
J'en prends pour preuve un signe qui,
les
autres.
Sincèrement,
je ne l'échangerais même pas contre
un Mac avec Microsoft Works !
Cette
bien
hélas
que
pas
non
plus
superficiel,
sans
me parait
néanmoins quelque peu inquiétant :
stratégie de B e a g l e
est
fini
de
rire
en
lisant
les
cenainement la oonne : une telle série
documentations Beagle ; plus de
de oons utilitaires réellement intégrés
gravures
rétros
et de
légendes
...
Des cerveaux comme ceux d'Alan
Bird, Randy Brandt ou M a r k
Simonsen sont strictement incapables
de
se
limiter
à
améliorer
essence des créateurs : ils ont déjà su,
avec TimeOul. inventer les chemins
de J'avenir. Préparons-nous à d'autres
belles surprises" ,
Beagle Uros/Père Noël
6215 Ferris Square, Suite 100,
San Diego, CA 92121. USA.
Jem Sortware/Randy Brandt
P.O. Box 20920, El Cajon,
est effectivement un besoin des
humoristiques, plus de complicité
utilisateurs.
ces
entre auteur et lecteur, plus de clin
applications (au moins SuperFonts)
d'œil ; et plus non plus de celte
sont tellement au-dessus du lot de ce
pédagogie souriante qui enseignait
1163 Triton Drive, Foster City,
Certaines
de
CA 92021, USA.
PBI Software, Inc
des innovations, De plus, cela permet
sans qu'il s'en aperçoive au lecteur à
CA 94404, USA.
maîcriser sa machine, et peut-êcre, qui
Pinpoint
d'assurer un oon départ, une bonne
sait, à devenir un jour un auteur
assise pour la série, ce qui permettra
Beagle. Nous sommes au royaume des
5901 Christie Avenue, EmeryviJIe,
CA 94608, USA.
qui existait déjà qu'elles sont en fait
des développements nouveaux et
"pros" : tenue stricte, documentations
peut-être plus risqués, Enfm cela
"c1ean", compartiments étanches
POM LINK 3 .0 : PLUS LOIN . . .
le
programme du concurrent. Ce som par
Publishing
ment de la couleur des caractéres ou cie
la couleur cie lond seule ;
idem mais exprimé en pourcentage de
réglage du délai imparti à la connexion ;
routine de temporisation pour allouer des
l'ex.ploitation des /essources Minitel. Elle
délais ;
ouvre la porteà la réalisation de serveurs très
affichage des caractères émis et reçus
calcul automatique de la durée de com­
puissants.
(deb<Jgging) ;
affichage de la date et de l'halle ;
l'AppleIl, en secondes surla Macintosh ;
Parmi tes instructions nouvelles :
instruction accept sans effacement des
32
niveau de gris ;
La ve/sion 3.0 de Pom_Link va plus loin dans
munication (en minutes entiéres sur
fonctions utilitaires (sur rApple Il : bug de
fONERR.. . sur le Macintosh : change­
geslion du mode téléinformatique ;
points ;
mise en mode téléinformatique, mise en
instruction accept numérique contrôlée ;
menl de curseur, chargement des icônes
mode Vidéotex ;
instruction spécialisées pou/ le change-
systéme... )
Porn's n° 34
1?j,]pCOJm Pdeur...
AjpljpJl© Il
... enregistreur, télématique, interrogea6fe...
Christian Piard
e répondeur télématique que nous
vous proposons i c i n'est qu'une
illustration des multiples possibilités
des routines Pom Link 2. 1 . Il n'en est
pas moins complet, fiable et convivial.
Il se distingue de 90 % des
serveurs-kiosque par la rapidité
et le contrôle des saisies au "clavier : on ne
risque pas de saisir 8 caractères là où on en
attend 3 ; ainsi, l'aspect de l'écran est
protégé. L'utilisateur reste toujours dans
les zones qui lui sont allouées.
Fonctions du répondeur
Le principe de l'ensemble est le suivant :
Un client, un ami vous appelle en votre absence :
l'apple /1 détecte cet appel, connecte votre Minitel.
Votre client et néanmoins ami reçoit alors la
tonalité familière aux habitués du Minitel et
connecte son propre Minitel (avec la touche
Connexion/Fin). Le dialogue peut s'engager entre
votre ordinateur-serveur et l'ami et/ou relation
d'affaires.
Il aura la possibilité de laisser un ou plusieurs
messages qui seront enregistrés sur disque. En fin
de communication, ordinateur-serveur et Minitel
se remettent en veille dans j'attente du prochain
appel.
Tout ceci se passe alors que vous êtes fort loin de
votre domicilelbureau/atelier ? Appelez chez vous
avec un Minitel sous la main : vous pourrez
demander la lecture, depuis votre lieu de vacances
par exemple, des messages télématiques qui ont
Pom's n°
34
été laissés sur l'ordinateur. Cet accès à vos
messages est évidemment protégé par un mot de
passe. Beaucoup de messages sont arrivés, vous
craignez la saturation du disque ? VO? S avez
également la possibilité d'effacer le fiC?Ier pour
libérer de la place. Luxe supplémentaIre, vous
changerez si nécessaire le mot de passe (cas où
vous l'auriez communiqué à un ami - client ? pour démonstration).
Hard : comment faire ?
L'ordinateur. Ce programme fonctionne avec :
Apple ][+, Rom minuscules, carte langage,
cane Super Série Apple ou ;
Apple Ile, cane Super Série Apple ou ;
Apple Ile ou ;
Apple IIgs (sur port série intégré ou carte
Super Série Apple).
Le Minitel. Il sera nécessairement bi-standard
( 1 B) c'est-à-dire avec modem retournab/e
(aujourd'hui, c'est presque toujours le cas).
Le détecteur de sonnerie. Peu importe son
type : celui dont le schéma a paru dans le
numéro 33 de Pom's convient, celui vendu par
votre revue préférée également. Notez toutefois
que la fiabilité de l'ensemble est directement
fonction de la qualité des composants utilisés.
Le câble MinitellApple. Il est maintemant bien
connu. Vous l'utilisez déjà avec MinBas
(Pom's 27), InterPom's (28), T.Pom's (30),
Clv]om's, HGR/Minitel (33). S'il vous
manque, Pom's en dispose.
Le port ou la carte série de l'Apple. Sur les
Apple ][ + ou Ile, la carte série sera configurée
ainsi :
'.... 1
33
Au menu
Quatre options sont proposées à l'écran de
l'Apple Il :
,,,,2
1 Act iver le serveur : votre ordinateur se met
Sur votre IIGS, à l'aide du tableau de bord, mettre
toutes les options port modem par défaut sauf :
Data/Stop
Bits
7/1
Even
Parity
DCD Handshake
: No
DSR/DTR Handshake
No
Soft : comment faire ?
Ce paragraphe ne vous concerne que si vous ne
disposez pas de la disquette d'accompagnement de
ce numéro. Il vous faut saisir et sauvegarder sur
une disquette ProDOS le programme Basic
Repomdeur. En ce qui concerne, Pom.link.2. 1 ,
même pensum ; i l est toutefois plus fiable de
reprendre le source et de l'assembler car les
erreurs sont en principe décelées plus facilement.
Sur votre disquette, n'oubliez pas de mettre
ProDOS 8 (version 1 . 1 . 1 o u plus) et
Basic.System.
1!
Avant de lancer l'ensemble, modifier la ligne
Basic 26 pour indiquer :
votre mot de passe à la place de ABCDE (de
4 à 7 caractères ;
votre numéro de téléphone à la place de (1)
12 34 5 6 7 8 (maximum 1 5 caractères) ;
votre nom à la place de M. Xxxxxxxxxx
(maximum 15 caractères).
1
1
L'ensemble est alors prêt à enregistrer fidèlement
les messages ; faire simplement :
RUN REPOMDEUR
Le serveur en service
Rien de passionnant n'apparaît sur l'écran de
l'Apple lors du fonctionnement du serveur ; trois
messages seulement :
Attente d ' un appel.
attente de connexion
Appel. reçu,
Connexion ok,
serveur a c t i f .
Côté correspondant utilisateur, c'est plus complet ;
après deux pages de présentation du répondeur le
menu principal apparaît offrant :
l
Laisser
un
message
2 Fonctions
de service
ce
répondeur
3 Quitter
L'option 1 invite sur une page écran à laisser nom,
prénom et numéro de céléphone puis 7 lignes de
message. Un écran de validation s'affiche ensuite
pour inviter le correspondant (et toujours client) à
confirmer, à corriger ou à annuler le message.
L'option 2, qui donne accès aux fonctions de
service, demande en premier lieu le mOl de passe.
Seules trois tentatives sont permises avant
déconnexion forcée (même si l'on revient au
sommaire après chaque essai infructueux).
Le menu des foncrions de service est le suivant :
l
Lire
les
2 Effacer
3 Changer
messages
le fichier
le mot de passe
La première tâche du programme sera de créer le
fichier (le message Erreur 1 8 s'affiche si la
disquette est protégée en écriture . . . ).
L'option 1 affiche le dernier message reçu ; on
accède aux différents enregistrements avec SUITE
et RETOUR.
Changer de nom
L'option 2 évite les effacements involontaires de
fichier en attendant les trois lettres OUI avant de
supprimer les messages.
Petite simplification de programmation, le
changement du nom et du numéro de téléphone
n'est pas prévu. La méthode est l a suivante :
effacer le fichier de message par
DELETE
F I C . REPONDEUR
puis modifier la ligne 26 et . . .
RUN
34
à l'écoute de la ligne et attend patiemment le
premier appel. On sort de ce mode par ESC ;
2 Lire les messages : vous avez pu aussi les
lire à distance ;
3 Effacer les messages : c'est aussi une
opération que vous pourriez faife à distance ;
4 Quitter le programme.
REPOMDEUR
Le changement de mot de passe par l'oplion 3 est
fiable : les caractères frappés au clavier sont
remplacés à l'écran par des ' * ' par souci de
discrétion et le nouveau mot est demandé deux
fois pour être à l'abri des fautes de frappe.
û
Porn's nO 34
.
Programme
'REPOMDEUR '
2
REM ----------reloge éventuel1ement ---------
3
IF
la
Il
(l03)
7681
(4} �-repomdellr"
(21) : HOME
CHRS
(4J "-pom . llnk . 2 . 1
" " :PR$ .. " " : TL $ .. .... ; FOR l
11117', 2 :N$ ..
.. 0 10 6:M$(I)
12 OS "
22
CHR$
CHR$
PRINT
'
>
POXE 103, 1 : POKE 1 0 4 , 3 0 : PO!Π7680.
PRINT
PEEX
<
(104)
0: PRINT
6
• 256 +
PEEK
THEN
.. " " : NEXT :PO .. a
(4) :FIS .. "tlc. repomdeuc "
CIIR$
COTO 25
ONERR
23
PRINT DS"open "FI$", 1255"; PRINT DS"reiJd"FI$
24
GOrD JO
25
ONERR
" , c O " : INPUT LG,MOS,TES,NOS
GOro 20000
26 MaS " "ABCDE " : TE$ .. H {l)
"M.
12 34 56 78":NO$ ..
Xxxxxxxx"
27
PRINT DS"r.lcHe"FIS " , r O " : PRINT 0 : PRINT MO$
JO
PRINT DS "cl ose
38
GOTO 9000
40
HOME
: PRINT TES .- PRINT NO$
:PO .. O:ES .. 0
45 US .. "Attente d'un iJppel
(Esc " menu) " ; GOSU
B 8000
49
REM ----------a t ten te de l ' appel-----------
50
" APPEL, AI
51
IF
(4 91 S2)
PEEX
- 155 THEN
ssc
"-
If' ' H+
POXE 491 68, 0 :
GOTO 9000
52
ON
NOT AI GOTO 50
55 U$ - �Appe1 reçu,
60
" CNXR, A I
70
ON
�
�tten te de connexion � : GOS
BOOO
US
NOT AI GOTO 1 0 0 1 0
75 US - �ConneKi on ok,
p
=
ou
serveur �ctif�: GOSUB BO
Ile
Ile+
II GS
Ile
00
97
REM ---------------lère page---------------
98
" M'rH, 1
99
" DEPLAcr, 1 , 1 3
100
,
AFFICHE, " 1
101
,
AFFICHE, "1
.. ..
. .". .. " ç �
, 1
''' ç
l' " " ç
. . . . . ..
, •
, 1
è é /'"ç_l "
/'
'''ç 1
• •
102
" AFFICHE, �é / '" ç è é l 'ç è é l''ç l''ç è é
103
" AFFICHE, �é é
è é é é è é é è é è é è é
104
" AFFICHE, �é é
è è é ê è è é è é è é è
è é ç_
l ,
,"
ç-
"
105
129
120
ç�
" AFFICHE, "é ç_1 è é ç_1 è ê è é è é è
, ."
" AFFICHE, "Vous Aetes bi
" AFFICHE, � é è " : " AFF
2JO
" DEPLACE, 4, 5 :
" 14ODE, 2 :
240
" DEPLACE, 4 , 1 0 : , AFFICHE, "Votre interl
250
" DEPLACE, 4 , 1 2 :
260
" DEPLACE, 4 , 1 4 : " AFFICHE, HVOS messages
270
" DEPLACE, 13, 1 8 :
" AFFICHE, "é è " :
,_1
" AFFICHE, "ç_1
" PARAHT, 1 , 2 , 0, 0, 0, 0 : " AFFICHE, �- La re
VI,Ie des Apple -"." BAS, 4 :
JIRAHT, 0, 2, 0, 0, 0, 0
t
CHR$
(lB)
t
CNRS
, 20 , 2 , 0, 5, °
en au .. + TES;
" CADRE, 1 , B , 4 0
" AFFICHE,NOS,.
ocuteur est un�,.
" DEPLAcr, 9, 1 7 : " P
" AFFICHE, Hordinateur A
pple prAee .t enregistrer";
et confidences . . . ";
(86) ; :
& DEPLAcr, 12, l B ; , PARAHT, 0, 3, O, O, 0, O :
Porn's nO 34
REM ---------------2ème page--------------
" DEPLACE, 4 , 3 :
108
"
_ "
" M'TH, °
FOR l - 1 TO 1 0 0 0 : NEXT
220
,--1"
" AFFICHE,
(92)
ç_1 ç_1 ç_/
" AFFICHE, �é ç_ 1
112
CHR$
" VIDECRAN
107
" HAUT, 1 2 :
+
" CADRE, 1 , 1, 40, 7 , 2 , 0 , 5, 0 :
l"ç_1 è�
110
(lB)
210
1 é è é é é é
1 ç
" AFFICHE, "é
ICHE, "ê è " :
199
CHRS
200
106
109
& AFFICHE, "_" +
" AFFICHE, "Accès au me
35
nu
"; : ,
:
INVERSE
:
, AFFICIŒ, "
,.
280
' DEPLACE, 1 8 , 1 9 :
"; :
,
, It.EFICHE, "Renoncer
& DEPLACE, 13, 7:
FO."? l .. Il
805
ON PO GOTO 810,850,880,910
:
' It.FFICIŒ, " Conn exion
INVERSE :
802
803
.,
& AFFICHE, TL$;
ro 1 7 :
&
290
' ACCEPTF, AI
300
ON
830
COS US 4 0 0 0 : GOTO 810
340
GOSUS 4 0 0 0 : GOTO 290
835
GOSUB 5 0 0 0 : GOTO 810
499
REM ---------------Sommllire---------------
840
IF N$ ..
500
PRINT DS"close":
845
IF El .. 1 GOTO 990
510
' DEPLACE, 9 , 4 :
520
GOSUB 6000
NOT At GOTO 10000:
ON AI GOTO 500,340,
200,340,340,500,500,10010,340
1, l, 40, 6, 4
, VIDECRAN:
AFFICHE, " Répondeur
,
NOT Et GOTO 10000:
.. " THEN
' ALERTE, "Nom indispensa
ble . . . .., l : GOro 810
850 PO '"' 2 : ' ACCEPT, 13, 6, 0, ...., 1 6, PR$, E.
télémlltique";
860
NOT E' GOTO 1 0 0 0 0 : ON Et GOTa 990,810,
ON
700,875,870,500, 880, 1 0010
550
, PARAHT, 0, 7, 0, 0, 0, 0
870
GOSUB 4 0 0 0 : Garo 850
560
' DEPLACE, 8, 1 1 :
, AFFICHE, "Laisser un m
875
GOSUS 5 0 0 0 : GOTO 850
5 70
' DEPLACE, 8, 1 4 :
, AFFICHE, "Fonctions de
890
ON
580
' DEPLACE, 8, 1 7 :
, AFFICHE, "Quitter ce r
900
COSUB 4 0 0 0 :
COTO 880
905
GOSUS 5000:
GOTO 880
essage";
880 PO - 3 :
service";
' DEPLACE, 1 5 , 2 2 :
oi ":
600 CliS "
610
ON
+
"; :
,
' AFFICHE, "Votre choix
INVERSE
:
' AFFICHE, " Env
910 NN .. 0
915 V - NN + I l
920 PO " 4 :
.... :
NOT El GOTO 1 0 0 0 0 : ON El GOro 650,200,
GOSUS 5000: GOTO
630
IF CliS < " 1 " OR CH$ >
650
IF CHS < "1 H OR CliS >
660
ON
700
REM -----------Enreg du messa ge-----------
710
'
600
"3" THEN
GOSUS
7000
"3" THEN
GOSUS
7000
: GOro 600
930
GOSUS 5000: GOTO 915
940
GOSUS 4000: Garo 915
' DEPLACE, 3 , 2 :
PARAHT, O, 7, 4, 0, 0, 0 :
'
' DEPLACE, 1 , 5 :
• AFFICHE, "
"; :
E, " " ; :
,
Prén om
1002
,
1004
1006
:
' AFFICHE, " Sui te
, CHARIOT :
:
NORHAL
'
1010
.
' AFFICHE, " Suite
:
, MODE, 2 :
,
FOR l - Il
770
' DEPLACE, l , ! :
E, "
";:
,
�
DEPLACE, 4, 9 :
FOR l .. 0 TO 6:
Nom
&
INVERSll
.
, AFFICH
' AFFICHE, " Suite
:
, DEPLACE, 6, 11
vlliider . . .
, AFFICHE, "
Envoi
";:
, AFFICHE, "
";:
, It.
+ I:
1060
�
.
.
.
.
. . .
"; :
INVERSE
NORMAL
'
":
INVERSE
'
NORMAL
' AFFICHE, �Pour l 'annuler . . . . . . . . . .
, AFFICHE, "
"; :
, AFFICHE, � Annulation
1050
,
":
, AFFICIŒ, " Correction
1040
, LIGNE :
' AFFICHE, "Téléph
AFFICHE, "Pour le modifier . . . . . . . . . "; :
, LIGNE:
' AFFICHE, " . . . . . . . . . . . .
�::
, AFFICHE, �Prénom
, AFFICHE, "Pour le
, LIGNE :
+
;"
• AFFICHE, "
, DEPLAŒ, 1 , 2 1
, AFFICHE, "
1030
TO 17
. • . • • . . . . . • • . . .
, DEPLACE, 4, 8 :
, LIGNE:
AFF
ICHE, "���Message���·,
760
' DEPLACE, 4, 7 :
E'FICHE, MS(I) ; ; NEXT
+ " ; : , LIGNE: , AFFICH
INVERSE
.,
750
' AFFICHE, "
TLS:
, AiTICHE, "Téléphone :
• • . • • • . • • • . • . . •
E, " "; :
, DEPLACE, l , 3 :
PRS;
1020
, DEPLACE, l, 7 :
VIDECRAN:
Voici votre message tel qu 'lI serll " : , AF
FICHE, "enregistré
1000
+ "; : , LIGNE : , /tFFICH
INVERSE :
,
.
' AFFICHE, " Suite
:
, AFFICHE, "
. . . . . . . . . . . . .
:
+ "; : , LIGNE: ' AFFICH
INVERSE
' DEPLACE, l, 6:
990
NS;
";
730
GOTO 915
GOTO 915:NN '"'
!<EM ----------écnn de val1dilti on---------
En
, CADR
' AFFICHE, "Votre nom
• • . . . • . • • • . . . . •
,
- 1
>
989
INVERSE
E , 2 , 1 , 3 8 , 3 , 0, 0,2, °
"; :
7 GOTO 990:
980 NN " NN - 1 : ON NN <
0 : GOro 880
GOTO 700,3000,9900
(CRS)
VIDECRAN:
E, "
NOT E' GOTO 1 0 0 0 0 : ON E' GOTO 990,980,
950 NN " NN + 1 : ON NN
regi stremen t de votre message
720
ON
935
: GOro 600
•
' ACCEP1', l , V, o, "",
700, 935, 940, 500, 950, 10010
620
:
' DEPLACE, l , V:
28, M$ (NN) , E'
, ACCEPT, 29,22,0, ...., l, CH$,E.
500, 620, 600, 600, 650,10010
VAL
' It.CCEPT, 13, 7, 0, .. .., 1 6, TLS,Et
NOT E' GOTO 1 0 0 0 0 : ON e. GOrO 990, 850,
700,905,900,500, 910, 1 0 0 1 0
épondeur";
590
ON Et GOTO 840,830,
700, 835,830, 500,840, 1 0 0 1 0
, VIDRECT,
, PARAHT, 1 , 7, 4, 0, 0, 0 :
ON
AFFIC
& ACCEPT, 13, 5, 0, ...., 1 6, N$,Et
810 PO .. 1 :
820
&
DEPLACE, l , I:
HE,MS (1 - Il) ; : NEXT
�:
�
.
, .
INVERSE
,
NORMAL
, ACCEPTF, At
ON
NOT AI GOro 1 0 0 0 0 :
ON AI GOTO 1 1 0 0 , 70
0 , 9 9 0 , 1 070, 500,500,1 065, 1 0 0 1 0 , 7 0 0
780
NEXT
790
' DEPLACE, l , 2 0 :
, AFFICHE, "Pour valider
votre message : "; :
.. " ; :
"; :
,
36
, LIGNE:
: ";:
INVERSE
:
,
: ' AFFICIŒ, "
, DEPLACE, 1 3 , 2 1 :
'annuler
,
INVERSE
, LIGHE:
,
M'FICIŒ,
Envoi
1065
' ALERTE, "Touche interdite", 0 : GOTO 1050
1070
GOSUS 5000: GOro 1050
1099
REM ------------enregistremen t----------­
1100
' M'FICHE, "
' Ai'FICHE, " Sommaire
"; :
";
, VIDECRAN:
, DEPLAŒ, 6, 1 2 :
, AFFICHE
, "Enregistrement en cours";
AFFICHE, "Pour 1
1103
PRINT D�"open"FIS",1255"
110S
PRINT D�Hread HFI$ H,rO
INPUT LG
800
, DEPLACE, 13, 5 :
, AFFICHE,NS;
1110
801
' DEPLACE, l3, 6:
, AFFICHE, PRS;
ll20 LG - LG + l
Porn's nO 34
1130
PRINT D$":.trite-FIS" , r O " ,' PRINT LG: PRIN'!'
110$ : PRINT TE$ ,' PRINT NO$
1140
ODE, O
3144
PRINT DS"write"FIS", r "LG
1150
PRINT NS: PRINT PRS: PRINT TL$: FOR 1 .. 0
1160
PRINT DS"close
' PARAHT. 0 . 2 . 0, O. 0. 0 : ' HTH, l : ' AFFIC
HE. ,,�- t
TO 6: PRINT M$(I} : NEXT
' LIGNE:
1 1 65
FOR 1 .. 0 TO 6:MS (I}
1169
REM --------- - --darnier écran-----------­
;
1170
& VIDECRAN:
,nt
" " : NEXT
& DEPLACE, 6, 1 2 :
(64 t 39) ; : ,
CHR$
, AFFICHE. H "; :
, AFFICHE, �
& AFFICHE
, "Votre message est enregi stré .
LACE, l l , 1 4 :
t
0. 0. 0 : ' AFFICHE, "précédent
3146
..
(lBl
CHRS
NTH, O : , DEPua. 9, 5 : , PARAH'I'. 0, 6. 0,
. .
" : & DEP
& AFFICHE, " . . . t,ites "; :
INVERSE : & AFFICHE, " Sommaire "; : &
,
3148
, AFFICHE, H
H; :
& AFFICHE, �Sui v
,
�;:
..
IN
Suite
, PARANT, 0, 6, 0, 0, 0, 0 ,' ,
" DEPLACE.15, 7:
�
INVERSE :
, DEPLACE , 1 1 , 6
" LIGNE : , AFFICHE, "
: "; :
: "; :
AFFICHE, "Fin
OCEPTF, A I : OH AI .. 0 OR AI .. 8 GOTO 1001
";
, PARANT. O. 6. 0, O. 0, 0 :
VERSE :
JI!.
Retour
: -;
,
, LICNE : , AFFICHE,
INVERSE : ' AFFICHE, .. Sommaire
O:PO .. 4: GOTO 500
3000
REM ----------fonctions de service------­
3010
, VIDECRAN:
PLACE , 1 0 , 4 :
3150
, VIDRECT, l, l , 40, 6, 4 : & DE
' PARAHT, 0 . 2 , O, O,0. 0 : ' AFFICHE. "_ "
, PARAHT, 1 . 7, 4. 0. 0. 0 : & AFF
ICHE, " Fonctions de service";:
, PARAHT,
.. t
3152
, DEPLACE, 32, 1 2 : , AFFICHE, "t " ; : '
' DEPIACE, 1 5 , 1 5 :
cer :
";:
,
I
39) ; :
";
O. O :
' AFFICHE, "Pour renon
INVERSE :
' AFFICHE, " Somm
3154
H,
ON
7, MPS. El
3180
' DEPLACE. l . 2 4 :
" +
1}
IF ES .. 1 THEN
' ALERTE, "Mot de passe e
3196
..
IF ES
2 THEN
' ALERTE. "Erreur.
encore
3198
, AFFICH
3200
..
CHR$
" PARAHT, 0 , 2 . 0. 0, O, O : "
CHR$
(18)
t
(64 +
CHR$
1 TO 3 : INPUT IS(I) ; NEXT
& DEPLACE. 8. 1 4 :
tacer le fichier " ; :
' AFFICHE, "Ef
, DEPLACE, B . 1 7 : , AF
" AFFICHE. '"
t " " t
..
. ,
+ IS (
' AFFICHE, .. . . >
t
(24)
CHRS
1 10 7:
'>
(24)
CHRS
' DEPLACE. 2 , 1 6
.. + MSS (I - 1 1
t
-
t
I$ (
1:
" +
, A
CHRS
, ACCEPTF, A ' : ON
3230
ON A' GOro 3240. 3250, 3140, 3235, 3240.500,3
, DEPLACE. 1 5 . 2 2 : , AFFICHE, "Votre choi
t "; :
&
INVERSE :
NOT AI COTO 10000
260,10010, 3240
3235
GOSUB 5000: GOTO 3220
3240
GOSUS 4 0 0 0 : GOTa 3220
3250 NO .. NO - 1
FICHE. "Changer le mot de passe";
3252
' AFFICHE, " En
voi ";
304 8 CH$ .. ....
ON
t " " +
+ I$ (
"">
(24)
3220
& DEPLACE, B, l l : , AFFICHE, "Lire les me
ssage s " ; :
..
' AFFICHE,
CHR$
(24) ; : NEXT
0: GaSUB 6000
3050 CHS
(NO) ;
+
t H "
FOR l
10010
x :
STR$
rrICHE. " ,
déconnexion torcée . . , " ; : GOro
3028 ES .. 0: , VIDLIGNE, 12. 0: , VIDLIGNE. 15,
ON NO > 0 GOTO 3 1 7 0 :NO " ) : ' ALERTE, H C '
est le premier message", l : GOTO 3220
3260 NO .. NO t 1
3262
" " : , AOCEPf'. 29. 22, 0, ...., l, CH$.E.
NOT El GOTO 1 0 0 0 0 : ON E' GOTO 3070.30
3065
GOSUS 4 0 0 0 : GOTO 3050
3066
GOSUS 5000: Garo 3050
3070
IF CHS
<
" 1 " OR CHS >
3299
3300
GOSUS 700
3100
PRINT DS"open"FI$-, 1255
3120
PRINT DS"read"FIS " , r O - : INPUT LG
t
" DEPLACE. 2, 3 :
t
& MODE, l :
CHR$
Pom's nO 34
' AFFICHE, "Cette comma
, AFFICHE. "des messages stockés , "
' AFFICHE, "On ne peut
' DEPLACE. 5 . 1 3 :
3325 R$
...
"":
, DEPLACE. 5,22: , AFFICHE, "Pou
r effacer :
(64 t 3 9 ) :
' AFFICHE. "Co
nsu1tation des messages enregistré s � :
, PARAHT, O
annuler un effacement . . . ..
, PARAHT. 0, 2 . 0 , 0. 0. 0 : , AI'
(lB)
, VIDRECT, l, 1. 40, 6, 4 : , DE
, DEPLACE, 5. 1 0 :
:
3320
PRINT DS-close": , ALERT
CHRS
, VIDECRAN:
nde supprime l ' ensemble " : , DEPLACE. 5, 11
E. "Aucun message reçu", 1 : GOTO 3050
, VIDECRAN:
REM ----------ettacer le fichier---------
, 7. 0. 0. 0, 0
3310
3110
FICHE. �_ "
LG GOTO 3170 :NO .. LG: , ALERT
ICHE, " Effacement fichier "; :
"3" THEN
ON VAL (CH$) GOro 3100. 3300.3500
REM -------------lecture fic------- ------
3135 NO .. LG
..
<
PLACE. 1 0, 4 : ' PARAHT. l , 7 , 4 . 0 . 0 , 0 : " AFF
0: GOTO 3048
IF LG .. 0 THEN
ON NO
E, "C'est le dernier", l : GOTO 3220
00. 3065.30 66, 3065.500. 3070,10010
3142
+
' DEPLACE. 2 , 1 5 :
3)
, VIDECAAN: , DEPLACE, 1 0 , 1 2 ;
E, "Désolé.
3140
.. . ..
' DEPLACE. 2 . 1 4 :
2}
un essai ". l : GOro 3014
3130
+
' DEPLACE, 2, 1 3 :
rroné". l : GOTO 3014
3075
(18)
PRINT DS"read"FI$". r"NO
FOR 1
GOTO 3014
3020 ES .. ES t 1
•
CHRS
3194
IF MPS .. MO$ GOTO 3028
3060
, DEPLACE. 1 . 1 6 : ' PARAHT. 0. 4 . 0. 0.
, DEPLACE, 2, 1 0 : ' AFFICHE. " Message nO
3018
3040
,
+
3192
GOSUB 5000: GOTO 3014
3030
(64
CHRS
FOR 1 " 0 TO 6 : INPUT MSS (I) : NEXT
GOSUS 4000:
3024
+
(l8)
3190
3016
3023
CHRS
0,3000,3016,3017.500.3018.10010
3017
3022
(64 t 3 9 ) ;
39) ;
3170
NOT El GaTO 1 0 0 0 0 : ON el GOTO 3018,50
CIIRS
t
, AFFICHE. H
" PARAHT, O, 4 . 0. 0, 0. 0 :
& AFFICHE, " · " t
AFFICHE•
3014 MPS .. " " : , SECRET, 9. 1 2, O. "Mot de passe :
3015
t
(64 t 39) :
(64 t 39)
H;
,ire
(18)
CHRS
AFFICHE, H ' " t
NVERSE : & AFFICHE, " Envoi
3013
CHR$
, DEPLACE. l , 1 2 :
0, 7, 0. 0, 0, 0
3012
+
(18)
CHRS
t. H
"; :
. " OUI + Envoi
3327
' DEPLACE, 5. 23:
er
:
aire
" .. : ,
,
INVERSE :
' AFFICHE
";
, AFFICHE. "pour renonc
INVElI.SE : ' AFFICHE, "
Somm
�;
3330 R$ .. " " : , ACCEPT, 10, 16. 0, "Ok pour tout e
37
ffacer
3340
ON
?
ICHE, � 3 " ; : RETURN
� , 3 , R$,E1
NOT E1 GOTO 1 0 0 0 0 :
ON E1 GOTO 3380,33
50,3300,3360,500,500,3350,10010
3350
GOSUB 4 0 0 0 : GOro 3330
3360
GOSUB 5000: GOro 3330
3380
IF R$ <
>
3400
3410
3420
& ALER'!'E, "Choix impossible", 1 : RETURN
8000
VTAB 1 0 : PRINT US; : CALL
9000
"OUI" THEN R$ ..
"H:
& ALERTE,
GOTO 3330
VTAB 23: FOR l .. 1 1'0 23: PRINT : NEXT
9020
PRINT
PRIN'!' D$"write"FI$ � , r O " : PRINT 0 : PRINT M
9030
PRINT
1 activer l e serveur
9040
PRINT
2 lire les messages
PRINT D$"close"
9050
PRINT
3 effacer les messages
9055
PRINT
4 quitter ce programme": PRINT
& VIDECRAN:
INVERSE
&
DEPLACE, 6 , 1 2 :
& AFFICHE
&
été réinitialisé . . . � :
& AFFICHE, � . . . faites
"; :
: PRINT
DE
&
9060
& AFFICHE, " Sommaire " ; : &
:
9070
ON
HOME : END
&
9100
PRINT : PRINT
& VIDRECT, l, 1, 40, 6, 4: & DE
VIDECRAN:
& PARAHT, 1 , 7, 4, 0, 0, O :
ICHE, "Mot de p a s s e " ; :
&
& AFF
PARANT, O, 7, O, O, O
DEPLACE, L 2 3 :
faites
:
";:
& AFFICHE, "Pour renonc
&
INVERSE :
GOro 40,9100, 9400, 9080
PRINT D$�open "FI$ ",1255
PRINT D$"read"FI$ " , r O " :
INPUT LG: PRINT D
9130
AFFICHE, " Envoi
& DEPLACI!:, l , 1 6 :
& AFFICHE, �Taper le no
&
INVERSE
";
& AFFICHE, "Taper le
9140
PRINT D$"close�: PRINT HA
9150
il
PRINT "Vous a vez
1 THEN
&
9160
3540
& CADRE,25, 12, 35, 1 4 , 2 , 0,5, 0
3550
&
9170
INPUT "N� du message il
_
H;N1$:N1
VIIL
lire
(N1$)
IF Nl < 0 OR Nl > LG THEN
(0 pour tlnir
PRINT HDe 1 à
"LG� . . . H : GOTO 9150
CADRE, 25, 17, 35,19,2, 0, S, 0
9172
ON
9175
PRINT , PRINT "Message " . "Nl"
ON Et GOTO 3600, 3590,3500, 3595, 3590 , 5 0 0 , 3
9180
PRINT D$"read"FI$H, rHNl
600, 10010
9190
3570
ON
3580
"H:
& SECRET, 27, 13, 0, "", 7,Rl$,Et
NOT Et GOTO 10000
3590
GOSUB 4 0 0 0 : GOro 3560
3595
GOSUB 5 0 0 0 : GOro 3560
3600
IF
LEN
(Rl$)
<
9200
& ALERTE, "Minimu
m 4 caractères", 1 : GOTO 3560
3610 R2$ "
HH:
& SECRET, 27, 1 8 , 0 , "", 7,R2$,EI
3620
ON
3630
ON Et GOTO 3680,3640,3500,3645,3640,500,3
NOT Et GOro 10000
FOR l - 1
FOR l - 1
3645
GOSUB 5000: GOro 3610
3680
IF Rl$ <
> R2$
THEN
TO 3 , INPUT A $ : PRINT "-->
INPUT A $ : PRINT - ,
TO 7 ,
PRINT D$"c1ose " :
9400
PRINT : PRINT HOk pour effacer TOUS les m
9420
9430
GOro 9020
?"
INPUT �Répondre OUI pour effacer ",·Nl$:
>
0
HOUI" GOro 9500
PRINT D$"open"FI$",1255
PRINT D$Hk'ri ta"FI $ � , r O " : PRINT 0 : PRINT M
0$: PRINT TE$ : PRINT NO$
PRINT D$"opan�FI$",1255"
9440
3710
PRINT D$"write"FI$" , r O " ; PRINT LG: PRINT
9450
Ma$: PRINT TE$ : PRINT NO$
3720
PRINT D$"close"
3730
& VIDECRAN:
• DEPLACE, 6, 12:
INVERSE :
ACCEPTF, A t :
PRINT D$Hclose"
PRINT
PRINT "Messages etta c é s � : GOTO 90
20
& AFFICHE
, "Le mot de passe a été changé . .
EPLACE, 1 1 , 1 4 :
& AFFICHE, " . . , faites
":
"i :
& AFFICHE, " Sommaire "; :
& D
PRINT "Ordre annulé":
PRINT
9899
REM ----------tin & déconnexion ---------­
9900
& VIDECRAN:
&
DEPLACE , l 0, 12:
&
9910
10000
PRINT D$Helose H ;
& VIDECRAN:
&
, DECNX:
REM --------------sous -prog- .------------
in utes, "," :
& ALERTE, "Toucha inactive ici", O : RETURN
éconnexion forcée . ";
5000
& ALERTE, �Guide indisponIble", O : RETURN
19999
& CADRE, 4 , 1 0 , 6 , 1 2 , 2 , 0 , 5, 0 : & AFFICHE, �l
20000
& AFFICH
& AFF
'
FLASH
: & AFFICHE, HMinitel inactif depuis 2 m
4000
10010
GOTO 40
DEPLACE, 3, 1 2 :
3999
CADRE, 4 , 1 6, 6, 1 8, 2, 0, 5, 0 :
; AFFICH
E, �Au ravoir . . . � ;
ON At .. ° OR Al .. 8 GOTO 1 0
& CADRE, 4, 13, 6 , 1 5 , 2, 0, 5, 0 :
GOTO 9020
9500
010: GOTO 500
&
"A$: N
GOro 9150
3700
E,"2";:
"11$ :
9250
3690 MO$ .. Rl$
�.. :
PRINT
FIUNT D$
N Nl$ <
& ALERTE', "Les deux
.
9210
9410
mots da passe diffèren t ", l : GOro 3560
"
9205
essages
GOSUB 4000: GOro 3610
.
EXT
680, 10010
3640
&
NOT Nl GOTO 9250
NEXT
4 THEN
IF LG >
�LG" message",· :
PRINT "s ",·
PRINT : PRINT
) ;
nouveau pour contrAole";
3560 Rl$ -
IF LG .. ° THEN
ucun message reçuH; PRINT ; PRINT : GOTO 9
& AFFICHE
020
& DEPLACE, l , l l :
uveau mot de passe t "; :
38
(R$J
9120
, " Somma ire ";
6000
"4" GOT
,
er,
3530
VAL
9110
,0
&
G
o 9060
9080
PLACE, 1 4, 4 :
ON R$ < � 1 " OR R$ >
ET R$: PRINT :
GOro SOO
Votre choix "; :
VTAB 23: PRINT "
REM --------- -changer le mot de passe----
10:
3520
: " : PR
INT
ACCEPTF, A l : ON Al .. 0 OR Al .. 8 GOro 100
3510
: PRINT HVoulez- vous
PRINT
0$: PRINT TE$ : PRINT NO$
PLACE, l l , 1 4 :
3500
REM -------------menu général -----------­
9010
PRINT OS"open"FIS",12SS"
, "Le fichier a
3499
- 868: PRINT
RETURN
"Réponse incorrecte", O :
3390
7000
&
DEPLACE, 9, 1 4 :
PRINT D$Hclose " :
& AFFICHE, HO
& DECNX; Garo 4 0
REM ---------------erreur--------------& VIDECRAN:
me serveur " ;
& AFFICHE, "Désolé,
prob1é
& DECNX: PRINT D$"close": PR
INT "erreur " PEEK
(222) : END
Pom's n° 34
Cfiristian Piarc{
l
Les sources Procode, pour Apple
présentés ici doivent permettre
à chacun d'améliorer, d'adapter à
ses propres besoins les nouvelles
instructions serveur.
!
.u
'"
1/.
Ils sont présents en format texte
sur la disquette d'accompa­
gnement de ce numéro et sont
récupérables par tout autre
assembleur.
Dpi
,u
Id.
et.
Ida
ur7
10
na
IdO
ota
Id,
-
pl.(
put
JrMlI
Sok
d.�"c
pJ..'P
pl.daU
ou
.norr
HAD
.U
CIld,y
De"
cl>.r;et
!1nc:-d
CIOp
!:>n.
JO
SI
, h coaaaM.
CfId
•
,
..
"
"
1
!
..
"
..
"
"
"
"
"
"
"
"
"
"
"
"
$DEI'I�
$DD�e
ehhtr
,,"rq't
chrqo.
,'U
page 75 ou, pour les
SM
st)
$01>18
"
"
"
"
"
"
"
iO
"
SI
Hncmd
$Il
un
«d.lNt
SO
$IFl
Vd.Dut
ok
Hy
L2
Ida
nn,y
Porn's n° 34
'"
«,
'"0
'"
".
lWacU�r , del'
,inn.la !
"
$100
: ..uv. anchn
:vecUur
tz
. .utlo<l.2
..utlnd+!
U
..utlnd'2
dey
lin.
S1
,..
lO
'"
d..cnt
,e' n'ut pa'
, ..eut
qotby�e
:poaitign
hor1<
,poo1don
vert!
..
,..
=,
�.
,,"
,""
'"0
'"
urr
pUc:-d
e_nd., y
�
lCO/cpan d' a!>ora
"
,la 10n"uou<
,puh 1. n_
'lul-......
"
".
=,
: d.. c","""nd..
..
�."
'"
noroli_
qetbytc
, ..
0" t2
�o ,..
,.,
'"
'"
dblh
iv..
lhor
,..
"
'"
, ..
'"
..,
;poolUonn.
, le cur..ur
potition
, ..
".
".
".
'"
".
,,"
0'0
000
".
'"
".
,.ode dbl. h&�t •
, Q ou 1 ..uleunt
horoH_
""r..url
ch�"","
, ..
,..
ptrca<l
Iv..
..
, ..
pt<COI<I
Ihor
qotbyte
,.,
,,"
,e_par. , "I>.ocun.
HF'
<Irop
�o
, ..
UA
$Il
Id�
"'"1>
tin.
I�.
""'p
De"
tin.
inc
,..
".
o�
,OEct
..
inc
'"
n$U
st
.cru
IIDI
bn.
ine
,.ynt... .rror
$DDH
o."
n_a
..utincl
uudncl'i
, ..ut.
numéro 32.
$H"$
.un
$CODO
"
"
bricoleurs, dans le
.,..
vun..
vu"n.
I�y
l>aq
!ne
,lnlthlh.
, 1. ..ut
' v... la
,ro�tino concu"'.
,..
'"
'BEOt
ptrqn
onlr<
.tatuo
,on � trOuve
..,.tln<l.1
vadrco"utlnd.2
l'ordinateur ne sait
...out
pt.
lcadr=-
ou
l�a
ota
d'un serveur si
sonne ? Rendez-vous
kbd
_10...
_ut.
,n' d. 10 c_nd.
l�'
,..
UI
$1l4U
ql'0p"
fi
Source PL_2
Assembleur ProCODE
,','
Inor
hClOO
rO"pn.
rr_vi
t..top
ql'brtc
pa• •u
"
nO",,""
,tran.fon•• on
,.inu.cul. et
, .tOCk. 1•• cHoct
" u.qu"
1 virqui.
pas que le téléphone
"p
,FPED
cout
dau
U
Quel serait l'intérêt
.-----------------._..
•
H
,""orel>.. ordre
, acc.pt
.--.----------------_ .
eh\c_
,.ub.nt dana
ptread
ca...ond.,y ,Ubl.
l"p
trouve
nocaod
ca<!
UOO
pnCOl<l
Idy
Id,
�
inc
,Ile 1
tz
_
trouve
tin.
ine
l>aq
Source PL.1
Assembleur ProCODE
•
il
,ut_on our un
LO
clld
lU
Sil
lu
o�
l:>eq
nllCo
lnc
I<ly
cpy
lin.
llOf>
put pl . I
put p1.2
pl.3
,v.cteur ,
,cl>.o<c�.
..
h� oH
dok �.lInt.2.1
put
put
,Innoll. nouvnU
"
1<1&
tin.
d•.,
.ty
oty
"
put
d.u...,
Sok
Idy
Source PL.O
Assembleur Pro CODE
brI.
,>�.l>ut
tin.
«.
,..
SI
U4C
urs
l<d.lNt
ur'
Ido
..
v.cuur,y
tr••vi
Ch�Ot<
fa"""
forpnt
b.,..,.1
:invhlDl.
,tn'u. ehoin.
,c' ..t 1 Chain•
" 'cu",r. pointeur
,our chaln.
,t_ ..1r.
forpnt'l
"
ctorpnt l , y
'M'
Ihor
"
Cforpnt l , y ,,6cu"'n .duo..
,do 10 choin.
39
n.
"
S!ln.orf
pu.y
..py
tO
bno
SO
•••
�,
srtnarf
'"
j..
onvolcu
'"
,.
1"
SpolO
-,-
nb<:or
d.
'"
$lQok
'1'.'02
'oconnoxion l.unonU . . .
to..po
d.
,
dopallt
d.
,
al
dl
carr.cu
d.
dblh
d.
'0.... 0
,�ont.oh d h.
tchlonc
,dlnO 1'6enn
-,
�.
..,
'U
...
rina cOllpuuro
dleuh
Inltc�t
j"
1110
"
."
'"
n,
m
".
'"
'"
",
'"
'"
".
'"
".
no
'"
'"
m
n,
'"
trop
,.1 nk...du.
,.Uoc. lI'1no 0
j.,
"
flqO
'"
'"
�,
"".
,o r
'''''
dfb
dfb
",
".
Ile
dfb
",
".
w
"
tehfonc
tUO
dobl
, oui.
_
, onvol
,toucho !oncdon 1
nb<:or
lQltt
OH
'"
trop
rion
c....cu
t ', '
"
;.n d..
ou
t' . '
'ZOO, y
SO
rhn
Ihor
"
...
jn
, (01 ..crot,
t' "
Ive<
paddon
" ..
onvol
palalen
_..
Iho•
IVU
polidon
lQatt
�,
j. .
j. .
,affiche un point
SI
S2
nonrlp
,upolltionn.
'CU - CU _1
hu it.
, curuur en dtbut
,de Ion.
,.Ulc" IQ' pol",1
"""eurv
'"
Unacc
, podüonn cu...ur
:en d'but do Ion.
,"I len. vid.,
'"0«,
on
d.buil
"
,p..
flçO, y
: eUacl.
d.
c.. .
So
"
.nvoi
Sel
"
cur..urv
SU·. SU,Ul,UO
...
UZ,SU,Ut,UO,UI
..
debl
S.tr
' a orr.C.r .
d.bl
1.Ut,HO,HI,UO
Uz.,u,ur,uo,ul
, \ .tnuu
"
,1noctH
"
j-,
..
non..�
lU
oU
d
U
depult
:I"'
curo.url
dop.out
,u
.n
'�
hllpO'l
plnt
."
...
'rin d. lono'
U.... °
lU
n.
initcptl Id.
,u
,a toh 1 Uni
,lh. -.1nuu
, ......'1. d' aler.e
,den. 1_1non"
.Chl
M'
..,
OU
m
"
Hln
, d'po.. t
0
ehlido!
cur ..url
U
Ida
sorUQO, ...
:MinH. " pond pal
,œ
Id...
,..
Cp.
�,
...
Ida
...
'U
jn
...
.tJ ....
...
�vup
lvorpntl , y
cll�M"
:atund variable
ptrQet
, entUn
vupnt
vorpn •• l
vorna..
v
..no..n
..
cuuc"
" tecko lut donl
(vlrpnt ) , .,. ; vorloble entilro
"
(vupnt) • .,.
cur..uri
nbear
lQatt
SUn
,. .
.nvol
k"
"
dup
eh_c(lll.
,attl"d var chl1n.
ptrQet
:pcur atrichlr 1&
v..n...
:chaine
plr dH.ut
n=ch
$1..
''"'l'fl''1
Idy
fnet - • ou "
:enl". 1
U
�I
Ida
lU
:oi
,.,
,u
j.,
...
, l a d6pllC.
"
...arnalltl
nOnlchtl
huite
.lurr
vorl'flt
forpnt
...
-
,erfoce li;ne 0
""vot.
<1
Ida
:chllr.• en $201
nb<:u
j>,
'"
Sluite
li
:clll.cho lipoce
:pour lo chain.
"
�,
œ.
-
Sorr
Qetlpa
,dler.
...
"
Utl
Ullpo'2
ley
,
�O
fretop.1
(vorpnt) , y
OU
"
ute
jlT
,doubl. ".uuur 1
"
envoilB
1540
'"
'"
n.
'M
...
, fin "0 00...
eu...urv
dblll
rutop
,n
• . •
.0.... 0
SI
0'
U40
envol
'"
'"
".
n•
j ..
U
"
U40
InvOI
nbeu
'u
'Rion '
initep.
"
Id.
jn
'"
'"
jn
'"
'"
..,
...
•••
œ'
nb<:u
uh
,II cur..Ur
"
InvoliF
carrecu
...
"
,..
, politienno
SI
...
'n
jn
Ilnen cn
:r.cc_nel
.�
...,,_
cu.uurl
envol
...
,cu...ur vhlble
lnl tcptl
_
:noll chl1nl r.tour
'.p
do
d.
Id.
,.,
SU,HI
2
Unaec
,annulation,
...
n.
j..
,cone hon zono
,. tH<:h.
$0
n,
nb<:u
'"
. ..
jn
'"
.......url
...
'"
n.
...
..,
dobl
politlon
M'
j..
. .,
0>0
,non, rin d ' occ.�t
1 CH
, i etroc.. 1
, ncul e d'Un cun
,correcüon,
jn
...
'"
j"
j. .
,.toek. ur reçu
'"
"
,>0
,.nnulotlon 1
n!>car
Iver
'0'
...
t' , '
dooc..t
"
'"
lI\or
jo,
nb<:ar
nb<:or
'"
,' . '
jn
'"
"
."
...
j"
,couc controlo 1
dOplut
�,
".
40
."
".
jn
j..
'"
uo
'"
Hl
1
'u
.n
,rnour c�.r1ot 1
'n
il
on
M'
j-,
"0
'"
. ..
�,
M'
'"
�,
M'
.Hal
j"
'"
lU
".
'"
'"
'"
' eoJIIpu..... , '1
...
U>
'"
'"
tnt
.,
�,
œo
...
...
'"
j"
j"
,..
...
..,
j"
...
flOO
.U
�,
�,
�,
œ'
polldon 'or
n.
..,
curoeU
..,
�,
..,
".
:tun.ror... Ile
,.n envol
U
"
Hnace
n!>car
�,
j.,
...
j..
".
...
ou
.Ilund un cuoct.
""
jn
...
'"
...
-,
...
j ..
j"
"
tpldlp.ol
'"
�,
,n
n,
'"
n,
n.
"lIpoH
Inltcpt
euroou
"
'"
j ..
"
e....cu
tnitcpt
'"
...
UllPO'1
jn
-,
�,
...
,ine ho C01O.pt .
,,.
'"
"
dnh <161.1
j"
..,
,Ion; chl1n.
, 10n;,,*u• •tt.ndui
d.
d.
chlld.!
...
...
...
j..
orb
d.
horoU.
�,
$O.... $U,$l2
$20,Ul.$40,SIF
n....,"
'"
$IQOkl
j..
...
...
al
drb
IQaU
lQIU
"
In ltcptl
dob:
I;ch
d.ca
'p" 0
,pt. donnont
00.
S.!fl;O
SI
10
.ta
n.
tl
onvol
'12,IU,UF.HO.Hl
,..,
...
c.....'\I"V
'"
U
7.ur,IU,Ul.UO
SlQok
00.
...
1u
j,.p
QIlDytc
IQ.tt
horoU.
M'
onvol
'0'
bn.
"
il
5pol0
j ..
'"
bpi
Ida
1<1.
�ptr),.,.
"
SIQokl
U
dOcl_,r
",,"q
j..
Idy
rorl'flHI
tO
;choroe IQ de .1
Porn's n° 34
,..
-,
�,
,..
..
�.
j.,
ou
,U
'"
",
'"
,U
atHena
:parl1r ". nOI
,or
(plrl ,y
110l,y
onvo1
'"'
bne
lil
IdK
IMI"
Id.
ju
U.
,,.
o<le
14y
ju
''"1'
""
ntleu
l;ott
Hlnp
la ehd...
j.,
",
0<,
"
, ..
j,,-p
,IV.C d.. polnu
,al'
1<1&
tG
n.
Il
n.
"opou,
Ine
01
"Ob)
,or
Initept
sa
Ine
UmjXI
Ine
t",po'l
jo.
n.
ny
1"0
and
ta!.
hl
.,�
bn.
bn.
SI
m
.!rlch..
, po.hionn. CH'
,.n rin d. chilu
:P" dHlu.
Id.
tO
.ta
$52
jlr
H:uovl
lu
ch.otr
tupo'2
oh
'or
"orro"u
inltept
01
fil
draL
"... uc..
Id.
IMIq
jo.
Id.
","p
....1'
be<:
" 1'
"
bill
Id.
:1..
srln
; lncr c","pt.uu
S!inl
,..
tpldap
que..
Iq
SO
5200
Ilorta
un
tU
rnrocu
UO
fnrKU
dot>4
:retour cl.... lot 1
,oul, _ , onvol
Hou..
n. fonction 1
,oui
fO
...
lU
.".p
"u,"'"
Mo
tOO
'"
'"
-,
�,
,..
�,
�,
,�
'"
,"
'"
",
ou
oU
jor
beq
""p
beq
oU
j"'p
Ido
jor
Ido
j"'p
III
jor
Id.
hl
hl
, t u n.to r
•
• IIC
,.n .nvol
ldy
ldl
un
'"
'"
"
"
("arpnt l , y , .. rhb entUn
"
Porn's n° 34
'00
:quol ut la
,.,.roct ."lvlnt 1
:poin. virouia 1
'"
oIClr.
110
.nvoi
lU
honne
h2
lO
li
(VI<PMI ,y
(Vltl)tlt l , y
U
UC�
bit
bpi
$PC'"
tcOU
honn.pa
'"
brI.
S.I
Ido
t1
Ido
!1
ju
CI>"
Q.tbytc
UI
,oonn.-t-Il lu
:1/2 ncond. 1
: ('vito lu
:tlnto"."UI
Sftn
:\_p
.nvol
!>c.
....
Ion!
Sh.I
jor
Cpl<
!>c.
•...
..otbyte
:\..
cp"
!>c.
qotbytc
,nund hl,
."vol
cl'lXCOJll
tO
:cllorello clloino
,c' ••t 1 cllain.
na
,..
cp'
!>c.
lac.o'l
o,.
(orpnt_1
lO
{torpntl , y :tIeU�" lonouaur
U7
, ..xI_ l'
SOOO
,cl..etira.
I.rtcol
jar
CI>"
beo
0"
j.r
...
j.r
cp><
UQ
ptr,y
tO
'"
."
'"
,..
..,
-
' ....nd un In.tlnt
:lVlnt d. renoncor
:-oyntlX arror
enr..a,
cpy
'"
",
j ..
lO
,.1 VI< entUr.,
; 1 •• 2 GCtoU 10nt
;n'9"tHI
, blp
blp
oU
�.
j..
MI
bu
Hln
(ptrl,y
onvolc..
t2
,..
'cou
"'"
Horpntl , y , .icu�.. .11.....
,do II cl'loina
Idy
ldl
day
"
.h...
ldy
ldl
'"
ptr,y
lO
SO
!Ica<>
forpnt
'"
"
bill
'..p
,virq"le 1
,cl'lorch. vlrloble
'"
12
Idl
oU
Idl
.tl
tI
chXc","
ptrqo.
urpn•
urpnHI
varnl.
Vlrnl.+1
fil
:\..
n2
ton.
jor
jo.
jor
oU
b7>.
Uorpntl , y :r'cu�ro lonçuaur
frlllvi
eHo'r
.ta
1
tO
lor
j.r
=p
!>cc
j""
d.
",
Stinl
UI, Slll, Sir, su
S12,I2D,SII,IIO,SlF
flcao+1
t"rpnt_1
Ser
UO'"
dlb
honnopl Idl
Hln
Idy
..1
torl)tlt
Il
cl'lrqot
SI
onvol
'"
foCll:O
o�.
Idy
Idl
sooo
Ida
'"'
j.p
j",P
ldl
j.p
dtb
o.y
Ida
Ind
SI
nonrp
fnaC..
!>n.
"0
.nvolc..
..�
ch..cc",­
Idy
ldo
day
.ta
c(>y
iI,tr l , y
jor
, "pp"l
"
InHcp'l
jor
Idl
.u
ldl
.u
ldy
ldo
SI
Ine
bile
j"p
'or
Id.
Ileq
Idl
ond
bot"
S il O
Il
flq
, dUch..
.--------------------
ln.
politien
"ot... 1o
1
cl>k..­
�rqn
vupnt
varplt'l
..........
var.....l
hl
.Lou.
fllqnoO
"
, ,,,,,"pat.
SO
'o.
d.pa...
d.cl.. ,y
"
•
nvol
ldl
'"'
Uln
,.,.,
u,
accapU
"
IIln"••
, InlctH
:2 1010 , rln
, I i•• IIlnu••
, .....q. d'ol.ru
;1
Source Pl.3
Assembleur ProCODE
onvol
nbcO<
..
ncnrp
U
�.
, ..
let 10 n""x. ,
'- . •
S2
Iller
dOpa.. '
'"'
�,
"
•U
",
�.
0<,
'"
,..
l'n,y
"
nbc:ar
fUnen
"p.
..
'"
,pund 1·.".....
U
({o<pllt ) , y :dO la ellolno
'"
ep)l
IMIq
m
fn
nben
,otun"... , nrln;
,lOO Ion;
..
...
bnl
Hln"
,..
,.,
nn...>l
,ellolno
111 011. on 1'111.
110n;..0 quo la III
,�
-
Id.
Ulnc:h
"
«(O<l"'t ) , y
l;on
C torpntl , y : rku�r• •dr....
Id. 1. enal...
SO
oo'byte
...
'"
"
nlqnaO,y
onvol
,VI .n I1qna 0
:at l ' .rr.ca
'"
"
'"
,.fUcl'lo
SUn
Il Clloln•
Sorrf
Ihl
Il'IZ
Ivl
h2
Seoule..
lecuHd
Hypo
Serr!
Shl
qo'bytc
tU
Serr!
Sv2
ç.tbytc
U
Sorrf
Stypo
qotbytc
Sllçnlq.
oa'byte
U
,..
or.
tHO
_le
..
qatbytc
.n
",
un
,.p
do
do
do
do
dl
do
do
hcrol1.
,
�,
œ,
:h2,
141
Sorr!
jor
h'
:vl,
Sorr!
Svl
beo
.u
,Ittond variabla'
U�
, •• cou1our fond,
Scoultd
us.
$dob
41
§1iqnoqe do
§dah
Ida
no
.be
""'p
bec
Ida
.be
""'p
[2
Dec
j ..
cur..ud
Ida
no
Ida
IMq
c010""e
Sv2
, vl > v2 ?
Svl
Srinc
Surr
ocle
U3l"
=p
ven
bne
Id.
:I.e
j.e
Scolod
m
Id.
ode
un
StOO
1"
envoi
Shi
un
iliqn.q.
Idy
uor
.nvoi
envoitF
UH
11qnoqO
SVI
il,y
1"
envol
ehkce..
,virqule
ptrqat
:cherche vod.hle
.to
oty
vupnt
v..pnt.!
:entUre
Id.
.nd
varn'"
v..n....!
boo.J.
j"p
S.I
.Iserr
I>lt
plnt
bpi
h2
jH
envol
ceulc
Ida
t2
îH
envoi
!>ne
Styp<l
!>na
StOl
lne
hort
m
fcoulcH
coule
",
00'
no
coulf
tfiB
couIc+!
",
"
..,
..,
coulcH
coulf
",
'"'
colonne
,U
,Si typa 2, loh..
,la couleur tond
,�
recoitl
: ..ttend 10 r'pon••
",
jar
�,
"
,coroc reçu
,"'
'"
o�
",
Suul
,.,
'"
,..
, "'
,..
'"'
UJO
,.,
repot
,�
'"
",
�ta
§type
'"
cauet
QraphO
Id.
ota
Id.
ah�, y
ll.çn.qo
onq1e'l
coule
" 0
m
ota
Id.
.ta
Ida
,�
Ih,y
.M,y
.nqled
qrophl,y
qupM
Svl
ceult
,typa ° , l-qroph
,typa
2
_
uxu
,po.ltlon vert.
onql.o
c..oc�
..pet
.n'lied
Ih
do
.dc
.ta
U40
lb
vert
jar
liq,,"
co
cd
ldy
Styp<l
Ida
II>, y
caro"t
.u
Ido
.ta
Ida
ota
Ua
0'0
Uc
.ta
jar
Ida
.ta
ota
Ua
0'0
.de
ol>q,y
.nqleq
vert
11'1"e
U
onqle'l
onqled
Shi
U4C
Sv).
ode
ota
lnc
Idy
U40
vert
vert
ota
jn
c.roct
colonne
Ido
Sv2
Stype
c'l,y
HJr
-,
�,
vert
0'0
",0
m
,..
0'0
",0
ohq
ohd
•I>q
•bd
Orophl
Mb
dtb
Mb
dfb
d!l>
dfl>
dfl>
Mb
Mb
<lfb
dtb
dfb
dfl>
d!l>
d!l>
dO>
dfh
�,
SI
"
'0'
,.,
•
..nvol
,tuee I1q du 1>0.
wq
: annul e 1.. onql..
,colonn. 'lOuChe
, po.ltion horh
'"'
lor
=p
beq
Slnu1
JOO
SOO,S12
. ..
. .,
SlO,$2J,UF
$2J,$70,$7!
S,",,$35.$7D
US,",,",$711
UO,$37,SOO
no, S6P, $00
SU, $7S,$OO
$21,$7"-,$00
'Ol!, SO!, SOF
Sbel
Srine
,,,,,.iUon vert
,boucl. de tuct
,chuq. type c..."
,troce la colonn.
SI
Shi'"
•
,colonna droit.
, 1 dlOll
chrqot
H ..111
t' , '
SOO
j"p
onerr
U
bne
sa
j..
qetl>ytc
tn
be.
du
boI1
1c10
Shl.Jl
lor
envol
Ua
lf<
j...p
envol
j�p
110.011..
SI
(10
(\3
so
rta
,ouI, attend un
UIJ
,corocUre .
m
USJ
SllO
UH
'o,
: - HI
: .lnon on boucle
:dUp _ 1
ot
U
:,,"t 10 �'pon ..
:don. vHl
(vuprttl , y
m
(vorpntl,y
�,
S·chou,"
,"'
'"
"
wait
Ido
Scopyr,y
�,
SUne
'0'
UAS
J ..
envol
'"'
00.
,�,
wdt
vdt
j ..
J ..
J ..
J ..
,.,
j.p
d.
dfb
Ol"B
".
".
".
".
".
...
...
0"
0"
".
...
."
...
".
".
".
".
".
'Il?
U
"'"
.,.
,.,
curo.urv Id.
SI
:reçu $\3 1
:attend 1 in.tont
watt
wdt
'"
envol
decnx
:.rhe. 1 ' 6eron at
, .ort
104, 57,27, I l l, H. 27
$BA, SI'.5, SU, $15, $B7. 'Cl, $BA
n5, SU, SS�, $9C, $DA, SA'
$BA, UF, no, $�S,$CA, SOC, 'C�
$00, US, $D5, SCO, '07, S03
'CO, 'DO, 'D7 , $1 $, 'fS, $CII, $CI
$FA, 'u, 'CC, sce, SCE, SI5
$9?, 51B, 594, SU, SU, SEO. $D5
SCA, SOO, SD?, 51!. $&4. '05
'os. sct, SCO. SIS. S&C, $EC, '15
sco, 'Dl. $15, ,�., sc�, SC,
$CC, SCB, SOI, SCA, $05, $CD, SM
'U. SEC. $ID, ,C6, UC, SIS
$9�. UC, UD, UD. 'IS, $H, sFS
Ut, $IS, SEr, set, 'El. SIS
$13, $IS, SFS, $CA, $ÇI, Sl2, $Di
SU, UI, SF6, SFII, SFA, SFA
SU, $VI, SU, SlD, $9�, SIC, $15
U6,He, $'B. S9O. $9�. $lB
$97,Hl. $lB. $tl. S9', $00
• eur..urvi
cnxn
en"n
un
:�o UModvu
I on • 6chou'
reeoitl
,..
huat
S2
Supon ..
ju
c,'
...
,,.
-,
�,
,h
n.
Se..oi
:non, on boucle
-,
00.
.. .
SOl, SIII
SB,S!II
$40,$IB
S..ul
'o,
SilO
Ida
S..""nu ldy
'"
...
Ux
cp.
00'
�,
Scopyr
cllarlot
=p
-,
lU
'U
conet
envol
chariot
LHO
vert
Sil
cllolne, y
hehoue
SO
ode
sr1neolq Id.
"0
1$40
Ido
0'0
,anqle hu qouche
SV2
hed
I da
:COUct li;". 1>0.
obd, y
Inq1 ed
no
0'0
,tuce li; du hout
h3
no
,.,
o�
00.
..0
LH
Ida
.u
00'
«,
Seoul !d
, ..
'"
'"
Sek
'"
,,�
"
Stypa2
m
.nvoilS
Sa
jor
:lst
Ici.
tHO
,envoie le. euoe
,�. eonnuion
,retourn"
j..
hOr!
ode
B
Ida
'"
bpI
0'0
lclo
IO�,S7,2?
• enxr
0'0
.U
0'0
odc
,,.
",
,,.
42
ln
Ido
d'h
liqnaqO
-,
�,
",
Scolod
car'ct
§hl
",
'"
Hype
cd, y
Ido
""'p
§type2
ldy
U.
.u
lnc
Id.
StOl
,hl " h2 1
Shi
t2
Serrf
Sv2
no
StOO
1
Sh2
'"
ldy
Ida
:In
'"
LHO
1I0r!
I>pi
.,.
lne
vert
j.p
jar
"ecolt
U
lllp
U ll
envoi
S2,y
envol
• eur ..urinvl
SI
recoit
recoiU
cur..uri Id.
j"p
[$14
envoi
Porn's nO 34
. --------------------
d.cahl>
Iok
la
, ..
ep�
bee
jap
ldy
Ida
:lor
çnbyte
t2$
onli;".
10_
ho[.I1.
t11
IClcl>.y
.n.ol
$Z
SOl
:&ionr
booi
lfin
n.
I dy
jor
j.p
Idy
.nvol
Ida
lfin
,.p
Id.
Ida
j ar
'"
UO.
drl>
'43.U'.UA• •la.4.U6.UA.ua
' 4 1 , ' 4 1 . 1 1.... .14
$43, "A, UA. 'Ia. 4. ,��. 'lA. 'la
<lfl>
bpi
Jor
SC
beo
d.c
ft
bit
M'
,..
�.
Sl
""'p
M'
j"
-,
�.
j"
docahh
,u
Cp"
bec
j.p
ldy
SOl
10
lolo
Il
jor
..,
bpi
do.
booi
srln
SZ
Ida
j.r
j.p
Idy
Ida
'"[
..,
bpi
n.
dtb
dfb
"n,
-,
�.
çnbytc
us
10k
hoo.l1.
UI
$dCh.y
onvol
SC
It!n
j"
00'
HI
U
lU
S... .1
U
Ichalno.y
onvol
'"
U
Sp.oç•• y
.nvol
Id.
jor
Il
bpi
Cltl>
lok
lokl
OU
puçn
varpnt
vupnUI
vun••
vorn.,,'1
$0
bpi
d••
00.
ehle"",,
ond
bd
'"
Il
1'[
lor
.u
oty
Id.
j.r
bec
...
j"
,..
lupon.. Idy
oU
Soli
rocoltl
SI
S....I
1....1
houl
tehalno
d.
d.
d.
j.r
j"
."
Ulr
"
U
..cclU
U3r
'"
Ulr
.,.
...
j"
j"
...
..,
,..
...
j..
"
"
I v"pnt f . y
(vorpnt).y
Il
UIIIOZU1A1!1
UOA
onvol
SI
(7
Spoç•• y
.nvol
th.
Il
143. U'. UA•• 1•• 4. ,U. " ". 'Ia
UI.Ht.'lr.1l4
li'
Id.
U49
,.p
onvoi
Id.
'"
...
..,
.,.
...
j"
j"
...
.nvDll"
."
•
".
ond
bill
n"h
.U. U.... fl"• • I•.4 , . U• .,". '11l
nuh
jar
Id.
onvallil
j",p
.nvol
..
un
'"
Sdobut
lupon••
ehle"",,
PUQ.t
urpnt
..rpnt+l
alun
.ocolt!
...
..
vorn••
varn'.'1
Id.
'"
j.p
1do
1dy
oh
:au.nd 10 4 final
Id.but
j.,
.u
...
roeolU
•••
,..
"
Snpou.
._,
Hln
foc:
SOCl
Supon••
SUn
a«.nd 10_ ,,<,Ut
OU
�.
d.
d.
•••
neoltl
Id.but
"
.u
:.tund 2.... ,,<,Ut
Idobut
.-,
Id.
OU
d.
hu
�.
j..
1....1
loci
'"
.,.
•h
n.
j-,
cap
••coltl
"
lacl
"
Iv.rpntf . y
Ivarpntf . y
chlcD.
ptrQot
vorpot
varpntOl
v..n&lO
..rn...·1
"
•ho.r
.-,
U
(VO[pnU.y
(vorpntf.y
�.-
ptr..ot
u.pnl
varpnt'I
vuna..
varn'.'1
H
..1 ...<
So>e3
tl
(vupntf.y
'"
<,.
jl.
..
U
Idy
Id.
n.y
jlr
onvol
..,
"
ucolt
Dpi
jo.
ju
j.p
dtb
. "
Qr
Id.
ua!
j!Op
.nval
SI
ucoitl
rocoit
.ocolt
103,51.27
Source PL.4
Assembleur ProCODE
"
beo
un
po.h
1"
boq
Sor.
."
.de
It.
oU
Idy
Id.
boq
j..
,.,
j"
00.
...
U40
ClIp
bel
lor.
Id.
U I...
lU
Sd.but
..
Id.
brio
PO"
tU,
1"0
:II<
Ua
',"p
j!Op
ldont
.,wol
polV
onvol
PO'"
onvd
ho.. l1",
Porn's nO 34
1]
$0..01
tO
vupntH
1da
and
bill
vo.na,.
v..n....l
j.p
.turr
Id.
fr.pono.
•
<,
.U
...
Id.nt
un
$o ••
..otbyte
u.
hrr
Son
varpnt
.ty
ldy
:eho.ch. l
roto
: 10 ,opon..
•
10
.nvot
Inlt
' ".
oU
•••
fd
rocDIU
"
S....l
1....1
oro
...
.u
...
SUn
Sint...
."
"
-,
...
j"
UI
'"
...
Ivarpnt).y
(vorpnt) . y
Untot<.y
'"
j.,
00.
li
!nIt
..
...
f�
. -�------------------
,..
�,
M'
, ..
,..
Ivupnt) . y
ehKeo,.
'"
u.
boq
."
•de
Ha
ClIp
ptrQot
oU
.U
._-------------------
•
oh
jot
jot
Sropon..
'III. "A. $". 13. 21. J 1• .,•• 0
:.Ol-C. 1. 1
"
..cclU
:aul,
fd_Dut
fael
:oeUt
.u.nd I.r
...
,..
..otbytc
noolot
:att.nd n' d. port
nco
H*:
140:
SI-:
.cooe
tUI
fur
HeO
, ..t-c.
un
,.irlo l
port
...tu.'1
<iat..1
no.lot
...
. .,
. ..
43
..,
•<le
.U
n.t�.
nu".
jar
j o.
..acoH
ld.
1>1<1
rocolt
doua"
S2
:I�
conf
Id.
..
ju
Id.
...p
beq
:1..
".
"ont
U
porünt
n
orrout
Ida
UH
,ne
tUIi
jo.
Ida
J.p
10"oU ..
IOC:dl
ur
tilt
Idy
U
Id.
n.
'tl l l
JI
tOO
n.
Ue!
jo.
cout
U
hV,y
'BUO,y
Idy
Id.
•U
'"
52
hv
d.
2
portlnt
Id.
.t.
".
10.
DU
ota
ota
•ta
•ta
.u
u,r
plnt
no.lot
•ta
Il'2
5" 2
•ta
S"'2
.ta
h'Z
Id�
,eOOD
Sr
Ida
'COOl!
SM
Ida
Ida
n.
Id.
..,
...
...
...
.U
Seh.ln.
dt!>
lo.u!
...
•••
œ'
j.,
S2
.,.
'"
" .
m
ln
jn
plrud
,COO,
plllr1U
m
n,
...
,COlO
..,
�,
plotot
no.lot
53
j.,
Id.
'"
.,.
(p11)
j>Op
(pl1nltl
lplrUdl
wrlt.pl
.htpl
l>Op
(ploUtl
pit
pUnit
O.
.0000
plr..d
do
pl..rlu
d.
phht
do
j.,
j.,
.,.
l phrlto l
n,
...
•••
'0000
tOOOO
tOOOO
'0000
S'
�,
j.,
Id.
."
m
'"
<,.
.u
44
!oh
: la " pon••
, onvol
: tunepa..ne.
, . 'lB, UI
,pour p.,.hlon
, eur..u.
I\oroll.
n
o"voll11
Ida
tHC
d.
onvol
1
&de
jop
jor
cp><
lMq
n
Q"tbyte
LO
S!i tt
IdX
urr
.U
drop
".
•
nor..al
no....1
••coltl
tU,
U40
lYer
..coltl
lUI'
j.r
1<10
'OI"
"
,oui, attond nrt
'"''l'hieur , HO
·
."vaIU
use
onvol
p'''�
I d H ' e' ..t Don
:oouotroit U O
jf<
:.tund "orhon.al
o.tbyte
.U
Icoulc
j.r
O.tbytc
.tx
leoul!
'd.but
j.r
Q.tbytc
un
ot.
'M'
U
Jupen••
Qotbyte
oU
Hlo."
Cn
IccuH
""p
bee
j"p
•
"
Id.
jor
j.r
ellte".
...
VHpn.
VHpnUI
vun••
ode
vun.",>!
...
"
Ida
Id.
plOt.;,.
lor
lor
.I..t<
Ihor
&Cc
lor
lor
U
(vorpft.tl,y
(vlrpnt l , y
ellke...
puo"
vupnt
Id.
bit
SI
vupnt'l
vunl"
vunl"H
U
(varpntl, y
"
Seaul"
ScouH
SH;n.
SUUh
Scoulc
,.
10
110.,1111
UOI!
'couic
U40
.nvol
.nvoilS
SecuH
tUO
.nvol
.nvoUII
HU
HI.."
SI
jor
.nvol
j.r
.nvollB
'K
.b<:
tl
Id.
U�t
Id.
SHon•
boq
n
odC
11
j"p
.nvol
••
•
j..
et_
Qotbyte
flOOd.
Q.�bytc
feeulc
Qotbytc
SCl>\Ilf
;etbytc
Sll. .11
Q.tbytc
••
••
••
:;uphlqu.
.nvol
.nvolU
�
"
.1...r
lY••
$lIon.
jor
U.
•
liB. U•• $66. $2, IlB, Hl. 0
.,.
m
,en.."". l
lUI'
'"
nO
JMP
d.
id•
'"
pHn!t
j.p
l.p
lnltpl
j..
j.,
m
."
".
r..dpl
tt•
d.
Ille.
Ivu
d.
.
.
d.
Irepcn
p!wrlu+!
.ta
.ta
d.
uco
plotot+!
.u
'"
Stin
sou.1
en
p1l'1
pilnltH
plroodH
.ta
.u
j.,
11
bpi
,d.but
�,
00.
.00
.,.
...
St
• IOtn
ucolU
JI
S..u l
Suul
"
lupon..
00.
.00
;atbytc
U
'00
HI"
...
IUll
5""&1n.,y
SO
.nvol
j.,
=p
00.
j ..
�,
'at30
Ida
n.
Id�
§l
laUO,y
Id.
b<:.
...
hv,y
..,
bpi
jor
...
...
00.
uo
nt
j.r
bn.
"
10"011
100ul
U
j.r
jor
".
il
5..ul
lO
ue
t4
oU
•••
tUA
j..
cp.
bec
jop
.u
JI
onvol
H'
HI
IcIa
,nvalla
Id.
'"
n.
pl
jo.
jOlI'
lU
n.
USD
onvol
• local! ..
aU
Hl
."voH8
",ad.
Id.
n.
S.
l""
10y
lU
boq
Ida
SI
lor
Id.
1410
tUI
un
U1C
n.
S2
lnver..
,COOO
,COOO
1$2C
Id>
Ida
.t.
lU
".
11
:1."
n.
SI
dU.
.u
lne
"
..
un
(uq>llt l , y
ellkcOlll
ptr.;"
vupnt
vorpnt+1
vun••
urn•••l
..
1010er.
lupon..
U
Iv.rpntl,y
• paru.t
po r'lIt
jor
et.
1"
.t.
"l"
et.
lor
H_
(varpntl,y
lor
Slnv
Q.tbytc
Porn's n° 34
.u
Id.
<:>op
bec
j_p
Id.
0<0
ClIp
be.
Ida
j ..
la.
.n�ol
lor
.n�oIUI
1<10
(J,a
ode
feo�l"
jor
.n�ol
on�o1\1J
Id.
Id�
Ul..h
bo<l
Ibc
l"r
onvol
l"r
onvollli
ldx
SUo.h
S1n�
lOoul1
"
"
roçu
aç
M.
"
,.,
nll
"
control
nu
,�
nu
,�
Itock.
p. ...c�
1 n••h
tinuh
tue
! 1nv
'"
Ilnv
S2
..
tU'
houU
n
U
j.p
onvol
,
te
S2.y
SUn
onvol
"
SI
dfb
Ila,H',lla,Uc,ua,14'
dtb
IU,ISO,UO,O
sc"
a,'"
lor
<ocolt
lor
O"tt>yte
Cl"<
tO
bOIq
",rr
Son
l<1y
SO
!do
17
"'nl,y
jor
onvol
bpi
SO
"
"
..
'"
Idy
Id.
1'"
..,
Sotn.y
bpi
fi
dft>
Hl,SU, UA,Jla.',U',IlA.Sla
dft>
Hl. "A, UA, fla. 4,
n
onvol
"
"
,U, Ill'., SIII
'0'
'0'
• ad.h
Porn's
eh�eO<l
pUO.t
nO 34
coroct "l>*e101
:ou .cc.ntua 1
:un
il
:dolt .t..
:�41 .t $U
,CHie
entra
1 • ,
ont..
nock.
. ..crn
1 e.roe
..crot
:atUnd
no.. d.
contrel
Id.
0<0
SI
d.c
noo
O.Upa
t2
"",vltr
:""9. 1. e1'l11n.
1'1
I dy
LO
10
'"
'"
:chore1'l. ploc.
Idy
ju
Ida
fntop
lU
'"'
Idl
iurpntl ,y
rr.�op.1
IVorpn� ! , y
..coltl
be.
j!Op
n
paltocU
Ind
ure
CIlp
E$40
""<1
",
Idy
I�eento
lO
oetl. y
boq
U
'"'
'"
'
epy
tH
Itx
ju
bcs
j.."
•u
l<ly
1<11
ClIp
brI.
'"'
Id.
ClIp
brI.
'"'
SI
pal"C�
o�tl,y
.toch
�,
-,
�,
,.,
IdX
�.
Scoul.u! j n
Scoulnol
Ida
m
'"
00,
SOO
j,.p
jo<
,..
10 tlbl.
"0
: ..� don. 10 table
"0
,"
:1'1.1 dlnl
lO
:don. 1.
sa
m
tO
SI
:pa' r.çu
,=-pou 1. �...
Idy
Ida
,,,
'"
..'
'"0
,..
tlbl.
chrQOt
'M'
L', '
Icll.y
S2
:01 0 pa.........
: c ' ..t
noir
Scoullul
Inln
"
Seoul nol
O·tbyte
U41
Spol+1
: n' a. coul.ur
"Unit politien
Sne!r
"
'"
ho<l1101
cu"uu.l
:curuur Inviolbll
HU
Sccul
1$10
Secult2
'"
hf!,y
.nvol
: .ffoc.
une
110no
"
Spoo+l
Spo.U
-, us,
00. "
j " 110n.O
Sel
:2( Hon.. In tout
«,
Sel
.eU,y
Sl
.toch
joc
inol
SRrr
: ..u.... 1. 2t CUle
:.n attend un lu.
oc<2,y
be.
uor
'IlP .nvol
0",
Sel
..col0
SC
p.. ..cu
j,."
'"'
'".
'".
cpy
bn.
..
..
:ca..eUro
:p" reçu
: c ' ..t .econtu'
:olnon, e'on
:un e. ..e 11>*10101
: qu'on ..cod.
:ov.c Il t.t>h
"
Idl
vldeeran j ..
'"t�.nd un l_
: ol , t UO,
"
v.cteur, y
$3H,y
- t..
000
1<10
jll"
acco"t!
..rvot!
,"
00,
Ido
j.."
'".
ldo
j.."
a..eret
d.
.....u.o ldy
Ida
fi
,pour 1 c...c qui
: •• trouva on 1200
<:II\p
urr
5200
SI
bel
lU
.
E'
11 0
ju
d..cru
'200
CIOp
bno
• rouha"
'n
bec
joc
27,Sl." F,na"
j."
uor
jmp
..
dl
dl
aft>
nid.
Id.
no
f2
Sonl
sottl
Ind
«,
ni
rh
�orr
SI
[HA
,or ""voiUI
.., un
j., ."vol
t.�
d.
'"
""'p
..n.l1�n.
'".
srln
"ouleau
?
: tonction
:u;u
SI
..
00.
il
l-p
Id.
SOO
Uc
jor
'"'
cont<ol
EHO
bOIq
bel
U
:noü, .n noo
Id.
.t.
l>r\o
onvolUI
boq
Lill
: c...ct"o
ond
,"
bn.
onvol
Idy
Id.
�,
�,
tl
• relnlt
rdnlt
"
pa...cu
bit
..10
t!nnlo
Id.
".
jllp
CIIlp
boq
"
"horr
SI
jor
..
..
il
vun.",-J
tl
jor
bo<l
,o,
U
,voriat>lo
Son
CIIlp
U
lIIx
..10
vorn.,.
'"0
UU
ode
ldo
leoulour tond
feo�H
1"
0'0
ot
usa
.n�ol
bo<l
Sco�U
on�ol UI
1"
la.
:tond < •
S.rr
SI
."
."
W
j"'p
jor
on�ol
S_.
no
:couleur c...e
s.r.
uor
",e
Id.
ode
: ...ao < ,
U
ode
jo<
Sco�lc
Sok
110. .11_
Sco�lc
Sco�H
on�ol\a
0'0
"
S....d.
t'
ldo
0'0
"
S....d.
j ..
"0
"
Soo�l1
Snolr
j"
:trOUV'
Slft
Seoul
,�,
t42
SI
1I0n.0
."
p....cu
.
. .eoltl
Id.
,,,
1110noO
j.,
...
...
m
'"
,..
j"
'"
."
,"
...
'"
.nvoi
cu...ud
110n.0
,or.IOl, SI2,Hr
UO. liB, $So, $18, $O�
"1.uo. ur,SI'
"
Uion.O,y
.nvol
:vl .n H9".
:ot
l'.theo
SI
45
,retour
vldU;ne jor
oetbyt"
,beq
Sur
cap
�2�
Del
,400 1 1 24.
U40
lU
Spoltl
,"r
;Itbyte
,,,ouleur
,"r
cu.nurl
,,,urllUr lnvh.lDle
"",p
Dee
'"
...
..,
5coul
"
"
"
"
"
• envoi Il'
.."vollr
Sen
ad"
'"
Source PL.SP
Assembleur ProCODE
sr
'.1'
"
Ide
U40
lU
Scoul
ade
Uia
na
SCOU!'2
Idy
(12
lU
s.rr,y
jl'
.nvol
onvo!III
•
fl.oull.­
Seoul
,�.
•
l'I"na.
Ida
U
, ..p
..rou�
,lUeçl1 quantit)'
,error
$OF,10l,$lZ,Hr
dfD
$40, $l�,S50,$IB,'O!
dfD
HI, HO,nr,l14
Iutocl
UIIO
jltp
enor
11r
O.tbyt"
,"tt.nd 1..
cpx
tH
,pau"'tre.
Sfl.l
çetbyt.c
"
10
drap
""
"
\dl
accent,)'
Jo,
Uabut
It..
hl
SL
Ida
Ic"entO. )'
jar
,,"tbytc
§debut
uq
"
cpx
HI
bel
hrrf
oetbytc
tn
Surf
lU
Sv2
j..
o�tbyt"
cp"
ta
l
Seo...
bec
Id.D
:!-p
fl.ou11.­
Id.
Ihl
"1'
Surf
Ida
svl
"'p
sv2
curnuri
Id&
UU
,"
envollr
.de
hl
jor
envol
Id.
un
Id"
1"1
j..
."vol
.,.
,cOIIleu. � • 1
,hl , 1>2 ?
,vi ' v2
SI
SICC
SI"cl
lU
huiu
serrf
'or
'".
10
Sh2
bel
�,
�.
'0'
'0'
'0'
'0'
Jh2
jor
bel
SI>cI
Sil
bit
Sur!
n"
fdob
'"
Sbel
u""
[n
be.
,envol Ir
,140
•
vi
,140 • III
�.
Ida
, ..
'IIP
ln)'
bit
dnp
SI
'U
oCClnt,y
accente,)'
jlr
envoi
bit
�
...
...
1""
JI"cl
plnt
..
..
j..
.nvollll
Ida
U40
lcaul
:lu
Invol
'"
lu
""
, ..
envolill
UIO
jor
envol
Id.
jor
lU
tUr
UU
:lor
envol
Sh2
..
..
Involço
p/l.1
Iblanc
.nvol
Ida
..
..
S.U'''''
.-
lbe
...
Shi
ade
U40
jn
.nvol
lne
Svl
Ida
CIlp
'"
, ..
'"
SVI
Ivz
bec
Sbel
Id.
ur
b4tq
...
Sbel
Sx
Idx
,non
d.
S)'
d.
,.
"
paup!
"
nup!
Slin
""raI'l
nadp!
[HF
..,
••
"
paupl
,envol du l "nac
nçolt un e... ct
la"
01
reÇU
cl" 01 pal reçu IVlnt • tp.
re"alU
Il
Idl
UÇO
lU
.U
ItreeH
jor
be"
...
S2
..ne
ncoit
H
inc
"""
bne
SI
in"
Olnc·1
bile
Il
,"
o.
,,"it
jar
,,,
, ..
uq"
,
.ee
"
paup!
,o.
Idl
S.
4datl,x'
,.
,..
�.
,. .
,. fOl.
UOIllllll
1.
...
. .,
ldlta,"}
In�
'"
,"
"
,.. 4.Utu.,.1
oU UIO
�. "
... ..
U"
Idl
,..
�o
,..
,..
.0'
,l1tt...1<.
envolQI
.nvol
.U
,oQx
,..
,o.
"
Ut
...
Id"
0<,
'"U!U
Ida
'0'
...
'0.
Il
.e""itQI .t.
,..t"""t1q�e
,oui
"
�.
envol
earac
4.tatuI.x}
UOODCIOOO
bile
SUn
,�,
U
ond
, ..
...
'"
'"
,�
,""cantu' 1
hc"
jar
,,,
adc
.e;"
...
, ..t·ca .", CIne
el..C
Id.
odc
recchOI
Itl
, ..
...colt
be.
cp"
pint
bal
..,
cpx
lU
Sent
1"
...
,..
Sert!
jor
bit
..0
'"
envoi w> "an��"e
envclcar
46
Id.
vldr."t
n..
HIll
anvol
Ida
tl
"lb
De.
Ida
'np
Id.
•
vid.."t
Invol
.eclVoir un eaneUre
'"
Sert
tUF
j"p
• nc li .eçu, "1,, linon
'"
bpi
Ida
, envoi III
U 0 • 7
U
ferr
"
,.tUnd n' 110n.
SM
'or
"OY
reQ.
ua
nç,
SFCA.'
�bd
un
Uq 52
,.,
"'"p
§ottand
parapl
"
...
Id.
Id.
ot&tpl
,.
.h
...
Id)'
SI
"
"dupl
It)'
Il
ton,
SI
pli
ldy
'IQY
1""
nQI
'"
dl
Sy
01
car,"
dl
Porn's nO 34
uvueo
n.
oU
oty
",
...tn;
I,U
'00'
ld�
reox
ldy
dlb
d�b
no.
no�
" QY
odr"..
d.
reoy
d.
d.
d.
,"
oCI
rh
no
.cr
d.
..
Source PL.DATA
Assembleur ProCOOE
.ceontO
JO
.ccont
<lIb
dlb
.n" oO,U',,"l:"'·
dtb
' S ' . 'U,$27,$00
dlb
' ( ' ,SU,$23,500
'·', SI',UO.IDO
dfb
'."
'U,.U.,,�
dfb
'."
'lJ,$41.SU
dfb
dlb
dfb
dfb
' � " 'U" U,"I
' o. ' , '19,'H,'75
••
..
..
..
..
..
..
..
..
..
..
..
..
••
..
..
..
..
' ç ' , IU,HO,SU
0
Ul,"1
tabh pour h
rocedoq. d..
dfb
124,".
dfb
SH,"L
c
op'd.ux
dfb
$27,".
dlb
ne,"<
dfb
120,"'"
...cU...
d.
UO,­
dfb
UI,'"
d.
da
dfl>
UI,"'
d.
sn,'"
d.
d.
d.
$le,'"
no,'"
",ruch."
".I..t."
Ur
ott
oU
".ppel"
"bip"
"co<l.."
"
0..
"Ch.riot
.ppel
bip
c.dn
.t.
"cn",,"
"cnu"
c/lorlot
cnxn
."
ua,Hl,"..
0
.cc.p�
.cc.pt!
.IUcll.
docdon
U..
u..n
.t.
,la. "0
dfl>
0
.n"'nct
d.
2
douxc
d.
dlb
dtb
dlb
dtb
141.'iI,"'
S43."I,"o
dfb
dfl>
.. .. "1.".
.U.'''."1
dlb
.... SU.·1
dlb
'H,ur,·o
'"
'"
n.
d!b
.... US.".
'"
-"
."
no''''1
da
"3,"5,".
'"
.�
Inlt
Invo...
xllOno
loc.ll ..
,1A,"'
dfb
dfb
dn.
dlb
'"
'"
"
i<lont
dfb
contrcl. dtb
.�
'"
'"
m
,"
on1l9no
d.
da
'H,H5,"'
'"
'"
'"
'"
'"
m
<Ioploc.
SU,"'
IH,'H,"'
,"
curoourl
doc.lOb
dfb
dfb
dfb
dfb
.to
cn,..
CUroou."
urYouro
t.t
videcun
"idli;n.
vldr.ct
dfb
no
.leru
..lnlt
Toul..u
..lolo
..n.119n.
...",.ot
UI'".·v
dfb
n.
nr
HI,ln,"u
d.
'lE,",
,1
:l
poro.mq
dfb
n.
",ccop�"
",ccopu"
po...t
dfb
,,_nd. otr
HI,I1S,"O,
d.
d.
dfb
.cU
..
..
' - ' , SOO,SU,SU
dlb
dfb
<I�
<I�
<In.
d.
S",HI'",·o
'"
nr
nt
dfb
d.
"U..•
: Il
; 17
, 10
: U..II
:9'
1,'111'
l, '111
"1'" 00 'AO
$II or
:U
"Inh"
1,'&&
:1nveu sn or 1110
·119no·
"locol1.."
"_0"
"..u,"
:24
l,no
"por.taq"
,15
:26
:27
;norlld $ t 0 o . '110
;H
"p.uru"
;30
"nlnit"
"rouloau"
"••lIi."
:32
,JI
,ll
"..n'110no" , la
;B
:l6
:37
"vldI1Qn." : n
;'0
"vldrect"
0
Il
:cond.nd 1 . <:!Id
;-$CO"lot
d.
d.
; pour "od. ..t�
drap
;n" do c.. .cUn
noc.r
noCJII.
d.
nollot
dl
1
°
dfb
po.1I
dl
d.
do
;n" de 1. co"'-Undo
;n" du port Itri.
:-,pp our IIqo
dl
:annulation
: 00llli'001u
ptrca<!
,correction
,0uiU
uq.
r.q&
.110
:11
"id.nt
nD
pint
.
,I�
"doploc."
".nHono"
"
oo.v
'41.'''=
"dOCU"
'"
;rtp'tltlon
:quldo
'U.ISO
,n
"curlnvlo" ,12
"b. ."
:Il
,u
"h.ut"
""id."'un" : J I
;utollr
.... Ut
:10
.tt
U3.H3
dtb
"cu.vio"
"""'Ut"
". .nof!"
U2.H2
dtl>
dlb
.�
"
"tn"
Ul,540
SU.'H
,1
.tt
:"srl'" .1 Ilc
; 'nvol (,uit '13)
"1,"0
:�
,7
.tr
.tt
,v.ctour p.tctd.nt
,J
:a
:po.lden lIerh
;poo1tion von
;point.ur lur cM
d.
d.
u\lY
vecuu.
d.
d.
,
,
Récapitulation POM.LlNK.2. 1
Après avoir saisi cette récapitulation sous moniteur, vous la
sauvegarderez par :
BSAVE POM.LINK. 2 . 1 , A$801,L5104
0980 : 1 6 FO E5 AD 00
02 29
0 9 9 0 : 0B FO
OB AD 4 6 OB C9 OD FO
03 2 0 21
7F 8D 4 6 OB 20 05 OB AD 45
04 Cg 004 BO
0904 0 : 0 3 4C 5 9 004 Cg 20 9 0 BB AD fO OB CD 3D OB DO 03
0801 :040 F 5 0 3 C9 3E D O 0 7 A D F 7 0 3 C 9 0 8 F O l A 040
09BO: fC 08 0 9 EE 40
081 0 : 02 B9 F'5 03 99 ED lB 88 1 0 F'7 049 4C 80 F5 03 049
09CO:A9 2E Cg 3A DO 02 Ag 2E 99 00
02 2C 51
0820:3E 80 F'6 03 04 9 08 80 F7 03 04.9 00 80 C6 lA
0900:049 2A 20 1 0 1 9 4C 53 0 9 A9 Dl
80 45 OB 20 FE 1 0
0830:FB C9 06 DO 08 AD CO FE DO 03 CE C6 lA
AD
B3
60 AD 00
OB AC 40 OB AD 46 OB C9 2C DO 02
09EO:AO 00 B9 F3 09 FO 05 2 0 1 0 1 9 C8 DO F5 20 F9 1 0
0840:8C 03 lB 8C E4 lB EE 03 lB AC 03 18 CO OC DO 03
09FO:4C 63 09 0 7 IF fO 41
0850:4C C9 DE 09 A O 9 9 03 18 20 91
OAOO:20
00 FO
04 C9 2C DO
54
65 2 0
0860 :E5 04 0 FF 8C E9 lB EE E9 lB AC E9 lB B9 08 lA CD
OAI 0 : 75 OB 049 01
0870:D3 lB DO
OA20:33
1 8 042
00 E8 EE E9 lB AC E9 lB 89 08 I A
20 12
64
IF 40 41 4 6 69 6E
7A 6F 6E 65 DA 0 0 AD
80 45 OB
OA FO 0 6 20 1 0
80
44
H
OB FO 03 4C
OB 20 FE 1 0 AD
0880:00 03 l B D O 0 7 EC D3 l B FO 1 5 D O EA EE E 9 l B AC
OA30 : 4 C 66 09 0 7 I F 40
41
20
12
OA4 0 : 65
78
59
6F 6E 20 59 50
4C 6F 08 049
63
6F 5E 5E
08040; 74 80 C2 08 049 lA 8D C3 08 AC E4 lB FO 13 EE C2
OA50: 65 6E 74
08BO;08 DO
00460:00 DO
03 EE C3 08 EE C2
08CO:ED 6C 'lE lA 4C C9 DE 049
08
DO 03 EE C3 08
00 80 51
1 7 A9 FF
8& DO
80
E2
65
64
65 2E 2E 2E 004 00 20
05 049
01
DA70:4C 7A OB AD 40
8D
00 B 9
1 9 C8 DO F5 2 0 F 9 1 0 2 0 004 OB
0890:E9 lB B9 08 lA FO 20 30 F3 EE E4
18
1 7 1 0 02
46
OB C9
IF
40
41
05 OB AD
0 7 FO
OB FO 51 AD 82 1 4
0 7 C9
18
44 1 9 42
50
69
6E
46 08 C9
05 FO 25
6D 40
OB AA
19 20 48
OB CE
08DO:IB 20 F5 E 6 8E 82 1 4 2 0 F5 E6 8E 83 1 4 EO 1 9 90
OA80:CA AC 83 1 4 20 48 OB 049 2E 20 1 0
08EO:03 4C BD 1 8 20 F5 E6 EO 02
8E 4 7
0049 0 : 4 0
08FO:OB AC 8 3 1 4 AE 82 1 4 2 0 4 8 OB 2 0 FE 1 0 2 0 BE DE
OAA0: 1 0
0.900:.49
7B DO 2 0 6C DD A5 04 0 85 85 AS Al
OABO:AC 8 3 1 4 2 0 4 8 OB 2 0 F 9 1 0 AD 4 0 OB D O 03 4C 704
85 AA 18
OACO :OB 049 00 80 4 0 OB 4C 58 09 040
00
85 52 20
0 9 1 0 : 8 5 86 040 00 BI
0920;Bl
90
03 4C BD
18
60 82 1 4 80 82 14 040 02
85 88 99 08 00 CO 00 DO F6
CA
30 09 Bl
08 2 0
AI'.
3D OB CA A9
4C 204 09 20 F5 E 6 8E 3D OB EO 0 0 FO
0940:EO 29
90
03 4C BD 18 AD 82 14
0950:90
4C BD 1 8
4C D6 OB A9 00 80 45 OB 80 44
OB
OBOO:DA
00
0960:EE 45
OB 20
OB 20 F'9 1 0
42
081 0 : 4 2
OB 2C E6 lB 1 0
0970:0B DO
08 EE 43 OB DO
Pom's n° 34
05
03 4C
EE
GA
18 6D 3D OB C9 29
41
OB DO
OA 20 02
00
EE
OB AD CC
AI'.
1 4 20 48 OB 20 FE
20 1 0 1 9 CA 1 0 F8 AI'. 82 1 4
00 B9 E4
OA FO 0 6
00400 :20 1 0 1 9 C8 DO F5 20 F9 1 0 20 004 OB 04 9 01
0930;C7 1 8 C8
03
04
OB 4C 53 09 AE 82 1 4 AC 83
OAE O : OB 4 C 6 3 0 9 IF 40
41 2 0 12
OMO: 6E 20 1 9 41
65 66
61
20
4C ?4 1 6 049
082 0 : 6 0 20 FE 1 0 040
64 IF 4 0 4 1
66 61
00 80 44
63 65
72 2E 2E 2E
OB 049 00 80 41
04 049 FD DO
80 4 5
52 6 9 65
02 049 F8 8D
OB 8D
43 OB
06 B9 35 OB 20 1 0 1 9 88 1 0 F7 049
47
OB3 0 : 0 0 80 45 OB 60 01. 64 1 2 20
OB4 0 : 0 0
OB50 : 0B 20 56
OB6 0 : 1 8
6J1
]JI
AD 74 OB 1 8
40 2 0 1 0
OB70:4C 10 1 9 00
OB80:A2
41
40 IF 00
0 0 0 0 0 0 0 0 0 0 C O 0 0 20 FE 1 0 8E
6.9
40 20 1 0
1 9 AD 4 7 OB FO
00 1.9 00 80 46 OB
83 C8 AS
25
70 91
OBAO:84
84 AS 81
OB8 0 : 9 0
02 EJI 0 1 1. 0 0 1
AD
00
OBE O : OB 30
80 E2 lB
00
10
E4
83 C8 AS
83 2 0 BE DE 20 E3 OF 85 83
91
83 A O 0 0 98 gl
83 20 FE 1 0
H
E8 DO F3
50 20 BE DE 20 E3 OF AS 81
80 3E
1 04 0 , 5 1
DO DE AJI
01 1.0
1 0 5 0 : 2 3 20 C7 1 9 1.0
01
00 B9
48 91
BI
85 8B JIJI 08
OB FO OB BI
08 jJl 01
I J1 C8 DO FO I.E 4 0 08 EC 3D OB FO
I J1
E8 D O F3 A D 8 2 1 4
18
08 A JI
60 4 0 OB lIA A C
45 OB 20 05 OB EE 4 1
19
4C 83
Il
00
58 39 lB 5f' 39 lB BA ES
J N ' , . U 87 � M n . a E M U M U a a �
1090:DC C4 DO 85 05 CO 07 03 CO DO 07 85 F5 CA ce FA
1 0AO:E9 cc CB CE 85 9 7 8B 94 BA EE ED 05
EE
08 EE 4 3 08 DO
03
OB D O 00 EE
4C C9 OC 20
02
08 AD
05
OB AD
1 0FO:90
94
8B 9 7 91
8B
91
96 0 0 A9 I l
1 1 1 0 :2F I l
20 1 0 1 9
88 1 0 F7 CA
1 1 7 0 : 6 9 3A lB 0 4
66 31. lB 41
1 1 8 0 : 6 6 31.
60 1 9 AD 02 B9
80
46
08 AD 4 6 OB C9 00 DO
AJI
83 1. 0 00 Jl8
83 60 AD 44 OB FO
JI!
OJi DO 04
JlO 02 E9 01 1.0
03 f C 1.5
80 45 OB 80 44 OB A D 00 BJI 33 01. FO 0 6
OCEO : 2 0
1 0 1 9 C8 D O F5 20 01. 08 fC 6A O C 2 0 BE DE A JI
OCF O : O O
85 52 2 0
000 0 : 8 6 1. 0
001 0 : 0 0 F6
00 BI
CA
78 DO 20 6 C DO 1.5 1. 0 85 8 5 A 5 Al
85 AI. AD 02 Bl
30 O Ji B I
0020:00 F O 08 C9 38 FO
85 88 JIJI 08
85
00 CO 0 0
0 8 2 0 C l 1 8 C8 4 C 1 2 0 0 20 8 7
01
60 4 C B I
0030,1.9 00 4C 1 0
19 20 BE DE 1.9
OD4 0 : 6C DO AS AD
85 85 AS Al
0 0 AJI 01. 20 1 0 !JI
00 85 52 20 7B DO 20
85 86 AD 00 81
BI
0080:81
00
08 2 0 Cl 18 C8 4 C 10 00 1.9
ODJlO:lF 64 1 2 2 0 4 1
AB JI]
00
01. 4 C la
20
1 1 90:F7 20 AC 1 9 20
60 19
20
CA
30 OJi
1 9 41
40
4 0 I F 0 0 2 0 BE DE 2 0 E3 DF 85 83
001. 0 : 8 4
84 AS 81
008 0 : 3 0
OE 88 DO F8 1.9 0 0 1. 0 01
25 82 30 03 4C 16 DO 1.0 00 AD 61 CO
JI]
ODCO :AO
03 1.9 C6 20 A8 FC 2C 51
CO 1 0 EJI 88 DO F3 Ag
83 88 Jl8 Jll
83 50
I F 14
4 3 6A 31.
lB 04
30
08 A9 01. 20 1 0
10
19 88 1 0 F7
58 ZF 1 4
4C 60
91. I l
19
1 1 1. 0 : 81. FO 2B 18
69 40 80 E7 lB C9
1 1 B O : 8A FO lB
69
l1CO:10
18
19 AD E8 lB 20
1 1 E O : 0 8 4C
76 DO AJI
4 3 6A 31. lB 04
67 39 lB 20 F5 E6
59 BO 21
83 84
0 6 80 22 1 2 1.0
20 F5 E6
Il 1.9 IF 20
10 1 9 AD E7 lB 4C 10
1 1 0 0 : 1 8 2 0 BE DE 20 E3 OF 85
lJI
60 43
20 1(1 1 9 88 J(I
40 80 E8 lB C9 59 BO
84 1.5 81
19
4C BD
25
82 30
05 B9 23 1 2 20 1 0
I 1 F O : 1 9 88 1 0 F 7 2 0 AC 1 9 B O O C CE 22 1 2 2C 22 1 2 DO
l200:E8 1.9 00 FO 14 CJI I F DO
EB
1220:83
00 DO F6 20 F5 E6 81. FO 03 20 03 00 AO 08 Bj
88 10 F7 1.0
lB
7B 11
9J1 08 00
OD50:CO
H
85 88
20 1 0 lJI 88 1 0 F7 CA
1 2 1 0 : 2 0 AC 19 C9 3F 90 02 1.9 01
03 4C C2 18 80 97 00 1.0
O D 7 0 : 8E 00 2 0 1 0
02
1 l 5 0 : 6F Il
85 CJI 25
0050:90
10 19
41
56 31. lB 41
00
01 CJI 0 7 DO 04
08 1.9 OB 20
1 1 3 0 : 6 9 31. lB 0 4
08
4C 61. OC 1.9
30
1 1 4 0 : 6 6 31. lB 20 F5 E5 EO 19 90 03 4C BD 1 8 AD OB B9
07 B9
OB 20
1 9 A9 1 4
20 1 0 1 9 8 8 1 0 F 7 6 0 43
1 1 6 0 : 4 C 58 11 AD
46
4C 1 0
1 1 2 0 : 4 C 1 8 I l AD 0 7 B9 3B 1 1
02 2JI
7F 80
83 85 F5 CA C8 82 0 5
1 J 0 0 : 4 C 1 0 1 9 2 0 F5 E5 EO l Jl JlO 0 3 4 C BD 1 8 A O OB B9
OB AD 46 OB CJI 00 FO OC C9 DA
Jl1
DO 07 85
1 0EO:BA E8 F6 FA FA FA BA El. E8 80 9 4 8C 85 9 5 9C 8B
OB FO 03 20 21
OCCO : O l
CA
� D6 œ M n K W � E U N E W W
1000:85 E5 FS 89 85 EF E9 E7 85
OCJl O : 4 5
OCD O : O C AJI 01
58 Fa
1 0 5 0 : C8 DO F3 2 0 C 7 1 9 2 0 C 7 1 9 2 0 C 7 1 9 20 C 7 1 9 1.9
1 0 7 0 , O C 4C 10
OC80:CC 1 6 FO E6 AD 00
AJI
83
J _ œ ru
02
OC60:0B 8 0 4 4 0 8
OC8 0 : 0 2
83 88 Jl8 91
7E 1 0 FO 08 4 9 AS 2 0 1 0 1 9
85 CD 3D OB JlO 05 FO 03
OB 80 48 OC 1.0
25 8 2 3 0 0 3 4C 76 DO 1.9 00 8 0 4 5
OCA O : 9 0
n 1 0 DO F3 FO 1 5
1 030 :CJI 1 3 D O ED 20 AC 1 9 C JI 1 3 FO FJI C JI 53 FO 0 4 C9
85 86 1.0 00 BI
OC40,e3 1 4 2 0 4 8 OB 4C 58 OJi 0 0 2 0 BE DE 2 0 E3 OF 8 5
50
00
61
1 2 3 0 : 1 9 2 0 SB 1 9
lB
A.9
02
01
91
83 88 98 91
66 31. lB 20 SB 1 9 1.9 49 4C 1 0
4 8 4C 1 0
1 2 4 0 : 80 JlD 1 2 1. 0 0 0 BJI
20 AC 19 C9 3F 90 09
1.0
H A.9
OE 4 C 1 0
H
A JI 03
53 1 2 FO 0 6 20 1 0 1 9 C8 DO F5
1 2 5 0 : 2 0 AC 1 9 BO 1 6 CE JlD 1 2 AD JlD 12 DO f'3 80 Al
1 2 6 0 : 4 C 1. 2 1 2 lB 31. 6 5 03 l B 3J1
12
7B 0 0 C 9 01 D O El 2 0
1270:AC 1 9 Jl O CF 80 JlE 12 20 A C l JI Jl O C 7 80 Jlf' 1 2 2 0
1280:AC
I Ji
1 2 9 0 : 0 4 FO
Jl O BF 80 1.0 1 2 2 0 AC I J1 B O 03 4 C 4 3 1 2 C9
03 4C 43 12 Aj 01
80 Al
12 DO 05
00
00
00
ODDO : Ol DO E4 A JI 07 4C 1 0
IJ1
20 F5 E6 EO 29 BO 48 8E
121.0:00
0 0 20 BE DE 2 0 E3 OF 85
83 84
84 AS 8] 25 82
ODEO:2D OE 20 F5 E6 EO
BO
41
12BO:30
03 4C
01
83 88
ODFO : 2 J1 BO
H
8E 2F OE 20 F5 E6 EO
37 BE 2E OE 2 0 FS E6 EO
H
BO 20 8E 30 OE
76 DO AD JE 12 1.0
12DO:4C 75 DO AD JlF 12 1.0 01
OE1 0 : 2 0 F5 E6 EO
12EO:DE 20 E3 OF 85
83 84 84 A S 81
12FO:DD AD 1.0 1 2 1.0
01
08 80 1 3 81. OJi
fO 80 31
DE 20 F5 E6
OE2 0 : 8A OJi 50 80 32 OE CJI 58 90 OB fC BD 18
00
00 00
OE3 0 : 0 0
02
JlO El.
00
00
00
00 AD 2E DE 38 ED 20 DE Cj
83 88 98
69
1 3 2 0 : 1 8 81.
Oj CO 80 SE
31
1330:CJI 31
DO 33 A j CO 85 lB
33 OE C9 02 Fa 00 AD 32 OE 80 92
1 3 4 0 , 01.
88
OF DO 08 1.9 0 0 80 Jl1
1350:C6 lA 1'0
EE
OE FO 03
lB 80 91
OEJlO:AD 2E OE 38 ED 20
OEA O : 9 8
OF 80
OEBO:OF Bj BD
OECO:20
68
JI4
DE
OF Bj A4
8E OF AD 20 DE 1 8
6J1 3D 80
JI6
OF 8D 92 OF
OF AC 33 OE B9
OF AC 33 OE BJI JlB OF 80 Jl4
6J1 40 80 81. OF
1 2 1.0
6J1
1 3 6 0 : 2 C FO
01
91
85 1 8
03 2 (1 B9 1 3
04
85 43
OF 80
13J10:C3 1. 0 0 1 Bg 3 0 BE
13AO:BE A JI C2 80 31
OFO O : OF AC 33 OE 89 9E OF 80 j4
OF 20
OF EE 8A
7 6 OF AD 30
69 3F CD 81. OF DO E6 AD 2F DE 1 8
5J1
40
OE
80 81.
co
1300:11.
8D l C 1 4
14
13EO:13 AD
80 EO
lB
OF 20
1 4 0 0 : 80 El
OF40 , BA OF DO E6 AJI
OF5 0 , 6 J1
41
OF 20 1 0
H
20 5 6 !JI 1 8 AD 2F DE
2 0 1 0 1 9 1 8 AD 20 OE 6J1 41
OF60 : 1 9 AD
jO
OF 20
OF70 , C8 CO
OF DO F5
1 0 l J1
50 1.0
50 AD 00
8J1
8j
OF9 0 : f O 18 50 00 00
12
DO
10
Jj 4 C
OFEO : l JI AD
02 BJI F2 OF 20 1 0
OFFO:AC 1 9
68
H
40 DE lB 5J1 lB
75 00 21
7.11 00
01 CJI 2C FO 0 7 4C CJI DE 1.2
07 2 0 F5 E5 EO I Ji BO
OFDO : I 0 1 9 1.9 00 20
1 0 1 J1
70 23 SF 23 70 lE 51. 35
OFA O , 7D 35 51. lB 50 37 00 30 68 00 22
OFCO:Ol
1 0 1 9 20 SB
OF 20 1 0 I J1 C8 CO
OF 4C 1 0 I J1 lF 40
OFB O : OE DE OF 20 87 00 FO
20
00 BJI 89 OF 20
OF8 0 : 08 DO F5 AD 94
40 00
69 3F CD
lB 1.0 OS BJI
CA
H
Il
CA
30 00 AJI OA 20
lB
60
03 4C
50 AJI 03 4C
JI9
50
lJI
20
60 1 9
AD
07 20 00 C2 AD 00 C2 Cj
80
7E
OJi
BE Aj 38 80 7C
04 AJI
7E
7C 85
42 85
85 3E 38 20 1 1
B7 1 3 88 1 0 F 7 A 9 0 0 80 3 0
80 1 4 1 4
AD
E5
80 1 6 1 4 8D 1 8 1 4
80
80 lB 1 4 AD E5 lB
6C 1 3 1 4
6C 1 5 1 4
01. 01.
6C 1 7 1 4
OF C2
01. 01.
6C ] JI 1 4
1 4 1 0 : 5C lB 1 4 0 0 C2 4 5 C2 4 6 C2 4 7 C2 4 8 C2 2 0 SB 1 9
1420:119 50 4 C 1 0 I J1 2 0 SB 1 9 A JI 51. 4 C 1 0 1 9 2 0 33 1 4
1 4 3 0 : 4 C 85 1 4 A JI 03 8D
71. 1 4 1. 0 0 0 B JI 7B 1 4 FO 0 6 20
1 4 4 0 : 1 0 1 9 C8 DO 1'5 20 AC 1 9 BO
OE CE 71. 14 AD 71. 1 4
1450:00 F3 80 8 4 1 4
4C
l H O , 3F JlO DS EJI 4 0
80 83 1 4 20 AC 1 9 CJI 3F 90 Cj Ej
1 4 7 0 : 4 0 80 82 1 4 1.9 01
7J1 1 4 C9 IF DO E9 20 AC 1 9 C9
80 84 1 4
60 00 lB 31.
66 02 l B
1 4 8 0 : 61
0 0 00 0 0 00 2 0 BE DE 2 0 E3 OF 85 8 3 8 4 84 AS
1490:81
25 82 30 03 4 C 75 DO AD 82 14 1.0 01
1 4 A O : Jl 8
Jll
88 1 0 F7 20
4C
14BO:82 30
H
76 DD AD
OC C2
60
60
76
DA 01.
85
OF 60 4C BD 18 20
18 10 20 1 0 H 88 1 0 F7
4C
60 2 0 1'5 E6 8E ES
00 C2 80 1 5 1 4 AD OE C2 80 1 7 1 4 AD
OF30,B9 Al
30 OE 1 8
03
83 20 BE DE 20
80 E3 1 3 80 Ej 1 3 80 EF 1 3 80 F5
13FO:8D 1 9 1 4 AD 1 0 C2
AD
83 20 BE
J3BO:J19 30 BE 8e 1 0 F7 50 0 0 00 1.9 FF 80 E6 lB
13CO:IB OJi
6.9 4 0 80 8B OF EE 81. OF AC 33 OE
7 6 OF
30
BE A JI 0 7 2 0 ED FD A D 0 1 BJI B 7 1 3
OF2 0 : 0f' AD 2E OE 18
OF 80 94
83
85 3D 85 3F 1.9
80 81.
6J1 4 0 80 81.
83
1 9 AD ES lB 01.
1 3 7 0 : 0 4 Aj 68 80 70 04 AJI 81
1 3 8 0 : 3C Aj
91
85 lA E6 11. 20
OF B9 AI.
68 OF A9 00 80 JI] OF 80 JI] OF AD 20 OE 1 8
98 91
13 eD SB 1 3 80 2F 1 3 AD
03 4C 5C 13 AJI
97 OF AD JO DE 1 8 69 40
OEF O : 6. 9 4 0 80 88 OF AD 2F OE 1 8
OFl O : 1 8
AD
OF 80 jJ OF BJI 1.7 OF 80 j 7
OF eD 8C OF AD 2F OE 1 8
OED O , 9 3 OF B9 AD OF 80
OEEO:OF 20
83 88 98 JI!
84 A5 81 25 82 30
33 OE CJI 02 DO 03 EE 88 OF
AJI
25 82
1300:E3 OF 85 83 84
OE50 : 8D 8E OF AD 34
OE8 0 : 0F
83 88 98 91
1 3 1 0 :1.1
jO OF 2 0 FE 1 0 A9
OE6 0 : 4 0 80 88 OF
OE70:0E 80 JlO OF
91
Jll
59
OE 3e ED 2F OE CJI 02
AD
AD
Jll
1 2 C O : 2 0 BE DE 20 E3 OF 85 83 84 84 1.5 81 25 82 30 03
OEO O : 2 0 F5 E!6 EO 03 80 23 8E! 33 OE 20 F5 E6 BE 34 OE
OE40:AD 30
48
04 AJI OF DO 02 AJI 3C 8D 7 7
J � . e e � � U IT K u � ru U . � � Œ
OC5 0 : 83 84 84 AS 8 1
OC70:42 08 DO
10
1 0 2 0 : 1 0 2 0 A C 1 9 B O 01. CE 7 7 1 0 AD
3 0 03 4C 7 6 DO 1.5 83 85
OCI 0 : 0 0 CO 00 DO F6 1.0 0 0 CC 40
OC2 0 : 0 2 20
Jll
82 30 03 4C 75 DO AD 4 6 OB C9 0 7
82 8D 3F
OCOO:4C C2 1 8 80 40
OC30:AE 2 0 1 0
AD 73 OB
1 0 0 0 : 2 0 BE DE 20 E3 OF 85 83 84 84 A5 81 25 82 30 03
1 0 1 0 : 4 C 75 DD 2C E5 lB
08
0 7 AS
08FO ,B5 AS 84
]JI
4 0 OB 20 52
OBCO:AE 4 0 OB EC 3D OB FO 08 1.9 AO 2 0 1 0
OBDO,A9
00 0 0
05 20 5B 1 9 A9 4D
Dl 1. 0 0 2 20 E2 ES AD 4 0 OB 1.0
OBJlO:6F Jll
00
73 OB 8C 74
91
83 88
83 20 BE DE 20 E3 OF 85 83 84
84 AS 81 25
03 4C 76 DO AD 83 1 4 AD
83 88 j8 Jll
1 4 C O : 83 20 BE DE 20 E3 OF 85 83 84
01
jl
84 AS 81
25 82 30
Porn's nO 34
1 4 D O : 0 3 4C
76 DD AD 84
14EO:20 F5 E6 EO 04
90
1 4 AO
01
1 4 F O : 1 8 A9 4 C 50 F9 1 4 4 C l a 1 9
1 5 0 0 : 0 2 A2 FF 8E E2 lB
1 5 1 0 :F5 E6 8E 71
91
03 4C BD 18
83 88 98 91
83
60
8E F9 14 20 SB 1 9
00 20 F5 E6 E O 0 0 Fa
60 20 SB 19 A9 SC 4C l a 1 9 20
1 5 20 F5 E5 8E 72 15 20 F5 E6 8E 73
1 5 2 0 : 1 5 20 F5 E6 8E
74
15 AD 71
15 00
72 15 C9 08
1 5 3 0 : 0 3 4C BD 1 8 A9 OE 20 1 0 1 9 20 SB 1 9
18 AD
71
90
15
154 0 : 69 4 0 20 1 0 1 9 2 0 SB 1 9 1 8 AD 7 2 1 5 69 5 0 2 0 l a
1550 . 1 9 20 SB 1 9 A9 4 9 2C 7 4 1 5 FO
03 38 E9
01
20 l a
1 5 6 0 . 1 9 20 SB 1 9 A9 5 9 A E 73 1 5 rD
03 1 8
01
4C la
69
Computer Eyc s / 2
Carte à digitaliser pour Apple IIGS
(320x200 pts / 16 Niveaux de gris)
Manuel en Français
Prix 3200 Frs 1
1 5 7 0 . 1 9 0 0 0 0 0 0 0 0 2 0 F5 E 6 8E 0 5 1 5 20 F5 E 6 8E 0 7
1 5 8 0 . 1 6 20 F5 E6 8E 0 8 1 6 2 0 F5 E 5 8E 0 9 1 6 20 F5 E 6
1 5 9 0 : 8E
GA
1 6 20 F5 E 6 8E OB 1 6 A D 06 1 6 C9
04
90 03
1 5 B O : I 0 1 9 20 58 19
18 A9 4C 60 06 1 6 20
10
19 20 5B
(Carte pour Apple Ile ou
15CO : 1 9 18 A9 40 60 07 1 6 20 l a 1 9 20 SB 19 1 8 A9 50
15DO:6D 08 1 6 20 10
19 20 SB 19 A9 49 AE 09 1 6 FO 03
15EO : 3 8 E9 01
20 l a
19 20 SB 1 9 A9 SC AE OA 1 6 FO 03
15FO : 1 8
69
01
20 l a 1 9 20 SB 1 9 A9 59 AE OB 1 6 Fa 03
1600:18
69
01
4C l a 1 9 00 00 00 00
1 61 0 : 1 6 Fa
06 20 1 0 1 9 C8 DO F5
1 6 2 0 : 4 9 lB 59 lB 4C lB
oc AO
60
47 lB 50 20
00 00 AO
00 89 lA
39
7r lB sc lB
00 20
50 1 9 20 F5
lB
1630:E5 EO
00 Fa
1 6 4 0 : 6 0 AO
0 7 B 9 55 1 5 20 l a 1 9 8 8 1 0 F7 5 0 4 J 6 9 3A
1650:1B
66 3A lB 43
04
0 7 B9 40 1 6 20 l a 1 9 88
la F7
6A 3A lB 04
66 3A lB 20 BE DE
1 6 6 0 : 2 0 E3 OF 2 4 81
30
04 2 4 82 30
03 4 C 76 DD 20
1 67 0 : 1 6 4C 99 1 6 A9
00
8D CC 1 6 20
60 1 9 90 1 7 C9 1 3
1 68 0 : 0 0 0 3 4C 28 1 7 C9 1 6 F a 4 4 C9 1 9 F a 4 0 29
1690:00
02 EE CC 1 6 AD CC 1 6 60 AD
1 5A O : A 9 0 9 8 0 00 0 2 D O 09 9 0 07 C9
1 6B O : 2 0 52 E4 A2 00 AO
1 6 C O : 8 3 C8 AS
1 6DO,BO
6F 91
03 4 C 95 1 6
70
91
74
Nos prix sont TTC
American Computing
Résidence les Floralies
7, Rue Charles Péguy
42300 Roanne
Tél : 77.72.98.75
03 CE 0 0 02
83 60 00 20 AC 1 9
4C 95 16 C8 B9 26
4C 80 16 8E 2 6 1 7 20 AC 1 9 !JO 03 4C 95 15 80
1 7 0 0 : 2 7 1 7 AO
00 AD 2 6 1 7 D9 49
lA DO 1 0 C8 AD 2 7 1 7
1 71 0 : 0 9 49 lA DO 08 C8 B9 4 9 lA
4C 8D 1 6 C8 C8 C8 CO
1 7 2 0 : 2A DO El
4C 95 1 6 00
00 20 AC 1 9 Ba
1 7 3 0 : C 9 1 3 FO F4 89 4 0 FO F5 C9
Ile : 2800 Frs)
7F 80
29 Fa C9 4 0 Fa 1 8 8A A O 0 0 09
1 6E O : 2 6 lA Fa 09 C8 C8 CO 22 DO F5
1 6FO:IA
40 FIS
COPV Il PLUS v8.1 : 395 Frs
PROGRAM WRITER + Manuel FR : 630 Frs
FONTWORKS v2.06 + Manuel FR : 630 Frs
LABEL SHOP v 1 .0 (FR) : 240 Frs
(Étiquettes couleur, Justification, Fontes.
Type d'impression, Tous formats)
02 20 E2 ES AD CC 1 6 AO 00 91
83 C8 AS
AA
o
o
o
o
00 02 C9 0 7 DO 0 7
DA Ba
:
Disquette Démo
15A O : 4 C BD 18 AD 07 1 6 OD 08 1 6 C9 08 Ba F3 A9 OF 20
03 4C 95 1 6
4A B a FI 29 OF 4C 80
1 7 4 0 : 1 6 20 SB 19 A9 59 4C l a 19 A9 FF 8D 51
1 7 4C CC
19AO:A4
1750:08
60 A9 OF
19BO : 1 9 80 C6 1 9 20
60 19
90 01
19C(I:C5 1 9 DO Fa
00
8C EC lB 8E EB lB 4 8 AO OA
00 AO 02 B9 ED lB 99 F5
1 7 6 0 : 4 C la
19 20 B7
1 7 7 0 : 0 0 FO
03 20 F5 E5 A9 41
1780:90
00 FO
03 88 l a F7
07 C9 2C Fa
03 4 C BD 1 8 20 FE la
8D Cl
07 4C C9 DE A2
1 7 8A Fa 2E C9 08
8A 69 40 8D BB
17
69
la
1 790:80 BD 1 7 AO OC B9 B 7 1 7 20 la
19 8 8 la F7 EE Cl
1 7A O : 1 7 AD Cl
17 50 A9
1 7 C9 59 DO EB 20 C4
OC 20 10
1 7B O : 1 9 20 FE la 4C C4 1 7 OF 67 12 5F 4 0 lB 50 lB DE
1 7C O : 4 1
4 0 IF 14 AO
05 B9 D O 1 7 20 la
19 88 la F7 50
1 7 D O : OA 54 12 20 41
40 IF 20 F5 E6 8A FO 1 4
17EO:I0
1 8 20 F5 E6 20 FE 10 8A C9
69 40 8D 1 4
1 7F O : 0 3 4C BD 1 8
59 40
80 DE 1 8
1 8 0 0 : B 9 OA 1 8 20 l a 1 9 88 1 0 F7
1 8 1 0 : 5 (1
lB
OE 41
40
1 8 4 0 :F5 E5 8E BC 1 8 EO 08
C5 20 A 8 FC AD
1 _ � Œ 18 H a '8
00
50 CE CS 19 DO FS EE
00 CO C9 9B Fa
03 88 DO FI
1 9FO: 50 AD EA lB AE EB lB AC EC lB
50
60
50
7E 00 1 9
l A O O : 4 8 5E 00 1 9 4 3 5D 1 9 2 7 0 0 23 1 9 23 00 5B 1 9 30
l A 1 0 , O O 7D 19 41 55 7B 1 9 42 65 40 1 9 41 51 7C 19 41
1/;2 (1 : 75 SC 19 48 53 00 23 A3 24 A4 25 A3 27 DO 2e Be
1A30:2D /;2 2E BE 2F F6 30 DB 31 AB 38 AF 3C Ar 3D AF
AF
l A 4 0 : 3E
7A
M
7B C2
59 l a 80 l a 1 8 AO
OC
1A50: 6 5 ES 4 8 5 5 ES
41
61 C O 43
OF 57 12 5F 40 lB
lA50:E9 4 8 6 9 E9 43
tiF EF 4 8
lA70:4B
63 OC 00
08 4 9 OC EC OC 35 aD 98
lA80;D8
aD 83 OF DE OF F5 Of' F9 la FE 10 03 Il
60
19 80 aD 8E BB 1 8 20
90 03 4C BD 1 8 AD B8 18 CD
lA.90;83 1 1
6A AA
C7
9D 1 1 D l
00
41
55 FD 42
65 FB 4 3
51 E l
4 8 51 El
4J 5 9
tiF EF 41
7 5 Fe 4 8
75 f'5
Il 2 9 1 2 31
aD D3 aD
43 I l
12 3 .9 12 3E 12 lB 1 3
lAA O : l D 1 4 25 1 4 2 D 1 4 E O 1 4 FA 1 4
0 7 1 5 OF ] 5 7 5 1 5
1850:B9 1 8 Ba F5 AD BA 1 8 CD BB 1 8 Ba ED 20 FE 1 0 20
lABO:OC 1 6 2B 1 6 50 1 5 4 1
1 8 6 0 : 5 5 1 9 A9 4 0 1 8 5D BA
lACO:D7 1 7 1 7 1 8 00
00
(la 4 1
4D 42 52 4 3 53 44
lADO;51
48
6E 00
06 El E3 E3 ES Fa F'4
1 8 7 (1 : 1 8 2(1 1(1
19 A9
18 20 10
19 A9 4 0 18
5D B8
(lE 2(1 l a 1 9 2(1 5B 19 A9 4 0 18
6D
58
u u a 18 U _ '8 � IT 18
90
8E BA 1 8 20 F5 E5 EO 29
1 7 8E B9 1 8 20 F5 E6 EO
50
08
IF 1 4 2 (1 F5 E5 EO 29 Ba 2B 8E B8
1 8 2 0 : 1 8 20 F5 E5 EO 1 9 Ba 21
1830:BO
C9 1 9 Ba
19DD:A9
1 9 6 0 0 0 0 0 A E EO lB AC E l lB fi a Ag C O 8D CS
4 6 50 4 7
5C
1 7 4 .9 1 7 52
1 7 SE 1 7 5 3 1 7
50 45
07
l a 1 9 A9
lAEO:El E3 E3 ES FO F4 E 5 07 El E6 E5 E9 E3 E8 E5 06
1 9 AD B9 1 8 38 ED B8 1 8
lAFO:El EC ES F2 F4 ES 05 El Fa FO ES EC 03 E2 E9 FO
1 8 A O : 1 8 5 9 4 0 2 0 l a 1 9 EE BA 1 8 AD BA 1 8 CD BB 1 8 90
1800:05 E3 El E4 F2 ES 0 7 E3 E8 El F2 E9 EF F4 04 E3
1 8 8 (1 :BC 1 8
4 8 20 l a 1 9 20 SB 1 9
1 8 9 0 : 5F 20
l a 19 A9 12 20 10
18BO;AE Fa AC A9 OF 4C la
19
00
58
00
69 l a 20
00 00 00 A9 02 4C
1 8 C O : 0 9 BE A2 Ba 4C 12 04 20 E7 1 9 80 55 1 9 20
18DO:AO
60 1 9
00 2C E2 l B l a 0 6 B9 25 lA 4 C E O 1 8 B9 FD 1 9
1 8 1 0 : EE F8 EE 0 4 E3 EE F8 F2 05 E3 F5 F2 f'6 E9 F3 08
IB20;E3 F5 F2 E9 EE F5 E9 F3 03 E2 El F'3 04 E8 El F5
IB30;F4
05 E4 ES E3 EE F8 0 7 E4 E5 Fa EC El E3 ES 0 7
BF a l
18EO:FO OB CD 55 1 9 F a OF C 8 C 8 C 8 C 8 DO ES AD 5 5 1 9
1B40:E5 EE EC E 9 E7 EE ES 0 4 E 6 E9 F8 ES 0 1
18FO:20 l a 1 9 4 C FI
1850:05 E9 C4 ES EE F4 04 E9 EE E9 F4 01 BE 05 EC E9
1 9 C8 A 2 03 2C E2
1 9 0 0 : 1A 4C 07 19 B9 FD 19 20 la
lB
19 C8 CA DO EB Fa E3
1 9 1 0 : 2 C E6 lB 30 lC 8D 2F 1 9 8E 30 19 A2
1 9 2 (1 : 1 0 F(I F8 AD 2F 1 9
1930;00
1940;90 F 6 2 0 A 5 1 9
1950 ;FB 1 9
"
81
48 8E 53 19 8C 54
U X E"
60
l a 0 5 B9 25
00 Al
lA 29
18 AE 30 1 9 20 FB 1 9
60 00
19 20 AS 1 9 A 9 00 20 la 1 4
68 20 a D 1 4 AE 53 1 9 A C 5 4 1 9 2 0
00 0 0 00 A 9 I F 4 C 1 0 1 9 A9 l B 4 C 1 0 1 9
8 H 'c u a 18 U
N M U H U M .,
A8
lB50:E7 EE ES 08 EC EF EJ El EC E9 F3 ES (14 ED EF E4
lB70:E5 03 ED F4 E8 01 BD (16 Fa El F2 El ED E 7 05 Fa
IB80:El F2 El ED F4
05 F2 E5 E9 EE E9 F4
07 F2 EF F5
lU' IT a a N "
n a n n n a •• n a a n
lBAO:EC E9 E 7 EE ES
05 F3 E5 E3 F2 ES F4 0 7 F3 ES F2
IBB O , F 6 EF E 6 E 5 03 F4 F8 F4
(18 F5 E9 E4 ES E3 F2 El
1 8 2 9 7F AE EB lB 38 20 FC 1 9
IBCO:EE 08 Ffi E9 E4 EC E9 E 7 EE ES
0 7 F5 E9 E4 F2 E5
IBDO:E3 F4
00 04 E9 EE E9 F4
00
00
1 9 8 0 : 60 8 E A3 1 9 B C A4 1 9 20 A S 1 9 A.9 al 20 l a 1 4 .9 0
1BE O : C2 20
00 00 15 02 FF 00
00 82
1 9 9 0 : 08 20 A S 1 9 20
18FO : 3 0 30
1970:AE EB lB 18
Porn's nO 34
50 Al
OA 1 4 2 9
7F 2 0 FC 1 9 AE A 3 1 9 AC
00
00 00
00 ·00
00
00 02 00 4C 03 BE
49
9?j]p@îm Pdeur...
MadITffiro§]ffi
... enregistreur., télématique, interrogea6fe...
Jean-Luc '13azanegue
e numéro de Porn's que vous avez entre les mains
contient un puissant ensemble de roulines en langage
machine, formant une librairie d'instructions
télématiques qui s'ajoutent à celles du Basic Microsoft
(2.0 et plus). Afin de donner un exemple de
programmation sur la base de ces nouvelles
fonctions, nous avons pensé qu'il serait
judicieux d'écrire un serveur/répondeur
télématique intcrrogeable à distance. Il ne faut cependant pas
s'y tromper : malgré sont caractère 'démonsU"atif' , ce
serveur est parfaitement fiable, pratique, et son ergonomie
pourrait faire rougir de honte les 'programmeurs' de la
plupart des serveurs Vidéotex dits serveurs-kiosque.
Si vous ne programmez pas, Cl comme à l'accouLUmée,
cette application est disponible 'prête à lancer' sur la
disquette d'accompagnement Mac 34 de Pom's.
Un répondeur télématique
pour quoi faire ?
Il est inUlile dc préscmer ici le traditionncl répondeur
téléphoniquc, matériel pas très pratique (il faut enregistrer
u n message tout en ayant J'air décontracté,
dynamico-branché - c'est à la mooe - et intelligent - ce qui,
en cc qui nous concerne, requiert beaucoup d'efforts ainsi
À propos du
programme "Envoi
Vidéotex" (Porn's 33)
Le
'mini-protocole'
utilisé
par
ce
pro­
'
en
SOOKo
La taille des systèmes
gramme - qui envoie les
d'exploitation, des utili­
images créées par"Paint
taires,
,... Minitel" - n'est pas
caractères. . . n'allant pas
reconnu par tous les
en diminuant, il devient
(demande
Minitel
d'identification).
certains
cas,
Dans
J'image
Vidéotex n'est donc pas
émise.
pol ices
très difficile de tout loger
sur une disquette simple
(ace 400Ko.
inévitables 800Ko ce qui
disquette
d'ajouter une démo de
gnement de ce numéro
une
version
universelle.
plus
numéro
La généralisation du Minitel, en particulicr avec l'annuaire
téléphonique ct les grandcs sociétés de vente par
correspondance, fait que la LOnalité aigu/! de la porteuse. qui
est devenue parfaitement familière, est en passe de
provoquer le geste réflcxe qui consiste en la mise sous
tension du Minitel suivi d'une pression sur la touche
'Connex.ion/Fin' ; c'est ce que feront la plupart de vos
correspondants, qui auront alors tout leur temps pour écrire
- voire même peaufiner - un message à votre attention.
Répomdeur, puisque tel est le nom du serveur que Pom's
vous propose, vous donnera donc, outre le style
dynamico-branché cité plus haut el que vous ne recherchez
pas forcément, la possibilité de stockcr un maximum
d'informations avec l'outil de communication qu'est votre
Macintosh.
De plus. votre servcur-répondeur télémauque Répomdeur est
interrogeable à distance depuis n'importe quel Minitel
raccordé à une ligne téléphonique. Il vous sera donc
possible à tous moments d'appeler votrc Macintosh pour
lire les messages enregistrés el prendre immédiatement les
mesures qui s'imposent en (onction des besoins ou
propositions de vos amis et/ou clients.
Le matériel
L'utilisation de Répomdeur rcquiert la présence du matériel
suivant :
unc lignc téléphonique ;
un Macintosh 512Ko. Plus. SE ou II ;
un Minitel bi-standard dit 'retournable' (ils le SOnt
pratiquement tous) ;
un câble de liaison Macintosh '" Minitel tel que celui
utilisé par les programmes dcstinés à l'utilisation du
Minitel ct publiés depuis le numéro 27 (si par hasard ce
câble vous faisait défaut, les Éditions MEV peuvent
vous le fournir) ;
•
Nous passons donc aux
nous permet, pour
d'accompa­
Cela ne va pas toujours jusqu'à la perte d'un client mais
peut vous faire perdre une information, un rendez-vous, ou
tout simplement un chaleurcux ct amical 'Comment
vas·tu 7'. Nous passerons rapidemcOl sur le 'yau de poil . . . '
pour en venir à notre serveur/répondcur télématique.
de
Afin de remédier à cela,
nous avons placé sur la
50
Les disquettes
d accompagnement
Macintosh mainte nant
qu'une attenUon soutenue), et particulièrement irritant pour
la plupart des correspondants, qui généralement raccrochent
rageusement avant d'appeler lc maudit concurrent
ce
34 de Pom's,
'
'
programmes et fichiers
"dBasc Mac" en plus des
publiés dans ces pages.
•
•
•
Pom's n° 34
•
un détecteur d'appel téléphonique que vous pourrez
réaliser à l'aide du schéma publié dans le numéro
32 de
Pom's. Cet appareil, dont le double connecteur
s'intercale entre la souris et le Macintosh, peut aussi
vous être fourni par les Éditions
MEV.
de
l'objet,
construire
vous-même
Si vous décidez
nous
vous
reçommandons de faire très attention à la qualité et au
branchements du relais ; une isolation galvanique
parfaite est indispensable.
Le synoptique joint à cet article indique quelles sont les
liaisons à effectuer entre les différents appareils. On peut
noter que la présence de l'appareil téléphonique n'est pas
""
'
indispensable.
Démarrage du serveur
lire les messages enregistrés ...
Quitter
S 1 2Ko
Plus
L'article "Démarrer avec un fichier existant. . . " permet
SE
l'utilisation d'un fichier qui contient déjà le mot de passe,
II
votre nom - ou raison sociale - et votre numéro de
téléphone. Le mOl de passe vous sera n
i dispensable si vous
comptez lire vos messages à distance depuis un autre
Minitel, alors que les deux derniers 'éléments' seront
employés pour l'affichage sur l'écran du Minitel de votre
correspondant d'un texte que nous poumons qualifié 'd'écran
de reconnaissance'. Par exemple, pour les Éditions
MEV,
nous affichons :
Vous êtes bien
au
- Editions MEV -
(l}
39 51 24 4 3
L'ouvenure d'un nouveau fichier sera parfois nécessaire. ne
serait-ce que lors de la première utilisation du serveur. Dans
ce but, Répomdeur affiche une fenêtre de saisie qui vous
permellra l'initialisation de vos nom ou raison sociale et
numéro de téléphone, ainsi que du mot de passe qui
ce qui rassure tout de suite votre correspondant sur le bon
autorisera les 'fonctions de service' à distance (lecture des
aboutissement de son appel.
messages, remise à zéro du fichier et changement du mot de
passe).
Cet article du menu "Fichier" conduit naturellement à
l'affichage de la fenêtre de sélection de fichiers habituelle.
Note : au lancement du progranvne, lafenêtre de sélection
s'affiche, permettant ainsi un démarrage direct du serveur. Si
vous appeliez Réporndeur pour effectuer une autre opération
(démarrage avec un nouveau fichier, lecture des
messages. . .), faites simplement un 'clic' sur le bouton
'Annuler' .
M o t d e passe : d e
4 il 7 coroctères
2 e t 0 -> 9).
Nom : Jusqu'à 1 6 caractères
(A
>
-
affichables par t o u s les Minitel.
T é l é p h o n e : Jusqu'à
......0......................
....................
Nom
Tél.
1- Editions M E U
1( 1 1 39 51 24 43
Rnnuler
. .. . . . . .
..0..... ..
Mot de passe
Pom's n° 34
1 6 caractères
affichables par t o u s les Minitel .
. .
. . .. . . ................ •.. .......•
IW2Boo�
-
) C=I\ OK
51
Le passage d'une zone de saisie
à
l'autre se fait
classiquement par un 'clic', un 'retour-chariot' ou une
Lecture des messages
action sur la touche de tabulation. Certains contrôles sont
effectués par le programme afin d'éviter les plus grosses
erreurs de saisie ; ainsi, pour empêcher l'apparition dans le
mot de passe de caractères difficiles - voire même
impossibles
-
Z et 0
à saisir sur le clavier du Minilel. on limite
les possibilités
à
A
...
..
9.
Au cas où un ou
plusieurs caractères se trouveraient hors de ces gammes,
l'erreur est signalée par un 'bip' suivi de l'affichage en
inverse du texte indiquant les possibilités. Le même
principe est utilisé pour la saisie des nom et numéro de
téléphone dont la longueur est vérifiée afin que l'affichage
des chaînes de caractères ne provoque pas de désordre sur
l'écran du Minitel servi.
Mot de passe : de ... il! 7 car'actè.-es
1"
Nous ne parlerons ici que de la lecture des messages SUI le
Macintosh ; la consultation du fichier à distance sera
évoquée un peu plus loin.
2 et 0 -) 9).
-)
N o m : jusqu'à 1 6 caractères
affichables p a r tous les M i n i t e l .
Téléphone : jusQu'o 1 6 caractères
nffichables par tous les Minitel.
Mot de posse
1- Editions MEU 1(1 ) 39 5 1 2 4 43
Nom
Tél.
Annuler
azerty
1(
717
rIes sage
ROUGERON
39 , 5 1 . 24 . 43
Jacques
J ' a i l u quO i l ex i s ta i t un
m i croprocesseur pour
App l e Ilc, Pouvez-vous
m ' i nd i quer où j e p u i s l e
trouver, a i ns i que son pr i x .
Je vous remerc i e d ' avance .
Uotre revue est super !
...............
" ... . . ...,.,...... . ........
' 1::1\::1 )'
t1P ré é den tl 1'-;�-:-!l";:-:
c
......................•••••••••"
........................................
Annuler
IUiderJ
de saisie est valide (les vérifications sont faites lOfS
Le bouton 'OK' confinne vos choix el, si le contenu des
zones
de la sollicitation de ce bouton), une seconde fenêtre
apparaît, autorisant le baptême du fichier serveur. Une fois
le fichier nommé, et si vous n'utilisez pas le bouton
'Annuler', le serveur démarre avec le nouveau fichier.
Quand le Macintosh sert . . .
. . . son écran affiche un minimum d'infonnations.
Le premier message affiché est le dernier reçu. Les boutons
message à l'autre. Le boUlon 'Vider' pcnnet la remise à zéro
'Précédent' et 'Suivant' seront utilisés pour passer d'un
du fichier, après confinnation bien sûr :
Uoulez-uous effocer le contenu du fichier
'Fichier serueur 3' 1
n
Il s'agit de :
Attente d'un appel
(Commande+ ' . ' pour
Annuler
OK
interrompre le serveur)
lorsque le MacinLOsh est en attente d'un appel ;
Appel reçu.
en
attente de connexion..,
attendant que votre correspondam appuie sur
Côté Minitel servi
Connexion/Fin ;
Connexion ok,
(connexion nO N)
Après
affichage des écrans de présentation, votre
quand le Macintosh 'conversc' avec le Minitel servi. N
correspondant se trouve devant une 'page' qui lui propose
représente le nombre de connexions depuis le lancement de
trois choix possibles :
Réporndeur.
52
serveur actif
( 1 ] Laisser
un
message
Pom's nO 34
discrétion, les caractères du mot de passe sont
retournés à l'écran sous la forme d'astérisque ('.').
donne accès à différentes zones (parfaitement
contrôlées par votre Macintosh-serveur), qui
permettent la saisie d'un nom (obligatoire), prénom,
[ 3 ] Quitter
numéro de téléphone ct message de 196 caractères (7
n'ont rien à faire là. . .
soigné l'ergonomie du serveur, pour la partie
utilisateur ou la panie 'maître' (fonctions de
Fonctions d e service
service) ; ainsi, par exemple si votre correspondant
d�irc passer plusieurs messages de suite, il trouvera
lors des nouveaux affichages de la fenêtre de saisie
Vous seul pouvez accéder à ces fonctions puisque le mot de
ses nom, prénom, et numéro de téléphone affichés
passe est indispensable.
par défaut (mais modifiables) et le curseur placé sur
la première JXlsition de la 7..one de saisie du message.
( 1 ] Lire
messages
l'écran de votre MacinlOSh, les boutons 'Précédent' et
on le présente tel qu'il sera réellement enregistré,
'Suivant' étant seulement remplacés par les louches
permettant ainsi au correspondant une éventuelle
'Retour' et 'Suite'.
modification ou, pourquoi pas, annulation.
( 2 ] Effacer
le
fichier
Identique à la fonction disponible sur le Macintosh
service
Ceci vous est destiné, L'écran qui suit cc choix est
avec, bien sûr, demande de confinnation.
un passage obligé pour aller vers les fonctions de
[ 3 J Changer
service ; il faut ici frapper le mot de passe. Le
le
mot
de
passe
serveur autorise trois essais au terme desquels
Ceci peut être utilisé si, par eltemple, le mot de
l'indélicat est déconnecté. Afin de sc protéger des
passe a été communiqué à fin de démonstration. Le
indélicats futés, il n'est pas possible de faire plus de
changement de ce mot est doté de nombreuses
trois essais même en revenant à l'écran précédent
protections qui garantissent une modification
entre deux tentatives. Notons que, par souci de
parfaitement fiable.
Programme
'Répom 'deur'
, ç
s.::�
PI
">
les indentations indique la
continuité de la ligne.
•
les
Le fonctionnement est comparable à la lecture sur
Dans le même esprit, avant d'enregistrer le message,
de
répondeur
Pour ceult qui s'aperçoivent au dernier moment qu'il
lignes de 28 canlctères). Nous avons particulièrement
[ 2 ] Fonctions
ce
' - Répom 'deur - e 1988 Christi
an Piard,
et Pom ' s
Jean-Luc Bazaneque
-
LIBRARY "Pam
Link
2.1H
DEFINT A-Z
DIM Messaqe$ ( 6} , Cris(3} , Rect(3
)
ON BREAK COSUB
B l o q u e ; BREAK
ON
COSUB Init i a l i sations
ON MENU COSUB Men u s ; MENU 0
N
ON MOUSE COSUB
Souris
COSUB OuvreFichier
, DemNouvedll, Lire, Rien, Qui tte
r
ON ERROR
RepriseAttente:
MENU ON
COSUB
MENU
ChtlineEtat$ ....Attente d ' u n dppe
' , ' pour 1
1
DemExlstanC:
nterrompre le serveur) "
COSUB OuvreFichier
RETURN
COSUB NouveauFichier
( "+CHR$ (17} + " +
COSUB spAffl cheEtat
'.
DeroNou veau :
attente d ' un appel
'
AttenteAppel:
HENU 1 , 5, 0
RETURN
ON BREAK COSUB ArretServeur
Arreter:
HENU OFF
WINDOW CLOSE
1
MENU 1 , 1, 1
HOUSE
ON
Dr-F'dux
MENU 1 , 2 , 1
DrArret -Fd uX
MENU 1 , 3, 1
C$-''''
Dr-Faux
D1og-0
COTa AttenteOuverture
WHILE NOT Dr AND NOT DrArre
t AND C$<>CHR $ ( 2 7 }
Rien:
RETURN
C$-INKEY$
Quitter:
Dl og�DIALOC (O)
LIBRARY
AND 0 1 0
g<>4
CLOSE
IF Dr THEN FichlerOuvert
SYSTEM
l
WEND
HOUSE
HENU
OFF
ON
ON BREAK COSUB Bloque
FlchierOuvert :
WINDOW l , Httat
HENU OFF
VideVariables
RETURN
WINDOW CLOSE
COTa Attent eOuverture
COTO Erreur
FinMenus:
AttenteOuverture:
Menus:
MENU 1, 3, 0
du serveur", (0
, 39 } - (512, 342} , 1
HENU 1. 5, 1
IF DrArret OR C$-CHR $ ( 2 7 }
nMenu-NENU(Oj
nArc i cle -HENU (l j
TEXTFONT
CLS
OPEN "R",l, Flchier$ , 2 4 4
IF nMenu<>l
HENU 1 . 1 . 0
FIELD
THEN FinMenus
ON nArCicle COSUB DemExistant
Porn's nO 34
O ; TEXTSIZE 1 2
MENU 1 . 2 , 0
Dlog-4
OR
THEN Arreter
1 , 2 A S zNombre$, 8 A S zN
ot$, 1 6 AS zNom$, 1 6 AS zTel$
53
�I
GEX 1 , l
Mot$-zMot$
NomServeur$-zNom$
XelephoneServeur$-zTel$
tlMot:
'" I ...J
C
��
?)
" THEN M
IF RIGHT$(Mot $, l ) - "
ot $-LEFT$ (Mot$, LEN (Mot$)
-
1)
:GOTO tlMot
THEN NomServeur$-LEFT$ (NomS
erveur$,LEN (NomServeur$)-l) :
GOTO t l Nom
tlTel:
IF RIGHT$ (TelephoneServeur$,l
.. THEN TelephoneServeur$
-LEFT$ (TelephoneServeur$, LE
N(TelephoneServeur$) -l) :GOT
o t l Tel
ChaineEtat$-"Appel reçu,
atten
te de connexion.....
GOSUB spArri cheEtat
WHILE
Accept ! 29,22,0, '''', 1 , Chaine$,D
TIHER<Temp ' + 2
ON Dr+l
' . Seconde page
•
ChoixImp2, Deconnexion
Cadre !
1 . 1 . 40, 7, 2. 0,5. 0
GuideImp2 :
Cadre!
1,8,40,20,2,0,5,0
GOSUS GuideIndisponible
GOTO BoucleChoix
Deplace!
5,3
Affiche!
"Vous étes bien a u
Depl«ce!
AfrlcheR !
(connexion nGn+No
4, 1 0
"Votre interlocuteur
est un"
4,12
"ordinateur Apple pré
ArricheR!
"1
Arfi cheR!
1- ' 1- ,
Affi cheR!
1
1 1
}
"1
1 } -
1 }
"1
Affi cheR!
"1
}
1 ,1
1 1 1
/1
"1
Affi cheR!
}
, 1
'"
1 } Il
Affi cheR!
1
1 }
1 }
1
',-1 }
1
1
AfricheR !
Affi cheR!
Affiche!
........
Inverse!
" Connexion
Deplace! 1 , 6
GOTO DeconnexionF, Som
}"
"'_1
Affiche!
Afriche!
1 . 1 . 40, 6, 4
Inverse!
9, 4
AfficheR !
1 , 7, 4, 0, 0, °
.. Répondeur télématiq
"
" Suite
Norma l !
Mode ! 2
GOSUB spCadresCho i x
Affiche!
ParamT!
FOR
0, 7, 0, 0,0, 0
B, Il
8, 1 4
Affi che!
"Fonctions de service
"Laisser un message"
Message___ "
Index-lI
Deplace!
Deplace!
Affiche!
TO 1 7
l , Index
"•
. . . . .
. . • • . • . . . • • • • .
+"
. . . . . . . .
12
Ligne!
Affiche!
4
Deplace!
ParamT!
+"
Chariot!
Afriche!
Bas!
"Téléphone
Ligne!
Affi che!
Haut!
Suite
1, 7
. . ......
P«ramT! 1 . 2 , 0,0, 0, 0
"- La revue des Apple
Ligne!
Affiche!
Deplace!
ue"
Deplace!
Prénom
+"
........
Inverse!
VidEcran!
Afriche!
Affiche!
Affiche!
Sommaire:
ParamT!
Suite
Arfiche!
AcceptF! Dr
Deplace!
. • . . . . . •
Affiche!
BouclePage2 :
VidRect !
:
+"
Ligne!
"Renoncer
' . Sommaire
"1 } "
'"
"Votre nom
Suite
GOTO BouclePage2
,-
2, L 38, 3, 0, 0, 2, 0
Affiche!
GOSUB spToucheInactive
,--1
Enregistrement de
L5
nexion, Indctl
1
"
Affi che!
Inactl:
,- 1
, }"
1
1 ,-1 '-1
'-- 1"
"1 } "
Affi cheR!
Cadre !
"Accès " menu
actl, Sommaire, Sommaire,Decon
,"
0, 7, 4, 0, 0, °
votre message
maire, Inactl , Page2, Inact l , In
1
1- \-1 } "
"1
. . ..
paramT!
Affiche!
Deplace!
ON Dr+l
1
1 ,
1 }
Affi cheR!
1-
} ( ) ( 1- \ 1 "
"{ 1- - \ 1 [ 1- \
1
conr
3,2
Inverse!
Affiche!
1___ \
1- -- - '
-------- 1
Il 1----- ' "
H
'
VidEcran!
Inverse!
Inverse!
'
Enregistrement du message
Deplace!
Deplace! 13, l B
Affiche!
1, 1 3
'.
EnrMessage:
Deplace!
Afriche!
Deplace! 1 8 , 1 9
mbreConnexions$+") ..
GOTO EnrMess
age, Service, Quitte
Affiche!
Affi che!
ser
COSUS spAfri cheEtat
AUicheR!
ON VAL (ChaineS)
Deplace!
idences •
Première page
THEN GOSUS Choiximpossible
NomServeur$
"vos messages et
onnexions)
IF Chaine$<"l " OR ChaineS>"3"
: GOTO BoucleChoix
Affiche!
ChaineEtat$... ..Connexion ok,
ChoixImp2 ;
5,5
Mode ! 2
NombreConnexions-NombreConnexi
'.
"+
Te1ephoneServeur$
4, 14
ons+l
GOTO DeconnexionF,Cho
ixImp2,Page2, Sommaire. Guldei
mp2,Bouc1eChoix,BoucleChoix,
Deplace!
Deplace!
r
WEND
IF NOT Dr THEN Deconnexion
NombreConnexions$-STR$(NombreC
" Envoi
BoucleChoix:
ChaineS-....
Temp '-TIMER
t a enregistrer"
CnxR ! Dr
9. 1 7
Deplace!
8, 1 7
Inverse !
Arfiche!
"Quitter ce répondeur
Afriche.'
0 , 2 , 0, 0 , 0, 0
Arfiche!
"_ "+CHR$ (18) +CHR$ [86
Deplace! 1 2 , l B
Suite
NEXT
Deplace!
Arri che!
54
"_ "+CHR $ ( l B ) +CHR$ (92
VidEcra n !
IF RIGHT$(NomServeur$, l ) - "
veur a-::t ir
Affi che!
0,3, 0, 0, 0, 0
Arfiche '
Page2 :
tlNom:
) -"
paramT!
Invers e !
15,22
"Votre choix
. "
Deplace!
Affiche!
essage
1,20
"Pour vaUder votre m
."
Porn's n° 34
casus spTouchelnactive
Ligne!
Affiche!
"
Affiche!
COTa SaisieTeleph one
Inverse!
Guidelmp5:
AfficheR !
COSUS GuideIndisponlble
Normal!
COTO SaisieTelephone
Affich e !
Envoi
Affiche!
Depl.!ce!
13,21
Affi che!
"Pour l '.!nnuler
:"
Inverse!
LlgneMessage-O
Ligne!
Affiche!
S.t1sieMessdge2 :
Affichel
Inverse!
SOmnl.!ire
Depl.!ce!
13,5
Depl ace!
ON Dr+l
AfficheR!
Deplace!
1 , NumLigne, 0, ..... 28, Mes
1 , NumLigne
TelephoneS
Ta 1 7
COTO DeconnexionF, Val
" Annul.!tion
AttenteValidlltion:
AcceptF! Dr
ON Dr+1
COTa DeconnexionF, Enr
egistrement, EnrMessage, Valid
ssage, CUideImp6. Inact6.Somma
ation, GuideImp7,Sommaire,Som
ire, SaisieMessage4,Deconnexi
maire, ChoixImp7, Deconnexion,
EnrMessage
00
1 . Index
AfficheR ! Message$ (Index-11)
GuideImp6:
Ch oixImp7 :
NEXT
COSUB GuideIndisponible
Alerte!
"Touche interdite". 0
COTO SaisieMessage2
COTa AttenteV.!lidiition
isiePrenom,S�isieTelephone, S
Inact6:
Guidelmp7 :
alsieMessage
COSUS spTouchelna c t i ve
casus Guidelndisponible
COTO SaisieMessage2
COTO AttenteValidation
ON Pointeur COTa S.!lsieNom,S�
SaisieNom :
SaisieMessage4:
Pointeur-1
Accept !
ON Dr+l
13,5. O. " " , 1 6. Nom$. Dr
COTa DeconnexionF,ErS
.!lsieNom, In.!ct3, EnrMessage,G
uldeImp3, In.!ct3, Somm.!lre,ErS
LigneMessage-LigneMessage+l
IF LigneMessage-7
THEN Valida
tion
GaTO SaisieMessage2
SaisieMessage3:
aisleNom,Deconnexlon
Inact3:
LigneMessage�LigneMessage-1
COSUB spToucheIn.!ctlve
IF LigneMessage<>-l
COTa Saisi eNom
LigneMessage-O: COTO SaisieTele
casus Guidelndisponible
phone
COTa SaisieNom
THEN
indispensable .
Alerte!
. •
"Nom
", l :OOTO Sai
sieNam
IF Dr-l
GOTO Valid.!tion
SaisiePrenom:
Pointeur-2
Accept !
,
ON Dr+l
13, 6,O, ...., 1 6, PrenomS. D
COTa DeconnexionF, V.!l
idation,SaisieNom, EnrMessage
, GuideImp4, Inact4, Somm.!ire,S
aisieTelephone,Deconnexion
In.!ct4:
'
AfficheR !
"enregistré : "
4, ,
Affich e !
Nom
Deplace!
4.8
Affiche!
"Prénom
Depl.!ce!
4, 9
Affi che!
"Téléph
$
"+NomS
"+Prenom$
"+Telephone
ro 6
Deplace!
GuideImp4 :
NEXT
Deplllce!
1,21
COTO Sl1isiePrenom
Affiche!
"Pour le valider
6, 1 1 +Index
otS, 1 6 AS zNomS, 1 6 AS zTelS
CET l, l
NombreMessaga-CVI (zNombreS)
LSET zNombreS-�I$ (NombreMess
S , 2 8 AS u3S,28 AS u 4 $ , 2 8 AS
u5S,28 AS u6S.28 AS u 7 S
LSET uNS�NomS
LSET uPS-PrenomS
LSET uT$-Telephone$
LSET u 1 $-MessageS (0)
LSET u2S-MessageS ( 1 )
LSET u3S-MessageS (2)
LSET u4S-MessageS (3)
LSET u5S-Message$ (4)
LSET u6$-Message$ (5)
LSET u 7 S-MessageS (6)
PUT 1 , NombreMessage+l
TO 6
MessageS (Index)
NEXT
Pointeur-3
Ligne!
Accept !
1 3 , 7 , O , " " , 1 6, Telephone
Affiche!
COTa DeconnexionF, Val
Affi cheR !
"
Norma l !
.!ge,GuideImp5, In.!ct5, Sommair
Affiche!
e,S.!i sieMessage, Deconnexion
Ligne!
_
....
Dernier écran
VldEcran !
Inverse!
idl1tion, SaisiePrenom. EnrMess
uP$,l
6 AS uTS,28 AS u l $ . 2 8 AS u2
FOR Index-O
S.!isieTelephone:
Porn's n° 34
FIELD 1 , 2 AS zNombreS, 8 AS zM
tel q u ' i l sera"
FOR Index-Q
In.!ct5:
"Enregistrement en co
urs"
"Voici votre message
Affi cheR ! MessageS(Index)
$,Dr
6,12
Affiche!
FIELD 1 , 1 6 AS uN$, 1 6 AS
1. 3
AfficheR !
COTO SaisiePrenom
ON Dr+l
VidEcran!
Deplace!
PUT 1 . 1
VidEcra n !
Deplace!
Deplilce!
Enregistrement
age)
Validation:
COSUS spToucheln.!ctlve
casus GuideIndisponlble
"
Enregistrement :
NombreMessage-NombreMessage+l
' . tcran de validation
ErSaisieNom:
IF NomS� � "
THEN Sais
ieMessage2
GuideImp 3 :
'"
Normal!
idation,SaisieMessage3,EnrMe
13, 7
FOR Index�ll
AfficheR!
sageS (LigneMessage) ,Dr
AfficheR! PrenomS
Deplace!
Inverse !
Pointeur-4
Accept !
13, 5
"
"Pour l 'annuler
NumLigne-LigneMessage+l1
Deplace!
Affi cheR ! NomS
éPI
'i::�
S.!isieMessilge:
Ligne!
Affiche!
.. Correction
Deplace!
..
Envoi
Affl cheR!
6, 12
"Votre message est e
nregistré . . . ..
"Pour le modifier
Deplace!
11.14
Affiche!
" . . . faites
Inverse!
55
Affiche!
.. Sommaire
..
Affiche!
IF Essai-2
AttenteMo;;:
IF Dr-Fa ux THEN DeconnexionF
MotP./lIsse$-""
IF Dr-8 THEN Deconnexion
Secret !
Pointeur-4 : GOTO Sommaire
' . Fonctions de service
'
nteMot
.. Sommaire
AcceptF! Dr
ur,
VidEcran !
GOTO DeconnexionF,Att
Deplace!
10,12
Affic;he!
"Dé::colé,
enteMot2, Sommaire, Servi ce, Gu
Service:
idelmp8, Inact8,Sommaire, Atte
COTO Deconnexion
VidRect ! 1 , 1 , 40 , 6 , 4
nteMot2,Deconnexlon
AttenteMot3:
P./liramT!
Affiche!
10,4
1, 7 , 4 , 0 , O. 0
e"
paramT!
0, 7, 0, 0, 0, 0
Deplace! 3 2 , 1 2
Affiche!
"+
"
.. Envoi
--,
ç
,
Inverse!
Affi che!
_ I ii
" Fonctions de servi e
"
��
<7)
GuldeImp8:
Essal-0
GOSUB Guidelndisponib1e
VidLigne!
12, 0
GOTO AttenteMot
VidLigne!
15, 0
Inact8:
GOSUB spC�dresChoix
GOSUB spTouchelnactive
Deplace!
GOTO AttenteMot
Affiche!
"Lire le. mess�ges"
AttenteMot2:
Deplace!
8,14
IF MotPasse$-Mot$ GOTO Attent
Affiche!
"Effacer le fichier"
Deplace!
8, 1 7
Affiche!
"Changer le mO< de P'
eMot3
Deplace! 1 5 , 1 5
Ess<"Ji-Essai +1
Affiche!
IF Essai-l
"Pour renoncer
déconnexion
forcée . . . ..
VldEcran!
Deplace!
"Erre
AttenteMot
9 , 1 2 , 0, "Mot de passe
" , 7 , MotPasse$,Dr
ON Dr+l
THEN Alerte!
encore un Essai", l :GOTO
THEN Alerte!
sse"
"Mot
de passe erroné", l : COTO Atte
Inverse!
Jusqu'à 72 p oi n ts avec MacWrite
Le nouveau 'système'
(4.2) est arrivé avec les polices LaserWriter
Courier, Helvetica et Times (aussi utilisables avec une
ImageWriter) en tailles 27, 30, 36, 42, 54 et 72.
Malheureusement, le menu 'style' de MacWrite n'autorise que les
tailles allant de 9 à 24 points. C'est pourquoi, afin de détourner le
problème, nous avons créé avec un éditeur de fichiers un
document MacWrite baptisé "MacWrite 9 à 72" et contenant des
caractères en tailles 9 à 72. Ces caractères utilisent la police Times
mais, ici, peu importe la police, c'est la taille qui compte. Par
exemple, si vous voulez insérer dans un document le titre "Section
1" en Courier 72 :
•
fermez votre fichier ;
ouvrez le fichier MacWrite 9 à 72 ;
•
sélectionnez et copier 72 (ou seulement le 7 ou le 2) ;
•
fermez le fichier MacWrite 9 à 72 ;
ouvrez votre fichier ;
•
coller 72 à l'endroit où vous voulez placer votre titre ;
•
taper Section 1 ;
•
sélectionnez Section 1 ;
changer la police (Courier dans le menu Caractères) ;
• supprimez 72.
•
•
•
Le fichier Write 9 d 72 est sur la disquette d'accompagnement de
ce numéro.
8,11
Deplace!
15, 22
Affi che!
"Votre choix
•
"
Inverse!
" Envoi
Affiche!
AttenteService:
Chaine$-""
AttenteServlce2 :
Chalne$-....
Accept ! 29, 22, 0, " " , l , Chaine$,D
r
OH Dr+l
GOTO DeconnexionF, Att
enteService3, Service, Inact9,
Guidelmp9, lnact9, Sommaire,At
tenteService3, Deconnexlon
IMlct9:
COSUB spToucheInactive
COTO AttenteService2
Guidelmp9 :
COSUB Guidelndisponible
GOTO AttenteService2
AttenteService3:
IF Chaine$<"l " OFI. Chaine$>"3"
THEN COSUB Choix Impossible:
coro Att enteService
ON VAL (Chaine$)
GOTO Lecture
,Effacer, ChangeMot
'.
Lecture du fichier
Lect ure:
FIELD 1 , 2 AS zNombr e $ , 8 AS zM
o t $ , 1 6 AS zNom$, 1 6 AS zTel$
GET 1. 1
9
10
12
14
18
24
27
30
54
72
36
56
42
NombreMessage-CVI (zNombre$)
IF NombreMessage-O
e!
THEN Alert
"Aucun message reçu", l :GO
TO AttenteService2
NumMessage-NombreMessage+l
FIELD 1 , 1 6 AS uN$, 1 6 AS
uP$,l
6 AS uT$, 28 AS u l $ , 28 AS u 2
$ , 2 8 AS u3$, 28 AS u 4 $ , 2 8 AS
u5$,28 AS u6$,28 AS u 7 $
Lecture3:
VidEcran!
ParamT!
0,2, O. 0, 0, 0
Pom's nO 34
Affiche!
"_ "�CHR$ (l8) +CHR $ ( 6 4
Deplace!
2,3
Affiche!
"Consultation des me
ssages enregistrés"
Mode! 0
ParltmTI
0,2, O. 0, 0, 0
Affiche!
PdrdmT!
Affiche!
"tPrenom$
.. ' ' ;>
FOR Index-l
Affiche!
"+Telephone$
Inverse!
TO 7
Deplace! 2 , l 6+Index
Affiche!
Affi che!
AttenteEffdce:
n+MeSSdge$ (Index
Accept !
Affiche!
"Précédent
."
Ligne!
1 0, 1 6, 0, "0/1: pour tout
? ",3, Reponse$, Dc
effdcer
cora DeconnexionF, A t t
ON Dc+1
AcceptF! Dr
0. 6, O. 0, O. 0
SOIRln.aire
Reponse$-....
NEXT
AttenteLecture:
9,5
"Pour
Ligne!
-1)
"�"tCHR $ ( 1 8 ) tCHR$ (64
t39)
Dep1dce!
';>
Deplace! 2 , 1 5
Mode ! 1
AfrlcheR!
Depl,ace! 5,23
Deplace! 2, 14
Affiche!
+39)
ON Dr+1 coro DeconnexionF, Ind
cUD, AttenteL�ctureR, Lecture
3,GuldeImpl O, In.actlO, Sommair
enteEfface2, Indctll, Eff.acer,
GuideImp11, SolRlndice,SOlRlndire
, In,actll,Deconnexion
Affiche!
eBis,AttenteLectureS,Deconne
Indct l l :
Inverse!
xion, Inact10
GOSUB spToucheln,active
Affiche!
RETOUR
Depl,ace!
p,ar,amT!
11. 6
0, 6, 0, 0, 0, 0
Affi che!
"Sui v,ant
:"
Ligne!
Affich e !
SUITE
15, 7
0, 6, O. 0, O. 0
Affiche!
"Fin
."
GOTO AttenteEfface
SommaireBis:
AttenteEff,ace2 :
IF Reponse$<>"OUI" THEN Repon
se$-"":Alerte!
In.act l O :
FIELDI1 , 2 AS zNombr e $ , 8 AS zM
ot$. 1 6 AS zNomS, 1 6 AS zTe1S
GOTO AttenteLecture
AttenteLectureR: 'Retouc
GET 1 , 1
AfficheR!
.. SOMMAIRE
0,2, 0, 0, 0. 0
AfficheR!
"_ "+CHR$ (lB) tCHR$ (6
4t39)
Affiche!
..
"+CHR$ (lB) +CHR$ (64
LSET zNombre$-MKIS(Oj
GOTO Lectuce2
NumMessage-2 :Alerte!
"C'est
le
premiec mess,age" l : GOTO Att
.
enteLecture
AttenteLectuceS: 'Suite
Deplace!
1 . 12
0, 4, 0,0, 0, 0
AffiChe!
.. · ..+CHR$ (18) +CHR $ ( 6 4
Depl,ace!
1,16
0, 4, 0, 0, 0, °
" ' ''+CHR$ (18) +CliR$ (64
+39)
Deplace!
1,24
0,2, 0, 0, 0, 0
Affic h e !
.. ·
..+CHR$ (lB} +CliRS (64
6,12
AfficheR!
�Le fichier a été ré
. .
Depl.ace!
11.14
IF NumMessage<-NombceMessdge+l
Affiche !
".
NumMessage-NombreMess,agetl:Ale
rte!
"C'est
• •
"
f,aites
Inverse !
le derniec", l :GO
TO A t tenteLecture
Affiche!
" SOIRln,aire
AcceptF! Dr
IF Dr-F,aux
IF Dr-8
Affic h e !
P,ardmT!
VidEcr.an!
Depl,ace!
NumMessage-NumMess,age+l
+39)
ParamT!
pur 1 , 1
initi,alisé •
GOTO Lect ure2
+39/
"Réponse inca
rrecte", 0 : GOTO AttenteEffdce
GOSUS spTouchelnactive
IF NumMessage;>l
Invers e !
paramT!
COSUS GuideIndisponible
GOTO AttenteLecture
NumNessage-NumMessage-l
Ligne!
AffiChe!
P,ar4mT!
GOSUS Guidelndisponible
GOTO Sommaire
Inverse !
panmT!
GarO AttenteEff,ace
Guidelmpll:
GOSUB VideVarlables
Affiche!
Deplace!
GuideImpl0:
' . Effacer le fichier
THEN DeconnexionF
THEN Deconnexion
COTa Sommaire
EffiJCer:
VidEcran!
' . Changec le mot de passe
VidRect !
L L 4 0 6, 4
Ch.angeMo t :
Deplace!
10, 4
VidEcr.an!
P,aramT!
.
1 , 7, 4 , 0, 0, °
Affiche!
V.1dRect !
" Eff.acement fichier
+39)
Depl dce!
P,ac,amT!
1 1 , 40, 6 , 4
.
24,4
1 , 7, 4, 0, 0, 0
Lecture2 :
Par.amT!
GET 1 , NumMesssge
Deplace! 5 , 1 0
PdrdmT!
NomS-uN$
AfficheR!
Depldce!
1 , 23
Affiche!
"Pour renoncer,
Prenom$-uP$
0, 7,0, 0, 0, 0
Affiche!
"Cette commande supp
rime l 'ensemble�
TelephoneS-uT$
Deplace!
Mess,ageS (DJ-u1$
AfficheR!
5,11
s :
"des messdges stokés
Mess,age$ (1)-u2$
Messltge$ (2J-u3$
Deplace!
Mess,age$ (3}-u4S
ArficheR!
Message$ (4}-u5S
Mess,age$ (5)-u6$
5,13
�On n e peut dnnuler
un effacement . . . "
Deplace!
5,22
Affi che!
"Pouc eff,acer
.. Messdge n o " + STRS (
NUmMessage-l )
2.13
Inverse !
... . ;> "+Nom$
Affiche!
.
Inverse !
Affiche!
" Sommdire ..
Deplltce!
1.11
Affiche!
"Taper l e nouve,au mot
"
Affiche.'
.. Envoi
Deplace!
1,16
Affiche.'
Ligne!
Affiche!
Porn's nO 34
:"
"T,aper l e J nouveau p
ouc contc01e"
Affiche!
Depldcs!
faite
.
Inverse!
Deplace !
Affiche!
�Mot de passe"
0, 7, 0, 0, 0, 0
de pdsse +
R$-""
Messdge$ (61 -u7$
2,10
·
C.adre! 25,12, 35, 1 4 , 2 , 0 , 5 , 0
" OUI + Envoi
"
C.adre!
25, 1 7, 35 , 1 9 , 2 , 0 , 5 , 0
57
VerifMot:
spCadresCholx:
Reponse2$-""
Cadre!
Secret ! 27,13,0, "", 7,Reponse2$
Affiche!
Cadre!
,Dr
ON Dr+1 GOro DeconnexionF, Ver
�
4 . 1 3. 6, 15. 2. 0. 5. 0
­
,, ")
4 . 1 6. 6. 18. 2, 0. 5. 0
"2"
Affiche!
ifMot2,Inact12,ChangeMot. Gui
Cddre!
delmp12, Inact12. Sommaire. Ver
Affiche!
itMot2 , Deconnexion
RETURN
"3"
Indct12:
Choixlmpossible:
GOSUB spToucheln active
Alerte!
GOTO VeritMot
RETURN
' . Ouverture d ' u n nouveau tich
ier
•
NouveauFichier:
Drlnverse-Faux
WINDOW 2, ...., ( 1 1 6, 4 4) - (J 7 9 , 2 7 5
) , -2
TEXTFONT
O : TEXTSIZE 1 2
PENPAT VARPTR (Gris (0) )
"Choix impossible".l
HOVETO 8, 1 2 0
LINETO 2 5 5 , 1 2 0
HOVETO 8, 2 0 0
GuideImp12:
spAtficheEtat:
GOSUB Guidelndisponible
PRINT ChaineEtat$
PENNORHAL
GOTO VeritMot
PRINT
HOVETO 1 6, 1 6
RETURN
PRINT "Mot de passe
VeritMot2 :
IF LEN
(Reponse2$)
Alerte!
< 4
THEN
"Minimum 4 caractère
s .... l :GOTO VerltMot
VeritMotBis:
Secret ! 2 7 . 1 8 . O. "". 7,ReponseJ$
,Dr
ON Dr+1 Garo DeconnexionF. Ver
ifMotBis2, InactlJ, ChangeMot,
GuidelmpI3, Inact13. Sommaire.
VerifMotBls2. Deconnexion
InactlJ:
GOSUB spTouchelnactive
GOTO VeritMotBis
Guidelmp1J:
GOSUE Guidelndlsponible
GOTO VerlfMotBis
Veri tMotBis2 :
IF Reponse2$<>Reponse3$ THEN
Alerte!
"Les deux mots de pa
sse dittèren t " . l :GOTO VerifM
'"
FIELD 1 . 2 AS zNombre$ . 8 AS zN
ot$. 1 6 AS zNom$, 1 6 AS zTel$
GET 1, l
LSET zNot$-Mot$
PUT 1 . 1
Deplace! 6 , 1 2
Affi cheR!
"Le mot de passe a é
té changé .
• •
Deplace! 11. 1 4
... . . taites
Inverse!
" Sommaire
AcceptF! Dr
IF Dr-Fa ux THEN DeconnexionF
' . sous-programmes divers
"Touche inactive ici".
Faux
RETURN
PRINT "affichables p d r t o u s l
es Minitel . "
FOR Index-O Ta 6
HOVETO 56, 1 4 1
Message$ (Index) -.....
PRINT "Mot
NEXT
PRINT "Nom"
Souris:
HOVE Ta 1 6 . 1 8 9
Appel ! Dr
PRINT "Tél . "
EDIT FIELD 1. " " . ( 1 6 0 . 1 2 9 ) - ( 2
Fin et déconnexion
'
Quitte:
48,144)
EDIT FIELD 2 . ''''. (54. 153) - (2 4
8. 1 68)
VidEcran!
Deplace! 1 0 . 1 2
.
"Au revoir. . . .
DeconnexionF:
vidEcran !
J.12
Flash!
"Minitel inactif depu
is 2 minutes. "
9.14
Fl<lsh!
"Déconnexion forcée. "
EDIT FIELD J. '.... (54 . 1 7 7) - (24
8 . 1 92)
EDIT FIELD
1
NumEdit-l
BUTTON 1 , 1 . "Annuler", ( 1 6. 2 08)
- (128.224)
BUTTON 2 . 1 , "OK", (136. 208} - (24
8.224)
ON DIALOG GOSUB DialogueNou
vea u : D IALOG ON
DrSortie-Faux
BoucleD:
IF DrSortie THEN SortieNouvea
,
GOTO BoucleD
CLOSE
RESET
SortieNouveau ;
GOTO Repri seAttente
DIALOG OFF
Erreur:
HINDOH CLOSE 2
RESUME Erreur2
IF NOT Dr
Erreur2:
Fichier$-FILES$(O. "Nom du l'ich
VidEcran!
Alerte!
Affiche!
"Guide indisponible".F
de passe"
HOVETO 1 6, 1 65
RETURN
Guidelndisponible:
RETURN
HOVETO 1 6, 1 1 2
Telephone$-....
DeCnx !
spTouchelnactive:
jusqu '� 1 6
caractères "
Prenom$-....
GOTO Sommaire
"
Pi/INT "Téléphone
Nom$......
IF Dr-8 THEN Deconnexion
-
HOVE Ta 1 6, 9 6
Pointeur-O
Aftiche!
1
es Minitel . "
VideVariables:
Depldce!
jusqu ' J 1 6 carac
PRINT "affichables par tous
Essai-O
Affiche !
:
HOVE Ta 1 6. 72
DrArret"Vrai
Deplace!
et (J -> 9) , "
tères"
RETURN
Attiche!
Z
PRINT " (A ->
PRINT "Nom
ArretServeur:
"
NOVETO 1 6. 32
HOVETO 1 6. 5 6
RETURN
Deconnexi on:
Alerte!
THEN Dr-Vra
GOTO Deconnexion
vidEcra n !
Attiche!
Fich ier$-FILES$ (1. "'PRêp ")
IF LEN (Fichier$)
de 4 �
7 caractères"
OuvreFichier:
RETURN
Mot$-Reponse2$
Attiche!
LINETO 2 5 5 , 2 0 0
i ELSE Dr-Faux
ReponseJ$......
58
"1"
I
P
0�
9
C'
4. 1 0. 6, 12,2. 0. 5,
THEN RETURN
ier serveur : H}
"Désolé. problème ser
veur"
GOTO Deconnexion
IF LEN (Fichier$)
THEN Dr-Vr<l
i ELSE Dr"Faux :RETURN
OPEN"R". 1 . Fichier$. 244
Pom's n° 34
FIELD l 1 , 2 AS zNombre$, 8 AS zH
ot$, 1 6 AS zNom$, 1 6 AS zT81 $
NumEd i t -DIALOC (2)
EDIT FIELD NumEdit
PENNORHAL
Dlog-Faux
LSET zNombre$-MKI$ (01
RETURN
WHILE Olog<>l AND 010g<>6
LSET zMot$-Mo t $
RienD:
D 1 og-DIALOG (0}
LSET zNom$-NomServeur$
RETURN
LSET zTel$-TelephoneServeur$
WEND
WINDOW CLOSE 2
Sloque:
RETURN
PUT 1 . 1
RETURN
CLOSE
ReturnD:
NANE Flchler$ AS Fichier$, "PR
ép"
IF DrIn verse THEN COSUS Sign
ale:Drlnverse-Faux
�ETU�N
NumEdit-NumEdit+1
Dl�logueNouveau:
IF NumEdl t ...4 THEN NumEdit-l
DIALOG OFF
EDIT FIELD NumEdit
Di a I O-DIALOG (O)
RETURN
ON DialO GOSUS Bout onO, EditD,
Signale:
Reet (top) -4+ (Drlnverse-l) -40
turnD
Reet (left J - 8
Reet (bottom) -36+ (DrInverse-I) ·
RETURN
40
BoutonD:
Reet (right) -255
IF DrInverse THEN GOSUS Sign
INVERTROUNDRECT
IF 01al1-1 THEN Dr-Faux:DrSor
t ie"Vrai :RETURN
' . Lecture des fiches sur le H
aeintosh
Hot$-EDIT$ ( l }
Flehler$-FILES$ (1, "PRép")
TelephoneServeur$-EDIT$ (3}
LMot-LEN (Mot$}
OR LMot > 7
IF LNo m <l
OPEN "R", l , Fiehier$,244
FIELD 1 , 2 AS zNombre$, 8 AS zM
o t $ , 1 6 AS zNom$, 1 6 AS zTe1 $
GET 1 , 1
OR LNom > 1 6 THEN SE
EP:DrInverse-2: GOSUS Signal
8) - (88, 184)
IF NombreMessage-l
THEN BUTT
ON 1 , 0
BUTTON 2 , 0 , "Suivant", (104, 1 68
BUTTON 3, 1 , "Vider", (16,200) - (
56,216)
SUTTON 4 , 1 , "Annuler", (72,200)
- (176,216)
TEXTFONT 4 : TEXTSIZE
9 ; TEXT
xNumMessage$-""
xNom$-""
xPren om$- ""
MENU 1 , 3, 0
LNom-LEN(NomServeur$)
TEXTFONT O : TEXTSIZE 1 2
xTe1ephone$-""
HENU 1 , 2, 0
9J - (2 4 8 , 1 4 4 } :DrSortie-Fa ux:R
(160, 60) - (351, 283
HENU 1 , 1 , 0
THEN BEE
ETU�N
.oR,
J.2
IF Fiehier$-"" THEN RETURN
P: DrInverse-l : GOSUB Signale
:EDIT FIELD l , Mot S, ( 1 6 0 , 1 2
WINDOW 2,
MODE 0
Lire:
NomServeur$-EDIT$(2)
IF LMot<4
VARPTR(Rec
RETURN
Diall -DIALOG (1)
•
) - (1 76,184)
t (top) ) , 4, 4
ale:DrInverse-Faux
•
Oia1Afflehe:
BUTTON 1 . 1 . "Précédent", (1 6, 1 6
RlenD, RienD,RienD,ReturnO, Re
DIALOG ON
' . D i 6 1 0gue message enregistré
FOR Index-O 1'0 6
xLigneMessage$ (Index) -""
NEXT
COSUS H�J
NumHessage-NombreMessage+l
NombreMessage$-STR$ (NombreMess
NombreMessage.cVI (zNombre$}
IF NombreMess�ge-O THEN CLOS
age}
IF LEFT$ (NombreMessage$, l ) -"
e : EDIT FIELD 2, NomServeur$
E:GOSUS Oia lMess�geO:GOTO
, (54, 153) - (248, 1 681 : DrSort ie
"
RetourLire
$ (NombreMessage$, LEN (NombreM
-Faux:RETURN
GOSUS Dia1Afflehe:CLOSE :COTO
LTe1-LEN(TelephoneServeur$)
IF LTe1 <1
OR L1'e1> 1 6 THEN SE
EP: OrInverse�3 : GOSUS Signal
RetourLire
RetourLire :
HENU 1, 1. 1
THEN NombreMessage$-RIGRT
ess�ge$) -1}
FIELD 1 , 1 6 AS uN$, 1 6 AS uP$, l
6 AS uT$, 28 AS u 1 $, 2 8 AS u2
$ , 2 8 AS u3 $, 2 8 AS u 4$, 2 8 AS
e : EDIT FIELD 3, Teleph oneSe
MENU 1 , 2, 1
rveur$, (54, 1 77) - (248, H2) :Dr
HENU 1 , 3 , 1
Sortie-F�ux ;RETURN
LectureM�c:
RETURN
GET 1, NumMessage
DrErreur-Faux
FOR Index-1
' . Dialogue pas de message '
1'0 LMot
C$-HID$ (Mot$,Index, l }
IF
(C$>"/" AND C$<": ")
> " @ " AND C$<"]")
OR
(C$
THEN testO
K
DrErreur-Vrai
testOK:
NEXT
IF OrErreur l'HEN BEEP :DrInve
rse-I : GOSUB Signa 1 e : EDIl' F
IELD l , Mot$, (160, 129} - (248,1
4 4 ) ;DrSortie-Faux;RETURN
DrSortie-Vrai :Or-Vrai
RETURN
xPrenom$-uP$
WINOOft 2, "", (100, 120) - (411. 1 9
xTelephone$-uT$
xLigneMessage $ ( O } -ul$
1 ) , -2
TEXTFONT
O : TEXTSIZE 1 2
BEEP
HOVETO
1 6, 2 4
PRINT "Ce fichier n e contient
pas de message . "
BUTTON 1 , 1 , "OK", (192, 4 0} - (296
, 56)
Reet (top) -36
Reet (lett) -188
xLignaMassage $ ( 1 } -u2$
xLign eMessage$ (2) -u 3$
xLigneMessa ge$ (3} -u4 $
xLigneMessage$(4J -uS$
xLigneMess�ge$(51 ·u6$
xLigneMessage$(6)-u7$
xNumMessage$-"Message"+STR$ (Nu
mMessage-l) + "/"+NombreMessag
e$
Reet (bottoml -60
GOSUB M�JBis
Reet (right) -300
BDia125:
PENSIZE 3, 3
IF Drlnverse THEN COSUS 51gn
FRAMEROUNDRECT VARPTR (Rect
Porn's nO 34
xNom$-uNS
DlalHessageO:
!.'dÜO :
�le:DrInverse-Fa ux
u5$,28 AS u 6$, 2 8 AS u 7 $
(top) } , 12, 12
Olog-Fa ux
WHILE Dlog<>l AND 010g<>5
Dl og-DIALOC(O}
59
IF DP
fi/END
IF Dlog-5
THEN GOSUB MdJ : GO
TO BDidl25
BEEP
O l o g-DIALOG (l )
HOVETO 1 6, 24
ON Dlog GOTO Preceden t , Suivan
PRINT "Voulez-vouS
HOVETO 1 6 , 4 °
Precedent :
IF NumMessage-2
'l'BEN BOia125
NumHessage-NumMessage-l
IF NumMessage-2
ON{I}
'l'BEN IF BUTT
THEN BUTTON 1 , 0
IF NumMessage<NombreMessage+l
THEN IF BUTTON ( 2 ) -0
'l'BEN
BUTTON 2, 1
IF NvmMessage-NombreMessage+l
'l'BEN BDia125
'"
��
'ouvcrturc de la nouvelle version
?"
de ce gestionnaire, le fichier sc
BUTTON 1 , l , "Annuler", (72, 56) ­
présente sous la forme d'un
(176, 72)
tableau : chaque colonne
BUTTON 2. L "OK", ( 1 92 , 5 6) - ( 2 96
eprésente
, 72)
IF NumMessage-NombreMessage+l
THEN IF BUTTON ( 2 )
THEN B
UTTON 2, 0
'l'BEN IF BUTT
THEN BUTTON 1 , 1
GOTO LectureMac
Vider:
GOSUB Confirma tion
THEN LectureMac
Dr-Faux
\\
un
champ,
chaque ligne une fiche.
Rect (top) -52
�
_
�
Rect (left)-68
PENSIZE 3 , 3
FRAHEROUNDRECT
VARPTR (Rect
(top) ) , 12, 12
NumMessage-NumMessage+l
IF NOT Dr
" ' " C$
Rect (right) -180
Suivant:
IF NumMessage>2
PRINT
Rect (bottom) -76
GOTO LectureMac
ON { l ) -O
i\:
effacer le
contenu du fichier"
t, Vider, Annuler
1
�
Comme sur Works, on
peut
obtenir
une
"� fiches (l'ensemble
présentation
par
d'une fiche apparaît à l'écran). Ces
deux modes de présentation ne sont
PENNORHAL
pas paramétrables et la seule police
Dlog-Faux
disponible est le Monaco 9. Le
HHILE Dlog<>l AND Dlog<>6
manuel d'utilisation est sobre lui
D l o g-DIALOG(O)
aussi : les cents premières pages
HEND
survolent tous les aspects du logiciel,
IF Dlog-6 'l'BEN Dr-Faux: GOTO
SortieConfirm
permetlaIlt un rapide apprentissage de
Dl og-DIALOG ( 1 )
base. Pour le reste il faudra se plonger
IF Dl og-l
dans les 200 autres pages, arides mais
'l'BEN Dr -Fa u x : GOTO
SortieConfirm
efficaces.
FIELD'1 , 2 AS zNombre$,8 AS ZM
ot$, 1 6 AS zNom$, 1 6 AS zTel$
Annuler:
fi/INDOfi/ CLOSE
2
RETURN
MaJ:
Sobriété, tel semble êlIe le mot clé
GET 1 , 1
pour définir J'1l.Sp«:t d'OverYue 2.1. S'il
LSET zNombre$-MKl$(O)
fallait choisir un mot pour en décrire
PUT L I
les
fonctionnalités,
efficacité
serait
PENPAT VARPTR (Gris ( O } )
CLOSE
HOVETO 8 , 2 4
sans doute le plus approprié. En effet,
Dr-Vrai
OvcrYue
LINETO 1 8 4 , 2 4
SortieConfirm:
et uniquement en mémoire vive. Cela
HOVETO 8, 72
WINDON CLOSE
LINETO 1 8 4 , 72
RETURN
HOVETO 8, 1 60
1
lui
FOR Index-O
LINETO 1 8 4 , 1 9 2
PRINT xNom$
dans une colonne, Non-Unique avertit
l'utilisateur s'il vient d'entrer une valeur
qui n'existait pas
left-l
PRINT xPrenom$
la saisie. de laisser OverYue "deviner"
rlght-3
MENU 1 , 1 , 1 , "Démarrer avec un
FOR Index-O Ta 6
PRINT xLigneMessage$ (Index)
NEXT
RETURN
' . Dialogue connrmation
•
MENU 1 , 3, 1 , "Lire les messages
s'imposeront
ouveau fichier.., "
MENU 1 , 4 , 0, "
MENU 2 , 0 , 1 , "pom ' s "
MENU 2 . 1 , 1 , "e 1988 JLB,
BoucleConfirm :
RETURN
assurer
cette
1
II.
deviné. vous pouvez soit la valider soit
CP &
39.51.24.43"
td1tions MEV
WINDOH CLOSE
pour
affiché vidéo inverse la valeur qu'il
"
CS-FichierS
le même début, deux ou lIois lettres
"clairvoyance". Une fois qu'OverYue a
enregistrés.,,"
WINDOW L " ", (100, 120} - (4 1 1 , 1 9
12
colonne. Il tennine ainsi la frappe pour
MENU 1 , 2 , 1 , "Démacrer avec un n
MENU 1 , 5, 1 , "Quittec"
H16). -2
fonction de ce qui existe déjà dans la
vous. Parfois, si plusieurs valeurs ont
Confirmation:
DP-INSTR (C$, " : " }
t
ichier exist"nt... "
NOVETO 12, 88+11 �Index
O : TEXTSIZE
ce que vous êtes en train de laper en
MENU 1 , 0, l , "Fichiec"
PRINT xTelephone$
dans la colonne.
Enfin. Clairvoyance penne!, au cours de
bottom-2
HOVETO 1 2 , 62
cette rapidité est utilisée
même valeur est introduite deux fois
top-O
HOVETO 12, 51
Mais
fonctions astucieuses : Non.Duplicatas
Vrai--l
HOVETO 1 2 , 4 0
rapidité
une
permet d'avertir J'utilisateur lorsqu'une
Faux-O
PRINT xNumMessage$
confère
précis de la saisie, au moyen de trois
TO 3
NEXT
HOVETO 1 2 , 1 6
gère lcs fiches entièrement
également pour effectuer un conlIôle
Gris (Index) -&HAA55
MaJBis:
TEXTFONT
tri.
Initialisations:
HOVETO 8 , 1 92
2.1
impressionnante dans Ics opérations de
' . Initialisations
LINETO 1 8 4 , 1 60
60
THEN C$-RIGHT$ (C$, LEN
(C$) -DP) :GOTO BoucleConfirm
poursuivre nonnalement VOire frappe
pour un autre mol. Ces trois fonctions
se monlIent extrêmement confortables
et accélèrent réellement la saisie, sans
ralentir
sensiblement
le
fonction­
nement du programme.
Pom's
nO
34
�sai : O'Vero/ue 2.1
s. rnedeyan
&
q. Lejeune
financières, mais l'accent a été mis 111.
OverVue dispose en outre d'un éditeur
où il le faut pour un fichier : l'alphabet.
de macros-commandc
ronnal précis, par exemple la position
Une douzaine de fonctions
sur les
Chaque fichier peut gérer jusqu'à vingt
macros. Une fois écrites et titrées elles
Mais, plus encore, il est possible, pour
une colonne
donnée,
de définir un
très
complet.
des parenthèses et tirets s'il s'agit de
chaînes de caractères sont en effet
noter des numéros de téléphones. Par la
disponibles (extraction, repérages de
apparaissent
suite, il n'y aura plus qu'li saisir les
chiffres,
peuvent être lancée par un raccourci
chiffres. Bien sür. si celle colonne
1
conversion
minuscule,
majuscule!
rotation ... ),
Le
module
dans
le
menu
D o et
clavier. La définition de ces macros ne
été cochée comme No,,-Uniqu� et
graphique
est
s'opère pas par enregistrement d'une
numérique, on évitera de nombreuses
impossible d'imprimer un graphique à
séquence de commandes mais par un
erreurs de saisie. En cas de données
partir d'QverVue, il faudra le transférer
éditeur de
fortement répétitives, comme les jours
via J'album.
réalisation plus difficile. Elles peuvent
de
la
semaine,
on peut établir un
masque de saisie à choix multiples
On
est
simple
mais
l1I. un point
touche
il
crucial du
grâce a la fonction Barre de Saisie.,
logiciel. En effet, OverVue n'utilise pas
La gestion en mémoire vive offre
mode graphique, Il utilise le propre
d'autres aIOULS. Ainsi, OverVue se passe
générateur
l'ImageWriter ni la
très bien de la fonction Index, présente
sur
loutes
À
les
bases
conventionnelles.
des
priori th
de
données
quoi bon définir
dans
les
recherches
de
LaserWritcr cn
caractères
de
l'imprimante. Ainsi, QverVue se limite
aux
seuls
caractères
romains
sans
italique ni gras. Les rapports imprimés
permettent soit une simple copie de
puisque même les plus gros fichiers
tableau Uusqu'à 200 caractères de largc
sont triés en quelques secondes. 1\
en ultra-condensé), soit du cousu-main.
existe cependant un petit inconvénient
Dans
ce
cas,
on
se
de
des
de
11. cela : les tris ne portant que sur une
l'emploi
colonne
ensuite
données classiques : on crée des cases
effectuer un autre tri sur le critère
correspondantes aux calaMes choisies,
suivant, le
on en détermine la longueur et la place
à
la
fois,
il
faut
premier ordonnancement
n'éllnt pas oublié,
En plus du
de masques
rapproche
bases
tri,
sur le rapport, on ajoute du texte libre
OverVue propose le regroupement des
ça et 111., on peut dater... rien que de très
fiches, une fois triées. Par exemple,
classique.
chaque ville d'un fichier d'adresses crée
s'intercalent à loisir. 11 est possible de
un groupe qui sera séparé des autres par
une fiche spéciale appelée sommaire.
Les
fiches
de
sommaire
mémoriser huit formats de rapport.
Avec
de
l'habitude,
les
rapports
Ce sommaire pennel d'effectuer des
d'OverVue sont présentables, malgré
calculs dans chaque groupe (moyenne,
lcur limÎtation
somme, mini, maxi, compteur . . . ), mais
caractère.
se comporte comme une liche ordinaire
imprimer sur quatre coloMes et accepte
pour
les
tris
et
sélection.
Ces
possibilités sont souvent offertes dans
les autres logiciels avec le module
"rapports",
rarement à l'écran.
possibilith
de
recherche
Les
et
de
sélection sont tout à fait classiques el
Notons
seul
type
de
qu'OverVue peut
toutes les hauteurs de papier; c'est donc
un précieux générateur d'étiquettes.
La fusion de fit:hier est ce qui rend
OverVue relationnel. Les deux fichiers
peuvent être juxtaposés, chacun gardant
scs
caractéristiques
propres,
ou
superposés s'ils sont du même type:. On
rien ne manque.
OverVue
à un
présente
en
outre
deux
peut aussi insérer un fichier entier au
caractéristiques qui le rapprochent du
milieu d'un autre grâce à la fonclÎon
de
coller. Enfin l a fonction Lier permet
fonctions de calcul et la possibilité de
une réelle fusion relationnelle : on
représenter les données sous forme de
précise quelle est la colonne de chaque
tableur
:
un nombre
imporlant
graphiques. On peut ainsi remplir une
fichier qui contient les dOMées de type
colOMe d'une valeur 6xe ou d'une série,
commun, puis quel nom dOMer à la
ajouler les valeurs de deux colOMes
colonne nouvelle qui accueillera le
dans
résultat de la fusion. Ces opérations
une
troisième,
multiplier
ce
résultat par trois, le diviser par 2 et
envoyer
le
tout
dans
la
colonne
sont sans danger dans la mesure où les
deux
fichiers
d'origine
subsistent
suivante. Le tout peut être assorti de
toujours, Le scul problème que l'on
fonctions logiques, Certes, il n'y a pas
peut
de
disponible en mémoire vive.
fonctions
Porn's n° 34
mathématiques
et
rencontrer
ici
est
la
place
texte,
ce qui rend Icur
effectuer toutes \cs fonctions d'OverVue
sauf les entrées/sorties Finder,
elles
peuvent s'interrompre pour demander à
J'utilisateur d'entrer une réponse. On
dispose là d'un véritable langage de
programmation.
En ce qui concerne l'ouverture sur
l'extérieur, OverVue est plus doué pour
l'Importation que pour l'Exportation.
L'exportation n'est en effet possible
que par l'album, le presse-papiers et
l'écriture d'un rapport sur disque et non
sur l'imprimante. Pour l'importation,
les formats lexte (avec choix de trois
séparateurs
:
virgule,
retour-chariot),
Sylk
tabulation et
et
Dif
sont
acceptés.
En définitive, OverVue est une gestion
de fichier originale ct simple d'emploi.
Elle est particulièrement efficace et
puissante,
grâce
11.
la
gestion
en
mémoire vive. C'est pour J'instant lc
seul
11.
programme
fonctions
aussi
des
proposer
étendues
pour
le
contrôle de la saisie. Ses macros, en
combinant des fonctions
astucieuses
permettent de récupérer des heures de
saisie
et
d'en
économiser
autant.
QverVue apparaît presque comme un
logiciel intégré qui serait orienté
vers
la base de données (contrairement à
Excel
qui
lui
est
orienté
vers
le
tableur), Cependant deux points faibles
viennent ternir le tableau : l'aspect
trop spartiate de la présentation
à
l'écran et surtout 11. l'impression ainsi
que l'absence de fonction "Annuler".
OverVue cst remarquablement efficace
pour les bases de données de taille
moyenne
rapports
ne
11.
irréprochable.
nécessitant
la
Elle
pas
des
présentation
est
agréable
à
utiliser mais donne un sentiment de
frustration devant J'absence de certaines
fonctionnalités
primordiales
comme
l'impression soignée.
61
Jean-Yves Bourdin
Nouvelles
du front
Il Y a de l'angoisse dans l'air chez les
propriétaires d'Apple
/1 : l'abandon
désormais officiel par Apple de la
production du Ile et du /le signifie-t-il
la condamnation de l'Apple//?
Du point de vue d'Apple, les choses
sont claires
: Apple est une entreprise
dont toute la fOfce repose dans
l'innovation
(technologique
et
logicielle). Quelles que soient les
réticences de chacun d'entre nous au
changement, nous avons donné de
l'argent à Apple, et cel argent est
utilisé par lui poUf rester à la tête de
l'innovation en matière d'informatique
personnelle. Nul n'ignore que ni le
Mac II ni le cs n'ont été précédés par
une quelconque étude de marché, pas
plus Que l'Apple
][ de Wozniak ne
l'avait été. Nous faisons de bons
produits, et le marché suivra : c'est
ainsi
qu'Apple
raisonne
depuis
Wozniak - avec quelques échecs
(Apple
III,
Lisa)
mais
avec
principalement, ma foi, pas mal de
réussite.
Il est clair que la technologie 8 bits
seule est une technologie dépassée. Ne
nous voilons pas la face : le point
d'entrée dans la gamme Apple, le bas
de gamme d'Apple, c'est le GS.
Est-ce donc la fin de l'Apple Il ?
Basic et à répandre la "philosophie
voici D . D . A . , Documentations
D'autant que la technologie Apple 8
française de l'APDA. C'est auprès
bits n'est pas morte. Faire tourner
utilisateur débutant.
domaine public, je veux dire dans la
production Taïwanaise à bas prix,
rejoignant les compatibles IBM. Le
successeur de l'Apple
Ile se trouve
désonnais dans les supennarchés des
USA : un ordinateur compatible Ile
65C02, avec 1 Méga de Ram, souris,
sortie RYB, drive 5,25' intégré,
acceptant les disques 3,5', avec pavé
numérique, avec tous les interfaces du
C'est le LASER
128 EX de Video
T e c h n o l o g y , produit en Chine,
Le
65832
(processeur
32
bits
compatible patte-à-paue avec le 65816
du GS) est en cours de production. Les
accélérateurs
OS
une étude un peu serrée de ses
performances.
ce prix, on a désormais un Apple Il
Apple (768Ko) et une carte contrôleur
Apple Il for evcryone. . .
Si
Apple
abandonne
le IIc,
il
n'abandonne pas $Cs utilisateurs : il a
créé
aux
États-Unis
avec
la
coopérative A.P.P.L.E. une "Apple
Programmers
and
Developers
Association" (APDA) qui fournit à
et
pas
seulement
aux
patentés,
les
pour programmer sur les machines
en sont membres tout aussi bien que
sont vendus à prix coûtant, et bien
sans
préalables,
aucune
garantie,
de pre-Re/ease, de
documentations
provisoires
entre dans n'importe quel slot sauf le
slot 3 ou le slot auxiliaire, est à la
de drives universelle pour l'Apple :
elle pilote aussi bien les lecteurs OS
3,5' (mais pas les Unidisk Ile et
fic)
que les drives 5,25' 40 pistes double
faec type IBM vendus par Applied
Engineering
disquettes
(elle
5,25'
formate
en
360Ko
les
sous
ProDOS), et elle permet de chaîner
cinq lecteurs en tout.
Bien
entendu,
c'est
aussi
un
compatible PC : microprocesseur Nec
Y30 à 7,16 MHz (trois fois plus
rapide que l'IBM), 640Ko de Ram
possibles en mode IBM, tous les
modes vidéo CGA sur votre moniteur
Apple, coprocesseur arithmétique en
option, bref on peut faire tourner sur
l'Apple l'adaptation sous MS-Dos de
Visicalc appelée Lotus 1-2-3.
Les avantages principaux de celle carte
polycopiées, qu'Apple diffuse dès qu'il
sont bien entendu dans l'intégration
le peut auprès de ceux qui en ont
qui
besoin. Cette politique d'ouverture
périphériques de l'Apple
permet
d'utiliser
les
: carte
maximale semblerait, à première vue,
horloge,
Ile-IIGS (les touches de fonction IBM
vont bientôt sortir.
elle a, en fait, toujours fait le succès
d'Apple. Apple France s'y met aussi :
après le serveur Apple (en 36.14),
imprimante,
tous
donner des armes à la concurrence :
Et ces machines 32 bits accélérées
continueront à faire tourner l'Integer
énorme effort de développement et
presque comme on a le téléphone.
À
entendu
commencent à foisonner.
émuJateur, mais un véritable IBM
fois une extension mémoire type
dollars, soit moins de 3000 francs.
puisqu'il s'agit parfois de versions
GS
l'Apple. Cette carte n'est pas un
Il et le Mac). Son prix : 500
le
machine, j'en suis persuadé, a de
pour le
deuxième système d'exploitation pour
utilisation du MS-Dos, cette carte, qui
](+ pour
gigantesques possibilités (avez-vous
Les
qu'était le CPjM auparavant : un
Software (qui produit Copy
le bidouilleur de banlieue. Les outils
?).
MS-Dos devient pour l'Apple Il ce
Tout d'abord, en dehors de toute
ulilîsateurs qui voulaient une machine
sonores
Transporter
E n g i n e e r i n g , le
d'Applied
vendu aux USA par Central Point
Apple. Les plus grands développeurs
programmes, les cartes, les interfaces
Avec la carte PC
3,6 Mégaherz (plus rapide que le GS).
un Apple Il à part entière. Le GS a été
possibilités
un IBM dans l'Apple ?
d'investissement. Son prix justifie
d'extension, muni d'un processeur à
de développemem etc., nécessaires
? Ses
Touj ours plus :
Ile plus l'interface parallèle ct un port
informations, documentations, outils
GS
documentations
dans l'Apple : elle a nécessité un
dans le monde : c'est plus que toute
épluché le moniteur du
les
Simplement,
l'Apple 8 bits passe quasiment dans le
autre machine.
à la fois moderne et compatible. Cette
d'elle que tout un chacun peut se
techniques sur le GS ou sur le Mac.
développeurs
produit par Apple sur la demande des
version
Méga suffit à 80% des besoins d'un
y
C'est un énorme
Apple,
procurer
tous,
a trois millions d'Apple Il installés
Développeurs
AppleWorks avec un bureau de 1
Évidemment pas. D'abord, parce qu'il
marché. Ensuite parce que le GS est
62
Wozniak". Bref: Apple 1/ for ever.
clavier
du
étant remplacées par des combinaisons
avec les touches
ti),
souris, moniteur
vidéo, son. Vous pouvez stocker des
Porn's
nO 34
données et programmes MS-Dos sur
tout disque formaté en ProDOS
(5,25', 3,5', disque dur, etc.). La carte
permet même de lire et écrire des
disquettes 3,5' formatées en MS-Dos
avec un simple lecteur 3,5' Apple
type IIOS.
Mais. . l
i Y a cc que les publicités ne
disent pas : la carte PC Transporter ne
pennet pas de fonnater en MS-Dos les
disquettes 3,5' avec un lecteur Apple
3,5' ni de démarrer directement ces
disquettes. Il vous faudra donc avec la
carte le duo-disk 5,25' type IBM
vendu par Applied Engineering pour
démarrer le MS-Dos. Et il est
indispensable d'avoir accès à un
compatible IBM muni d'un lecteur
3,5' pour formater en MS-Dos les
disquettes 3,5'.
.
Faites les comptes : la carte avec
MOKo, plus le kit d'inslallation, piuS
le Dua-.Disk 5,25', tout cela fait 1058
dollars aux prix d'Applied Engineering
poUf mellre le MS-Dos dans le OS.
Rajoutons le fait que la carte en action
tire 600 mA, et 1075 mA avec le
coprocesseur arithmétique, el il est
pratiquement indispensable de changer
l'alimcnlalion du Ile pour celle plus
puissante (110 et 220 V) vendue 69
dollars par Applied Engineering. C'est
en fait le prix d'une configuration
de
équivalente
à
base
compatible-lambda made in China
vendu dans les supermarchés.
L'avanlage est évidemment de n'avoir
qu'une seule mach n
i e sur son bureau,
une seule imprimante, etc., el de
pouvoir échanger les fichiers entre les
systèmes d'exploitation.
ou un Apple
dans l'IBM ?
• . •
PluLÔt que de mettre à vos frais dans
votre Apple l'ordinateur du patron, il
serait peut-être malin de faire mettre à
ses frais un Apple dans son IBM : la
carte T r a c k s t a r
1 2 8 de
Compatible Peripherals met un
Ile 65C02 128K dans un IBM ou
compatible. Elle utilise les drives
5,25' IBM pour lire les disques Apple,
y compris les disques protégés (sauf
ceux qui utilisent les demi-pistes).
Elle utilise les périphériques de j'IBM
pour l'Apple, sauf le joystick (port
Porn's nO 34
pour joystick. Apple sur la carte), elle
permet les transferts de fichiers
ProDOS/MS-Dos. Et elle ne coûte
que 300 dollars. Mais ce n'est pas un
OS, et vous n'aurez pas les caractères
accentués français sur l'écran.
. . . ou une machine
d'avenir ?
À chacun donc de faire ses choix. Le
mien est ni l'un ni l'autre : un
ordinateur dans un autre est une
machine bloquée, qui ne pourra plus
évoluer, et aussi bien l'IBM PC que
l'Apple Ile sont des machines
technologiquement dépassées,
d'ailleurs abandonnées toutes deux par
leurs constructeurs respectifs. Ce ne
sont pas des investissements
d'aujourd'hui.
J'avoue également n'éprouver qu'une
jouissance très modérée à la
compilation en DBase III. Et plutôt
que d'utiliser Lotus 1-2-3 ou Ward
Perfect sur IBM, essayez donc Vip
P r o fe s s i o n a l
de V i p
T e c h n o l o g i e s , parfait clone de
Lotus 1-2-3, mais avec l'interface
graphique·souris du as, ou . . . Word
P e r l e e t de W o r d
Perrect
Corporation sur OS. Ces deux
programmes existent d'ailleurs aussi
pour Ile-Ile (Vip Professional
nécessitant une extension mémoire
type Ramwork.s ou Multiram).
Peut-être la carte PC Transporter
serait-elle un bon moyen de mettre à
niveau un I/e qui n'aurait que 128Ko
et des lecteurs 5,25' : mais c'est le
même prix qu'une unité centrale de
a s . La seule machine qui peut
concurrencer un OS, c'est le Mac.
Bon, je sais, le patron . . . Eh bien,
faîtes-lui faire un tour au Sicob ou à
la prochaine Apple Expo. Une
entreprise ne peut pas se permettre
longtemps sans dommage économique
ce qui peut au contraire être l'intérêt
bien compris du paniculicr : utiliser
une infonnatique obsolète.
Le mange-disques
Depuis le temps qu'on J'attendait ! Ça
y est, il est arrivé, il eSllà : Merlin
8/16 de Glen Bredon chez Roger
Publications est sorti !
Enfin la possibilité de programmer en
assembleur de façon pratique pour le
o s , finie la galère d'APW/ORCA !
Pourquoi ne pas en parler dans la
rubrique "16 bits" ? Mais parce qu'il
marche aussi sur le Ile et le I/e : vous
avez bien lu, non seulement le Merlin
8, dernière version du Merlin-Pro sous
Dos et ProDOS, mais également le
Merlin 16 bits, tout cela marche sur
tous les Apple 1/ d'aujourd'hui. Bien
entendu, il vous faut précisément un
Apple 1/88 : microprocesseur 65802,
lecteur 3.5, mémoire. Voir la rubrique
"sous le capot".
Wagner
Entre autres, cela signifie qu'il est
sous ProDOS 8 et ne s'occupe pas
plus qu'AppleWorks du graphisme
GS. Faudrait-il en conclure que même
Glen Bredon estime que le ProDOS
1 6 n'est pas très au point, et que le
graphisme os ne fail que ralentir les
choses dans les applications
sérieuses ? Mais non voyons,
puisque précisément il vous permet
d'écrire quant à vous des applications
sous ProDOS 16, des accessoires de
bureau, de vous régaler avec les outils
du GS. Un éditeur de liens plus rapide
produisant du code relogeable, un
éditeur plein écran, des bibliothèques
de sous-routines, des bibliothèques de
macros (incluant des macros d'accès
aux outils OS), que nous faut-il de
plus ?
Eh bien, un assembleur et un éditeur
de liens co-residents en mémoire avec
l'éditeur, qui relient et assemblent
jusqu'à 12 000 lignes de code par
minute, sans qu'il soit nécessaire de
passer par des mooules séparés (suÎvez
mon regard. . . ). Et aussi un Sourceror
16 bits, ce magnifique désassembleur
qui a autant fait pour l'Apple que le
Locksmith (à ce propos : la dernière
version du L o c k s m i t h , 6,0
Révision
C , d'Alpha
Logic
Business Systems, fonctionne sur
le OS). Sans compter la compatibilité
avec tous les sources Merlin
existants, el la possibilité de charger
et assembler les fichiers APW avec un
minimum de travail d'édition.
Voilà le genre d'outils qui remet les
montres à l'heure et les choses à leur
place : le langage privilégié de
l'Apple Il, c'est l'assembleur, n'en
63
déplaise aux adeptes d'autres jargons.
C'est lui qui a fait et qui fera les plus
grands programmes et les plus grands
succès de l'Apple /1. Apple /1 for ever,
cela passe par Merlin ror evet. Avec
Merlin 16, TML Pascal et TML
Basic, l'avenir du GS est assuré.
D o c u rn a x ,
de S i g n u rn
Microsystems, est exactement le
genre de programmes qui me pousse à
écrire dans ces colonnes. Un coût
ridicule (25 dollars avec la
documentation sur le disque), une
in terface utilisateur parfaite,
implantable, pas de protection, des
possibilités extraordinaires, et..
personne ne le connaît ! Que fait-il ?
D'abord, il compresse à 50% les
fichiers textes, à 40% les fichiers
traitement de texte et base de données
d'AppleWorks, et les décompresse
ensuite bien sûr. En quelques
communications avec InterPom's, je
le rembourse intégralement. Au lieu
de copier un fichier pour le ranger,
compressez-le : cela n'est pas plus
long, et de toute façon Documax vous
permet de lire ces fichiers et de
travailler dessus. Étant sous ProDOS
8, il tourne sur Ile, Ile, IIOS et accepte
bien entendu tous les disques reconnus
pad'roDOS.
Ensuite, il permet de chercher une
référence, un nom, un morceau de
phrase, un numéro de téléphone, dans
l'ensemble de tous les fichiers texte
ou AppleWorks que vous lui indiquez,
compressés ou non (bien entendu, il
s'occupe lui-même des catalogues
ProDOS : vous n'avez jamais à taper
un nom de fichier). Il vous crée si
vous le voulez un fichier de références
sur n'importe quel sujet avec nom de
fichier, texte recherché avec son
contexte, numéro de ligne. Vous
faites ensuite de ce fichier une base de
données, ou bien vous coupez et
coller l'information dans d'autres
fichiers. Il segmente et fusionne les
fichiers à volonté. Il gère les
catalogues ProDOS, y compris l'ordre
des fichiers dans le catalogue. Il est
sain de temps en temps de nous
rappeler que l'informatique ne sert pas
à cliquer des souris, mais à traiter et
manipuler à notre guise l'infonnation.
Allez, chiche : trouvez le nom et le
prix d'un programme qui en fasse
autant sur une autre machine !
64
Sous le capot
Pour un prix inférieur à celui d'un
lecteur 3,5', vous pouvez aujourd'hui
mettre un disque dur 20 Mégas dans
votre Apple. Vous avez remarqué que
les clones IBM sont munis de disques
durs bon marché. Évidemment, un
petit malin a réalisé une carte
d'interface entre ces disques durs ct
l'Apple ][+, /le, IlOS. Il s'agit de la
carte M e g a b o a r d de P e r l i n
Electronics. La carte coûte 200
dollars, et supporte ProDOS, DOS
3.3, Pascal, CP/M. Pour 500 dollars
(2 750 F au cours d'aujourd'hui), vous
avez la carte et un disque dur de 20
Mégas. Reconnaissons cependant que
la carte Speedisk, si elle ne fait qu'un
Méga, est beaucoup plus rapide,
silencieuse et sans doute durable
(aucun élément mécanique).
Savez-vous que vous pouvez pour 25
dollars mettre un processeur 16 bits
dans vOlfe Ile ou Ile ? Il s'agit du
microprocesseur 65802, vendu
par Roger Wagner Publishing,
et produit par le Western Design
Center, concepteur du 65816, le
microprocesseur du O S . Ce
microprocesseur reconnaît toutes les
instructions ct tous les modes
d'adressage du 65816, a les mêmes
modes émulation et natif, mais bien
entendu ne fait pas l'adressage
mémoire sur 32 bits par page de
64Ko, et ne vous met pas un os dans
le Ile. Il fait tourner les programmes 8
bits existants, plus ceux spécialement
écrits pour lui (un seul aujourd'hui :
Merlin 8/16). Il suffll d'enlever le
65C02 et de mettre à la place le
65802.
L'autre solution consiste à acheter une
carte accélérateur T r a n s w a r p
d'Applied Engineering pour le
/le, avec un 65802 intégré. Roger
Wagner la vend pour 245 dollars, el
votre /le tourne plus vite que le OS
(si !). Évidemment, Zip-Chip (voir
Pom's 33) est moins cher el ne prend
aucun slot : mais ce n'est pas un
65802, il ne fail pas tourner Merlin
16.
Toujours pour mettre votre Ile ou /le
à niveau, il faut étendre sa mémoire.
Si vous avez un nouveau Ile,
poussez-le à un Méga (voir Pom's
33). Si vous avez un ancien Ile,
vérifiez qu'il a les Rams pour le
lecteur 3,5', sinon faites-le mettre à
niveau par Apple. Pour l'étendre à un
Méga, les seules solutions seront
ensuite la carte Z-Ram d'App lied
Engineering ou la carte Multiram
C X de Checkmate Technology
(sur lesquelles vous pouvez ajouter
une carte 65816 pour faire tourner
Merlin 16).
Si vous avez un Ile, vous pouvez
l'étendre avec une des cartes qui se
metlent dans le SIOl auxiliaire
(Ramworks d'Applied Engineering ou
Multiram Ile de Checkmate
Technology). Ces cartes ont
J'avantage de remplacer la carte 80
colonnes, donc de ne pas prendre un
slot de plus. Elles ont l'inconvénient
d'être technologiquement dépassées et
de ne pas être portables sur le OS.
Le plus intéressant, ce sont sans doute
les canes au standard Apple
("Slinky"), qui se mettent dans
n'importe quel slot du ][+, Ile, IIO S
(sauf le slot 3). Elles sont portables
sur le O S , sont reconnues par
AppleWorks pour y étendre son
bureau. Choisissez entre la carte
Apple (chère, mais Apple), la
R a rn r a c t o r
d'A p p l i e d
Engineering qui est la meilleure, Cl
la carle Sprintdisk d'AST qu'on
trouve à des prix bradés en ce moment
(179 dollars par exemple avec un
Méga installé chez Microtech
Consulting Company).
L'autre complément d'un Apple Il
pour le mettre à niveau, c'est le
lecteur 3,5'. Le Ile est normalement
muni de cette capacité. Pour le Ile, il
faut une carte d'interface. Apple nous
propose sa carte pour l'Unidisk 3,5'.
Mais ce lecteur étant assez cher, on
peut lui préférer la carte Universal
Disk
Controller de C e n t r a l
Point Software pour ][+, Ile, lIaS.
Celle carte a l'avantage d'accepter
aussi bien les lecteurs 5,25' Apple ou
compatibles, que les Unidisks 3,5'
d'Apple, que les lecteurs 3,5' 800Ko
compatibles Mac, qui sont très bon
marché, que les lecteurs 3,5' simple
face 400Ko des vieux Mac, qu'il faut
laisser aux dinosaures. Pour 261
dollars (plus le port) chez Triad
Software, mon fournisseur favori,
Pom's nO 34
vous aurez une carte et un drive
800Ko qui lira les disquettes GS sans
problème, fera tourner Merlin 16 et
rentrera AppleWorks, les accessoires
Pinpoint et les applications TimeOut
sur la même disqueue, et démarrera
automatiquement sur un Ile 65C02.
Cene carte a cependant quelques
inconvénients : d'abord, même si elle
peUL théoriquement rentrer dans tous
les SIOlS sauf le slot 3 du Ile, elle
déborde beaucoup à droite. En
conséquence, elle est en fait
pratiquement réservée au slot 2 du Ile
et au slot 7, ce qui marche
impeccablement sous ProDOS, mais
pas sous Pascal. Ensuite, elle accepte
les drives Apple 3,5' du G S , mais
n'obéit pas à l'éjection manuelle (ce
qui n'est pas grave : c'est si facile par
programme). Enfin, elle ne reconnaît
pas les disquettes prOlégées du G S
(raison de plus pour ne jamais utiliser
un programme protégé sur G S ) .
Ajoutons que comme les drives
800Ko sont pilotés par la carte et pas
par J'unité ccntrale, elle n'accepte pas
les programmes qui, comme
Diversi·Cache, modifient les routines
de lecture-écrhure. Bill Basham a
découvert pas mal de bugs dans ceue
carte, mais ils ne vont jamais jusqu'à
la perte d'un fichier en mémoire ou la
ruine d'une disquette. C'est donc
malgré tout la solution de loin la plus
économique pour tout Apple II
démuni de lecteur 3,5'.
Voilà donc votre Ile ou Ile enfin à
niveau, vous avez un "Apple Il 88".
Ceci dit, faites vos comples : une
carte accélérateur, plus un 65802, plus
une interface pour lecteur 3,5', plus
une carle mémoire de 1 Méga, c'est
vrai, ça ronlle. et c'est au point. Mais
c'est très en-dessous d'un G S , et ça
n'est pas un OS, pour un prix qui lui
est bien voisin !
POKE 1 4 1 5 7 , 2 0 8
19�
:
POKE 1 4 1 5 8 ,
(Ne demande plus la date)
aSAVE APLWORK S . SYSTEM,
A$2000,
TSFF�
Le patch suivant pennet aux heureux
propriétaires d'un G S et d'une carte
Ram 1 Méga type Apple "slinky"
(cartes Apple, RamfacLOr, A$T
Sprintdisk, etc.) de faire croire à
AppleWorks 1.4 qu'il est sur un Ile et
non sur un C S , le faisant ainsi se
charger et mettre son bureau dans cette
carte, en n'occupant que le Bank 0 de
la Ram as.
UNLOCK APLWORKS . SYSTEM�
BLOAO APLWORK S . SYSTEM,
AS2000,
T$FF�
POKE 1 3 6 0 9 . 44�
aSAvE APLWORK S . SYSTEM,
AS2000.
T255�
Regardez à ceUe occasion le code que
vous changez, el VOuS verrez
comment AppleWorks s'y prend pour
reconnaître qu'il est sur un as.
Voici eomment (Merci Dominique
Ottello) permeLtre à AppleWriter
ProDOS (version française) de
marcher avec le port imprimante
intégré du as en court-circuitant sa
routine d'initialisation du port série.
C'est donc à vous qu'il appartient de
configurer ce port en passant par le
tableau de bord (d-control-esc). Pour
cela, il faut d'abord avoir remplacé le
ProDOS de la disquette par un
ProDOS 8 plus récent qui autorise les
interruptions.
PREFIX/AwJ
aLoADAWD _SYS.TSC,AS2000�
CALL-151�
4098: 60�
4F8A:l0�
BSAVE AWO .SYS,T$OC,AS2000�
Voici comment raccourcir le temps de
chargement d'AppleWorks 1.4 pour
ceux qui le chargent depuis un disque
3.5, un dur, ou un disque Ram, et/ou
qui ont une horloge dans l'Apple (GS
et autres) :
ONLOCK APLWORKS . SYSTEM�
Porn's nO 34
(plus de «Prcsscz
..)
une touche pour continue
POKE 1 4 4 1 1 , 44�
4 F 9 1 : 1J�
Patchworks
BLOAO APLWORKS . SYSTEM,
TSYS..J
A$2000,
Encore une partie
et j ' éteins
Garder un vieux J [+ avec un joystick
pour les jeux des enfants n'est plus un
bon calcul : les grands du jeu sur
Apple (Broderbund, Epyx) sortent
maintenant systématiquement de
magnifiques jeux d'action (arcade et
simulation), de superbes animations
en Double Haute Résolution. Après
Air Heart de Broderbund. voici
California Games d'Epyx, qui
vous permet de faire du surf, du
vélo-cross, du skate-board, du
"freesbee", etc. Sous l'Apple, la
plage. . .
- Range-moi cette disquette
loin d'ici, lu vois bien que je
travaille 1
Après les diverses séries de simulation
des Jeux Olympiques d'hiver el d'été,
la Double Haute Résolution va nous
offrir des simulations encore plus
réalislCs, puisque nous allons refaire
nos parties de sports des rues, là où
nous jouons sans arbitre avec le
copain qui ne sait pas rattraper une
balle contre celui qui ne sait pas la
lancer (Street Sports Base-Bail,
B a s k e t - B a l i , ete., toujours
d'Epyx).
- Ne touche pas à ce joystick et
laisse-moi écrire mon article !
Bien entendu, la Super Haute
Résolution du OS pennet aussi de
magnifiques
animations
et
simulations sportives : essayez donc
World Games GS. du même
Epyx, décidément très en forme en ce
moment Mais cela n'empêche pas les
français de travailler aussi à de bons
jeux sur Apple Il : on parle beaucoup
d'une version française pour Apple 1/
de l'Arkanoïd de l'Atari, et Froggy
Software nous offre des aventures
inédites avec Le j ust ic ier du
bahut.
Les jeux de l'Arlésienne : UItÎma V
ct W i z a r d r y
I V . Cela fait
longtemps qu'on les attend, les
publicités sont parues, mais, à l'heure
où j'écris ces lignes, je ne connais
personne qui ail réussi à acheter autre
chose qu'une promesse de vente.
Curieuse stratégie commerciale.
- Bon, puisque c'est comme
ça, je te prends au surf et je
pulvérise ton high-score 1
Bon sang, où as-tu mis la
disquette de California
Games ? J'avais dit qu'elle
devait toujours rester à côté
de l'Apple ! 1 !
65
16 Bits
Si vous avez un C S , prenez
rendez-vous avec votre revendeur : il
vous remettra la dernière version du
système (3.1, avec le Finder) et vous
mettra à niveau votre machine
(nouvelles Roms, nouvelle chip
vidéo) si son numéro de série est
inférieur à C725XXXXX. Tout cela
gratuitement. Mais bien entendu ne
jetez rien : ni l'ancien système ni les
Roms.
Certains
anciennes
progmmmes ne marchent pas avec les
nouvelles Roms. La solution :
charger les anciennes Roms en Ram,
changer les vecteurs. Lecteurs
aSphilcs, au travail! Nous comptons
sur vous.
Question
:
Qu'est-ce qu'un Macintosh ?
Réponse :
Un ordinateur assez ancien de la
société Apple, en noir ct blanc dans
ses versions grand public, mais dont
le mérite fut d'avoir permis la
réalisation d'un assez grand nombre de
dessins ct de fontes graphiques pour le
nouvel ordinateur couleur de cette
société, l'Apple lIas.
Exp lication
:
Vous avez dû remarquer, au milieu
du tas de polycopiés et de disquettes
qui accompagnait la documentation
technique du cs, une disquette un peu
spéciale : elle ne marchait pas. C'est
en effet une disquette pour Macintosh,
destinée à vous pcnnettre de récupérer
sous ProDOS les fontes graphiques,
les images MacPaint, et les fichiers
data divers du Mac. Bien entendu, la
conversion fonctionne aussi dans
l'autre sens, mais les fichiers OSPaint
om des couleurs bien pâles sur un
Mac Plus.
Quelques conseils pour piller un
Macintosh : choisissez·le avec
suffisamment de mémoire pour avoir
un disque Ram conséquent. Emportez
votre drive as avec vous pour faire un
deuxième drive au Mac s'il n'en a pas
déjà un. Emportez un stock de
disquetl.CS fonnatées en ProDOS.
1
66
La disquette contient aussi une
application pour le Mac appelée
"Emulateur Apple Il GS" : Pom's a
obtenu d'Apple l'assurance que vous
pouvez donner cette application aul';
possesseurs de Mac. Quand vous aurez
fini de soutirer pour votre GS toute la
substantifique mœlle du Mac de votre
ami ou de votre patron, remerciez-le
en lui laissant cette application ct
regardez-le l'essayer. . .
Vous l'avez remarqué, si vous voulez
reconfigurer votre disque Ram et faire
prendre en compte cette modification
immédiatement à votre machine, le
seul moyen, après avoir fait le
nécessaire avec le tableau de bord,
est. . . de J'éteindre. Le C S refuse le
moindre risque de perdre un fichier du
disque Ram. Comme il est aussi
protégé contre les micro-coupures
d'électricité, vous avez le temps de
prendre un café avant qu'il oublie
réellement ce qu'il a en mémoire et
que vous puissiez le rallumer.
Heureusement il y a un autre moyen :
faites (j-control-option-reset, ct
l'autotest de votre machine démarre.
Attendez un peu, puis faites
â-control-reset pour redémarrer le
disque. Cette fois-ci, le as vous
obéit. Puisqu'il y a déjà u n
redémarrage à chaud ct un redémarrage
à froid , ceci doit être un redémarrage
glacial. . .
Roger Wagner m'a écrit trois pages
pour expliquer les raisons et formes de
sa protccLÎon de Softswitch. En gros,
il s'agit d'évitcr, s'agissant d'un
programme que l'utilisateur met sur
toutes ses disquettes, une diffusion ou
un passage involontaires dans le
domaine public. Tout est copiable,
mais l'installation du programme met
un signe dans votre machine pour
qu'il ne puisse pas marcher sur une
autre.
Ccci dit, la dernière parution de Roger
Wagner, Merlin 8/16, est un
programme normal (non protégé). Et
si quelqu'un devait craindre le passage
dans le domaine public, c'est bien
Bill
Basham, de D i v e r s i fi e d
Software
R e s e a r c h , dont le
D i v e r s i - C a c h e , qui s'intègre
carrément au ProOOS 8, accélère de
façon considérable la lecture ct
l'écriture sur le disque 3,5'. Eh bien,
ce programme est diffusé en
S h areware,
avec
d'autres
indispensables (Diversi-Copy, le
plus rapide des copieurs 3,5',
Diversi.Key, qui met des macros
partout, D i v e r s i - H a c k , un
mini-Softswitch) : vous pouvez
copier et distribuer gratuitement la
disquette (la documentation est sur le
disque). Si le programme vous plaît,
vous êtes invité à payer directement à
l'auteur. J'ai acheté Diversi-Copy, ce
qui prouve que l'idée est bonne. Pour
Diversi-Cache, j'aimcmis qu'un lecteur
fasse la comparaison avec le
programme de cache fourni avec la
cane OS-Ram d'Applied Engineering.
La place me manque pour faire
aujourd'hui un tour d'horizon complet
des langages sur le CS (j'ai dénombré
jusqu'ici, en ne comptant que les
langages 16 bits, au moins trois
Pascal, deul'; Forth, cinq Basic, un C,
plus les assembleurs). Disons
seulement qu'Apple a fait son lfavail
en sortanl son interprélCur GSBasic,
disponible chez D D A , fon
ressemblant au Business Basic de
l'Apple III. Et parlons de l'autre. Vous
qui commenciez à vous mettre au
Pascal à cause de TML Pascal, mais
qui regrettiez de ne pouvoir vraiment
parler en Basic à votre machine,
réjouissez-vous : le l'ML Basic est
en vente. Attention : ce n'est pas un
simple compilateur qui viendrait en
complément d'un interpréteur, comme
c'étaitlc cas avec l'ApplesofL S'il est
vrai qu'il compile les programmes du
C S Basic, et que la plupart des
programmes 100% Applesoft seront
compilables après un petit nombre de
modifications, TML Basic est un
ensemble de programmation complet.
Sachant que TML Basic compile très
vite, en mémoire, CI lance aussitôt le
programme compilé, sachant que son
debugger intégré vous renvoie, en cas
d'erreur, immédiatement dans l'éditeur,
à la ligne fautive de votre programme
toujours en mémoire, avec un
message d'crrcur explicite, la
différence avec un interpréteur devient
invisible
pour l e
presque
programmeur. Il n'y a que la vitesse
d'exécution du programme qui change,
mais de façon faramineuse. Bien
entendu, il donne accès aux outils de
la Rom, permet la programmation
structurée Cl la récursivité, elC.
L'interface avec le l'ML Speech
Toolkit permet de faÎre parler le OS.
La documentation est excellente. C'est
un TML, et c'est un a s : donc,
souris, couleurs, couper-coller à
Porn's nO 34
travers quatre programmes chacun
dans sa fenêtre, etc. De quoi plaindre
les
pauvres
s i n c è re m e n t
programmeurs MS-DOS, même
turbo.
DDA devrait pouvoir fournir certains
de ces ouvrages : demandez-lui son
catalogue. Sinon, essayez avec
l'APDA. Sauf pour S y b e x , les
éditeurs ne diffusent pas directement.
À essayer : la carte Memory
Pom's a découvert l'existence d'un
sympathique/amine de bonne facture
pour les loqués de J'Apple Il ct du
Mac, un produit du Sud Cl de
l'association S u n Data appelé
"Ampersand". Aux rubriques
habituelles des fanzines (solutions de
jeux, comment "protéger" vos
disquettes), il joint des informations,
des revues de logiciels, ct des articles
d'initiation. Il propose un catalogue de
"Freeware" à la carte pour CS ct Mac,
ct offre aux Marseillais l'accès à un
serveur gratuit (91 79 30 60, code
Sa\'er
de Checkmate Technology, qui
pour 150 dollars transforme le disque
Ram de n'importe quelle carte
mémoire du slot auxiliaire du CS en
disque Rom. S i vous avez essayé
Movie
S t u d i o et V S / C o rn de
Version Soft, écrivez-moi. Même
chose pour Gribouille G S de
Madeleine Hodé.
À
lire
ouvrages sur le CS commencent à
foisonner. li y a bien entendu de toul
Pour ma part, je vous conseille les
suivants :
Les
Roger Wagner : Apple I1GS,
Machine
Language
for
Deginners,
chez Roger Wagner
Publishing ;
David Eyes ct Ron Lichly
Programming
the
65816
i n c l u d i n g t h e 6502, chez
Brady Book 1 Prcnticc Hall Press ;
Gary Liule
Exploring the
Apple H G S , chez Addison­
Wesley.
Michael Fischer : Apple I1G S
Technical
Reference, chez
Osborne-McGraw Hill.
Gary Bond : Inside the Apple
IIGS, chez Sybcx.
D'autre pari, Apple public peu à peu
chez Addison-Wesley ses différents
m,Uluels pour le CS. Cc sont de vrais
livres, bien plus utilisables que les
millîers de pages photocopiées dont il
fallait se contenter jusqu'ici. Votre
patience sera récompensée si vous
avez atlendu pour acheter:
Apple Computer : T e c h n i c a l
Introduction
to
the
Apple
I1GS, chel Addison-Wesley.
Apple Computer : Apple IIG S
l;irmware
Reference, chez
Addison.Wesley.
Apple Computer Apple I1G S
Hardware
Reference, chez
Addison-Wesley.
Apple Computer : ProDOS 16
Reference
M a n u a l , chez
Addison-Wesley.
Porn's n° 34
"&").
Pom's a également reçu le faire-part de
naissance d'un futur confrère, une
revue française spéciale CS ct Mac :
G S Magazine. Il est prévu que
chaque numéro coûte 50 F, ct soit
accompagné d'une disquette 800Ko (en
kiosque, cc sera une disquette Mac,
que vous échangerez par la poste avec
la disqueue CS. Par abonnement,
vous choisirez entre disquette CS ct
Mac, mais vous aurez le droit de
l'échanger contre l'autre). La disquelle
contiendra des programmes en
domaine public, Shareware, ct des
démonstrations de logiciels. La revue
devrait être orientée principalement
sur les services à l'utilisateur et au
consommateur. Baptême prévu à la
mi-février.
290 S.W. 43rd Street, Renton,
\VA 98055, USA.
•
Coop
290 S.W. 43rd Street, Renton,
WA 98055, USA.
Alpha
Logie
Business
Checkmate
Technology
509 South Rockford Drive, Tempe,
Arizona 85281, USA.
Compatibles
periphericals,
Inc.
6363 Taft Street, Suite 305,
Hollywood, Florida 33204, USA.
D.D.A.
Technopole - rue M. Faraday
78180 Montigny Le Bretonneux.
"Zr (1) 3 0 4 5 26 62.
Di\'ersified
Software Research
34880 Bunker Hill, FarminglOn,
�'iI 48018-2728, USA.
Ep)'x,
Ine,
600 Galveston Drive, Redwood City,
CA 94063, USA.
Froggy
Softwllre
33, avenue Philippe-Auguste
75011 Paris
"Zr 43 58 25 98.
G S Magazine
320, rue Saint Honoré - 75001 Paris.
Gribouille
16, rue de Poules - 67000 Strasbourg.
Microtech
Consulting
Company
206 Angie Drive, Cedar Falls,
lA 50613, USA.
Mindseape,
Inc_
3444 Dundee Road, Northbrook,
IL 60062, USA.
Perlin Electronics,
Pin point
A ,P.O.A
.
Central Point Software
9700 S.W. Capitol Highway,
#100, Portland, OR 97219, USA.
Inc,
7394 Calle Real, Suite B, Goleta,
CA 93117, USA.
Adresses
A.P.P.L.E
17 Paul Drive, San Rafael,
CA 94903, USA.
Systems
Publishing
5901 Christie Avenue, Emeryville,
CA 94608, USA.
Roger Wagner
Publishing
1050 Pioncer \Vay, Suite P,
El Cajon, CA 92020, USA.
Signum
Microsystems
4119 North Union Road, Woodstock,
120 Mountain Avenue, Bloomfield,
Connecticut 06002, USA.
IL 60098, USA.
S u n Data-Ampersand
A p plie d
E n g i n eer i ng
P.O. Box 798, Carrolllon,
TX 75006, USA.
Beagle Bros
6215 Ferris Square, Suite 100,
San Diego, CA 92121, USA.
Broderbund Software, Inc,
16, rue Julia - 13005 Marseille
Sybex
6-8, impasse du Curé - 75881 Paris
Cedex 18 U' 42 03 95 95
-
l'ML
System
Customer Sales Dcpanment,
8837-B, Goodbys ExecuLive Drive,
67
Jacksonville, Florida 32217, USA.
tr 47 27 7 1 72.
Triad Softwa re
125 North W"shington Street,
PapiIlion, NEbraska 68046, USA.
VIP
Technologies
CIO ISO Marketing, 20 StcclC;lse
Raad West, Markham
Ontario L3R 102, Canada.
VersionSoft
94, rue Lauriston - 75116 Paris
Word Perrect
Systèmes
d ' e x p l oitation
et
Qui n'a jamais rêvé de découvrir les
secrets des protections de
programmes. Voici donc un livre qui
devrait assouvir l'appétit de découverte
des chevronnés de l'Apple Il. Que les
éditeurs de logiciels soient néanmoins
rassurés : il s'agit ici de montrer
comment protéger les programmes ct
leurs disquettes ; il n'est jamais
question de détailler le travail inverse.
'Déplombeurs' s'abstenir 1
Avec un sujet de très haut niveau
technique comme celui-ci, il est
indispensable de posséder une
excellente connaissance préalable de
l'assembleur et des systèmes
d'exploita(Îon de l'Apple Il (DOS 3.3
ou ProDOS). Il ne sera jamais
question de faire un apprentissage de
la pratique du 6502 : le début du livre
démarre sur les chapeaux de roue et la
suite COIllÎnue à la même viœsse. . .
Au menu, o n trouve d'abord les
éditeurs habituels de disquette tels que
CIA ou Walson. Suivent une
description des méthodes 'préhisto­
riques' de protection en mémoire d'un
programme (en commençant par
rediriger les vecteurs du Reset), Puis,
les protections sur disque sont
progressivement détaillées
modifications du nombre de pistes, de
secteurs, d'octets ou de nibbles
précèdent des méthodes franchement
abominables : nouvel encodage des
nibbles, allongement des temps de
synchronisation, synchronisations
angulaires. Enfin, apparaissent les
méthodes quasi-incopiables
interpistes ou spiraling par exemple.
68
Zip
Chip
1 1926 SnnL.1. Monica Boulevard
Los Angeles, CA 90025, USA.
Corporation
Œi6fiographie
systèm e s de protection sur
Apple Il, par Jean-Pierre Lagrange
Édition Micro-application - 179 F
288 West Center Strcct, Orem
Utah 84057, USA.
ô
JlIe?(andre 5'lvrane,
5'l{e?(andre 1Jubact
Pour illustrer ces méthodes, l'auteur
parsème les chapitres des listings des
principales routines étudiées (à
nouveau, seulement des routines de
protection : aucun listing n'est fourni
pour décrypter). Il ne reste plus au
lecteur qu'à protéger ses programmes
en créant un cocktail de sa
composition pour faire amplement
transpirer les héritiers d'Aldo Rcscl.
l'essentiel
tirés
de
J'excellent
PostScript Language - TUiorial and
Cookbook chez Addison-lVesley
Publislzing Compagny (fort beau
livre, bien fait, réalisé avec goût et
élégance dont le seul inconvénient est
d'être en anglais).
MatStatMath
- Logma SA - 12,
rue d'Anjou - 78000 Versailles 450 F
Il ne s'agit pas là d'un livre mais d'une
disquette proposée en annexe dans
l'ouvrage Excel efficace publié chez
Cedidna/han.
MarSrarMath regroupe un grand
nombre de modèles de calcul
utilisables avec Excel ct destinés au
étudiants, professeurs ou, plus
généralement, tous ceux qui ont
besoin de manipuler des statistiques
ou nombres sous toutes leurs formes.
Cette disquette contient également une
police de caractères en taille 6 points,
baptisée MicroCarnctères.
MatStatMath est commercialisée par
wgma SA, société qui distribue aussi
les fantastiques cartes Speedisk pour
Apple Il.
de PostScript� , par
Bernard-Paul Eminct - Édition du
P.S.! - 2()() F
Le
livre
Il ne faut pas rechercher dans cet
ouvrage une description exhaustive
des possibilités de PostScript. 11 s'agit
plus d'une présentation qui permet
peut-être de débuter dans cc langage,
Les exemples de ce livre sont pour
Comme toutes les documentations
d'origine Apple, cclle·çj est bien faite,
claire et précise. De plus, les erreurs
qui apparaissaient dans les éditions
antérieures ont apparemment
disparues, Cel ouvrage est donc
indispensable lorsque l'on veut utiliser
à fond l'imprimante ImageWriter,
pratiquement toujours sous·employée.
Pom's nO 34
-------
-
'Boîte au?( (ettres
4) Transmission - 9 1.
De: Arian ZELWER (AZI 0) I l jan 88 22h35
•
S'il vous plaît, une question :
- Ayant à côté du Mact un Nic avec lecteur 3,5
pouces, est-il possible de récupérer les fichiers textes sous ProDOS/Appleworks . et les reprendre sous
MacWrije ou Ward ?
Puis-je échanger des fichiers par liaison directe entre ces
deux machines ?
Merci de votre aide
.
•••
AZ10
H'
Avec InterPom's sur le Mac et InterPom's sur le Ile (et
un câble de liaison ad hoc), vous pOUfrez transmettre les
fichiers à 9600 bauds.
Si vous transmettez le fichiers AppleWorks, vous
hériterez de codes de contrôle qu'il faudra éliminer en
traitement de textes sur Je Macintosh.
Un conseil, demander à AppleWorks'J'«impression dans un
fichier texte (ASCII) sur disque», puis transmettez ce
fichier nouvellement créé : plus de codes de contrôle, peu
de questions de présentation à régler à l'arrivée sur le
Macintosh.
5) Bonjour el S.O.S. ... - 41
De: Jean-Pierre BCULETEX (JPBI2) · 1 2 jan 88 08h31
J'ai un problème avec un fichier texte DOS 3.3 et ce
message : Erreur code 107 ? Oue doua-je faire ? Amitiés.
(PS) à quoi correspond le numéro de chaque disquette
Mac dans le bon de commande ?
Erreur 107 .- Bad Subscript error .- vous tentez de sortir
des limiles d'un lableau ; par exemple, DIM A$(12) :
PRINT A$(16). Devant une erreur dont on ne connait pas
le code, le plus simple - à part consulter le manuel du
Basic, du DOS ou de ProDOS - esl de supprimer le
ONERR qui récupère les erreurs. Un message en clair, et
accessoirement en anglais, s 'affichera.
Le numéro des disquettes Pom's représente le numéro de
la revue à laquelle elles correspondent. Ainsi, la disquette
28 contient tous les fichiers listés dans la revue 28.
5) Date avec AppleWrner Pom's 33 91
De: Jean-Marc MAYER (JMMI3) - 02 jan 88 14h04
•
Je rencontre un petit problème avec "Date et
AppleWriter sur un GS.
Sans programme de boat Qui met la date dans les octets
$BF90-$BF91 , l'utimaire me d� : vous n'avez pas de carte
Porn's n° 34
horloge, ce qui est normal.
J'ai installé REBOOT.SYSTEM importé de CalvaCom
mais lors d'un boot, j'ai toujours le message :
INSERERIREBOOT.
Oue faire ?
En fait, vous n'avez pas besoin de REBOOT.SYSTEM
puisque l'Apple IIGS comporte une carte horloge. C'est
votre version de ProDOS qui ne la reconnait pas : il faut
installer la version 1.3 ou 1.4 de ProDOS 8 sur votre
volume AppleWriter et tout rentrera dans l'ordre, les
fichiers seront datés.
En ce qui concerne REBOOT, si vous préfériez cette
solution, importez également MOOIF.REBOOT qui permet
de changer le nom de volume qu'attend cet utilitaire. Autre
solution transitoire, renommer votre volume de travail
/REBO O T.
3) Câble el Geslion bancaire (AR) 351
De:Thierry VICAIRE (TVIO) - 30 dec 87 21 h03
•
Je vous ennuie encore avec deux questions :
1 ) J'aurais besoin d'un câble de 3 m pour relier mon Min�el
1 B à mon MacPlus : quel serait le prix ?
2) Concernant le programme de gestion de compte
bancaire du numéro 20 de Pom's :
est-il compatible HFS ?
fonctionne-j-il obligatoirement avec Basic 2.0 ou son
RunTime est-il suffisant ?
la ventilation des dépenses peut·elle servir à
ventiler les recettes ?
1) 300,00 F franco
2) Ce programme ne fonctionnera normalement en
HFS qu'avec la version 3.0 du Basic Microsoft.
Basic 2.0 ou simplement RunTime 2.0 conviennent mais
pas en HF$.
Non, seules {es dépenses sont ventilées.
14) Graphisme et assembleur "AR' 911.
De:Jean-Louis ROCHE (JLRI 0) 27 dec 87 23h06
•
•
Problème :
Un petit bonhomme traverse l'écran ; 7 formes (shapes)
définissent le mouvement et un petit programme Basic
s'occupe de l'affichage. Cela fonctionne mais je me heurte
à un clignotement de l'écran.
Même travail en assembleur, mais après de vains essais,
je constate que �ça clignote toujours� ; on est loin du
défilement harmonieux que j'attendais ... J'en conclus qu'il y
69
a une astuce de programmation certainement bien connue
depuis la préhistoire de l'informatique !
Nous ne publions pas fe listing accompagnant ce message
car la solution est effectivement connue :
Il suffit de tester l'octet $COt9 et de n'afficher que
lorsqu'il est positif, c'est·à·dire qu'il ny a plus de balayage
en cours.
§1
BIT
$C019
BPL
§1
'Hroutine d ' affichage
Cette solution n'est valable qu'en assembleur : pour une
question de vitesse, pas question de tester en Basic ou
même d'appeler depuis le Basic ce micro�programme
avant IXORAW.
1 7) Cw'Pom_1ranstert 81
De: Alexis APLOGAN (AA1 1 ) . 29 dec 87 1 1 h55
�
JtE:-.JJ
10) Help PatchworXs · 1 7 1
De: Laurent AIUTI (LA24) . 26 dec 87 t4h5
Rét. Pom's 33 PatchworXs page 67
le patch qui remplace le caractère "damier" par le
caractère souris "return" sur AppleWorks 1 .4 ne
fonctionne pas, AppleWorks se plante et bloque le GS.
Pourtant j'ai exécuté à la lettre les indications.
y a I-il une erreur dans les Pokes ?
Amicalement.
Que vous dire ? Non, il ny a pas d'erreur, après exécution
des pokes, nous obtenons le résultat escompté. /1 ne peut
que 5 'agir d'une erreur d'adresse lors de la manipulation.
•
Avec Clv_pom's, je n'arrive pas à récupérer les
applications importés de CalvaCom. Lors de la
transformation par BinHex 4, la lecture de l'application
est interrompue par ERREUR CRC ($2A83).
Merci de votre répon se.
II est probable que vous ayez importé votre application en
mode "enregistrement de textes· ce qui a conduit à un
recodage des caractères accentués, donc à une erreur de
'checksum'. JI convient de se mettre en mode
"enregistrement de programmes·.
1Ju
6) Conseil... . 101
De: François MULLER (FMt7) . 1 t dec 87 15h31
aux utilisateurs du programme Min Bas (Pom's
27) de faire la modification suivante s'ils ne l'ont déjà
faite ...
Je conseille
Ligne 795 ajouter CHR$(31) 9 après le CHR$(14).
Ceci provoquera un saut de 9 lignes sur votre IMW /1 et
imprimera une page Min�el sur une page de papie r , ce qui
est plus pratique.
Amitiés •• FM ••
côté des imprimantes Laser'J!Vriter
On parCe âune nouvelk version au PostScript inugré à fa
'Trois nouveflts LasefWriter sont proposées par �ppCe :
LasefWriter âl.5poni6te att.t itats·'Unis, mais qurJ est Ce
auraoUs, oac ae 2°ofeui.lIe.s et, enfin f, un 6ac d enve(oppes.
numéro de version de votre imprimante ? Pour te savoir,
envoyez-fui Ce programme
f/.Su â-tUssous. lf tfonne acces­
soirement Ce nombre tÛ. pages imprimies et Ce nom tÛ.
Congiviu tripte, aensiti cfe.s noirs améCiorée, cartouc.fus pfus
•
{imprimante j c'est aussi {occasion cft voir tUs itt.5truction.s
non aooraées aans Ce numéro 24 ae Pom s.
L'envoi se fait cftpuis un %ac
à {aide tÛ. 'Down.Load ou
-
•
?), rapiâe et partiliJea6te : 35 po(jces, l?{o
1(çm, 2'Mo 1(çm - 29900 1'm
traitement cft te)(te.5.
•
LasefWriter II'JI.[IX coTtfIU! avec un processeur 68020 à
16Mfiz, 2 à 4foispfus rapide qlU! faLaser+. 'LrJett.5iott.5
/Iimes-1(pmanfirul
fMt 12 scalefont set/ont
mémoire prévues : 3Spofices, 1%0 'R.pm,jusqu.'à 12%0
100 700 move.to llt.rsUm (?{;J12 cft ver.;ion : )sfww sfww
1(çm - 399OO 1'm
100 680 nwveto 31 string
statusâut oegin printername pagecou.nt erui
'Eiks sont connecta6Us d un lI(jS ou
100 720 move.to (Imprimante : ) sfww sfww sfwwpage
à (autre est prévu.
6 string cvs ('J{rmore cft pages : ) sfww sfww
70
LaseflVriterJl'J'lE aoUe cft Ca aemitre version ae Po.st­
Script (42
Just!Te.;rJ. et aepuis un �ppCe If, par te port sim avec tout
%! nO version PostScript
aieni à un seul :J,{acinto.sfi, pifotie
parCes routines Q!licK:JJraw aud"it!Jv{ac : 4 poCias, I:J,{o
19 9OO 1'W
1(çm
LasefWriter lISe.
à un PC d CaMe
â�ppfe'TafK..PC et un système ae mise à niveauâun mmfèfe
Porn's
nO 34
Pe-ti-tes annonces
Ces petites annonces sont gratuites
et réservées aux abonnés. Elles
doivent bien entendu concerner
l'informatique. Pour les ventes de
logiciels, l'annonceur doit nous faire
parvenir une photocopie de la
facture d'achat.
Vends carte SSC (Ot/B7) : 750 F ­
câble SSC/Minitel : 150 F - Disk Il :
t 000 F - carte horloge (driver
ProDOS à adapter) : 100 F collection Micro-Systèmes (20 à
72) : faire offre.
Jean·Marc Corazza - Le Téoulet BI600 Gaillac {() 63 57 06 96
Vends imprimante Microline 80
parallèle connecteur Cenlronics :
1000 F.
Michel Le Port {() 47 20 BI BB.
Calva MLPIO
Recherche Langage Fortran UCSD
original pour Apple 11_
André Moreau - 73, rue du Roleur 59300 Valenciennes {() 27 45 1 6 1 2
V e n d s logiciels pour P C &
compatibles sous emballages scellés,
Multiplan 3, VP Expert : faire offre.
Daniel Ronxin - Laignelet - 35133
Fougères {() 99 99 33 71
Vends Apple Ile 65C02 1 2BKo,
Moniteur ambre, 2 lecteurs 1 40Ko,
Solution du nO
ventilateur, pavé numérique,
joystick : 5000 F - Machine à écrire
Underwood électronique à
marguerite avec mémoire : 3500 F.
M. Calvet {() 45 97 44 B2
Recherche Compilateur C Aztec
d'origine, complet avec documen­
tation pour Apple Ile.
Norbert Steinberg - 24 avenue du
Moulin - 7B230 Le Pecq {() dom : 39
58 42 71 {() Bx 64 46 2650
Contact Pour partager expérience
en assembleur, prendre contact
avec :
Emmanuel Bougeard - 3Bis
boulevard des 3 croix - 35000
Rennes {() le week-€nd 99 59 37 06
Recherche programmes d'origine :
The Bridge, MultiScribe 2.0, logiciels
d'astrologie, Astronomie, Généalogie
sur Apple Il, Mac, IBM et tous
logiciels de démonstration en version
limitée_
Club informatique ForlNext - 1 5
square Costes 91 070 Bondoufle {()
64 97 67 09 CalvaCom CliO & PBI6
Vends machine à écrire IBM à
sphères : 1500 F
Maurice Trecul . 3, boulevard de
Verdun - Moigny sur école - 91490
Milly-la-Forêt (() (1) 64 9B 42 35
33
1
- Courroies
2 - Tel Bdlzdc
3 - Vrdiment proteshnte
4 - Opaline
5 - FloUe - Bye-bye
6 - Il peut s'agir d'une zone
- Mal vieilli - Arc en ciel
8 - Empotés
7
- Va au fast foot - Débarrasée
Verticalement
la
-
Félicitations et rendez-vou s
au prochain numéro pour le
résultat de notre sondage et
un autre tirage au sort parmi
les abonnés (rappelons que
nous offrons programmes de
valeur et documentation
techniquesl_
l a - Dégoutter - Fins des fléaux
1 ���+-+-+-1-1-1-1-�
2 ���+-+-+-1-1-1-1-�
�I-I-I-I-If-f-f-f56 1-1-1-1, H-t-f-f-f-
3
4
1 - Cuirs équestres
2 - Vit sur la Loire- mais pas dans la Loire
8
4 - Certaine argile
5 - Boue - Aufwiedersehen
6 - Peut tourner à 14 psychose
7 - Permet aux IBM d'y voir clair 9
8 - Retouchés
9 - lunch - De moins en moins
- Nacrés
1
3 - Vociférante
M. M i c h e l
C o s s e t de
Caudebec en Caux à reçu un
traitement de textes, M.
Jean Rumeau, un trai­
tement de textes doublé d'un
programme de mailing, M.
Patrice Verdun de Villiers
le Mahieu, un traitement de
textes, et M_ B e r t r a n d
G u i l l i n d'Épernay u n
tableur.
Problème 34 pdr Joëlle Pidrd
Horizontdlement
9
Comme promis, nous avons
tiré au sort des noms parmi
les bulletins d'abonnement
depuis parution du dernier
numéro,
'--+-+_
r
Exhaler - Chevilles
Pom's n°
34
71
Nous avons découvert
qu'on peut avoir
le sens des affaires ...
Avoir le sens des affaires est devenu monnaie courante.
Rien n'est plus banal que de commencer une entreprise à deux
dans un garage, et de la retrouver 10 ans plus tard dans les 200 plus
grandes entreprises amêricaines.
Ce qui est plus rare, c'est de conserver les vraies valeurs et d'avoir
le sens de la famille.
De 1984 à 1987, Macintosh a beaucoup progressé.
Sa mémoire s'est considérablement étendue, de 1 à 8 méga­
octets, ses menus se sont sophistiqués, hiérarchisés, sa bibUotlièque
de logidels est devenue gigantesque.
Cependant, il n'a jamais oublié ce qu'il avait appris de plus
important: l'homme.
Après Macintosh plus et Madntosh SE, Madntosh II en est une
nouveUe preuve.
et celui de la famille aussi.
Les menus déroulants sont toujours présents, bien qu'ils se
déroulent beaucoup plus vite.
Les capacités graphiques sont toujours les memes a 16 millions
de couleurs près.
.
C'est une machine toujours aussi intuitive, disposant de 1 a
8 mégaoctets de mémoire vive (et meme plus), d'un disque dur
interne de 20 a 80 mégaoctets, pour que toute la logique de votre
travail y trouve son aise.
Ouvert a tous, Macintosh li est aujourd'hui ouvert a tout grâce à
ses 6 connecteurs d'extension.
Mais pourquoi au juste les hommes ont-ils le sens de la famille ?
Parce qu'ils n'aiment pas renoncer ace qui leur
est familier, ni s'encombrer l'esprit de règles inutiles, et parce que le progrès et l'expérience doivent
etrevêcuscomme un enrichissement et non comme
un changement systématique de méthode.
Et comme derrière chaque utilisateur se cache
•
un homme, nous avons en définitive encore plus
Apple
le sens des affaires.
,-"'.
Macintosh II
i
f
•
i1
l
�
•
�
�
1
1
•
t
t1
•
]
i
�
•
t
i1
i
J
1
J
•
!
r
�
1
•
z
J
•
!
1
•
j
Revues Pom's
n'8
n'14
n'19
n' 24
n' 29
n' 34
35,00 F O
40,00 F O
40,00 F O
40,00 F 0
45,00 F 0
45,00 F O
n° 1 0
n° 15
n' 20
n'25
n'30
40,00 F O
40,00 F O
40,00 F O
40,00 F O
45,00 F O
n° 1 1
n° 1 6
n° 21
n'26
n° 31
40,00 F O
40,00 F O
40,00 F O
40,00 F O
45,00 F O
nO 1 2
n° 17
n'22
n'V
n' 32
40,00 F O
40,00 F O
40,00 F O
45,00 F O
45,00 F 0
n' 1 3 40,00 F O
n' 18 40,00 F 0
n' 23 40,00 F 0
n' 28 45,00 F 0
n' 33 45,00 F 0
Oisquenes d'accompagnement de Pom's pour Apple lI, en 140Ko - 5,25 pouces
n° 1+2 60,00 F 0
n'7 60,00 F O
n' 1 2 60,00 F 0
n° 17 60,00 F O
n'22 60,00 F O
n° 27 60,00 F O
n032 60,00 F O
n' 3 60,00 F O
n'S 60,00 F O
nO 1 3 60,00 F O
n ° 1 8 60,00 F O
n° 23 60,00 F O
n'28 60,00 F O
n 0 33 60,00 F O
n' 4
n'9
n° 1 4
n° 1 9
60,00 F O
60,00 F O
60,00 F O
60,00 F O
n024 60,00 F O
n' 29 60,00 F O
n' 34 60,00 F O
n' 5
n0 10
n015
n'20
n'25
n030
60,00 F O
60,00 F O
60,00 F O
60,00 F O
60,00 F O
60,00 F O
n'6
nO 11
n0 16
n° 21
n'26
n° 31
Disquettes d'accompagnement de Pom's pour Apple ][, en SOOKo - 3,5 pouces
n'29 80,00 F O
n' 34 80,00 F 0
n' 30 80,00 F O
n' 31 80,00 F O
60,00 FO
60,00 F O
60,00 F O
60,00 F 0
60,00 F O
60,00 F O
n' 32 80,00 F 0
n' 33 80,00 F 0
nO 1 8
n° 23
n'28
nO 33
nO 19 80,00 F O
n° 24 80,00 F O
n'29 80,00 F O
nO 34 80,00 F O
Disquettes d'accompagnement de Pom's pour Macintosh
nO 14+15+16
n'20 80,00 F 0
n° 21
n025 80,00 F O
n' 26
n' 31
n'30 80,00 F O
150,00 F O
80,00 F O
80,00 F 0
80,00 F 0
n° 17
n'22
n'V
n° 32
80,00 F O
80,00 F O
80,00 F O
80,00 F O
80,00 F O
80,00 F O
80,00 F O
80,00 F O
Recueils de la revue Pom's (regroupent quatre numéros de Pom's)
140,00 F O
200,00 F O
n' 1 (revues 1 à 4)
Oisquene 1 à 4
Logiciels pour Apple rr
'
Pom Link 3.0 140Ko 450,00 F 0
Clv_Pom's 140Ko
200,00 F O
InterPom's 2,0 14OKo 200,00 F 0
E.P,E 5,1 140Ko
200,00 F 0
200,00 F 0
Ordico 140Ko
Logicie� pour Macirtosh
Excel e"icace 400Ko t 95,00 F 0
'450,00 F 0
Pom_Link 3.0
n' 2 (revues 5 à 8)
Oisquene 5 à 8
140,00 F 0
200,00 F O
'
Pom_Link 3.0 800Ko 450,00 F 0
Clv_Pom's BOOKo
200,00 F O
InterPom's 2.0 8OOKo 200,00 F 0
E.P,ES,1 8OOKo
200,00 F O
Dominos t4OKo
200,00 F O
BananaSo" t40Ko
Édit. Vidéotex 140Ko
LudoJogic 14OKo
MaxMoniteur 140 Ko
COGO (src) t40Ko
200,00 F O
200,00 F 0
80,00 F 0
150,00 F 0
200,00 F O
Excel efficace BOOKo t75,OO F O
Clv]om's
200,00 F O
MacAstuces
InterPom's 2.0
200,00 F O
Disquettes de logiciels 'domaine public' pour Macintosh
Mac 'A' 0
'B' 0
'C' 0
'0' 0
n' 3 (revues 9 à 12) 140,OO F O
Oisquene 9 à 12
200,00 F O
'E' 0
'F' 0
'G' 0
Reliures toilées !X)ur 6 numéros de Pom's (un an) :
'l' 0
'J' 0
80,00 F pardisquena
F
exemplaire(s) à 60,00 F, soit
,à:
Abonnements pour sil numéros à partir du
'H' 0
450,00 F O
225,00 F 0
la revue Pom'sseule
• revue et les disque"es Apple n BOOK 625,00 F 0
la revue et les disque"es Apple II 140K 525,00 F O
625,00 F 0
• revue et les disque"es Macintosh
925,00 F 0
1025,00 F 0
la revue Pom's, les disque"es Apple II 140Ko - 5' 1/4 at les disquettes Macintosh
la revue Pom's, les disque"" Apple II BOOKo - 3' 1/2 et les disquettes Macintosh
Envoyez ce bon el VOIre règlemeri à : �dJtIons ŒV - 1 2, ru. d'AIljou - 78000 Versalnes
Nom :
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
Adresse :
__
__
__
__
_
__
_
__
__
__
_
_
_
__
__
_
__
_
__
__
__
__
__
__
_
__
__
_
__
_
_
_
_
Règlement par: CBlVisaJEuroiMaslerCard
numéro de la carte
Montant
____
,
____
__
F
____
____
0..
Chèque bancaire 0
_ _ __
Signature :
'Remise de 10% sur Pom_Link 3.1 pour les abonnés
Chèque postal 0
date d'expiration
__
__
Mandat 0
__
--------;Détecteur d'appels téléphoniques
Cet appareil. pour Apple Il ou Macintosh. autorise une
surveillance de la ligne té.l�phon1que pour l'utllisatlon de
l'Apple comme serveur avec un logiciel tel, par exemple,
Répom'deur publié dans 1e numéro 34 de Porn's.
Câble-interface Apple - Minitel
Pour Caire fonctionner les programmes suivants :
Minitel/l pour Macintosh. �1inBas pour Apple H+.
/ le, /Ie+, / le et IIGS : programme permettant
l'enregistrement des écrans Minitel la restitution à loisir
hors réseau, le stockage et/ou l'impression de copies
d'écran du Minitel, et aussi l'envoi de textes ou messages
sur Wl serveur. Programme du numéro 27 de Porn's.
•
•
InterPom5 1 . 0 (et plus) pour Apple 11+. /le. /Ie+. /Ic.
nGS
et Macintosh : programme de téléchargement entre
Apple J[ et/ou Apple Il et Macintosh. Transmission de
n'importe quel type de fichier (système, texte. binaire.
Basic ) en utiUsant le Modem du Minitel. Version 1.0
publiée dans le numéro 28 de Porn's.
•..
•
T_pom's pour Apple 11+, Ile, //e+, fic, IIGS· et
Macintosh : récupération de l'annuaire téléphonique sous
la fonne de fichiers texte. Nwnéro 30 de Pom's.
•
Clv_Pom's pour Apple 11+. /le. / /e+, / /c et IIGS· et
Macintosh : programmes de communication pour
CalvaCorn et serveurs 'ASCD'. Numéro 31 de Pom's.
•
Paint - Minitel pour Mac et HGR - Minitel pour
Apple 11+. //e, //e+. / /c, IGS· : graphisme et Minitel.
programmes proposés dans le numéro 33 de Porn's,
•
Répom'deurpour Macintosh, Apple U+, //e, //e+, / /c
et IIGS· :
répondeur/enregistreur télématique
lnterrogeable 4 distance publié dans le numéro 34,
• sur u n Apple IIGS. ce programme fonctionne
Indüféremment avec le port série intégré ou la carte Super
Série Apple, Pour connecter le port intégré du DGS, utilisez
un cable pour Macintosh Plus.
k-------
Je désire recevoir :
détecteur d'appels Apple //
détecteur d'appels Macintoshcâble Minitel/Apple // & SSC
câble Minitel/Apple / /c
cAble MinlteljMac 128. 512K
cAble Minitel/Mac Plus. Des
cAble Minitel/IBM pcTM
4 500,00 F
__
4 500,00 F
A 225,00 F
Il �25,OO F
A. 225,00 F
A 225,00 F
4. 225,00 F
A. 225.00 F
__
•
__
•
__
__
__
__
__
câble de llaison locale··
• si vous êtes abonnés. vous bénéficiez d'une remise de
10% sur le prix du détecteur, soit 450 F au lieu de 500 F.
.. préciser le type des deux machines à reUer:
Mac_ 512, Mac Plus, Apple Ile, IIc, DGS, mM perM
,
Envols par avion : ajoutez 15 F par câble et/ou détecteur
Éditions MEV - 12, rue d'Anjou - 78000 Versailles
Nom :
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
__
Adresse :
En cas
de règlement par CB/Vlsa/Eurocard/Mastercard :
nwnéro de la carte
date d'expiration
Montant
_
_
_
_
•
_ _
F
Signature :
l:�PROTECTED
Backups ll'I3y be �e
using standard copying
procedures.
PPleworkSN Macro Power! Tum
A
any series of keystrokes inta a
new one-keystroke commando
Adds many new features to your Ward
ProcessoT, Data Base and Spreadsheet.