home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
RBBS in a Box Volume 1 #2
/
RBBS_vol1_no2.iso
/
001g
/
450talk.mrg
< prev
next >
Wrap
Text File
|
1983-08-06
|
1KB
|
17 lines
200 '450 Baud Modification by Bruce D. Anderson - Voice 913-841-5220 - Data - 913-841-6424
425 CLOSE#1:OPEN COMM$ AS #1:PRINT#1,MODMINIT$;:IF BAU450 THEN GOSUB 11000
5026 PRINT" 5 - 450,E,7,1 (text) 6 - 450,N,8,1 (binary)
5027 PRINT" WARNING ! When On-Line,DON'T Change Baud & Parity at the same time!"
5055 IF Q$="F" THEN PRINT Q$:GOSUB 5815:PRINT:PRINT"Parameters reset to:";:BRUC=0:GOSUB 5100:GOTO 5095
5060 BRUC=0:Q=VAL(Q$):IF Q<1 OR Q>6 THEN BEEP:GOTO 5045 ELSE PRINT Q
5081 IF Q=6 THEN PAR$="N":DTA$="8
5083 IF Q=5 OR Q=6 THEN GOSUB 11000 ELSE 5085
5084 GOTO 5090
5090 PRINT:PRINT"New parameters are: ";:GOSUB 5100
5095 PRINT GO$:GOSUB 2800:GOTO 515
5100 COLOR BG,FG:IF BRUC=1 THEN 5101 ELSE PRINT MID$(COMM$,6,10);:COLOR FG,BG:PRINT:PRINT:GOTO 5105
5101 PRINT "450,"+PAR$+","+DTA$+","+STP$;:COLOR FG,BG:PRINT:PRINT
11000 BDA%=INP(&H3FB):OUT &H3FB,(BDA% OR &H80):OUT &H3F8,0:OUT &H3F9,1:OUT &H3FB,BDA%:BRUC=1
11010 IF Q=5 THEN OUT &H3FB,26 ELSE IF Q=6 THEN OUT &H3FB,3
11020 RETURN