1 '***************** MODIFICATION FOR PC-TALK, VERSION 2.0 ****************** 2 ' 3 'FILENAME: WB-UPTLE 4 ' 5 'PURPOSE: ALLOWS AUTOMATIC FILE TRANSMISSION WHILE USING AN EDITOR OF A 6 ' HOST COMPUTER WHICH REQUIRES THE USER TO WAIT FOR ITS PROMPT 7 ' BETWEEN THE TRANSMISSION OF EACH LINE. 8 ' 9 'NOTES: THIS FUNCTION IS USED IN CONJUNCTION WITH THE TRANSMIT FILE FUNCTION. 10 ' IT IS TOGGLED ON/OFF WITH ALT-N. IT MUST BE TOGGLED ON BEFORE 11 ' INVOKING THE TRANSMIT FILE FUNCTION. 12 ' 13 ' THIS FUNCTION MUST NOT BE USED IF THE RECEIVING COMPUTER ACCEPTS 14 ' THE TRANSMITTED FILE AS ONE BLOCK OF DATA, BECAUSE THIS WOULD 15 ' CAUSE THE PROGRAM TO HANG UP WAITING FOR A PROMPT. 16 ' 17 ' THIS FUNCTION MUST NOT BE USED WITH THE FAST TRANSMIT MODE. 18 ' 19 ' THIS PATCH DOES NOT CONFLICT WITH THE FOLLOWING PATCHES: 20 ' TM-BREAK 21 ' TM-DIAL2 22 ' TM-LDIR1 23 ' TM-TIME1 24 ' 25 ' THE DELAYS ON LINES 464 AND 4218 MAY BE MODIFIED IF NECESSARY. 26 ' 27 'DIRECTIONS: DELETE THE FIRST 32 LINES OF THIS FILE. THEN SAVE AS 28 ' AN ASCII FILE (USE ",A OPTION OF BASIC SAVE COMMAND) 29 ' AND MERGE WITH VERSION 2.0 OF PC-TALK. 30 '************************************************************************ 31 'WILLIAM HT BAILEY PHILA., PA DECEMBER 1982 32 '************************************************************************ 147 UPLOAD=FALSE 461 IF V$<>CHR$(10) THEN 470 462 IF NOT UPLOAD THEN 475 463 IF EOF(1) THEN 463 464 FOR J=1 TO 1000: NEXT J: A$=INPUT$(LOC(1),#1): GOTO 475 1305 ' 1310 ' 1315 ' - Automatic Upload To Line Editor - 1320 ' 1325 ' 1330 IF CODE<>49 THEN 1400 1335 IF NOT UPLOAD THEN UPLOAD=TRUE ELSE GOTO 1370 1340 PRINT: PRINT "=== UPLOAD TO LINE EDITOR MODE ON ===": BEEP 1345 PRINT: PRINT "NOTE: This mode should not used if: 1350 PRINT " 1. The receiving computer accepts the transmitted file" 1355 PRINT " as a single data block" 1360 PRINT " -OR-" 1365 PRINT " 2. The FAST TRANSMIT mode is activated.": GOTO 400 1370 UPLOAD=FALSE: PRINT 1375 PRINT "=== UPLOAD TO LINE EDITOR MODE OFF ===": BEEP: GOTO 400 1380 ' 1385 ' 1390 ' 1395 ' 4216 IF V$<>CHR$(10) OR NOT UPLOAD THEN 4220 4217 IF EOF(1) THEN 4217 4218 FOR J=1 TO 1000: NEXT J