Magazine Pom's : la collection

,
370 Disquette suivante s'il vous plaît.
375 Errare humanum est
380 On va sauver les informations engrangées.
390 Il faut tout prévoir, même une disquette pleine.
400 à 500 On va écrire 12 lignes constituant les différentes
informations relatives au fichier courant. à savoir :
Nom de la disquette d'origine - Oui ou Non, selon la
protection en écriture du fichier -Nom du sous­
répertoire dans lequel il se trouve - Son nom - Son
type. (écrit en ligne 450). Un lecteur peut vouloir
décoder les types ; c'est ici qu'il le fera. DIR deviendra
peut-être Répertoire, TXT fichier texte, etc. -
Nombre de blocs utilisés - Date de dernière
modification - Heure de dernière modification ­
Date de création - Heure de création - Fin de fichier
en xxx - Sous-type.
510 Fermeture de ce fichier-liste.
515 Encore une autre disquette à lister ?
9999 Au revoir.
10000 et 10005 Sous-programme " P.pp uyer sur une
touche quand vous aurez fi ni. "
10070 et 10080 Pour traiter quelques erreurs pouvant
survenir à l'exécution.
20000 à 20020 pour lister ce programme sur ImageWriter.
30000 à 30030 Truc pour rentrer un petit programme
assembleur sous forme de DATA. RUN 30000 vous
écrit 32 données par ligne, à partir de la ligne numéro
BA. Vous n'avez plus qu'à repasser dessus avec le
curseur.
Routine d'éjection de disquette
du drive 1 slot 5
0300: 20 OD CS JSR CSOD
0303: 04
0304 : 10 03
0306: 60 RTS
031 0: 03 Dl 07 03 04 0 0 a 0 a 0 0 0 0 a 0
Modification du vecteur Ctrl­
Reset en $320 (Cali 800)
0320:
0322:
032S:
032 7:
032A:
032C:
032F:
A9 30
BD F2 03
A9 03
BD F3 03
49 AS
BD F4 03
60 RTS
LDA
STA
LDA
STA
EOR
STA
E30
03F2
E03
03FJ
EAS
03F4
Si vous appuyez maintenant sur control-Reset, vous
exécutez ce petit programme :
0330: 20
0333: A9
033S : AO
033 7 : 20
033A: A2
033C: A9
033E: 9D
0341: CA
0342: DO
58 Fe JSR FC5 8 ! Effa ce l' ecran.
SO
03
Pom's nO 47
LDA [50 ! Octet faible.
LDY f03 ! Octet fort de l' adr
JA DB JSR DB3A ! de la ch aIne
FF LDX CFF ! 255 octets de pgm.
00 LDA EDO ! mis à zéro.
00 08 STA 0800, X
DEX
FA BNE 033E [-061 ' Au suivan t.
0344: BD 00 08 STA 0800
034 7; 20 48 D6 JSR D648 ! NEW
034A: 4C 66 DS JMP DS66 ! RUN ironique
Programme Liste.Cata/og
2 REM Taper run 20000 pour lister le programme.
5 REM Il Y a 12 champs par nom de fi chiers.
6 FOR l = 768 TO 89B: READ J: POKE I, J: NEXT :
CALL 800
o D$ CHR$ (4) : PRINT D$"prE3": UN$ "1)
Création d'un nouveau fichier. ":DE$ = "2)
Compléter un fichier existant .": DIM DI$ (49)
20 ET$ = " *************************************
********************************************
Of: HOME : PRINT ET$: " * ": SPC( 78) ,' '' ** '': : TI$
"Cata1ogue de vos disquettes ProDos ":I =
LEN (TI$) :J = l - 2 * INT (1 / 2)
30 PRINT SPC ( 39 - 1 / 2);TI$; SPC ( 39 + J - l
/ 2):" ** ": SPC(8) ;" * ":ET$
40 POKE 34, 5:CL = 12 * 16 A3:RA CL + 16: DIM
LI$ (500) ,LI! (500) : PRINT "Ce programme est
destiné ci lire vos disquettes ProVOS, et ci
mettre sous forme de fichier texte la liste
des fichiers qu' elles contiennent."
Liste.catalog Page 1
50 PRINT "Vous pourrez alors reprendre ce
fichier texte par Appleworks (base de
données) pour rechercher des fichiers,
imprimer une liste de toutes vos
• • •
merveilles, et c
fi;
53 PRINT "Choisissez l'option :Créer un nouveau
fichier - Base de données - A partir d'un
fichier ASCII .": PRINT "A la question
'Nombre de catégories par fiche ?' ,
répondez 12.": PRINT
55 PRINT " Pour mettre ci jour votre fichier
liste, procédez comme suit :"
60 PRINT TAB( 10);"1) Dans App1eworks base de
données, effacez toutes les fiches ": PRINT
"concern ant la ou les disquettes
modifiées . ": PRINT TAB ( 10);"2) Sauvez ce
fich ier sous forme de fichier ascii, à
raison d'une": PRINT "ligne par champ ."
70 PRINT TAB ( 10);"3) Revenez ci
liste. catalogue, et choisissez l'option " :CO$
= DE$: INVERSE : GOSUB 10010: NORMAL
80 GOSUB 10000: POKE RA, 0: HOME :NO = 1: VTAB
9: PRINT TAB ( 10);UN$: VTAB 12: PRINT TAB (
10) ;DE$
90 WAIT CL, 128: POXE RA, O:I = PEEK (CL) : IF l <
> 49 AND l < > 50 AND l < > 27 THEN 90
95 IF l = 27 THEN 9999
100 l = l - 49: IF l THEN COS = DE$: VTAB 12:
INVERSE : GOSUB 10010: NORMAL : GOTO 120
110 COS = UNS : VTAB 9: INVERSE : GOSUB 10010:
NORMAL
120 VTAB 17: PRINT CHR$ (11) : INPUT "En trez le
chemin d'accès complet au fichier : ";NF$:
IF NF$ = " " THEN 120
125 ONERR GOTO 10020
130 PRINT "Eventuellement introduisez la bonne
disquette. ": GOSUB 10000: IF l THEN PRINT
41