Section courante

A propos

Section administrative du site

SETACNM

Fixe ACNM
TRS-80 Pascal

Syntaxe

PROCEDURE SETACNM(VAR logical:filetype;physical:STRING); EXTERNAL;

Description

Cette procédure permet de définir le nom du fichier physique ou du périphérique à associer à un fichier Pascal.

Remarques

Exemple

L'exemple suivant illustre l'utilisation de SETACNM :

  1. (*$NO INOUT*) {éliminer le prompt pour INPUT & OUTPUT}
  2. PROGRAM SETACNMSamples;
  3. VAR
  4.  printer:TEXT;
  5.  out:FILE OF INTEGER;
  6.  
  7. PROCEDURE SETACNM(VAR f : TEXT; name : STRING); EXTERNAL;
  8.  
  9. BEGIN { Corps du programme SETACNMSamples }
  10.  { cartographie le fichier logique "printer" à l'imprimante en ligne }
  11.  SETACNM(printer,BLDSTR(':L'));
  12.  { aucun prompt ne se produira lorsque REWRITE(printer) est exécuté }
  13.  REWRITE(printer);
  14.  { cartographie le fichier logique "out" au fichier disque "OUT/DAT" }
  15.  SETACNM(out::TEXT,BLDSTR('OUT/DAT'));
  16.  { aucune prompt ne se produira lorsque REWRITE (out) est exécuté }
  17.  REWRITE(out);
  18.  {...}
  19. END. { Fin du programme SETACNMSamples}


Dernière mise à jour : Vendredi, le 31 Juillet 2020