home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / COMSUBS.BAS < prev    next >
BASIC Source File  |  1994-01-29  |  1KB  |  45 lines
  1. FUNCTION COMChars%
  2.     IF Comline THEN COMChars%=LOC(5) ELSE COMChars%=0
  3. END FUNCTION
  4.  
  5. FUNCTION COMCHAR$
  6.     IF Comchars% THEN COMCHAR$=INPUT$(Comchars%, #5):CheckCarrier
  7. END FUNCTION
  8.  
  9. FUNCTION COMINKEY$
  10.     IF Comline THEN IF COMChars% THEN COMINKEY$=INPUT$(1,#5):CheckCarrier
  11. END FUNCTION
  12.  
  13. SUB COMPRINT (X$)
  14.     IF Comline THEN PRINT #5, X$;:CheckCarrier
  15. END SUB
  16.  
  17. SUB COMOPEN (PRM$)
  18.     OPEN PRM$ FOR RANDOM AS #5
  19.     COMLINE=-1
  20. END SUB
  21.  
  22. SUB COMCLOSE
  23.     CLOSE #5
  24.         COMLINE=0
  25. END SUB
  26.  
  27. SUB CheckCarrier
  28.     IF Carrier% THEN
  29.         MSR?=INP(Padd%+6)
  30.                 X%=PROZOCSRLIN:Y%=PROZOPOS
  31.                 LOCATE 1,1:COLOR 0,7
  32.         IF (MSR? AND &B00000001) THEN PRINT "D-CTS ";  ELSE PRINT "d-cts ";
  33.         IF (MSR? AND &B00000010) THEN PRINT "D-DSR ";  ELSE PRINT "d-dsr ";
  34.         IF (MSR? AND &B00000100) THEN PRINT "D-RI ";   ELSE PRINT "d-ri ";
  35.         IF (MSR? AND &B00001000) THEN PRINT "D-RLSD "; ELSE PRINT "d-rlsd ";
  36.         IF (MSR? AND &B00010000) THEN PRINT "CTS ";    ELSE PRINT "cts ";
  37.         IF (MSR? AND &B00100000) THEN PRINT "DSR ";    ELSE PRINT "dsr ";
  38.         IF (MSR? AND &B01000000) THEN PRINT "RI ";     ELSE PRINT "dsr ";
  39.         IF (MSR? AND &B10000000) THEN PRINT "RLSD ";   ELSE PRINT "rlsd ";
  40.                 LOCATE X%,Y%
  41.             ' test for no carrier
  42.             ' set error 105
  43.     END IF
  44. END SUB
  45.