NCR GW-BASIC Betriebsanleitung Seite 405

209 LINE EMPUT;A$
210 IF A$=""THEN 250
211 IF A$="M" THEN 300
212 IF A$="E" THEN 9000
220 PRINT #1,A$
230 GOTO 200
250 A$=INPUT$(N°/a# 1)
260 PRINT #2,A$;
280 GOTO 200
300 LOCATE 8,1
310 LINE INPUT"Datei?" ;DSKFIL$
400 LOCATE 9,1
410 LINE INPUT"(Ü)bertragen oder (E)mpfangen?";TXRX$
420 IF TXRX$="T" THEN OPEN DSKFIL$ FOR INPUT
AS #3 "GOTO 1000
430 OPEN DSKFIL$ FOR OUTPUT AS #3
490 DIM BUF$(128)
500 FOR J=1 TO 126
520 BUF$(J)=INPUT$(1,#1)
530 IF BUF$(J)=CHR$(26) THEN GOTO 640 'prüft auf Crtl-Z
540 NEXT J
550 PRINT #l,OFF$
560 IF LOC(l)=0 THEN K=126:GOTO 600
570 BUF$(127)=INPUT$(1,#1)
580 IF LOC(l)=0 THEN K=127:GOTO 600
585 BUF$( 128)=INPUT$( 1 ,# 1)
590 K=128
600 FOR 1=1 TO k
610 PRINT #3,BUF$(I);
620 NEXT I
625 PRINT #l,XON$;
630 GOTO 500
640 FOR 1=1 TO J
650 PRINT #3,BUF$(I);
660 NEXT I
670 CLOSE #3:CLS:LOCATE 24,10:PRINT "Ȇbertragung
abgeschlossen*"
680 GOTO 200
800 B$=INPUT$(1,#)
810 IF B$=XOFF$ THEN GOTO 850
820 PRINT #2,B$
830 IF LOC(1)=0 THEN RETURN
840 GOTO 800
850 B$=INPUT$(1,#1)
GW-BASIC
DATEIEN UND GERÄTE
5-23