Magazine Pom's : la collection

Le programme "'utilitaire" listé ciaprès
permet de lire à ]' écran ou
d'imprimer tout fichier TEXT séquentiel
(fichier de données ou fichier de
traitement de texte).
Il est suffisamment simple pour se
suffire à lui-même sur le plan des explications.
Notons simplement le rôle
Programme LI-TEXTE
5
REM
10 REM
20 REM
30 REM
40 REM
Lecture de fichiers TEXT
de la sous-routine cl' erreur qui
commence en 460. Cette dernière
penne! d'une part de détecter la fin
du fichier (BOOS) el, d'autre part, de
traiter le problème des caractères de
contrôle qui déclenchent une "ILLE­
GAL QUANTIlY ERROR" (code erreur
53) à l'appel de la fonction
ASC. La possibilité d'avoir à lire un
(Inspiré de Nibble Express,
Volume 11)
•••••••••••••••••••••
•• LECTURE DE ••
•• FICHIERS TEXTES ••
•• SEQUENTIELS ••
•••••••••••••••••••••
45 POKE 768, 104: POKE 769,168: POKE 770
,104 : POKE 771 , 166: POKE 772,223:
POKE 773,154: POKE 774,72: POKE
775 ,152: POKE 776,72: POKE 777,96
50 TEXT : HOME
60 ON ERR GOTO 460
70 OS ;; CHRS (4)
BO RS = CHRs (13)
90 CAS '" CHRS (1)
100 AS = ,. 1# LECTURE FICHIERS TEXTE #
110 VTAB 3: HTAB 20 LEN (AS) 1 2: IN
VERSE : PRINT AS: NORMAL
130 FOR X ;; 1 TO 40: PRINT ":";: NEXT
140 PRINT : PRINT "PERMET AFFICHAGE A L
'ECRAN DE FICHIER T_"
150 PRINT : INVERSE : PRINT "VOULEZ-vOU
S LE 'CATALOG' (QIN) ";: GET CS:
NORMAL
151 If CS ;; "N" THEN 170
152 IF CS = "0" TH EN PRINT : PRINT : 1
NVERSE : PRINT "ORIVE OU
1 ";: GET X9 : NORMAL
154 IF XS = "1" THEN PRINT RS + DS;"CA
TALOG ,D1"
156 IF XSi '" "2" THEN PRINT RSi ... DS;"CA
TALOG ,02"
170 PRINT : PRINT
175 HTAB 25: PRINT " --> STOP": PRIN
T
180 INVERSE : INPUT "NOK DU FICHIER TEX
TE 1 ";NFS : NORMAL
185 IF NFS -= . ... THEN 150
190 IF NF9 ;; "S" THEN 500
Un bug de Pascal Apple (version IL 1) ?
200
210
220
320
330
340
350
360
370
3aO
400
410
420
430
440
445
447
450
455
460
4ao
4a5
490
Jean-François Schwartz
fichier TEXT comportant de nombreux
caractères de cette nature justifie
par ailleurs J' emploi de la petite
routine en langage-machine présentée
dans le manuel de référence de
l'Applesoft (page 136) en vue de
supprimer les problèmes résultant
d'appels trop fréquents à une procédure
ONERR.
PRINT : INVERSE : PRINT "IMPRESSION
(O/N) ";: GET S9: NORMAL
IF SS = .. a" THEM PRINT RS + os; "PR
#1": PRINT CHRS (9);"80N" : REt'(
IMPRIMANTE SLOT 1
PRINi
PRINT DS; "OPEN ";NFS
PRINT OS; "READ ";NFS
La =
....
GET CS
IF CS = RS THEN 410
VC = ASC (CS)
IF VC > 96 AND VC < 123 THEN CS ;;
CHRS (VC - 32)
LS = LS + Cs: IF LEN (LS) = 255 THE
N 410
GOTO 350
PRINT RS;OS
PRINi CA9;LS
GOTO 330
PRINT "F'IN DU FICHIER TEXTE"
PRINT DS; "CLOSE ";NFS
PRINT OS;"PR/IIO"
PRINT : PRINT "AUTRE FICHIER 1 (O/N
)";: GET Fa: IF Fa = "0" THEN GO
Ta 150
IF FS ; "N" THEN 500
CALL 768: BOO = PEEK (222) : IF BOO
= 53 THEN 390
IF BOO = 5 TH EN GOTO 440
HOHE : VTAB 10: HTAB 10
PRINT "ERREUR NUMERO ";BOO:" SURVEN
UE ."
495 FOR 1 s 1 TO 2000: NEXT 1
500 REM ••• FINIBOOT •••
Le programme ci-contre, quand on l'exécute, affiche "- -2768 " !
505 HOHE :ZZ$ " " -JI. F I N /II ": VTAB 10:
HTAB 20 - LEN (ZZS) 1 2: INVERS
E : PRINT ZZ9: NORMAL
510 VTAB 15: HTAB 5: PRINT .. 'NOUVELLE 0
ISQUETTE 1 OIN ";: GET Ail: IF LE
FTS (AS,l) < > "0" THEN HOHE :
END
515 PRINT CHRS " CHR6 (4);··PRII'6"
PROGRAM ESSAI :
VAR I:INTEGER :
BEG IN
END .
1::-16384- 16384
WRITELN (I) ;
Pom's n" 9 37