1: DIM f AS STRING * 1 2: DECLARE SUB PRINT2 (t$) 3: DECLARE SUB INPUT2 (t$) 4: DECLARE SUB Cls2 () 5: COM(1) ON 6: ON COM(1) GOSUB STUFF 7: OPEN "COM1:2400" FOR RANDOM AS #1 8: Cls2 9: PRINT2 "Download File!" 10: PRINT2 "Filename" 11: 'INPUT2 fl$ 12: 'OPEN fle$ FOR BINARY AS #1 13: 14: END 15: STUFF: 16: IF LOC(1) <> 0 THEN GET 1, , f 17: nkey$ = INKEY$ 18: IF nkey$ = "" THEN ELSE PUT #1, , nkey$ 19: PRINT f; 20: RETURN 21: 22: SUB Cls2 23: PRINT #1, CHR$(12) 24: END SUB 25: 26: SUB INPUT2 (t$) 27: INPUT #1, t$ 28: END SUB 29: 30: SUB PRINT2 (t$) 31: PRINT #1, t$ 32: END SUB 33: |