1: INPUT "COM Port Number (1 or 2): ", portno$ 2: INPUT "Modem Speed (300, 1200, 2400, etc): ", speed$ 3: PRINT "Retrieving COM port data. Please hold." 'it didn't take long 4: comport$ = "COM" + portno$ + ":" + speed$ 'before but it does now! 5: 'open configuration file to input comport data: 6: OPEN "BASTerm.CFG" FOR INPUT AS #2 'open config file for data input 7: INPUT #2, comport$ 'input the line 8: CLOSE #2 'close file 9: 'open comport using data from the file 10: 'RB2048 and TB2048 are the buffer sizes. Bigger the stable it is the 11: 'better. I think they maybe are used up as the data comes in and out but 12: 'I am not sure. 13: OPEN comport$ + ",N,8,1,RB2048,TB2048" FOR RANDOM AS #1 14: 10 PRINT #1, "1" 15: IF INKEY$ <> "" GOTO 100 16: GOTO 10 17: 100 SYSTEM 18: |