1: DECLARE SUB StrS () 2: DECLARE SUB RecS () 3: DIM SHARED ot$, i$, s$, r$ 4: ot$ = "com1": i$ = "com1": s$ = "Not in progress": r$ = "Not in progress": f$ = "Not in progress" 5: OPEN ot$ FOR OUTPUT SHARED AS #1 6: OPEN i$ FOR INPUT SHARED AS #2 7: 10 CLS 8: PRINT "Option Current Status" 9: PRINT "================================================================================"; 10: PRINT "(O)utput: "; UCASE$(ot$) 11: PRINT "(I)nput: "; UCASE$(i$) 12: PRINT "(S)end: "; s$ 13: PRINT "(R)ecieve: "; r$ 14: PRINT "(L)ist Files "; f$ 15: PRINT "(C)hange Dir "; curdir$ 16: PRINT "(Q)uit" 17: a$ = INPUT$(1) 18: IF UCASE$(a$) = "O" THEN LINE INPUT "Device>"; ot$: CLOSE 1: OPEN ot$ FOR OUTPUT AS #1 19: IF UCASE$(a$) = "I" THEN LINE INPUT "Device>"; i$: CLOSE 2: OPEN i$ FOR INPUT AS #2 20: IF UCASE$(a$) = "S" THEN StrS: OPEN ot$ FOR OUTPUT AS #1: OPEN i$ FOR INPUT AS #2 21: IF UCASE$(a$) = "R" THEN RecS: OPEN ot$ FOR OUTPUT AS #1: OPEN i$ FOR INPUT AS #2 22: IF UCASE$(a$) = "L" THEN LOCATE 7, 18: PRINT "Listing ": LOCATE 10, 1: FILES: SLEEP 23: IF UCASE$(a$) = "C" THEN LINE INPUT "Directory>"; b$: CHDIR (b$) 24: IF UCASE$(a$) = "Q" THEN END 25: GOTO 10 26: 27: SUB RecS 28: DIM d AS STRING * 1 29: LOCATE 6, 18: PRINT "Connecting... " 30: DO UNTIL c$ = "¯¯¯" 31: INPUT #2, c$ 32: IF INKEY$ = CHR$(13) THEN GOTO 30 33: PRINT #1, "®®®" 34: LOOP 35: LINE INPUT #2, fl$ 36: INPUT #2, b 37: OPEN fl$ FOR BINARY AS #3 38: LOCATE 6, 18: PRINT "Recieving... " 39: FOR q = 1 TO b 40: d = INPUT$(1, 2) 41: PUT 3, q, d 42: IF INKEY$ = CHR$(13) THEN GOTO 30 43: NEXT q 44: 30 CLOSE 3 45: CLOSE 2 46: CLOSE 1 47: END SUB 48: 49: SUB SendB 50: DIM d AS STRING * 1 51: LINE INPUT "Filename>"; fl$ 52: IF LTRIM$(RTRIM$(fl$)) = "" THEN GOTO 40 53: OPEN fl$ FOR BINARY AS #3 54: LOCATE 5, 18: PRINT "Connecting... " 55: DO UNTIL c$ = "®®®" 56: INPUT #2, c$ 57: IF INKEY$ = CHR$(13) THEN GOTO 40 58: PRINT #1, "¯¯¯" 59: LOOP 60: PRINT #1, fl$ 61: LOCATE 5, 18: PRINT "Sending... " 62: FOR q = 1 TO LOF(3) 63: GET 3, q, d 64: IF LEN(RTRIM$(LTRIM$(STR$(ASC(d))))) = 3 THEN f$ = RTRIM$(LTRIM$(STR$(ASC(d)))) 65: IF LEN(RTRIM$(LTRIM$(STR$(ASC(d))))) = 2 THEN f$ = "0" + RTRIM$(LTRIM$(STR$(ASC(d)))) 66: IF LEN(RTRIM$(LTRIM$(STR$(ASC(d))))) = 1 THEN f$ = "00" + RTRIM$(LTRIM$(STR$(ASC(d)))) 67: PRINT #1, f$; 68: IF INKEY$ = CHR$(13) THEN GOTO 40 69: NEXT q 70: PRINT #1, "EOF" 71: 40 CLOSE 3 72: CLOSE 2 73: CLOSE 1 74: END SUB 75: 76: SUB StrS 77: DIM d AS STRING * 1 78: LINE INPUT "Filename>"; fl$ 79: IF LTRIM$(RTRIM$(fl$)) = "" THEN GOTO 20 80: OPEN fl$ FOR BINARY AS #3 81: LOCATE 5, 18: PRINT "Connecting... " 82: DO UNTIL c$ = "®®®" 83: INPUT #2, c$ 84: IF INKEY$ = CHR$(13) THEN GOTO 20 85: PRINT #1, "¯¯¯" 86: LOOP 87: PRINT #1, fl$ 88: LOCATE 5, 18: PRINT "Sending... " 89: FOR q = 1 TO LOF(3) 90: GET 3, q, d 91: PRINT #1, d; 92: IF INKEY$ = CHR$(13) THEN GOTO 20 93: NEXT q 94: PRINT #1, "EOF" 95: 20 CLOSE 3 96: CLOSE 2 97: CLOSE 1 98: END SUB 99: |