Text content (OCR)
La revue francophone indépendante pour les utilisateurs d'Apple
op)
ra
=
i ©
Gestion Z| & |
Personnelle ‘ at
SurApplell jz ®
et Macintosh: : =
HyperCard =| au
et TimeOut
IMM 2#2
wy CHESSMASTER 2100
NIVEAUX DE JEU
LE SOMMET DE LA REFLEXION INFORMATIQUE : CHESSMASTER
2000 + L'EQUIVALENT DE 10 ANNEES DE RECHERCHE
BIBLIOTHEQUE D’OUVERTURES CONSIDERABLE (PLUS DE 150000
COUPS)
NOMBRE ILLIMITE DE NIVEAUX DE JEU, DE DEBUTANT A GRAND
Marrre
POUR CHAQUE NIVEAU, OPIION ‘JEU SIMPLIFIE"
EN MODE APPRENTISSAGE, CHEessMasTer 2100 InpigUuE Les
COUPS ET LES PRISES POSSIBLES
TEMPS DE REFLEXION
CHOIX DU TEMPS DE REFLEXION PAR COUP, PAR PARTIE,
EGALEMENT EN COUPS PAR MINUTE ET TEMPS STANDARDS
DES TOURNOIS
OPHION ‘TEMPS EGAL, OPTION ‘BLITz’
DEs AIDES
CuessMastTer 2100 PEUT SUGGERER UN COUP, REVENIR EN
ARRIERE ET REJOUER LES COUPS
POSSIBILITE DE CHANGER DE COTE A TOUS MOMENTS
LE MAITRE
Pom’s VOUS PROPOSE
AUJOURD'HUI SUR GS UNE
EXTRAORDINAIRE VERSION
DU MAITRE DES JEUX,
CAPABLE DE
PERFORMANCES
D'EXCEPTION.
~
AFFICHAGE
UTISATION DES REssouRcEs bu GS : Super Haute
RESOLUTION, MENUS DEROULANTS, SOURIS...
PeENDUTES TEMPS REI. A L'ECRAN
AFFICHAGE DE L'ECHIQUIER EN 2D ou 3D
PosSIDILITE DE DESSINER SOI-MEME LES PIECES, DE TOURNER
L'ECHIQUIER PAR QUART DE TOUR, DE JOUER “A L'AVEUGLE
AFFICHAGE POSSIBLE DE VOS COMMENTAIRES SUR LES COUPS,
DES PIECES DEJA PRISES, DE LA REFLEXION DE
CHESSMASTER
Pour PROGRESSER
AFFICHAGE POSSIBLE DE LA REFLEXION DE CHessMASTER
PossIBILITE D'ANALYSE DES PARTIES
110 PARTIES DE MAITRES ENREGISTREES AVEC COMMENTAIRES
SAUVEGARDE ET IMPRESSION DES PARTIES
RESOLUTION DE PROBLEMES D’ECHECS
PARTIES A ‘AVANTAGES’
Move b’EMPLOI COMPLET Pom's, EN FRANCAIS, COMPRENANT
UN MANUEL D’APPRENTISSAGE DE LA FEDERATION US
D'ECHECS ET UN HISTORIQUE DES ECHECS PRESENTANT LES
Marrres
De Pius, voTRE GS parle...
Editions MEV — 12, rue d'Anjou — 78000 Versailles ® (1) 39 51 24 43 — Minitel (1) 39 53 04 40
Numéro 41
mars-avril 1989
x + * _f
Editorial %s Page 7
Hervé Thiriez
68020, 68030, 68881, 68851
La famille 68000
Alain Raynaud
Page 45
Révolutionnaire ?
Les calendriers
Jean Perrot
Trey} (Hse
Te
ss) Ea Page 8
Disquette Macintosh 41
Page 45
AppleWorks et UltraMacros
Budget familial
Dimitri Geystor
AppleWorks
Ultimes patches
I Eric Weyland
GS
“elt | 7G
qe | a) ———|
Page 49
me
=| a) — Page 16
Bram, suite
Ice Jean-Yves Bourdin
| Page 22
Les nouveaux
TimeOut
ie
-_) eg =
Dimitri Geystor
Page 53
Un nouveau TimeOut
Calendrier
Robert Coustal
Les nouvelles DPA
pour GS
Page 56
Apple // for ever
Page 39
Les ‘news’
= Ariel Sebban
ss) Gs)
Ics ;
ue . Jean-Yves Bourdin
ae) gaa ee] Pace 20 7re]} [Liss]
2) aaa ic | Page 58
Cahier HyperCard Page 34 7
HyperComptes Disquette Apple // 41
Page 65
me] Christian Piard et
= Jean-l.uc Bazanegue .
= Courrier des Lecteurs
Macintosh Page 69
‘< Petites annonces
Mots croisés Page 74
Les annonceurs : Apple : pages 4 & 5; America-Direct : page 69 ; Bréjoux AE : pages 62 & 63 ; Gribouille SA : page 58.
Editions MEV - 12, rue d’Anjou - 78000 Versailles. Tél. : (1) 39 51 24 43. Directeur de la publication : Hervé Thiriez
Pom’s n° 41
Ww
Ou se serait arrétée imagination des hommes
LEONARDO DA VINCI
La
Machine
Volante
Apple, We logo Apple, Macintash sont des marques dépesées de Apple Computer Inc. Pour plus ¢ informations, tapez 3614 code: Apple.
si Apple avait existé légérement plus tot?
DE VINCI
Le SATELLITE
Les outils
évoluent.
Echapperez-vous
aux TimeOut ?
Les TimeOut sont des pro-
grammes qui se greffent
sur AppleWorks. Ils sont
disponibles 4 tout instant,
sans quitter AppleWorks,
avec l'ergonomie Apple-
Works. Pom’s les a adapté
(en exclusivité) 4 la version
francaise 1.4 et livre des
manuels de référence en
francais.
Comment leur échapper ?
Pas simple, car se passer du
progrés, c'est un peu re-
venir aux roues dentées. Il
va falloir renoncer 4 des
possibilités étonnantes :
Rendre toutes les opérations
automatiques, utiliser la souris
partout dans AppleWorks avec
TimeQur UttraMacros... Créer des
menus a l'intérieur de macro-
commandes et profiter de Loules
les macros de MacroToots.
Imprimer avec la qualité
Macintosh sur une cinquantaine
d'imprimantes 4a aiguilles grace a
TimeOur SurerFonts et ses 47 po-
lices de caractéres...
Imprimer les feuilles de calcul ‘a
litalienne’, en plusieurs tailles...
TimeOut SESPREAD.
Représenter instantanément les
données du tableur sous forme de
graphes avec TimeOut Grapu,
TimeOut Part, ce logiciel de
dessin en double HGR, intégré a
AppleWorks, avec ses menus
déroulants.
DeskToors I et ses accessoires,
calculette, calepin, calendrier...
méme un crypteur de fichier pour
Jes documents confidentiels.
Copier des fichiers, les comparer,
les renommer, en changer le type
etc., travailler sur les volumes,
toujours sans quitter Apple-
Works, c'est TimeOut FrreMaster.
TmeOur PowerPack l'ensemble
d'applications intégrées pour
trier des colonnes, créer trois bu-
reaux (36 fichiers) et trois presse-
papiers, lancer un autre pro-
gramme et revenir a AppleWorks,
charger les catalogues dans la
base de données, classer le
bureau, etc.
Travailler plus efficacement sur le
tableur ? TrmzOur SrreapToors :
se simplifier les largeurs de
colonnes, recopier des lignes
dans des colonnes — ou I'inverse.
Transformer les formules en
valeurs, copier des blocs et lier des
feuilles de calculs...
Notes descriptives sur simple
demande. Bonde commande enfin
de numéro,
Editions MEV
12, rue d'Anjou
78000 Versailles
© (1) 39 51 24 43
Minitel (1) 39 53 04 40
TimeOut,
le progres
simple
Ont collaboré & ce numéro
Jean-Luc Bazanegue - Jean-Yves Boudin
Robert Coustal - Olivier Herz
Daniel Lurot - Gérard Michel
Jean Perrot - Christian Piard
Joelle Piard - Alain Raynaud
Ariel Sebban - Hervé Thiriez
Eric Weyland
Directeur de la publication
rédacteur en chef
Hervé Thiriez
Rédacteurs
Jean-Luc Bazanegue - Christian Piard
Siege soclal
Editions MEV — 12, rue d’ Anjou
78000 Versailles — = (1) 39 51 24 43
Serveur Minitel (1) 39 53 04 40
Publicité
Editions MEV
Diffusion
N.M.P.P.
Impression
Berger-Levrault
18, rue des Glacis 54000 Nancy
83.35.6144
Photos
CP & JLB
Photogravure
Graphotec 21, chemin de la Tour
92350 Le Plessis-Robinson
(1) 46 3044 49
Pom’s est une revue indépendante non
tattachée & Apple Computer, Inc. ni
& Apple Computer France S.A.R.L.
Apple, le logo Apple, Mac et le
Jogo Macintosh sont des
marques déposées
d’Apple Computer, Inc.
TBM est une marque déposée de Interna-
tional Business Machine.
PC et AT sont des marques déposées
de la Société IBM.
©Fditions MEV 1989
Toute reproduction intégrale ou partielle,
effectuée par quelque procédé que ce soit,
sans l'accord écrit d'Editions MEV,
constitue une contrefagon.
Loi du 11 mars 1957, articles 425 et
suivants du Code Pénal.
Droits de traduction, de reproduction et
d'adaptation réservés pour lous pays.
Editorial
Le Macintosh gére intelligemment ses périphériques, clavier
francais, US ou autre, il n'y a pas d'adaptation de logiciel a
faire. Aujourd'hui, avec l'arrivée du Macintosh IIcx, l'écran
A4 vertical sort du domaine de la machine spécialisée de
traitement de textes. Une page complete avec Excel,
PageMaker ou MacWrite, sympathique, non ? Détails dans
les news d'Ariel Sebban.
Ce numéro est articulé autour de deux axes. La ‘gestion
familiaie’ d'abord : nos auteurs ont résolu la question sur
l'Apple // avec UltraMacros et sur le Mac avec HyperCard,les |
deux logiciels se révélant des langages remarquables.
Deuxiéme théme, les calendriers, abordés de deux facgons trés
différentes: le bicentenaire inspire nos auteurs ence débutde
germinal...
Je vous avais promis de nouveaux produils? Les voici: Sargon
IV, jeud'échecs sur Macintosh, en couleurs sur Mac Il et, pour
les trés nombreux utilisateurs d'AppleWorks, des TimeOut
étonnants. Liens entre feuilles de calcul du tableur, cryptage
de fichiers, trois bureaux 4 la fois (36 fichiers), des accessoires
de bureaux, efc. Vous saurez loul sous la plume de Dimitri
Geystor.
Nos auteurs sont comme ¢a: Daniel Lurot ouvre la voie des
TimeOut francais et, aujourd'hui, dans Pom’s et sur sa
disquette d'accompagnement voici la deuxiéme application
francaise pour AppleWorks. Si mon intuition est fondée,
vous devriez avoir bientét, disons dans deux mois, une
application TO signée D, L.
Hervé Thiriez
Pom’s n° 41
REVOLUTIONNAIRE ?
Les calendriers
Voici le résultat d’une étude sur trois types de
calendriers :
Calendriers annuels avec indication de la date de
Paques ;
0 Calendriers liturgiques ;
Calendrier républicain.
Lequel d’entre nous n/a pas essayé de déterminer le
jour de sa naissance ou bien d’obtenir le calendrier
complet de l’année de sa naissance ?
Calendriers
Le 200@me anniversaire de la
Révolution de 1789 m/a incité a
construire un programme qui me
permettrait de traduire dans le
calendrier grégorien (le nétre
actuellement) n’importe quel mois
révolutionnaire, depuis le 22
septembre 1792 jusqu’au ler
janvier 1806.
En fait le calendrier révolution-
naire a été crée le 15 Vendémiaire
de Van 2 (6 octobre 1793) mais mis
en application & dater du ler
Vendémiaire de I’an 1 (22
septembre 1792). Tout en sachant
que beaucoup de choses ont déja
été dites sur les calendriers en
général, j’ai pourtant voulu
construire un programme personnel
qui donne 4 la fois le calendrier
lui-méme, mais aussi la date de
Paques. Toutefois cela ne me
semblait vraiment intéressant que
dans la mesure ow on pouvait tout
imprimer. C’est ainsi que sont nés
Calendriers.2, Liturgie, Calend.
Histo, Cal.Repub. Ecrits en Basic
Jean Perrot
0 Calend.Histo donne des aper-
gus historiques, mathémati-
ques et astronomiques.
© Cal.Repub donne, pour chaque
mois républicain, les dates
grégoriennes qui correspondent
a chacun de ses 30 jours. Une
petite précision, pourtant :
pour pouvoir imprimer un mois
républicain, sur la DMP, j'ai
~ ~~
M. =
| | ere ce
DATE:
ProDOS, ces programmes se
suffisent 4 eux-mémes puisqu’ils
contiennent toutes les explications
souhaitables. Pour les lancer, un
“Run Menu” suffit !
0 Calendriers.2 affiche a1’écran
et imprime tout calendrier
annuel.
0 Liturgie calcule les dates des
fétes liturgiques Romaines.
utilisé la routine Copie.40.80
qui n’est autre que TXT.DMP
parue dans Pom’s n° 34, sous la
plume de Yvan Béard... que je
remercie ici de m’avoir sim-
plifié le travail.
Programme
Calendriers.2
Ce programme sort, a I’écran,
Pom’s n° 41
n’importe quel calendrier annuel
depuis l’an 45 avant Jésus-
Christ... Et, dans I’état actuel des
choses, il est valable jusqu’en I’an
4317. Mais ce programme, et c’est
1a son point fort, peut imprimer
(sur DMP) un calendrier annuel.
Pour avoir les dates des fétes
chrétiennes consulter le program-
me ‘Liturgie’. J’utilise 2 formules
dans ce programme :
0 Celle de Zeller qui calcule le
numéro de la semaine pour le
mois: dimanche = 1 , lundi =
2..., samedi = 7.
0 Une formule personnelle ins-
pirée d’une formule de Gauss,
découverte dans le Larousse du
XxXéme sitcle (Editionde
1932). J’en ai modifié la
forme et déterminé les para-
métres pour rendre possible le
calcul de la date de Paques sur
une période plus longue.
Programme Liturgie
Le nouveau calendrier liturgique
Romain, promulgué par le décret
de la congrégation du Rite, est
entré en vigueur le ler janvier
1970. Le présent programme tient
compte de ce décret. Avant 1970 il
donne les dates des fétes mobiles
liées 4 Paques. Aprés 1970 il
donne les dates des fétes fixes et
celles des fétes mobiles liées ou
non a Paques.
Programme
Cal. Repub
Saisissez le mois républicain puis
Vannée républicaine... et vous
obtiendrez ce mois avec la
traduction dans le calendrier
grégorien. Le calendrier républi-
cain commence a l’équinoxe
d’automne (22 septembre 1792).
Chaque mois comporte 30 jours
divisés en 3 décades.
Les mois républicains :
Vendémiaire, Brumaire, Fri-
maire, Nivose, Pluviose, Ventose,
Germina, Floréal, Prairial,
Messidor, Fructidor, Thermidor.
Des polices
provisoires
Vous souhaitez utilisez une police
extraite de la disquette Po-
LICES.007 par exemple, mais
vous ne souhaitez pas modifier la
configuration de SuperFonts pour
lul dire d'aller chercher ses polices
sur ce nouveau disque.
Indiquez lui simplement
<l=geneva.12>
<2=/policos.007/kawasaki.12>
SuperFonts cherchera la police
Geneva [a ouil trouve ses polices
habituellement et la kawasaki sur
votre disque Polices.007.
En bref, on peut définir les polices
de caractéres sous forme de che-
mins d'accés complets. |
Les jours républicains :
Primidi, Duodi, Tridi, Quartidi,
Quintidi, Sextidi, Septidi,
Octidi, Nonidi, Décadi.
Les années républicaines vont de
Van 1 (1792) a I’an 14 (1805). A la
fin de Thermidor on ajoutait 5
jours (6 jours en fin des Ans 3 et
11): le 6@me jour supplémentaire
était ‘le Jour de la Révolution’
Le calendrier républicain a été
aboli par Napoléon le ler janvier
1806.
Historique des
calendriers
Sans entrer dans des considéra-
tions scientifiques trop élevées, on
définit trois notions fondamen-
tales :
Jour solaire moyen
® C’est le temps moyen entre 2
levers consécutifs du Soleil.
Mois lunaire
© C’est le temps qui sépare 2
Nouvelles Lunes consécutives...
Il vaut approximativement
29,50 jours solaires moyens.
Année tropique
0 C’est le temps qui sépare 2
équinoxes de printemps consé-
cutifs (deux passages successifs
au point Vernal), soit
365,24219879 jours.
Calendriers lunaires
% L’année a 354 jours répartis en
12 mois lunaires qui comportent
alternativement 29 et 30
jours...
A noter que 354 est le produit de
29,50 par 12 aussi bien que la
somme des produits de 29 par 6 et
de 30 par 6. Le calendrier
musulman est un calendrier
lunaire...
Calendriers
luni-solaires
L’année a aussi 12 mois mais ils
sont reglés pour commencer et finir
avec lalunaison... De temps 4
autre on ajoute un treiziéme mois,
pour que le début de l’année ait
lieu a la méme saison. De tels
calendriers servent encore a
lV'Eglise pour fixer la date de
Paques.
Calendriers solaires
Abandonnant les phases dela
lune, les Egyptiens sont les
premiers a fixer une année de 360
jours (12 mois de 30 jours).
Leur année étant plus courte que
Yannée tropique, ils ajoutaient 5
jours, chaque année, aprés le
12¢me mois, pour rétablir
Véquilibre.
Calendrier julien
En l’an 46 avant Jésus-Christ, le
calendrier religieux était en
avance de 67 jours sur le temps
vrai...
Aidé par l’astronome Grec
Sosigene d’Alexandrie, César
décréta que le premier jour de
Yannée serait le ler janvier (au
lieu du ler mars), puis il fixa
l'année moyenne & 365,25 jours : 3
années de 365 jours suivies d’une
année de 366 jours (redoublement
Pom’s n° 41
10
d’un jour, le 6&me jour avant les
calendes de mars) d’ou le nom de
bissextile.
Le mois de juillet fat consacré a
Jules César, et il efit 31 jours. Par
la suite on décida que le mois qui
suit juillet serait consacré a
Auguste, on l’appela aout et
comme il ne pouvait avoir, lui
aussi, que 31 jours on décida de
retirer un jour au mois de février.
Calendrier grégorien
L’année julienne avait une durée
excessive de 11 minutes 14
secondes, ce qui représentait une
différence de 10 jours en 1582. Le
24 février 1582 une bulle du pape
Grégoire XIII instaura un nouveau
calendrier qui supprimait 3 jours
tous les 400 ans (les années
séculaires dont le millésime ne
serait pas divisible par 4 ne
seraient plus bissextiles).
Ainsi 1600 et 2000 sont bissextiles
mais 1700, 1800 et 1900 ne le sont
pas.
Pour rattrapper ce retard de 10
jours il fut décidé que le
lendemain du 4 octobre serait le 15
octobre. En fait, cette réforme ne
devint valable en France qu’en
décembre: le dimanche 9
décembre fat immédiatement
suivi du lundi 20 décembre. Ainsi,
si on pose la question : que s’est-il
passé, en France, le lundi 10
décembre 1582 ?... On répondra
«Rien» puisque ce jour n’a pas
exislé.
Le calendrier grégorien restera
valable jusqu’en l’an 4317. Une
correction de 1 jour devra étre
faite a cette époque afin de
rétablir l’équilibre entre calen-
driers et saisons. L’année tropique
vaut en effet 365,24219879 jours et
Yannée grégorienne 365,2425 jours
soit une différence de 0,0003 jour
ou bien 1 jour tous les 3333 ans.
La semaine
La division du temps par périodes
de 7 jours était connue depuis la
plus haute antiquité. La Bible
consacra d’ailleurs ce systéme, qui
entra complétement dans les
moeurs sous le régne de I/Empereur
Auguste.
Le premier jour (dimanche) ‘dies
dominicus’ était le jour du
Seigneur, le second (lundi) le jour
de la Lune, les 5 autres jours
étaient consacrés a des divinités
particulitres. mardi (Mars), mer-
credi (Mercure), jeudi (Jupiter),
vendredi (Vénus) et samedi
(Saturne). Dimanche fat déclaré
jour de repos le 3 juillet 321 (loi de
VEmpereur Constantin qui offi-
cialisa ainsi la division du temps
en semaines).
Remarque
© les 4 derniers mois de l'année
portent encore la trace de
V’époque ot l'année commencait
le ler mars : septembre (7@me
mois), octobre (8@me mois),
novembre (9¢me mois) ct
décembre (10@me mois).
G
a
InterPom’s
LE LIEN ENTRE
Macintosu,
IBM®PC
eT AppLe //
EN LOCAL, A DISTANCE
PAR MINITEL, MODEM,
CARTE Kortex™
D'UN APPLE // VERS UN
COMPATIBLE, D'UN
MACINTOSH VERS UN
AUTRE, OU DANS TOUTE
AUTRE COMBINAISON,
InteRPom’s 2.0 EsT LA
SOLUTION DE TRANSFERT
DE FICHIERS, FIABLE,
RAPIDE, ERGONOMIQUE,
SIMPLE, ECONOMIQUE.
RENSEIGNEMENTS }
Pom's © (1) 39 51 24 43
BON DE COMMANDE PAGE 70/71
Protocote A.L.C. ExcLusiF
Pom's
Programme MENU
100 DS = CHR$ (4): PRINT D$"PRE3": PRINT 170 POKE 1403,10: PRINT IV$" 4 "NR$"...voir CA
110 IVS = CHKS (15):NRS = CHRS (14) L.REPUB (calendrier republicain) PRINT
120 POKE 1403,35: PRINT IV$" MENU "NR$: PRI 190 POKE 1403,10: PRINT IVS" 5 “NR$"..,quitter
NT le programme"
130 PRINT "Voulez-vous :": PRINT 210 VTAB 16: PRINT "Votre choix ? ";: GET H$:
140 POKE 1403,10: PRINT IV$" 1 "NR$"...voir CA PRINT
LEND.HISTO (quelques notions sur les calen 220 IF H$ - "1" THEN PRINT D$"RUN CALEND.HIST
driers)": PRINT o"
1250 POKE 1403,10: PRINT IVS" 2 “NR$"...voir CA 230 IF H¢ = "2" THEN PRINT D$"RUN CALENDRIERS
LENDRIERS.2 (calendriers annuels)": PRINT 2"
160 POKE 1403,10: PRINT IVS" 3 “NRS"...voir LI 240 IF H$ = "3" THEN PRINT D$"RUN LITURGIE”
TURGIE (fetes annuelles)": PRINT 250 IF HS = "4" THEN PRINT D$"RUN CAL.REPUB"
Pom’s n° 41
2
260
270
IF H§ = "5" THEN END
CALL - 198: GOTO 210
Programme
100
110
120
130
159
160
161
180
190
200
205
210
220
230
210
245
250
255
260
270
280
290
310
315
320
330
340
350
360
370
380
390
400
410
420
430
440
CALENDRIERS.2
saem====( CALENDRIERS,.2 )======
Ds CHR$ (4): PRINT D$"PRE3": PRINT
iV$ = CHRS (15):NR$ = CHR$ (14)
DIM MO$(12),NJ(12),J1 (12)
REM
REM
REM =
M-~- 0: FOR I - 1 TO 12: READ MO$(I),NJ(I)
MOS(I) = MO$(I) +" 2MO$(I) = LEFTS$
(MO$ (I), 9): NEXT
REM
‘ON )
REM -~-----~------------ -- -----
HOME : VTAB 1: POKE 1403,25: PRINT IV$"CAL
ENDRIER ANNUEL PERPETUEL"NRS
VTAB 3: POKE 1403,35: PRINT IV@"“ MENU"
NRS
VTAB 5: POKE 1403,5: PRINT "Voulez-vous *
VIAB 7: POKE 1403,15: PRINT IV$" 1 “NRS$" a
voir quelques explications”
VIAB 9: POKE 1403,15: PRINT IV$" 2 "NRS” v
oir un calendrier annuel a l'ecran"
VIAB 11: POKE 1403,15: PRINT Iv$" 3 "NRS"
imprimer un calendrier annuel"
VIAB 13: POKE 1403.15: PRINT IVS" 4 "NRS"
revenir au MENU“
VIAB 15: POKE 1403,5: PRINT “Numero de vot
re choix : "7: GET H$: PRINT H$
H= VAL (H$): IF NOTH ORH<10RH>4
THEN CALL - 198; GOTO 270
ON H GOTO 1080. 320, 320,310
PRINT CHR$ (4) "RUN MENU”
END
HOME : VTAB 1: POKE 1403,25; PRINT IV$"CAL
ENDRIER ANNUEL PERPETUEL"NRS
VTAB 3: HTAB 1: CALL - 958: PRINT "Entrez
l'annee dont vous voulez le calendrier":
PRINT
PRINT " Le programme n'est valable que
pour les calendsiers JULIEN et GREGORIEN"
PRINT? wnaoinsn Autrement dit i] refuse t
oute dale anlerieure a -45 (45 avant J.C.)
IF H = 3 THEN PRINT : PRINT : PRINT 1VS"A
LLUMEZ L‘IMPRIMANTE.."NR$" puis entrez l‘'a
CALL - 198
"Alors.
VTAB 12: INPUT
: HOME
IFA<
Quelle annee ? "7A
- 45 THEN CALL
=( CALCUL DU JOUR DE LA SEMAINE )
POUR LE PREMIER JOUR DU MOIS )
VIAB 10: POKE 1403,24: PRINT "Patientez.
Je fais les calculs"
GOSUB 900: REM CALCUL DE LA DATE DE PAQUE
s
- 198: GOTO 360
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
620
630
690
69>
700
710
745
750
760
765
770
780
785
790
795
a00
805
806
809
810
813
815
820
824
825
830
640
845
850
855
Mw t.2
IF M = 13 THEN 750: REM VERS L' IMPRESSION
Qu = 1:AN = A:MM = M: IF MM > 2 THEN MM =
MM - 2: GOTO 490
AN = AN - 1:MM = MM + 10
SI — INT (AN / 100):QA — AN — SI * 100
Jl = INT (2.6 * MM - 0.1) + QU + QA
Jl = Jl + INT (QA / 4) + INT (SI / 4) -
2* 51
Jl =J1- INT (JI / 7) * 741
IF A < 1583 THEN Jl = Jl + 3: IF Jl > 7 TH
EN Jl = J1 -7
GoTo 700
REM -
REM ANNEE BISSEXTILE
REM ----
B=A/4:C =A /100:D =A / 400
IF B = INT (B) THEN BI = 1
TF A < 1583 THEN RETURN
IFc=
FS
RETURN
FOR I =
RETURN
GOTO 370
INT (C) ANDD < > INI (D) THEN B
1 70 20:BZ ~ PEEK (49200): NEXT =:
Ji (M) = 31
IF M = 2 THEN GOSUB 580:NJ(2)
zt
GOTO 450
REM ( IMPRESSION DU CALENDRIER )
HOME
TT$ - ".
= NJ(2) +B
IF H- 3 THEN PRINT CHR$ (4)"PRL1"
T CHR$ (27) CHR$ (9)"80N"
HOME :T$ = ""DLMMIVSDLMMIVSD
LMMIVSDLMMIVSDLMMIVSD
LMMov"
VTAB 1: PRINT SPC( 2)TTS
PRINT SPC( 36) CHRG (14);A; CHR$ (15): IF
H = 2 THEN PRINT CHR$ (14): CALL ~- 998
IF A < 256 THEN PRINT SPC( 3)"(An "7A +
153;" de la fondation de ROME)"
IF A > 325 THEN PRINT SPC( 3) "PAQUES est
le Dimanche ";PA;" ";PAS;
IF NJ(2) ~ 29 THEN PRINT SPC( 16)" (Annee
bissextile)": GOTO 809
IF NJ(2) = 28 THEN PRINT SPC( 16)"(Annee
non bissextile)"
PRINT SPC( 2)TT$
FOR M = 1 TO 12:K = (J1(M) * 2 - 2)
IF A = 1582 AND M = 12 THEN NJ(M) = 21
PRINT SPC( 2)MO$(M);": "7
FOR I= 1 TO NJ(M):I1 =I - INT (I / 10)
* 10
IF Il = 0 AND A = 1582 AND M = 12 THEN 11
= I + 10: GOTO 430
IF Il = 0 THEN I1
PRINT I1;" "7
NEXT iL = PRINT z PRINT SPC( 2);NJ(M)i
" jours";
If K = 0 THEN K = 1:L = 3
PRINT SPC( L)
PRINT MID$ (1$,K,18) SPC( 1) MID$ (T$,K +
Pom’s n° 41
858
860
864
865
870
875
880
290
900
910
930
940
950
970
980
990
1000
1010
1020
1030
1040
1045
1050
1060
1070
1080
1090
1100
1110
1120
1130
1140
1160
1170
18,20) SPC( 1)
IF NO(M) < 30 THEN PRINT MID$ (T$,K + 3,
NJ(M) * 2 - 38): GOTO 864
PRINT MID$ (T$,K + 38,20)
$.K + 58,NJ(M) * 2 - 58)
PRINT SPC( 2)TTS
SPC( 1) MIDS (T
IF M=6ANDH < > 3 THEN GET RS
NEXT M: PRINT
GET R$: PRINT CHRS (4) "PREO": PRINT
PRINT CHR$ (4)"PRE3": PRINT : RUN
REM s======) ( CALCUL DATE DE PAQUES )=
Sl = INT (A / 100):S = 24
IF A < (SI +1) * 100 THEN T = ST - 7
IF SI > 7 THENT=%- INT (SI / 4) +1
IF SI > 15 THEINT =T + 2
IF A > 1582 OR SI 3 THENT=T+1
DA = INT (A / 19):RA=A-19* DA
DB = INT (A / 4):RB =A- 4 * DB
DC = INT (A / 7):RC = A- 7 * DC
X = 19 * RA + S:DD = INT (X / 30):RD = X
- 30 * DD
Y=2* RB+ 4 * RC + 6* RD + T:DE = INT
(27 7):RE = Y - 7 * DE
TF 22 + RD + RE > 31 THEN PA = RD + RE - 9
iPA$ = “AVRIL": GOTO 1040
IF 22 + RD + RE < 32 THEN PA = 22 + RD +R
E:PA$ = "MARS ”
POKF 249,PA: FOR T = 250 TO 254: POKE T,
ASC ( MID$ (PA$,I - 249,1)): NEXT
IF A < 0 THEN RETURN
SI = INT (A / 100):QA = A - 100 * SI:
E 236,SI: POKE 237,0A
RETURN
HOME
REM ( EXPLICATIONS )
HOME : POKE 1403,29: PRINT IV$" CALENDRIER
S ANNUELS "NR$: PRINT
PRINT " -Le present programme sort, a l'ec
ran, n'importe quel calendrier annuel depu
is l'an 45 avant JESUS-CHRIST....et, dans
l'etat actuel des choses, il est valable
jusqu'en l'an 4317."
PRINT : PRINT " -Mais ce programme, et c'
est la son point fort, pout imprimer (sur
DMP) un calendrier annuel, en precisant la
date de PAQUES"
PRINT : PRINT “-Pour avoir les dates des f
etes CHRETIENNES consulter le programme 'L
ITURGIE
VTAB 12: POKE 1403,20: PRINT “J'utilise 2
formules dans ce programme PRINT
PRINT "-Celle de "IV$"ZELLER"NR$" qui calc
ule le numero de la semaine pour le premie
r jour du (Dimanche - 1, Lundi ~
2 po00e+s@tC.....Samedi = 7)": PRINT
PRINT “-Une “IV$"FORMULE PERSONNELLE"NR$"
inspiree d'une formule de GAUSS, decouvert
e dans le LAROUSSE du XX ieme siecle (Edit
ion de 1932). J'en ai modifie la forme"
POKE 1403,7: PRINT “et determine les param
etres pour rendre possible le calcul de 1
a date": POKE 1403,7: PRINT “de PAQUES sur
un plus long espace de temps."
VTAB 22: POKE 1403,40: PRINT "Fait par J.P
ERROT le 23 Janvier 1989."
POK
END
mois
1180
1190
1350
1360
1370
1380
VTAB 23: POKE 1403,25: PRINT IV$"APPUYEZ S
UR UNE TOUCHE POUR REVENIR AU MENU"NR$" "7
GET R$: PRINT R$: HOME : GOTO 220
REM = qu eesewssssasssssesss=s:
DATA JANVIER, 31, FEVRIER, 28, MARS, 31, AVRIL,
30
DATA MAI, 31, JUIN, 30, JUILLET, 31, AOUT, 31
DATA SEPTEMBRE, 30, OCTOBRE, 31, NOVEMBRE, 30,
DECEMBRE, 31
Programme LITURGIE
10
11
20
30
40
50
60
70
80
90
100
105
110
120
125
130
140
145
150
155
160
170
175
180
190
199
200
REM =~ ( LITURGIE )=---==- anne
REM = aiaiaiaiaial sess
PRINT CHR$ (4)"PRE3": PRINT
IVS = CHRS (15):NR$ = CHRS (14): VTAB 1:
POKE 1403,1
VTAB 10: POKE 1403,32: PRINT IVS"PATIENTEZ
UN PEU"NRS
RESTORR : GOSUR 800: HOME
PRINT saeesssssssss====( DATE DE PAQUE
S ET DES FETES CHRETIENNES )==============
VTAB 3: PRINT "-Le nouveau calendrier litu
rgique ROMAIN, promulgue par le decret de
la": PRINT “congregation du Rite, est entr
e en vigueur le 1 Janvier 1970.”
PRINT : POKE 1403,1: PRINT "-Le present pr
ogramme tient compte de ce decret.”
POKE 1403, 6: PRINT "Avant 1970 il donne le
Ss dates des fetes MOHILES liees a PAQUES.”
POKE 1403,6: PRINT "Apres 1970 il donne le
S dates des fetes FIXES et celles des tete
5 MOBILES": PRINT “liees ov non a PAQUES."
#OR 1 = 1 TO 20:82 = PEEK (49200): NEXT
VTAB 15: POKE 1403,6: INPUT "Quelle annee
Liturgique ?"7A
IFA/4= INT (A/ 4) ANDA/ 400 < >
INT (A / 400) THEN FOR M = 2 TO 12:T(M)
= T(M) + 1: NEXT
IF A < 325 THEN VTAB 4: POKE 1403,6: PRIN
T "L'annee ne doit pas etre anterieure a 1
a date du concile de NICEE (an 325)": CALL
~ 198: FOR I = 1 TO 2500: NEXT : HOME :
GOTO 110
HOME : POKE 1403,30: PRINT IVS"ANNEE
"a Ag" “ENRS
PRINT : POKE 1403,15: PRINT "Voulez-vous
3": PRINT
PRINT IV$" 1 "NR$"...voir le calendrier a
1'ECRAN": PRINT
PRINT IV$" 2 "NR$"...0u bien 1'IMPRIMER (
dans ce cas ALLUMEZ 1'imprimante)"
PRINT : PRINT IV$" 3 "NR$"...Quitter le p
rogramme": PRINT : POKE 1403,15
FOR I = 1 TO 30:BZ = PEEK (49200): NEXT
PRINT "Votre choix : ";: GET H$: PRINT R$
tH = VAL (HS): HOME
IF H = 3 THEN 1200
ON H GOTO 230,230
CALL - 198: COTO 130
REM == ss5555555555555555555=555===-
REM ( CALCUL DE LA DATE DE PAQUES )
12
Pom’s n° 41
210
230
240
250
260
270
260
290
300
310
320
330
340
349
350
3517
360
370
380
390
400
410
420
430
440
450
160
470
480
490
500
505
510
520
530
540
550
555
556
560
570
5a0
590
600
610
REM - --------
SI = INT (A / 100):S = 24
IF A < (SI +1) * 100 THEN T - SI - 7
IF SI > 7 THENT =7- INT (SI / 4) +1
IF SI > 15 THENT-T+2
IF A > 1582 OR SI = 3 THINT =T+1
QA = INT (A / 19):RA=A- 19 * QA
QB = INT (A / 4):RB =A - 4 * OB
ec = INT (A / 7):RO=A- 7 * OC
X = 19 * RA + S:QD = INT (X / 30):RD = X
- 304 QD
Y=2* RB+4*RC+6* RD + T:0E = INT
(¥/ 7):RE = Y- 7 * OF
IF 22 + RD + RE > 31 THEN PA = (RD + RE -
9) :PA$ = "AVRIL":MP = 4: GOTO 360
IF 22 + RD + RE < 32 THEN PA = 22 + RD +R
E:PA$ = "MARS":MP = 3
REM
REM ==e==e======( FETES MOBILES )=========
REM ==s===s=s====:
PQ = PA + T(MP - 1)
DS (1) = MO$(1):D$(2) = MO$(1): GOSUB 750
GOSUB 770
D(12) = D(13) - 7 * 4
IF D(12) > O THEN D$(12) = MO$(12)
IF D(12) < 1 THEN D(12) = D(13) + 2:D$(12
) = MO$(il)
P = PQ ~ 46: GOSUB 700:D(3) - Q:D$(3) - M$
P = PQ - 7: GOSUB 700:D(4) = Q:D$(4) = MS
P = PQ - 2: GOSUB 700:D(5) = Q:D$(5j = M$
P = PQ: GOSUB 700:D(6) = Q:D$(6) = M$
P ~ PQ + 39: GOSUB 700:D(7) ~ Q:D$(7) ~ M$
P = PQ + 49: GOSUB 700:D(8) = Q:D$(8) = MS
P ~ PQ + 56: GOSUB 700:D(9) = Q:D$(9) = MS
P = PQ + 63: GOSUB 700:D(10) = Q:D$(10) =
M$
= PQ + 68: GOSUB 700:D(11) = Q:D$(11) =
MS
NB = 13: IF A < 1970 THEN NB = 19: GOSUB 2
( AFFICHAGE )
HOME : POKE 1403,30: PRINT IVS" ANNE E
"7Ar" "7NRS
VTAB 2; POKE 1403,10: PRINT “ FETES FIXES
POKE 1403,54: PRINT " FETES MOBILES ";
RS
VIAB 4: FOR I = 1 TO 17
POKE 1403,1: PRINT FE$(I);: POKE
1403,21:
PRINT ": ";DA$(I): NEXT
VTAB 22; POKE 1403,1: PRINT “(a) :
manche de Janvier"
VIAB 23; POKE 1403,1: PRINT "(b) :
elle le Jeudi precedent"
VTAB 4: FOR I = 1 TO NB:J$ = “DIMANCHE”
TF (T = 6 AND A < 1970) OR (I = 3 AND A >
1969) THEN J$ = “MERCREDI”
TF (A > 1969 AND (I = 5 OR I = 11)) OR (A
< 1970 AND (I = 10 OR I = 17)) THEN J$ ="
VENDREDI"
lier Di
fete re
IF (I = 7 AND A > 1969) OR (I = 13 AND A <
1970) THEN J$ = "JEUDI "
IF (I = 6 AND A > 1969) OR (I = 11 ANDA <
1970) THEN K$ = TV$:L$ = NRS
POKE 1403,40: PRINT K$;F$(I);L$;: POKE 140
3.552 PRINT "2 "2.IS2" "2D(T) 2" "2D$ (1)
620
630
640
650
660
670
680
780
790
evo
805
810
815
820
825
030
840
845
850
860
870
872
a75
880
8a5
a90
900
910
920
930
940
950
960
Kg = "":L$ = "": NEXT : CALL
If H = 2 THEN GOSUB 960
VTAB 24: POKE 1403,25: PRINT IV$" A "NRS"
= Autre annee ";
PRINT IV$" M “NR$" — MENU "7: GET HE
IF H$ = "A" THEN POKE 215,1: RUN
IF H$ = "M" THEN 1200
CALL - 198: GOTO 640
REM =s=~n———
FOR M=1 TO 12
- 198
IF P - T(M) < 0 THENN-M:Q-P - T(N- 2
):M$ = MO$(N): GOTO 715
NEXT 3 RETURN
IF Q = 0 THEN Q = P - T(N - 2):M$ = MOS(N
cae? 5
RETURN
FOR I = 11 T0 17
IF (PQ - I * 7) < 2 THEN D(1) = PQ - (I -
1) * 7:D(2) = D(1) + 7: RETURN
NEXT : RETURN
FOR I = 1 T0 2:9 = N(1) +7 * (50 + 1)
if Q > 24 + T(11) THEN D(13) = Q - T(11):D
$(13) = MO$(12): RETURN
NEXT : RETURN
REM
DIM MOS (12), 1(12),D(19),D$ (19), FES (17) , DAS
(17), F$(19)
FOR M = 1 TO 12: READ MOS(M),1(M): NEXT
FOR I = 1 TO 17: READ FE$(I),DA$(I): NEXT
FOR I = 1 T0 13: READ F$(I): NEXT
IF PEEK (215) - 1 THEN RETURN
PRINT CHR$ (4)"BLOAD COPIE.40.80"
RETURN
DATA JANVIER, 31, FEVRIER, 59, MARS, 90, AVRIL, 1
20
DATA MAI, 151, JUIN, 181, JUILLET, 212, AOUT, 243
DATA SEPTEMBRE, 273, OCTOBRE, 304, NOVEMBRE, 33
4, DECEMBRE, 365
DATA Octave de NOEL,1 Janvier,Epiphanic (a
),6 Janvier
DATA Presentat.du CHRIST,2 Fevrier
DATA Saint-Joseph, 19 Fevrier,Annonciat.du
CHRIST,25 Mars
DATA Visitat.de la VIERGE,31 Mai,St Jean-B
apliste,24 Juin
DATA St Pierre-St Paul,29 Juin, Assomption,
15 Aout
DATA Nativite,&@ Septembre, Sainte-Croix, 14
Seplembre
DATA N.Name du Rosaire,7 Octobre, Toussaint
71 Novembre
DATA Jour des Morts,2 Novembre, CHRIST-ROT,
21 Novembre
DATA Immacul.Conception, 8 Decembre, NOEL, 25
Decembre
DATA Epiphanie, Bapt.du SEIGN.,Cendres, Rame
aux, Vendredi-Saint, PAQUES
DATA ASCENSION, PENTECOTE, TRINITE, FETE-DIEU
(b) , SACRE-COEUR
DATA AVENT, SAINTE-FAMILLE
REM ( IMPRESSION ) ===========
PRINT CHRS (4)"PRE1": PRINT CHRS (27) CH
Pom’s n° 41
14
RS (9)"80N"; CALL 768
970 PRINT CHRS (4)"PREO": PRINT CHRS (4) "PRE
3”: PRINT
980 RETURN
1000 REM FETES (DATES ANTERIEURES A 1970)
1010 D(19) = D(13):D$(19) = D$(13):F$(19) = FS(
13)
1020 D(18) = D(12):D$(18) = D$(12):F$(18) = FS¢
12)
1030 (17) = N(11):N$(17) = N$(11):F$(17) = FS
ii)
1040 D(16) = D(10):D$(16) = N$(10):FS(16) = FS
10)
1050 D(15) = D(9):D$(15) = D$(9):FS(15) = F$(9)
1060 D(14) = D(8) :D$(14) = DS(8)2FS(14) = F$(8)
1070 D(13) = D(7):D$(13) = D$(7):F$(13) = F$(7)
1080 P = PQ + 7: GOSUB 700:D(12) = Q:D$(12) = M
$:F$(12) = "QUASIMODO
1090 D(11) = D(6):D$(11) = D$(6):FS$(11) = FS(6)
1100 D(10) = D(5):D$(10) = D$(5):F$(10) = F$(5)
1110 D(9) = D(4):D$(9) = D$(4):F$(9) = F$(4)112
0 P = PQ ~ 14: GOSUB 700:D(8) = Q:D$(8) =
MS:F$(8) = "PASSION"
1130 P ~ PQ - 42: GOSUB 700:D(7)
:F$(7) = "QUADRAGESIME"
1140 D(6) = D(3):D$(6) = D$(3):F$(6)
1150 P = PQ - 49: GOSUB 700:D(5) = Q:D$(5)
iF (5) — "QUINQUAGESIME"
1160 P = PQ - 56: GOSUR 700:D(4) = Q:D$(4) = MS
EXAGESIME"
GOSUB 700:D(3) = Q:D$(3) = MS
‘PI'UAGESIME"
— Q:D$(7) ~ MS
= FS$(3)
= MS
1170 P
1180
1200 PRINT CHRS (4)"RUN MENU"
Programme
CALEND.HISTO
Ce programme est un résumé de 1'historique des
calendriers. Il est présent sur la disquette
Pom’s 41.
Programme CAL.REPUB
30 REM
PROGRAMME CAL.REPUB )
40 D$ = CHR$ (4): PRINT N$"PRE3": PRINT
50 IV$ = CHR$ (15):NR$ = CHR$ (14)
60 IF PRRK (715) = 1 THEN 90
70 =PRINT D$"BLOAD COPIE.40.80": POKE 215,1
90 DIM MRS (12), MNS (12) ,MN(12)
100 RESTORE : GOSUB 300
120 VTAR 1: POKE 1403,28: PRINT IV$" CALENDRIE
R REPUBLICAIN "“NR$: PRINT
PRINT " Entrez le mois REPUBLICAIN puis
l‘annee REPUBLICAINE...et vous obtiendrez
ce": PRINT "mois avec la traduction dans 1
e@ calendrier GREGORIEN,
VTAR 6: PRINT "Le calendrier REPUBLICAIN c
ommence a l'equinoxe d‘AUTOMNE (22 septemb
re 1792)"
130
140
150
155
160
165
170
1/1
180
190
209
210
2s.
219
220
230
231
240
250
255
270
300
310
370
330
340
350
360
370
375
380
390
400
410
420
430
440
450
460
470
POKE 1403,15: PRINT “Chayue mois comporte
30 jours divises en 3 decades"
PRINT ; PRINT “ Numeros ves mois republi
cains :VENDRMTATRE "TV$"(1)"NRS", BRUMAIR
E "IV$"(2)"NR$", FRIMAIRE “IV$"(3) “NR
PRINT "NTVOSR "TVS"(4)"NRS", PLUVIOSE "I
V$" (5) "NR$", | VENTOSE "IV$"(6)"NR$", GE
RMTNAT, "TVS" (7) "NRS", PLORFAT "IVS" (8) "N
RS
PRINT " PRATRIAL “TV$"(9)"NRS", — MFSSTNO
R “IV$"(10) "NR$", FRUCTIDOR “IV$"(11) "NR
$", THERMIDOR "TVS" (12) "NRS
PRINT : POKE 1403,10: PRINT “Les jours de
chaque decade se nomment, dans l'ordre :"
PRINT "Primidi, Duodi, Tridi, Quartidi,Quinti
di, Sextidi, Septidi, Octidi, Nonidi, Decadi."
PRINT : PRINT "Les annees Republicaines vo
nt de 1'AN 1 (1792)...a..1'AN 14 (1805)"
PRINI : PRINT "A la fin de THERMIDOR on aj
outait 5 jours (6 jours en fin des Ans 26
t 11)": PRINY "Le 6ieme jour supplementair
ce etait ‘le JOUR DE LA REVOLUTION'"
FOR I = 1 TO 20:BZ = PEEK (49200): NEXT
VTAB 21: CALL - 958: PRINT IV$"NUMERO DU
MOIS REPUBLICAIN"NR$" “7: INPUT MR
IF MR <1 OR MR > 12 THEN CALL - 198: GO
TO 210
FOR I = 1 TO 20:BZ - PEEK (49200): NEXT
VIAB 23: CALL - 958: PRINT IV$"NUMERO DE
L'AN REPUBLICAIN"NR$" "7: INPUT AR
IF AR <1 OR AR > 14 THEN CALL - 198: GO
TO 220
IF MR > 4 AND AR = 14 THEN CALL - 198: G
oTo 210
IF (AR = 4 OR AR = 12) AND MR = 6 THEN MN(
6) = 29
AM = MR * 100 + AR + 91: IF MR > 4 THEN AM
-aAM+il
IF AR > 7 THEN AM = AM - 100
GOSUB 610
RE a-o>~ ( AFFICHAGE MOIS REPUBLICAIN )---
HOME
VTAB 1: POKE 1403,31: PRINT MRS$(MR) SPC( 3
)"An "7AR: PRINT
V = 3:H = 0:K = JO: FOR I = 1 TO 30
VIAB V: POKE 1403,H; PRINT I;" ->"7
POKE 1403,H + 7: PRINT J$(K)?
POKE 1403,H + 17: PRINT OM;
POKE 1403,H + 21: PRINT MNS (MO);
IF AN < 92 THEN AN = AN + 100
POKE 1403,H + 31: PRINT AN + 1700
IF QM = MN(MO) AND MR = 4 AND AR = 14 THEN
VTAB 14: PRINT "Le calendrier Republicai
na ete aboli par NAPOLEON le lier Janvier
1806": GOTO 470
OM = OM + 1:K=K+1:V=Vt1
IF QM = MN(MO) 1 1 THEN QM = 1:MO = MO +1
: IF MO = 13 THEN MO = 1
IF K - 8 THEN K-12
IF I = 15 THEN H = 40:V = 3
IF (QM = 1 AND MO = 5) THEN AN - AN + 1
NEXT
IF MR = 12 THEN GOSUB 570
VIAB 23: PRINT IV$" I = IMPRESSION"NR$;: G
BY H$: PRINT : VTAB 23: CALL ~- 958
Pom’s n° 41
480
490
500
510
520
530
540
550
560
270
575
577
580
585
590
600
610
620
630
IF HS = "1" THEN GOSUB 540
CALL - 198
PRINT IV$" UN AUTRE MOIS REPUBLICAIN (O/N)
2 "NR$;: GET H$: PRINT
IF H$ = "0" THEN KUN
PRINT CHR$ (4) "RUN MENU"
END : KEM
PRINT CHR$ (4)"PRE1"; PRINT CHR$ (9)"80N
": CALL 768
PRINT CHR$ (4) "PREO:
ge
RETURN
PRINT : PRINT "En fin d'annee Republicaine
(apres le 30 THERMIDOR) on ajoutait :"
PRINT " 5 jours supplementaires en annee
commune"
IF AR << > 3 AND AR < > 11 THEN RETURN
PRINT " 1 jour de plus (soit 6 jours) en
fin de 1'An 3 et de 1'An 11"
PRINT "-Ce 6ieme jour remplacait le 29 Fev
rier et s'appelait ‘JOUR DE LA REVOLUTION’
RETURN
REM ( RECHERCHE DONNEES MOIS REPUBLICAIN )
FOR I = 1 TO 160: READ N
IF INT (N / 1000) = AM THEN 640
NEXT
PRINT CHR$ (4) "PRE
640 MO = INT (N / 10 * 5):N1 -N-MO*10°S
650 AN
= INT (NI jf 10°* 3):2N2 =-N1 — AN=* 20°*
3
660 JO = INT (N2 / 100):N3 = N2 - JO * 100
670
680
890
899
900
910
920
1000
1005
1010
1015
1020
1025
1030
1035
1040
1050
1051
1060
1061
1070
1071
OM - INT (N3 + .2)
RETURN
END
REM —--{ INITIALISATION )-----
FOR I =1 70 READ J$(I): NEXT
FOR I = 1 TO 12: READ MRS${I): READ MNS(I):
READ MN(I); NEXT
RETURN
REM ==sssssssssssss5555555555555555555=55=
DATA DIMANCHE, LUNDI,MARDI,MERCREDI, JEUDI,V
ENDREDI, SAMEDI
DATA VENDEMIAIRE, Septembre, 30, BRUMAIRE, Oct
obre, 31
DATA FRIMAIRE, Novembre, 30, NIVOSE, Decembre,
31
DATA PIUVTOSR, Janvier, 31, VENTOSE, Fevrier,?
e
DATA GERMINAL, Mars, 31, FLOREAL, Avril, 30
DATA PRAIRIAL, Mai, 31,MESSIDOR, Juin, 30
DATA FRUCTIDOR, Juillet, 31, THERMIDOR, Aout, 3
Fi
REM (Premier jour des mois REPUBLICAINS)
DATA 0192722, 0292222, 0392421, 0492621, 05931
20, 0693319
DATA 0793521, 0893720, 0993220, 1093419, 11936
19, 1293118
DATA 0193122, 0293322, 0393521, 0493771, 05942
20, 0694419
DATA 0794621, 0894120. 0994320, 1094519, 11947
19,1294218
DATA 0194222, 0294422, 0394621, 0494121, 05953
20, 0695519
DATA 0795721, 0895220, 0995420, 1095619, 11951
19, 1295318
1080 DATA 0195423, 0295623, 0395122, 0495322, 05965
21, 0696720
1081 DATA 0796221, 0896420, 0996620, 1096119, 11963
19,1296518
1090 DATA 0196522, 0296722, 0396221, 0496421, 05976
20, 0697119
1091 DATA 0797321. 0897520, 0997720, 1097219, 11974
19,1297618
1100 DATA 0197622, 0297122, 0397321, 0497521, 05987
20, 0698219
1101 DATA 0798421, 0898620, 0998120, 1098319, 11985
19, 1298718
1110 DATA 0198722, 0298222, 0398421, 0498621, 05991
20, 0699319
1111 DATA 0799521,0893720, 0999220, 1099419, 11996
19,1299118
1120 DATA 0199223, 0299423, 0399622, 0499122,050 3
21, 0600520
1121 DATA 07007272, 0800771, 0900421, 1000620, 11001
20,1200319
1130 DATA 0100323, 0200523, 0300722, 0400222, 05014
21, 0601620
1131 DATA 0701122, 0801321, 0901521, 1001720, 11012
20,1201419
1140 DATA 0101423, 0201623, 0301122, 0401322, 05025
21,0602720
1141 DATA 0702222, 0802421, 0902621, 1002120, 11023
20, 1202519
1150 DATA 0102523, 0202723, 0302222, 0402422, 05036
21, 0603120
1151 DATA 0703322, 0803521, 0903721, 1003220, 11034
20, 1203619
1160 DATA 0103724, 0203224, 0303423, 0403623, 05041
22, 0604321
1161 DATA 0704522, 0804721, 0904221, 1004420, 11046
20, 1204119
1170 DATA 0104123, 0204323, 0304522, 0404722, 05052
21, 0609420
1171 DATA 0705622, 0805121, 0905321, 1005520, 11057
20,1209219
1180 DATA 0105223, 0205423, 0305622, 0405122
Récapitulation
Copie.40.80
Ce programme est issu du numéro 34 de Pom's. Il sert au
programme Cal.Repub.
Aprés avoir saisi cette récapitulation sous moniteur, vous la
Sauvegarderez par: bsave copie.40.80,a$300,1S60
0300:A9 00 48 48 4A 29 03 09
0308:04 85 07 68 29 18 90 02
0310:69 7F 85 06 OA OA 05 06
0318:85 06 AO 00 A2 7F EC 1F
0320:CO BO 19 A9 00 an 55 co
0328:B1 06 8D 54 CO 30 08 29
0330:3F C9 20 BO 07 09 40 09
0338:80 20 ED FD Bl 06 30 08
0340:29 3F C9 20 BO 02 09 40
0348:09 80 20 ED FLD C8 CU ze
0350:D0 CA AG AD 20 ED FD 68
0358:A8 C8 98 C9 18 DO AZ 60
Pom’s n° 41
15
16
AppleWorks & UltraMacros :
udget
de macro-
commandes UltraMacros 4 utiliser
simplement dans votre travail sur
AppleWorks mais d'un ensemble
cohérent de gestion familiale.
Il ne s'agit pas ici
Les programmes UltraMacros que
nous propose Dimitri Geystor pour
ce numéro sont d'un tel volume
qu'il ne nous est pas possible de
lister les fichiers : les fichiers Task
générés approchent les 5Ko et les
sources dépassent largement les
50Ko !
Vous retrouverez ces programmes
de gestion de comptes sur le disque
d'accompagnement préts a l'emploi.
Les fichiers de Budget Facile
Vous aurez besoin des fichiers suivants :
** Trois fichiers Task, 4 recopier dans le catalogue de
démarrage d’ AppleWorks (celui qui contient Apple-
Works.Sys et Ultra.System) :
— Load.Budget (SYS)
— Budget.1 (SYS)
— Budget.2 (SYS)
@ Les fichiers AppleWorks ci-aprés, & recopier dans le
Lecteur Standard défini pour votre AppleWorks (le
lecteur standard d’AppleWorks peut étre fixé a partir du
Menu Principal d’AppleWorks, ‘Autres activités’, Option
6):
— Menu.Principal (AWP)
— Sous.Menu (AWP)
— Modele (ASP)
— Suivi (ASP)
— Liste (ADB)
— Livre (ADB)
Dimitri Geystor
= Les fichiers Bud.1, Bud.2 et Load.Bud sont les fichiers
sources (awp) des trois fichiers Task mentionnés plus
haut. Ils ne sont pas nécessaires pour faire fonctionner
Budget Facile, mais ils contiennent de nombreux
commentaires qui en expliquent le fonctionnement.
Note ; la disquette Pom's contient aussi le fichier
‘Faire.Modele’ , qui n'est pas vraiment indispensable.
C'est une macro qui construit les fichiers ‘Modele’
et ‘Menu. Principal’ , et qui correspond ausource donné
dans les pages de la revue. Elle a été faite a I’ intention
des lecteurs qui aiment transcrire les macroseux-mémes.
Démarrage
C'est l’affaire du fichier Task Load.Budget.
Vous pouvez l’activer avec un sélecteur de programmes
type ProSel ou Bird’s Better Bye. II lancera AppleWorks,
chargera les fichiers voulus, ira au Menu Principal et
démarrera Budget.
Vous pouvez aussi l’activer depuis AppleWorks, en passant
par Macro Options.
Budget Facile est piloté par deux menus, Menu.Principal et
Sous.Menu, auxquels correspondent les fichiers Task
Budget.1 et Budget.2. Ce pilotage est automatique, vous
n’avez pas @ vous en préoccuper ; chaque fois que vous
passez d’un menu 2 l’autre, le programme active le fichier
Task correspondant.
Dés le démarrage, le Menu Principal s’affiche. Le
programme a été écrit avec un grand souci d’crgonomic :
pas de commandes complexes 8 retenir ; il y a toujours une
ligne de message en bas d'écran (en vidéo inverse) qui
propose clairement les choix & faire ct indique sur quclles
touches utiliser. Ce sont des touches simples, Rtn, Esc,
Espace (parfois 1, 2 ou Tab). Les autres touches sont
volontairement désactivées. Quand les commandes
classiques <G-K> recalculer, <(3-S> sauver le fichier et
<G-H> recopier l’écran sont disponibles, la ligne de
message le signale, Le curseur peut généralement éure
déplacé avec Ia souris et/ou les fléches.
La saisie des écritures a été automatisée au maximum, elle
Pom’s n° 41
aussi. Il n’est méme pas nécessaire de taper le nom des
catégories, il suffit de pointer avec le curseur et de cliquer.
Il est possible de saisir des écritures simples (une seule
ligne) ou ventilées (un méme total ventilé entre plusicurs
catégories),
=* Budget Facile est un programme autonome, que vous
pouvez faire tourner sans rien connaitre d’ AppleWorks,
surtout pour ce qui est du Menu Principal (saisie des
écritures dans le fichier mensuel). Mais ce n’est pas pour
autant un programme fermé : les esprits curieux pourront
—c’est l’avantage d’Ultra Macros- interrompre la macro, et
aller voir ce qui se passe ‘en coulisse’. Nous en parlerons
un peu plus loin.
tw Le Sous.Menu s’occupe essentiellement des opérations
de consolidation (dans le tableau annuci Suivi et dans
la base de données Livre), d’impression, de tri, de pointage
et de transfert.
Le Menu principal
® Situation/Saisie
® Ecritures du mois : Consulter/Imprimer I’ écran / Effacer
® Commencer un budget / Ouvrir un nouveau mois
® Sous-Menu ; Consolider / Pointer / Imprimer un état
® Quitter
Le Menu.Principal sert 4 gérer le ‘mois courant’ : le
modéle est un fichier Tableur, auquel vous attribuez un
nom de mois au début de chaque nouveau mois ; il est
congu spécialement pour donner a tout moment, sur un
écran unique, une vue complete de toutes les catégories :
revenus, dépenses, comptes, revenu net et avoirs. L’écran
est divisé en deux fenétres ; la fenétre inférieure, réduite a
unc sculc ligne active, sert pour la saisie des écritures. Le
fichier Modele propose une liste de revenus, dépenses et
comptes qui devrait convenir a la plupart des budgets de
ménage ; il est cependant possible de renommer les
catégories 4 l’intérieur d’un méme groupe (voir plus loin la
macro utilitaire @-G-U).
La premiére des choses A faire (aprés avoir activé le
programme) est de “Commencer un Budget’. En effet, tant
que le budget n’a pas été commencé, il n’y a pas de mois
courant, mais seulement un fichier ‘Modele’. En
choississant l’option ‘Commencer un budget’, vous allez
faire deux choses :
+ Donner le nom du mois courant au fichier Modele (vous
pouvez commencer par n’importe quel mois de I’année).
+ Insérer les valeurs initiales de vos comptes (c’est a dire
leurs divers soldes au moment oi vous ouvrez le
budget).
Note : en fait, le programme fera une troisiéme chose :
stocker dans le fichier ‘Menu.Principal’ (avec
linstrucion store’) le nouveau nom du mois courant.
Si vous quittez le Menu principal avec I' option 5 ‘
Quitter’, le fichier ‘Menu.Principal’ est sauvé sur
disque. La fois suivante, quand vous démarrez Budget
Facile’, le mois courant (dont le nom est désormais
mémorisé) sera automatiquement chargé sur le Bureau.
Attention : si vous quittez le Menu avec Escape, le fichier
n’est pas sauvé sur disque. Ne quittez avec Escape yue pour
aller momentanément dans AppleWorks, avec l’intention de
revenir aussit6t aprés au Menu avec @-G-Q.
Macros utilitaires
Jl s’agit de quatre macros indépendantes du programme
proprement dit, ct qui s’emploient directement a partir
d’AppleWorks.
Pom’s n° 41
17
18
<@-G-Q> Sert a réactiver le programme, si vous l’avez
quitté par Escape ou l’option 5. ‘Quitter’.
Vous vous retrouvez dans le menu que vous
avez quitté.
<@-G-B» Met en place les fenétres du mois courant si
vous les avez dérangées (il est plus aisé de
le faire manuellement).
Permet de voir le nom du mois qui est stocké
dans Menu.Principal, et de le modifier (ainsi
que de charger éventuellement le fichier du
mois correspondant, a partir du lecteur
standard),
Cette macro est également liée au Menu
Principal. Elle permet de renommer & votre
goiit les catégories de Modele et de Suivi. Les
nouvelles catégories doivent faire partie du méme groupe
(une dépense doit remplacer une dépense, ct non un revenu
ou un compte, etc). Il ne faut pas tenter de renommer des
catégories manuellement, car chaque cellule contient des
renseignements invisibles mais essenticls que l’on risque de
perturber.
Attention : si vous voulez modifier de noms de catégorie,
faites-le dans Modele et dans Suivi avant de commencer un
budget !
«<@- G-N>
<6-G-U>
Votre budget est maintenant ouvert
Vous pouvez commencer 8 saisir des écritures. Le
programme vous guidera pas a pas. Vous étces libre
d’expérimenter tout de suite, ou de lire d’abord les
explications ci-dessous, qui vous aideront 4 comprendre le
fonctionnement de la partie Menu.Principal de Budget
Facile.
Commentaire du Menu.Principal
Toutes les opérations de ce menu concernent le fichier du
mois courant. L’écran est toujours divisé en deux fenétres :
une fenétre inférieure avec une ligne unique réservée a la
saisie, et une fenétre supérieure d’information et/ou de
sélection.
La fenétre supérieure peut se présenter en deux configu-
rations
* La ‘situation’ (toutes les catégories et leurs valeurs)
+ La liste des écritures du mois.
Le recalcul du tableau étant sur ‘manuel’, la premitre des
choses qui vous est proposée, avant toute saisie, est de
recalculer le tableau (il est aussi possible de l’imprimer &
l’écran), Le recalcul inscrit aussi la date courante.
« La saisie
IL suffit de se laisser guider :
Date Tapez la date, ou faites Rin pour la date
courante
Description Décrivezl’opération
Info Numéro de chéque, ou toute autre infor-
mation (4 caractéres)
Poste Dépense ou Revenu. Sélection avec le
curseur et clic.
Compte La oi vous mettez ou prenez votre argent,
Montant Tapez le montant, faites Rtn.
Arrivé & ce point, vous pouvez encore corriger le montant
(Esc), ou méme gommer toute la saisie (Del). Si vous
pressez Run, la saisie est acceptée. La ligne que vous venez
d’écrire est aussitét escamotée, et une nouvelle ligne vous
est proposée ; ne soyez pas frustré, la ligne écrite n’a pas
disparu. Si vous voulez la consulter, revenez au menu ct
choisissez l’option 2.
MENU. PRINCIPAL
=!
1. Situation/Saisie
. Ecritures du mois :
. Sous-Menu :
S. Quitter
Sélection :
Validation :
numéro, fléches ou souris
RIN ou clic. Quitter : Ese
Tapez une information ou option @
REVUE /AJOUT /MOD IF
!
LE BUDGET FACILE
Consul ter/Imprimer |‘ écran/Effacer
2
ee Commencer un bud: Ouvrir un nouveau mois
4
COnsolider/Pointer/Imprimer un état
Ligne 20 Colonne 41
Pom’s n° 41
er |
‘© La saisie ventilée
Cette procédure s’emploie en cas de paiement unique
pour plusicurs catégorics de dépenses différentes (par
exemple, un seul chéque au supermarché, alors que vous
avez acheté des aliments, des produits d’entretien et des
vétements),
Voici comment transcrire Il’ opération : commencez comme
@habitude, mais cliquez. sur Ventiler au lieu de choisir un
poste, puis choisissez le compte qui sera débité, et donnez
le montant global du paiement.
Au lieu de vous renvoyer a une ligne vierge, le programme
recopie le méme début de ligne, inscrit un ‘v’ pour signaler
unc ventilation, ct demande d’appuycr sur Rtn pour la suite
de la saisie partielle. Notez aussi qu’il y a un chiffre affiché
sous le montant : il s’agit du montant qui Reste A
Ventiler, donné pour information. Continuez la saisie
partielle : A mesure que vous enregistrez les montants
partiels, le Reste diminue. Votre dernier montant partiel
doit étre égal au dernier reste, aprés quoi le reste suivant
sera zéro, et au lieu de poursuivre la saisie, vous ferez Esc
pour indiquer que la ventilation est terminée : le
programme reprendra son cours normal.
ee Cas d’un remboursement : il suffit d’inverser la
procédure : ne tenez pas compte des messages,
sélectionnez le compte d’abord, le poste ensuite.
Exemple : on vous a remboursé un achat de vétements en
liquide. Sélectionnez ‘Liquide’ pour le poste, et
‘Vétements’ pour le compte ; le solde ‘Liquide’
augmentera, et celui de ‘Vétements’ diminuera.
v= Cas d’un prét : votre banque vient de vous accorder
un prét: il faut le considérer comme un revenu
(Crédits), qui alimente le compte oi la somme devient
disponible.
Par contre, quand vous rembourserez le prét (par tranches
ou cn totalité), ce scra unc dépense (imputée au poste
Emprunts) a débiter du compte correspondant.
s Cas des cartes de crédit : il y a différents usages de
cartes, Prenons quelques exemples :
Un magasin vous accorde une carte avec un crédit de
3.000 F, L’opération sera Crédits / Carte (+ 3 000). Vous
tes au plafond de votre crédit.
Vous faites un achat ‘au comptant’avec cette carte, c’est &
dire que vous autorisez. le magasin 4 débiter aussit6t un
compte bancaire que vous lui avez indiqué : il est inutile de
faire intervenir la carte, l’opération sera, par exemple :
Aliment./ C.Courant (-500). Votre plafond de crédit est
resté inchangé.
Vous utilisez voure carte “4 crédiv’ : le montant de lachat
est déduit de votre plafond de crédit (3 000). L’opération
s’écrit, par exemple : Equipemt. / Carte (800). Votre
plafond de crédit est ramené a 3000 — 800 = 2 200 F.
Par la suite, le magasin prélévera des mensualités sur votre
compte bancaire, ce qui aura pour effet de réalimenter votre
carte, Voici un exemple de mensualité ; Carte (a la place du
poste) / C.Courant (-150) , soit 150 F virés du Compte
Courant (qui diminue) sur le compte carte (qui augmente).
Note : si jamais vous avez un doute sur la facon d’ écrire
une opération, souvenez-vous de ce qui suit :
— Une opération fait toujours intervenir deux catégories.
— Toutes les catégories ne sont pas de méme nature : les
comptes correspondent a I'endroit réel od se trouve
votre argent (a la banque, dans votre porte-monnaie,
etc), alors que les postes sont des catégorie de
classement.
Fichier: Eairaiam
Ul traMacros
i
!
!
!
1. Report des
5S. Retour au menu principal
numéro, fléches ou souris
RTN ou clic. Quitter : Ese.
Sélection :
Validation :
Tapez une information ou option @
REVUE /AJOUT /MODIF .
Esc: Menu Principa 1|
LE BUDGET FACILE !
! Appleworks 1.4
écritures du mois dans la Bdd LIVRE
2. Report des données du mois dans SUIUI et/ou imprimer SUIUI
4. Copier un bloc d’écritures dans Ia Bdd LISTE
Ligne 20 Colonne 41
Pom’s n° 41
.——.- e e e e— e — e
19
Que faire pour ‘Ajuster’ le montant d’un
compte ?
“= Le cas se présentera de temps a autre pour le compte
‘Liquide’, car il est parfois difficile (avec la meilleure
volonté du monde) de se souvenir de toutes les dépenses en
liquide de la journée. En général, ce compte indiquera au
bout de quelques temps un montant supérieur 4 celui que
vous aurez réellement en poche.
Ecrivez l’opération suivante : Description = ‘Ajuster’,
Poste = ‘Frais div’, Compte = ‘Liquide’, et tapez le
montant qui vous manque...
«x Ecritures du mois : Consulter / Imprimer |’écran /
Effacer. Laissez-vous guider par les messages de bas
d'écran, le programme fera le reste.
Si vous repérez une écriture erronée, faites <G-H> pour
une recopie d'écran, effacez l’écriture, allez 4 1’option 1 du
menu ct refaites la saisic.
Note : le programme a deux facons d' effacer : en cours de
Saisie, il se contente de gommer <G-B> la derniére écriture,
Par contre, si vous lui demandez d' effacer une ligne parmi
d'autres, il utilisera la commande ‘Effacer une ligne’ , et il
ira aussit6t en ligne 498 insérer une nouvelle ligne vierge,
pour que le compte soit bon (par curiosité, allez voir a la
ligne 999 : elle doit absolument rester a sa place !).
Vous avez droit 4 475 lignes d’écritures par mois.
»= Commencer un budget/Ouvrir un nouveau mois
LA aussi, les opérations sont automatiques.
Quand vous ouvrirez votre budget, vous serez invité a
reporter vous-méme les valeurs des comptes au moment de
cette ouverture.
Quand vous ouvrirez un nouveau mois, le programme
créera le nouveau mois, recalculera le mois précédent et fera
le report automatiquement (il vous invitera aussi 4 reporter
les données du mois écoulé dans la Bdd Livre et le tableau
Suivi).
Ce que vous ne voyez pas...
Il est temps maintenant de donner quelques explications sur
l’agencement du tableau Modele (donc de tous les mois
courants).
Quittez le menu pour accéder aux commandes normales
d’AppleWorks, appelez le mois courant a l’écran, et
explorez-le en promenant le curseur (rappel : <G-J> fait
passer d’une fenétre & I’autre, et @-G-B remet I’écran en
place).
Zoomez (G-Z) pour voir les formules.
Promenez les curseur sur les noms de catégories, en
surveillant ‘l’écho’ de la cellule en bas & gauche de I’écran,
Notez comme le nom (visible) est complété par une
référence de colonne (invisible dans la cellule). Tiens tiens,
c’est justement la référence de la cellule située a droite de la
catégorie.
Que se passe-t-il quand, lors d’une saisie, vous cliquez sur
un nom de catégorie ? Une routine lit la cellule complete,
puis met en mémoire d’une part le nom seul, d’autre part la
référence de colonne.
Quand vous validez le montant, celui-ci est écrit trois fois
dans le tableau (deux, en cas de ventilation) : une premiére
fois, sur l’écran visible (précédé de + ou — selon le type du
poste), une deuxitme fois (toujours sur la méme ligne)
dans la colonne du poste, et une troisi¢me fois (précédé de
+ ou —) dans la colonne du compte.
En effet, les colonnes de R @ BA sont les colonnes sur
lesquelles est calculée la somme de chaque catégorie (de la
ligne 500 a la ligne 2). Tous les résultats sont en ligne 1,
d’oi ils sont retranscrits dans 1’écran visible, et la boucle
est bouclée !
Et les reports ? ils se font en ligne 2, de AV2 4 BA2. Vous
les y mettez vous-méme a l’ouverture du budget, et ils y
sont retranscrits & partir des cellules B9 4 B14 4 ouverture
de chaque nouveau mois.
Le Sous.Menu
Alors que le Menu principal s’occupe du tableau ‘mois
courant’, le Sous-Menu se charge de l’intendance : reports
daus des fichiers Base de données (Liste et Livre), reports
dans le tableau de consolidation annuel Suivi, pointage des
relevés de comptes, impression des divers états.
+ Report des écritures du mois dans la Bdd Livre
+ Report des données du mois dans Suivi et/ou imprimer
Suivi
* Pointage des écritures dans Livre/Impression des Bdd
+ Copier un bloc d’écritures dans la Bdd Liste
+ Retour au menu principal
Avant de commencer un budget ‘pour de bon’, il est
recommandé de faire quelques exercices avec des exemples
imaginaires, et d’expérimenter avec les diverses options du
menu,
Voici, en résumé, le réle des fichiers Livre, Suivi et Liste :
Fichier Livre : c’est un fichier Base de données, destiné
A recevoir une liste complete de toutes les écritures.
Option 1 : la recopie des écritures du mois courant
(Tableur) vers Livre se fait automatiquement, et en une
seule fois. Par la méme occasion toutes les écritures
sont triées chronologiquement (vous ne pourrez plus les
retrouver dans l'ordre original).
Comme cette recopie est une opération plutét radicale, le
programme vous avertit, et vous demande de la confirmer.
Important : cette recopie ne doit se faire qu'une seule fois
pour chaque fichier mensuel, juste avant d’ouvrir le mois
20
Pom’s n° 41
suivant. Si vous copiez plusieurs fois les écritures d'un
méme mois, elles se retrouveront en double dans Livre.
Pour travailler sur des écritures mensuelles sous forme de
base de données, utilisez le fichier Liste.
Le pointage des relevés de compte se fait dans Livre (voir
conscils plus loin).
Fichier Suivi :
Option 2 : elle sert 4 consolider le mois courant dans le
tableau annuel Suivi.
En principe, la consolidation se fait en fin de mois,
mais rien n’empéche de la faire en cours de mois, méme
plusieurs fois, car les reports ne sont pas cumulatifs.
Simplement, un report de mois incomplet donnera des
moyennes fausses.
La colonne Budget est celle od vous mettrez vos
estimations budgétaires,
L’impression se fait avec AppleWorks, ou avec SideSpread.
Fichier Liste : il a la méme présentation et les mémes
formats d’impression que Livre, mais il est d’un emploi a
la fois souple ct provisoire.
Il permet de manipuler des écritures sous forme de base de
données.
Option 3 : elle permet d’accéder au pointage de la base
Livre, et/ou d’imprimer Livre et Liste.
Option 4 : vous pouvez recopier des écritures une &
une ou cn bloc. Avant de copicr dans Liste, le
programme vous demande s’il faut effacer le contenu
précédent de Liste. Vous avez donc un contle complet
sur ces transferts.
Les impressions
On peut imprimer soit 4 l’écran, soit sur imprimante,
soit Ja totalité des rubriques, soit une sélection par
catégorie. Ces opérations sont automatiques.
Si vous souhaitez vous livrer 4 d’autrcs manipulations
(aprés tout, AppleWorks est fait pour ¢a), quittez le
ZipChip
4 Mhz
Un processeur 65C02 qui exécute tous les
programmes a 4 Mhz 8 la place du 6502 ou
65C02 1 Mhz sur l'Apple //e ou //c avec
une compatibilité absolue, c'est possible,
dés aujourd'hui.
Des détails ? Pom’s 39 page 33.
Disponible ? Chez Pom’s...
Combien
t reste -t: |
en bangue /
\ ———|
co
(iT
| J
Wr
programme et travaillez manuellement. Mais attention, ne
modifiez pas le format de rapport préétabli qui existe dans
Livre et Liste !
Le pointage
Il s’agit d'un pointage, et non d'un rapprochement
complet. Ce que fait le programme : aprés vous avoir
demandé d’indiquer sur quel compte trier, il vous présente
toutes les écritures de ce compte :
— qui existent dans Livre
— qui n’ont pas encore été pointées.
. A00F
Aprci Vachat de
cel ordinateur /
a
Tl vous appartient, en suivant votre relevé de compte, de
pointer les écritures qui sont a la fois dans votre relevé et &
Pécran. Veillez & cocher sur le relevé chaque écriture
pointée a l’écran. Prenez. soin, par la méme occasion, de
vérifier l’exactitude de chaque montant ; si vous relevez une
erreur, vous ferez la correction un peu plus tard,
manuellement.
Si la concordance est parfaite (cas idéal), il ne reste plus
qu’a revenir au menu, quitter le programme ct sauver Livre.
S‘il y a sur voue relevé des €critures que vous ne trouvez
pas 4 l’écran, de deux choses I’une : ou vous avez omis de
les saisir dans le tableau mensuel (et elles n’ont pas été
recopiées dans Livre), ou vous vous étes trompés de
compte (cela peut arriver...). Elles sont donc bien dans
Livre, mais sous un compte différent. Il faudra les
retrouver, et corriger manuellement.
Corrections : elles se font donc, hélas, manuellement, hors
programme. A moins d’écrire un troisitme module task
Budget.3, qui fasse le travail
Le principal est de corriger Livre, puis de reporter les
différences éventuelles dans les soldes des compte du mois
courant (ligne 2), enfin de rectifier les soldes des catégories
concernées dans Suivi.
S
Pom’s n° 41
21
22
Bram, suite
Tl arrive qu’une suite de patches
devienne un programme. Le
mini-programme Bram.Master que
vous trouverez ci-dessous a été écrit
pour remplacer un ensemble de
patches, mais... de telle fagon qu'il
puisse étre lui-méme aisément patché
sans réassemblage. Son but ? Rendre
inutile les accés au tableau de bord, et
montrer comment, & partir de ProScl
ou de tout autre sélecteur, on peut
changer tous les réglages du tableau
de bord, puis, au choix, lancer un
programme ou redémarrer.
Le ‘probléme des slots’ est devenu un
classique sur GS : vous pouvez
avoir, par exemple, une imprimante
branchée sur le port série du slot 2,
ou la carte Apple-Tell dans le slot 2,
mais pas les deux ensemble. Pour
lancer VS-Com et |’Apple-Tell, il
faut donc aller dans le tableau de
bord, choisir ‘votre cartc’ cn slot 2,
redémarrer et lancer VS-Com. Ce que
je vous propose est un programme &
lancer depuis ProSel qui fait tout
cela, et sans redémarrer.
C’est un ‘noyau’ a configurer ou a
patcher : ne l’utilisez pas tel quel, il
est a régler en fonction de vos
besoins pour chaque utilisation. Par
exemple, j’ai une carte Ram 1 Méga
dans le slot 6, et deux lecteurs 5,25”
chainés derriére les 3,5” du slot 5.
Pour ‘switcher’ entre les 5,25” et la
carte Ram, j’ai done sur mon disque
de boot deux versions de Bram
Master, l’une appelée *Slot6.Externe’
(carte Ram), l'autre appelée
‘Slot6.Interne’ (disques 5,25”).
Ce programme, collage de divers
patches, suite de celui de J.
‘Toumayeff dans Pom’s 36, n’a
strictement aucune originalité, c’cst
la Rom du GS qui fait tout le travail.
Tl est seulement utile.
Pour l'utilisation du vecteur
ToBramSetup en E1/0094, précisons
que s’il est appelé avec la retenuc a 1
(SEC), il reconfigure tout sauf les
slots. S’il est appelé avec la retenue
a0 (CLC), il reconfigure tout y
compris les slots. Ce vecteur doit
étre appelé avec des regisures de 8
bits.
Aprés avoir configuré votre Bram A
votre guise, le programme vous
permet plusicurs sorties :
s® une sortie sur le Quit habituel
de ProDOS 8 : les modi-
fications de slots ne seront prises en
compte qu’aprés relance de ProDOS.
er une sortie sur le Quit
‘Enhanced’ de ProDOS 8, qui
n’existe sur GS que si on a lancé
d’abord le systéme. Ce Quit
“Enhanced’ est en fait un Launcher :
il permet de lancer n’importe quel
programme type Sys ou Sys16. Je
lui fais lancer pour ma part le
programme Start de ProSel : GS/OS
ou ProDOS 16, étant relancés par
lui, reconfigurent leur liste de
‘devices’. Start langant a son tour
ProSel.System, relance du méme
coup ProDOS 8, qui reconfigure
aussi ses ‘devices’.
C’est cette sortie qu’il faut utiliser si
vous voulez lancer une application
aprés avoir modifié la Bram : il
servira alors de ‘lanceur’ pour cette
application,
“* une sortie avec redémarrage, si
vous voulez relancer la
machine. Ce protocole est la maniére
officielle, recommandée par le Bureau
Politique, pour faire un redémarrage
sur GS.
une seconde sortie avec
redémarrage, si vous voulez
relancer la machine exactement
comme aprés l’avoir éteinte
(c’est-a-dire sans préservation de
/RAMS entre autres). Ceci est une
Jean-Yves Bourdin
bidouille de Bill Basham
(Diversi-Cache) farouchement décon-
seillée par le Bureau Politique (il ost
fort possible qu’elle ne marche pas
avec les versions ultérieures des
Roms 02). Mais, pour lc moment,
elle marche, et elle évite d’éteindre et
rallumer la machine.
Modifier le source
sa Choisissez d’abord les modi-
fications que vous voulez faire a
Ja Bram : la liste des adresses est dans
V'article de J.Toumayeff (Pom’s 36
page 53). Pour trouver les bonnes
valeurs, il faut regarder soi-méme
avant et aprés avoir modifié le
tableau de bord : le GS garde les
valeurs de la Bram en E1/02C0-
E1/03BF. Modifiez en conséquence
en ligne 42 et suivantes dans le
source les valeurs que vous
introduirez dans le buffer en $3000.
s® —Choisissez ensuite votre type de
Quit : redémarrage (lequel des
deux ?), Quit ordinaire (retour a
ProSel par exemple), ou lancement
d’un autre programme. Pour cela,
changez le JMP Launch de la ligne
63 en JMP P8&Quit, JMP ApIRbt, ou
JMP Hrdkbt.
“ Si vous avez choisi de garder
JMP Launch, modifiez le
contenu du label Name en ligne 89
pour mettre le chemin d’accés
complet du fichier a lancer. L’ opcode
STR se charge de mettre l’octet de
longueur en début de chaine. Mettez
bien cette chaine entre apostrophes
(): cela force la chaine en ASCII
positifs (bit 7 a 0). ProDOS 16
accepte les ASCII négatifs dans les
noms d’accés, mais pas GS/OS.
sr Supprimez les DS 20,$EA et
DS 59,300 en lignes 49 et 92:
ils ne servent qu’a réserver de la place
pour ceux qui préférent patcher le
Pom’s n° 41
fichier objet.
« Changez le nom du fichier en
ligne 23 aprés l’opcode DSK.
Patcher le fichier
objet
Le fichier objet “Bram.Master” est
suffisamment court pour pouvoir étre
modifié directement en mémoire ou
sur disque sans réassemblage. Voici
comment faire :
— Choix des modifications a la
Bram : les EA de $202B a
$203E sont 1A pour ca. Si vous
n‘aimez pas I’écran type Mac,
changez a partir de $201C.
— Choix du type de Quit : en
$2057, aprés le 4C, mettre 6A
(Launch), SA (P8Quit), E3
(ApIRbt), ou C5 (IIrdRbt).
— Chemin d’accés du programme
suivant : mettre l’octet de
longueur en $207A, suivi du
nom d’accés complet en ASCII
positif.
Le moindre effort
Pour les partisans du moindre effort,
voici un patch qui crée un fichier
“Bram.Restore”. Vous le fabriquez
une fois quand tous vos réglages du
tableau de bords sont faits. Quand
vous le lancerez (Bram.Restore), il se
chargera de remettre cette confi-
guration dans votre GS, a la place de
celle que les copains, votre épouse,
les éléves, les virus ou les autres
figures du destin ont mises entre
temps. Vous pourrez ensuite faire
plusieurs fichiers pour des
configurations différentes : il suffira
de ne taper que les trois dernitres
lignes du patch (et de donner un nom
différent 4 chaque version du fichier).
CREATE BRAM.RESTORE, TSFF
CALL -151
2000 : 20 D8 FC 18 FB C2 30
F4 00 00 F4 00 22 A2 03 09
* 2010 : 22 00 00 El E2 30 18
22 94 00 El 38 FB 20 00 BE
* 2020 : 65 26 20 BO 00 00 04
00 00 00 00
*
OSIVCUI
1) 39 53 04 40
Dame
AKO
VUOnTsS
gratuit, 24 heures sur 24
Commandes, messages, sommaire,
nouveaux produits
Source BRAM
Assembleur Merlin 16
002000:
00z001:
002004:
002006:
002009:
00200a:
002008:
002000:
002010:
002013:
002016:
00202A:
oozo1c:
00201E:
002021:
002023:
002026:
002028:
00z02B:
00202F:
002033:
002037:
002038:
00203F:
002041:
002044:
002047:
00204A:
00204E:
002050:
002051:
=FoDe
-BFOO
=£10000
=E£10094
le FE
54 =205A
De Fc
00 30
03 OA
00 00 E1
g
S
SSsss
94 00 E1
BRAM MASTER “
Plus de Control-Pomme-Escape. Ce programme *
econfigure la Ram Batterie sans passer par le *
tableau de bord du GS, fait prendre en compte “
la modification par le GS et Prodos, et lance *
un autre programme ou ravient au Quit de Prodos.
Assempleur Merlin 16.
J.¥. Bourdin, Mars 89, Pom's 41,
HOME EQU SFCD8
MLI EQU SDF00
TOOLBOX EQU SE1U0UU
BRAMSTP EQU $E10094 =; vecteur TOBRAMSETUP
garanti par Apple
Mm 811 jon démarre en mode
émulation (8 bits)
ORG $2000
DSK BRAM.MASTER
TYP SFF
VERIFCS SEC ivérifie qu'on ect cur GS
JSR SFEIF
BCS P8QUIT sinon quitte
INIT JSR HOME
cic spassage en 16 bits
XCE
READBRAM REP 800110000 ;registres 16 pits
PEA $0000
PEA $3000 ybuffer en $9032000
LDX —#$0A03 7lit la Bram
JSL TOOLBOX
MODBRAM SEP $00110000 ;rogictres @ bite
uA #900 met l'arricnage
STA $301A yen “écran Mac"
LDA 4S0F
STA 93013
LDA #S0F
STA $301C
DS 20, SEA ja remplacer par vos
modifications 4 la
Bram.
WRTEBRAM REP 400110000 ;registres 16 bits
PEA 90000
PEA $3000 buffer en so030v0
IDX #80903 pécrit la Bram
JSL TOOLBOX
SETBRAM SEP %00110000 ;registres @ bits
cic savec CIC, reconfigure
gsL BRAMSTP «=; les slots
Pom’s n° 41
23
24
* BSAVE BRAM.RESTORE, AS2000,
L$2A, TSEF
* BLOAD BRAM,.RESTORE, AS2000,
TSEF
* 00/2200<E1/02C0.E1/03BFM
* BSAVE BRAM.RESTORE, A$2000,
LS2FF, TSFF
Références
ee Sur les appels au Miscellaneous
Toolset ct la liste des octets de
la Bram : Toolbox Reference,
Volume 1, Page 14-9 a 14-12, ou
Pom’s 36 pages 53-54.
PARMO
MLI
6s
PARMO
ERRO
retour en @ bits
sou P8Quit ou AppleReboot
ou HardReboot
;Quit Prodos 8 ordinaire
FQuit Prodos 8
80
ye
ce Sur le vecteur ToBramSctup en S
$E1/0094 (vectcur garanti par ai
Apple) : voir Firmware Reference, aS
page 273. a
88
s@ Sur Je Enhanced Quit Call de a9 NAME STR '/S/SYSTEM/START'
ProDOS 8 sous systéme 16 qui, mettre le chemin dtaccées
si on cst sous ProDOS 8 seul, se eee tae
comporte comme un Quit normal, 0
voir ProDOS 16 Reference, 92
Chapitres 5 et 12. oo 92 DS $9,800 fle Loner d'accés est
00 modifiable sans
00 réassemhlage
sw Sur le redémarrage officiel oo
Apple pour GS, voir GS 00
Technical Note No 49. a
rae F 0020a6: 0G 00 00 00
sw Sur la Didouille de Bill Basham, 0020AA: 00 00 00 00
et la petite polémique qu’il a —-0020aE: 00 00 an 00
engendrée, voir Open Apple (A2 oe = & on So
Central), 3.48, 3.80 et 3.83. aesoee? Ga Gb a6 60
0020BE: 00 00 00 00
0020¢2: 00 00 00
93
oo20cs: 1 94 HRDRBT cLe passage en 16 bits
0020c6: FB 95 XCE
0020C7; C2 30 96 REP #00110000
Note 97
Si Vous mettez comme moi une carte 0020C9: a9 51 00 on #30081 iHard Reboot de Bill
‘i agen oozocc: 85 00 99 $00 Bagham pas du tout
Ramdisque (ordinaire, pas auto- 0020cE 100 $0002 Epenulk ae Agple!
alimentée) en slot 6, vous constaterez 0020D1 101 $0000
qu’aprés avoir ‘switché’ sur les G020R4: Re open
” rar ‘ a jO20D7: 1 s
lecteurs 5,25” puis ‘reswitché’ sur la ana 22 09°09 i0d oaay
carte Ram, le contenu de lacarte reste —nozenn: 22 00 00 E1 105 TOOLBOX
intact ; méme quand le GS utilise 106
‘son’ slot 6, il laisse alimentée la 907087 38 ac oe RESRERE “CBOE
:F
carte dans ce slot. Bon sang, quelle 109
bonne machine ! Je n’ai pas essayé, 00203: 78 110 APLRBT Reboot reconmandé par
mais je suppose que cela est vrai de ee pied Decree er
x a 2 C068 7StateReg
tous les slots : eh mais, on peut has scoa7 sateveL int.
peut-étre, aprés tout, mettre quelque 114 $c041 7IntEn
chose dans le slot 5 ! Une Technote us 8309
Apple nous apprend méme qu'on ie ay al
peut démarrer GS/OS depuis Ic slot 118 $039
3: 119 $03F4
O020FC: 6C FC FF 120 (SFFFC)
> °
Pom’s n° 41
q |
Les TimeOut vf
1988
révolution AppleWorks...
décembre : TimeOut Paint
Ets Cohen
Portes et portatls
23, rue gu Chéne
37100 Tours
Tél. : 10.52.45.90
Tours, le 10 novembre 1988
Monsieur Jean Netter
1 bis, rue de la Marre
78000 Versailles
Cher Client,
Comme convenu lors de notre derniére conversation téléphonique, nous
VOUS Vous proposons un avant-projet ‘installation de votre portall, I! va de
soit que cect ne constitue qu'une approche ; nous restons a votre entiére
disposition pour @éventuelles modifications
|
i=)
Nous vous adressons, Cher Client, nos sincéres salutations
Charles Roullet
Directeur commercial
Secteur C3.
Responsable : J. Lefebwe
i484
38
28
Apple IGS
Macintosh Apple le Apple lic
Secteur C3
Responsable : J. Lefebvre
248
208
168
148
128
188
nv 185,
t
nv 186 nv 187 iv 188
Fichler : Regression 10/11/00
Regression linéaire pan la méthode des nolndres carrés
n= ? sun(x*y))
oun(x)= 64 oun(x*2)
279 sun(y~2)*
Niveou relat
x y
4 15
5 17
7 39 273 49 1521
10 23 390 100 1009
W 92 372 121 2704
12 56 696 144 3364
15 65 975 225° 4225
2991 a=
680 >
139417 n
TimeOut VF
O
Graph
2,57
= 4,64
= i)
SuperFonts
résult
UltraMacros
SideSpread
Paint
Exclusivité Pom’s, les TimeOut vf sont entiérement francisés et fonctionnent avec AppleWorks 1.4 sur Apple IIs,
Apple //c et Apple //e (128Ko) — Notes techniques sur simple demande — Bon de commande page 71.
26
Un nouveau TimeOut
Calendrier
Inspiré par le programme
de Daniel Lurot “To.Font-
Viewer” ainsi que par les
explications qu’il fournis-
sait, R. Coustal a voulu
réaliser une application
TimeOut. Souhaitant tout
d’abord faire un simple
affichage de la date et de
I’heure, il s'est rapide-
ment trouvé devant un
programme plus ambitieux
lorsqu'il a dai se plonger
dans les subtilités de
notre bon vieux calen-
drier.
Le programme To.Calendrier per-
met:
= cn mode immédiat : affichage de
la date, de I’heure, du jour de la
semaine, du nombre de jours écoulés
dans I’annéc, de l’age de Ia lune, des
fétes et du saint du jour.
@ enmode recherche : affichage de
ces mémes renseignements pour
n’importe quel jour depuis le ler
janvier de Van 1 jusqu’au 31
décembre de !l’an 25599. De plus, il
permet aussi de convertir unc date du
calendrier grégorien (le nétre) en date
du calendrier julicn (en vigueur en
Russic, par exemple, jusqu’a la
révolution, ou en Angleterre jusqu’en
1752) et vice versa.
Les calendriers
En ce qui concerne les données
théoriques, le plus simple est de se
reporter a l'article de Jean Perrot dans
de numéro.
Ajoutons un mot sur le cycle lunaire.
La lune reproduit ses phases tous les
29 jours 1/2 environ, clle ne peut
donc coincider avec la périodicité de
ces deux calendriers. Or, connaitre les
phases de la lune est nécessaire pour
savoir quelle date tombera Paques
une année donnée, ainsi que les dates
des autres f€tes qui y sont liées,
souvent jours fériés dans notre
calendrier civil. On appelle age de la
lune le nombre de jours écoulés
depuis la dernigre nouvelle lune : la
pleine lune tombe donc au 15 de ce
mois lunaire, le premier quarticr au 7
ou au 8 et le dernier quartier au 22 ou
au 23.
D’autres fétes mobiles sont liées au
jour de la semaine, ne pouvant avoir
licu qu’un dimanche.
| Comment faire ?
Pour utiliser ce TimeOut
made in France, il faut que
le noyau TimeOut soit déja
installé sur votre Apple-
Works. Autrement dit, il
faut que vous ayez déja
installé ou SuperFonts, ou
Graph, ou SideSpread,
ete.
Mettez TO.CALENDRIER
sur votre disque la ol se
Graph...
Calendrier se chargera
alors automatiquement.
Vous pourriez également
charger ce nouveau Time-
Out depuis la disquette
Pom’s, avec TimeOut Utili-
taires.
trouvent déja SuperFonts, |
Robert Coustal
Utilisation du
programme
Pour utiliser le programme il faut,
s’il n’est pas dans le catalogue oi Ic
noyau de TimeOut va chercher ses
applications, le charger d’abord &
Taide de To.Utilitaires en choisissant
“ajouter des applications”. S’il est
dans le bon catalogue, AppleWorks
le chargera automatiquement au
démarrage.
On y accéde ensuite par le menu de
TimeOut (G-Escape), le programme
affiche alors les renseignements pour
le jour en cours ainsi que I’heure. II
tient compte du temps réel écoulé et
peut donc changer de date en cours de
consultation, Presser Escape fait
revenir 4 AppleWorks.
Si I’on veut rechercher les rensei
gnements pour une autre date, on
peut alors se déplacer dans le temps
grace aux fléches combinées avec la
touche (3, une aide est affichée a
l’écran sur la derniére ligne. On passe
alors en mode recherche ct bien que
Vheure soit toujours affichée et
remise a jour, elle n’influence plus la
date consultée. Dans ce mode de
recherche, presser Escape fera revenir
a l'affichage de la date actuelle.
Lorsqu’on remonte dans le temps, le
programme passera du calendrier
grégorien au calendrier julien quand il
dépassera la date de la réforme du
calendricr (15 octobre 1582, par
défaut). On peut soi-méme fixer la
date du changement de style en
appuyant sur G-S. La date sera
ajustée (diminuée si l’on passe du
style grégorien au style julien) pour
Pom’s n° 41
donner sa correspondance dans I’autre
style. Cette option ne marche qu’A
partir du IVéme siécle car, sinon, le
calendrier grégorien serait en avance
sur le calendrier julien. Or la réforme
grégorienne a été réalisée pour éviter
la dérive de l’équinoxe de printemps,
qui était le 21 mars lors du concile de
Nicée en I’an 325, 1’écart entre les
deux calendriers est donc nul pour
cette Epoque. La date du changement
choisie se mainticnt tant que
To.Calendrier est ouvert.
Limites du programme
@ Lc programme cst exact pour Ic
jour de la semaine et les dates des
fétes mobiles, toutefois l’age de la
lunc n’est donné qu’avec une valeur
approchée du fait de l’irrégularité de
son mouvement. En style grégorien
elle ne différera dans le pire des cas
que d’un ou deux jours sur la lune
astronomique. Si l’on pousse le
calcul trés loin vers l’avenir il est
certain que l’estimation sera faussée
(mais c’est peut-étre la lune qui aura
varié). En style julien, elle sera
fausse de plus en plus rapidement
(clle avait déja 3 jours de retard lors
de la réforme grégorienne).
@ On ne peut pas reculer avant
lan 1 de notre ére, bien que le
calendrier julien date de ’'an +45 av.
J.-C. (on ne peut pas non plus
dépasser le 2568me siécle, mais c'est
moins génant),
@ = Les noms des saints et des {€tes
fixes sont ceux du calendricr
actuel, datant en grande partie de
1969, or l’Eglise a souvent varié
dans l’attribution des dates de
célébration. En remontant dans le
temps on peut ainsi aboutir a des
non-sens en célébrant un personnage
qui n’était pas encore né. Toutefois,
les jours fériés actuels sont affichés
uniquement si l’année recherchée est
postérieure & leur institution (14
juillet, armistices, ctc.) ct les saints
principaux ont peu changé de place
historiquement (St Jean, St Syl-
vestre, etc.).
@ Du fait de Vutilisation de
caractéres-souris pour I’affichage
(c’est plus joli), éviter, sous peine de
Préfixe: /Z/APLH
CALENDRIER Esc: Revue/Ajout/Modi f.
Nenu Principal 1
1
tt Putres Ac a
tt 1
tre Liste lund! 24 Avril i989 10:08 ————!—
tre Sous-C !
ret No te !
Pott sesses Saint Fiddle = 1
rt TO.30E 2 1
pry TO.ANA | 114-251 we70 grégor.| 2/88 !
£4 TO.ASC 1/88 1
pry TO. ARP 11/88 !
pre TO.BLOCCOPY Autre SK 27/12/88 !
BES TO. CALCUL Autre SK «3/01/89 !
re it LEN Gris futre 15K 3/01/89 1
a ie TO. CALENDRIER futre ‘7K 22/03/89 18:38 |
rt TO.CALEPIN futre WOK 31/12/88 10;17 |
11 TO.cASE futre 2k 3/01/89 !
1 !
€> Jour, O€Fnols, TL an, OTL slecie, OS changer style (ce) R.Coustal/eo
L'écran de votre nouveau TimeOut
surprises, lcs recopics d’écran par
G-H.
Fonctionnement
du programme
La structure d’une application TO a
déja été expliquée par Daniel Lurot
dans Pom’s, il est conseillé de s’y
reporter,
To.Calendrier utilise des routines
internes d’AppleWorks pour I'affi-
chage et la conversion de nombres
hexadécimaux par exemple, leur
fonctionnement est i
comprendre a Ia lecture du source. Le
programme a été réalisé avec
AppleWorks 1.4 (VF) mais il
devrait, semble-t-il, fonctionner aussi
avec la version américaine 2.0.
Pour connaitre la date et I’heure, le
programme fait appel a la fonction
MLI gettime de ProDOS 8 qui copic
la date et ’heure du systéme aux
adresses $BF90 et $BF91 pour la date
et $BF92 ct SBF93 pour I’heure, il
faut donc une carte horloge (il faut
aussi les caractéres mousetext, mais
Ic source est adaptable facilement).
La vitesse du ‘tic-tac’ est adaptable en
modifiant le paramétre tictime au
début du source en fonction de la
vitesse du microprocesseur, ici le
“tic-tac’ est réglé pour un Apple IGS,
Pour les calculs, j'ai utilisé des
formules de provenances diverses
(annuaires du Bureau des Longitudes,
Que-sais-je “Le Calendrier” par
P. Coudere, ainsi que des travaux de
jeunesse de mon grand-pére René
Coustal).
Exemple : calcul du jour de la
semaine :
Indice séculaire IS
Prendre le chiffre des centaines de
Vannée
@ en style julien ajouter 2 et
prendre la différence entre ce
nombre et le multiple de 7
supérieur ;
@ en style grégorien prendre le
reste de la division du numéro
du sitcle par 4 , le doubler ct
prendre la différence avec le
multiple de 7 supérieur.
Indice annuel IA
Prendre le rang de l’année dans le
sidcle A.
ia = reste de (A + INT(A/4) )/7
Indice mensuel IM
Il se trouve dans une table,
enlever 1 pour janvier et février
des années bissextiles.
IM de janvier a f€vrier : 6, 2, 2,
5, 0, 3, 5, 1,4, 6, 2,4
N° du jour dans le mois Q
Le jour de la semaine est alors
obtenue comme suit (0 = dimanche) :
J=reste de (Q+IM+IS +IA)/7
Les autres formules se retrouvent
dans le source du programme.
Pom’s n° 41
27
28
Source Calendrier.S
Assembleur Merlin
- TO. CALENDRIER :
+ Accessoire time our :
* Robert COUSTAL / 1989 *
* (Asm Merlin)
DSK TO. CALENDRIER
ust off
* ADRESSES APPLEWORKS
keys = SOPFS.
coneat = s10FD
gotab = 91118
getkey = S11DA
affpstr = sli6F
sp044
SOFD7
* ADRESSES PRODUS
MUI - SBFO0
DATE - SBF90
TIME - sBF92
gettime = 382
SPKR - $c030
tictime = 68
80-length/2
5
ORG = $2100
name STR
Ds $08
REX 01
* liste segments
* segment 1
DA $0000
HEX 00
x DA $0000
* eof
DA —-END-START
HEX 00
HEX 00
* SEGMENT 1 .
start JSR affpstr
DFB oO
DFB 23
DA = __msq
* recuperation de la date
readtime JSR callMLI
LDA DATE+1
CMP © oLGDATE+1
BNE getDATE
LDA DATE
cup ol dDATE
BEQ nochange
getDATE LDA DATE
STA G1dDATE
AND -£800021111
STA day
ISR
SR
STA month
xXeme STX century
* calcul et affichages
JSR aftpstr
DPB 61
DFR OO
DA = _esel
JSR box
JSR comput
Atneout
nochange JSR
* touche appuyee?
LDA keys
BEQ readtime
ISR getkey
cmp £513
BNE disp0
RTS
* mode recherche
affloop JSR callMLT
ineout
keys
affloop
getkey
@ispo cue £518
BEQ getDATE
JSR displ
JSR comput
JSR box
* dispatching
displ CMP.
DEQ
cue
BEQ
* augmenter
incday JSR
cey
BEQ
Inc
rs
nextnth LDA
STA
inementh LDA
cue
BEQ
INC
RTS
nextyear LDA
STA
ineyear IDA
cup
BEQ
INC
RTS
nextcent LDA
STA
inccent INC
affpstr
a
°
_esc2
affloop
#515
ineday
£395
inemonth
£508
incyear
cap
inccent
disp2
lgmonth
day
nextmth
day
£501
day
month
£12
nextyear
month
£902
month
year
£99
nextcent
year
£800
year
century
* suite dispatching
disp2 CMP
BEQ
cue
BEQ
cue
BEO
cMP
BEG
cup
BEQ
Ts
* diminuer
decday LDX
laatmth LDX
BNE
1Dx
a2 JSR
sty
decmonth LDX
DEX
BEQ
£508
decday
ese8
decmontn
£50A
decyear
58a
deccent
£$D3
invstyle
day
lastmth
day
month
at.
£12
Igmonth2
vay
month
lastyear
month
Pom’s n° 41
RIS
lastyear LOA £12
STA month
decyear LDX year
BEQ lastcent
Dex
BNE 31
WDA century
BNE 21
INX
a STX year
RTS
lastcent LDA £99
STA year
deccent EDX century
DEQ
vex
BNE :1
LDA year
BNE:
INC year
2 STX century
20 RTS
anger le style de calendrler
invstyle LDX century
CPX £803
Bec 3Q
LDA £400000001
HOR style
STA style
STX centG
IDA yoar
STA year
LDA month
STA monthG
LDA day
STA day
LDA ecartG
BEQ 30
STA data
Lx atyle
Beg rine
idec JSR decday
DEC data
ANA ordre
RTs
inc JSR incday
DEC data
BNE tine
@ RTS
+ — stackage paramat res
century DS $02
year Ds $02
month DS $01
day Ds $02
weekday DS $01
hour Ds $02
minute DS $02
rank Ds $02
dayleft ps $02
amoon DS $02
OldDATE DS $02
etyle DS = $01
bis ps $02
im Ds $01
fa Ds $01
is Ds $01.
delta Ds go
epacte Ds $01
epactep DS $01
easter DS
feast DS
lastcar DS
data Ds
$01
$01
$01
902
* date changement de style
dayc Dra
monthG DFB
centG DFB
yearG = DEB
ecarts DS
15
10
15
a2
£602
* paramtres du clignotement
tietime
01
counter DFB
flag HEX
perrerertetey
+ carcurs
* mises a zéro
comput = TRA
STA
LDA
STA
STA
* écart grégorien au ler mars en jour
LOA
* grégorien ou
fdstyle Lox
sjulien INX
20 stx
£800
feast
<_empty
adfmob
adfmob2
adft
£>_empty
adtmob+1
adfmob2+1,
adff+1
century
data
year
10k
month
£503
10k
£301
data
£902
ecartG
data
ecarts
ecartG
julien
£300
centG
century
20
rjulien
years
year
2
julien
month@
month
70
julien
day
days
20
style
* qunée bissextile?
TxA
BNE
LDA
BNE
LDA century
ome is
zjul LDA year
tbis ann £400000011
STA bie
* verifie si le quantiéme est valide
SR lgmonth
cey day
pcs :fdim
STY day
* recherche du mols
fdim LDA {mthl-1,x
iY bis
BNE zstim
LDX month
Cex £03
ACS stim
sec
SBC £501
rstim = STA im
* recherche l'adresse du nom au mois
oxKA
ASL
LDA nmonth-2,X
STA admonth
LDA nmonth-1,X
STA admonth+1.
“ calcul de l‘indice séculaire
fdis LDA century
TRY style
REQ :mod4
cue
ADC £502
STA is
sec
spe
Bes
ace
mmod4 STA
sec
sac £3904
BCS :mod4
ASL is
3to7 LDA £07
sec
sBc is
STA is
* calcul du jour de la semaine
tdwkday LDA year
ISR
TSR
cue
ADC year
apc is
:mod7a STA da
sec
SBC £$07
BCS :mod7a
LDA ia
ADC day
apc im
imod7b STA weekday
SEC
Pom’s n° 41
29
spc £607
BCS tmod7D
LDA weekday
ASL
‘TAX
LDA awkday,X
STA adwkday
LDA nwkday+1,X
STA adwkday+1
* calcul du rang du jour dans l'année
fdrank UDA £500
STA rank+i
wx month
WDA ranktbl-1,x
cic
ADC day
STA rank
BCC tnocarry
INC rank+l
inocarry CPX £503
Bcc tnobiel
WDA bis
BNE :nobis1
INC rank
BNE :nobiol
INC rank+1
tobisl CPX £S0A
slowmth
rank+1
£802
STA dayleft+2
LOY © £365-256
WDA bis
BNE :nobis2
ny
mobis2 STY daylett
SEC
LDA dayleft
SBC rank
STA dayleft
LDA dayleft+1
SBC rank+1
STA dayleft+t
* calcul de delta
fddelta LDA style
DEQ igregor
LWA £908
ump zstdelta
sgregor LDA century
STA data
LSR
LSR
STA delta
LDA £800
STA datatl
Lx £503
rmult® ASL data
ROT, © datati
DEX
BNE :mults
cLe
LDA data
apc £13
STA data
Bcc :nocarry
INC datatl
LX {SF
INK
sec
LWA data
spc £25
STA data
LDA datas
SBC £900
STA datatl
istdelta
* calcul
fdepacte
smodl9
imodl9b
mult1l
tmod30
* calcul
de l'épacte
dives
£508
century
delta
celta
delta
£120
delta
* calcul
staneg
LDA century
STA epacte
sec
sac £19
BCS :modi9
LDA epacte
IDX £04
cic
ADC epacte
DEX
eee yabIES + calcul
ADC year
STA epacte tenoba
SEC
sac £19
BCS :modi9b
LDA epacte
STA epactep
LDA £800
STA data
STA data+i
oy Et rmod30
cic
LDA data
ADC epacte
STA date
LDA data+l esses
ADC £800 sealeat
STA data+l
Lit fdfetmoo
BNE = zmultti
cc
LDA data
anc delta
STA data
Bcc | :mod30 penis
INC data¢l
SEC
EDA data
sac £30
STA data
LDA data+l
SBC £800
STA data+t
Bes :mod30
LDA data
cLe
anc £30 weil
STA epacte
de l'epacte pascale
cmp £24
ace
BNE
LDA £25 10
cme £25
BNE 22
LDX epactep exon
CPX £508
Bec 2 fddinmob
IDA £26
STA epactep
SEC
sac £30
STA epactep
de Paques
SEC
sac ia
cLe
ADC £802
cme = £g80
BCC :mod?
cLe
ADC £807
gmp tianeg
STA fa
SEC
SBC £$07
BCS rmod7
LDA £45
SEC
SRC epactep
cLe
apc ota
STA easter
age de la lune
LDA month
CMP £804
Bes 31
LDA £903
SEC
spc £802
cue
ADC day
ADC epacte
STA amoon
SEC
sBc £30
BCS :mud30
des fates mobiles
LDA easter
cLe
ADC £59-47
tox bis
BNE :nobis
ac £301
LX rank+1
BNE 30
tx £13
STA data
Lc
LDA data
apc diffm-1,X
CMP rank
BEQ zoul
DEX
BNE :1oop
BEQ 3:0
TxA
ASL
TAX
LDA nfm-2,X
STA adfmob
LDA nfm-1,X
STA adfmob+1
INC feast
des dimanches mobiles
IDX weekday
BNE 02
LOA easter
CMP £37
BCC :normal
30
Pom’s n° 41
cmp £44
BCS = znormal
LDA mother
ADC £507
STA mother
tnormal IDX £10
sloop = LDA century
CMP © datefaim-z,x
BCC :non
BNE tok
LDA year
CMP datefdim-2,x
BCC non
10k LDA ranke1
CMP VimFdim-1,X
BNE snon
LDA Limfdim-2,x
Ly bis
BNE :nebis
rDy £803
cey month
BCS :nobis
Apc £801
nobis CMP rank
BCS = :non
cue
apc £S07
cMe rank
RES sont
fron Dex
DEx
BNE: Loop
BEQ 3
roul LDA nfdim-?,X
STA adfmob2
LOA nf'dim-1,x
STA adfmob2+1
INC feast
19 TDA £144
STA lmother
* recherche dea fétes fixco
fdffix LDA rank+l
STA data+i
LDA rank
STA data
wy bis
BNE :nobis
Ly £803
CRY month
BCS inobis
sac £802
STA data
BCS :nobia
DEC datatl
IDX £16
LDA century
CMP dateff-2,x
Bec tnon
BNE 0k
LDA year
CMP dateff-1,x
Bcc :non
10k LDA datati
CMP indexff-1,x
BNE :non
LDA data
CMP index ff-7,%
BEQ roui
DEX
DEX
BNE loop
BEQ fdsaint
LDA nf £-2,X
STA agtt
LDA nf f-1,X
STA adff+1
INC feast
* vecherche du saint du jour
fdsaint LDA month
ASL.
TAX
LDA saintab-2,%
STA :oop+1
LDA saintab-1,X
STA Hlanp+?
Lx £00
sloop LDA
sincadr LDA
igoloop sTY lastear
me sloop
30k LDA: 1oop+1.
STA adsaint.
LDA tr loops2
STA adsaintri
* construction des chaines
* A afficher
lineout JSR clearstr
JSR naneat
DA _st ring
adwkaay VA $0000
ask linel
JSR convhex
DA aay
JSR addnumb
JsR Liner
JSR concat
vA _string
admonth DA $0000
JSR linel
LDA century
Beg. tist
JSR convhex
DA century
JSR addnumb
LDA year
JSR one
rst JSR convhex
DA year
SSR addnumb
MDX = £803
IDA hour
CMP £SOA
acs zh
NX
thd JSR line
JSR convhex
DA hour
JSR addnumb
+ elignotement des 2 points
ine de la date ,iére ligne
DEC
BNE
LDA
STA
LDA
EOR
STA
LDA
iseteol LDA
EQ
JSR
DA
DA
op
isetsp JSR
iin LDA
JSR
JSR
Dx
ISK
counter
tsetcol
ttictime
counter
flag
£400000001
flag
SPKR
flag
teetep
coucat
_string
“colon
imin
iinet
minute
convnex
minute
addnumb
ivtabi2
aftmid
* construction de la 2éme ligne
Lineout2 LUA
STA
ose
gsr
DA
adfmob DA
Isr
JSR
DA
adfmob2 DA
JSR
ase
DA
adff DA
ux
usK
feast
data
clearstr
concat
_string
$0000
putslash
concat
_string
$0000
utslash
concat
_string
$0000
tvlabed
artmia
* affichage des saints, 3éme ligne
ineout3 JSR
LDA
coe
BEQ
PIA
usk
DA
DA
PLA
cue
BEQ
cue
asp
rsainte JSR
DA
DA
space JSR
ya ask
DA
adsaint DA
Lx
gsR
elearste
lastear
£580
concat
_string
Csaint
£981
rsainte
£582
apace
concat
_string
saints
space
concat
concat
_string
$0000
Evtab+5
affmid
Pom’s n° 41
31
32
* construction 4éme ligne
lineout
reobis
rFtoN
:full
iew
raft
zoreg
raffsty
poeeerererrerrttereretrtriitiiiay
ask
LDA
BNE
ASR
DA
ASR
JSR
a5R
gsr
DA
DA
Lox
OBR
LDA
BEQ
osR
gsr
RTS
clearste
bis
rnobis
coneat
_string
“pinv
Tinel
convhex
rank
addnumb
concat
_string
minus
convhex
dayleft
addnumb
affpstr
hrabed
vtab+7
_string
clearstr
convhex
moon
adanump
line?
amoon
concat
_atring
Chewfull
raft
concat
string
_fulinew
raft
concat
_string
_fullm
of
concat.
_string
newn
tytap+7
affmia
clearetr
style
rgreg
concat
concat
_string
ore
affpstr
htabtlength-9
vtabt+?
_string
261
423
gotab
+ sous programmes divers
* va lize et srocke Itheure
callmi JSR MLT
DPB gettime
HEX 0000
LDA TIMES1
STA hour
MwA TIME
STA minute
RT:
* trouve 1a longueur du mois
* et ajoute un jour 4 février si pissex
lgmonth LDX month
lymonth2 LDY monthig-1,X
WDA bis
BNE :0
Cex £502
BNE:
INY
RTS
+ ajoute un nombre décimal
addnumb JSR concat
DA = _string
Bs “result
* met la chaine a zéro
clearstr LDA £800
STA _string
RTS
a
* ajoute un zero ai nécéosaire
one cMP £S0A
Bcs 30
JSR concat
DA _string
DA _zero
20 RTS
* ajoute plusieurs fuis un caractére
linel LDX £801
line SIX data
loop -«JSR_— concat
DA = _string
char DA _space
DEC data
BNE loop
RIS
* ajoute un slash si nécéssaire
putslash LDA _string
ostr RTS
:dec DEC data
sput JSR concat
DA string
DA _slash
RTS
* cenlraye et affichage de la chaine
aftmid sTX :vtab
IDA £80
SEC
sac _string
Isp
STA shteb
JSR affpstr
DFB $00
DFE $00
DA _etring
RTS
* trace le cadre
box JSR clearstr
LDxX flenath
SSR line
JSR affpstr
DYB ntab
DPB vtab+9
DA _string
EDA £g9A
STA _string+z
LDA ESOP
STA _string+length-1
LDA tvtab+l
STA
sloop JER
bre
ivtab DF
DA _string
INC :vtab
pec data
BNE :Loop
LDA £<_undersc
STA char
LDA £>_underse
SYA char+l
EDA £802
STA _etring
LOX flength=4
JSR line
LDA flength
STA String
Jen affpotr
DFS htab
DPB vtab+a
DA __string
wa :
STA _string+z
STA _string+length-1
JSR affpstr
DPB htab
Drs vlab
DA _string
LDA £<_space
STA char
LDA £>_space
STA char+1.
+ datas pour 1'affichage
* chaines diverses
_string DS length+2
empty HEX 00
cspace STR '!
“minus STR t+!
Pom’s n° 41
underse STR
STR
STR
STR
STR
STR
STR
HEX
a HEX
_fulinew HEX
Cnewfull HEX
escl STR
_esc2 STR
msg DEB
REX
ASC
HEX
asc
BEX
rend
* adresses des ni
awkday = DA
DA
DA
DA
DA
DA
DA
‘ee
pm
agin
‘grégor.!
*jullen*
058020952081
058120952080
*Revue/Ajout /Modif.*
(Date d*aujourd*hui (
tend-*-1
882095
* jour, *
9120882095
‘mois, ¢
9n2083
‘an, *
81208Az08B
+ sidcle, ¢
81
‘8 changer style’
* (ce) R.coustal/e9*
“DTMANCHR*
‘tundi*
‘marai*
tmercredi*
‘Jeudi*
tvendredi?
‘samedi*
* tables des
monthlg HEX
imthl —-HFX
ranktbl DFB
Fa
DPB
vrs
DFB
DFR
nmonth = DA.
DA
DA
DA
vA
DA
DA
DA
DA
ba
mois
Apicirigir
1ELFLFIEIFIELY
9602020500
030S0104060204
°
3
5a
90
120
151
181
212
243
273-296
304-256
334-256
STR ‘Janvier!
STR 'Février!
STR ‘Maro?
STR ‘Avrilt
STR 'Mai"
STR ‘Juin*
STR ‘Juillet!
8TR ‘Aout?
STR "Septembre’
STR ‘Octobre’
STR 'Novembre*
STR 'Décemhra
* fetes mobiles dépendant de Paques
diffm DPB 0
DeBeo1
DrD OS
bes 23
DPB 40
DPB 44
DPB 4S
pro 47
bre 48
DPB 86
DPB 96
DPB OST
DPB 110
nfm DA
DA
DA
DA
DA
DA
mA
DA orp
DA spl
DA _:dp39
DA zp
DA td
DA sdp63
STR 'Mardi-Gras*
STR 'Cendres'
STR 'Caréme!
STR ‘Mi-Caréme*
STR ‘Rameaux*
STR ‘Jeudi Saint’
STR 'Vendredi Saint’
STR 'PAQUES'
STR ‘LUNDI de PAQUES'
STR ‘ASCENSLUN*
STR ‘PENTECOTE'
STR ‘LUNDI de PENTECOTE'
STR 'Féte Dicut
* fates dépendant d'un dimanche
limtdim DW 330
DH
DW «127
Imother DW = 144
pw 113.
datetdim DH 0
DH
DPB 19
DPB 42
DrB 19
DPB 41
Dra 19
DPR O47
nidim DA
DA
DA
DA
DA
Pom’s n°
41
ravent
sepi
Joan
imother
ouy
* fates
indextr
dateft
att
inewyoar
plabor
rarm45
ifetnat
rassompt
_saint
sainte
saints
saintab
eJanv
BND
* Thanks 4 René Coustal pour ses formules
STR
STR
fixes
Dw
Di
DW
Dw
Dw
DW
DW
Dw
HEX
DEB
DEB
DFB
eR
DFE
DFB
DEB
DFB
DA
va
DA
DA
DA
DA
DA
DA
STR
STR
STR
STR
STR
STR
STR
sre
dos sai
STR
STR
STR
‘Avent
*Epiphanie*
(Pete Jeanne d'Arc(
'Péte des Mares!
‘Jour du Souvenix*
227
305
asa
195
ns
121
128
9000000000000000
18
80
19
22
29
47
19
a7
newyear
rassompt
rtouss
Xmas
fetnat
sarmio
labor
arms
(JOUR de 1*AN(
“PETE du TRAVAIL’
‘ARMISTICE 1945*
‘PETE NATIONALE*
*ASSOMPTION*
‘TOUSSAINT!
‘ARMISTICE 1918¢
*NOEL*
ate
*Saint*
ee
ts?
rr
*eulgence*
‘Basile's1
‘Genevieve!
*Odilon*
*Btiennet
*Jean*82
"Tnnocent a!
‘David!
*Roger*
*sylvestri
33
Consultation des écritures
BRED 562 6776 992218
Carte Visa Jean-Paul
Carte Visa Beatrix
Carte American
@ Depense
7 tI Recette
atenentsts* Virement carte
Divers maison
Voiture S12
Restaurent/sorties ee
Photo
Musique Libellé 2:
Loisirs Multirisques Habitation
rr ‘public’... Numéro: 7956852
Vacances Montant: 721,56
Danseuse @ faaersoD
Autres Gaes, co O(a
Consultetion d'une écriture ‘pointée’.
Vous étes alors paré pour la gestion
moderne de vos finances et il vous
faut saisir une écriture de reprise de
solde par compte.
changer ces rubriques.
Ventilation
O Alimentati
@ Divers.m
Direction le point © od vous
indiquerez, par la saisie d'une écriture,
(2)
votre avoir en banque (ce sera une
recette) ou votre découvert (ce sera
alors une recette négative ou une
dépense).
Méme chose pour les sommes dues
sur les cartes de crédit, saisissez une
écriture de dépense.
Saisie d'écriture
Pour la saisie d'une écriture, vous
devez choisir le compte concerné
et le sens de l'écriture — recette,
dépense ou virement carte.
Virement carte, c'est l'opération de fin
de mois par laquelle la banque diminuc
la somme due au titre d'une carte de
crédit, et par la méme occasion
diminue votre avoir sur lc compte.
Indiquez une ou deux lignes de
libellé, lc numéro d'opération
(celui du ch&que lors d'une dépense par
exemple), le montant.
Si l'opération est ‘pointée’, c'est-a-dire
si elle apparait déja sur l'extrait regu de
la banque (cas d'un prélévement de
frais par exemple), cliquez sur
Pointage et la mention VU
s'affichera.
HyperCard ——ae so
Menu principal Quitter
>
HuperComptes @ HyperComptes a
Saisir des écritures
sur compte 1, 20u 36
P41
fcran [>| Menudesécritures |) Consulter/pointer
de saisie ald prédéfinies ep) Jes écritures el
T J
Edition d'une
écriture standard
a)
Situation
yr
fcritures
des comptes @
ps
Ventilation des
recettes et dépenses
Pom’s n° 41
Validez alors ; l'opération cst passéc,
une carte HyperCard représentant cette
écriture a été ajoutée a la pile.
Plus simple : pour les opérations
habituelles (salaire, essence,
alimentation, prélévements, etc.) vous
pouvez cliquer sur la petite cassette 4
gauche de l'écran et la liste de vos
opérations prédéfinies vous sera
proposée (®), simplifiant considé-
rablement la saisic ; nous cn verrons
l'utilisation plus loin.
| Carte American
@
Alimentation
Divers maison
Au retour de ce choix, les donnécs
concernant l'opération standard choisie
seront en place, a compléter
éventuellement.
L'eeil classique HyperCard, & droite de
la cassette, vous permet d'aller faire un
tour vers la situation de vos comptes,
point ©.
Les écritures
prédéfinies
Autre point fort de cette pile. Vous
n'avez pas d'écritures standard
imposées, c'est vous qui les définissez
LES MESSAGES HyPERCARD.
A quels objets sont-ils envoyés ? Dans quel ordre ?
bouton champ champ
non verrouillé
verrouillé
Soviets
Messages
carte
fond pile pile HyperCard
de base
arrowKey
closeBackGround
closeCard
closeField 1
closeStack
controlKey
deleteButton 1
deleieCard
deleteField 1 1
deletestack
enterinField 1
enterKey
functionKey
help
idle
mouseDown
mouseEnter
mouseStillDown
mouseUp
mouseLeave
mouseWithin
newBackGround
newButton
newCard
newField 1 1
newStack
openBackGround
openCard
openField i
openstack
quit
resume
returnInField 1
returnKey
startUp.
suspend
tabkey
“envoyé & la premiére carte de la pile
He NEN ENN RN NON Ne
RN NN ONNN ENN NON GN OU OH OUNNNNENUNUNR WINN
COUR OEE R EOE RU RO RRA RRAELUUREEUALOR DLW
Perera a rere rere rerere cin eer cr rerere
a a a cs
selon vos besoins. Ce sont un peu des
macro-instructions qui vous évitent
les saisies répétitives. Un exemple ?
le passage 4 la pompe & essence d'a
cété, payée habituellement avec la
carte Visa :
Rendez-vous au point ® oi la liste
Ecritures s
tandard
f Libetlé 1 Libetlé 2
[ Montant
a0
‘aurant
Rembourse
divers
Salaire mois
| Prélevement
| Remboursement
Droits d'auteurs
Dividendes sur actions
| Livres/disques
2 lota Essence lees
> Ecr. std 11 -Libt Ecr. std 12 - Lib 2
cl ‘lib Teer. std 12 - Lib 2
std 13-Lib 1 fEer. std 13 Lib 2
std14-Lib1 Ecr. std 14- Lib 2
~ std 15- Lib t Ecr.stdi5-Lib2 0.00
std 16 - Lib 1 Ecr. std 16 - Lib 2 0.00
std 1?-Libt Ecr, std 1? Lib 2 0.00/30
ie std 18 - Lib 1 Teer. std 18- Lib 2 0.00 |S THO)
> Ecr. std 19-Lib? [Ecr. std 19 - Lib 2 0.00 | Giro
Liécren de sélection des écritures stenderd
des écritures standard disponibles est
proposée. Pour l'instant, il n'y a que
des noms par défaut.
Pour définir cette premiére écriture
classique, il faut cliquer a droite sur
INFO ce qui méne au point © qui est
l'écran de saisie (le + et le -
symbolisent recette et dépense).
Donnez un libellé 1 ‘Total’, un libellé
2 ‘Essence’, le sens de l'opération
“Dépense’, cliquez sur la carte de crédit
concernée, cliquez sur la ventilation
concernée ‘Voiture’. Indiquez ou
n'indiquez pas de montant selon que
vous prenez habituellement la méme
quantité d'essence ou non.
Validez, ce qui vous conduit a
nouveau au point ©.
Lorsque vous étes en saisie d’écriture
au point ® et que vous cliquez sur la
cassette (direction le point ®), vous
Pom’s n° 41
35
_——xK—<_&_~=—-
Ce trvisiéme cahier
HyperCard nous
conduit 4 la résolution
du pesant probléme de
la tenue des comptes
bancaires familiaux.
yperComptes
Jean-Luc Bazanegue & Christian Piard
HyperComptes est une
pile HyperCard
permettant de gérer
trois comptes bancaires
et trois cartes de crédit
sur chacun d'entre eux.
Situation des comptes
Soldes réels | Ala banque
Consultation de le position des comptes avec indication des soldes sur extreits de comptes.
-BRED_562.6276 992218. ss 13078.28; 17899.80
Jeon-Poul, ~350.00
| Lorte Vise Béatri 124.20
Sorte Gmerican -11235.40
Crédit Luonnais/Junior 34458. 1000.00 1000.00
|
Compte Epargne Lot. ip 50000.00) soono.o0
i
|
|
Somme des comptes : 64078.28 68899.80
| DG sur cartes de crédit; -11709, 0.00
| g aN Avoir net; 52368.68]) 68899.80
On ne travaille pas ici sur un
ordinateur mais sur un Macintosh :
l'accent est donc mis naturellement sur
l'ergonomie et le confort d'utilisation.
En effet, HyperCard permet toutes les
fantaisies, conduisant a la constitution
d'ensembles de type ‘labyrinthe
insoluble’. On a tous vu des piles fort
bien décorées mais qui laissent
l'utilisateur pantois : od cliquer ?
Comment revenir & un menu
précédent ? Est-ce que la modification
a bien été cnregistréc ? Et cc rectangle
qui ne s'inverse pas, c'est un bouton ?
Non, Aie ce petit logo c’en était un...
Tous
Showing the first 100000 of 256216 characters.