1: DECLARE SUB Term () 2: OPEN "MSG.INI" FOR INPUT AS #1 3: LINE INPUT #1, ini$ 4: CLOSE 1 5: OPEN ini$ FOR RANDOM AS #1 6: PRINT #1, "ATV1B1M0E1" 7: 132 CLS 8: PRINT "-=== Message Center ===-" 9: PRINT "1. Call Somewhere" 10: PRINT "2. Wait For Call" 11: PRINT "3. Already Connected" 12: PRINT "4. Set Up Modem" 13: PRINT "5. Quit" 14: LOCATE , , 1: f$ = INPUT$(1) 15: PRINT 16: SELECT CASE f$ 17: CASE "1": INPUT "Number"; nm$: PRINT #1, "ATDT" + nm$: Term 18: CASE "2": PRINT #1, "ATS0=1": Term 19: CASE "3": Term 20: CASE "4" 21: 22: CASE "5": END 23: END SELECT 24: GOTO 132 25: 26: 12 COM(1) OFF 27: INPUT #1, f$ 28: IF f$ = "" THEN f$ = ";" 29: PRINT f$; 30: COM(1) ON 31: RETURN 32: 33: SUB Term 34: 'COM(1) ON 35: 'ON COM(1) GOSUB 12 36: 37: 38: CLS 39: PRINT "-======================== Terminal Window ======================-" 40: DO UNTIL D$ = CHR$(27) 41: 5 D$ = INKEY$ 42: 'IF D$ = "" THEN GOTO 5 43: PRINT #1, D$; 44: GET #1, , f$ 45: IF f$ = "" THEN f$ = ":" 46: PRINT f$; 47: LOOP 48: END SUB 49: |