NCR DECISION MATE V Bedienungsanleitung Seite 394

10 S C R E E N 0
20 KEY O F F : CL S: CL O SE
30 DEF I NT A-Z
35 LO C A T E 23 , 1
4 0 PR INT S T R I N G S (60."
50 F A L S E = 0 :TR U E = NOT
70 XO F F S = C H R S ( 1 9 ) : X O N S = C H R S ( 17)
100 LO C A T E 2 3 . 1 : PRI NT
110 LO C A T E 1,1: LINE
120 CO MF IL S= "c om l : " + SPEEDS-*-" , e , 7 , , LF
130 OP EN C O M F I L S AS #1
140 O P E N "s c r n :" FOR O U T P U T AS #2
200 LO C A T E 1 . 1 -.LINE INPUT
203 NX =V A L (N S )
205 L O CA TE 3 , 1 : P R I N T
20b PR IN T "except: M
207 PR IN T "or spa ce
208 PR INT "or E
209 LINE I N P U T ;AS
210 IF AS =" " TH E N 250
211 IF A S -"M " TH EN
212 IF A S -" E " TH E N 9000
220 PR INT #1.AS;
230 GO T O 200
250 AS = I N P U T S (N X .#1)
260 P R IN T # 2 , AS;
280 GO T O 200
300 L O CA TE 8.1
310 LINE I N P U T " f l L e 7 " ; DS K FI LS
400 L O CA TE 9.1
410 LINE INPUT" (T) ran sm it
420 IF TX RX S ="T " TH E N O P E N D S K F I L S
430 O P E N D S K F I L S FOR O U T P U T
490 DIM B U F S ( 128)
500 FOR J=1 TO 12b
520 EUFS(.J) = INPUTS( 1 .#1 )
530 IF B U F S (J )= C H R S (2 b ) TH E N G O T O 640
540 NEXT J
0
550 PR IN T 1.X O F F S ;
560 IF LOC(1> = 0 TH E N K = 12 6 : GO T O 600
570 E U F S ( 1 2 7 ) = I N P U T S ( 1 . # 1 )
580 IF L O C ( 1 ) = 0 THE N K = 1 2 7 : G O T O 600
585 BU FS ( 1 2 8 ) = I N P U T S ( 1.#1 )
590 K = 1 2 8
600 FOR 1=1 TO K
610 PR IN T # 3 .BUFSC I ) ;
620 NEXT I
625 PR INT 01.XO NS;
630 GO T O 500
64 0 FOR 1 = 1 TO . J
650 P R IN T # 3 , B U F S ( I );
660 NEXT I
670 C L O S E # 3 :C L S: L O C A T E
680 G O T O 200
3-8
" )
FALSE
"Async TTY P r o a r a t
INPUT "sp eed ? "-.SPEEDS
"on re c ei vi n a,
"pr es s any keys for
for file i / o M
for r e c e i v i n g "
for e n di n a pr o gr am"
300
or (R)eceive'? ";TXRX S
FOR
AS #3
2 4 . 1 0 : P R I N T "* d o w n l o a d
" ;
wait for n c h a r a c te rs ,
t ra ns m i t t i o n "
INPUT AS # 3 : G O T O 1000
c o m p l e t e * "
n = ";NS