1: DECLARE SUB Opencom () 2: DECLARE SUB Config () 3: DECLARE SUB Dial (N$) 4: DECLARE SUB Vall (A$) 5: DECLARE SUB HangUp () 6: CLS 7: SCREEN 12 8: COLOR 7 9: LOCATE 1, 1: PRINT "Press Esc to Hangup" 10: LOCATE 2, 1: PRINT "Type `C' to configure" 11: LOCATE 3, 1: PRINT "Type a number ": LOCATE 3, 15: COLOR 3: PRINT "_": COLOR 7 12: Opencom 13: 22 SLEEP: Num$ = INKEY$ 14: IF Num$ = "" THEN HangUp: END 15: IF UCASE$(Num$) = "C" THEN Config: GOTO 22 16: IF RTRIM$(LTRIM$(STR$(VAL(Num$)))) <> Num$ THEN GOTO 22 17: LOCATE 3, POS(0) 18: PRINT Num$ 19: LOCATE 3, POS(0) + 1: COLOR 3: PRINT "_": COLOR 7 20: Vall Num$ 21: GOTO 22 22: 23: SUB Config 24: LOCATE 4, 1: INPUT "COM PORT 1 - 4"; Comm 25: Comm$ = "COM" + LTRIM$(RTRIM$(STR$(Comm))) 26: Speed$ = "300" 27: OPEN "BASPHONE.CFG" FOR OUTPUT AS #1 28: PRINT #1, Comm$; ":"; Speed$ 29: CLOSE #1 30: LOCATE 4, 1: PRINT " " 31: LOCATE 5, 1: PRINT " " 32: END SUB 33: 34: SUB Dial (N$) 35: IF LTRIM$(RTRIM$(STR$(VAL(N$)))) <> LTRIM$(RTRIM$((N$))) THEN EXIT SUB 36: PRINT #3, "ATDT"; LTRIM$(RTRIM$(STR$(N))) 37: END SUB 38: 39: SUB HangUp 40: PRINT #3, "+++" 41: PRINT #3, "+++" 42: PRINT #3, "ATH" 43: PRINT #3, "ATH" 44: PRINT #3, "+++" 45: PRINT #3, "+++" 46: CLOSE #3 47: END SUB 48: 49: SUB Keypad 50: LINE (60, 60)-(100, 100), 1, BF: LOCATE 115 / 21.3, 60 / 5.9875: PRINT "1" 51: LINE (120, 60)-(160, 100), 2, BF 52: LINE (180, 60)-(220, 100), 3, BF 53: LINE (60, 120)-(100, 160), 4, BF 54: LINE (120, 120)-(160, 160), 5, BF 55: LINE (180, 120)-(220, 160), 6, BF 56: LINE (60, 180)-(100, 220), 7, BF 57: LINE (120, 180)-(160, 220), 8, BF 58: LINE (180, 180)-(220, 220), 9, BF 59: LINE (60, 230)-(100, 270), 10, BF 60: LINE (120, 230)-(160, 270), 11, BF 61: LINE (180, 230)-(220, 270), 12, BF 62: END SUB 63: 64: SUB Opencom 65: OPEN "BASPHONE.CFG" FOR INPUT AS #2 66: INPUT #2, comport$ 67: CLOSE #2 68: OPEN comport$ + ",N,8,1" FOR RANDOM AS #3 69: END SUB 70: 71: SUB Vall (A$) 72: Dial A$ 73: END SUB 74: |