1: DECLARE SUB Dial (N!) 2: 12 OPEN "COM1:2400" FOR RANDOM AS #1 3: PRINT #1, "ATM2H1" 4: PRINT "Press any key to hangup" 5: IF UCASE$(aa$) = "P" THEN PRINT #1, "ATA" 6: IF UCASE$(aa$) = "Q" OR aa$ = CHR$(27) THEN PRINT #1, "ATH": CLOSE 1: END 7: aa$ = INPUT$(1) 8: IF UCASE$(aa$) = "P" THEN PRINT #1, "ATA" 9: IF UCASE$(aa$) = "Q" OR aa$ = CHR$(27) THEN PRINT #1, "ATH": CLOSE 1: END 10: PRINT #1, "ATM2H0" 11: CLOSE 1 12: PRINT "Press any key to pickup" 13: aa$ = INPUT$(1) 14: IF UCASE$(aa$) = "P" THEN GOTO 12 15: IF UCASE$(aa$) = "Q" OR aa$ = CHR$(27) THEN GOTO 12 16: GOTO 12 17: 18: SUB Config 19: LOCATE 4, 1: INPUT "COM PORT 1 - 4"; COMM 20: IF COMM = 1 THEN COMM$ = "COM1" 21: IF COMM = 2 THEN COMM$ = "COM2" 22: IF COMM = 3 THEN COMM$ = "COM3" 23: IF COMM = 4 THEN COMM$ = "COM4" 24: LOCATE 5, 1: INPUT "MODEM SPEED"; SPEED 25: OPEN "BASPHONE.CFG" FOR OUTPUT AS #1 26: PRINT #1, COMM$; ":"; SPEED 27: CLOSE #1 28: LOCATE 4, 1: PRINT " " 29: LOCATE 5, 1: PRINT " " 30: END SUB 31: 32: SUB Dial (N) 33: PRINT #3, "ATDT"; N 34: END SUB 35: 36: SUB Diala 37: END SUB 38: 39: SUB hangup 40: CLOSE #3 41: END SUB 42: 43: SUB keypad 44: LINE (60, 60)-(100, 100), 1, BF: LOCATE 115 / 21.3, 60 / 5.9875: PRINT "1" 45: LINE (120, 60)-(160, 100), 2, BF 46: LINE (180, 60)-(220, 100), 3, BF 47: LINE (60, 120)-(100, 160), 4, BF 48: LINE (120, 120)-(160, 160), 5, BF 49: LINE (180, 120)-(220, 160), 6, BF 50: LINE (60, 180)-(100, 220), 7, BF 51: LINE (120, 180)-(160, 220), 8, BF 52: LINE (180, 180)-(220, 220), 9, BF 53: LINE (60, 230)-(100, 270), 10, BF 54: LINE (120, 230)-(160, 270), 11, BF 55: LINE (180, 230)-(220, 270), 12, BF 56: END SUB 57: 58: SUB Opencom 59: OPEN "BASPHONE.CFG" FOR INPUT AS #2 60: INPUT #2, comport$ 61: CLOSE #2 62: OPEN comport$ + ",N,8,1,RB2048,TB2048" FOR RANDOM AS #3 63: END SUB 64: 65: SUB Sleepa (T) 66: A = TIMER + T 67: 9 IF TIMER >= A THEN GOTO ends ELSE GOTO 9 68: ends: 69: END SUB 70: 71: SUB Vall (A$) 72: IF A$ = "1" THEN A = 1 73: IF A$ = "2" THEN A = 2 74: IF A$ = "3" THEN A = 3 75: IF A$ = "4" THEN A = 4 76: IF A$ = "5" THEN A = 5 77: IF A$ = "6" THEN A = 6 78: IF A$ = "7" THEN A = 7 79: IF A$ = "8" THEN A = 8 80: IF A$ = "9" THEN A = 9 81: IF A$ = "0" THEN A = 0 82: Dial A 83: END SUB 84: |