NCR GW-BASIC Betriebsanleitung Seite 406

DATEIEN UND GERÄTE
860
IF B$=XON$ THEN RETURN
870
2
PRINT # ,B$
880 GOTO 850
1000 WHILE NOT EOIX3)
1010 A$=INPUT$(1,#3)
1012 IF VAL(SPEED$)>4000 THEN FOR 1=1 TO 10:NEXT
1015 PRINT #1,A$;
1020 IF LOC(l)X) THEN GOSUB 800
1030 WEND
1040 PRINT # 1,CHR$(2 6);'ctrl-Z schließt Datei ab.
1050 CLOSE #3:CLS:LOCATE 23,10:PRINT "**Datenempfang
abgeschlossen***";
1060 GOTO 200
9000 CLOSE #1
9010 CLOSE #2
9030 KEY ON
9040 END
5-24 GW-BASIC