NCR DECISION MATE V Bedienungsanleitung Seite 395

GW-BASIC
800 B S = I N P U T $ ( l . # l >
810 IF B S - X O F F S TH E N G O T O 850
820 PR I N T # 2 , B $;
830 IF L O C (1)=0 THE N RE T U R N
840 G O T O 800
850 BS = I N P U T S ( 1 .#1 )
860 IF E $ = XON$ THEN R E TU R N
0 2 ,
870 PR INT ES ;
880 G O T O 850
1000 UH I LE NOT EOF(3)
1010 A$ = I N P U T S ( 1 .#3 )
1015 PR INT # 1 . A S ;
10 20 IF LOC <1)> 0 THE N GOSUE
1030 UE ND
1040 PR IN T # 1 , C H R S ( 26);
1050 C L O S E # 3 : C L S :L O CA T E
1060 G O T O 200
3000 C L O S E #1
0 2
*3010 C L O S E
8030 KEY ON
•3 0 40 END
HINWEIS: In dem obigen Beispiel muß folgende Zeile für Baudra­
ten von 4.800 bps und mehr aufgenommen werden:
1014 FO R 1 = 1 TO 10: N E X T
Wie schon vorher erwähnt, muß bei der Entwicklung eines
Datenübertragungsprogramms sowohl die Baudrate des zen­
tralen Rechners als auch die Baudrate des Satellitenrechners
berücksichtigt werden. Kom m t es zu einer Fehlermeldung
" Device I/O" , so gibt sie normalerweise einen Überlauf bei der
Hardwareschnittstelle an. In diesem Fall muß das Programm
entsprechend angepaßt werden.
800
'ctrl- Z to take close
2 3 . 1 0 : P R I N T "*# u p l oa d c o m p l e t e
GW-BAS IC ERW EITERUNG
file.
3 - 9