AT&T 6300 Programmer's Manual page 150

Asynchronous Communications
10 SCREEN O,O:WIDTH 80
15 KEY OFF:CLS:CLOSE
20 DEFINT A-Z
25 LOCATE 25,1
30 PRINT STRINGS(60," ")
40 FALSE = O:TRUE NOT FALSE
50 MENU = 5 'Value of MENU key (ctrl-E)
60 XOFFS = CHRS(19):XONS = CHRS(17)
100 LOCATE 25,1:PRINT "Async TTY Program"i
110 LOCATE 1,1:L1NE INPUT "Speed? "iSPEEDS
120 COMFILS="COM1:"+SPEEDS+",E,7"
130 OPEN COMFILS AS #1
140 OPEN "SCRN:" FOR OUTPUT AS #3
200 PAUSE = FALSE
210 AS = INKEYS: IF AS =" " THEN 230
220 IF ASC(AS) = MENU THEN 300 ELSE PRINT #1,ASi
230 IF EOF(1) THEN 210
240 IF LOC(1»128 THEN PAUSE=TRUE: PRINT #1,XOFFSj
250 AS = INPUTS(LOC(1),#1)
253 L1NEFEED = 0
255 L1NEFEED = INSTR (L1NEFEED + 1, AS,CHRS(10))
257 IF L1NEFEED = 0 THEN MIDS(AS, L1NEFEED,1) = CHRS(O):GOTO 255
260 PRINT #3,ASi:IF LOC(1)
>
0 THEN 240
270 IF PAUSE THEN PAUSE=FALSE:PRINT #1,XONSj
280 GOTO 210
300 LOCATE 1,1:PRINT STRINGS(30," "):LOCATE 1,1
310 LINE INPUT"FILE? "jDSKFILS
400 LOCATE 1,1:PRINT STRINGS(30," "):LOCATE 1,1
410 LINE INPUT"(T)RANSMIT OR (R)ECEIVE? "jTXRXS
420 IF TXRXS = "T" THEN OPEN DSKFILS FOR INPUT AS #2:GOTO
1000
430 OPEN DSKFILS FOR OUTPUT AS #2
440 PRINT #1,CHRS(13)j
500 IF EOF(1) THEN GOSUB 600
510 IF LOC(1) > 128 THEN PAUSE=TRUE: PRINT #1,XOFFSi
520 AS = INPUTS(LOC(1),#1)
530 PRINT #2,ASj:IF LOC(1»0 THEN 510
540 IF PAUSE THEN PAUSE=FALSE:PRINT #1,XOFFSj
550 GOTO 500
600 FOR 1=1 TO 5000
610 IF NOT EOF(1) THEN 1=9999
620 NEXT I
630 IF 1=9999 THEN RETURN
640 CLOSE #2:CLS:LOCATE 25,10:PRINT
IS.
Download complete ·"i
650 RETURN 200
1000 WHILE NOT EOF(2)
1010 AS = INPUTS(1,#2)
1020 PRINT #1,ASj
1030 WEND
1040 PRINT #1,CHRS(26)j'CTRL-Z to make close file.
1050 CLOSE #2:CLS:LOCATE 25,10:PRINT " •• pload complete • ·"i
1060 GOTO 200
9999 CLOSE:KEY ON
6-8