NCR GW-BASIC Betriebsanleitung Seite 404

DATEIEN UND GERÄTE
1000-1060
9000-9040
10 SCREEN 0 WIDTH 80
20 KEY OFF:CLS:CLOSE
30 DEFINT A-Z
35 LOCATE 23,1
40 PRINT STRINGS (60," ")
50 FALSE=0;TRUE= NOT FALSE
70 XOFF$=CHR$(19):XON$=CHR$(17)
100 LOCATE 23,1:PRINT "Asynchrones TTY Programm
110 LOCATE 1,1:UNE INPUT "Geschwindigkeit? ";SPEED$
120 REM
130 OPEN "C0M1:"+SPEED$+"E,7„LF" AS #1
140 OPEN "SCRN:" FOR OUTPUT AS #2
200 LOCATE 1,1:LINE INPUT "Wieviel Zeichen müssen beim
Empfang gelesen werden?" ;N$
203 N$=VAL(N$)
205 LOCATE 3,1:PRINT "Zur Datenübertragung jede beliebige
Taste drücken"
206 PRINT "außer:M für E-/A-Datei"
207 PRINT "oder Leerstelle zum Datenempfang"
208 PRINT "oder E für ENDE "
5-22
Hier handelt es sich um eine Senderoutine. Bis zum
Ende der Plattendatei wird folgender maßen vor­
gegangen:
Einlesen eines Zeichens in A$ mit der INPUT#-
Funktion. Senden des Zeichens an die Datenüber­
tragungseinheit in 1015. (Wird ein Zeichen empfan­
gen, wird die Warteroutine für XON anstelle von
XOFF aufgerufen, Zeile 1015). CÜ-Z wird beim
Dateiende in Zeile 1040 gesendet, wenn die Emp­
fangseinheit ein derartiges Zeichen für das
Abschließen der Datei benötigt. Schließlich wird in
den Zeilen 1050 und 1060 die Plattendatei abge­
schlossen, die Bendigungsmeldung ausgedruckt
und zum Dialogmodus in Zeile 200 zurückgegan­
gen.
Diese Zeilen werden ausgeführt, wenn E als Ant­
wort auf das Menü eingegeben wird. Diese Zeilen
schließen die Datenübertragungsdatei und die Aus­
gabedatei auf dem Bildschirm ab, stellen die
Anzeige mit den programmierbaren Funktionsta­
sten wieder her und beenden das Programm.
G
W-BASIC