APPLICATIONSDISQUE ★ RSX-Erweiterung EXIST ★

RSX Exist (Schneider Magazin)Applications Disque
★ Ce texte vous est présenté dans sa version originale ★ 
 ★ This text is presented to you in its original version ★ 
 ★ Este texto se presenta en su versión original ★ 
 ★ Dieser Text wird in seiner Originalfassung präsentiert ★ 

Mit dieser RSX-Erweiterung läßt sich ohne Probleme im laufenden Programm feststellen, ob ein File auf der Diskette existiert oder nicht. Dies ist z.B. bei einer Adreßverwaltung beim Abspeichern einer Datei sehr nützlich, wenn man zuvor überprüfen will, ob die Diskette bereits ein Programm gleichen Namens enthält. Normalerweise erfordert dies umständliches Programmieren mit Befehlen wie ON ERROR GOTO. Das zu umgehen, ist Aufgabe dieser Erweiterung. Aufgerufen wird sie durch folgenden Befehl: |EXIST, @s$, @v%

s$ steht hier für den Dateinamen, v% für die Übergabevariable. v% muß vor dem Aufruf schon einmal verwendet worden sein (z.B. durch v% =0), damit die Variable eine Adresse im Speicher besitzt. Dadurch kann die RSX-Erweiterung die Übergabevariable im Speicher finden und verändern. Existiert das File schon auf der Diskette, hat v% nach dem Test den Wert — 1, andernfalls den Wert 0. Das Ergebnis läßt sich so sehr leicht weiterverarbeiten. Zur Erläuterung hier nun ein Beispielprogramm:

100 INPUT "Dateiname: ”,name$
110 v%=0
120 |EXIST, @name$, @v%
130 IF NOT(v%) THEN GOTO 170
140 PRINT ”Datei existiert bereits!!! Trotzdem abspeichern (j/n)?”
150 a$=UPPERS (INKEY$): IF a$<>"N” AND a$<> ”J” THEN GOTO 150
160 IF a$=”N” THEN RETURN
170 OPENOUT name$

Nun noch einige Hinweise zum Eintippen. Zuerst muß man den MC-Generator eingeben. Er erzeugt dann den Maschinencode, also das eigentliche Programm, und speichert dieses sofort unter dem Namen EXISTRSX.BIN ab. Wer Disketten benutzt, sollte also schon vor dem Start die richtige einlegen. Zur Sicherheit kann man den MC-Generator vor dem Start auch noch abspeichern. Das ist aber nicht erforderlich, da sich das Programm am Ende nicht selbst löscht. Um die RSX-Erweiterung zu starten, muß man das Programm zuerst laden (LOAD ”EXISTRSX.BIN”) und dann das RSX-Kommando einbinden (CALL &A000). Danach steht der Befehl |EXIST, @s$, @v% zur Verfügung.

Frank Schäfer , Schneider Magazin

★ PUBLISHER: Schneider Magazin
★ YEARE: 1987 , 1988
★ CONFIG: 64K + AMSDOS
★ LANGUAGE:
★ LiCENCE: LISTING
★ AUTHOR: Frank Schäfer
 

★ AMSTRAD CPC ★ DOWNLOAD ★

Type-in/Listing:
» RSX-Exist    (Schneider  Magazin)    LISTING    GERMANDATE: 2021-02-02
DL: 195
TYPE: PDF
SiZE: 200Ko
NOTE: 3 pages/PDFlib v1.6

★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser...

Lien(s):
» Applications » Matrix - Spreadsheet Plus
» Applications » Sprite Designer (Computing With the Amstrad)
» Applications » Amsprite
» Applications » Sprite Editor
» Applications » Sprite - Editor (CPC Amstrad International)
» Applications » Spreadsheet
Je participe au site:
» Pour ce titre nous ne disposons de fichier executable sur CPC (Dump, Saisie du listing) , alors si vous avez ça dans vos cartons ou vous désirez usé vos petit doigts boudinés sur votre clavier faites le nous savoir.
» Vous avez des infos personnel ?
» Vous avez remarqué une erreur dans ce texte ?
» Aidez-nous à améliorer cette page : en nous contactant via le forum ou par email.

CPCrulez[Content Management System] v8.7-desktop/c
Page créée en 378 millisecondes et consultée 840 fois

L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.