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